15 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
16 Tcl_AppendResult( interp,
"command syntax: \"",
17 "pl_setcontlabelformat lexp sigprec",
"\"",
22 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
23 (!0 && !0 && (argc != (2 + 1))) ||
24 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
25 Tcl_AppendResult( interp,
"wrong # args: should be \"",
26 "pl_setcontlabelformat lexp sigprec",
"\"",
31 lexp = atoi(argv[1+0]);
32 sigprec = atoi(argv[1+1]);
38 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
62 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
63 Tcl_AppendResult( interp,
"command syntax: \"",
64 "pl_setcontlabelparam offset size spacing active",
"\"",
69 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
70 (!0 && !0 && (argc != (4 + 1))) ||
71 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
72 Tcl_AppendResult( interp,
"wrong # args: should be \"",
73 "pl_setcontlabelparam offset size spacing active",
"\"",
78 offset = atof(argv[1+0]);
79 size = atof(argv[1+1]);
80 spacing = atof(argv[1+2]);
81 active = atoi(argv[1+3]);
87 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
108 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
109 Tcl_AppendResult( interp,
"command syntax: \"",
115 if ( (!0 && 1 && (argc < (1 + 1 - 1))) ||
116 (!0 && !1 && (argc != (1 + 1))) ||
117 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
118 Tcl_AppendResult( interp,
"wrong # args: should be \"",
125 page = atoi(argv[1+0]);
132 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
160 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
161 Tcl_AppendResult( interp,
"command syntax: \"",
162 "plarc x y a b angle1 angle2 rotate fill",
"\"",
167 if ( (!0 && 0 && (argc < (1 + 8 - 0))) ||
168 (!0 && !0 && (argc != (8 + 1))) ||
169 ( 0 && (argc != 1) && (argc != (8 + 1))) ) {
170 Tcl_AppendResult( interp,
"wrong # args: should be \"",
171 "plarc x y a b angle1 angle2 rotate fill",
"\"",
180 angle1 = atof(argv[1+4]);
181 angle2 = atof(argv[1+5]);
182 rotate = atof(argv[1+6]);
183 fill = atoi(argv[1+7]);
185 plarc ( x, y, a, b, angle1, angle2, rotate, fill );
189 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
217 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
218 Tcl_AppendResult( interp,
"command syntax: \"",
219 "plaxes x0 y0 xopt xtick nxsub yopt ytick nysub",
"\"",
224 if ( (!0 && 0 && (argc < (1 + 8 - 0))) ||
225 (!0 && !0 && (argc != (8 + 1))) ||
226 ( 0 && (argc != 1) && (argc != (8 + 1))) ) {
227 Tcl_AppendResult( interp,
"wrong # args: should be \"",
228 "plaxes x0 y0 xopt xtick nxsub yopt ytick nysub",
"\"",
233 x0 = atof(argv[1+0]);
234 y0 = atof(argv[1+1]);
236 xtick = atof(argv[1+3]);
237 nxsub = atoi(argv[1+4]);
239 ytick = atof(argv[1+6]);
240 nysub = atoi(argv[1+7]);
242 plaxes ( x0, y0, xopt, xtick, nxsub, yopt, ytick, nysub );
246 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
272 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
273 Tcl_AppendResult( interp,
"command syntax: \"",
274 "plbin nbin x y center",
"\"",
279 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
280 (!0 && !0 && (argc != (4 + 1))) ||
281 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
282 Tcl_AppendResult( interp,
"wrong # args: should be \"",
283 "plbin nbin x y center",
"\"",
288 nbin = atoi(argv[1+0]);
290 if (matx == NULL)
return TCL_ERROR;
293 if (maty == NULL)
return TCL_ERROR;
295 center = atoi(argv[1+3]);
297 plbin ( nbin, x, y, center );
301 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
321 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
322 Tcl_AppendResult( interp,
"command syntax: \"",
328 if ( (!0 && 0 && (argc < (1 + 0 - 0))) ||
329 (!0 && !0 && (argc != (0 + 1))) ||
330 ( 0 && (argc != 1) && (argc != (0 + 1))) ) {
331 Tcl_AppendResult( interp,
"wrong # args: should be \"",
342 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
368 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
369 Tcl_AppendResult( interp,
"command syntax: \"",
370 "plbox xopt xtick nxsub yopt ytick nysub",
"\"",
375 if ( (!0 && 0 && (argc < (1 + 6 - 0))) ||
376 (!0 && !0 && (argc != (6 + 1))) ||
377 ( 0 && (argc != 1) && (argc != (6 + 1))) ) {
378 Tcl_AppendResult( interp,
"wrong # args: should be \"",
379 "plbox xopt xtick nxsub yopt ytick nysub",
"\"",
385 xtick = atof(argv[1+1]);
386 nxsub = atoi(argv[1+2]);
388 ytick = atof(argv[1+4]);
389 nysub = atoi(argv[1+5]);
391 plbox ( xopt, xtick, nxsub, yopt, ytick, nysub );
395 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
427 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
428 Tcl_AppendResult( interp,
"command syntax: \"",
429 "plbox3 xopt xlabel xtick nsubx yopt ylabel ytick nsuby zopt zlabel ztick nsubz",
"\"",
434 if ( (!0 && 0 && (argc < (1 + 12 - 0))) ||
435 (!0 && !0 && (argc != (12 + 1))) ||
436 ( 0 && (argc != 1) && (argc != (12 + 1))) ) {
437 Tcl_AppendResult( interp,
"wrong # args: should be \"",
438 "plbox3 xopt xlabel xtick nsubx yopt ylabel ytick nsuby zopt zlabel ztick nsubz",
"\"",
445 xtick = atof(argv[1+2]);
446 nsubx = atoi(argv[1+3]);
449 ytick = atof(argv[1+6]);
450 nsuby = atoi(argv[1+7]);
453 ztick = atof(argv[1+10]);
454 nsubz = atoi(argv[1+11]);
456 plbox3 ( xopt, xlabel, xtick, nsubx, yopt, ylabel, ytick, nsuby, zopt, zlabel, ztick, nsubz );
460 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
487 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
488 Tcl_AppendResult( interp,
"command syntax: \"",
489 "plbtime ?year month day hour min sec ctime?",
"\"",
494 if ( (!1 && 0 && (argc < (1 + 7 - 0))) ||
495 (!1 && !0 && (argc != (7 + 1))) ||
496 ( 1 && (argc != 1) && (argc != (7 + 1))) ) {
497 Tcl_AppendResult( interp,
"wrong # args: should be \"",
498 "plbtime ?year month day hour min sec ctime?",
"\"",
509 ctime = atof(argv[1+6]);
511 plbtime ( &year, &month, &day, &hour, &min, &sec, ctime );
513 sprintf(
buf,
"%d", year );
515 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
517 Tcl_AppendResult( interp,
buf, (
char *) NULL );
519 Tcl_AppendResult( interp,
" ", (
char *) NULL );
520 sprintf(
buf,
"%d", month );
522 Tcl_SetVar( interp, argv[1+1],
buf, 0 );
524 Tcl_AppendResult( interp,
buf, (
char *) NULL );
526 Tcl_AppendResult( interp,
" ", (
char *) NULL );
527 sprintf(
buf,
"%d", day );
529 Tcl_SetVar( interp, argv[1+2],
buf, 0 );
531 Tcl_AppendResult( interp,
buf, (
char *) NULL );
533 Tcl_AppendResult( interp,
" ", (
char *) NULL );
534 sprintf(
buf,
"%d", hour );
536 Tcl_SetVar( interp, argv[1+3],
buf, 0 );
538 Tcl_AppendResult( interp,
buf, (
char *) NULL );
540 Tcl_AppendResult( interp,
" ", (
char *) NULL );
541 sprintf(
buf,
"%d", min );
543 Tcl_SetVar( interp, argv[1+4],
buf, 0 );
545 Tcl_AppendResult( interp,
buf, (
char *) NULL );
547 Tcl_AppendResult( interp,
" ", (
char *) NULL );
548 Tcl_PrintDouble( interp, sec,
buf );
550 Tcl_SetVar( interp, argv[1+5],
buf, 0 );
552 Tcl_AppendResult( interp,
buf, (
char *) NULL );
555 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
580 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
581 Tcl_AppendResult( interp,
"command syntax: \"",
582 "plcalc_world ?rx ry wx wy window?",
"\"",
587 if ( (!1 && 0 && (argc < (1 + 5 - 0))) ||
588 (!1 && !0 && (argc != (5 + 1))) ||
589 ( 1 && (argc != 1) && (argc != (5 + 1))) ) {
590 Tcl_AppendResult( interp,
"wrong # args: should be \"",
591 "plcalc_world ?rx ry wx wy window?",
"\"",
596 rx = atof(argv[1+0]);
597 ry = atof(argv[1+1]);
605 Tcl_AppendResult( interp,
" ", (
char *) NULL );
606 Tcl_PrintDouble( interp, wx,
buf );
608 Tcl_SetVar( interp, argv[1+2],
buf, 0 );
610 Tcl_AppendResult( interp,
buf, (
char *) NULL );
612 Tcl_AppendResult( interp,
" ", (
char *) NULL );
613 Tcl_PrintDouble( interp, wy,
buf );
615 Tcl_SetVar( interp, argv[1+3],
buf, 0 );
617 Tcl_AppendResult( interp,
buf, (
char *) NULL );
619 Tcl_AppendResult( interp,
" ", (
char *) NULL );
620 sprintf(
buf,
"%d", window );
622 Tcl_SetVar( interp, argv[1+4],
buf, 0 );
624 Tcl_AppendResult( interp,
buf, (
char *) NULL );
627 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
647 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
648 Tcl_AppendResult( interp,
"command syntax: \"",
654 if ( (!0 && 0 && (argc < (1 + 0 - 0))) ||
655 (!0 && !0 && (argc != (0 + 1))) ||
656 ( 0 && (argc != 1) && (argc != (0 + 1))) ) {
657 Tcl_AppendResult( interp,
"wrong # args: should be \"",
668 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
689 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
690 Tcl_AppendResult( interp,
"command syntax: \"",
691 "plcol0 icol0",
"\"",
696 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
697 (!0 && !0 && (argc != (1 + 1))) ||
698 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
699 Tcl_AppendResult( interp,
"wrong # args: should be \"",
700 "plcol0 icol0",
"\"",
705 icol0 = atoi(argv[1+0]);
711 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
732 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
733 Tcl_AppendResult( interp,
"command syntax: \"",
739 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
740 (!0 && !0 && (argc != (1 + 1))) ||
741 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
742 Tcl_AppendResult( interp,
"wrong # args: should be \"",
748 col1 = atof(argv[1+0]);
754 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
775 PLINT ifbtime_offset;
785 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
786 Tcl_AppendResult( interp,
"command syntax: \"",
787 "plconfigtime scale offset1 offset2 ccontrol ifbtime_offset year month day hour min sec",
"\"",
792 if ( (!0 && 0 && (argc < (1 + 11 - 0))) ||
793 (!0 && !0 && (argc != (11 + 1))) ||
794 ( 0 && (argc != 1) && (argc != (11 + 1))) ) {
795 Tcl_AppendResult( interp,
"wrong # args: should be \"",
796 "plconfigtime scale offset1 offset2 ccontrol ifbtime_offset year month day hour min sec",
"\"",
801 scale = atof(argv[1+0]);
802 offset1 = atof(argv[1+1]);
803 offset2 = atof(argv[1+2]);
804 ccontrol = atoi(argv[1+3]);
805 ifbtime_offset = atoi(argv[1+4]);
806 year = atoi(argv[1+5]);
807 month = atoi(argv[1+6]);
808 day = atoi(argv[1+7]);
809 hour = atoi(argv[1+8]);
810 min = atoi(argv[1+9]);
811 sec = atof(argv[1+10]);
813 plconfigtime ( scale, offset1, offset2, ccontrol, ifbtime_offset, year, month, day, hour, min, sec );
817 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
839 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
840 Tcl_AppendResult( interp,
"command syntax: \"",
841 "plcpstrm iplsr flags",
"\"",
846 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
847 (!0 && !0 && (argc != (2 + 1))) ||
848 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
849 Tcl_AppendResult( interp,
"wrong # args: should be \"",
850 "plcpstrm iplsr flags",
"\"",
855 iplsr = atoi(argv[1+0]);
856 flags = atoi(argv[1+1]);
862 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
889 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
890 Tcl_AppendResult( interp,
"command syntax: \"",
891 "plctime ?year month day hour min sec ctime?",
"\"",
896 if ( (!1 && 0 && (argc < (1 + 7 - 0))) ||
897 (!1 && !0 && (argc != (7 + 1))) ||
898 ( 1 && (argc != 1) && (argc != (7 + 1))) ) {
899 Tcl_AppendResult( interp,
"wrong # args: should be \"",
900 "plctime ?year month day hour min sec ctime?",
"\"",
905 year = atoi(argv[1+0]);
906 month = atoi(argv[1+1]);
907 day = atoi(argv[1+2]);
908 hour = atoi(argv[1+3]);
909 min = atoi(argv[1+4]);
910 sec = atof(argv[1+5]);
913 plctime ( year, month, day, hour, min, sec, &ctime );
916 Tcl_AppendResult( interp,
" ", (
char *) NULL );
917 Tcl_PrintDouble( interp, ctime,
buf );
919 Tcl_SetVar( interp, argv[1+6],
buf, 0 );
921 Tcl_AppendResult( interp,
buf, (
char *) NULL );
924 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
948 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
949 Tcl_AppendResult( interp,
"command syntax: \"",
950 "pldid2pc ?xmin ymin xmax ymax?",
"\"",
955 if ( (!1 && 0 && (argc < (1 + 4 - 0))) ||
956 (!1 && !0 && (argc != (4 + 1))) ||
957 ( 1 && (argc != 1) && (argc != (4 + 1))) ) {
958 Tcl_AppendResult( interp,
"wrong # args: should be \"",
959 "pldid2pc ?xmin ymin xmax ymax?",
"\"",
969 pldid2pc ( &xmin, &ymin, &xmax, &ymax );
971 Tcl_PrintDouble( interp, xmin,
buf );
973 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
975 Tcl_AppendResult( interp,
buf, (
char *) NULL );
977 Tcl_AppendResult( interp,
" ", (
char *) NULL );
978 Tcl_PrintDouble( interp, ymin,
buf );
980 Tcl_SetVar( interp, argv[1+1],
buf, 0 );
982 Tcl_AppendResult( interp,
buf, (
char *) NULL );
984 Tcl_AppendResult( interp,
" ", (
char *) NULL );
985 Tcl_PrintDouble( interp, xmax,
buf );
987 Tcl_SetVar( interp, argv[1+2],
buf, 0 );
989 Tcl_AppendResult( interp,
buf, (
char *) NULL );
991 Tcl_AppendResult( interp,
" ", (
char *) NULL );
992 Tcl_PrintDouble( interp, ymax,
buf );
994 Tcl_SetVar( interp, argv[1+3],
buf, 0 );
996 Tcl_AppendResult( interp,
buf, (
char *) NULL );
999 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
1023 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
1024 Tcl_AppendResult( interp,
"command syntax: \"",
1025 "pldip2dc ?xmin ymin xmax ymax?",
"\"",
1030 if ( (!1 && 0 && (argc < (1 + 4 - 0))) ||
1031 (!1 && !0 && (argc != (4 + 1))) ||
1032 ( 1 && (argc != 1) && (argc != (4 + 1))) ) {
1033 Tcl_AppendResult( interp,
"wrong # args: should be \"",
1034 "pldip2dc ?xmin ymin xmax ymax?",
"\"",
1044 pldip2dc ( &xmin, &ymin, &xmax, &ymax );
1046 Tcl_PrintDouble( interp, xmin,
buf );
1048 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
1050 Tcl_AppendResult( interp,
buf, (
char *) NULL );
1052 Tcl_AppendResult( interp,
" ", (
char *) NULL );
1053 Tcl_PrintDouble( interp, ymin,
buf );
1055 Tcl_SetVar( interp, argv[1+1],
buf, 0 );
1057 Tcl_AppendResult( interp,
buf, (
char *) NULL );
1059 Tcl_AppendResult( interp,
" ", (
char *) NULL );
1060 Tcl_PrintDouble( interp, xmax,
buf );
1062 Tcl_SetVar( interp, argv[1+2],
buf, 0 );
1064 Tcl_AppendResult( interp,
buf, (
char *) NULL );
1066 Tcl_AppendResult( interp,
" ", (
char *) NULL );
1067 Tcl_PrintDouble( interp, ymax,
buf );
1069 Tcl_SetVar( interp, argv[1+3],
buf, 0 );
1071 Tcl_AppendResult( interp,
buf, (
char *) NULL );
1074 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
1094 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
1095 Tcl_AppendResult( interp,
"command syntax: \"",
1101 if ( (!0 && 0 && (argc < (1 + 0 - 0))) ||
1102 (!0 && !0 && (argc != (0 + 1))) ||
1103 ( 0 && (argc != 1) && (argc != (0 + 1))) ) {
1104 Tcl_AppendResult( interp,
"wrong # args: should be \"",
1115 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
1135 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
1136 Tcl_AppendResult( interp,
"command syntax: \"",
1142 if ( (!0 && 0 && (argc < (1 + 0 - 0))) ||
1143 (!0 && !0 && (argc != (0 + 1))) ||
1144 ( 0 && (argc != 1) && (argc != (0 + 1))) ) {
1145 Tcl_AppendResult( interp,
"wrong # args: should be \"",
1156 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
1182 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
1183 Tcl_AppendResult( interp,
"command syntax: \"",
1184 "plenv xmin xmax ymin ymax just axis",
"\"",
1189 if ( (!0 && 0 && (argc < (1 + 6 - 0))) ||
1190 (!0 && !0 && (argc != (6 + 1))) ||
1191 ( 0 && (argc != 1) && (argc != (6 + 1))) ) {
1192 Tcl_AppendResult( interp,
"wrong # args: should be \"",
1193 "plenv xmin xmax ymin ymax just axis",
"\"",
1198 xmin = atof(argv[1+0]);
1199 xmax = atof(argv[1+1]);
1200 ymin = atof(argv[1+2]);
1201 ymax = atof(argv[1+3]);
1202 just = atoi(argv[1+4]);
1203 axis = atoi(argv[1+5]);
1205 plenv ( xmin, xmax, ymin, ymax, just, axis );
1209 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
1235 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
1236 Tcl_AppendResult( interp,
"command syntax: \"",
1237 "plenv0 xmin xmax ymin ymax just axis",
"\"",
1242 if ( (!0 && 0 && (argc < (1 + 6 - 0))) ||
1243 (!0 && !0 && (argc != (6 + 1))) ||
1244 ( 0 && (argc != 1) && (argc != (6 + 1))) ) {
1245 Tcl_AppendResult( interp,
"wrong # args: should be \"",
1246 "plenv0 xmin xmax ymin ymax just axis",
"\"",
1251 xmin = atof(argv[1+0]);
1252 xmax = atof(argv[1+1]);
1253 ymin = atof(argv[1+2]);
1254 ymax = atof(argv[1+3]);
1255 just = atoi(argv[1+4]);
1256 axis = atoi(argv[1+5]);
1258 plenv0 ( xmin, xmax, ymin, ymax, just, axis );
1262 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
1282 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
1283 Tcl_AppendResult( interp,
"command syntax: \"",
1289 if ( (!0 && 0 && (argc < (1 + 0 - 0))) ||
1290 (!0 && !0 && (argc != (0 + 1))) ||
1291 ( 0 && (argc != 1) && (argc != (0 + 1))) ) {
1292 Tcl_AppendResult( interp,
"wrong # args: should be \"",
1303 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
1330 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
1331 Tcl_AppendResult( interp,
"command syntax: \"",
1332 "plerrx n xmin xmax y",
"\"",
1337 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
1338 (!0 && !0 && (argc != (4 + 1))) ||
1339 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
1340 Tcl_AppendResult( interp,
"wrong # args: should be \"",
1341 "plerrx n xmin xmax y",
"\"",
1346 n = atoi(argv[1+0]);
1348 if (matxmin == NULL)
return TCL_ERROR;
1349 xmin = matxmin->
fdata;
1351 if (matxmax == NULL)
return TCL_ERROR;
1352 xmax = matxmax->
fdata;
1354 if (maty == NULL)
return TCL_ERROR;
1357 plerrx ( n, xmin, xmax, y );
1361 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
1388 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
1389 Tcl_AppendResult( interp,
"command syntax: \"",
1390 "plerry n x ymin ymax",
"\"",
1395 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
1396 (!0 && !0 && (argc != (4 + 1))) ||
1397 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
1398 Tcl_AppendResult( interp,
"wrong # args: should be \"",
1399 "plerry n x ymin ymax",
"\"",
1404 n = atoi(argv[1+0]);
1406 if (matx == NULL)
return TCL_ERROR;
1409 if (matymin == NULL)
return TCL_ERROR;
1410 ymin = matymin->
fdata;
1412 if (matymax == NULL)
return TCL_ERROR;
1413 ymax = matymax->
fdata;
1415 plerry ( n, x, ymin, ymax );
1419 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
1439 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
1440 Tcl_AppendResult( interp,
"command syntax: \"",
1446 if ( (!0 && 0 && (argc < (1 + 0 - 0))) ||
1447 (!0 && !0 && (argc != (0 + 1))) ||
1448 ( 0 && (argc != 1) && (argc != (0 + 1))) ) {
1449 Tcl_AppendResult( interp,
"wrong # args: should be \"",
1460 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
1485 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
1486 Tcl_AppendResult( interp,
"command syntax: \"",
1487 "plfill n x y",
"\"",
1492 if ( (!0 && 0 && (argc < (1 + 3 - 0))) ||
1493 (!0 && !0 && (argc != (3 + 1))) ||
1494 ( 0 && (argc != 1) && (argc != (3 + 1))) ) {
1495 Tcl_AppendResult( interp,
"wrong # args: should be \"",
1496 "plfill n x y",
"\"",
1501 n = atoi(argv[1+0]);
1503 if (matx == NULL)
return TCL_ERROR;
1506 if (maty == NULL)
return TCL_ERROR;
1513 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
1540 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
1541 Tcl_AppendResult( interp,
"command syntax: \"",
1542 "plfill3 n x y z",
"\"",
1547 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
1548 (!0 && !0 && (argc != (4 + 1))) ||
1549 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
1550 Tcl_AppendResult( interp,
"wrong # args: should be \"",
1551 "plfill3 n x y z",
"\"",
1556 n = atoi(argv[1+0]);
1558 if (matx == NULL)
return TCL_ERROR;
1561 if (maty == NULL)
return TCL_ERROR;
1564 if (matz == NULL)
return TCL_ERROR;
1571 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
1591 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
1592 Tcl_AppendResult( interp,
"command syntax: \"",
1598 if ( (!0 && 0 && (argc < (1 + 0 - 0))) ||
1599 (!0 && !0 && (argc != (0 + 1))) ||
1600 ( 0 && (argc != 1) && (argc != (0 + 1))) ) {
1601 Tcl_AppendResult( interp,
"wrong # args: should be \"",
1612 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
1633 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
1634 Tcl_AppendResult( interp,
"command syntax: \"",
1635 "plfont ifont",
"\"",
1640 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
1641 (!0 && !0 && (argc != (1 + 1))) ||
1642 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
1643 Tcl_AppendResult( interp,
"wrong # args: should be \"",
1644 "plfont ifont",
"\"",
1649 ifont = atoi(argv[1+0]);
1655 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
1676 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
1677 Tcl_AppendResult( interp,
"command syntax: \"",
1678 "plfontld fnt",
"\"",
1683 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
1684 (!0 && !0 && (argc != (1 + 1))) ||
1685 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
1686 Tcl_AppendResult( interp,
"wrong # args: should be \"",
1687 "plfontld fnt",
"\"",
1692 fnt = atoi(argv[1+0]);
1698 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
1720 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
1721 Tcl_AppendResult( interp,
"command syntax: \"",
1722 "plgchr ?def ht?",
"\"",
1727 if ( (!1 && 0 && (argc < (1 + 2 - 0))) ||
1728 (!1 && !0 && (argc != (2 + 1))) ||
1729 ( 1 && (argc != 1) && (argc != (2 + 1))) ) {
1730 Tcl_AppendResult( interp,
"wrong # args: should be \"",
1731 "plgchr ?def ht?",
"\"",
1741 Tcl_PrintDouble( interp, def,
buf );
1743 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
1745 Tcl_AppendResult( interp,
buf, (
char *) NULL );
1747 Tcl_AppendResult( interp,
" ", (
char *) NULL );
1748 Tcl_PrintDouble( interp, ht,
buf );
1750 Tcl_SetVar( interp, argv[1+1],
buf, 0 );
1752 Tcl_AppendResult( interp,
buf, (
char *) NULL );
1755 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
1777 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
1778 Tcl_AppendResult( interp,
"command syntax: \"",
1779 "plgcmap1_range ?min_color max_color?",
"\"",
1784 if ( (!1 && 0 && (argc < (1 + 2 - 0))) ||
1785 (!1 && !0 && (argc != (2 + 1))) ||
1786 ( 1 && (argc != 1) && (argc != (2 + 1))) ) {
1787 Tcl_AppendResult( interp,
"wrong # args: should be \"",
1788 "plgcmap1_range ?min_color max_color?",
"\"",
1798 Tcl_PrintDouble( interp, min_color,
buf );
1800 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
1802 Tcl_AppendResult( interp,
buf, (
char *) NULL );
1804 Tcl_AppendResult( interp,
" ", (
char *) NULL );
1805 Tcl_PrintDouble( interp, max_color,
buf );
1807 Tcl_SetVar( interp, argv[1+1],
buf, 0 );
1809 Tcl_AppendResult( interp,
buf, (
char *) NULL );
1812 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
1836 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
1837 Tcl_AppendResult( interp,
"command syntax: \"",
1838 "plgcol0 ?icol0 r g b?",
"\"",
1843 if ( (!1 && 0 && (argc < (1 + 4 - 0))) ||
1844 (!1 && !0 && (argc != (4 + 1))) ||
1845 ( 1 && (argc != 1) && (argc != (4 + 1))) ) {
1846 Tcl_AppendResult( interp,
"wrong # args: should be \"",
1847 "plgcol0 ?icol0 r g b?",
"\"",
1852 icol0 = atoi(argv[1+0]);
1857 plgcol0 ( icol0, &r, &g, &b );
1860 Tcl_AppendResult( interp,
" ", (
char *) NULL );
1861 sprintf(
buf,
"%d", r );
1863 Tcl_SetVar( interp, argv[1+1],
buf, 0 );
1865 Tcl_AppendResult( interp,
buf, (
char *) NULL );
1867 Tcl_AppendResult( interp,
" ", (
char *) NULL );
1868 sprintf(
buf,
"%d", g );
1870 Tcl_SetVar( interp, argv[1+2],
buf, 0 );
1872 Tcl_AppendResult( interp,
buf, (
char *) NULL );
1874 Tcl_AppendResult( interp,
" ", (
char *) NULL );
1875 sprintf(
buf,
"%d", b );
1877 Tcl_SetVar( interp, argv[1+3],
buf, 0 );
1879 Tcl_AppendResult( interp,
buf, (
char *) NULL );
1882 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
1907 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
1908 Tcl_AppendResult( interp,
"command syntax: \"",
1909 "plgcol0a ?icol0 r g b a?",
"\"",
1914 if ( (!1 && 0 && (argc < (1 + 5 - 0))) ||
1915 (!1 && !0 && (argc != (5 + 1))) ||
1916 ( 1 && (argc != 1) && (argc != (5 + 1))) ) {
1917 Tcl_AppendResult( interp,
"wrong # args: should be \"",
1918 "plgcol0a ?icol0 r g b a?",
"\"",
1923 icol0 = atoi(argv[1+0]);
1929 plgcol0a ( icol0, &r, &g, &b, &a );
1932 Tcl_AppendResult( interp,
" ", (
char *) NULL );
1933 sprintf(
buf,
"%d", r );
1935 Tcl_SetVar( interp, argv[1+1],
buf, 0 );
1937 Tcl_AppendResult( interp,
buf, (
char *) NULL );
1939 Tcl_AppendResult( interp,
" ", (
char *) NULL );
1940 sprintf(
buf,
"%d", g );
1942 Tcl_SetVar( interp, argv[1+2],
buf, 0 );
1944 Tcl_AppendResult( interp,
buf, (
char *) NULL );
1946 Tcl_AppendResult( interp,
" ", (
char *) NULL );
1947 sprintf(
buf,
"%d", b );
1949 Tcl_SetVar( interp, argv[1+3],
buf, 0 );
1951 Tcl_AppendResult( interp,
buf, (
char *) NULL );
1953 Tcl_AppendResult( interp,
" ", (
char *) NULL );
1954 Tcl_PrintDouble( interp, a,
buf );
1956 Tcl_SetVar( interp, argv[1+4],
buf, 0 );
1958 Tcl_AppendResult( interp,
buf, (
char *) NULL );
1961 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
1984 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
1985 Tcl_AppendResult( interp,
"command syntax: \"",
1986 "plgcolbg ?r g b?",
"\"",
1991 if ( (!1 && 0 && (argc < (1 + 3 - 0))) ||
1992 (!1 && !0 && (argc != (3 + 1))) ||
1993 ( 1 && (argc != 1) && (argc != (3 + 1))) ) {
1994 Tcl_AppendResult( interp,
"wrong # args: should be \"",
1995 "plgcolbg ?r g b?",
"\"",
2006 sprintf(
buf,
"%d", r );
2008 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
2010 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2012 Tcl_AppendResult( interp,
" ", (
char *) NULL );
2013 sprintf(
buf,
"%d", g );
2015 Tcl_SetVar( interp, argv[1+1],
buf, 0 );
2017 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2019 Tcl_AppendResult( interp,
" ", (
char *) NULL );
2020 sprintf(
buf,
"%d", b );
2022 Tcl_SetVar( interp, argv[1+2],
buf, 0 );
2024 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2027 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
2051 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
2052 Tcl_AppendResult( interp,
"command syntax: \"",
2053 "plgcolbga ?r g b a?",
"\"",
2058 if ( (!1 && 0 && (argc < (1 + 4 - 0))) ||
2059 (!1 && !0 && (argc != (4 + 1))) ||
2060 ( 1 && (argc != 1) && (argc != (4 + 1))) ) {
2061 Tcl_AppendResult( interp,
"wrong # args: should be \"",
2062 "plgcolbga ?r g b a?",
"\"",
2074 sprintf(
buf,
"%d", r );
2076 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
2078 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2080 Tcl_AppendResult( interp,
" ", (
char *) NULL );
2081 sprintf(
buf,
"%d", g );
2083 Tcl_SetVar( interp, argv[1+1],
buf, 0 );
2085 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2087 Tcl_AppendResult( interp,
" ", (
char *) NULL );
2088 sprintf(
buf,
"%d", b );
2090 Tcl_SetVar( interp, argv[1+2],
buf, 0 );
2092 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2094 Tcl_AppendResult( interp,
" ", (
char *) NULL );
2095 Tcl_PrintDouble( interp, a,
buf );
2097 Tcl_SetVar( interp, argv[1+3],
buf, 0 );
2099 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2102 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
2123 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
2124 Tcl_AppendResult( interp,
"command syntax: \"",
2125 "plgcompression ?compression?",
"\"",
2130 if ( (!1 && 0 && (argc < (1 + 1 - 0))) ||
2131 (!1 && !0 && (argc != (1 + 1))) ||
2132 ( 1 && (argc != 1) && (argc != (1 + 1))) ) {
2133 Tcl_AppendResult( interp,
"wrong # args: should be \"",
2134 "plgcompression ?compression?",
"\"",
2143 sprintf(
buf,
"%d", compression );
2145 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
2147 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2150 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
2171 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
2172 Tcl_AppendResult( interp,
"command syntax: \"",
2173 "plgdev ?devnam?",
"\"",
2178 if ( (!1 && 0 && (argc < (1 + 1 - 0))) ||
2179 (!1 && !0 && (argc != (1 + 1))) ||
2180 ( 1 && (argc != 1) && (argc != (1 + 1))) ) {
2181 Tcl_AppendResult( interp,
"wrong # args: should be \"",
2182 "plgdev ?devnam?",
"\"",
2192 Tcl_SetVar( interp, argv[1+0], devnam, 0 );
2194 Tcl_AppendResult( interp, devnam, (
char *) NULL );
2197 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
2221 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
2222 Tcl_AppendResult( interp,
"command syntax: \"",
2223 "plgdidev ?mar aspect jx jy?",
"\"",
2228 if ( (!1 && 0 && (argc < (1 + 4 - 0))) ||
2229 (!1 && !0 && (argc != (4 + 1))) ||
2230 ( 1 && (argc != 1) && (argc != (4 + 1))) ) {
2231 Tcl_AppendResult( interp,
"wrong # args: should be \"",
2232 "plgdidev ?mar aspect jx jy?",
"\"",
2242 plgdidev ( &mar, &aspect, &jx, &jy );
2244 Tcl_PrintDouble( interp, mar,
buf );
2246 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
2248 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2250 Tcl_AppendResult( interp,
" ", (
char *) NULL );
2251 Tcl_PrintDouble( interp, aspect,
buf );
2253 Tcl_SetVar( interp, argv[1+1],
buf, 0 );
2255 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2257 Tcl_AppendResult( interp,
" ", (
char *) NULL );
2258 Tcl_PrintDouble( interp, jx,
buf );
2260 Tcl_SetVar( interp, argv[1+2],
buf, 0 );
2262 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2264 Tcl_AppendResult( interp,
" ", (
char *) NULL );
2265 Tcl_PrintDouble( interp, jy,
buf );
2267 Tcl_SetVar( interp, argv[1+3],
buf, 0 );
2269 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2272 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
2293 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
2294 Tcl_AppendResult( interp,
"command syntax: \"",
2295 "plgdiori ?rot?",
"\"",
2300 if ( (!1 && 0 && (argc < (1 + 1 - 0))) ||
2301 (!1 && !0 && (argc != (1 + 1))) ||
2302 ( 1 && (argc != 1) && (argc != (1 + 1))) ) {
2303 Tcl_AppendResult( interp,
"wrong # args: should be \"",
2304 "plgdiori ?rot?",
"\"",
2313 Tcl_PrintDouble( interp, rot,
buf );
2315 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
2317 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2320 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
2344 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
2345 Tcl_AppendResult( interp,
"command syntax: \"",
2346 "plgdiplt ?xmin ymin xmax ymax?",
"\"",
2351 if ( (!1 && 0 && (argc < (1 + 4 - 0))) ||
2352 (!1 && !0 && (argc != (4 + 1))) ||
2353 ( 1 && (argc != 1) && (argc != (4 + 1))) ) {
2354 Tcl_AppendResult( interp,
"wrong # args: should be \"",
2355 "plgdiplt ?xmin ymin xmax ymax?",
"\"",
2365 plgdiplt ( &xmin, &ymin, &xmax, &ymax );
2367 Tcl_PrintDouble( interp, xmin,
buf );
2369 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
2371 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2373 Tcl_AppendResult( interp,
" ", (
char *) NULL );
2374 Tcl_PrintDouble( interp, ymin,
buf );
2376 Tcl_SetVar( interp, argv[1+1],
buf, 0 );
2378 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2380 Tcl_AppendResult( interp,
" ", (
char *) NULL );
2381 Tcl_PrintDouble( interp, xmax,
buf );
2383 Tcl_SetVar( interp, argv[1+2],
buf, 0 );
2385 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2387 Tcl_AppendResult( interp,
" ", (
char *) NULL );
2388 Tcl_PrintDouble( interp, ymax,
buf );
2390 Tcl_SetVar( interp, argv[1+3],
buf, 0 );
2392 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2395 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
2416 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
2417 Tcl_AppendResult( interp,
"command syntax: \"",
2418 "plgesc ?esc?",
"\"",
2423 if ( (!1 && 0 && (argc < (1 + 1 - 0))) ||
2424 (!1 && !0 && (argc != (1 + 1))) ||
2425 ( 1 && (argc != 1) && (argc != (1 + 1))) ) {
2426 Tcl_AppendResult( interp,
"wrong # args: should be \"",
2427 "plgesc ?esc?",
"\"",
2436 sprintf(
buf,
"%c", esc );
2438 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
2440 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2443 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
2466 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
2467 Tcl_AppendResult( interp,
"command syntax: \"",
2468 "plgfam ?fam num bmax?",
"\"",
2473 if ( (!1 && 0 && (argc < (1 + 3 - 0))) ||
2474 (!1 && !0 && (argc != (3 + 1))) ||
2475 ( 1 && (argc != 1) && (argc != (3 + 1))) ) {
2476 Tcl_AppendResult( interp,
"wrong # args: should be \"",
2477 "plgfam ?fam num bmax?",
"\"",
2486 plgfam ( &fam, &num, &bmax );
2488 sprintf(
buf,
"%d", fam );
2490 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
2492 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2494 Tcl_AppendResult( interp,
" ", (
char *) NULL );
2495 sprintf(
buf,
"%d", num );
2497 Tcl_SetVar( interp, argv[1+1],
buf, 0 );
2499 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2501 Tcl_AppendResult( interp,
" ", (
char *) NULL );
2502 sprintf(
buf,
"%d", bmax );
2504 Tcl_SetVar( interp, argv[1+2],
buf, 0 );
2506 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2509 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
2530 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
2531 Tcl_AppendResult( interp,
"command syntax: \"",
2532 "plgfci ?fci?",
"\"",
2537 if ( (!1 && 0 && (argc < (1 + 1 - 0))) ||
2538 (!1 && !0 && (argc != (1 + 1))) ||
2539 ( 1 && (argc != 1) && (argc != (1 + 1))) ) {
2540 Tcl_AppendResult( interp,
"wrong # args: should be \"",
2541 "plgfci ?fci?",
"\"",
2550 sprintf(
buf,
"%u", fci );
2552 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
2554 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2557 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
2578 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
2579 Tcl_AppendResult( interp,
"command syntax: \"",
2580 "plgfnam ?fnam?",
"\"",
2585 if ( (!1 && 0 && (argc < (1 + 1 - 0))) ||
2586 (!1 && !0 && (argc != (1 + 1))) ||
2587 ( 1 && (argc != 1) && (argc != (1 + 1))) ) {
2588 Tcl_AppendResult( interp,
"wrong # args: should be \"",
2589 "plgfnam ?fnam?",
"\"",
2599 Tcl_SetVar( interp, argv[1+0], fnam, 0 );
2601 Tcl_AppendResult( interp, fnam, (
char *) NULL );
2604 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
2627 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
2628 Tcl_AppendResult( interp,
"command syntax: \"",
2629 "plgfont ?family style weight?",
"\"",
2634 if ( (!1 && 0 && (argc < (1 + 3 - 0))) ||
2635 (!1 && !0 && (argc != (3 + 1))) ||
2636 ( 1 && (argc != 1) && (argc != (3 + 1))) ) {
2637 Tcl_AppendResult( interp,
"wrong # args: should be \"",
2638 "plgfont ?family style weight?",
"\"",
2647 plgfont ( &family, &style, &weight );
2649 sprintf(
buf,
"%d", family );
2651 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
2653 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2655 Tcl_AppendResult( interp,
" ", (
char *) NULL );
2656 sprintf(
buf,
"%d", style );
2658 Tcl_SetVar( interp, argv[1+1],
buf, 0 );
2660 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2662 Tcl_AppendResult( interp,
" ", (
char *) NULL );
2663 sprintf(
buf,
"%d", weight );
2665 Tcl_SetVar( interp, argv[1+2],
buf, 0 );
2667 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2670 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
2691 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
2692 Tcl_AppendResult( interp,
"command syntax: \"",
2693 "plglevel ?level?",
"\"",
2698 if ( (!1 && 0 && (argc < (1 + 1 - 0))) ||
2699 (!1 && !0 && (argc != (1 + 1))) ||
2700 ( 1 && (argc != 1) && (argc != (1 + 1))) ) {
2701 Tcl_AppendResult( interp,
"wrong # args: should be \"",
2702 "plglevel ?level?",
"\"",
2711 sprintf(
buf,
"%d", level );
2713 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
2715 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2718 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
2744 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
2745 Tcl_AppendResult( interp,
"command syntax: \"",
2746 "plgpage ?xp yp xleng yleng xoff yoff?",
"\"",
2751 if ( (!1 && 0 && (argc < (1 + 6 - 0))) ||
2752 (!1 && !0 && (argc != (6 + 1))) ||
2753 ( 1 && (argc != 1) && (argc != (6 + 1))) ) {
2754 Tcl_AppendResult( interp,
"wrong # args: should be \"",
2755 "plgpage ?xp yp xleng yleng xoff yoff?",
"\"",
2767 plgpage ( &xp, &yp, &xleng, &yleng, &xoff, &yoff );
2769 Tcl_PrintDouble( interp, xp,
buf );
2771 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
2773 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2775 Tcl_AppendResult( interp,
" ", (
char *) NULL );
2776 Tcl_PrintDouble( interp, yp,
buf );
2778 Tcl_SetVar( interp, argv[1+1],
buf, 0 );
2780 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2782 Tcl_AppendResult( interp,
" ", (
char *) NULL );
2783 sprintf(
buf,
"%d", xleng );
2785 Tcl_SetVar( interp, argv[1+2],
buf, 0 );
2787 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2789 Tcl_AppendResult( interp,
" ", (
char *) NULL );
2790 sprintf(
buf,
"%d", yleng );
2792 Tcl_SetVar( interp, argv[1+3],
buf, 0 );
2794 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2796 Tcl_AppendResult( interp,
" ", (
char *) NULL );
2797 sprintf(
buf,
"%d", xoff );
2799 Tcl_SetVar( interp, argv[1+4],
buf, 0 );
2801 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2803 Tcl_AppendResult( interp,
" ", (
char *) NULL );
2804 sprintf(
buf,
"%d", yoff );
2806 Tcl_SetVar( interp, argv[1+5],
buf, 0 );
2808 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2811 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
2831 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
2832 Tcl_AppendResult( interp,
"command syntax: \"",
2838 if ( (!0 && 0 && (argc < (1 + 0 - 0))) ||
2839 (!0 && !0 && (argc != (0 + 1))) ||
2840 ( 0 && (argc != 1) && (argc != (0 + 1))) ) {
2841 Tcl_AppendResult( interp,
"wrong # args: should be \"",
2852 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
2878 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
2879 Tcl_AppendResult( interp,
"command syntax: \"",
2880 "plgradient n x y angle",
"\"",
2885 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
2886 (!0 && !0 && (argc != (4 + 1))) ||
2887 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
2888 Tcl_AppendResult( interp,
"wrong # args: should be \"",
2889 "plgradient n x y angle",
"\"",
2894 n = atoi(argv[1+0]);
2896 if (matx == NULL)
return TCL_ERROR;
2899 if (maty == NULL)
return TCL_ERROR;
2901 angle = atof(argv[1+3]);
2907 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
2931 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
2932 Tcl_AppendResult( interp,
"command syntax: \"",
2933 "plgspa ?xmin xmax ymin ymax?",
"\"",
2938 if ( (!1 && 0 && (argc < (1 + 4 - 0))) ||
2939 (!1 && !0 && (argc != (4 + 1))) ||
2940 ( 1 && (argc != 1) && (argc != (4 + 1))) ) {
2941 Tcl_AppendResult( interp,
"wrong # args: should be \"",
2942 "plgspa ?xmin xmax ymin ymax?",
"\"",
2952 plgspa ( &xmin, &xmax, &ymin, &ymax );
2954 Tcl_PrintDouble( interp, xmin,
buf );
2956 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
2958 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2960 Tcl_AppendResult( interp,
" ", (
char *) NULL );
2961 Tcl_PrintDouble( interp, xmax,
buf );
2963 Tcl_SetVar( interp, argv[1+1],
buf, 0 );
2965 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2967 Tcl_AppendResult( interp,
" ", (
char *) NULL );
2968 Tcl_PrintDouble( interp, ymin,
buf );
2970 Tcl_SetVar( interp, argv[1+2],
buf, 0 );
2972 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2974 Tcl_AppendResult( interp,
" ", (
char *) NULL );
2975 Tcl_PrintDouble( interp, ymax,
buf );
2977 Tcl_SetVar( interp, argv[1+3],
buf, 0 );
2979 Tcl_AppendResult( interp,
buf, (
char *) NULL );
2982 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
3003 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
3004 Tcl_AppendResult( interp,
"command syntax: \"",
3005 "plgstrm ?strm?",
"\"",
3010 if ( (!1 && 0 && (argc < (1 + 1 - 0))) ||
3011 (!1 && !0 && (argc != (1 + 1))) ||
3012 ( 1 && (argc != 1) && (argc != (1 + 1))) ) {
3013 Tcl_AppendResult( interp,
"wrong # args: should be \"",
3014 "plgstrm ?strm?",
"\"",
3023 sprintf(
buf,
"%d", strm );
3025 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
3027 Tcl_AppendResult( interp,
buf, (
char *) NULL );
3030 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
3051 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
3052 Tcl_AppendResult( interp,
"command syntax: \"",
3053 "plgver ?ver?",
"\"",
3058 if ( (!1 && 0 && (argc < (1 + 1 - 0))) ||
3059 (!1 && !0 && (argc != (1 + 1))) ||
3060 ( 1 && (argc != 1) && (argc != (1 + 1))) ) {
3061 Tcl_AppendResult( interp,
"wrong # args: should be \"",
3062 "plgver ?ver?",
"\"",
3072 Tcl_SetVar( interp, argv[1+0], ver, 0 );
3074 Tcl_AppendResult( interp, ver, (
char *) NULL );
3077 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
3101 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
3102 Tcl_AppendResult( interp,
"command syntax: \"",
3103 "plgvpd ?xmin xmax ymin ymax?",
"\"",
3108 if ( (!1 && 0 && (argc < (1 + 4 - 0))) ||
3109 (!1 && !0 && (argc != (4 + 1))) ||
3110 ( 1 && (argc != 1) && (argc != (4 + 1))) ) {
3111 Tcl_AppendResult( interp,
"wrong # args: should be \"",
3112 "plgvpd ?xmin xmax ymin ymax?",
"\"",
3122 plgvpd ( &xmin, &xmax, &ymin, &ymax );
3124 Tcl_PrintDouble( interp, xmin,
buf );
3126 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
3128 Tcl_AppendResult( interp,
buf, (
char *) NULL );
3130 Tcl_AppendResult( interp,
" ", (
char *) NULL );
3131 Tcl_PrintDouble( interp, xmax,
buf );
3133 Tcl_SetVar( interp, argv[1+1],
buf, 0 );
3135 Tcl_AppendResult( interp,
buf, (
char *) NULL );
3137 Tcl_AppendResult( interp,
" ", (
char *) NULL );
3138 Tcl_PrintDouble( interp, ymin,
buf );
3140 Tcl_SetVar( interp, argv[1+2],
buf, 0 );
3142 Tcl_AppendResult( interp,
buf, (
char *) NULL );
3144 Tcl_AppendResult( interp,
" ", (
char *) NULL );
3145 Tcl_PrintDouble( interp, ymax,
buf );
3147 Tcl_SetVar( interp, argv[1+3],
buf, 0 );
3149 Tcl_AppendResult( interp,
buf, (
char *) NULL );
3152 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
3176 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
3177 Tcl_AppendResult( interp,
"command syntax: \"",
3178 "plgvpw ?xmin xmax ymin ymax?",
"\"",
3183 if ( (!1 && 0 && (argc < (1 + 4 - 0))) ||
3184 (!1 && !0 && (argc != (4 + 1))) ||
3185 ( 1 && (argc != 1) && (argc != (4 + 1))) ) {
3186 Tcl_AppendResult( interp,
"wrong # args: should be \"",
3187 "plgvpw ?xmin xmax ymin ymax?",
"\"",
3197 plgvpw ( &xmin, &xmax, &ymin, &ymax );
3199 Tcl_PrintDouble( interp, xmin,
buf );
3201 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
3203 Tcl_AppendResult( interp,
buf, (
char *) NULL );
3205 Tcl_AppendResult( interp,
" ", (
char *) NULL );
3206 Tcl_PrintDouble( interp, xmax,
buf );
3208 Tcl_SetVar( interp, argv[1+1],
buf, 0 );
3210 Tcl_AppendResult( interp,
buf, (
char *) NULL );
3212 Tcl_AppendResult( interp,
" ", (
char *) NULL );
3213 Tcl_PrintDouble( interp, ymin,
buf );
3215 Tcl_SetVar( interp, argv[1+2],
buf, 0 );
3217 Tcl_AppendResult( interp,
buf, (
char *) NULL );
3219 Tcl_AppendResult( interp,
" ", (
char *) NULL );
3220 Tcl_PrintDouble( interp, ymax,
buf );
3222 Tcl_SetVar( interp, argv[1+3],
buf, 0 );
3224 Tcl_AppendResult( interp,
buf, (
char *) NULL );
3227 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
3249 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
3250 Tcl_AppendResult( interp,
"command syntax: \"",
3251 "plgxax ?digmax digits?",
"\"",
3256 if ( (!1 && 0 && (argc < (1 + 2 - 0))) ||
3257 (!1 && !0 && (argc != (2 + 1))) ||
3258 ( 1 && (argc != 1) && (argc != (2 + 1))) ) {
3259 Tcl_AppendResult( interp,
"wrong # args: should be \"",
3260 "plgxax ?digmax digits?",
"\"",
3268 plgxax ( &digmax, &digits );
3270 sprintf(
buf,
"%d", digmax );
3272 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
3274 Tcl_AppendResult( interp,
buf, (
char *) NULL );
3276 Tcl_AppendResult( interp,
" ", (
char *) NULL );
3277 sprintf(
buf,
"%d", digits );
3279 Tcl_SetVar( interp, argv[1+1],
buf, 0 );
3281 Tcl_AppendResult( interp,
buf, (
char *) NULL );
3284 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
3306 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
3307 Tcl_AppendResult( interp,
"command syntax: \"",
3308 "plgyax ?digmax digits?",
"\"",
3313 if ( (!1 && 0 && (argc < (1 + 2 - 0))) ||
3314 (!1 && !0 && (argc != (2 + 1))) ||
3315 ( 1 && (argc != 1) && (argc != (2 + 1))) ) {
3316 Tcl_AppendResult( interp,
"wrong # args: should be \"",
3317 "plgyax ?digmax digits?",
"\"",
3325 plgyax ( &digmax, &digits );
3327 sprintf(
buf,
"%d", digmax );
3329 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
3331 Tcl_AppendResult( interp,
buf, (
char *) NULL );
3333 Tcl_AppendResult( interp,
" ", (
char *) NULL );
3334 sprintf(
buf,
"%d", digits );
3336 Tcl_SetVar( interp, argv[1+1],
buf, 0 );
3338 Tcl_AppendResult( interp,
buf, (
char *) NULL );
3341 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
3363 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
3364 Tcl_AppendResult( interp,
"command syntax: \"",
3365 "plgzax ?digmax digits?",
"\"",
3370 if ( (!1 && 0 && (argc < (1 + 2 - 0))) ||
3371 (!1 && !0 && (argc != (2 + 1))) ||
3372 ( 1 && (argc != 1) && (argc != (2 + 1))) ) {
3373 Tcl_AppendResult( interp,
"wrong # args: should be \"",
3374 "plgzax ?digmax digits?",
"\"",
3382 plgzax ( &digmax, &digits );
3384 sprintf(
buf,
"%d", digmax );
3386 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
3388 Tcl_AppendResult( interp,
buf, (
char *) NULL );
3390 Tcl_AppendResult( interp,
" ", (
char *) NULL );
3391 sprintf(
buf,
"%d", digits );
3393 Tcl_SetVar( interp, argv[1+1],
buf, 0 );
3395 Tcl_AppendResult( interp,
buf, (
char *) NULL );
3398 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
3425 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
3426 Tcl_AppendResult( interp,
"command syntax: \"",
3427 "plhist n data datmin datmax nbin oldwin",
"\"",
3432 if ( (!0 && 0 && (argc < (1 + 6 - 0))) ||
3433 (!0 && !0 && (argc != (6 + 1))) ||
3434 ( 0 && (argc != 1) && (argc != (6 + 1))) ) {
3435 Tcl_AppendResult( interp,
"wrong # args: should be \"",
3436 "plhist n data datmin datmax nbin oldwin",
"\"",
3441 n = atoi(argv[1+0]);
3443 if (matdata == NULL)
return TCL_ERROR;
3444 data = matdata->
fdata;
3445 datmin = atof(argv[1+2]);
3446 datmax = atof(argv[1+3]);
3447 nbin = atoi(argv[1+4]);
3448 oldwin = atoi(argv[1+5]);
3450 plhist ( n, data, datmin, datmax, nbin, oldwin );
3454 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
3480 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
3481 Tcl_AppendResult( interp,
"command syntax: \"",
3482 "plhlsrgb ?h l s r g b?",
"\"",
3487 if ( (!1 && 0 && (argc < (1 + 6 - 0))) ||
3488 (!1 && !0 && (argc != (6 + 1))) ||
3489 ( 1 && (argc != 1) && (argc != (6 + 1))) ) {
3490 Tcl_AppendResult( interp,
"wrong # args: should be \"",
3491 "plhlsrgb ?h l s r g b?",
"\"",
3496 h = atof(argv[1+0]);
3497 l = atof(argv[1+1]);
3498 s = atof(argv[1+2]);
3506 Tcl_AppendResult( interp,
" ", (
char *) NULL );
3507 Tcl_PrintDouble( interp, r,
buf );
3509 Tcl_SetVar( interp, argv[1+3],
buf, 0 );
3511 Tcl_AppendResult( interp,
buf, (
char *) NULL );
3513 Tcl_AppendResult( interp,
" ", (
char *) NULL );
3514 Tcl_PrintDouble( interp, g,
buf );
3516 Tcl_SetVar( interp, argv[1+4],
buf, 0 );
3518 Tcl_AppendResult( interp,
buf, (
char *) NULL );
3520 Tcl_AppendResult( interp,
" ", (
char *) NULL );
3521 Tcl_PrintDouble( interp, b,
buf );
3523 Tcl_SetVar( interp, argv[1+5],
buf, 0 );
3525 Tcl_AppendResult( interp,
buf, (
char *) NULL );
3528 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
3548 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
3549 Tcl_AppendResult( interp,
"command syntax: \"",
3555 if ( (!0 && 0 && (argc < (1 + 0 - 0))) ||
3556 (!0 && !0 && (argc != (0 + 1))) ||
3557 ( 0 && (argc != 1) && (argc != (0 + 1))) ) {
3558 Tcl_AppendResult( interp,
"wrong # args: should be \"",
3569 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
3593 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
3594 Tcl_AppendResult( interp,
"command syntax: \"",
3595 "pljoin x1 y1 x2 y2",
"\"",
3600 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
3601 (!0 && !0 && (argc != (4 + 1))) ||
3602 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
3603 Tcl_AppendResult( interp,
"wrong # args: should be \"",
3604 "pljoin x1 y1 x2 y2",
"\"",
3609 x1 = atof(argv[1+0]);
3610 y1 = atof(argv[1+1]);
3611 x2 = atof(argv[1+2]);
3612 y2 = atof(argv[1+3]);
3614 pljoin ( x1, y1, x2, y2 );
3618 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
3641 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
3642 Tcl_AppendResult( interp,
"command syntax: \"",
3643 "pllab xlabel ylabel tlabel",
"\"",
3648 if ( (!0 && 0 && (argc < (1 + 3 - 0))) ||
3649 (!0 && !0 && (argc != (3 + 1))) ||
3650 ( 0 && (argc != 1) && (argc != (3 + 1))) ) {
3651 Tcl_AppendResult( interp,
"wrong # args: should be \"",
3652 "pllab xlabel ylabel tlabel",
"\"",
3661 pllab ( xlabel, ylabel, tlabel );
3665 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
3688 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
3689 Tcl_AppendResult( interp,
"command syntax: \"",
3690 "pllightsource x y z",
"\"",
3695 if ( (!0 && 0 && (argc < (1 + 3 - 0))) ||
3696 (!0 && !0 && (argc != (3 + 1))) ||
3697 ( 0 && (argc != 1) && (argc != (3 + 1))) ) {
3698 Tcl_AppendResult( interp,
"wrong # args: should be \"",
3699 "pllightsource x y z",
"\"",
3704 x = atof(argv[1+0]);
3705 y = atof(argv[1+1]);
3706 z = atof(argv[1+2]);
3712 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
3737 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
3738 Tcl_AppendResult( interp,
"command syntax: \"",
3739 "plline n x y",
"\"",
3744 if ( (!0 && 0 && (argc < (1 + 3 - 0))) ||
3745 (!0 && !0 && (argc != (3 + 1))) ||
3746 ( 0 && (argc != 1) && (argc != (3 + 1))) ) {
3747 Tcl_AppendResult( interp,
"wrong # args: should be \"",
3748 "plline n x y",
"\"",
3753 n = atoi(argv[1+0]);
3755 if (matx == NULL)
return TCL_ERROR;
3758 if (maty == NULL)
return TCL_ERROR;
3765 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
3792 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
3793 Tcl_AppendResult( interp,
"command syntax: \"",
3794 "plline3 n x y z",
"\"",
3799 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
3800 (!0 && !0 && (argc != (4 + 1))) ||
3801 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
3802 Tcl_AppendResult( interp,
"wrong # args: should be \"",
3803 "plline3 n x y z",
"\"",
3808 n = atoi(argv[1+0]);
3810 if (matx == NULL)
return TCL_ERROR;
3813 if (maty == NULL)
return TCL_ERROR;
3816 if (matz == NULL)
return TCL_ERROR;
3823 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
3844 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
3845 Tcl_AppendResult( interp,
"command syntax: \"",
3851 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
3852 (!0 && !0 && (argc != (1 + 1))) ||
3853 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
3854 Tcl_AppendResult( interp,
"wrong # args: should be \"",
3860 lin = atoi(argv[1+0]);
3866 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
3887 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
3888 Tcl_AppendResult( interp,
"command syntax: \"",
3889 "plmkstrm ?strm?",
"\"",
3894 if ( (!1 && 0 && (argc < (1 + 1 - 0))) ||
3895 (!1 && !0 && (argc != (1 + 1))) ||
3896 ( 1 && (argc != 1) && (argc != (1 + 1))) ) {
3897 Tcl_AppendResult( interp,
"wrong # args: should be \"",
3898 "plmkstrm ?strm?",
"\"",
3907 sprintf(
buf,
"%d", strm );
3909 Tcl_SetVar( interp, argv[1+0],
buf, 0 );
3911 Tcl_AppendResult( interp,
buf, (
char *) NULL );
3914 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
3939 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
3940 Tcl_AppendResult( interp,
"command syntax: \"",
3941 "plmtex side disp pos just text",
"\"",
3946 if ( (!0 && 0 && (argc < (1 + 5 - 0))) ||
3947 (!0 && !0 && (argc != (5 + 1))) ||
3948 ( 0 && (argc != 1) && (argc != (5 + 1))) ) {
3949 Tcl_AppendResult( interp,
"wrong # args: should be \"",
3950 "plmtex side disp pos just text",
"\"",
3956 disp = atof(argv[1+1]);
3957 pos = atof(argv[1+2]);
3958 just = atof(argv[1+3]);
3961 plmtex ( side, disp, pos, just, text );
3965 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
3990 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
3991 Tcl_AppendResult( interp,
"command syntax: \"",
3992 "plmtex3 side disp pos just text",
"\"",
3997 if ( (!0 && 0 && (argc < (1 + 5 - 0))) ||
3998 (!0 && !0 && (argc != (5 + 1))) ||
3999 ( 0 && (argc != 1) && (argc != (5 + 1))) ) {
4000 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4001 "plmtex3 side disp pos just text",
"\"",
4007 disp = atof(argv[1+1]);
4008 pos = atof(argv[1+2]);
4009 just = atof(argv[1+3]);
4012 plmtex3 ( side, disp, pos, just, text );
4016 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4041 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4042 Tcl_AppendResult( interp,
"command syntax: \"",
4043 "plpat nlin inc del",
"\"",
4048 if ( (!0 && 0 && (argc < (1 + 3 - 0))) ||
4049 (!0 && !0 && (argc != (3 + 1))) ||
4050 ( 0 && (argc != 1) && (argc != (3 + 1))) ) {
4051 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4052 "plpat nlin inc del",
"\"",
4057 nlin = atoi(argv[1+0]);
4059 if (matinc == NULL)
return TCL_ERROR;
4060 inc = matinc->
idata;
4062 if (matdel == NULL)
return TCL_ERROR;
4063 del = matdel->
idata;
4065 plpat ( nlin, inc, del );
4069 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4095 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4096 Tcl_AppendResult( interp,
"command syntax: \"",
4097 "plpoin n x y code",
"\"",
4102 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
4103 (!0 && !0 && (argc != (4 + 1))) ||
4104 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
4105 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4106 "plpoin n x y code",
"\"",
4111 n = atoi(argv[1+0]);
4113 if (matx == NULL)
return TCL_ERROR;
4116 if (maty == NULL)
return TCL_ERROR;
4118 code = atoi(argv[1+3]);
4120 plpoin ( n, x, y, code );
4124 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4152 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4153 Tcl_AppendResult( interp,
"command syntax: \"",
4154 "plpoin3 n x y z code",
"\"",
4159 if ( (!0 && 0 && (argc < (1 + 5 - 0))) ||
4160 (!0 && !0 && (argc != (5 + 1))) ||
4161 ( 0 && (argc != 1) && (argc != (5 + 1))) ) {
4162 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4163 "plpoin3 n x y z code",
"\"",
4168 n = atoi(argv[1+0]);
4170 if (matx == NULL)
return TCL_ERROR;
4173 if (maty == NULL)
return TCL_ERROR;
4176 if (matz == NULL)
return TCL_ERROR;
4178 code = atoi(argv[1+4]);
4184 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4214 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4215 Tcl_AppendResult( interp,
"command syntax: \"",
4216 "plpoly3 n x y z draw ifcc",
"\"",
4221 if ( (!0 && 0 && (argc < (1 + 6 - 0))) ||
4222 (!0 && !0 && (argc != (6 + 1))) ||
4223 ( 0 && (argc != 1) && (argc != (6 + 1))) ) {
4224 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4225 "plpoly3 n x y z draw ifcc",
"\"",
4230 n = atoi(argv[1+0]);
4232 if (matx == NULL)
return TCL_ERROR;
4235 if (maty == NULL)
return TCL_ERROR;
4238 if (matz == NULL)
return TCL_ERROR;
4241 if (matdraw == NULL)
return TCL_ERROR;
4242 draw = matdraw->
idata;
4243 ifcc = atoi(argv[1+5]);
4245 plpoly3 ( n, x, y, z, draw, ifcc );
4249 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4271 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4272 Tcl_AppendResult( interp,
"command syntax: \"",
4273 "plprec setp prec",
"\"",
4278 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
4279 (!0 && !0 && (argc != (2 + 1))) ||
4280 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
4281 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4282 "plprec setp prec",
"\"",
4287 setp = atoi(argv[1+0]);
4288 prec = atoi(argv[1+1]);
4294 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4315 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4316 Tcl_AppendResult( interp,
"command syntax: \"",
4317 "plpsty patt",
"\"",
4322 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
4323 (!0 && !0 && (argc != (1 + 1))) ||
4324 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
4325 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4326 "plpsty patt",
"\"",
4331 patt = atoi(argv[1+0]);
4337 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4363 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4364 Tcl_AppendResult( interp,
"command syntax: \"",
4365 "plptex x y dx dy just text",
"\"",
4370 if ( (!0 && 0 && (argc < (1 + 6 - 0))) ||
4371 (!0 && !0 && (argc != (6 + 1))) ||
4372 ( 0 && (argc != 1) && (argc != (6 + 1))) ) {
4373 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4374 "plptex x y dx dy just text",
"\"",
4379 x = atof(argv[1+0]);
4380 y = atof(argv[1+1]);
4381 dx = atof(argv[1+2]);
4382 dy = atof(argv[1+3]);
4383 just = atof(argv[1+4]);
4386 plptex ( x, y, dx, dy, just, text );
4390 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4421 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4422 Tcl_AppendResult( interp,
"command syntax: \"",
4423 "plptex3 wx wy wz dx dy dz sx sy sz just text",
"\"",
4428 if ( (!0 && 0 && (argc < (1 + 11 - 0))) ||
4429 (!0 && !0 && (argc != (11 + 1))) ||
4430 ( 0 && (argc != 1) && (argc != (11 + 1))) ) {
4431 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4432 "plptex3 wx wy wz dx dy dz sx sy sz just text",
"\"",
4437 wx = atof(argv[1+0]);
4438 wy = atof(argv[1+1]);
4439 wz = atof(argv[1+2]);
4440 dx = atof(argv[1+3]);
4441 dy = atof(argv[1+4]);
4442 dz = atof(argv[1+5]);
4443 sx = atof(argv[1+6]);
4444 sy = atof(argv[1+7]);
4445 sz = atof(argv[1+8]);
4446 just = atof(argv[1+9]);
4449 plptex3 ( wx, wy, wz, dx, dy, dz, sx, sy, sz, just, text );
4453 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4473 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4474 Tcl_AppendResult( interp,
"command syntax: \"",
4480 if ( (!0 && 0 && (argc < (1 + 0 - 0))) ||
4481 (!0 && !0 && (argc != (0 + 1))) ||
4482 ( 0 && (argc != 1) && (argc != (0 + 1))) ) {
4483 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4494 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4520 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4521 Tcl_AppendResult( interp,
"command syntax: \"",
4522 "plrgbhls ?r g b h l s?",
"\"",
4527 if ( (!1 && 0 && (argc < (1 + 6 - 0))) ||
4528 (!1 && !0 && (argc != (6 + 1))) ||
4529 ( 1 && (argc != 1) && (argc != (6 + 1))) ) {
4530 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4531 "plrgbhls ?r g b h l s?",
"\"",
4536 r = atof(argv[1+0]);
4537 g = atof(argv[1+1]);
4538 b = atof(argv[1+2]);
4546 Tcl_AppendResult( interp,
" ", (
char *) NULL );
4547 Tcl_PrintDouble( interp, h,
buf );
4549 Tcl_SetVar( interp, argv[1+3],
buf, 0 );
4551 Tcl_AppendResult( interp,
buf, (
char *) NULL );
4553 Tcl_AppendResult( interp,
" ", (
char *) NULL );
4554 Tcl_PrintDouble( interp, l,
buf );
4556 Tcl_SetVar( interp, argv[1+4],
buf, 0 );
4558 Tcl_AppendResult( interp,
buf, (
char *) NULL );
4560 Tcl_AppendResult( interp,
" ", (
char *) NULL );
4561 Tcl_PrintDouble( interp, s,
buf );
4563 Tcl_SetVar( interp, argv[1+5],
buf, 0 );
4565 Tcl_AppendResult( interp,
buf, (
char *) NULL );
4568 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4590 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4591 Tcl_AppendResult( interp,
"command syntax: \"",
4592 "plschr def scale",
"\"",
4597 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
4598 (!0 && !0 && (argc != (2 + 1))) ||
4599 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
4600 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4601 "plschr def scale",
"\"",
4606 def = atof(argv[1+0]);
4607 scale = atof(argv[1+1]);
4613 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4640 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4641 Tcl_AppendResult( interp,
"command syntax: \"",
4642 "plscmap0 r g b ncol0",
"\"",
4647 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
4648 (!0 && !0 && (argc != (4 + 1))) ||
4649 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
4650 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4651 "plscmap0 r g b ncol0",
"\"",
4657 if (matr == NULL)
return TCL_ERROR;
4660 if (matg == NULL)
return TCL_ERROR;
4663 if (matb == NULL)
return TCL_ERROR;
4665 ncol0 = atoi(argv[1+3]);
4671 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4700 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4701 Tcl_AppendResult( interp,
"command syntax: \"",
4702 "plscmap0a r g b a ncol0",
"\"",
4707 if ( (!0 && 0 && (argc < (1 + 5 - 0))) ||
4708 (!0 && !0 && (argc != (5 + 1))) ||
4709 ( 0 && (argc != 1) && (argc != (5 + 1))) ) {
4710 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4711 "plscmap0a r g b a ncol0",
"\"",
4717 if (matr == NULL)
return TCL_ERROR;
4720 if (matg == NULL)
return TCL_ERROR;
4723 if (matb == NULL)
return TCL_ERROR;
4726 if (mata == NULL)
return TCL_ERROR;
4728 ncol0 = atoi(argv[1+4]);
4734 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4755 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4756 Tcl_AppendResult( interp,
"command syntax: \"",
4757 "plscmap0n ncol0",
"\"",
4762 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
4763 (!0 && !0 && (argc != (1 + 1))) ||
4764 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
4765 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4766 "plscmap0n ncol0",
"\"",
4771 ncol0 = atoi(argv[1+0]);
4777 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4804 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4805 Tcl_AppendResult( interp,
"command syntax: \"",
4806 "plscmap1 r g b ncol1",
"\"",
4811 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
4812 (!0 && !0 && (argc != (4 + 1))) ||
4813 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
4814 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4815 "plscmap1 r g b ncol1",
"\"",
4821 if (matr == NULL)
return TCL_ERROR;
4824 if (matg == NULL)
return TCL_ERROR;
4827 if (matb == NULL)
return TCL_ERROR;
4829 ncol1 = atoi(argv[1+3]);
4835 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4864 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4865 Tcl_AppendResult( interp,
"command syntax: \"",
4866 "plscmap1a r g b a ncol1",
"\"",
4871 if ( (!0 && 0 && (argc < (1 + 5 - 0))) ||
4872 (!0 && !0 && (argc != (5 + 1))) ||
4873 ( 0 && (argc != 1) && (argc != (5 + 1))) ) {
4874 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4875 "plscmap1a r g b a ncol1",
"\"",
4881 if (matr == NULL)
return TCL_ERROR;
4884 if (matg == NULL)
return TCL_ERROR;
4887 if (matb == NULL)
return TCL_ERROR;
4890 if (mata == NULL)
return TCL_ERROR;
4892 ncol1 = atoi(argv[1+4]);
4898 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4925 PLINT *alt_hue_path;
4930 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4931 Tcl_AppendResult( interp,
"command syntax: \"",
4932 "plscmap1l itype npts intensity coord1 coord2 coord3 alt_hue_path",
"\"",
4937 if ( (!0 && 0 && (argc < (1 + 7 - 0))) ||
4938 (!0 && !0 && (argc != (7 + 1))) ||
4939 ( 0 && (argc != 1) && (argc != (7 + 1))) ) {
4940 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4941 "plscmap1l itype npts intensity coord1 coord2 coord3 alt_hue_path",
"\"",
4946 itype = atoi(argv[1+0]);
4947 npts = atoi(argv[1+1]);
4949 if (matintensity == NULL)
return TCL_ERROR;
4950 intensity = matintensity->
fdata;
4952 if (matcoord1 == NULL)
return TCL_ERROR;
4953 coord1 = matcoord1->
fdata;
4955 if (matcoord2 == NULL)
return TCL_ERROR;
4956 coord2 = matcoord2->
fdata;
4958 if (matcoord3 == NULL)
return TCL_ERROR;
4959 coord3 = matcoord3->
fdata;
4961 if (matalt_hue_path == NULL)
return TCL_ERROR;
4962 alt_hue_path = matalt_hue_path->
idata;
4964 plscmap1l ( itype, npts, intensity, coord1, coord2, coord3, alt_hue_path );
4968 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4997 PLINT *alt_hue_path;
5002 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5003 Tcl_AppendResult( interp,
"command syntax: \"",
5004 "plscmap1la itype npts intensity coord1 coord2 coord3 a alt_hue_path",
"\"",
5009 if ( (!0 && 0 && (argc < (1 + 8 - 0))) ||
5010 (!0 && !0 && (argc != (8 + 1))) ||
5011 ( 0 && (argc != 1) && (argc != (8 + 1))) ) {
5012 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5013 "plscmap1la itype npts intensity coord1 coord2 coord3 a alt_hue_path",
"\"",
5018 itype = atoi(argv[1+0]);
5019 npts = atoi(argv[1+1]);
5021 if (matintensity == NULL)
return TCL_ERROR;
5022 intensity = matintensity->
fdata;
5024 if (matcoord1 == NULL)
return TCL_ERROR;
5025 coord1 = matcoord1->
fdata;
5027 if (matcoord2 == NULL)
return TCL_ERROR;
5028 coord2 = matcoord2->
fdata;
5030 if (matcoord3 == NULL)
return TCL_ERROR;
5031 coord3 = matcoord3->
fdata;
5033 if (mata == NULL)
return TCL_ERROR;
5036 if (matalt_hue_path == NULL)
return TCL_ERROR;
5037 alt_hue_path = matalt_hue_path->
idata;
5039 plscmap1la ( itype, npts, intensity, coord1, coord2, coord3, a, alt_hue_path );
5043 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5064 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5065 Tcl_AppendResult( interp,
"command syntax: \"",
5066 "plscmap1n ncol1",
"\"",
5071 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
5072 (!0 && !0 && (argc != (1 + 1))) ||
5073 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
5074 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5075 "plscmap1n ncol1",
"\"",
5080 ncol1 = atoi(argv[1+0]);
5086 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5108 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5109 Tcl_AppendResult( interp,
"command syntax: \"",
5110 "plscmap1_range min_color max_color",
"\"",
5115 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
5116 (!0 && !0 && (argc != (2 + 1))) ||
5117 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
5118 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5119 "plscmap1_range min_color max_color",
"\"",
5124 min_color = atof(argv[1+0]);
5125 max_color = atof(argv[1+1]);
5131 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5155 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5156 Tcl_AppendResult( interp,
"command syntax: \"",
5157 "plscol0 icol0 r g b",
"\"",
5162 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
5163 (!0 && !0 && (argc != (4 + 1))) ||
5164 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
5165 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5166 "plscol0 icol0 r g b",
"\"",
5171 icol0 = atoi(argv[1+0]);
5172 r = atoi(argv[1+1]);
5173 g = atoi(argv[1+2]);
5174 b = atoi(argv[1+3]);
5180 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5205 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5206 Tcl_AppendResult( interp,
"command syntax: \"",
5207 "plscol0a icol0 r g b a",
"\"",
5212 if ( (!0 && 0 && (argc < (1 + 5 - 0))) ||
5213 (!0 && !0 && (argc != (5 + 1))) ||
5214 ( 0 && (argc != 1) && (argc != (5 + 1))) ) {
5215 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5216 "plscol0a icol0 r g b a",
"\"",
5221 icol0 = atoi(argv[1+0]);
5222 r = atoi(argv[1+1]);
5223 g = atoi(argv[1+2]);
5224 b = atoi(argv[1+3]);
5225 a = atof(argv[1+4]);
5231 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5254 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5255 Tcl_AppendResult( interp,
"command syntax: \"",
5256 "plscolbg r g b",
"\"",
5261 if ( (!0 && 0 && (argc < (1 + 3 - 0))) ||
5262 (!0 && !0 && (argc != (3 + 1))) ||
5263 ( 0 && (argc != 1) && (argc != (3 + 1))) ) {
5264 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5265 "plscolbg r g b",
"\"",
5270 r = atoi(argv[1+0]);
5271 g = atoi(argv[1+1]);
5272 b = atoi(argv[1+2]);
5278 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5302 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5303 Tcl_AppendResult( interp,
"command syntax: \"",
5304 "plscolbga r g b a",
"\"",
5309 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
5310 (!0 && !0 && (argc != (4 + 1))) ||
5311 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
5312 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5313 "plscolbga r g b a",
"\"",
5318 r = atoi(argv[1+0]);
5319 g = atoi(argv[1+1]);
5320 b = atoi(argv[1+2]);
5321 a = atof(argv[1+3]);
5327 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5348 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5349 Tcl_AppendResult( interp,
"command syntax: \"",
5350 "plscolor color",
"\"",
5355 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
5356 (!0 && !0 && (argc != (1 + 1))) ||
5357 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
5358 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5359 "plscolor color",
"\"",
5364 color = atoi(argv[1+0]);
5370 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5391 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5392 Tcl_AppendResult( interp,
"command syntax: \"",
5393 "plscompression compression",
"\"",
5398 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
5399 (!0 && !0 && (argc != (1 + 1))) ||
5400 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
5401 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5402 "plscompression compression",
"\"",
5407 compression = atoi(argv[1+0]);
5413 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5434 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5435 Tcl_AppendResult( interp,
"command syntax: \"",
5436 "plsdev devnam",
"\"",
5441 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
5442 (!0 && !0 && (argc != (1 + 1))) ||
5443 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
5444 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5445 "plsdev devnam",
"\"",
5456 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5480 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5481 Tcl_AppendResult( interp,
"command syntax: \"",
5482 "plsdidev mar aspect jx jy",
"\"",
5487 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
5488 (!0 && !0 && (argc != (4 + 1))) ||
5489 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
5490 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5491 "plsdidev mar aspect jx jy",
"\"",
5496 mar = atof(argv[1+0]);
5497 aspect = atof(argv[1+1]);
5498 jx = atof(argv[1+2]);
5499 jy = atof(argv[1+3]);
5505 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5531 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5532 Tcl_AppendResult( interp,
"command syntax: \"",
5533 "plsdimap dimxmin dimxmax dimymin dimymax dimxpmm dimypmm",
"\"",
5538 if ( (!0 && 0 && (argc < (1 + 6 - 0))) ||
5539 (!0 && !0 && (argc != (6 + 1))) ||
5540 ( 0 && (argc != 1) && (argc != (6 + 1))) ) {
5541 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5542 "plsdimap dimxmin dimxmax dimymin dimymax dimxpmm dimypmm",
"\"",
5547 dimxmin = atoi(argv[1+0]);
5548 dimxmax = atoi(argv[1+1]);
5549 dimymin = atoi(argv[1+2]);
5550 dimymax = atoi(argv[1+3]);
5551 dimxpmm = atof(argv[1+4]);
5552 dimypmm = atof(argv[1+5]);
5554 plsdimap ( dimxmin, dimxmax, dimymin, dimymax, dimxpmm, dimypmm );
5558 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5579 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5580 Tcl_AppendResult( interp,
"command syntax: \"",
5581 "plsdiori rot",
"\"",
5586 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
5587 (!0 && !0 && (argc != (1 + 1))) ||
5588 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
5589 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5590 "plsdiori rot",
"\"",
5595 rot = atof(argv[1+0]);
5601 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5625 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5626 Tcl_AppendResult( interp,
"command syntax: \"",
5627 "plsdiplt xmin ymin xmax ymax",
"\"",
5632 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
5633 (!0 && !0 && (argc != (4 + 1))) ||
5634 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
5635 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5636 "plsdiplt xmin ymin xmax ymax",
"\"",
5641 xmin = atof(argv[1+0]);
5642 ymin = atof(argv[1+1]);
5643 xmax = atof(argv[1+2]);
5644 ymax = atof(argv[1+3]);
5646 plsdiplt ( xmin, ymin, xmax, ymax );
5650 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5674 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5675 Tcl_AppendResult( interp,
"command syntax: \"",
5676 "plsdiplz xmin ymin xmax ymax",
"\"",
5681 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
5682 (!0 && !0 && (argc != (4 + 1))) ||
5683 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
5684 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5685 "plsdiplz xmin ymin xmax ymax",
"\"",
5690 xmin = atof(argv[1+0]);
5691 ymin = atof(argv[1+1]);
5692 xmax = atof(argv[1+2]);
5693 ymax = atof(argv[1+3]);
5695 plsdiplz ( xmin, ymin, xmax, ymax );
5699 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5720 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5721 Tcl_AppendResult( interp,
"command syntax: \"",
5727 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
5728 (!0 && !0 && (argc != (1 + 1))) ||
5729 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
5730 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5736 s = (
unsigned int) strtoul(argv[1+0],NULL,10);
5742 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5763 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5764 Tcl_AppendResult( interp,
"command syntax: \"",
5770 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
5771 (!0 && !0 && (argc != (1 + 1))) ||
5772 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
5773 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5785 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5808 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5809 Tcl_AppendResult( interp,
"command syntax: \"",
5810 "plsfam fam num bmax",
"\"",
5815 if ( (!0 && 0 && (argc < (1 + 3 - 0))) ||
5816 (!0 && !0 && (argc != (3 + 1))) ||
5817 ( 0 && (argc != 1) && (argc != (3 + 1))) ) {
5818 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5819 "plsfam fam num bmax",
"\"",
5824 fam = atoi(argv[1+0]);
5825 num = atoi(argv[1+1]);
5826 bmax = atoi(argv[1+2]);
5828 plsfam ( fam, num, bmax );
5832 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5853 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5854 Tcl_AppendResult( interp,
"command syntax: \"",
5860 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
5861 (!0 && !0 && (argc != (1 + 1))) ||
5862 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
5863 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5869 fci = (
PLUNICODE) strtoul(argv[1+0],NULL,10);
5875 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5896 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5897 Tcl_AppendResult( interp,
"command syntax: \"",
5898 "plsfnam fnam",
"\"",
5903 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
5904 (!0 && !0 && (argc != (1 + 1))) ||
5905 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
5906 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5907 "plsfnam fnam",
"\"",
5918 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5941 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5942 Tcl_AppendResult( interp,
"command syntax: \"",
5943 "plsfont family style weight",
"\"",
5948 if ( (!0 && 0 && (argc < (1 + 3 - 0))) ||
5949 (!0 && !0 && (argc != (3 + 1))) ||
5950 ( 0 && (argc != 1) && (argc != (3 + 1))) ) {
5951 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5952 "plsfont family style weight",
"\"",
5957 family = atoi(argv[1+0]);
5958 style = atoi(argv[1+1]);
5959 weight = atoi(argv[1+2]);
5961 plsfont ( family, style, weight );
5965 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5987 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5988 Tcl_AppendResult( interp,
"command syntax: \"",
5989 "plsmaj def scale",
"\"",
5994 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
5995 (!0 && !0 && (argc != (2 + 1))) ||
5996 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
5997 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5998 "plsmaj def scale",
"\"",
6003 def = atof(argv[1+0]);
6004 scale = atof(argv[1+1]);
6010 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6032 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6033 Tcl_AppendResult( interp,
"command syntax: \"",
6034 "plsmin def scale",
"\"",
6039 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
6040 (!0 && !0 && (argc != (2 + 1))) ||
6041 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
6042 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6043 "plsmin def scale",
"\"",
6048 def = atof(argv[1+0]);
6049 scale = atof(argv[1+1]);
6055 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6076 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6077 Tcl_AppendResult( interp,
"command syntax: \"",
6083 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
6084 (!0 && !0 && (argc != (1 + 1))) ||
6085 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
6086 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6092 ori = atoi(argv[1+0]);
6098 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6124 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6125 Tcl_AppendResult( interp,
"command syntax: \"",
6126 "plspage xp yp xleng yleng xoff yoff",
"\"",
6131 if ( (!0 && 0 && (argc < (1 + 6 - 0))) ||
6132 (!0 && !0 && (argc != (6 + 1))) ||
6133 ( 0 && (argc != 1) && (argc != (6 + 1))) ) {
6134 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6135 "plspage xp yp xleng yleng xoff yoff",
"\"",
6140 xp = atof(argv[1+0]);
6141 yp = atof(argv[1+1]);
6142 xleng = atoi(argv[1+2]);
6143 yleng = atoi(argv[1+3]);
6144 xoff = atoi(argv[1+4]);
6145 yoff = atoi(argv[1+5]);
6147 plspage ( xp, yp, xleng, yleng, xoff, yoff );
6151 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6168 const char *filename;
6172 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6173 Tcl_AppendResult( interp,
"command syntax: \"",
6174 "plspal0 filename",
"\"",
6179 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
6180 (!0 && !0 && (argc != (1 + 1))) ||
6181 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
6182 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6183 "plspal0 filename",
"\"",
6188 filename = argv[1+0];
6194 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6211 const char *filename;
6216 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6217 Tcl_AppendResult( interp,
"command syntax: \"",
6218 "plspal1 filename interpolate",
"\"",
6223 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
6224 (!0 && !0 && (argc != (2 + 1))) ||
6225 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
6226 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6227 "plspal1 filename interpolate",
"\"",
6232 filename = argv[1+0];
6233 interpolate = atoi(argv[1+1]);
6235 plspal1 ( filename, interpolate );
6239 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6260 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6261 Tcl_AppendResult( interp,
"command syntax: \"",
6262 "plspause paus",
"\"",
6267 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
6268 (!0 && !0 && (argc != (1 + 1))) ||
6269 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
6270 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6271 "plspause paus",
"\"",
6276 paus = atoi(argv[1+0]);
6282 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6303 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6304 Tcl_AppendResult( interp,
"command syntax: \"",
6305 "plsstrm strm",
"\"",
6310 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
6311 (!0 && !0 && (argc != (1 + 1))) ||
6312 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
6313 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6314 "plsstrm strm",
"\"",
6319 strm = atoi(argv[1+0]);
6325 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6347 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6348 Tcl_AppendResult( interp,
"command syntax: \"",
6349 "plssub nx ny",
"\"",
6354 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
6355 (!0 && !0 && (argc != (2 + 1))) ||
6356 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
6357 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6358 "plssub nx ny",
"\"",
6363 nx = atoi(argv[1+0]);
6364 ny = atoi(argv[1+1]);
6370 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6392 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6393 Tcl_AppendResult( interp,
"command syntax: \"",
6394 "plssym def scale",
"\"",
6399 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
6400 (!0 && !0 && (argc != (2 + 1))) ||
6401 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
6402 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6403 "plssym def scale",
"\"",
6408 def = atof(argv[1+0]);
6409 scale = atof(argv[1+1]);
6415 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6437 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6438 Tcl_AppendResult( interp,
"command syntax: \"",
6439 "plstar nx ny",
"\"",
6444 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
6445 (!0 && !0 && (argc != (2 + 1))) ||
6446 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
6447 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6448 "plstar nx ny",
"\"",
6453 nx = atoi(argv[1+0]);
6454 ny = atoi(argv[1+1]);
6460 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6477 const char *devname;
6483 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6484 Tcl_AppendResult( interp,
"command syntax: \"",
6485 "plstart devname nx ny",
"\"",
6490 if ( (!0 && 0 && (argc < (1 + 3 - 0))) ||
6491 (!0 && !0 && (argc != (3 + 1))) ||
6492 ( 0 && (argc != 1) && (argc != (3 + 1))) ) {
6493 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6494 "plstart devname nx ny",
"\"",
6499 devname = argv[1+0];
6500 nx = atoi(argv[1+1]);
6501 ny = atoi(argv[1+2]);
6507 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6533 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6534 Tcl_AppendResult( interp,
"command syntax: \"",
6535 "plstring n x y string",
"\"",
6540 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
6541 (!0 && !0 && (argc != (4 + 1))) ||
6542 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
6543 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6544 "plstring n x y string",
"\"",
6549 n = atoi(argv[1+0]);
6551 if (matx == NULL)
return TCL_ERROR;
6554 if (maty == NULL)
return TCL_ERROR;
6562 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6590 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6591 Tcl_AppendResult( interp,
"command syntax: \"",
6592 "plstring3 n x y z string",
"\"",
6597 if ( (!0 && 0 && (argc < (1 + 5 - 0))) ||
6598 (!0 && !0 && (argc != (5 + 1))) ||
6599 ( 0 && (argc != 1) && (argc != (5 + 1))) ) {
6600 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6601 "plstring3 n x y z string",
"\"",
6606 n = atoi(argv[1+0]);
6608 if (matx == NULL)
return TCL_ERROR;
6611 if (maty == NULL)
return TCL_ERROR;
6614 if (matz == NULL)
return TCL_ERROR;
6622 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6646 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6647 Tcl_AppendResult( interp,
"command syntax: \"",
6648 "plstripa id pen x y",
"\"",
6653 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
6654 (!0 && !0 && (argc != (4 + 1))) ||
6655 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
6656 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6657 "plstripa id pen x y",
"\"",
6662 id = atoi(argv[1+0]);
6663 pen = atoi(argv[1+1]);
6664 x = atof(argv[1+2]);
6665 y = atof(argv[1+3]);
6671 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6692 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6693 Tcl_AppendResult( interp,
"command syntax: \"",
6694 "plstripd id",
"\"",
6699 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
6700 (!0 && !0 && (argc != (1 + 1))) ||
6701 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
6702 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6703 "plstripd id",
"\"",
6708 id = atoi(argv[1+0]);
6714 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6739 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6740 Tcl_AppendResult( interp,
"command syntax: \"",
6741 "plstyl nms mark space",
"\"",
6746 if ( (!0 && 0 && (argc < (1 + 3 - 0))) ||
6747 (!0 && !0 && (argc != (3 + 1))) ||
6748 ( 0 && (argc != 1) && (argc != (3 + 1))) ) {
6749 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6750 "plstyl nms mark space",
"\"",
6755 nms = atoi(argv[1+0]);
6757 if (matmark == NULL)
return TCL_ERROR;
6758 mark = matmark->
idata;
6760 if (matspace == NULL)
return TCL_ERROR;
6761 space = matspace->
idata;
6763 plstyl ( nms, mark, space );
6767 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6793 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6794 Tcl_AppendResult( interp,
"command syntax: \"",
6795 "plsvect arrowx arrowy npts fill",
"\"",
6800 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
6801 (!0 && !0 && (argc != (4 + 1))) ||
6802 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
6803 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6804 "plsvect arrowx arrowy npts fill",
"\"",
6810 if (matarrowx == NULL)
return TCL_ERROR;
6811 arrowx = matarrowx->
fdata;
6813 if (matarrowy == NULL)
return TCL_ERROR;
6814 arrowy = matarrowy->
fdata;
6815 npts = atoi(argv[1+2]);
6816 fill = atoi(argv[1+3]);
6818 plsvect ( arrowx, arrowy, npts, fill );
6822 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6846 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6847 Tcl_AppendResult( interp,
"command syntax: \"",
6848 "plsvpa xmin xmax ymin ymax",
"\"",
6853 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
6854 (!0 && !0 && (argc != (4 + 1))) ||
6855 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
6856 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6857 "plsvpa xmin xmax ymin ymax",
"\"",
6862 xmin = atof(argv[1+0]);
6863 xmax = atof(argv[1+1]);
6864 ymin = atof(argv[1+2]);
6865 ymax = atof(argv[1+3]);
6867 plsvpa ( xmin, xmax, ymin, ymax );
6871 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6893 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6894 Tcl_AppendResult( interp,
"command syntax: \"",
6895 "plsxax digmax digits",
"\"",
6900 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
6901 (!0 && !0 && (argc != (2 + 1))) ||
6902 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
6903 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6904 "plsxax digmax digits",
"\"",
6909 digmax = atoi(argv[1+0]);
6910 digits = atoi(argv[1+1]);
6912 plsxax ( digmax, digits );
6916 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6938 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6939 Tcl_AppendResult( interp,
"command syntax: \"",
6940 "plsyax digmax digits",
"\"",
6945 if ( (!0 && 2 && (argc < (1 + 2 - 2))) ||
6946 (!0 && !2 && (argc != (2 + 1))) ||
6947 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
6948 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6949 "plsyax digmax digits",
"\"",
6955 digmax = atoi(argv[1+0]);
6958 digits = atoi(argv[1+1]);
6961 plsyax ( digmax, digits );
6965 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6991 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6992 Tcl_AppendResult( interp,
"command syntax: \"",
6993 "plsym n x y code",
"\"",
6998 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
6999 (!0 && !0 && (argc != (4 + 1))) ||
7000 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
7001 Tcl_AppendResult( interp,
"wrong # args: should be \"",
7002 "plsym n x y code",
"\"",
7007 n = atoi(argv[1+0]);
7009 if (matx == NULL)
return TCL_ERROR;
7012 if (maty == NULL)
return TCL_ERROR;
7014 code = atoi(argv[1+3]);
7016 plsym ( n, x, y, code );
7020 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
7042 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
7043 Tcl_AppendResult( interp,
"command syntax: \"",
7044 "plszax digmax digits",
"\"",
7049 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
7050 (!0 && !0 && (argc != (2 + 1))) ||
7051 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
7052 Tcl_AppendResult( interp,
"wrong # args: should be \"",
7053 "plszax digmax digits",
"\"",
7058 digmax = atoi(argv[1+0]);
7059 digits = atoi(argv[1+1]);
7061 plszax ( digmax, digits );
7065 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
7085 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
7086 Tcl_AppendResult( interp,
"command syntax: \"",
7092 if ( (!0 && 0 && (argc < (1 + 0 - 0))) ||
7093 (!0 && !0 && (argc != (0 + 1))) ||
7094 ( 0 && (argc != 1) && (argc != (0 + 1))) ) {
7095 Tcl_AppendResult( interp,
"wrong # args: should be \"",
7106 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
7127 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
7128 Tcl_AppendResult( interp,
"command syntax: \"",
7129 "pltimefmt fmt",
"\"",
7134 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
7135 (!0 && !0 && (argc != (1 + 1))) ||
7136 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
7137 Tcl_AppendResult( interp,
"wrong # args: should be \"",
7138 "pltimefmt fmt",
"\"",
7149 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
7170 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
7171 Tcl_AppendResult( interp,
"command syntax: \"",
7172 "plvasp aspect",
"\"",
7177 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
7178 (!0 && !0 && (argc != (1 + 1))) ||
7179 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
7180 Tcl_AppendResult( interp,
"wrong # args: should be \"",
7181 "plvasp aspect",
"\"",
7186 aspect = atof(argv[1+0]);
7192 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
7217 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
7218 Tcl_AppendResult( interp,
"command syntax: \"",
7219 "plvpas xmin xmax ymin ymax aspect",
"\"",
7224 if ( (!0 && 0 && (argc < (1 + 5 - 0))) ||
7225 (!0 && !0 && (argc != (5 + 1))) ||
7226 ( 0 && (argc != 1) && (argc != (5 + 1))) ) {
7227 Tcl_AppendResult( interp,
"wrong # args: should be \"",
7228 "plvpas xmin xmax ymin ymax aspect",
"\"",
7233 xmin = atof(argv[1+0]);
7234 xmax = atof(argv[1+1]);
7235 ymin = atof(argv[1+2]);
7236 ymax = atof(argv[1+3]);
7237 aspect = atof(argv[1+4]);
7239 plvpas ( xmin, xmax, ymin, ymax, aspect );
7243 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
7267 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
7268 Tcl_AppendResult( interp,
"command syntax: \"",
7269 "plvpor xmin xmax ymin ymax",
"\"",
7274 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
7275 (!0 && !0 && (argc != (4 + 1))) ||
7276 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
7277 Tcl_AppendResult( interp,
"wrong # args: should be \"",
7278 "plvpor xmin xmax ymin ymax",
"\"",
7283 xmin = atof(argv[1+0]);
7284 xmax = atof(argv[1+1]);
7285 ymin = atof(argv[1+2]);
7286 ymax = atof(argv[1+3]);
7288 plvpor ( xmin, xmax, ymin, ymax );
7292 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
7312 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
7313 Tcl_AppendResult( interp,
"command syntax: \"",
7319 if ( (!0 && 0 && (argc < (1 + 0 - 0))) ||
7320 (!0 && !0 && (argc != (0 + 1))) ||
7321 ( 0 && (argc != 1) && (argc != (0 + 1))) ) {
7322 Tcl_AppendResult( interp,
"wrong # args: should be \"",
7333 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
7364 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
7365 Tcl_AppendResult( interp,
"command syntax: \"",
7366 "plw3d basex basey height xmin0 xmax0 ymin0 ymax0 zmin0 zmax0 alt az",
"\"",
7371 if ( (!0 && 0 && (argc < (1 + 11 - 0))) ||
7372 (!0 && !0 && (argc != (11 + 1))) ||
7373 ( 0 && (argc != 1) && (argc != (11 + 1))) ) {
7374 Tcl_AppendResult( interp,
"wrong # args: should be \"",
7375 "plw3d basex basey height xmin0 xmax0 ymin0 ymax0 zmin0 zmax0 alt az",
"\"",
7380 basex = atof(argv[1+0]);
7381 basey = atof(argv[1+1]);
7382 height = atof(argv[1+2]);
7383 xmin0 = atof(argv[1+3]);
7384 xmax0 = atof(argv[1+4]);
7385 ymin0 = atof(argv[1+5]);
7386 ymax0 = atof(argv[1+6]);
7387 zmin0 = atof(argv[1+7]);
7388 zmax0 = atof(argv[1+8]);
7389 alt = atof(argv[1+9]);
7390 az = atof(argv[1+10]);
7392 plw3d ( basex, basey, height, xmin0, xmax0, ymin0, ymax0, zmin0, zmax0, alt, az );
7396 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
7417 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
7418 Tcl_AppendResult( interp,
"command syntax: \"",
7419 "plwidth width",
"\"",
7424 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
7425 (!0 && !0 && (argc != (1 + 1))) ||
7426 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
7427 Tcl_AppendResult( interp,
"wrong # args: should be \"",
7428 "plwidth width",
"\"",
7433 width = atof(argv[1+0]);
7439 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
7463 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
7464 Tcl_AppendResult( interp,
"command syntax: \"",
7465 "plwind xmin xmax ymin ymax",
"\"",
7470 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
7471 (!0 && !0 && (argc != (4 + 1))) ||
7472 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
7473 Tcl_AppendResult( interp,
"wrong # args: should be \"",
7474 "plwind xmin xmax ymin ymax",
"\"",
7479 xmin = atof(argv[1+0]);
7480 xmax = atof(argv[1+1]);
7481 ymin = atof(argv[1+2]);
7482 ymax = atof(argv[1+3]);
7484 plwind ( xmin, xmax, ymin, ymax );
7488 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
7510 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
7511 Tcl_AppendResult( interp,
"command syntax: \"",
7512 "plxormod ?mod st?",
"\"",
7517 if ( (!1 && 0 && (argc < (1 + 2 - 0))) ||
7518 (!1 && !0 && (argc != (2 + 1))) ||
7519 ( 1 && (argc != 1) && (argc != (2 + 1))) ) {
7520 Tcl_AppendResult( interp,
"wrong # args: should be \"",
7521 "plxormod ?mod st?",
"\"",
7526 mod = atoi(argv[1+0]);
7532 Tcl_AppendResult( interp,
" ", (
char *) NULL );
7533 sprintf(
buf,
"%d", st );
7535 Tcl_SetVar( interp, argv[1+1],
buf, 0 );
7537 Tcl_AppendResult( interp,
buf, (
char *) NULL );
7540 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
static int pllstyCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plscmap1Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
subroutine plbox(xopt, xtick, nxsub, yopt, ytick, nysub)
static int plmkstrmCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plgfamCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int pllightsourceCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plerryCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plptex3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT PLINT PLINT PLINT PLFLT PLFLT PLINT PLFLT PLINT const PLINT const char *const PLINT nx
static int plhlsrgbCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plsdidevCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
subroutine plmtex3(side, disp, pos, xjust, text)
static int plgfnamCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plgcolbgaCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plvaspCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
void pldid2pc(PLFLT *xmin, PLFLT *ymin, PLFLT *xmax, PLFLT *ymax)
static int plscompressionCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
subroutine plstring3(x, y, z, string)
static int plgstrmCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plcpstrmCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plsdimapCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plscmap0nCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plgzaxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
tclMatrix * Tcl_GetMatrixPtr(Tcl_Interp *interp, const char *matName)
static int plspal1Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plvporCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
subroutine plmtex(side, disp, pos, xjust, text)
static int plaxesCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
#define pl_setcontlabelparam
static int plscmap1aCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plreplotCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plscmap0aCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plschrCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
subroutine plstring(x, y, string)
static int plstringCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plgverCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plsminCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
void PLFLT PLINT PLINT PLFLT x
static int plgcmap1_rangeCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plgfontCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
void pldip2dc(PLFLT *xmin, PLFLT *ymin, PLFLT *xmax, PLFLT *ymax)
static int plvpasCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plgradientCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plsescCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plctimeCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plgpageCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plpoly3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT PLINT PLINT PLINT PLFLT PLFLT PLINT PLFLT PLINT const PLINT const char *const PLINT const char *const const PLFLT const PLINT const PLINT const PLFLT * a
static int plgescCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plgxaxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plline3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plscol0Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plcol1Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
subroutine plbox3(xopt, xlabel, xtick, nxsub, yopt, ylabel, ytick, nysub, zopt, zlabel, ztick, nzsub)
static int plstarCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plscmap1laCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plglevelCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plbinCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plprecCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plgcol0aCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plendCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plpoin3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plssymCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plxormodCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plgdidevCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plenvCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plsdipltCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int pladvCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plgspaCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plend1Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plenv0Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plpoinCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plgcompressionCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plscmap1lCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
void PLFLT PLINT PLINT PLFLT PLFLT y
subroutine plaxes(x0, y0, xopt, xtick, nxsub, yopt, ytick, nysub)
static int plmtex3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plfillCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plsdioriCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plbox3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plfontCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plscmap1nCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
subroutine plspal0(filename)
static int plrgbhlsCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plgyaxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plvstaCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plbtimeCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int pldip2dcCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plscolorCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plsvpaCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plflushCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plboxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plpatCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plspauseCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plsfontCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plgvpdCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plgdipltCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plclearCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plbopCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plstring3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plpstyCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plgvpwCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
subroutine plptex(x, y, dx, dy, xjust, text)
static int plsstrmCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plscol0aCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plwidthCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plsymCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plscolbgaCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plarcCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plstripdCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plscolbgCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
subroutine pllab(xlab, ylab, title)
static int plseedCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plsoriCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int pl_setcontlabelparamCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plw3dCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plhistCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plsmajCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plsdiplzCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plstripaCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plgfciCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plspageCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plstartCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plsdevCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int pllineCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plsxaxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plcol0Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plerrxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plgcol0Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
subroutine plspal1(filename, interpolate)
static int plstylCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plgchrCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plssubCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plwindCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int pldid2pcCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
subroutine plstart(devname, nx, ny)
static int plfontldCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plfamadvCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plsyaxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plgraCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int pllabCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
subroutine plptex3(x, y, z, dx, dy, dz, sx, sy, sz, xjust, text)
static int plscmap0Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int pleopCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plgcolbgCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plsfamCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plszaxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int pltimefmtCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static Tcl_Interp * interp
static int plinitCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plsfciCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
dx
if { $zoomopts($this,1) == 0 } then {
static int pljoinCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plconfigtimeCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plspal0Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int pl_setcontlabelformatCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plsvectCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plptexCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
subroutine pltimefmt(fmt)
static int plfill3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plgdevCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plsfnamCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plgdioriCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plmtexCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int pltextCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plscmap1_rangeCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
static int plcalc_worldCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])