marker.c
Go to the documentation of this file.00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038
00039
00040
00041
00042
00043
00044
00045 #include "common.h"
00046
00047 #include <stdio.h>
00048 #include <string.h>
00049
00050 #include "vmath.h"
00051 #include "plot3.h"
00052
00053 void
00054 tp_2marker(FILE *fp, register int c, double x, double y, double scale)
00055 {
00056 char mark_str[4];
00057
00058 mark_str[0] = (char)c;
00059 mark_str[1] = '\0';
00060
00061
00062 tp_2symbol( fp, mark_str,
00063 (x - scale*0.5), (y - scale*0.5),
00064 scale, 0.0 );
00065 }
00066
00067 void
00068 PL_FORTRAN(f2mark, F2MARK)(FILE **fp, int *c, float *x, float*y, float *scale)
00069 {
00070 tp_2marker( *fp, *c, *x, *y, *scale );
00071 }
00072
00073
00074
00075
00076 void
00077 tp_3marker(FILE *fp, register int c, double x, double y, double z, double scale)
00078 {
00079 char mark_str[4];
00080 mat_t mat;
00081 vect_t p;
00082
00083 mark_str[0] = (char)c;
00084 mark_str[1] = '\0';
00085 MAT_IDN( mat );
00086 VSET( p, x - scale*0.5, y - scale*0.5, z );
00087 tp_3symbol( fp, mark_str, p, mat, scale );
00088 }
00089
00090 void
00091 PL_FORTRAN(f3mark, F3MARK)(FILE **fp, int *c, float *x, float *y, float *z, float *scale)
00092 {
00093 tp_3marker( *fp, *c, *x, *y, *z, *scale );
00094 }
00095
00096
00097
00098
00099
00100
00101
00102
00103
00104
00105