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);
4094 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4095 Tcl_AppendResult( interp,
"command syntax: \"",
4096 "plpath n x1 y1 x2 y2",
"\"",
4101 if ( (!0 && 0 && (argc < (1 + 5 - 0))) ||
4102 (!0 && !0 && (argc != (5 + 1))) ||
4103 ( 0 && (argc != 1) && (argc != (5 + 1))) ) {
4104 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4105 "plpath n x1 y1 x2 y2",
"\"",
4110 n = atoi(argv[1+0]);
4111 x1 = atof(argv[1+1]);
4112 y1 = atof(argv[1+2]);
4113 x2 = atof(argv[1+3]);
4114 y2 = atof(argv[1+4]);
4116 plpath ( n, x1, y1, x2, y2 );
4120 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4146 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4147 Tcl_AppendResult( interp,
"command syntax: \"",
4148 "plpoin n x y code",
"\"",
4153 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
4154 (!0 && !0 && (argc != (4 + 1))) ||
4155 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
4156 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4157 "plpoin n x y code",
"\"",
4162 n = atoi(argv[1+0]);
4164 if (matx == NULL)
return TCL_ERROR;
4167 if (maty == NULL)
return TCL_ERROR;
4169 code = atoi(argv[1+3]);
4171 plpoin ( n, x, y, code );
4175 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4203 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4204 Tcl_AppendResult( interp,
"command syntax: \"",
4205 "plpoin3 n x y z code",
"\"",
4210 if ( (!0 && 0 && (argc < (1 + 5 - 0))) ||
4211 (!0 && !0 && (argc != (5 + 1))) ||
4212 ( 0 && (argc != 1) && (argc != (5 + 1))) ) {
4213 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4214 "plpoin3 n x y z code",
"\"",
4219 n = atoi(argv[1+0]);
4221 if (matx == NULL)
return TCL_ERROR;
4224 if (maty == NULL)
return TCL_ERROR;
4227 if (matz == NULL)
return TCL_ERROR;
4229 code = atoi(argv[1+4]);
4235 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4265 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4266 Tcl_AppendResult( interp,
"command syntax: \"",
4267 "plpoly3 n x y z draw ifcc",
"\"",
4272 if ( (!0 && 0 && (argc < (1 + 6 - 0))) ||
4273 (!0 && !0 && (argc != (6 + 1))) ||
4274 ( 0 && (argc != 1) && (argc != (6 + 1))) ) {
4275 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4276 "plpoly3 n x y z draw ifcc",
"\"",
4281 n = atoi(argv[1+0]);
4283 if (matx == NULL)
return TCL_ERROR;
4286 if (maty == NULL)
return TCL_ERROR;
4289 if (matz == NULL)
return TCL_ERROR;
4292 if (matdraw == NULL)
return TCL_ERROR;
4293 draw = matdraw->
idata;
4294 ifcc = atoi(argv[1+5]);
4296 plpoly3 ( n, x, y, z, draw, ifcc );
4300 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4322 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4323 Tcl_AppendResult( interp,
"command syntax: \"",
4324 "plprec setp prec",
"\"",
4329 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
4330 (!0 && !0 && (argc != (2 + 1))) ||
4331 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
4332 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4333 "plprec setp prec",
"\"",
4338 setp = atoi(argv[1+0]);
4339 prec = atoi(argv[1+1]);
4345 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4366 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4367 Tcl_AppendResult( interp,
"command syntax: \"",
4368 "plpsty patt",
"\"",
4373 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
4374 (!0 && !0 && (argc != (1 + 1))) ||
4375 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
4376 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4377 "plpsty patt",
"\"",
4382 patt = atoi(argv[1+0]);
4388 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4414 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4415 Tcl_AppendResult( interp,
"command syntax: \"",
4416 "plptex x y dx dy just text",
"\"",
4421 if ( (!0 && 0 && (argc < (1 + 6 - 0))) ||
4422 (!0 && !0 && (argc != (6 + 1))) ||
4423 ( 0 && (argc != 1) && (argc != (6 + 1))) ) {
4424 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4425 "plptex x y dx dy just text",
"\"",
4430 x = atof(argv[1+0]);
4431 y = atof(argv[1+1]);
4432 dx = atof(argv[1+2]);
4433 dy = atof(argv[1+3]);
4434 just = atof(argv[1+4]);
4437 plptex ( x, y, dx, dy, just, text );
4441 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4472 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4473 Tcl_AppendResult( interp,
"command syntax: \"",
4474 "plptex3 wx wy wz dx dy dz sx sy sz just text",
"\"",
4479 if ( (!0 && 0 && (argc < (1 + 11 - 0))) ||
4480 (!0 && !0 && (argc != (11 + 1))) ||
4481 ( 0 && (argc != 1) && (argc != (11 + 1))) ) {
4482 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4483 "plptex3 wx wy wz dx dy dz sx sy sz just text",
"\"",
4488 wx = atof(argv[1+0]);
4489 wy = atof(argv[1+1]);
4490 wz = atof(argv[1+2]);
4491 dx = atof(argv[1+3]);
4492 dy = atof(argv[1+4]);
4493 dz = atof(argv[1+5]);
4494 sx = atof(argv[1+6]);
4495 sy = atof(argv[1+7]);
4496 sz = atof(argv[1+8]);
4497 just = atof(argv[1+9]);
4500 plptex3 ( wx, wy, wz, dx, dy, dz, sx, sy, sz, just, text );
4504 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4524 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4525 Tcl_AppendResult( interp,
"command syntax: \"",
4531 if ( (!0 && 0 && (argc < (1 + 0 - 0))) ||
4532 (!0 && !0 && (argc != (0 + 1))) ||
4533 ( 0 && (argc != 1) && (argc != (0 + 1))) ) {
4534 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4545 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4571 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4572 Tcl_AppendResult( interp,
"command syntax: \"",
4573 "plrgbhls ?r g b h l s?",
"\"",
4578 if ( (!1 && 0 && (argc < (1 + 6 - 0))) ||
4579 (!1 && !0 && (argc != (6 + 1))) ||
4580 ( 1 && (argc != 1) && (argc != (6 + 1))) ) {
4581 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4582 "plrgbhls ?r g b h l s?",
"\"",
4587 r = atof(argv[1+0]);
4588 g = atof(argv[1+1]);
4589 b = atof(argv[1+2]);
4597 Tcl_AppendResult( interp,
" ", (
char *) NULL );
4598 Tcl_PrintDouble( interp, h,
buf );
4600 Tcl_SetVar( interp, argv[1+3],
buf, 0 );
4602 Tcl_AppendResult( interp,
buf, (
char *) NULL );
4604 Tcl_AppendResult( interp,
" ", (
char *) NULL );
4605 Tcl_PrintDouble( interp, l,
buf );
4607 Tcl_SetVar( interp, argv[1+4],
buf, 0 );
4609 Tcl_AppendResult( interp,
buf, (
char *) NULL );
4611 Tcl_AppendResult( interp,
" ", (
char *) NULL );
4612 Tcl_PrintDouble( interp, s,
buf );
4614 Tcl_SetVar( interp, argv[1+5],
buf, 0 );
4616 Tcl_AppendResult( interp,
buf, (
char *) NULL );
4619 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4641 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4642 Tcl_AppendResult( interp,
"command syntax: \"",
4643 "plschr def scale",
"\"",
4648 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
4649 (!0 && !0 && (argc != (2 + 1))) ||
4650 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
4651 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4652 "plschr def scale",
"\"",
4657 def = atof(argv[1+0]);
4658 scale = atof(argv[1+1]);
4664 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4691 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4692 Tcl_AppendResult( interp,
"command syntax: \"",
4693 "plscmap0 r g b ncol0",
"\"",
4698 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
4699 (!0 && !0 && (argc != (4 + 1))) ||
4700 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
4701 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4702 "plscmap0 r g b ncol0",
"\"",
4708 if (matr == NULL)
return TCL_ERROR;
4711 if (matg == NULL)
return TCL_ERROR;
4714 if (matb == NULL)
return TCL_ERROR;
4716 ncol0 = atoi(argv[1+3]);
4722 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4751 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4752 Tcl_AppendResult( interp,
"command syntax: \"",
4753 "plscmap0a r g b a ncol0",
"\"",
4758 if ( (!0 && 0 && (argc < (1 + 5 - 0))) ||
4759 (!0 && !0 && (argc != (5 + 1))) ||
4760 ( 0 && (argc != 1) && (argc != (5 + 1))) ) {
4761 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4762 "plscmap0a r g b a ncol0",
"\"",
4768 if (matr == NULL)
return TCL_ERROR;
4771 if (matg == NULL)
return TCL_ERROR;
4774 if (matb == NULL)
return TCL_ERROR;
4777 if (mata == NULL)
return TCL_ERROR;
4779 ncol0 = atoi(argv[1+4]);
4785 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4806 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4807 Tcl_AppendResult( interp,
"command syntax: \"",
4808 "plscmap0n ncol0",
"\"",
4813 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
4814 (!0 && !0 && (argc != (1 + 1))) ||
4815 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
4816 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4817 "plscmap0n ncol0",
"\"",
4822 ncol0 = atoi(argv[1+0]);
4828 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4855 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4856 Tcl_AppendResult( interp,
"command syntax: \"",
4857 "plscmap1 r g b ncol1",
"\"",
4862 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
4863 (!0 && !0 && (argc != (4 + 1))) ||
4864 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
4865 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4866 "plscmap1 r g b ncol1",
"\"",
4872 if (matr == NULL)
return TCL_ERROR;
4875 if (matg == NULL)
return TCL_ERROR;
4878 if (matb == NULL)
return TCL_ERROR;
4880 ncol1 = atoi(argv[1+3]);
4886 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4915 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4916 Tcl_AppendResult( interp,
"command syntax: \"",
4917 "plscmap1a r g b a ncol1",
"\"",
4922 if ( (!0 && 0 && (argc < (1 + 5 - 0))) ||
4923 (!0 && !0 && (argc != (5 + 1))) ||
4924 ( 0 && (argc != 1) && (argc != (5 + 1))) ) {
4925 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4926 "plscmap1a r g b a ncol1",
"\"",
4932 if (matr == NULL)
return TCL_ERROR;
4935 if (matg == NULL)
return TCL_ERROR;
4938 if (matb == NULL)
return TCL_ERROR;
4941 if (mata == NULL)
return TCL_ERROR;
4943 ncol1 = atoi(argv[1+4]);
4949 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
4976 PLINT *alt_hue_path;
4981 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
4982 Tcl_AppendResult( interp,
"command syntax: \"",
4983 "plscmap1l itype npts intensity coord1 coord2 coord3 alt_hue_path",
"\"",
4988 if ( (!0 && 0 && (argc < (1 + 7 - 0))) ||
4989 (!0 && !0 && (argc != (7 + 1))) ||
4990 ( 0 && (argc != 1) && (argc != (7 + 1))) ) {
4991 Tcl_AppendResult( interp,
"wrong # args: should be \"",
4992 "plscmap1l itype npts intensity coord1 coord2 coord3 alt_hue_path",
"\"",
4997 itype = atoi(argv[1+0]);
4998 npts = atoi(argv[1+1]);
5000 if (matintensity == NULL)
return TCL_ERROR;
5001 intensity = matintensity->
fdata;
5003 if (matcoord1 == NULL)
return TCL_ERROR;
5004 coord1 = matcoord1->
fdata;
5006 if (matcoord2 == NULL)
return TCL_ERROR;
5007 coord2 = matcoord2->
fdata;
5009 if (matcoord3 == NULL)
return TCL_ERROR;
5010 coord3 = matcoord3->
fdata;
5012 if (matalt_hue_path == NULL)
return TCL_ERROR;
5013 alt_hue_path = matalt_hue_path->
idata;
5015 plscmap1l ( itype, npts, intensity, coord1, coord2, coord3, alt_hue_path );
5019 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5048 PLINT *alt_hue_path;
5053 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5054 Tcl_AppendResult( interp,
"command syntax: \"",
5055 "plscmap1la itype npts intensity coord1 coord2 coord3 a alt_hue_path",
"\"",
5060 if ( (!0 && 0 && (argc < (1 + 8 - 0))) ||
5061 (!0 && !0 && (argc != (8 + 1))) ||
5062 ( 0 && (argc != 1) && (argc != (8 + 1))) ) {
5063 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5064 "plscmap1la itype npts intensity coord1 coord2 coord3 a alt_hue_path",
"\"",
5069 itype = atoi(argv[1+0]);
5070 npts = atoi(argv[1+1]);
5072 if (matintensity == NULL)
return TCL_ERROR;
5073 intensity = matintensity->
fdata;
5075 if (matcoord1 == NULL)
return TCL_ERROR;
5076 coord1 = matcoord1->
fdata;
5078 if (matcoord2 == NULL)
return TCL_ERROR;
5079 coord2 = matcoord2->
fdata;
5081 if (matcoord3 == NULL)
return TCL_ERROR;
5082 coord3 = matcoord3->
fdata;
5084 if (mata == NULL)
return TCL_ERROR;
5087 if (matalt_hue_path == NULL)
return TCL_ERROR;
5088 alt_hue_path = matalt_hue_path->
idata;
5090 plscmap1la ( itype, npts, intensity, coord1, coord2, coord3, a, alt_hue_path );
5094 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5115 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5116 Tcl_AppendResult( interp,
"command syntax: \"",
5117 "plscmap1n ncol1",
"\"",
5122 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
5123 (!0 && !0 && (argc != (1 + 1))) ||
5124 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
5125 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5126 "plscmap1n ncol1",
"\"",
5131 ncol1 = atoi(argv[1+0]);
5137 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5159 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5160 Tcl_AppendResult( interp,
"command syntax: \"",
5161 "plscmap1_range min_color max_color",
"\"",
5166 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
5167 (!0 && !0 && (argc != (2 + 1))) ||
5168 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
5169 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5170 "plscmap1_range min_color max_color",
"\"",
5175 min_color = atof(argv[1+0]);
5176 max_color = atof(argv[1+1]);
5182 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5206 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5207 Tcl_AppendResult( interp,
"command syntax: \"",
5208 "plscol0 icol0 r g b",
"\"",
5213 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
5214 (!0 && !0 && (argc != (4 + 1))) ||
5215 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
5216 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5217 "plscol0 icol0 r g b",
"\"",
5222 icol0 = atoi(argv[1+0]);
5223 r = atoi(argv[1+1]);
5224 g = atoi(argv[1+2]);
5225 b = atoi(argv[1+3]);
5231 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5256 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5257 Tcl_AppendResult( interp,
"command syntax: \"",
5258 "plscol0a icol0 r g b a",
"\"",
5263 if ( (!0 && 0 && (argc < (1 + 5 - 0))) ||
5264 (!0 && !0 && (argc != (5 + 1))) ||
5265 ( 0 && (argc != 1) && (argc != (5 + 1))) ) {
5266 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5267 "plscol0a icol0 r g b a",
"\"",
5272 icol0 = atoi(argv[1+0]);
5273 r = atoi(argv[1+1]);
5274 g = atoi(argv[1+2]);
5275 b = atoi(argv[1+3]);
5276 a = atof(argv[1+4]);
5282 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5305 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5306 Tcl_AppendResult( interp,
"command syntax: \"",
5307 "plscolbg r g b",
"\"",
5312 if ( (!0 && 0 && (argc < (1 + 3 - 0))) ||
5313 (!0 && !0 && (argc != (3 + 1))) ||
5314 ( 0 && (argc != 1) && (argc != (3 + 1))) ) {
5315 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5316 "plscolbg r g b",
"\"",
5321 r = atoi(argv[1+0]);
5322 g = atoi(argv[1+1]);
5323 b = atoi(argv[1+2]);
5329 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5353 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5354 Tcl_AppendResult( interp,
"command syntax: \"",
5355 "plscolbga r g b a",
"\"",
5360 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
5361 (!0 && !0 && (argc != (4 + 1))) ||
5362 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
5363 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5364 "plscolbga r g b a",
"\"",
5369 r = atoi(argv[1+0]);
5370 g = atoi(argv[1+1]);
5371 b = atoi(argv[1+2]);
5372 a = atof(argv[1+3]);
5378 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5399 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5400 Tcl_AppendResult( interp,
"command syntax: \"",
5401 "plscolor color",
"\"",
5406 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
5407 (!0 && !0 && (argc != (1 + 1))) ||
5408 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
5409 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5410 "plscolor color",
"\"",
5415 color = atoi(argv[1+0]);
5421 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5442 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5443 Tcl_AppendResult( interp,
"command syntax: \"",
5444 "plscompression compression",
"\"",
5449 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
5450 (!0 && !0 && (argc != (1 + 1))) ||
5451 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
5452 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5453 "plscompression compression",
"\"",
5458 compression = atoi(argv[1+0]);
5464 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5485 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5486 Tcl_AppendResult( interp,
"command syntax: \"",
5487 "plsdev devnam",
"\"",
5492 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
5493 (!0 && !0 && (argc != (1 + 1))) ||
5494 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
5495 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5496 "plsdev devnam",
"\"",
5507 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 "plsdidev mar aspect jx jy",
"\"",
5538 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
5539 (!0 && !0 && (argc != (4 + 1))) ||
5540 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
5541 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5542 "plsdidev mar aspect jx jy",
"\"",
5547 mar = atof(argv[1+0]);
5548 aspect = atof(argv[1+1]);
5549 jx = atof(argv[1+2]);
5550 jy = atof(argv[1+3]);
5556 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5582 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5583 Tcl_AppendResult( interp,
"command syntax: \"",
5584 "plsdimap dimxmin dimxmax dimymin dimymax dimxpmm dimypmm",
"\"",
5589 if ( (!0 && 0 && (argc < (1 + 6 - 0))) ||
5590 (!0 && !0 && (argc != (6 + 1))) ||
5591 ( 0 && (argc != 1) && (argc != (6 + 1))) ) {
5592 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5593 "plsdimap dimxmin dimxmax dimymin dimymax dimxpmm dimypmm",
"\"",
5598 dimxmin = atoi(argv[1+0]);
5599 dimxmax = atoi(argv[1+1]);
5600 dimymin = atoi(argv[1+2]);
5601 dimymax = atoi(argv[1+3]);
5602 dimxpmm = atof(argv[1+4]);
5603 dimypmm = atof(argv[1+5]);
5605 plsdimap ( dimxmin, dimxmax, dimymin, dimymax, dimxpmm, dimypmm );
5609 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5630 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5631 Tcl_AppendResult( interp,
"command syntax: \"",
5632 "plsdiori rot",
"\"",
5637 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
5638 (!0 && !0 && (argc != (1 + 1))) ||
5639 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
5640 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5641 "plsdiori rot",
"\"",
5646 rot = atof(argv[1+0]);
5652 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5676 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5677 Tcl_AppendResult( interp,
"command syntax: \"",
5678 "plsdiplt xmin ymin xmax ymax",
"\"",
5683 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
5684 (!0 && !0 && (argc != (4 + 1))) ||
5685 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
5686 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5687 "plsdiplt xmin ymin xmax ymax",
"\"",
5692 xmin = atof(argv[1+0]);
5693 ymin = atof(argv[1+1]);
5694 xmax = atof(argv[1+2]);
5695 ymax = atof(argv[1+3]);
5697 plsdiplt ( xmin, ymin, xmax, ymax );
5701 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5725 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5726 Tcl_AppendResult( interp,
"command syntax: \"",
5727 "plsdiplz xmin ymin xmax ymax",
"\"",
5732 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
5733 (!0 && !0 && (argc != (4 + 1))) ||
5734 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
5735 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5736 "plsdiplz xmin ymin xmax ymax",
"\"",
5741 xmin = atof(argv[1+0]);
5742 ymin = atof(argv[1+1]);
5743 xmax = atof(argv[1+2]);
5744 ymax = atof(argv[1+3]);
5746 plsdiplz ( xmin, ymin, xmax, ymax );
5750 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5771 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5772 Tcl_AppendResult( interp,
"command syntax: \"",
5778 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
5779 (!0 && !0 && (argc != (1 + 1))) ||
5780 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
5781 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5787 s = (
unsigned int) strtoul(argv[1+0],NULL,10);
5793 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5814 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5815 Tcl_AppendResult( interp,
"command syntax: \"",
5821 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
5822 (!0 && !0 && (argc != (1 + 1))) ||
5823 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
5824 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5836 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5859 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5860 Tcl_AppendResult( interp,
"command syntax: \"",
5861 "plsfam fam num bmax",
"\"",
5866 if ( (!0 && 0 && (argc < (1 + 3 - 0))) ||
5867 (!0 && !0 && (argc != (3 + 1))) ||
5868 ( 0 && (argc != 1) && (argc != (3 + 1))) ) {
5869 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5870 "plsfam fam num bmax",
"\"",
5875 fam = atoi(argv[1+0]);
5876 num = atoi(argv[1+1]);
5877 bmax = atoi(argv[1+2]);
5879 plsfam ( fam, num, bmax );
5883 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5904 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5905 Tcl_AppendResult( interp,
"command syntax: \"",
5911 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
5912 (!0 && !0 && (argc != (1 + 1))) ||
5913 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
5914 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5920 fci = (
PLUNICODE) strtoul(argv[1+0],NULL,10);
5926 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5947 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5948 Tcl_AppendResult( interp,
"command syntax: \"",
5949 "plsfnam fnam",
"\"",
5954 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
5955 (!0 && !0 && (argc != (1 + 1))) ||
5956 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
5957 Tcl_AppendResult( interp,
"wrong # args: should be \"",
5958 "plsfnam fnam",
"\"",
5969 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
5992 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
5993 Tcl_AppendResult( interp,
"command syntax: \"",
5994 "plsfont family style weight",
"\"",
5999 if ( (!0 && 0 && (argc < (1 + 3 - 0))) ||
6000 (!0 && !0 && (argc != (3 + 1))) ||
6001 ( 0 && (argc != 1) && (argc != (3 + 1))) ) {
6002 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6003 "plsfont family style weight",
"\"",
6008 family = atoi(argv[1+0]);
6009 style = atoi(argv[1+1]);
6010 weight = atoi(argv[1+2]);
6012 plsfont ( family, style, weight );
6016 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6038 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6039 Tcl_AppendResult( interp,
"command syntax: \"",
6040 "plsmaj def scale",
"\"",
6045 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
6046 (!0 && !0 && (argc != (2 + 1))) ||
6047 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
6048 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6049 "plsmaj def scale",
"\"",
6054 def = atof(argv[1+0]);
6055 scale = atof(argv[1+1]);
6061 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6083 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6084 Tcl_AppendResult( interp,
"command syntax: \"",
6085 "plsmin def scale",
"\"",
6090 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
6091 (!0 && !0 && (argc != (2 + 1))) ||
6092 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
6093 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6094 "plsmin def scale",
"\"",
6099 def = atof(argv[1+0]);
6100 scale = atof(argv[1+1]);
6106 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6127 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6128 Tcl_AppendResult( interp,
"command syntax: \"",
6134 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
6135 (!0 && !0 && (argc != (1 + 1))) ||
6136 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
6137 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6143 ori = atoi(argv[1+0]);
6149 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6175 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6176 Tcl_AppendResult( interp,
"command syntax: \"",
6177 "plspage xp yp xleng yleng xoff yoff",
"\"",
6182 if ( (!0 && 0 && (argc < (1 + 6 - 0))) ||
6183 (!0 && !0 && (argc != (6 + 1))) ||
6184 ( 0 && (argc != 1) && (argc != (6 + 1))) ) {
6185 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6186 "plspage xp yp xleng yleng xoff yoff",
"\"",
6191 xp = atof(argv[1+0]);
6192 yp = atof(argv[1+1]);
6193 xleng = atoi(argv[1+2]);
6194 yleng = atoi(argv[1+3]);
6195 xoff = atoi(argv[1+4]);
6196 yoff = atoi(argv[1+5]);
6198 plspage ( xp, yp, xleng, yleng, xoff, yoff );
6202 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6219 const char *filename;
6223 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6224 Tcl_AppendResult( interp,
"command syntax: \"",
6225 "plspal0 filename",
"\"",
6230 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
6231 (!0 && !0 && (argc != (1 + 1))) ||
6232 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
6233 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6234 "plspal0 filename",
"\"",
6239 filename = argv[1+0];
6245 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6262 const char *filename;
6267 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6268 Tcl_AppendResult( interp,
"command syntax: \"",
6269 "plspal1 filename interpolate",
"\"",
6274 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
6275 (!0 && !0 && (argc != (2 + 1))) ||
6276 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
6277 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6278 "plspal1 filename interpolate",
"\"",
6283 filename = argv[1+0];
6284 interpolate = atoi(argv[1+1]);
6286 plspal1 ( filename, interpolate );
6290 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6311 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6312 Tcl_AppendResult( interp,
"command syntax: \"",
6313 "plspause paus",
"\"",
6318 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
6319 (!0 && !0 && (argc != (1 + 1))) ||
6320 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
6321 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6322 "plspause paus",
"\"",
6327 paus = atoi(argv[1+0]);
6333 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6354 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6355 Tcl_AppendResult( interp,
"command syntax: \"",
6356 "plsstrm strm",
"\"",
6361 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
6362 (!0 && !0 && (argc != (1 + 1))) ||
6363 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
6364 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6365 "plsstrm strm",
"\"",
6370 strm = atoi(argv[1+0]);
6376 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6398 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6399 Tcl_AppendResult( interp,
"command syntax: \"",
6400 "plssub nx ny",
"\"",
6405 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
6406 (!0 && !0 && (argc != (2 + 1))) ||
6407 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
6408 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6409 "plssub nx ny",
"\"",
6414 nx = atoi(argv[1+0]);
6415 ny = atoi(argv[1+1]);
6421 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6443 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6444 Tcl_AppendResult( interp,
"command syntax: \"",
6445 "plssym def scale",
"\"",
6450 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
6451 (!0 && !0 && (argc != (2 + 1))) ||
6452 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
6453 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6454 "plssym def scale",
"\"",
6459 def = atof(argv[1+0]);
6460 scale = atof(argv[1+1]);
6466 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6488 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6489 Tcl_AppendResult( interp,
"command syntax: \"",
6490 "plstar nx ny",
"\"",
6495 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
6496 (!0 && !0 && (argc != (2 + 1))) ||
6497 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
6498 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6499 "plstar nx ny",
"\"",
6504 nx = atoi(argv[1+0]);
6505 ny = atoi(argv[1+1]);
6511 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6528 const char *devname;
6534 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6535 Tcl_AppendResult( interp,
"command syntax: \"",
6536 "plstart devname nx ny",
"\"",
6541 if ( (!0 && 0 && (argc < (1 + 3 - 0))) ||
6542 (!0 && !0 && (argc != (3 + 1))) ||
6543 ( 0 && (argc != 1) && (argc != (3 + 1))) ) {
6544 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6545 "plstart devname nx ny",
"\"",
6550 devname = argv[1+0];
6551 nx = atoi(argv[1+1]);
6552 ny = atoi(argv[1+2]);
6558 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6584 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6585 Tcl_AppendResult( interp,
"command syntax: \"",
6586 "plstring n x y string",
"\"",
6591 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
6592 (!0 && !0 && (argc != (4 + 1))) ||
6593 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
6594 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6595 "plstring n x y string",
"\"",
6600 n = atoi(argv[1+0]);
6602 if (matx == NULL)
return TCL_ERROR;
6605 if (maty == NULL)
return TCL_ERROR;
6613 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6641 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6642 Tcl_AppendResult( interp,
"command syntax: \"",
6643 "plstring3 n x y z string",
"\"",
6648 if ( (!0 && 0 && (argc < (1 + 5 - 0))) ||
6649 (!0 && !0 && (argc != (5 + 1))) ||
6650 ( 0 && (argc != 1) && (argc != (5 + 1))) ) {
6651 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6652 "plstring3 n x y z string",
"\"",
6657 n = atoi(argv[1+0]);
6659 if (matx == NULL)
return TCL_ERROR;
6662 if (maty == NULL)
return TCL_ERROR;
6665 if (matz == NULL)
return TCL_ERROR;
6673 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6697 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6698 Tcl_AppendResult( interp,
"command syntax: \"",
6699 "plstripa id pen x y",
"\"",
6704 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
6705 (!0 && !0 && (argc != (4 + 1))) ||
6706 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
6707 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6708 "plstripa id pen x y",
"\"",
6713 id = atoi(argv[1+0]);
6714 pen = atoi(argv[1+1]);
6715 x = atof(argv[1+2]);
6716 y = atof(argv[1+3]);
6722 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6743 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6744 Tcl_AppendResult( interp,
"command syntax: \"",
6745 "plstripd id",
"\"",
6750 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
6751 (!0 && !0 && (argc != (1 + 1))) ||
6752 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
6753 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6754 "plstripd id",
"\"",
6759 id = atoi(argv[1+0]);
6765 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6790 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6791 Tcl_AppendResult( interp,
"command syntax: \"",
6792 "plstyl nms mark space",
"\"",
6797 if ( (!0 && 0 && (argc < (1 + 3 - 0))) ||
6798 (!0 && !0 && (argc != (3 + 1))) ||
6799 ( 0 && (argc != 1) && (argc != (3 + 1))) ) {
6800 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6801 "plstyl nms mark space",
"\"",
6806 nms = atoi(argv[1+0]);
6808 if (matmark == NULL)
return TCL_ERROR;
6809 mark = matmark->
idata;
6811 if (matspace == NULL)
return TCL_ERROR;
6812 space = matspace->
idata;
6814 plstyl ( nms, mark, space );
6818 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6842 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6843 Tcl_AppendResult( interp,
"command syntax: \"",
6844 "plsvpa xmin xmax ymin ymax",
"\"",
6849 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
6850 (!0 && !0 && (argc != (4 + 1))) ||
6851 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
6852 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6853 "plsvpa xmin xmax ymin ymax",
"\"",
6858 xmin = atof(argv[1+0]);
6859 xmax = atof(argv[1+1]);
6860 ymin = atof(argv[1+2]);
6861 ymax = atof(argv[1+3]);
6863 plsvpa ( xmin, xmax, ymin, ymax );
6867 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6889 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6890 Tcl_AppendResult( interp,
"command syntax: \"",
6891 "plsxax digmax digits",
"\"",
6896 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
6897 (!0 && !0 && (argc != (2 + 1))) ||
6898 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
6899 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6900 "plsxax digmax digits",
"\"",
6905 digmax = atoi(argv[1+0]);
6906 digits = atoi(argv[1+1]);
6908 plsxax ( digmax, digits );
6912 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6934 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6935 Tcl_AppendResult( interp,
"command syntax: \"",
6936 "plsyax digmax digits",
"\"",
6941 if ( (!0 && 2 && (argc < (1 + 2 - 2))) ||
6942 (!0 && !2 && (argc != (2 + 1))) ||
6943 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
6944 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6945 "plsyax digmax digits",
"\"",
6951 digmax = atoi(argv[1+0]);
6954 digits = atoi(argv[1+1]);
6957 plsyax ( digmax, digits );
6961 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
6987 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
6988 Tcl_AppendResult( interp,
"command syntax: \"",
6989 "plsym n x y code",
"\"",
6994 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
6995 (!0 && !0 && (argc != (4 + 1))) ||
6996 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
6997 Tcl_AppendResult( interp,
"wrong # args: should be \"",
6998 "plsym n x y code",
"\"",
7003 n = atoi(argv[1+0]);
7005 if (matx == NULL)
return TCL_ERROR;
7008 if (maty == NULL)
return TCL_ERROR;
7010 code = atoi(argv[1+3]);
7012 plsym ( n, x, y, code );
7016 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
7038 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
7039 Tcl_AppendResult( interp,
"command syntax: \"",
7040 "plszax digmax digits",
"\"",
7045 if ( (!0 && 0 && (argc < (1 + 2 - 0))) ||
7046 (!0 && !0 && (argc != (2 + 1))) ||
7047 ( 0 && (argc != 1) && (argc != (2 + 1))) ) {
7048 Tcl_AppendResult( interp,
"wrong # args: should be \"",
7049 "plszax digmax digits",
"\"",
7054 digmax = atoi(argv[1+0]);
7055 digits = atoi(argv[1+1]);
7057 plszax ( digmax, digits );
7061 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
7081 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
7082 Tcl_AppendResult( interp,
"command syntax: \"",
7088 if ( (!0 && 0 && (argc < (1 + 0 - 0))) ||
7089 (!0 && !0 && (argc != (0 + 1))) ||
7090 ( 0 && (argc != 1) && (argc != (0 + 1))) ) {
7091 Tcl_AppendResult( interp,
"wrong # args: should be \"",
7102 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
7123 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
7124 Tcl_AppendResult( interp,
"command syntax: \"",
7125 "pltimefmt fmt",
"\"",
7130 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
7131 (!0 && !0 && (argc != (1 + 1))) ||
7132 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
7133 Tcl_AppendResult( interp,
"wrong # args: should be \"",
7134 "pltimefmt fmt",
"\"",
7145 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
7166 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
7167 Tcl_AppendResult( interp,
"command syntax: \"",
7168 "plvasp aspect",
"\"",
7173 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
7174 (!0 && !0 && (argc != (1 + 1))) ||
7175 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
7176 Tcl_AppendResult( interp,
"wrong # args: should be \"",
7177 "plvasp aspect",
"\"",
7182 aspect = atof(argv[1+0]);
7188 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
7213 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
7214 Tcl_AppendResult( interp,
"command syntax: \"",
7215 "plvpas xmin xmax ymin ymax aspect",
"\"",
7220 if ( (!0 && 0 && (argc < (1 + 5 - 0))) ||
7221 (!0 && !0 && (argc != (5 + 1))) ||
7222 ( 0 && (argc != 1) && (argc != (5 + 1))) ) {
7223 Tcl_AppendResult( interp,
"wrong # args: should be \"",
7224 "plvpas xmin xmax ymin ymax aspect",
"\"",
7229 xmin = atof(argv[1+0]);
7230 xmax = atof(argv[1+1]);
7231 ymin = atof(argv[1+2]);
7232 ymax = atof(argv[1+3]);
7233 aspect = atof(argv[1+4]);
7235 plvpas ( xmin, xmax, ymin, ymax, aspect );
7239 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
7263 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
7264 Tcl_AppendResult( interp,
"command syntax: \"",
7265 "plvpor xmin xmax ymin ymax",
"\"",
7270 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
7271 (!0 && !0 && (argc != (4 + 1))) ||
7272 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
7273 Tcl_AppendResult( interp,
"wrong # args: should be \"",
7274 "plvpor xmin xmax ymin ymax",
"\"",
7279 xmin = atof(argv[1+0]);
7280 xmax = atof(argv[1+1]);
7281 ymin = atof(argv[1+2]);
7282 ymax = atof(argv[1+3]);
7284 plvpor ( xmin, xmax, ymin, ymax );
7288 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
7308 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
7309 Tcl_AppendResult( interp,
"command syntax: \"",
7315 if ( (!0 && 0 && (argc < (1 + 0 - 0))) ||
7316 (!0 && !0 && (argc != (0 + 1))) ||
7317 ( 0 && (argc != 1) && (argc != (0 + 1))) ) {
7318 Tcl_AppendResult( interp,
"wrong # args: should be \"",
7329 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
7360 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
7361 Tcl_AppendResult( interp,
"command syntax: \"",
7362 "plw3d basex basey height xmin0 xmax0 ymin0 ymax0 zmin0 zmax0 alt az",
"\"",
7367 if ( (!0 && 0 && (argc < (1 + 11 - 0))) ||
7368 (!0 && !0 && (argc != (11 + 1))) ||
7369 ( 0 && (argc != 1) && (argc != (11 + 1))) ) {
7370 Tcl_AppendResult( interp,
"wrong # args: should be \"",
7371 "plw3d basex basey height xmin0 xmax0 ymin0 ymax0 zmin0 zmax0 alt az",
"\"",
7376 basex = atof(argv[1+0]);
7377 basey = atof(argv[1+1]);
7378 height = atof(argv[1+2]);
7379 xmin0 = atof(argv[1+3]);
7380 xmax0 = atof(argv[1+4]);
7381 ymin0 = atof(argv[1+5]);
7382 ymax0 = atof(argv[1+6]);
7383 zmin0 = atof(argv[1+7]);
7384 zmax0 = atof(argv[1+8]);
7385 alt = atof(argv[1+9]);
7386 az = atof(argv[1+10]);
7388 plw3d ( basex, basey, height, xmin0, xmax0, ymin0, ymax0, zmin0, zmax0, alt, az );
7392 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
7413 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
7414 Tcl_AppendResult( interp,
"command syntax: \"",
7415 "plwidth width",
"\"",
7420 if ( (!0 && 0 && (argc < (1 + 1 - 0))) ||
7421 (!0 && !0 && (argc != (1 + 1))) ||
7422 ( 0 && (argc != 1) && (argc != (1 + 1))) ) {
7423 Tcl_AppendResult( interp,
"wrong # args: should be \"",
7424 "plwidth width",
"\"",
7429 width = atof(argv[1+0]);
7435 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
7459 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
7460 Tcl_AppendResult( interp,
"command syntax: \"",
7461 "plwind xmin xmax ymin ymax",
"\"",
7466 if ( (!0 && 0 && (argc < (1 + 4 - 0))) ||
7467 (!0 && !0 && (argc != (4 + 1))) ||
7468 ( 0 && (argc != 1) && (argc != (4 + 1))) ) {
7469 Tcl_AppendResult( interp,
"wrong # args: should be \"",
7470 "plwind xmin xmax ymin ymax",
"\"",
7475 xmin = atof(argv[1+0]);
7476 xmax = atof(argv[1+1]);
7477 ymin = atof(argv[1+2]);
7478 ymax = atof(argv[1+3]);
7480 plwind ( xmin, xmax, ymin, ymax );
7484 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);
7506 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],
"-help",strlen(argv[1])) == 0) ) {
7507 Tcl_AppendResult( interp,
"command syntax: \"",
7508 "plxormod ?mod st?",
"\"",
7513 if ( (!1 && 0 && (argc < (1 + 2 - 0))) ||
7514 (!1 && !0 && (argc != (2 + 1))) ||
7515 ( 1 && (argc != 1) && (argc != (2 + 1))) ) {
7516 Tcl_AppendResult( interp,
"wrong # args: should be \"",
7517 "plxormod ?mod st?",
"\"",
7522 mod = atoi(argv[1+0]);
7528 Tcl_AppendResult( interp,
" ", (
char *) NULL );
7529 sprintf(
buf,
"%d", st );
7531 Tcl_SetVar( interp, argv[1+1],
buf, 0 );
7533 Tcl_AppendResult( interp,
buf, (
char *) NULL );
7536 Tcl_AppendResult(interp,
errmsg, (
char *) NULL);