PLplot 5.15.0
Loading...
Searching...
No Matches
tclgen.c
Go to the documentation of this file.
1// The pl_setcontlabelformatCmd interface routine which processes the pl_setcontlabelformat Tcl command.
2
3static int
4pl_setcontlabelformatCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5{
6 PLINT lexp;
8
9 pl_errcode = 0; errmsg[0] = '\0';
10
11 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
12 Tcl_AppendResult( interp, "command syntax: command should be ",
13 "\"pl_setcontlabelformat lexp sigprec\"",
14 (char *) NULL);
15 return TCL_ERROR;
16 }
17
18 if ( (!0 && 0 && (argc < (2 + 1 - 0 - 0)) && (!0 || (argc < (2 + 1 - 0)))) ||
19 (!0 && !0 && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ||
20 (0 && (argc != 1) && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ) {
21 Tcl_AppendResult( interp, "wrong # args: command should be ",
22 "\"pl_setcontlabelformat lexp sigprec\"",
23 (char *) NULL);
24 return TCL_ERROR;
25 }
26
27 lexp = atoi(argv[1+0]);
28 sigprec = atoi(argv[1+1]);
29
30
31
33
34
35 if (pl_errcode != 0) {
36 Tcl_AppendResult(interp, errmsg, (char *) NULL);
37 return TCL_ERROR;
38 }
39
40 plflush();
41 return TCL_OK;
42}
43
44// The pl_setcontlabelparamCmd interface routine which processes the pl_setcontlabelparam Tcl command.
45
46static int
47pl_setcontlabelparamCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
48{
49 PLFLT offset;
50 PLFLT size;
51 PLFLT spacing;
52 PLINT active;
53
54 pl_errcode = 0; errmsg[0] = '\0';
55
56 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
57 Tcl_AppendResult( interp, "command syntax: command should be ",
58 "\"pl_setcontlabelparam offset size spacing active\"",
59 (char *) NULL);
60 return TCL_ERROR;
61 }
62
63 if ( (!0 && 0 && (argc < (4 + 1 - 0 - 0)) && (!0 || (argc < (4 + 1 - 0)))) ||
64 (!0 && !0 && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ||
65 (0 && (argc != 1) && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ) {
66 Tcl_AppendResult( interp, "wrong # args: command should be ",
67 "\"pl_setcontlabelparam offset size spacing active\"",
68 (char *) NULL);
69 return TCL_ERROR;
70 }
71
72 offset = atof(argv[1+0]);
73 size = atof(argv[1+1]);
74 spacing = atof(argv[1+2]);
75 active = atoi(argv[1+3]);
76
77
78
79 pl_setcontlabelparam ( offset, size, spacing, active );
80
81
82 if (pl_errcode != 0) {
83 Tcl_AppendResult(interp, errmsg, (char *) NULL);
84 return TCL_ERROR;
85 }
86
87 plflush();
88 return TCL_OK;
89}
90
91// The pladvCmd interface routine which processes the pladv Tcl command.
92
93static int
94pladvCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
95{
96 PLINT page = 0;
97
98 pl_errcode = 0; errmsg[0] = '\0';
99
100 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
101 Tcl_AppendResult( interp, "command syntax: command should be ",
102 "\"pladv page\"",
103 (char *) NULL);
104 return TCL_ERROR;
105 }
106
107 if ( (!0 && 1 && (argc < (1 + 1 - 1 - 0)) && (!0 || (argc < (1 + 1 - 1)))) ||
108 (!0 && !1 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
109 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
110 Tcl_AppendResult( interp, "wrong # args: command should be ",
111 "\"pladv page\"",
112 (char *) NULL);
113 return TCL_ERROR;
114 }
115
116 if (argc > 0+1) {
117 page = atoi(argv[1+0]);
118 }
119
120
121
122 pladv ( page );
123
124
125 if (pl_errcode != 0) {
126 Tcl_AppendResult(interp, errmsg, (char *) NULL);
127 return TCL_ERROR;
128 }
129
130 plflush();
131 return TCL_OK;
132}
133
134// The plarcCmd interface routine which processes the plarc Tcl command.
135
136static int
137plarcCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
138{
139 PLFLT x;
140 PLFLT y;
141 PLFLT a;
142 PLFLT b;
143 PLFLT angle1;
144 PLFLT angle2;
145 PLFLT rotate;
146 PLINT fill;
147
148 pl_errcode = 0; errmsg[0] = '\0';
149
150 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
151 Tcl_AppendResult( interp, "command syntax: command should be ",
152 "\"plarc x y a b angle1 angle2 rotate fill\"",
153 (char *) NULL);
154 return TCL_ERROR;
155 }
156
157 if ( (!0 && 0 && (argc < (8 + 1 - 0 - 0)) && (!0 || (argc < (8 + 1 - 0)))) ||
158 (!0 && !0 && (argc != (8 + 1 - 0)) && (!0 || (argc != (8 + 1)))) ||
159 (0 && (argc != 1) && (argc != (8 + 1 - 0)) && (!0 || (argc != (8 + 1)))) ) {
160 Tcl_AppendResult( interp, "wrong # args: command should be ",
161 "\"plarc x y a b angle1 angle2 rotate fill\"",
162 (char *) NULL);
163 return TCL_ERROR;
164 }
165
166 x = atof(argv[1+0]);
167 y = atof(argv[1+1]);
168 a = atof(argv[1+2]);
169 b = atof(argv[1+3]);
170 angle1 = atof(argv[1+4]);
171 angle2 = atof(argv[1+5]);
172 rotate = atof(argv[1+6]);
173 fill = atoi(argv[1+7]);
174
175
176
177 plarc ( x, y, a, b, angle1, angle2, rotate, fill );
178
179
180 if (pl_errcode != 0) {
181 Tcl_AppendResult(interp, errmsg, (char *) NULL);
182 return TCL_ERROR;
183 }
184
185 plflush();
186 return TCL_OK;
187}
188
189// The plaxesCmd interface routine which processes the plaxes Tcl command.
190
191static int
192plaxesCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
193{
194 PLFLT x0;
195 PLFLT y0;
196 const char *xopt;
197 PLFLT xtick;
198 PLINT nxsub;
199 const char *yopt;
200 PLFLT ytick;
201 PLINT nysub;
202
203 pl_errcode = 0; errmsg[0] = '\0';
204
205 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
206 Tcl_AppendResult( interp, "command syntax: command should be ",
207 "\"plaxes x0 y0 xopt xtick nxsub yopt ytick nysub\"",
208 (char *) NULL);
209 return TCL_ERROR;
210 }
211
212 if ( (!0 && 0 && (argc < (8 + 1 - 0 - 0)) && (!0 || (argc < (8 + 1 - 0)))) ||
213 (!0 && !0 && (argc != (8 + 1 - 0)) && (!0 || (argc != (8 + 1)))) ||
214 (0 && (argc != 1) && (argc != (8 + 1 - 0)) && (!0 || (argc != (8 + 1)))) ) {
215 Tcl_AppendResult( interp, "wrong # args: command should be ",
216 "\"plaxes x0 y0 xopt xtick nxsub yopt ytick nysub\"",
217 (char *) NULL);
218 return TCL_ERROR;
219 }
220
221 x0 = atof(argv[1+0]);
222 y0 = atof(argv[1+1]);
223 xopt = argv[1+2];
224 xtick = atof(argv[1+3]);
225 nxsub = atoi(argv[1+4]);
226 yopt = argv[1+5];
227 ytick = atof(argv[1+6]);
228 nysub = atoi(argv[1+7]);
229
230
231
232 plaxes ( x0, y0, xopt, xtick, nxsub, yopt, ytick, nysub );
233
234
235 if (pl_errcode != 0) {
236 Tcl_AppendResult(interp, errmsg, (char *) NULL);
237 return TCL_ERROR;
238 }
239
240 plflush();
241 return TCL_OK;
242}
243
244// The plbinCmd interface routine which processes the plbin Tcl command.
245
246static int
247plbinCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
248{
249 PLINT nbin;
250 PLFLT *x;
251 tclMatrix *matx;
252 PLFLT *y;
253 tclMatrix *maty;
254 PLINT center;
255
256 pl_errcode = 0; errmsg[0] = '\0';
257
258 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
259 Tcl_AppendResult( interp, "command syntax: command should be ",
260 "\"plbin x y center\"",
261 (char *) NULL);
262 return TCL_ERROR;
263 }
264
265 if ( (!0 && 0 && (argc < (4 + 1 - 0 - 1)) && (!0 || (argc < (4 + 1 - 0)))) ||
266 (!0 && !0 && (argc != (4 + 1 - 1)) && (!0 || (argc != (4 + 1)))) ||
267 (0 && (argc != 1) && (argc != (4 + 1 - 1)) && (!0 || (argc != (4 + 1)))) ) {
268 Tcl_AppendResult( interp, "wrong # args: command should be ",
269 "\"plbin x y center\"",
270 (char *) NULL);
271 return TCL_ERROR;
272 }
273
274 matx = Tcl_GetMatrixPtr( interp, argv[1+0] );
275 if (matx == NULL) return TCL_ERROR;
276 x = matx->fdata;
277 maty = Tcl_GetMatrixPtr( interp, argv[1+1] );
278 if (maty == NULL) return TCL_ERROR;
279 y = maty->fdata;
280 center = atoi(argv[1+2]);
281 nbin = matx->n[0];
282
283 if ( ! (nbin <= matx->n[0] && matx->n[0] == maty->n[0]) ) {
284 Tcl_AppendResult( interp, "Length of the two vectors must be equal", (char *) NULL );
285 return TCL_ERROR;
286 }
287 if ( ! (matx->type == TYPE_FLOAT && maty->type == TYPE_FLOAT) ) {
288 Tcl_AppendResult( interp, "Both vectors must be of type float", (char *) NULL );
289 return TCL_ERROR;
290 }
291
292
293 plbin ( nbin, x, y, center );
294
295
296 if (pl_errcode != 0) {
297 Tcl_AppendResult(interp, errmsg, (char *) NULL);
298 return TCL_ERROR;
299 }
300
301 plflush();
302 return TCL_OK;
303}
304
305// The plbopCmd interface routine which processes the plbop Tcl command.
306
307static int
308plbopCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
309{
310
311 pl_errcode = 0; errmsg[0] = '\0';
312
313 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
314 Tcl_AppendResult( interp, "command syntax: command should be ",
315 "\"plbop \"",
316 (char *) NULL);
317 return TCL_ERROR;
318 }
319
320 if ( (!0 && 0 && (argc < (0 + 1 - 0 - 0)) && (!0 || (argc < (0 + 1 - 0)))) ||
321 (!0 && !0 && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ||
322 (0 && (argc != 1) && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ) {
323 Tcl_AppendResult( interp, "wrong # args: command should be ",
324 "\"plbop \"",
325 (char *) NULL);
326 return TCL_ERROR;
327 }
328
329
330
331
332 plbop ( );
333
334
335 if (pl_errcode != 0) {
336 Tcl_AppendResult(interp, errmsg, (char *) NULL);
337 return TCL_ERROR;
338 }
339
340 plflush();
341 return TCL_OK;
342}
343
344// The plboxCmd interface routine which processes the plbox Tcl command.
345
346static int
347plboxCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
348{
349 const char *xopt;
350 PLFLT xtick;
351 PLINT nxsub;
352 const char *yopt;
353 PLFLT ytick;
354 PLINT nysub;
355
356 pl_errcode = 0; errmsg[0] = '\0';
357
358 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
359 Tcl_AppendResult( interp, "command syntax: command should be ",
360 "\"plbox xopt xtick nxsub yopt ytick nysub\"",
361 (char *) NULL);
362 return TCL_ERROR;
363 }
364
365 if ( (!0 && 0 && (argc < (6 + 1 - 0 - 0)) && (!0 || (argc < (6 + 1 - 0)))) ||
366 (!0 && !0 && (argc != (6 + 1 - 0)) && (!0 || (argc != (6 + 1)))) ||
367 (0 && (argc != 1) && (argc != (6 + 1 - 0)) && (!0 || (argc != (6 + 1)))) ) {
368 Tcl_AppendResult( interp, "wrong # args: command should be ",
369 "\"plbox xopt xtick nxsub yopt ytick nysub\"",
370 (char *) NULL);
371 return TCL_ERROR;
372 }
373
374 xopt = argv[1+0];
375 xtick = atof(argv[1+1]);
376 nxsub = atoi(argv[1+2]);
377 yopt = argv[1+3];
378 ytick = atof(argv[1+4]);
379 nysub = atoi(argv[1+5]);
380
381
382
383 plbox ( xopt, xtick, nxsub, yopt, ytick, nysub );
384
385
386 if (pl_errcode != 0) {
387 Tcl_AppendResult(interp, errmsg, (char *) NULL);
388 return TCL_ERROR;
389 }
390
391 plflush();
392 return TCL_OK;
393}
394
395// The plbox3Cmd interface routine which processes the plbox3 Tcl command.
396
397static int
398plbox3Cmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
399{
400 const char *xopt;
401 const char *xlabel;
402 PLFLT xtick;
403 PLINT nsubx;
404 const char *yopt;
405 const char *ylabel;
406 PLFLT ytick;
407 PLINT nsuby;
408 const char *zopt;
409 const char *zlabel;
410 PLFLT ztick;
411 PLINT nsubz;
412
413 pl_errcode = 0; errmsg[0] = '\0';
414
415 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
416 Tcl_AppendResult( interp, "command syntax: command should be ",
417 "\"plbox3 xopt xlabel xtick nsubx yopt ylabel ytick nsuby zopt zlabel ztick nsubz\"",
418 (char *) NULL);
419 return TCL_ERROR;
420 }
421
422 if ( (!0 && 0 && (argc < (12 + 1 - 0 - 0)) && (!0 || (argc < (12 + 1 - 0)))) ||
423 (!0 && !0 && (argc != (12 + 1 - 0)) && (!0 || (argc != (12 + 1)))) ||
424 (0 && (argc != 1) && (argc != (12 + 1 - 0)) && (!0 || (argc != (12 + 1)))) ) {
425 Tcl_AppendResult( interp, "wrong # args: command should be ",
426 "\"plbox3 xopt xlabel xtick nsubx yopt ylabel ytick nsuby zopt zlabel ztick nsubz\"",
427 (char *) NULL);
428 return TCL_ERROR;
429 }
430
431 xopt = argv[1+0];
432 xlabel = argv[1+1];
433 xtick = atof(argv[1+2]);
434 nsubx = atoi(argv[1+3]);
435 yopt = argv[1+4];
436 ylabel = argv[1+5];
437 ytick = atof(argv[1+6]);
438 nsuby = atoi(argv[1+7]);
439 zopt = argv[1+8];
440 zlabel = argv[1+9];
441 ztick = atof(argv[1+10]);
442 nsubz = atoi(argv[1+11]);
443
444
445
446 plbox3 ( xopt, xlabel, xtick, nsubx, yopt, ylabel, ytick, nsuby, zopt, zlabel, ztick, nsubz );
447
448
449 if (pl_errcode != 0) {
450 Tcl_AppendResult(interp, errmsg, (char *) NULL);
451 return TCL_ERROR;
452 }
453
454 plflush();
455 return TCL_OK;
456}
457
458// The plbtimeCmd interface routine which processes the plbtime Tcl command.
459
460static int
461plbtimeCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
462{
463 PLINT year;
464 PLINT month;
465 PLINT day;
466 PLINT hour;
467 PLINT min;
468 PLFLT sec;
469 PLFLT ctime;
470
471 pl_errcode = 0; errmsg[0] = '\0';
472
473 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
474 Tcl_AppendResult( interp, "command syntax: command should be ",
475 "\"plbtime ?year month day hour min sec ctime?\"",
476 (char *) NULL);
477 return TCL_ERROR;
478 }
479
480 if ( (!1 && 0 && (argc < (7 + 1 - 0 - 0)) && (!0 || (argc < (7 + 1 - 0)))) ||
481 (!1 && !0 && (argc != (7 + 1 - 0)) && (!0 || (argc != (7 + 1)))) ||
482 (1 && (argc != 1) && (argc != (7 + 1 - 0)) && (!0 || (argc != (7 + 1)))) ) {
483 Tcl_AppendResult( interp, "wrong # args: command should be ",
484 "\"plbtime ?year month day hour min sec ctime?\"",
485 (char *) NULL);
486 return TCL_ERROR;
487 }
488
489/* year is for output. */
490/* month is for output. */
491/* day is for output. */
492/* hour is for output. */
493/* min is for output. */
494/* sec is for output. */
495 ctime = atof(argv[1+6]);
496
497
498
499 plbtime ( &year, &month, &day, &hour, &min, &sec, ctime );
500
501 sprintf( buf, "%d", year );
502 if (argc > 1)
503 Tcl_SetVar( interp, argv[1+0], buf, 0 );
504 else
505 Tcl_AppendResult( interp, buf, (char *) NULL );
506 if (argc == 1)
507 Tcl_AppendResult( interp, " ", (char *) NULL );
508 sprintf( buf, "%d", month );
509 if (argc > 1)
510 Tcl_SetVar( interp, argv[1+1], buf, 0 );
511 else
512 Tcl_AppendResult( interp, buf, (char *) NULL );
513 if (argc == 1)
514 Tcl_AppendResult( interp, " ", (char *) NULL );
515 sprintf( buf, "%d", day );
516 if (argc > 1)
517 Tcl_SetVar( interp, argv[1+2], buf, 0 );
518 else
519 Tcl_AppendResult( interp, buf, (char *) NULL );
520 if (argc == 1)
521 Tcl_AppendResult( interp, " ", (char *) NULL );
522 sprintf( buf, "%d", hour );
523 if (argc > 1)
524 Tcl_SetVar( interp, argv[1+3], buf, 0 );
525 else
526 Tcl_AppendResult( interp, buf, (char *) NULL );
527 if (argc == 1)
528 Tcl_AppendResult( interp, " ", (char *) NULL );
529 sprintf( buf, "%d", min );
530 if (argc > 1)
531 Tcl_SetVar( interp, argv[1+4], buf, 0 );
532 else
533 Tcl_AppendResult( interp, buf, (char *) NULL );
534 if (argc == 1)
535 Tcl_AppendResult( interp, " ", (char *) NULL );
536 Tcl_PrintDouble( interp, sec, buf );
537 if (argc > 1)
538 Tcl_SetVar( interp, argv[1+5], buf, 0 );
539 else
540 Tcl_AppendResult( interp, buf, (char *) NULL );
541
542 if (pl_errcode != 0) {
543 Tcl_AppendResult(interp, errmsg, (char *) NULL);
544 return TCL_ERROR;
545 }
546
547 plflush();
548 return TCL_OK;
549}
550
551// The plcalc_worldCmd interface routine which processes the plcalc_world Tcl command.
552
553static int
554plcalc_worldCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
555{
556 PLFLT rx;
557 PLFLT ry;
558 PLFLT wx;
559 PLFLT wy;
560 PLINT window;
561
562 pl_errcode = 0; errmsg[0] = '\0';
563
564 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
565 Tcl_AppendResult( interp, "command syntax: command should be ",
566 "\"plcalc_world ?rx ry wx wy window?\"",
567 (char *) NULL);
568 return TCL_ERROR;
569 }
570
571 if ( (!1 && 0 && (argc < (5 + 1 - 0 - 0)) && (!0 || (argc < (5 + 1 - 0)))) ||
572 (!1 && !0 && (argc != (5 + 1 - 0)) && (!0 || (argc != (5 + 1)))) ||
573 (1 && (argc != 1) && (argc != (5 + 1 - 0)) && (!0 || (argc != (5 + 1)))) ) {
574 Tcl_AppendResult( interp, "wrong # args: command should be ",
575 "\"plcalc_world ?rx ry wx wy window?\"",
576 (char *) NULL);
577 return TCL_ERROR;
578 }
579
580 rx = atof(argv[1+0]);
581 ry = atof(argv[1+1]);
582/* wx is for output. */
583/* wy is for output. */
584/* window is for output. */
585
586
587
588 plcalc_world ( rx, ry, &wx, &wy, &window );
589
590 if (argc == 1)
591 Tcl_AppendResult( interp, " ", (char *) NULL );
592 Tcl_PrintDouble( interp, wx, buf );
593 if (argc > 1)
594 Tcl_SetVar( interp, argv[1+2], buf, 0 );
595 else
596 Tcl_AppendResult( interp, buf, (char *) NULL );
597 if (argc == 1)
598 Tcl_AppendResult( interp, " ", (char *) NULL );
599 Tcl_PrintDouble( interp, wy, buf );
600 if (argc > 1)
601 Tcl_SetVar( interp, argv[1+3], buf, 0 );
602 else
603 Tcl_AppendResult( interp, buf, (char *) NULL );
604 if (argc == 1)
605 Tcl_AppendResult( interp, " ", (char *) NULL );
606 sprintf( buf, "%d", window );
607 if (argc > 1)
608 Tcl_SetVar( interp, argv[1+4], buf, 0 );
609 else
610 Tcl_AppendResult( interp, buf, (char *) NULL );
611
612 if (pl_errcode != 0) {
613 Tcl_AppendResult(interp, errmsg, (char *) NULL);
614 return TCL_ERROR;
615 }
616
617 plflush();
618 return TCL_OK;
619}
620
621// The plclearCmd interface routine which processes the plclear Tcl command.
622
623static int
624plclearCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
625{
626
627 pl_errcode = 0; errmsg[0] = '\0';
628
629 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
630 Tcl_AppendResult( interp, "command syntax: command should be ",
631 "\"plclear \"",
632 (char *) NULL);
633 return TCL_ERROR;
634 }
635
636 if ( (!0 && 0 && (argc < (0 + 1 - 0 - 0)) && (!0 || (argc < (0 + 1 - 0)))) ||
637 (!0 && !0 && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ||
638 (0 && (argc != 1) && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ) {
639 Tcl_AppendResult( interp, "wrong # args: command should be ",
640 "\"plclear \"",
641 (char *) NULL);
642 return TCL_ERROR;
643 }
644
645
646
647
648 plclear ( );
649
650
651 if (pl_errcode != 0) {
652 Tcl_AppendResult(interp, errmsg, (char *) NULL);
653 return TCL_ERROR;
654 }
655
656 plflush();
657 return TCL_OK;
658}
659
660// The plcol0Cmd interface routine which processes the plcol0 Tcl command.
661
662static int
663plcol0Cmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
664{
665 PLINT icol0;
666
667 pl_errcode = 0; errmsg[0] = '\0';
668
669 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
670 Tcl_AppendResult( interp, "command syntax: command should be ",
671 "\"plcol0 icol0\"",
672 (char *) NULL);
673 return TCL_ERROR;
674 }
675
676 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
677 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
678 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
679 Tcl_AppendResult( interp, "wrong # args: command should be ",
680 "\"plcol0 icol0\"",
681 (char *) NULL);
682 return TCL_ERROR;
683 }
684
685 icol0 = atoi(argv[1+0]);
686
687
688
689 plcol0 ( icol0 );
690
691
692 if (pl_errcode != 0) {
693 Tcl_AppendResult(interp, errmsg, (char *) NULL);
694 return TCL_ERROR;
695 }
696
697 plflush();
698 return TCL_OK;
699}
700
701// The plcol1Cmd interface routine which processes the plcol1 Tcl command.
702
703static int
704plcol1Cmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
705{
706 PLFLT col1;
707
708 pl_errcode = 0; errmsg[0] = '\0';
709
710 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
711 Tcl_AppendResult( interp, "command syntax: command should be ",
712 "\"plcol1 col1\"",
713 (char *) NULL);
714 return TCL_ERROR;
715 }
716
717 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
718 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
719 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
720 Tcl_AppendResult( interp, "wrong # args: command should be ",
721 "\"plcol1 col1\"",
722 (char *) NULL);
723 return TCL_ERROR;
724 }
725
726 col1 = atof(argv[1+0]);
727
728
729
730 plcol1 ( col1 );
731
732
733 if (pl_errcode != 0) {
734 Tcl_AppendResult(interp, errmsg, (char *) NULL);
735 return TCL_ERROR;
736 }
737
738 plflush();
739 return TCL_OK;
740}
741
742// The plconfigtimeCmd interface routine which processes the plconfigtime Tcl command.
743
744static int
745plconfigtimeCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
746{
747 PLFLT scale;
748 PLFLT offset1;
749 PLFLT offset2;
750 PLINT ccontrol;
751 PLINT ifbtime_offset;
752 PLINT year;
753 PLINT month;
754 PLINT day;
755 PLINT hour;
756 PLINT min;
757 PLFLT sec;
758
759 pl_errcode = 0; errmsg[0] = '\0';
760
761 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
762 Tcl_AppendResult( interp, "command syntax: command should be ",
763 "\"plconfigtime scale offset1 offset2 ccontrol ifbtime_offset year month day hour min sec\"",
764 (char *) NULL);
765 return TCL_ERROR;
766 }
767
768 if ( (!0 && 0 && (argc < (11 + 1 - 0 - 0)) && (!0 || (argc < (11 + 1 - 0)))) ||
769 (!0 && !0 && (argc != (11 + 1 - 0)) && (!0 || (argc != (11 + 1)))) ||
770 (0 && (argc != 1) && (argc != (11 + 1 - 0)) && (!0 || (argc != (11 + 1)))) ) {
771 Tcl_AppendResult( interp, "wrong # args: command should be ",
772 "\"plconfigtime scale offset1 offset2 ccontrol ifbtime_offset year month day hour min sec\"",
773 (char *) NULL);
774 return TCL_ERROR;
775 }
776
777 scale = atof(argv[1+0]);
778 offset1 = atof(argv[1+1]);
779 offset2 = atof(argv[1+2]);
780 ccontrol = atoi(argv[1+3]);
781 ifbtime_offset = atoi(argv[1+4]);
782 year = atoi(argv[1+5]);
783 month = atoi(argv[1+6]);
784 day = atoi(argv[1+7]);
785 hour = atoi(argv[1+8]);
786 min = atoi(argv[1+9]);
787 sec = atof(argv[1+10]);
788
789
790
791 plconfigtime ( scale, offset1, offset2, ccontrol, ifbtime_offset, year, month, day, hour, min, sec );
792
793
794 if (pl_errcode != 0) {
795 Tcl_AppendResult(interp, errmsg, (char *) NULL);
796 return TCL_ERROR;
797 }
798
799 plflush();
800 return TCL_OK;
801}
802
803// The plcpstrmCmd interface routine which processes the plcpstrm Tcl command.
804
805static int
806plcpstrmCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
807{
808 PLINT iplsr;
809 PLINT flags;
810
811 pl_errcode = 0; errmsg[0] = '\0';
812
813 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
814 Tcl_AppendResult( interp, "command syntax: command should be ",
815 "\"plcpstrm iplsr flags\"",
816 (char *) NULL);
817 return TCL_ERROR;
818 }
819
820 if ( (!0 && 0 && (argc < (2 + 1 - 0 - 0)) && (!0 || (argc < (2 + 1 - 0)))) ||
821 (!0 && !0 && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ||
822 (0 && (argc != 1) && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ) {
823 Tcl_AppendResult( interp, "wrong # args: command should be ",
824 "\"plcpstrm iplsr flags\"",
825 (char *) NULL);
826 return TCL_ERROR;
827 }
828
829 iplsr = atoi(argv[1+0]);
830 flags = atoi(argv[1+1]);
831
832
833
834 plcpstrm ( iplsr, flags );
835
836
837 if (pl_errcode != 0) {
838 Tcl_AppendResult(interp, errmsg, (char *) NULL);
839 return TCL_ERROR;
840 }
841
842 plflush();
843 return TCL_OK;
844}
845
846// The plctimeCmd interface routine which processes the plctime Tcl command.
847
848static int
849plctimeCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
850{
851 PLINT year;
852 PLINT month;
853 PLINT day;
854 PLINT hour;
855 PLINT min;
856 PLFLT sec;
857 PLFLT ctime;
858
859 pl_errcode = 0; errmsg[0] = '\0';
860
861 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
862 Tcl_AppendResult( interp, "command syntax: command should be ",
863 "\"plctime ?year month day hour min sec ctime?\"",
864 (char *) NULL);
865 return TCL_ERROR;
866 }
867
868 if ( (!1 && 0 && (argc < (7 + 1 - 0 - 0)) && (!0 || (argc < (7 + 1 - 0)))) ||
869 (!1 && !0 && (argc != (7 + 1 - 0)) && (!0 || (argc != (7 + 1)))) ||
870 (1 && (argc != 1) && (argc != (7 + 1 - 0)) && (!0 || (argc != (7 + 1)))) ) {
871 Tcl_AppendResult( interp, "wrong # args: command should be ",
872 "\"plctime ?year month day hour min sec ctime?\"",
873 (char *) NULL);
874 return TCL_ERROR;
875 }
876
877 year = atoi(argv[1+0]);
878 month = atoi(argv[1+1]);
879 day = atoi(argv[1+2]);
880 hour = atoi(argv[1+3]);
881 min = atoi(argv[1+4]);
882 sec = atof(argv[1+5]);
883/* ctime is for output. */
884
885
886
887 plctime ( year, month, day, hour, min, sec, &ctime );
888
889 if (argc == 1)
890 Tcl_AppendResult( interp, " ", (char *) NULL );
891 Tcl_PrintDouble( interp, ctime, buf );
892 if (argc > 1)
893 Tcl_SetVar( interp, argv[1+6], buf, 0 );
894 else
895 Tcl_AppendResult( interp, buf, (char *) NULL );
896
897 if (pl_errcode != 0) {
898 Tcl_AppendResult(interp, errmsg, (char *) NULL);
899 return TCL_ERROR;
900 }
901
902 plflush();
903 return TCL_OK;
904}
905
906// The pldid2pcCmd interface routine which processes the pldid2pc Tcl command.
907
908static int
909pldid2pcCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
910{
911 PLFLT xmin;
912 PLFLT ymin;
913 PLFLT xmax;
914 PLFLT ymax;
915
916 pl_errcode = 0; errmsg[0] = '\0';
917
918 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
919 Tcl_AppendResult( interp, "command syntax: command should be ",
920 "\"pldid2pc ?xmin ymin xmax ymax?\"",
921 (char *) NULL);
922 return TCL_ERROR;
923 }
924
925 if ( (!1 && 0 && (argc < (4 + 1 - 0 - 0)) && (!0 || (argc < (4 + 1 - 0)))) ||
926 (!1 && !0 && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ||
927 (1 && (argc != 1) && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ) {
928 Tcl_AppendResult( interp, "wrong # args: command should be ",
929 "\"pldid2pc ?xmin ymin xmax ymax?\"",
930 (char *) NULL);
931 return TCL_ERROR;
932 }
933
934/* xmin is for output. */
935/* ymin is for output. */
936/* xmax is for output. */
937/* ymax is for output. */
938
939
940
941 pldid2pc ( &xmin, &ymin, &xmax, &ymax );
942
943 Tcl_PrintDouble( interp, xmin, buf );
944 if (argc > 1)
945 Tcl_SetVar( interp, argv[1+0], buf, 0 );
946 else
947 Tcl_AppendResult( interp, buf, (char *) NULL );
948 if (argc == 1)
949 Tcl_AppendResult( interp, " ", (char *) NULL );
950 Tcl_PrintDouble( interp, ymin, buf );
951 if (argc > 1)
952 Tcl_SetVar( interp, argv[1+1], buf, 0 );
953 else
954 Tcl_AppendResult( interp, buf, (char *) NULL );
955 if (argc == 1)
956 Tcl_AppendResult( interp, " ", (char *) NULL );
957 Tcl_PrintDouble( interp, xmax, buf );
958 if (argc > 1)
959 Tcl_SetVar( interp, argv[1+2], buf, 0 );
960 else
961 Tcl_AppendResult( interp, buf, (char *) NULL );
962 if (argc == 1)
963 Tcl_AppendResult( interp, " ", (char *) NULL );
964 Tcl_PrintDouble( interp, ymax, buf );
965 if (argc > 1)
966 Tcl_SetVar( interp, argv[1+3], buf, 0 );
967 else
968 Tcl_AppendResult( interp, buf, (char *) NULL );
969
970 if (pl_errcode != 0) {
971 Tcl_AppendResult(interp, errmsg, (char *) NULL);
972 return TCL_ERROR;
973 }
974
975 plflush();
976 return TCL_OK;
977}
978
979// The pldip2dcCmd interface routine which processes the pldip2dc Tcl command.
980
981static int
982pldip2dcCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
983{
984 PLFLT xmin;
985 PLFLT ymin;
986 PLFLT xmax;
987 PLFLT ymax;
988
989 pl_errcode = 0; errmsg[0] = '\0';
990
991 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
992 Tcl_AppendResult( interp, "command syntax: command should be ",
993 "\"pldip2dc ?xmin ymin xmax ymax?\"",
994 (char *) NULL);
995 return TCL_ERROR;
996 }
997
998 if ( (!1 && 0 && (argc < (4 + 1 - 0 - 0)) && (!0 || (argc < (4 + 1 - 0)))) ||
999 (!1 && !0 && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ||
1000 (1 && (argc != 1) && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ) {
1001 Tcl_AppendResult( interp, "wrong # args: command should be ",
1002 "\"pldip2dc ?xmin ymin xmax ymax?\"",
1003 (char *) NULL);
1004 return TCL_ERROR;
1005 }
1006
1007/* xmin is for output. */
1008/* ymin is for output. */
1009/* xmax is for output. */
1010/* ymax is for output. */
1011
1012
1013
1014 pldip2dc ( &xmin, &ymin, &xmax, &ymax );
1015
1016 Tcl_PrintDouble( interp, xmin, buf );
1017 if (argc > 1)
1018 Tcl_SetVar( interp, argv[1+0], buf, 0 );
1019 else
1020 Tcl_AppendResult( interp, buf, (char *) NULL );
1021 if (argc == 1)
1022 Tcl_AppendResult( interp, " ", (char *) NULL );
1023 Tcl_PrintDouble( interp, ymin, buf );
1024 if (argc > 1)
1025 Tcl_SetVar( interp, argv[1+1], buf, 0 );
1026 else
1027 Tcl_AppendResult( interp, buf, (char *) NULL );
1028 if (argc == 1)
1029 Tcl_AppendResult( interp, " ", (char *) NULL );
1030 Tcl_PrintDouble( interp, xmax, buf );
1031 if (argc > 1)
1032 Tcl_SetVar( interp, argv[1+2], buf, 0 );
1033 else
1034 Tcl_AppendResult( interp, buf, (char *) NULL );
1035 if (argc == 1)
1036 Tcl_AppendResult( interp, " ", (char *) NULL );
1037 Tcl_PrintDouble( interp, ymax, buf );
1038 if (argc > 1)
1039 Tcl_SetVar( interp, argv[1+3], buf, 0 );
1040 else
1041 Tcl_AppendResult( interp, buf, (char *) NULL );
1042
1043 if (pl_errcode != 0) {
1044 Tcl_AppendResult(interp, errmsg, (char *) NULL);
1045 return TCL_ERROR;
1046 }
1047
1048 plflush();
1049 return TCL_OK;
1050}
1051
1052// The plendCmd interface routine which processes the plend Tcl command.
1053
1054static int
1055plendCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
1056{
1057
1058 pl_errcode = 0; errmsg[0] = '\0';
1059
1060 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
1061 Tcl_AppendResult( interp, "command syntax: command should be ",
1062 "\"plend \"",
1063 (char *) NULL);
1064 return TCL_ERROR;
1065 }
1066
1067 if ( (!0 && 0 && (argc < (0 + 1 - 0 - 0)) && (!0 || (argc < (0 + 1 - 0)))) ||
1068 (!0 && !0 && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ||
1069 (0 && (argc != 1) && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ) {
1070 Tcl_AppendResult( interp, "wrong # args: command should be ",
1071 "\"plend \"",
1072 (char *) NULL);
1073 return TCL_ERROR;
1074 }
1075
1076
1077
1078
1079 plend ( );
1080
1081
1082 if (pl_errcode != 0) {
1083 Tcl_AppendResult(interp, errmsg, (char *) NULL);
1084 return TCL_ERROR;
1085 }
1086
1087 plflush();
1088 return TCL_OK;
1089}
1090
1091// The plend1Cmd interface routine which processes the plend1 Tcl command.
1092
1093static int
1094plend1Cmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
1095{
1096
1097 pl_errcode = 0; errmsg[0] = '\0';
1098
1099 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
1100 Tcl_AppendResult( interp, "command syntax: command should be ",
1101 "\"plend1 \"",
1102 (char *) NULL);
1103 return TCL_ERROR;
1104 }
1105
1106 if ( (!0 && 0 && (argc < (0 + 1 - 0 - 0)) && (!0 || (argc < (0 + 1 - 0)))) ||
1107 (!0 && !0 && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ||
1108 (0 && (argc != 1) && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ) {
1109 Tcl_AppendResult( interp, "wrong # args: command should be ",
1110 "\"plend1 \"",
1111 (char *) NULL);
1112 return TCL_ERROR;
1113 }
1114
1115
1116
1117
1118 plend1 ( );
1119
1120
1121 if (pl_errcode != 0) {
1122 Tcl_AppendResult(interp, errmsg, (char *) NULL);
1123 return TCL_ERROR;
1124 }
1125
1126 plflush();
1127 return TCL_OK;
1128}
1129
1130// The plenvCmd interface routine which processes the plenv Tcl command.
1131
1132static int
1133plenvCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
1134{
1135 PLFLT xmin;
1136 PLFLT xmax;
1137 PLFLT ymin;
1138 PLFLT ymax;
1139 PLINT just;
1140 PLINT axis;
1141
1142 pl_errcode = 0; errmsg[0] = '\0';
1143
1144 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
1145 Tcl_AppendResult( interp, "command syntax: command should be ",
1146 "\"plenv xmin xmax ymin ymax just axis\"",
1147 (char *) NULL);
1148 return TCL_ERROR;
1149 }
1150
1151 if ( (!0 && 0 && (argc < (6 + 1 - 0 - 0)) && (!0 || (argc < (6 + 1 - 0)))) ||
1152 (!0 && !0 && (argc != (6 + 1 - 0)) && (!0 || (argc != (6 + 1)))) ||
1153 (0 && (argc != 1) && (argc != (6 + 1 - 0)) && (!0 || (argc != (6 + 1)))) ) {
1154 Tcl_AppendResult( interp, "wrong # args: command should be ",
1155 "\"plenv xmin xmax ymin ymax just axis\"",
1156 (char *) NULL);
1157 return TCL_ERROR;
1158 }
1159
1160 xmin = atof(argv[1+0]);
1161 xmax = atof(argv[1+1]);
1162 ymin = atof(argv[1+2]);
1163 ymax = atof(argv[1+3]);
1164 just = atoi(argv[1+4]);
1165 axis = atoi(argv[1+5]);
1166
1167
1168
1169 plenv ( xmin, xmax, ymin, ymax, just, axis );
1170
1171
1172 if (pl_errcode != 0) {
1173 Tcl_AppendResult(interp, errmsg, (char *) NULL);
1174 return TCL_ERROR;
1175 }
1176
1177 plflush();
1178 return TCL_OK;
1179}
1180
1181// The plenv0Cmd interface routine which processes the plenv0 Tcl command.
1182
1183static int
1184plenv0Cmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
1185{
1186 PLFLT xmin;
1187 PLFLT xmax;
1188 PLFLT ymin;
1189 PLFLT ymax;
1190 PLINT just;
1191 PLINT axis;
1192
1193 pl_errcode = 0; errmsg[0] = '\0';
1194
1195 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
1196 Tcl_AppendResult( interp, "command syntax: command should be ",
1197 "\"plenv0 xmin xmax ymin ymax just axis\"",
1198 (char *) NULL);
1199 return TCL_ERROR;
1200 }
1201
1202 if ( (!0 && 0 && (argc < (6 + 1 - 0 - 0)) && (!0 || (argc < (6 + 1 - 0)))) ||
1203 (!0 && !0 && (argc != (6 + 1 - 0)) && (!0 || (argc != (6 + 1)))) ||
1204 (0 && (argc != 1) && (argc != (6 + 1 - 0)) && (!0 || (argc != (6 + 1)))) ) {
1205 Tcl_AppendResult( interp, "wrong # args: command should be ",
1206 "\"plenv0 xmin xmax ymin ymax just axis\"",
1207 (char *) NULL);
1208 return TCL_ERROR;
1209 }
1210
1211 xmin = atof(argv[1+0]);
1212 xmax = atof(argv[1+1]);
1213 ymin = atof(argv[1+2]);
1214 ymax = atof(argv[1+3]);
1215 just = atoi(argv[1+4]);
1216 axis = atoi(argv[1+5]);
1217
1218
1219
1220 plenv0 ( xmin, xmax, ymin, ymax, just, axis );
1221
1222
1223 if (pl_errcode != 0) {
1224 Tcl_AppendResult(interp, errmsg, (char *) NULL);
1225 return TCL_ERROR;
1226 }
1227
1228 plflush();
1229 return TCL_OK;
1230}
1231
1232// The pleopCmd interface routine which processes the pleop Tcl command.
1233
1234static int
1235pleopCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
1236{
1237
1238 pl_errcode = 0; errmsg[0] = '\0';
1239
1240 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
1241 Tcl_AppendResult( interp, "command syntax: command should be ",
1242 "\"pleop \"",
1243 (char *) NULL);
1244 return TCL_ERROR;
1245 }
1246
1247 if ( (!0 && 0 && (argc < (0 + 1 - 0 - 0)) && (!0 || (argc < (0 + 1 - 0)))) ||
1248 (!0 && !0 && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ||
1249 (0 && (argc != 1) && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ) {
1250 Tcl_AppendResult( interp, "wrong # args: command should be ",
1251 "\"pleop \"",
1252 (char *) NULL);
1253 return TCL_ERROR;
1254 }
1255
1256
1257
1258
1259 pleop ( );
1260
1261
1262 if (pl_errcode != 0) {
1263 Tcl_AppendResult(interp, errmsg, (char *) NULL);
1264 return TCL_ERROR;
1265 }
1266
1267 plflush();
1268 return TCL_OK;
1269}
1270
1271// The plerrxCmd interface routine which processes the plerrx Tcl command.
1272
1273static int
1274plerrxCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
1275{
1276 PLINT n;
1277 PLFLT *xmin;
1278 tclMatrix *matxmin;
1279 PLFLT *xmax;
1280 tclMatrix *matxmax;
1281 PLFLT *y;
1282 tclMatrix *maty;
1283
1284 pl_errcode = 0; errmsg[0] = '\0';
1285
1286 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
1287 Tcl_AppendResult( interp, "command syntax: command should be ",
1288 "\"plerrx xmin xmax y\"",
1289 (char *) NULL);
1290 return TCL_ERROR;
1291 }
1292
1293 if ( (!0 && 0 && (argc < (4 + 1 - 0 - 1)) && (!0 || (argc < (4 + 1 - 0)))) ||
1294 (!0 && !0 && (argc != (4 + 1 - 1)) && (!0 || (argc != (4 + 1)))) ||
1295 (0 && (argc != 1) && (argc != (4 + 1 - 1)) && (!0 || (argc != (4 + 1)))) ) {
1296 Tcl_AppendResult( interp, "wrong # args: command should be ",
1297 "\"plerrx xmin xmax y\"",
1298 (char *) NULL);
1299 return TCL_ERROR;
1300 }
1301
1302 matxmin = Tcl_GetMatrixPtr( interp, argv[1+0] );
1303 if (matxmin == NULL) return TCL_ERROR;
1304 xmin = matxmin->fdata;
1305 matxmax = Tcl_GetMatrixPtr( interp, argv[1+1] );
1306 if (matxmax == NULL) return TCL_ERROR;
1307 xmax = matxmax->fdata;
1308 maty = Tcl_GetMatrixPtr( interp, argv[1+2] );
1309 if (maty == NULL) return TCL_ERROR;
1310 y = maty->fdata;
1311 n = maty->n[0];
1312
1313 if ( ! (n <= maty->n[0] && matxmin->n[0] == matxmax->n[0] && matxmin->n[0] == maty->n[0]) ) {
1314 Tcl_AppendResult( interp, "Length of the three vectors must be equal", (char *) NULL );
1315 return TCL_ERROR;
1316 }
1317 if ( ! (matxmin->type == TYPE_FLOAT && matxmax->type == TYPE_FLOAT && maty->type == TYPE_FLOAT) ) {
1318 Tcl_AppendResult( interp, "All vectors must be of type float", (char *) NULL );
1319 return TCL_ERROR;
1320 }
1321
1322
1323 plerrx ( n, xmin, xmax, y );
1324
1325
1326 if (pl_errcode != 0) {
1327 Tcl_AppendResult(interp, errmsg, (char *) NULL);
1328 return TCL_ERROR;
1329 }
1330
1331 plflush();
1332 return TCL_OK;
1333}
1334
1335// The plerryCmd interface routine which processes the plerry Tcl command.
1336
1337static int
1338plerryCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
1339{
1340 PLINT n;
1341 PLFLT *x;
1342 tclMatrix *matx;
1343 PLFLT *ymin;
1344 tclMatrix *matymin;
1345 PLFLT *ymax;
1346 tclMatrix *matymax;
1347
1348 pl_errcode = 0; errmsg[0] = '\0';
1349
1350 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
1351 Tcl_AppendResult( interp, "command syntax: command should be ",
1352 "\"plerry x ymin ymax\"",
1353 (char *) NULL);
1354 return TCL_ERROR;
1355 }
1356
1357 if ( (!0 && 0 && (argc < (4 + 1 - 0 - 1)) && (!0 || (argc < (4 + 1 - 0)))) ||
1358 (!0 && !0 && (argc != (4 + 1 - 1)) && (!0 || (argc != (4 + 1)))) ||
1359 (0 && (argc != 1) && (argc != (4 + 1 - 1)) && (!0 || (argc != (4 + 1)))) ) {
1360 Tcl_AppendResult( interp, "wrong # args: command should be ",
1361 "\"plerry x ymin ymax\"",
1362 (char *) NULL);
1363 return TCL_ERROR;
1364 }
1365
1366 matx = Tcl_GetMatrixPtr( interp, argv[1+0] );
1367 if (matx == NULL) return TCL_ERROR;
1368 x = matx->fdata;
1369 matymin = Tcl_GetMatrixPtr( interp, argv[1+1] );
1370 if (matymin == NULL) return TCL_ERROR;
1371 ymin = matymin->fdata;
1372 matymax = Tcl_GetMatrixPtr( interp, argv[1+2] );
1373 if (matymax == NULL) return TCL_ERROR;
1374 ymax = matymax->fdata;
1375 n = matx->n[0];
1376
1377 if ( ! (n <= matx->n[0] && matymin->n[0] == matymax->n[0] && matymin->n[0] == matx->n[0]) ) {
1378 Tcl_AppendResult( interp, "Length of the three vectors must be equal", (char *) NULL );
1379 return TCL_ERROR;
1380 }
1381 if ( ! (matx->type == TYPE_FLOAT && matymin->type == TYPE_FLOAT && matymax->type == TYPE_FLOAT) ) {
1382 Tcl_AppendResult( interp, "All vectors must be of type float", (char *) NULL );
1383 return TCL_ERROR;
1384 }
1385
1386
1387 plerry ( n, x, ymin, ymax );
1388
1389
1390 if (pl_errcode != 0) {
1391 Tcl_AppendResult(interp, errmsg, (char *) NULL);
1392 return TCL_ERROR;
1393 }
1394
1395 plflush();
1396 return TCL_OK;
1397}
1398
1399// The plfamadvCmd interface routine which processes the plfamadv Tcl command.
1400
1401static int
1402plfamadvCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
1403{
1404
1405 pl_errcode = 0; errmsg[0] = '\0';
1406
1407 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
1408 Tcl_AppendResult( interp, "command syntax: command should be ",
1409 "\"plfamadv \"",
1410 (char *) NULL);
1411 return TCL_ERROR;
1412 }
1413
1414 if ( (!0 && 0 && (argc < (0 + 1 - 0 - 0)) && (!0 || (argc < (0 + 1 - 0)))) ||
1415 (!0 && !0 && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ||
1416 (0 && (argc != 1) && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ) {
1417 Tcl_AppendResult( interp, "wrong # args: command should be ",
1418 "\"plfamadv \"",
1419 (char *) NULL);
1420 return TCL_ERROR;
1421 }
1422
1423
1424
1425
1426 plfamadv ( );
1427
1428
1429 if (pl_errcode != 0) {
1430 Tcl_AppendResult(interp, errmsg, (char *) NULL);
1431 return TCL_ERROR;
1432 }
1433
1434 plflush();
1435 return TCL_OK;
1436}
1437
1438// The plfillCmd interface routine which processes the plfill Tcl command.
1439
1440static int
1441plfillCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
1442{
1443 PLINT n;
1444 PLFLT *x;
1445 tclMatrix *matx;
1446 PLFLT *y;
1447 tclMatrix *maty;
1448
1449 pl_errcode = 0; errmsg[0] = '\0';
1450
1451 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
1452 Tcl_AppendResult( interp, "command syntax: command should be ",
1453 "\"plfill x y\"",
1454 (char *) NULL);
1455 return TCL_ERROR;
1456 }
1457
1458 if ( (!0 && 0 && (argc < (3 + 1 - 0 - 1)) && (!0 || (argc < (3 + 1 - 0)))) ||
1459 (!0 && !0 && (argc != (3 + 1 - 1)) && (!0 || (argc != (3 + 1)))) ||
1460 (0 && (argc != 1) && (argc != (3 + 1 - 1)) && (!0 || (argc != (3 + 1)))) ) {
1461 Tcl_AppendResult( interp, "wrong # args: command should be ",
1462 "\"plfill x y\"",
1463 (char *) NULL);
1464 return TCL_ERROR;
1465 }
1466
1467 matx = Tcl_GetMatrixPtr( interp, argv[1+0] );
1468 if (matx == NULL) return TCL_ERROR;
1469 x = matx->fdata;
1470 maty = Tcl_GetMatrixPtr( interp, argv[1+1] );
1471 if (maty == NULL) return TCL_ERROR;
1472 y = maty->fdata;
1473 n = matx->n[0];
1474
1475 if ( ! (n <= matx->n[0] && matx->n[0] == maty->n[0]) ) {
1476 Tcl_AppendResult( interp, "Length of the two vectors must be equal", (char *) NULL );
1477 return TCL_ERROR;
1478 }
1479 if ( ! (matx->type == TYPE_FLOAT && maty->type == TYPE_FLOAT) ) {
1480 Tcl_AppendResult( interp, "Both vectors must be of type float", (char *) NULL );
1481 return TCL_ERROR;
1482 }
1483
1484
1485 plfill ( n, x, y );
1486
1487
1488 if (pl_errcode != 0) {
1489 Tcl_AppendResult(interp, errmsg, (char *) NULL);
1490 return TCL_ERROR;
1491 }
1492
1493 plflush();
1494 return TCL_OK;
1495}
1496
1497// The plfill3Cmd interface routine which processes the plfill3 Tcl command.
1498
1499static int
1500plfill3Cmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
1501{
1502 PLINT n;
1503 PLFLT *x;
1504 tclMatrix *matx;
1505 PLFLT *y;
1506 tclMatrix *maty;
1507 PLFLT *z;
1508 tclMatrix *matz;
1509
1510 pl_errcode = 0; errmsg[0] = '\0';
1511
1512 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
1513 Tcl_AppendResult( interp, "command syntax: command should be ",
1514 "\"plfill3 x y z\"",
1515 (char *) NULL);
1516 return TCL_ERROR;
1517 }
1518
1519 if ( (!0 && 0 && (argc < (4 + 1 - 0 - 1)) && (!0 || (argc < (4 + 1 - 0)))) ||
1520 (!0 && !0 && (argc != (4 + 1 - 1)) && (!0 || (argc != (4 + 1)))) ||
1521 (0 && (argc != 1) && (argc != (4 + 1 - 1)) && (!0 || (argc != (4 + 1)))) ) {
1522 Tcl_AppendResult( interp, "wrong # args: command should be ",
1523 "\"plfill3 x y z\"",
1524 (char *) NULL);
1525 return TCL_ERROR;
1526 }
1527
1528 matx = Tcl_GetMatrixPtr( interp, argv[1+0] );
1529 if (matx == NULL) return TCL_ERROR;
1530 x = matx->fdata;
1531 maty = Tcl_GetMatrixPtr( interp, argv[1+1] );
1532 if (maty == NULL) return TCL_ERROR;
1533 y = maty->fdata;
1534 matz = Tcl_GetMatrixPtr( interp, argv[1+2] );
1535 if (matz == NULL) return TCL_ERROR;
1536 z = matz->fdata;
1537 n = matx->n[0];
1538
1539 if ( ! (n <= matx->n[0] && matx->n[0] == maty->n[0] && matx->n[0] == matz->n[0]) ) {
1540 Tcl_AppendResult( interp, "Length of the three vectors must be equal", (char *) NULL );
1541 return TCL_ERROR;
1542 }
1543 if ( ! (matx->type == TYPE_FLOAT && maty->type == TYPE_FLOAT && matz->type == TYPE_FLOAT) ) {
1544 Tcl_AppendResult( interp, "All vectors must be of type float", (char *) NULL );
1545 return TCL_ERROR;
1546 }
1547
1548
1549 plfill3 ( n, x, y, z );
1550
1551
1552 if (pl_errcode != 0) {
1553 Tcl_AppendResult(interp, errmsg, (char *) NULL);
1554 return TCL_ERROR;
1555 }
1556
1557 plflush();
1558 return TCL_OK;
1559}
1560
1561// The plflushCmd interface routine which processes the plflush Tcl command.
1562
1563static int
1564plflushCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
1565{
1566
1567 pl_errcode = 0; errmsg[0] = '\0';
1568
1569 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
1570 Tcl_AppendResult( interp, "command syntax: command should be ",
1571 "\"plflush \"",
1572 (char *) NULL);
1573 return TCL_ERROR;
1574 }
1575
1576 if ( (!0 && 0 && (argc < (0 + 1 - 0 - 0)) && (!0 || (argc < (0 + 1 - 0)))) ||
1577 (!0 && !0 && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ||
1578 (0 && (argc != 1) && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ) {
1579 Tcl_AppendResult( interp, "wrong # args: command should be ",
1580 "\"plflush \"",
1581 (char *) NULL);
1582 return TCL_ERROR;
1583 }
1584
1585
1586
1587
1588 plflush ( );
1589
1590
1591 if (pl_errcode != 0) {
1592 Tcl_AppendResult(interp, errmsg, (char *) NULL);
1593 return TCL_ERROR;
1594 }
1595
1596 plflush();
1597 return TCL_OK;
1598}
1599
1600// The plfontCmd interface routine which processes the plfont Tcl command.
1601
1602static int
1603plfontCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
1604{
1605 PLINT ifont;
1606
1607 pl_errcode = 0; errmsg[0] = '\0';
1608
1609 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
1610 Tcl_AppendResult( interp, "command syntax: command should be ",
1611 "\"plfont ifont\"",
1612 (char *) NULL);
1613 return TCL_ERROR;
1614 }
1615
1616 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
1617 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
1618 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
1619 Tcl_AppendResult( interp, "wrong # args: command should be ",
1620 "\"plfont ifont\"",
1621 (char *) NULL);
1622 return TCL_ERROR;
1623 }
1624
1625 ifont = atoi(argv[1+0]);
1626
1627
1628
1629 plfont ( ifont );
1630
1631
1632 if (pl_errcode != 0) {
1633 Tcl_AppendResult(interp, errmsg, (char *) NULL);
1634 return TCL_ERROR;
1635 }
1636
1637 plflush();
1638 return TCL_OK;
1639}
1640
1641// The plfontldCmd interface routine which processes the plfontld Tcl command.
1642
1643static int
1644plfontldCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
1645{
1646 PLINT fnt;
1647
1648 pl_errcode = 0; errmsg[0] = '\0';
1649
1650 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
1651 Tcl_AppendResult( interp, "command syntax: command should be ",
1652 "\"plfontld fnt\"",
1653 (char *) NULL);
1654 return TCL_ERROR;
1655 }
1656
1657 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
1658 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
1659 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
1660 Tcl_AppendResult( interp, "wrong # args: command should be ",
1661 "\"plfontld fnt\"",
1662 (char *) NULL);
1663 return TCL_ERROR;
1664 }
1665
1666 fnt = atoi(argv[1+0]);
1667
1668
1669
1670 plfontld ( fnt );
1671
1672
1673 if (pl_errcode != 0) {
1674 Tcl_AppendResult(interp, errmsg, (char *) NULL);
1675 return TCL_ERROR;
1676 }
1677
1678 plflush();
1679 return TCL_OK;
1680}
1681
1682// The plgchrCmd interface routine which processes the plgchr Tcl command.
1683
1684static int
1685plgchrCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
1686{
1687 PLFLT def;
1688 PLFLT ht;
1689
1690 pl_errcode = 0; errmsg[0] = '\0';
1691
1692 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
1693 Tcl_AppendResult( interp, "command syntax: command should be ",
1694 "\"plgchr ?def ht?\"",
1695 (char *) NULL);
1696 return TCL_ERROR;
1697 }
1698
1699 if ( (!1 && 0 && (argc < (2 + 1 - 0 - 0)) && (!0 || (argc < (2 + 1 - 0)))) ||
1700 (!1 && !0 && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ||
1701 (1 && (argc != 1) && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ) {
1702 Tcl_AppendResult( interp, "wrong # args: command should be ",
1703 "\"plgchr ?def ht?\"",
1704 (char *) NULL);
1705 return TCL_ERROR;
1706 }
1707
1708/* def is for output. */
1709/* ht is for output. */
1710
1711
1712
1713 plgchr ( &def, &ht );
1714
1715 Tcl_PrintDouble( interp, def, buf );
1716 if (argc > 1)
1717 Tcl_SetVar( interp, argv[1+0], buf, 0 );
1718 else
1719 Tcl_AppendResult( interp, buf, (char *) NULL );
1720 if (argc == 1)
1721 Tcl_AppendResult( interp, " ", (char *) NULL );
1722 Tcl_PrintDouble( interp, ht, buf );
1723 if (argc > 1)
1724 Tcl_SetVar( interp, argv[1+1], buf, 0 );
1725 else
1726 Tcl_AppendResult( interp, buf, (char *) NULL );
1727
1728 if (pl_errcode != 0) {
1729 Tcl_AppendResult(interp, errmsg, (char *) NULL);
1730 return TCL_ERROR;
1731 }
1732
1733 plflush();
1734 return TCL_OK;
1735}
1736
1737// The plgcmap1_rangeCmd interface routine which processes the plgcmap1_range Tcl command.
1738
1739static int
1740plgcmap1_rangeCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
1741{
1742 PLFLT min_color;
1743 PLFLT max_color;
1744
1745 pl_errcode = 0; errmsg[0] = '\0';
1746
1747 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
1748 Tcl_AppendResult( interp, "command syntax: command should be ",
1749 "\"plgcmap1_range ?min_color max_color?\"",
1750 (char *) NULL);
1751 return TCL_ERROR;
1752 }
1753
1754 if ( (!1 && 0 && (argc < (2 + 1 - 0 - 0)) && (!0 || (argc < (2 + 1 - 0)))) ||
1755 (!1 && !0 && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ||
1756 (1 && (argc != 1) && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ) {
1757 Tcl_AppendResult( interp, "wrong # args: command should be ",
1758 "\"plgcmap1_range ?min_color max_color?\"",
1759 (char *) NULL);
1760 return TCL_ERROR;
1761 }
1762
1763/* min_color is for output. */
1764/* max_color is for output. */
1765
1766
1767
1768 plgcmap1_range ( &min_color, &max_color );
1769
1770 Tcl_PrintDouble( interp, min_color, buf );
1771 if (argc > 1)
1772 Tcl_SetVar( interp, argv[1+0], buf, 0 );
1773 else
1774 Tcl_AppendResult( interp, buf, (char *) NULL );
1775 if (argc == 1)
1776 Tcl_AppendResult( interp, " ", (char *) NULL );
1777 Tcl_PrintDouble( interp, max_color, buf );
1778 if (argc > 1)
1779 Tcl_SetVar( interp, argv[1+1], buf, 0 );
1780 else
1781 Tcl_AppendResult( interp, buf, (char *) NULL );
1782
1783 if (pl_errcode != 0) {
1784 Tcl_AppendResult(interp, errmsg, (char *) NULL);
1785 return TCL_ERROR;
1786 }
1787
1788 plflush();
1789 return TCL_OK;
1790}
1791
1792// The plgcol0Cmd interface routine which processes the plgcol0 Tcl command.
1793
1794static int
1795plgcol0Cmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
1796{
1797 PLINT icol0;
1798 PLINT r;
1799 PLINT g;
1800 PLINT b;
1801
1802 pl_errcode = 0; errmsg[0] = '\0';
1803
1804 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
1805 Tcl_AppendResult( interp, "command syntax: command should be ",
1806 "\"plgcol0 ?icol0 r g b?\"",
1807 (char *) NULL);
1808 return TCL_ERROR;
1809 }
1810
1811 if ( (!1 && 0 && (argc < (4 + 1 - 0 - 0)) && (!0 || (argc < (4 + 1 - 0)))) ||
1812 (!1 && !0 && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ||
1813 (1 && (argc != 1) && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ) {
1814 Tcl_AppendResult( interp, "wrong # args: command should be ",
1815 "\"plgcol0 ?icol0 r g b?\"",
1816 (char *) NULL);
1817 return TCL_ERROR;
1818 }
1819
1820 icol0 = atoi(argv[1+0]);
1821/* r is for output. */
1822/* g is for output. */
1823/* b is for output. */
1824
1825
1826
1827 plgcol0 ( icol0, &r, &g, &b );
1828
1829 if (argc == 1)
1830 Tcl_AppendResult( interp, " ", (char *) NULL );
1831 sprintf( buf, "%d", r );
1832 if (argc > 1)
1833 Tcl_SetVar( interp, argv[1+1], buf, 0 );
1834 else
1835 Tcl_AppendResult( interp, buf, (char *) NULL );
1836 if (argc == 1)
1837 Tcl_AppendResult( interp, " ", (char *) NULL );
1838 sprintf( buf, "%d", g );
1839 if (argc > 1)
1840 Tcl_SetVar( interp, argv[1+2], buf, 0 );
1841 else
1842 Tcl_AppendResult( interp, buf, (char *) NULL );
1843 if (argc == 1)
1844 Tcl_AppendResult( interp, " ", (char *) NULL );
1845 sprintf( buf, "%d", b );
1846 if (argc > 1)
1847 Tcl_SetVar( interp, argv[1+3], buf, 0 );
1848 else
1849 Tcl_AppendResult( interp, buf, (char *) NULL );
1850
1851 if (pl_errcode != 0) {
1852 Tcl_AppendResult(interp, errmsg, (char *) NULL);
1853 return TCL_ERROR;
1854 }
1855
1856 plflush();
1857 return TCL_OK;
1858}
1859
1860// The plgcol0aCmd interface routine which processes the plgcol0a Tcl command.
1861
1862static int
1863plgcol0aCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
1864{
1865 PLINT icol0;
1866 PLINT r;
1867 PLINT g;
1868 PLINT b;
1869 PLFLT a;
1870
1871 pl_errcode = 0; errmsg[0] = '\0';
1872
1873 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
1874 Tcl_AppendResult( interp, "command syntax: command should be ",
1875 "\"plgcol0a ?icol0 r g b a?\"",
1876 (char *) NULL);
1877 return TCL_ERROR;
1878 }
1879
1880 if ( (!1 && 0 && (argc < (5 + 1 - 0 - 0)) && (!0 || (argc < (5 + 1 - 0)))) ||
1881 (!1 && !0 && (argc != (5 + 1 - 0)) && (!0 || (argc != (5 + 1)))) ||
1882 (1 && (argc != 1) && (argc != (5 + 1 - 0)) && (!0 || (argc != (5 + 1)))) ) {
1883 Tcl_AppendResult( interp, "wrong # args: command should be ",
1884 "\"plgcol0a ?icol0 r g b a?\"",
1885 (char *) NULL);
1886 return TCL_ERROR;
1887 }
1888
1889 icol0 = atoi(argv[1+0]);
1890/* r is for output. */
1891/* g is for output. */
1892/* b is for output. */
1893/* a is for output. */
1894
1895
1896
1897 plgcol0a ( icol0, &r, &g, &b, &a );
1898
1899 if (argc == 1)
1900 Tcl_AppendResult( interp, " ", (char *) NULL );
1901 sprintf( buf, "%d", r );
1902 if (argc > 1)
1903 Tcl_SetVar( interp, argv[1+1], buf, 0 );
1904 else
1905 Tcl_AppendResult( interp, buf, (char *) NULL );
1906 if (argc == 1)
1907 Tcl_AppendResult( interp, " ", (char *) NULL );
1908 sprintf( buf, "%d", g );
1909 if (argc > 1)
1910 Tcl_SetVar( interp, argv[1+2], buf, 0 );
1911 else
1912 Tcl_AppendResult( interp, buf, (char *) NULL );
1913 if (argc == 1)
1914 Tcl_AppendResult( interp, " ", (char *) NULL );
1915 sprintf( buf, "%d", b );
1916 if (argc > 1)
1917 Tcl_SetVar( interp, argv[1+3], buf, 0 );
1918 else
1919 Tcl_AppendResult( interp, buf, (char *) NULL );
1920 if (argc == 1)
1921 Tcl_AppendResult( interp, " ", (char *) NULL );
1922 Tcl_PrintDouble( interp, a, buf );
1923 if (argc > 1)
1924 Tcl_SetVar( interp, argv[1+4], buf, 0 );
1925 else
1926 Tcl_AppendResult( interp, buf, (char *) NULL );
1927
1928 if (pl_errcode != 0) {
1929 Tcl_AppendResult(interp, errmsg, (char *) NULL);
1930 return TCL_ERROR;
1931 }
1932
1933 plflush();
1934 return TCL_OK;
1935}
1936
1937// The plgcolbgCmd interface routine which processes the plgcolbg Tcl command.
1938
1939static int
1940plgcolbgCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
1941{
1942 PLINT r;
1943 PLINT g;
1944 PLINT b;
1945
1946 pl_errcode = 0; errmsg[0] = '\0';
1947
1948 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
1949 Tcl_AppendResult( interp, "command syntax: command should be ",
1950 "\"plgcolbg ?r g b?\"",
1951 (char *) NULL);
1952 return TCL_ERROR;
1953 }
1954
1955 if ( (!1 && 0 && (argc < (3 + 1 - 0 - 0)) && (!0 || (argc < (3 + 1 - 0)))) ||
1956 (!1 && !0 && (argc != (3 + 1 - 0)) && (!0 || (argc != (3 + 1)))) ||
1957 (1 && (argc != 1) && (argc != (3 + 1 - 0)) && (!0 || (argc != (3 + 1)))) ) {
1958 Tcl_AppendResult( interp, "wrong # args: command should be ",
1959 "\"plgcolbg ?r g b?\"",
1960 (char *) NULL);
1961 return TCL_ERROR;
1962 }
1963
1964/* r is for output. */
1965/* g is for output. */
1966/* b is for output. */
1967
1968
1969
1970 plgcolbg ( &r, &g, &b );
1971
1972 sprintf( buf, "%d", r );
1973 if (argc > 1)
1974 Tcl_SetVar( interp, argv[1+0], buf, 0 );
1975 else
1976 Tcl_AppendResult( interp, buf, (char *) NULL );
1977 if (argc == 1)
1978 Tcl_AppendResult( interp, " ", (char *) NULL );
1979 sprintf( buf, "%d", g );
1980 if (argc > 1)
1981 Tcl_SetVar( interp, argv[1+1], buf, 0 );
1982 else
1983 Tcl_AppendResult( interp, buf, (char *) NULL );
1984 if (argc == 1)
1985 Tcl_AppendResult( interp, " ", (char *) NULL );
1986 sprintf( buf, "%d", b );
1987 if (argc > 1)
1988 Tcl_SetVar( interp, argv[1+2], buf, 0 );
1989 else
1990 Tcl_AppendResult( interp, buf, (char *) NULL );
1991
1992 if (pl_errcode != 0) {
1993 Tcl_AppendResult(interp, errmsg, (char *) NULL);
1994 return TCL_ERROR;
1995 }
1996
1997 plflush();
1998 return TCL_OK;
1999}
2000
2001// The plgcolbgaCmd interface routine which processes the plgcolbga Tcl command.
2002
2003static int
2004plgcolbgaCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
2005{
2006 PLINT r;
2007 PLINT g;
2008 PLINT b;
2009 PLFLT a;
2010
2011 pl_errcode = 0; errmsg[0] = '\0';
2012
2013 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
2014 Tcl_AppendResult( interp, "command syntax: command should be ",
2015 "\"plgcolbga ?r g b a?\"",
2016 (char *) NULL);
2017 return TCL_ERROR;
2018 }
2019
2020 if ( (!1 && 0 && (argc < (4 + 1 - 0 - 0)) && (!0 || (argc < (4 + 1 - 0)))) ||
2021 (!1 && !0 && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ||
2022 (1 && (argc != 1) && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ) {
2023 Tcl_AppendResult( interp, "wrong # args: command should be ",
2024 "\"plgcolbga ?r g b a?\"",
2025 (char *) NULL);
2026 return TCL_ERROR;
2027 }
2028
2029/* r is for output. */
2030/* g is for output. */
2031/* b is for output. */
2032/* a is for output. */
2033
2034
2035
2036 plgcolbga ( &r, &g, &b, &a );
2037
2038 sprintf( buf, "%d", r );
2039 if (argc > 1)
2040 Tcl_SetVar( interp, argv[1+0], buf, 0 );
2041 else
2042 Tcl_AppendResult( interp, buf, (char *) NULL );
2043 if (argc == 1)
2044 Tcl_AppendResult( interp, " ", (char *) NULL );
2045 sprintf( buf, "%d", g );
2046 if (argc > 1)
2047 Tcl_SetVar( interp, argv[1+1], buf, 0 );
2048 else
2049 Tcl_AppendResult( interp, buf, (char *) NULL );
2050 if (argc == 1)
2051 Tcl_AppendResult( interp, " ", (char *) NULL );
2052 sprintf( buf, "%d", b );
2053 if (argc > 1)
2054 Tcl_SetVar( interp, argv[1+2], buf, 0 );
2055 else
2056 Tcl_AppendResult( interp, buf, (char *) NULL );
2057 if (argc == 1)
2058 Tcl_AppendResult( interp, " ", (char *) NULL );
2059 Tcl_PrintDouble( interp, a, buf );
2060 if (argc > 1)
2061 Tcl_SetVar( interp, argv[1+3], buf, 0 );
2062 else
2063 Tcl_AppendResult( interp, buf, (char *) NULL );
2064
2065 if (pl_errcode != 0) {
2066 Tcl_AppendResult(interp, errmsg, (char *) NULL);
2067 return TCL_ERROR;
2068 }
2069
2070 plflush();
2071 return TCL_OK;
2072}
2073
2074// The plgcompressionCmd interface routine which processes the plgcompression Tcl command.
2075
2076static int
2077plgcompressionCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
2078{
2079 PLINT compression;
2080
2081 pl_errcode = 0; errmsg[0] = '\0';
2082
2083 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
2084 Tcl_AppendResult( interp, "command syntax: command should be ",
2085 "\"plgcompression ?compression?\"",
2086 (char *) NULL);
2087 return TCL_ERROR;
2088 }
2089
2090 if ( (!1 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
2091 (!1 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
2092 (1 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
2093 Tcl_AppendResult( interp, "wrong # args: command should be ",
2094 "\"plgcompression ?compression?\"",
2095 (char *) NULL);
2096 return TCL_ERROR;
2097 }
2098
2099/* compression is for output. */
2100
2101
2102
2103 plgcompression ( &compression );
2104
2105 sprintf( buf, "%d", compression );
2106 if (argc > 1)
2107 Tcl_SetVar( interp, argv[1+0], buf, 0 );
2108 else
2109 Tcl_AppendResult( interp, buf, (char *) NULL );
2110
2111 if (pl_errcode != 0) {
2112 Tcl_AppendResult(interp, errmsg, (char *) NULL);
2113 return TCL_ERROR;
2114 }
2115
2116 plflush();
2117 return TCL_OK;
2118}
2119
2120// The plgdevCmd interface routine which processes the plgdev Tcl command.
2121
2122static int
2123plgdevCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
2124{
2125 char devnam[200];
2126
2127 pl_errcode = 0; errmsg[0] = '\0';
2128
2129 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
2130 Tcl_AppendResult( interp, "command syntax: command should be ",
2131 "\"plgdev ?devnam?\"",
2132 (char *) NULL);
2133 return TCL_ERROR;
2134 }
2135
2136 if ( (!1 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
2137 (!1 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
2138 (1 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
2139 Tcl_AppendResult( interp, "wrong # args: command should be ",
2140 "\"plgdev ?devnam?\"",
2141 (char *) NULL);
2142 return TCL_ERROR;
2143 }
2144
2145/* devnam is for output. */
2146
2147
2148
2149 plgdev ( devnam );
2150
2151 if (argc > 1)
2152 Tcl_SetVar( interp, argv[1+0], devnam, 0 );
2153 else
2154 Tcl_AppendResult( interp, devnam, (char *) NULL );
2155
2156 if (pl_errcode != 0) {
2157 Tcl_AppendResult(interp, errmsg, (char *) NULL);
2158 return TCL_ERROR;
2159 }
2160
2161 plflush();
2162 return TCL_OK;
2163}
2164
2165// The plgdidevCmd interface routine which processes the plgdidev Tcl command.
2166
2167static int
2168plgdidevCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
2169{
2170 PLFLT mar;
2171 PLFLT aspect;
2172 PLFLT jx;
2173 PLFLT jy;
2174
2175 pl_errcode = 0; errmsg[0] = '\0';
2176
2177 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
2178 Tcl_AppendResult( interp, "command syntax: command should be ",
2179 "\"plgdidev ?mar aspect jx jy?\"",
2180 (char *) NULL);
2181 return TCL_ERROR;
2182 }
2183
2184 if ( (!1 && 0 && (argc < (4 + 1 - 0 - 0)) && (!0 || (argc < (4 + 1 - 0)))) ||
2185 (!1 && !0 && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ||
2186 (1 && (argc != 1) && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ) {
2187 Tcl_AppendResult( interp, "wrong # args: command should be ",
2188 "\"plgdidev ?mar aspect jx jy?\"",
2189 (char *) NULL);
2190 return TCL_ERROR;
2191 }
2192
2193/* mar is for output. */
2194/* aspect is for output. */
2195/* jx is for output. */
2196/* jy is for output. */
2197
2198
2199
2200 plgdidev ( &mar, &aspect, &jx, &jy );
2201
2202 Tcl_PrintDouble( interp, mar, buf );
2203 if (argc > 1)
2204 Tcl_SetVar( interp, argv[1+0], buf, 0 );
2205 else
2206 Tcl_AppendResult( interp, buf, (char *) NULL );
2207 if (argc == 1)
2208 Tcl_AppendResult( interp, " ", (char *) NULL );
2209 Tcl_PrintDouble( interp, aspect, buf );
2210 if (argc > 1)
2211 Tcl_SetVar( interp, argv[1+1], buf, 0 );
2212 else
2213 Tcl_AppendResult( interp, buf, (char *) NULL );
2214 if (argc == 1)
2215 Tcl_AppendResult( interp, " ", (char *) NULL );
2216 Tcl_PrintDouble( interp, jx, buf );
2217 if (argc > 1)
2218 Tcl_SetVar( interp, argv[1+2], buf, 0 );
2219 else
2220 Tcl_AppendResult( interp, buf, (char *) NULL );
2221 if (argc == 1)
2222 Tcl_AppendResult( interp, " ", (char *) NULL );
2223 Tcl_PrintDouble( interp, jy, buf );
2224 if (argc > 1)
2225 Tcl_SetVar( interp, argv[1+3], buf, 0 );
2226 else
2227 Tcl_AppendResult( interp, buf, (char *) NULL );
2228
2229 if (pl_errcode != 0) {
2230 Tcl_AppendResult(interp, errmsg, (char *) NULL);
2231 return TCL_ERROR;
2232 }
2233
2234 plflush();
2235 return TCL_OK;
2236}
2237
2238// The plgdioriCmd interface routine which processes the plgdiori Tcl command.
2239
2240static int
2241plgdioriCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
2242{
2243 PLFLT rot;
2244
2245 pl_errcode = 0; errmsg[0] = '\0';
2246
2247 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
2248 Tcl_AppendResult( interp, "command syntax: command should be ",
2249 "\"plgdiori ?rot?\"",
2250 (char *) NULL);
2251 return TCL_ERROR;
2252 }
2253
2254 if ( (!1 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
2255 (!1 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
2256 (1 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
2257 Tcl_AppendResult( interp, "wrong # args: command should be ",
2258 "\"plgdiori ?rot?\"",
2259 (char *) NULL);
2260 return TCL_ERROR;
2261 }
2262
2263/* rot is for output. */
2264
2265
2266
2267 plgdiori ( &rot );
2268
2269 Tcl_PrintDouble( interp, rot, buf );
2270 if (argc > 1)
2271 Tcl_SetVar( interp, argv[1+0], buf, 0 );
2272 else
2273 Tcl_AppendResult( interp, buf, (char *) NULL );
2274
2275 if (pl_errcode != 0) {
2276 Tcl_AppendResult(interp, errmsg, (char *) NULL);
2277 return TCL_ERROR;
2278 }
2279
2280 plflush();
2281 return TCL_OK;
2282}
2283
2284// The plgdipltCmd interface routine which processes the plgdiplt Tcl command.
2285
2286static int
2287plgdipltCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
2288{
2289 PLFLT xmin;
2290 PLFLT ymin;
2291 PLFLT xmax;
2292 PLFLT ymax;
2293
2294 pl_errcode = 0; errmsg[0] = '\0';
2295
2296 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
2297 Tcl_AppendResult( interp, "command syntax: command should be ",
2298 "\"plgdiplt ?xmin ymin xmax ymax?\"",
2299 (char *) NULL);
2300 return TCL_ERROR;
2301 }
2302
2303 if ( (!1 && 0 && (argc < (4 + 1 - 0 - 0)) && (!0 || (argc < (4 + 1 - 0)))) ||
2304 (!1 && !0 && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ||
2305 (1 && (argc != 1) && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ) {
2306 Tcl_AppendResult( interp, "wrong # args: command should be ",
2307 "\"plgdiplt ?xmin ymin xmax ymax?\"",
2308 (char *) NULL);
2309 return TCL_ERROR;
2310 }
2311
2312/* xmin is for output. */
2313/* ymin is for output. */
2314/* xmax is for output. */
2315/* ymax is for output. */
2316
2317
2318
2319 plgdiplt ( &xmin, &ymin, &xmax, &ymax );
2320
2321 Tcl_PrintDouble( interp, xmin, buf );
2322 if (argc > 1)
2323 Tcl_SetVar( interp, argv[1+0], buf, 0 );
2324 else
2325 Tcl_AppendResult( interp, buf, (char *) NULL );
2326 if (argc == 1)
2327 Tcl_AppendResult( interp, " ", (char *) NULL );
2328 Tcl_PrintDouble( interp, ymin, buf );
2329 if (argc > 1)
2330 Tcl_SetVar( interp, argv[1+1], buf, 0 );
2331 else
2332 Tcl_AppendResult( interp, buf, (char *) NULL );
2333 if (argc == 1)
2334 Tcl_AppendResult( interp, " ", (char *) NULL );
2335 Tcl_PrintDouble( interp, xmax, buf );
2336 if (argc > 1)
2337 Tcl_SetVar( interp, argv[1+2], buf, 0 );
2338 else
2339 Tcl_AppendResult( interp, buf, (char *) NULL );
2340 if (argc == 1)
2341 Tcl_AppendResult( interp, " ", (char *) NULL );
2342 Tcl_PrintDouble( interp, ymax, buf );
2343 if (argc > 1)
2344 Tcl_SetVar( interp, argv[1+3], buf, 0 );
2345 else
2346 Tcl_AppendResult( interp, buf, (char *) NULL );
2347
2348 if (pl_errcode != 0) {
2349 Tcl_AppendResult(interp, errmsg, (char *) NULL);
2350 return TCL_ERROR;
2351 }
2352
2353 plflush();
2354 return TCL_OK;
2355}
2356
2357// The plgescCmd interface routine which processes the plgesc Tcl command.
2358
2359static int
2360plgescCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
2361{
2362 char esc;
2363
2364 pl_errcode = 0; errmsg[0] = '\0';
2365
2366 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
2367 Tcl_AppendResult( interp, "command syntax: command should be ",
2368 "\"plgesc ?esc?\"",
2369 (char *) NULL);
2370 return TCL_ERROR;
2371 }
2372
2373 if ( (!1 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
2374 (!1 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
2375 (1 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
2376 Tcl_AppendResult( interp, "wrong # args: command should be ",
2377 "\"plgesc ?esc?\"",
2378 (char *) NULL);
2379 return TCL_ERROR;
2380 }
2381
2382/* esc is for output. */
2383
2384
2385
2386 plgesc ( &esc );
2387
2388 sprintf( buf, "%c", esc );
2389 if (argc > 1)
2390 Tcl_SetVar( interp, argv[1+0], buf, 0 );
2391 else
2392 Tcl_AppendResult( interp, buf, (char *) NULL );
2393
2394 if (pl_errcode != 0) {
2395 Tcl_AppendResult(interp, errmsg, (char *) NULL);
2396 return TCL_ERROR;
2397 }
2398
2399 plflush();
2400 return TCL_OK;
2401}
2402
2403// The plgfamCmd interface routine which processes the plgfam Tcl command.
2404
2405static int
2406plgfamCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
2407{
2408 PLINT fam;
2409 PLINT num;
2410 PLINT bmax;
2411
2412 pl_errcode = 0; errmsg[0] = '\0';
2413
2414 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
2415 Tcl_AppendResult( interp, "command syntax: command should be ",
2416 "\"plgfam ?fam num bmax?\"",
2417 (char *) NULL);
2418 return TCL_ERROR;
2419 }
2420
2421 if ( (!1 && 0 && (argc < (3 + 1 - 0 - 0)) && (!0 || (argc < (3 + 1 - 0)))) ||
2422 (!1 && !0 && (argc != (3 + 1 - 0)) && (!0 || (argc != (3 + 1)))) ||
2423 (1 && (argc != 1) && (argc != (3 + 1 - 0)) && (!0 || (argc != (3 + 1)))) ) {
2424 Tcl_AppendResult( interp, "wrong # args: command should be ",
2425 "\"plgfam ?fam num bmax?\"",
2426 (char *) NULL);
2427 return TCL_ERROR;
2428 }
2429
2430/* fam is for output. */
2431/* num is for output. */
2432/* bmax is for output. */
2433
2434
2435
2436 plgfam ( &fam, &num, &bmax );
2437
2438 sprintf( buf, "%d", fam );
2439 if (argc > 1)
2440 Tcl_SetVar( interp, argv[1+0], buf, 0 );
2441 else
2442 Tcl_AppendResult( interp, buf, (char *) NULL );
2443 if (argc == 1)
2444 Tcl_AppendResult( interp, " ", (char *) NULL );
2445 sprintf( buf, "%d", num );
2446 if (argc > 1)
2447 Tcl_SetVar( interp, argv[1+1], buf, 0 );
2448 else
2449 Tcl_AppendResult( interp, buf, (char *) NULL );
2450 if (argc == 1)
2451 Tcl_AppendResult( interp, " ", (char *) NULL );
2452 sprintf( buf, "%d", bmax );
2453 if (argc > 1)
2454 Tcl_SetVar( interp, argv[1+2], buf, 0 );
2455 else
2456 Tcl_AppendResult( interp, buf, (char *) NULL );
2457
2458 if (pl_errcode != 0) {
2459 Tcl_AppendResult(interp, errmsg, (char *) NULL);
2460 return TCL_ERROR;
2461 }
2462
2463 plflush();
2464 return TCL_OK;
2465}
2466
2467// The plgfciCmd interface routine which processes the plgfci Tcl command.
2468
2469static int
2470plgfciCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
2471{
2472 PLUNICODE fci;
2473
2474 pl_errcode = 0; errmsg[0] = '\0';
2475
2476 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
2477 Tcl_AppendResult( interp, "command syntax: command should be ",
2478 "\"plgfci ?fci?\"",
2479 (char *) NULL);
2480 return TCL_ERROR;
2481 }
2482
2483 if ( (!1 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
2484 (!1 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
2485 (1 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
2486 Tcl_AppendResult( interp, "wrong # args: command should be ",
2487 "\"plgfci ?fci?\"",
2488 (char *) NULL);
2489 return TCL_ERROR;
2490 }
2491
2492/* fci is for output. */
2493
2494
2495
2496 plgfci ( &fci );
2497
2498 sprintf( buf, "%u", fci );
2499 if (argc > 1)
2500 Tcl_SetVar( interp, argv[1+0], buf, 0 );
2501 else
2502 Tcl_AppendResult( interp, buf, (char *) NULL );
2503
2504 if (pl_errcode != 0) {
2505 Tcl_AppendResult(interp, errmsg, (char *) NULL);
2506 return TCL_ERROR;
2507 }
2508
2509 plflush();
2510 return TCL_OK;
2511}
2512
2513// The plgfnamCmd interface routine which processes the plgfnam Tcl command.
2514
2515static int
2516plgfnamCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
2517{
2518 char fnam[200];
2519
2520 pl_errcode = 0; errmsg[0] = '\0';
2521
2522 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
2523 Tcl_AppendResult( interp, "command syntax: command should be ",
2524 "\"plgfnam ?fnam?\"",
2525 (char *) NULL);
2526 return TCL_ERROR;
2527 }
2528
2529 if ( (!1 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
2530 (!1 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
2531 (1 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
2532 Tcl_AppendResult( interp, "wrong # args: command should be ",
2533 "\"plgfnam ?fnam?\"",
2534 (char *) NULL);
2535 return TCL_ERROR;
2536 }
2537
2538/* fnam is for output. */
2539
2540
2541
2542 plgfnam ( fnam );
2543
2544 if (argc > 1)
2545 Tcl_SetVar( interp, argv[1+0], fnam, 0 );
2546 else
2547 Tcl_AppendResult( interp, fnam, (char *) NULL );
2548
2549 if (pl_errcode != 0) {
2550 Tcl_AppendResult(interp, errmsg, (char *) NULL);
2551 return TCL_ERROR;
2552 }
2553
2554 plflush();
2555 return TCL_OK;
2556}
2557
2558// The plgfontCmd interface routine which processes the plgfont Tcl command.
2559
2560static int
2561plgfontCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
2562{
2563 PLINT family;
2564 PLINT style;
2565 PLINT weight;
2566
2567 pl_errcode = 0; errmsg[0] = '\0';
2568
2569 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
2570 Tcl_AppendResult( interp, "command syntax: command should be ",
2571 "\"plgfont ?family style weight?\"",
2572 (char *) NULL);
2573 return TCL_ERROR;
2574 }
2575
2576 if ( (!1 && 0 && (argc < (3 + 1 - 0 - 0)) && (!0 || (argc < (3 + 1 - 0)))) ||
2577 (!1 && !0 && (argc != (3 + 1 - 0)) && (!0 || (argc != (3 + 1)))) ||
2578 (1 && (argc != 1) && (argc != (3 + 1 - 0)) && (!0 || (argc != (3 + 1)))) ) {
2579 Tcl_AppendResult( interp, "wrong # args: command should be ",
2580 "\"plgfont ?family style weight?\"",
2581 (char *) NULL);
2582 return TCL_ERROR;
2583 }
2584
2585/* family is for output. */
2586/* style is for output. */
2587/* weight is for output. */
2588
2589
2590
2591 plgfont ( &family, &style, &weight );
2592
2593 sprintf( buf, "%d", family );
2594 if (argc > 1)
2595 Tcl_SetVar( interp, argv[1+0], buf, 0 );
2596 else
2597 Tcl_AppendResult( interp, buf, (char *) NULL );
2598 if (argc == 1)
2599 Tcl_AppendResult( interp, " ", (char *) NULL );
2600 sprintf( buf, "%d", style );
2601 if (argc > 1)
2602 Tcl_SetVar( interp, argv[1+1], buf, 0 );
2603 else
2604 Tcl_AppendResult( interp, buf, (char *) NULL );
2605 if (argc == 1)
2606 Tcl_AppendResult( interp, " ", (char *) NULL );
2607 sprintf( buf, "%d", weight );
2608 if (argc > 1)
2609 Tcl_SetVar( interp, argv[1+2], buf, 0 );
2610 else
2611 Tcl_AppendResult( interp, buf, (char *) NULL );
2612
2613 if (pl_errcode != 0) {
2614 Tcl_AppendResult(interp, errmsg, (char *) NULL);
2615 return TCL_ERROR;
2616 }
2617
2618 plflush();
2619 return TCL_OK;
2620}
2621
2622// The plglevelCmd interface routine which processes the plglevel Tcl command.
2623
2624static int
2625plglevelCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
2626{
2627 PLINT level;
2628
2629 pl_errcode = 0; errmsg[0] = '\0';
2630
2631 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
2632 Tcl_AppendResult( interp, "command syntax: command should be ",
2633 "\"plglevel ?level?\"",
2634 (char *) NULL);
2635 return TCL_ERROR;
2636 }
2637
2638 if ( (!1 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
2639 (!1 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
2640 (1 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
2641 Tcl_AppendResult( interp, "wrong # args: command should be ",
2642 "\"plglevel ?level?\"",
2643 (char *) NULL);
2644 return TCL_ERROR;
2645 }
2646
2647/* level is for output. */
2648
2649
2650
2651 plglevel ( &level );
2652
2653 sprintf( buf, "%d", level );
2654 if (argc > 1)
2655 Tcl_SetVar( interp, argv[1+0], buf, 0 );
2656 else
2657 Tcl_AppendResult( interp, buf, (char *) NULL );
2658
2659 if (pl_errcode != 0) {
2660 Tcl_AppendResult(interp, errmsg, (char *) NULL);
2661 return TCL_ERROR;
2662 }
2663
2664 plflush();
2665 return TCL_OK;
2666}
2667
2668// The plgpageCmd interface routine which processes the plgpage Tcl command.
2669
2670static int
2671plgpageCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
2672{
2673 PLFLT xp;
2674 PLFLT yp;
2675 PLINT xleng;
2676 PLINT yleng;
2677 PLINT xoff;
2678 PLINT yoff;
2679
2680 pl_errcode = 0; errmsg[0] = '\0';
2681
2682 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
2683 Tcl_AppendResult( interp, "command syntax: command should be ",
2684 "\"plgpage ?xp yp xleng yleng xoff yoff?\"",
2685 (char *) NULL);
2686 return TCL_ERROR;
2687 }
2688
2689 if ( (!1 && 0 && (argc < (6 + 1 - 0 - 0)) && (!0 || (argc < (6 + 1 - 0)))) ||
2690 (!1 && !0 && (argc != (6 + 1 - 0)) && (!0 || (argc != (6 + 1)))) ||
2691 (1 && (argc != 1) && (argc != (6 + 1 - 0)) && (!0 || (argc != (6 + 1)))) ) {
2692 Tcl_AppendResult( interp, "wrong # args: command should be ",
2693 "\"plgpage ?xp yp xleng yleng xoff yoff?\"",
2694 (char *) NULL);
2695 return TCL_ERROR;
2696 }
2697
2698/* xp is for output. */
2699/* yp is for output. */
2700/* xleng is for output. */
2701/* yleng is for output. */
2702/* xoff is for output. */
2703/* yoff is for output. */
2704
2705
2706
2707 plgpage ( &xp, &yp, &xleng, &yleng, &xoff, &yoff );
2708
2709 Tcl_PrintDouble( interp, xp, buf );
2710 if (argc > 1)
2711 Tcl_SetVar( interp, argv[1+0], buf, 0 );
2712 else
2713 Tcl_AppendResult( interp, buf, (char *) NULL );
2714 if (argc == 1)
2715 Tcl_AppendResult( interp, " ", (char *) NULL );
2716 Tcl_PrintDouble( interp, yp, buf );
2717 if (argc > 1)
2718 Tcl_SetVar( interp, argv[1+1], buf, 0 );
2719 else
2720 Tcl_AppendResult( interp, buf, (char *) NULL );
2721 if (argc == 1)
2722 Tcl_AppendResult( interp, " ", (char *) NULL );
2723 sprintf( buf, "%d", xleng );
2724 if (argc > 1)
2725 Tcl_SetVar( interp, argv[1+2], buf, 0 );
2726 else
2727 Tcl_AppendResult( interp, buf, (char *) NULL );
2728 if (argc == 1)
2729 Tcl_AppendResult( interp, " ", (char *) NULL );
2730 sprintf( buf, "%d", yleng );
2731 if (argc > 1)
2732 Tcl_SetVar( interp, argv[1+3], buf, 0 );
2733 else
2734 Tcl_AppendResult( interp, buf, (char *) NULL );
2735 if (argc == 1)
2736 Tcl_AppendResult( interp, " ", (char *) NULL );
2737 sprintf( buf, "%d", xoff );
2738 if (argc > 1)
2739 Tcl_SetVar( interp, argv[1+4], buf, 0 );
2740 else
2741 Tcl_AppendResult( interp, buf, (char *) NULL );
2742 if (argc == 1)
2743 Tcl_AppendResult( interp, " ", (char *) NULL );
2744 sprintf( buf, "%d", yoff );
2745 if (argc > 1)
2746 Tcl_SetVar( interp, argv[1+5], buf, 0 );
2747 else
2748 Tcl_AppendResult( interp, buf, (char *) NULL );
2749
2750 if (pl_errcode != 0) {
2751 Tcl_AppendResult(interp, errmsg, (char *) NULL);
2752 return TCL_ERROR;
2753 }
2754
2755 plflush();
2756 return TCL_OK;
2757}
2758
2759// The plgraCmd interface routine which processes the plgra Tcl command.
2760
2761static int
2762plgraCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
2763{
2764
2765 pl_errcode = 0; errmsg[0] = '\0';
2766
2767 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
2768 Tcl_AppendResult( interp, "command syntax: command should be ",
2769 "\"plgra \"",
2770 (char *) NULL);
2771 return TCL_ERROR;
2772 }
2773
2774 if ( (!0 && 0 && (argc < (0 + 1 - 0 - 0)) && (!0 || (argc < (0 + 1 - 0)))) ||
2775 (!0 && !0 && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ||
2776 (0 && (argc != 1) && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ) {
2777 Tcl_AppendResult( interp, "wrong # args: command should be ",
2778 "\"plgra \"",
2779 (char *) NULL);
2780 return TCL_ERROR;
2781 }
2782
2783
2784
2785
2786 plgra ( );
2787
2788
2789 if (pl_errcode != 0) {
2790 Tcl_AppendResult(interp, errmsg, (char *) NULL);
2791 return TCL_ERROR;
2792 }
2793
2794 plflush();
2795 return TCL_OK;
2796}
2797
2798// The plgradientCmd interface routine which processes the plgradient Tcl command.
2799
2800static int
2801plgradientCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
2802{
2803 PLINT n;
2804 PLFLT *x;
2805 tclMatrix *matx;
2806 PLFLT *y;
2807 tclMatrix *maty;
2808 PLFLT angle;
2809
2810 pl_errcode = 0; errmsg[0] = '\0';
2811
2812 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
2813 Tcl_AppendResult( interp, "command syntax: command should be ",
2814 "\"plgradient x y angle\"",
2815 (char *) NULL);
2816 return TCL_ERROR;
2817 }
2818
2819 if ( (!0 && 0 && (argc < (4 + 1 - 0 - 1)) && (!0 || (argc < (4 + 1 - 0)))) ||
2820 (!0 && !0 && (argc != (4 + 1 - 1)) && (!0 || (argc != (4 + 1)))) ||
2821 (0 && (argc != 1) && (argc != (4 + 1 - 1)) && (!0 || (argc != (4 + 1)))) ) {
2822 Tcl_AppendResult( interp, "wrong # args: command should be ",
2823 "\"plgradient x y angle\"",
2824 (char *) NULL);
2825 return TCL_ERROR;
2826 }
2827
2828 matx = Tcl_GetMatrixPtr( interp, argv[1+0] );
2829 if (matx == NULL) return TCL_ERROR;
2830 x = matx->fdata;
2831 maty = Tcl_GetMatrixPtr( interp, argv[1+1] );
2832 if (maty == NULL) return TCL_ERROR;
2833 y = maty->fdata;
2834 angle = atof(argv[1+2]);
2835 n = matx->n[0];
2836
2837 if ( ! (n <= matx->n[0] && matx->n[0] == maty->n[0]) ) {
2838 Tcl_AppendResult( interp, "Length of the two vectors must be equal", (char *) NULL );
2839 return TCL_ERROR;
2840 }
2841 if ( ! (matx->type == TYPE_FLOAT && maty->type == TYPE_FLOAT) ) {
2842 Tcl_AppendResult( interp, "Both vectors must be of type float", (char *) NULL );
2843 return TCL_ERROR;
2844 }
2845
2846
2847 plgradient ( n, x, y, angle );
2848
2849
2850 if (pl_errcode != 0) {
2851 Tcl_AppendResult(interp, errmsg, (char *) NULL);
2852 return TCL_ERROR;
2853 }
2854
2855 plflush();
2856 return TCL_OK;
2857}
2858
2859// The plgspaCmd interface routine which processes the plgspa Tcl command.
2860
2861static int
2862plgspaCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
2863{
2864 PLFLT xmin;
2865 PLFLT xmax;
2866 PLFLT ymin;
2867 PLFLT ymax;
2868
2869 pl_errcode = 0; errmsg[0] = '\0';
2870
2871 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
2872 Tcl_AppendResult( interp, "command syntax: command should be ",
2873 "\"plgspa ?xmin xmax ymin ymax?\"",
2874 (char *) NULL);
2875 return TCL_ERROR;
2876 }
2877
2878 if ( (!1 && 0 && (argc < (4 + 1 - 0 - 0)) && (!0 || (argc < (4 + 1 - 0)))) ||
2879 (!1 && !0 && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ||
2880 (1 && (argc != 1) && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ) {
2881 Tcl_AppendResult( interp, "wrong # args: command should be ",
2882 "\"plgspa ?xmin xmax ymin ymax?\"",
2883 (char *) NULL);
2884 return TCL_ERROR;
2885 }
2886
2887/* xmin is for output. */
2888/* xmax is for output. */
2889/* ymin is for output. */
2890/* ymax is for output. */
2891
2892
2893
2894 plgspa ( &xmin, &xmax, &ymin, &ymax );
2895
2896 Tcl_PrintDouble( interp, xmin, buf );
2897 if (argc > 1)
2898 Tcl_SetVar( interp, argv[1+0], buf, 0 );
2899 else
2900 Tcl_AppendResult( interp, buf, (char *) NULL );
2901 if (argc == 1)
2902 Tcl_AppendResult( interp, " ", (char *) NULL );
2903 Tcl_PrintDouble( interp, xmax, buf );
2904 if (argc > 1)
2905 Tcl_SetVar( interp, argv[1+1], buf, 0 );
2906 else
2907 Tcl_AppendResult( interp, buf, (char *) NULL );
2908 if (argc == 1)
2909 Tcl_AppendResult( interp, " ", (char *) NULL );
2910 Tcl_PrintDouble( interp, ymin, buf );
2911 if (argc > 1)
2912 Tcl_SetVar( interp, argv[1+2], buf, 0 );
2913 else
2914 Tcl_AppendResult( interp, buf, (char *) NULL );
2915 if (argc == 1)
2916 Tcl_AppendResult( interp, " ", (char *) NULL );
2917 Tcl_PrintDouble( interp, ymax, buf );
2918 if (argc > 1)
2919 Tcl_SetVar( interp, argv[1+3], buf, 0 );
2920 else
2921 Tcl_AppendResult( interp, buf, (char *) NULL );
2922
2923 if (pl_errcode != 0) {
2924 Tcl_AppendResult(interp, errmsg, (char *) NULL);
2925 return TCL_ERROR;
2926 }
2927
2928 plflush();
2929 return TCL_OK;
2930}
2931
2932// The plgstrmCmd interface routine which processes the plgstrm Tcl command.
2933
2934static int
2935plgstrmCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
2936{
2937 PLINT strm;
2938
2939 pl_errcode = 0; errmsg[0] = '\0';
2940
2941 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
2942 Tcl_AppendResult( interp, "command syntax: command should be ",
2943 "\"plgstrm ?strm?\"",
2944 (char *) NULL);
2945 return TCL_ERROR;
2946 }
2947
2948 if ( (!1 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
2949 (!1 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
2950 (1 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
2951 Tcl_AppendResult( interp, "wrong # args: command should be ",
2952 "\"plgstrm ?strm?\"",
2953 (char *) NULL);
2954 return TCL_ERROR;
2955 }
2956
2957/* strm is for output. */
2958
2959
2960
2961 plgstrm ( &strm );
2962
2963 sprintf( buf, "%d", strm );
2964 if (argc > 1)
2965 Tcl_SetVar( interp, argv[1+0], buf, 0 );
2966 else
2967 Tcl_AppendResult( interp, buf, (char *) NULL );
2968
2969 if (pl_errcode != 0) {
2970 Tcl_AppendResult(interp, errmsg, (char *) NULL);
2971 return TCL_ERROR;
2972 }
2973
2974 plflush();
2975 return TCL_OK;
2976}
2977
2978// The plgverCmd interface routine which processes the plgver Tcl command.
2979
2980static int
2981plgverCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
2982{
2983 char ver[200];
2984
2985 pl_errcode = 0; errmsg[0] = '\0';
2986
2987 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
2988 Tcl_AppendResult( interp, "command syntax: command should be ",
2989 "\"plgver ?ver?\"",
2990 (char *) NULL);
2991 return TCL_ERROR;
2992 }
2993
2994 if ( (!1 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
2995 (!1 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
2996 (1 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
2997 Tcl_AppendResult( interp, "wrong # args: command should be ",
2998 "\"plgver ?ver?\"",
2999 (char *) NULL);
3000 return TCL_ERROR;
3001 }
3002
3003/* ver is for output. */
3004
3005
3006
3007 plgver ( ver );
3008
3009 if (argc > 1)
3010 Tcl_SetVar( interp, argv[1+0], ver, 0 );
3011 else
3012 Tcl_AppendResult( interp, ver, (char *) NULL );
3013
3014 if (pl_errcode != 0) {
3015 Tcl_AppendResult(interp, errmsg, (char *) NULL);
3016 return TCL_ERROR;
3017 }
3018
3019 plflush();
3020 return TCL_OK;
3021}
3022
3023// The plgvpdCmd interface routine which processes the plgvpd Tcl command.
3024
3025static int
3026plgvpdCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
3027{
3028 PLFLT xmin;
3029 PLFLT xmax;
3030 PLFLT ymin;
3031 PLFLT ymax;
3032
3033 pl_errcode = 0; errmsg[0] = '\0';
3034
3035 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
3036 Tcl_AppendResult( interp, "command syntax: command should be ",
3037 "\"plgvpd ?xmin xmax ymin ymax?\"",
3038 (char *) NULL);
3039 return TCL_ERROR;
3040 }
3041
3042 if ( (!1 && 0 && (argc < (4 + 1 - 0 - 0)) && (!0 || (argc < (4 + 1 - 0)))) ||
3043 (!1 && !0 && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ||
3044 (1 && (argc != 1) && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ) {
3045 Tcl_AppendResult( interp, "wrong # args: command should be ",
3046 "\"plgvpd ?xmin xmax ymin ymax?\"",
3047 (char *) NULL);
3048 return TCL_ERROR;
3049 }
3050
3051/* xmin is for output. */
3052/* xmax is for output. */
3053/* ymin is for output. */
3054/* ymax is for output. */
3055
3056
3057
3058 plgvpd ( &xmin, &xmax, &ymin, &ymax );
3059
3060 Tcl_PrintDouble( interp, xmin, buf );
3061 if (argc > 1)
3062 Tcl_SetVar( interp, argv[1+0], buf, 0 );
3063 else
3064 Tcl_AppendResult( interp, buf, (char *) NULL );
3065 if (argc == 1)
3066 Tcl_AppendResult( interp, " ", (char *) NULL );
3067 Tcl_PrintDouble( interp, xmax, buf );
3068 if (argc > 1)
3069 Tcl_SetVar( interp, argv[1+1], buf, 0 );
3070 else
3071 Tcl_AppendResult( interp, buf, (char *) NULL );
3072 if (argc == 1)
3073 Tcl_AppendResult( interp, " ", (char *) NULL );
3074 Tcl_PrintDouble( interp, ymin, buf );
3075 if (argc > 1)
3076 Tcl_SetVar( interp, argv[1+2], buf, 0 );
3077 else
3078 Tcl_AppendResult( interp, buf, (char *) NULL );
3079 if (argc == 1)
3080 Tcl_AppendResult( interp, " ", (char *) NULL );
3081 Tcl_PrintDouble( interp, ymax, buf );
3082 if (argc > 1)
3083 Tcl_SetVar( interp, argv[1+3], buf, 0 );
3084 else
3085 Tcl_AppendResult( interp, buf, (char *) NULL );
3086
3087 if (pl_errcode != 0) {
3088 Tcl_AppendResult(interp, errmsg, (char *) NULL);
3089 return TCL_ERROR;
3090 }
3091
3092 plflush();
3093 return TCL_OK;
3094}
3095
3096// The plgvpwCmd interface routine which processes the plgvpw Tcl command.
3097
3098static int
3099plgvpwCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
3100{
3101 PLFLT xmin;
3102 PLFLT xmax;
3103 PLFLT ymin;
3104 PLFLT ymax;
3105
3106 pl_errcode = 0; errmsg[0] = '\0';
3107
3108 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
3109 Tcl_AppendResult( interp, "command syntax: command should be ",
3110 "\"plgvpw ?xmin xmax ymin ymax?\"",
3111 (char *) NULL);
3112 return TCL_ERROR;
3113 }
3114
3115 if ( (!1 && 0 && (argc < (4 + 1 - 0 - 0)) && (!0 || (argc < (4 + 1 - 0)))) ||
3116 (!1 && !0 && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ||
3117 (1 && (argc != 1) && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ) {
3118 Tcl_AppendResult( interp, "wrong # args: command should be ",
3119 "\"plgvpw ?xmin xmax ymin ymax?\"",
3120 (char *) NULL);
3121 return TCL_ERROR;
3122 }
3123
3124/* xmin is for output. */
3125/* xmax is for output. */
3126/* ymin is for output. */
3127/* ymax is for output. */
3128
3129
3130
3131 plgvpw ( &xmin, &xmax, &ymin, &ymax );
3132
3133 Tcl_PrintDouble( interp, xmin, buf );
3134 if (argc > 1)
3135 Tcl_SetVar( interp, argv[1+0], buf, 0 );
3136 else
3137 Tcl_AppendResult( interp, buf, (char *) NULL );
3138 if (argc == 1)
3139 Tcl_AppendResult( interp, " ", (char *) NULL );
3140 Tcl_PrintDouble( interp, xmax, buf );
3141 if (argc > 1)
3142 Tcl_SetVar( interp, argv[1+1], buf, 0 );
3143 else
3144 Tcl_AppendResult( interp, buf, (char *) NULL );
3145 if (argc == 1)
3146 Tcl_AppendResult( interp, " ", (char *) NULL );
3147 Tcl_PrintDouble( interp, ymin, buf );
3148 if (argc > 1)
3149 Tcl_SetVar( interp, argv[1+2], buf, 0 );
3150 else
3151 Tcl_AppendResult( interp, buf, (char *) NULL );
3152 if (argc == 1)
3153 Tcl_AppendResult( interp, " ", (char *) NULL );
3154 Tcl_PrintDouble( interp, ymax, buf );
3155 if (argc > 1)
3156 Tcl_SetVar( interp, argv[1+3], buf, 0 );
3157 else
3158 Tcl_AppendResult( interp, buf, (char *) NULL );
3159
3160 if (pl_errcode != 0) {
3161 Tcl_AppendResult(interp, errmsg, (char *) NULL);
3162 return TCL_ERROR;
3163 }
3164
3165 plflush();
3166 return TCL_OK;
3167}
3168
3169// The plgxaxCmd interface routine which processes the plgxax Tcl command.
3170
3171static int
3172plgxaxCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
3173{
3174 PLINT digmax;
3175 PLINT digits;
3176
3177 pl_errcode = 0; errmsg[0] = '\0';
3178
3179 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
3180 Tcl_AppendResult( interp, "command syntax: command should be ",
3181 "\"plgxax ?digmax digits?\"",
3182 (char *) NULL);
3183 return TCL_ERROR;
3184 }
3185
3186 if ( (!1 && 0 && (argc < (2 + 1 - 0 - 0)) && (!0 || (argc < (2 + 1 - 0)))) ||
3187 (!1 && !0 && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ||
3188 (1 && (argc != 1) && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ) {
3189 Tcl_AppendResult( interp, "wrong # args: command should be ",
3190 "\"plgxax ?digmax digits?\"",
3191 (char *) NULL);
3192 return TCL_ERROR;
3193 }
3194
3195/* digmax is for output. */
3196/* digits is for output. */
3197
3198
3199
3200 plgxax ( &digmax, &digits );
3201
3202 sprintf( buf, "%d", digmax );
3203 if (argc > 1)
3204 Tcl_SetVar( interp, argv[1+0], buf, 0 );
3205 else
3206 Tcl_AppendResult( interp, buf, (char *) NULL );
3207 if (argc == 1)
3208 Tcl_AppendResult( interp, " ", (char *) NULL );
3209 sprintf( buf, "%d", digits );
3210 if (argc > 1)
3211 Tcl_SetVar( interp, argv[1+1], buf, 0 );
3212 else
3213 Tcl_AppendResult( interp, buf, (char *) NULL );
3214
3215 if (pl_errcode != 0) {
3216 Tcl_AppendResult(interp, errmsg, (char *) NULL);
3217 return TCL_ERROR;
3218 }
3219
3220 plflush();
3221 return TCL_OK;
3222}
3223
3224// The plgyaxCmd interface routine which processes the plgyax Tcl command.
3225
3226static int
3227plgyaxCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
3228{
3229 PLINT digmax;
3230 PLINT digits;
3231
3232 pl_errcode = 0; errmsg[0] = '\0';
3233
3234 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
3235 Tcl_AppendResult( interp, "command syntax: command should be ",
3236 "\"plgyax ?digmax digits?\"",
3237 (char *) NULL);
3238 return TCL_ERROR;
3239 }
3240
3241 if ( (!1 && 0 && (argc < (2 + 1 - 0 - 0)) && (!0 || (argc < (2 + 1 - 0)))) ||
3242 (!1 && !0 && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ||
3243 (1 && (argc != 1) && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ) {
3244 Tcl_AppendResult( interp, "wrong # args: command should be ",
3245 "\"plgyax ?digmax digits?\"",
3246 (char *) NULL);
3247 return TCL_ERROR;
3248 }
3249
3250/* digmax is for output. */
3251/* digits is for output. */
3252
3253
3254
3255 plgyax ( &digmax, &digits );
3256
3257 sprintf( buf, "%d", digmax );
3258 if (argc > 1)
3259 Tcl_SetVar( interp, argv[1+0], buf, 0 );
3260 else
3261 Tcl_AppendResult( interp, buf, (char *) NULL );
3262 if (argc == 1)
3263 Tcl_AppendResult( interp, " ", (char *) NULL );
3264 sprintf( buf, "%d", digits );
3265 if (argc > 1)
3266 Tcl_SetVar( interp, argv[1+1], buf, 0 );
3267 else
3268 Tcl_AppendResult( interp, buf, (char *) NULL );
3269
3270 if (pl_errcode != 0) {
3271 Tcl_AppendResult(interp, errmsg, (char *) NULL);
3272 return TCL_ERROR;
3273 }
3274
3275 plflush();
3276 return TCL_OK;
3277}
3278
3279// The plgzaxCmd interface routine which processes the plgzax Tcl command.
3280
3281static int
3282plgzaxCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
3283{
3284 PLINT digmax;
3285 PLINT digits;
3286
3287 pl_errcode = 0; errmsg[0] = '\0';
3288
3289 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
3290 Tcl_AppendResult( interp, "command syntax: command should be ",
3291 "\"plgzax ?digmax digits?\"",
3292 (char *) NULL);
3293 return TCL_ERROR;
3294 }
3295
3296 if ( (!1 && 0 && (argc < (2 + 1 - 0 - 0)) && (!0 || (argc < (2 + 1 - 0)))) ||
3297 (!1 && !0 && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ||
3298 (1 && (argc != 1) && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ) {
3299 Tcl_AppendResult( interp, "wrong # args: command should be ",
3300 "\"plgzax ?digmax digits?\"",
3301 (char *) NULL);
3302 return TCL_ERROR;
3303 }
3304
3305/* digmax is for output. */
3306/* digits is for output. */
3307
3308
3309
3310 plgzax ( &digmax, &digits );
3311
3312 sprintf( buf, "%d", digmax );
3313 if (argc > 1)
3314 Tcl_SetVar( interp, argv[1+0], buf, 0 );
3315 else
3316 Tcl_AppendResult( interp, buf, (char *) NULL );
3317 if (argc == 1)
3318 Tcl_AppendResult( interp, " ", (char *) NULL );
3319 sprintf( buf, "%d", digits );
3320 if (argc > 1)
3321 Tcl_SetVar( interp, argv[1+1], buf, 0 );
3322 else
3323 Tcl_AppendResult( interp, buf, (char *) NULL );
3324
3325 if (pl_errcode != 0) {
3326 Tcl_AppendResult(interp, errmsg, (char *) NULL);
3327 return TCL_ERROR;
3328 }
3329
3330 plflush();
3331 return TCL_OK;
3332}
3333
3334// The plhistCmd interface routine which processes the plhist Tcl command.
3335
3336static int
3337plhistCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
3338{
3339 PLINT n;
3340 PLFLT *data;
3341 tclMatrix *matdata;
3342 PLFLT datmin;
3343 PLFLT datmax;
3344 PLINT nbin;
3345 PLINT oldwin;
3346
3347 pl_errcode = 0; errmsg[0] = '\0';
3348
3349 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
3350 Tcl_AppendResult( interp, "command syntax: command should be ",
3351 "\"plhist data datmin datmax nbin oldwin\"",
3352 (char *) NULL);
3353 return TCL_ERROR;
3354 }
3355
3356 if ( (!0 && 0 && (argc < (6 + 1 - 0 - 1)) && (!0 || (argc < (6 + 1 - 0)))) ||
3357 (!0 && !0 && (argc != (6 + 1 - 1)) && (!0 || (argc != (6 + 1)))) ||
3358 (0 && (argc != 1) && (argc != (6 + 1 - 1)) && (!0 || (argc != (6 + 1)))) ) {
3359 Tcl_AppendResult( interp, "wrong # args: command should be ",
3360 "\"plhist data datmin datmax nbin oldwin\"",
3361 (char *) NULL);
3362 return TCL_ERROR;
3363 }
3364
3365 matdata = Tcl_GetMatrixPtr( interp, argv[1+0] );
3366 if (matdata == NULL) return TCL_ERROR;
3367 data = matdata->fdata;
3368 datmin = atof(argv[1+1]);
3369 datmax = atof(argv[1+2]);
3370 nbin = atoi(argv[1+3]);
3371 oldwin = atoi(argv[1+4]);
3372 n = matdata->n[0];
3373
3374 if ( ! (n <= matdata->n[0]) ) {
3375 Tcl_AppendResult( interp, "Length of the vector must be at least n", (char *) NULL );
3376 return TCL_ERROR;
3377 }
3378 if ( ! (matdata->type == TYPE_FLOAT) ) {
3379 Tcl_AppendResult( interp, "The vector must be of type float", (char *) NULL );
3380 return TCL_ERROR;
3381 }
3382
3383
3384 plhist ( n, data, datmin, datmax, nbin, oldwin );
3385
3386
3387 if (pl_errcode != 0) {
3388 Tcl_AppendResult(interp, errmsg, (char *) NULL);
3389 return TCL_ERROR;
3390 }
3391
3392 plflush();
3393 return TCL_OK;
3394}
3395
3396// The plhlsrgbCmd interface routine which processes the plhlsrgb Tcl command.
3397
3398static int
3399plhlsrgbCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
3400{
3401 PLFLT h;
3402 PLFLT l;
3403 PLFLT s;
3404 PLFLT r;
3405 PLFLT g;
3406 PLFLT b;
3407
3408 pl_errcode = 0; errmsg[0] = '\0';
3409
3410 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
3411 Tcl_AppendResult( interp, "command syntax: command should be ",
3412 "\"plhlsrgb ?h l s r g b?\"",
3413 (char *) NULL);
3414 return TCL_ERROR;
3415 }
3416
3417 if ( (!1 && 0 && (argc < (6 + 1 - 0 - 0)) && (!0 || (argc < (6 + 1 - 0)))) ||
3418 (!1 && !0 && (argc != (6 + 1 - 0)) && (!0 || (argc != (6 + 1)))) ||
3419 (1 && (argc != 1) && (argc != (6 + 1 - 0)) && (!0 || (argc != (6 + 1)))) ) {
3420 Tcl_AppendResult( interp, "wrong # args: command should be ",
3421 "\"plhlsrgb ?h l s r g b?\"",
3422 (char *) NULL);
3423 return TCL_ERROR;
3424 }
3425
3426 h = atof(argv[1+0]);
3427 l = atof(argv[1+1]);
3428 s = atof(argv[1+2]);
3429/* r is for output. */
3430/* g is for output. */
3431/* b is for output. */
3432
3433
3434
3435 plhlsrgb ( h, l, s, &r, &g, &b );
3436
3437 if (argc == 1)
3438 Tcl_AppendResult( interp, " ", (char *) NULL );
3439 Tcl_PrintDouble( interp, r, buf );
3440 if (argc > 1)
3441 Tcl_SetVar( interp, argv[1+3], buf, 0 );
3442 else
3443 Tcl_AppendResult( interp, buf, (char *) NULL );
3444 if (argc == 1)
3445 Tcl_AppendResult( interp, " ", (char *) NULL );
3446 Tcl_PrintDouble( interp, g, buf );
3447 if (argc > 1)
3448 Tcl_SetVar( interp, argv[1+4], buf, 0 );
3449 else
3450 Tcl_AppendResult( interp, buf, (char *) NULL );
3451 if (argc == 1)
3452 Tcl_AppendResult( interp, " ", (char *) NULL );
3453 Tcl_PrintDouble( interp, b, buf );
3454 if (argc > 1)
3455 Tcl_SetVar( interp, argv[1+5], buf, 0 );
3456 else
3457 Tcl_AppendResult( interp, buf, (char *) NULL );
3458
3459 if (pl_errcode != 0) {
3460 Tcl_AppendResult(interp, errmsg, (char *) NULL);
3461 return TCL_ERROR;
3462 }
3463
3464 plflush();
3465 return TCL_OK;
3466}
3467
3468// The plinitCmd interface routine which processes the plinit Tcl command.
3469
3470static int
3471plinitCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
3472{
3473
3474 pl_errcode = 0; errmsg[0] = '\0';
3475
3476 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
3477 Tcl_AppendResult( interp, "command syntax: command should be ",
3478 "\"plinit \"",
3479 (char *) NULL);
3480 return TCL_ERROR;
3481 }
3482
3483 if ( (!0 && 0 && (argc < (0 + 1 - 0 - 0)) && (!0 || (argc < (0 + 1 - 0)))) ||
3484 (!0 && !0 && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ||
3485 (0 && (argc != 1) && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ) {
3486 Tcl_AppendResult( interp, "wrong # args: command should be ",
3487 "\"plinit \"",
3488 (char *) NULL);
3489 return TCL_ERROR;
3490 }
3491
3492
3493
3494
3495 plinit ( );
3496
3497
3498 if (pl_errcode != 0) {
3499 Tcl_AppendResult(interp, errmsg, (char *) NULL);
3500 return TCL_ERROR;
3501 }
3502
3503 plflush();
3504 return TCL_OK;
3505}
3506
3507// The pljoinCmd interface routine which processes the pljoin Tcl command.
3508
3509static int
3510pljoinCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
3511{
3512 PLFLT x1;
3513 PLFLT y1;
3514 PLFLT x2;
3515 PLFLT y2;
3516
3517 pl_errcode = 0; errmsg[0] = '\0';
3518
3519 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
3520 Tcl_AppendResult( interp, "command syntax: command should be ",
3521 "\"pljoin x1 y1 x2 y2\"",
3522 (char *) NULL);
3523 return TCL_ERROR;
3524 }
3525
3526 if ( (!0 && 0 && (argc < (4 + 1 - 0 - 0)) && (!0 || (argc < (4 + 1 - 0)))) ||
3527 (!0 && !0 && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ||
3528 (0 && (argc != 1) && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ) {
3529 Tcl_AppendResult( interp, "wrong # args: command should be ",
3530 "\"pljoin x1 y1 x2 y2\"",
3531 (char *) NULL);
3532 return TCL_ERROR;
3533 }
3534
3535 x1 = atof(argv[1+0]);
3536 y1 = atof(argv[1+1]);
3537 x2 = atof(argv[1+2]);
3538 y2 = atof(argv[1+3]);
3539
3540
3541
3542 pljoin ( x1, y1, x2, y2 );
3543
3544
3545 if (pl_errcode != 0) {
3546 Tcl_AppendResult(interp, errmsg, (char *) NULL);
3547 return TCL_ERROR;
3548 }
3549
3550 plflush();
3551 return TCL_OK;
3552}
3553
3554// The pllabCmd interface routine which processes the pllab Tcl command.
3555
3556static int
3557pllabCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
3558{
3559 const char *xlabel;
3560 const char *ylabel;
3561 const char *tlabel;
3562
3563 pl_errcode = 0; errmsg[0] = '\0';
3564
3565 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
3566 Tcl_AppendResult( interp, "command syntax: command should be ",
3567 "\"pllab xlabel ylabel tlabel\"",
3568 (char *) NULL);
3569 return TCL_ERROR;
3570 }
3571
3572 if ( (!0 && 0 && (argc < (3 + 1 - 0 - 0)) && (!0 || (argc < (3 + 1 - 0)))) ||
3573 (!0 && !0 && (argc != (3 + 1 - 0)) && (!0 || (argc != (3 + 1)))) ||
3574 (0 && (argc != 1) && (argc != (3 + 1 - 0)) && (!0 || (argc != (3 + 1)))) ) {
3575 Tcl_AppendResult( interp, "wrong # args: command should be ",
3576 "\"pllab xlabel ylabel tlabel\"",
3577 (char *) NULL);
3578 return TCL_ERROR;
3579 }
3580
3581 xlabel = argv[1+0];
3582 ylabel = argv[1+1];
3583 tlabel = argv[1+2];
3584
3585
3586
3587 pllab ( xlabel, ylabel, tlabel );
3588
3589
3590 if (pl_errcode != 0) {
3591 Tcl_AppendResult(interp, errmsg, (char *) NULL);
3592 return TCL_ERROR;
3593 }
3594
3595 plflush();
3596 return TCL_OK;
3597}
3598
3599// The pllightsourceCmd interface routine which processes the pllightsource Tcl command.
3600
3601static int
3602pllightsourceCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
3603{
3604 PLFLT x;
3605 PLFLT y;
3606 PLFLT z;
3607
3608 pl_errcode = 0; errmsg[0] = '\0';
3609
3610 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
3611 Tcl_AppendResult( interp, "command syntax: command should be ",
3612 "\"pllightsource x y z\"",
3613 (char *) NULL);
3614 return TCL_ERROR;
3615 }
3616
3617 if ( (!0 && 0 && (argc < (3 + 1 - 0 - 0)) && (!0 || (argc < (3 + 1 - 0)))) ||
3618 (!0 && !0 && (argc != (3 + 1 - 0)) && (!0 || (argc != (3 + 1)))) ||
3619 (0 && (argc != 1) && (argc != (3 + 1 - 0)) && (!0 || (argc != (3 + 1)))) ) {
3620 Tcl_AppendResult( interp, "wrong # args: command should be ",
3621 "\"pllightsource x y z\"",
3622 (char *) NULL);
3623 return TCL_ERROR;
3624 }
3625
3626 x = atof(argv[1+0]);
3627 y = atof(argv[1+1]);
3628 z = atof(argv[1+2]);
3629
3630
3631
3632 pllightsource ( x, y, z );
3633
3634
3635 if (pl_errcode != 0) {
3636 Tcl_AppendResult(interp, errmsg, (char *) NULL);
3637 return TCL_ERROR;
3638 }
3639
3640 plflush();
3641 return TCL_OK;
3642}
3643
3644// The pllineCmd interface routine which processes the plline Tcl command.
3645
3646static int
3647pllineCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
3648{
3649 PLINT n;
3650 PLFLT *x;
3651 tclMatrix *matx;
3652 PLFLT *y;
3653 tclMatrix *maty;
3654
3655 pl_errcode = 0; errmsg[0] = '\0';
3656
3657 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
3658 Tcl_AppendResult( interp, "command syntax: command should be ",
3659 "\"plline x y\"",
3660 (char *) NULL);
3661 return TCL_ERROR;
3662 }
3663
3664 if ( (!0 && 0 && (argc < (3 + 1 - 0 - 1)) && (!0 || (argc < (3 + 1 - 0)))) ||
3665 (!0 && !0 && (argc != (3 + 1 - 1)) && (!0 || (argc != (3 + 1)))) ||
3666 (0 && (argc != 1) && (argc != (3 + 1 - 1)) && (!0 || (argc != (3 + 1)))) ) {
3667 Tcl_AppendResult( interp, "wrong # args: command should be ",
3668 "\"plline x y\"",
3669 (char *) NULL);
3670 return TCL_ERROR;
3671 }
3672
3673 matx = Tcl_GetMatrixPtr( interp, argv[1+0] );
3674 if (matx == NULL) return TCL_ERROR;
3675 x = matx->fdata;
3676 maty = Tcl_GetMatrixPtr( interp, argv[1+1] );
3677 if (maty == NULL) return TCL_ERROR;
3678 y = maty->fdata;
3679 n = matx->n[0];
3680
3681 if ( ! (n <= matx->n[0] && matx->n[0] == maty->n[0]) ) {
3682 Tcl_AppendResult( interp, "Length of the two vectors must be equal", (char *) NULL );
3683 return TCL_ERROR;
3684 }
3685 if ( ! (matx->type == TYPE_FLOAT && maty->type == TYPE_FLOAT) ) {
3686 Tcl_AppendResult( interp, "Both vectors must be of type float", (char *) NULL );
3687 return TCL_ERROR;
3688 }
3689
3690
3691 plline ( n, x, y );
3692
3693
3694 if (pl_errcode != 0) {
3695 Tcl_AppendResult(interp, errmsg, (char *) NULL);
3696 return TCL_ERROR;
3697 }
3698
3699 plflush();
3700 return TCL_OK;
3701}
3702
3703// The plline3Cmd interface routine which processes the plline3 Tcl command.
3704
3705static int
3706plline3Cmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
3707{
3708 PLINT n;
3709 PLFLT *x;
3710 tclMatrix *matx;
3711 PLFLT *y;
3712 tclMatrix *maty;
3713 PLFLT *z;
3714 tclMatrix *matz;
3715
3716 pl_errcode = 0; errmsg[0] = '\0';
3717
3718 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
3719 Tcl_AppendResult( interp, "command syntax: command should be ",
3720 "\"plline3 x y z\"",
3721 (char *) NULL);
3722 return TCL_ERROR;
3723 }
3724
3725 if ( (!0 && 0 && (argc < (4 + 1 - 0 - 1)) && (!0 || (argc < (4 + 1 - 0)))) ||
3726 (!0 && !0 && (argc != (4 + 1 - 1)) && (!0 || (argc != (4 + 1)))) ||
3727 (0 && (argc != 1) && (argc != (4 + 1 - 1)) && (!0 || (argc != (4 + 1)))) ) {
3728 Tcl_AppendResult( interp, "wrong # args: command should be ",
3729 "\"plline3 x y z\"",
3730 (char *) NULL);
3731 return TCL_ERROR;
3732 }
3733
3734 matx = Tcl_GetMatrixPtr( interp, argv[1+0] );
3735 if (matx == NULL) return TCL_ERROR;
3736 x = matx->fdata;
3737 maty = Tcl_GetMatrixPtr( interp, argv[1+1] );
3738 if (maty == NULL) return TCL_ERROR;
3739 y = maty->fdata;
3740 matz = Tcl_GetMatrixPtr( interp, argv[1+2] );
3741 if (matz == NULL) return TCL_ERROR;
3742 z = matz->fdata;
3743 n = matx->n[0];
3744
3745 if ( ! (n <= matx->n[0] && matx->n[0] == maty->n[0] && matx->n[0] == matz->n[0]) ) {
3746 Tcl_AppendResult( interp, "Length of the three vectors must be equal", (char *) NULL );
3747 return TCL_ERROR;
3748 }
3749 if ( ! (matx->type == TYPE_FLOAT && maty->type == TYPE_FLOAT && matz->type == TYPE_FLOAT) ) {
3750 Tcl_AppendResult( interp, "All vectors must be of type float", (char *) NULL );
3751 return TCL_ERROR;
3752 }
3753
3754
3755 plline3 ( n, x, y, z );
3756
3757
3758 if (pl_errcode != 0) {
3759 Tcl_AppendResult(interp, errmsg, (char *) NULL);
3760 return TCL_ERROR;
3761 }
3762
3763 plflush();
3764 return TCL_OK;
3765}
3766
3767// The pllstyCmd interface routine which processes the pllsty Tcl command.
3768
3769static int
3770pllstyCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
3771{
3772 PLINT lin;
3773
3774 pl_errcode = 0; errmsg[0] = '\0';
3775
3776 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
3777 Tcl_AppendResult( interp, "command syntax: command should be ",
3778 "\"pllsty lin\"",
3779 (char *) NULL);
3780 return TCL_ERROR;
3781 }
3782
3783 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
3784 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
3785 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
3786 Tcl_AppendResult( interp, "wrong # args: command should be ",
3787 "\"pllsty lin\"",
3788 (char *) NULL);
3789 return TCL_ERROR;
3790 }
3791
3792 lin = atoi(argv[1+0]);
3793
3794
3795
3796 pllsty ( lin );
3797
3798
3799 if (pl_errcode != 0) {
3800 Tcl_AppendResult(interp, errmsg, (char *) NULL);
3801 return TCL_ERROR;
3802 }
3803
3804 plflush();
3805 return TCL_OK;
3806}
3807
3808// The plmkstrmCmd interface routine which processes the plmkstrm Tcl command.
3809
3810static int
3811plmkstrmCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
3812{
3813 PLINT strm;
3814
3815 pl_errcode = 0; errmsg[0] = '\0';
3816
3817 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
3818 Tcl_AppendResult( interp, "command syntax: command should be ",
3819 "\"plmkstrm ?strm?\"",
3820 (char *) NULL);
3821 return TCL_ERROR;
3822 }
3823
3824 if ( (!1 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
3825 (!1 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
3826 (1 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
3827 Tcl_AppendResult( interp, "wrong # args: command should be ",
3828 "\"plmkstrm ?strm?\"",
3829 (char *) NULL);
3830 return TCL_ERROR;
3831 }
3832
3833/* strm is for output. */
3834
3835
3836
3837 plmkstrm ( &strm );
3838
3839 sprintf( buf, "%d", strm );
3840 if (argc > 1)
3841 Tcl_SetVar( interp, argv[1+0], buf, 0 );
3842 else
3843 Tcl_AppendResult( interp, buf, (char *) NULL );
3844
3845 if (pl_errcode != 0) {
3846 Tcl_AppendResult(interp, errmsg, (char *) NULL);
3847 return TCL_ERROR;
3848 }
3849
3850 plflush();
3851 return TCL_OK;
3852}
3853
3854// The plmtexCmd interface routine which processes the plmtex Tcl command.
3855
3856static int
3857plmtexCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
3858{
3859 const char *side;
3860 PLFLT disp;
3861 PLFLT pos;
3862 PLFLT just;
3863 const char *text;
3864
3865 pl_errcode = 0; errmsg[0] = '\0';
3866
3867 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
3868 Tcl_AppendResult( interp, "command syntax: command should be ",
3869 "\"plmtex side disp pos just text\"",
3870 (char *) NULL);
3871 return TCL_ERROR;
3872 }
3873
3874 if ( (!0 && 0 && (argc < (5 + 1 - 0 - 0)) && (!0 || (argc < (5 + 1 - 0)))) ||
3875 (!0 && !0 && (argc != (5 + 1 - 0)) && (!0 || (argc != (5 + 1)))) ||
3876 (0 && (argc != 1) && (argc != (5 + 1 - 0)) && (!0 || (argc != (5 + 1)))) ) {
3877 Tcl_AppendResult( interp, "wrong # args: command should be ",
3878 "\"plmtex side disp pos just text\"",
3879 (char *) NULL);
3880 return TCL_ERROR;
3881 }
3882
3883 side = argv[1+0];
3884 disp = atof(argv[1+1]);
3885 pos = atof(argv[1+2]);
3886 just = atof(argv[1+3]);
3887 text = argv[1+4];
3888
3889
3890
3891 plmtex ( side, disp, pos, just, text );
3892
3893
3894 if (pl_errcode != 0) {
3895 Tcl_AppendResult(interp, errmsg, (char *) NULL);
3896 return TCL_ERROR;
3897 }
3898
3899 plflush();
3900 return TCL_OK;
3901}
3902
3903// The plmtex3Cmd interface routine which processes the plmtex3 Tcl command.
3904
3905static int
3906plmtex3Cmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
3907{
3908 const char *side;
3909 PLFLT disp;
3910 PLFLT pos;
3911 PLFLT just;
3912 const char *text;
3913
3914 pl_errcode = 0; errmsg[0] = '\0';
3915
3916 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
3917 Tcl_AppendResult( interp, "command syntax: command should be ",
3918 "\"plmtex3 side disp pos just text\"",
3919 (char *) NULL);
3920 return TCL_ERROR;
3921 }
3922
3923 if ( (!0 && 0 && (argc < (5 + 1 - 0 - 0)) && (!0 || (argc < (5 + 1 - 0)))) ||
3924 (!0 && !0 && (argc != (5 + 1 - 0)) && (!0 || (argc != (5 + 1)))) ||
3925 (0 && (argc != 1) && (argc != (5 + 1 - 0)) && (!0 || (argc != (5 + 1)))) ) {
3926 Tcl_AppendResult( interp, "wrong # args: command should be ",
3927 "\"plmtex3 side disp pos just text\"",
3928 (char *) NULL);
3929 return TCL_ERROR;
3930 }
3931
3932 side = argv[1+0];
3933 disp = atof(argv[1+1]);
3934 pos = atof(argv[1+2]);
3935 just = atof(argv[1+3]);
3936 text = argv[1+4];
3937
3938
3939
3940 plmtex3 ( side, disp, pos, just, text );
3941
3942
3943 if (pl_errcode != 0) {
3944 Tcl_AppendResult(interp, errmsg, (char *) NULL);
3945 return TCL_ERROR;
3946 }
3947
3948 plflush();
3949 return TCL_OK;
3950}
3951
3952// The plpatCmd interface routine which processes the plpat Tcl command.
3953
3954static int
3955plpatCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
3956{
3957 PLINT nlin;
3958 PLINT *inc;
3959 tclMatrix *matinc;
3960 PLINT *del;
3961 tclMatrix *matdel;
3962
3963 pl_errcode = 0; errmsg[0] = '\0';
3964
3965 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
3966 Tcl_AppendResult( interp, "command syntax: command should be ",
3967 "\"plpat inc del\"",
3968 (char *) NULL);
3969 return TCL_ERROR;
3970 }
3971
3972 if ( (!0 && 0 && (argc < (3 + 1 - 0 - 1)) && (!0 || (argc < (3 + 1 - 0)))) ||
3973 (!0 && !0 && (argc != (3 + 1 - 1)) && (!0 || (argc != (3 + 1)))) ||
3974 (0 && (argc != 1) && (argc != (3 + 1 - 1)) && (!0 || (argc != (3 + 1)))) ) {
3975 Tcl_AppendResult( interp, "wrong # args: command should be ",
3976 "\"plpat inc del\"",
3977 (char *) NULL);
3978 return TCL_ERROR;
3979 }
3980
3981 matinc = Tcl_GetMatrixPtr( interp, argv[1+0] );
3982 if (matinc == NULL) return TCL_ERROR;
3983 inc = matinc->idata;
3984 matdel = Tcl_GetMatrixPtr( interp, argv[1+1] );
3985 if (matdel == NULL) return TCL_ERROR;
3986 del = matdel->idata;
3987 nlin = matinc->n[0];
3988
3989 if ( ! (nlin <= matinc->n[0] && matinc->n[0] == matdel->n[0]) ) {
3990 Tcl_AppendResult( interp, "Length of the two vectors must be equal", (char *) NULL );
3991 return TCL_ERROR;
3992 }
3993 if ( ! (matinc->type == TYPE_INT && matdel->type == TYPE_INT) ) {
3994 Tcl_AppendResult( interp, "Both vectors must be of type int", (char *) NULL );
3995 return TCL_ERROR;
3996 }
3997
3998
3999 plpat ( nlin, inc, del );
4000
4001
4002 if (pl_errcode != 0) {
4003 Tcl_AppendResult(interp, errmsg, (char *) NULL);
4004 return TCL_ERROR;
4005 }
4006
4007 plflush();
4008 return TCL_OK;
4009}
4010
4011// The plpathCmd interface routine which processes the plpath Tcl command.
4012
4013static int
4014plpathCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
4015{
4016 PLINT n;
4017 PLFLT x1;
4018 PLFLT y1;
4019 PLFLT x2;
4020 PLFLT y2;
4021
4022 pl_errcode = 0; errmsg[0] = '\0';
4023
4024 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
4025 Tcl_AppendResult( interp, "command syntax: command should be ",
4026 "\"plpath n x1 y1 x2 y2\"",
4027 (char *) NULL);
4028 return TCL_ERROR;
4029 }
4030
4031 if ( (!0 && 0 && (argc < (5 + 1 - 0 - 0)) && (!0 || (argc < (5 + 1 - 0)))) ||
4032 (!0 && !0 && (argc != (5 + 1 - 0)) && (!0 || (argc != (5 + 1)))) ||
4033 (0 && (argc != 1) && (argc != (5 + 1 - 0)) && (!0 || (argc != (5 + 1)))) ) {
4034 Tcl_AppendResult( interp, "wrong # args: command should be ",
4035 "\"plpath n x1 y1 x2 y2\"",
4036 (char *) NULL);
4037 return TCL_ERROR;
4038 }
4039
4040 n = atoi(argv[1+0]);
4041 x1 = atof(argv[1+1]);
4042 y1 = atof(argv[1+2]);
4043 x2 = atof(argv[1+3]);
4044 y2 = atof(argv[1+4]);
4045
4046
4047
4048 plpath ( n, x1, y1, x2, y2 );
4049
4050
4051 if (pl_errcode != 0) {
4052 Tcl_AppendResult(interp, errmsg, (char *) NULL);
4053 return TCL_ERROR;
4054 }
4055
4056 plflush();
4057 return TCL_OK;
4058}
4059
4060// The plpoinCmd interface routine which processes the plpoin Tcl command.
4061
4062static int
4063plpoinCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
4064{
4065 PLINT n;
4066 PLFLT *x;
4067 tclMatrix *matx;
4068 PLFLT *y;
4069 tclMatrix *maty;
4070 PLINT code;
4071
4072 pl_errcode = 0; errmsg[0] = '\0';
4073
4074 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
4075 Tcl_AppendResult( interp, "command syntax: command should be ",
4076 "\"plpoin x y code\"",
4077 (char *) NULL);
4078 return TCL_ERROR;
4079 }
4080
4081 if ( (!0 && 0 && (argc < (4 + 1 - 0 - 1)) && (!0 || (argc < (4 + 1 - 0)))) ||
4082 (!0 && !0 && (argc != (4 + 1 - 1)) && (!0 || (argc != (4 + 1)))) ||
4083 (0 && (argc != 1) && (argc != (4 + 1 - 1)) && (!0 || (argc != (4 + 1)))) ) {
4084 Tcl_AppendResult( interp, "wrong # args: command should be ",
4085 "\"plpoin x y code\"",
4086 (char *) NULL);
4087 return TCL_ERROR;
4088 }
4089
4090 matx = Tcl_GetMatrixPtr( interp, argv[1+0] );
4091 if (matx == NULL) return TCL_ERROR;
4092 x = matx->fdata;
4093 maty = Tcl_GetMatrixPtr( interp, argv[1+1] );
4094 if (maty == NULL) return TCL_ERROR;
4095 y = maty->fdata;
4096 code = atoi(argv[1+2]);
4097 n = matx->n[0];
4098
4099 if ( ! (n <= matx->n[0] && matx->n[0] == maty->n[0]) ) {
4100 Tcl_AppendResult( interp, "Length of the two vectors must be equal", (char *) NULL );
4101 return TCL_ERROR;
4102 }
4103 if ( ! (matx->type == TYPE_FLOAT && maty->type == TYPE_FLOAT) ) {
4104 Tcl_AppendResult( interp, "Both vectors must be of type float", (char *) NULL );
4105 return TCL_ERROR;
4106 }
4107
4108
4109 plpoin ( n, x, y, code );
4110
4111
4112 if (pl_errcode != 0) {
4113 Tcl_AppendResult(interp, errmsg, (char *) NULL);
4114 return TCL_ERROR;
4115 }
4116
4117 plflush();
4118 return TCL_OK;
4119}
4120
4121// The plpoin3Cmd interface routine which processes the plpoin3 Tcl command.
4122
4123static int
4124plpoin3Cmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
4125{
4126 PLINT n;
4127 PLFLT *x;
4128 tclMatrix *matx;
4129 PLFLT *y;
4130 tclMatrix *maty;
4131 PLFLT *z;
4132 tclMatrix *matz;
4133 PLINT code;
4134
4135 pl_errcode = 0; errmsg[0] = '\0';
4136
4137 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
4138 Tcl_AppendResult( interp, "command syntax: command should be ",
4139 "\"plpoin3 x y z code\"",
4140 (char *) NULL);
4141 return TCL_ERROR;
4142 }
4143
4144 if ( (!0 && 0 && (argc < (5 + 1 - 0 - 1)) && (!0 || (argc < (5 + 1 - 0)))) ||
4145 (!0 && !0 && (argc != (5 + 1 - 1)) && (!0 || (argc != (5 + 1)))) ||
4146 (0 && (argc != 1) && (argc != (5 + 1 - 1)) && (!0 || (argc != (5 + 1)))) ) {
4147 Tcl_AppendResult( interp, "wrong # args: command should be ",
4148 "\"plpoin3 x y z code\"",
4149 (char *) NULL);
4150 return TCL_ERROR;
4151 }
4152
4153 matx = Tcl_GetMatrixPtr( interp, argv[1+0] );
4154 if (matx == NULL) return TCL_ERROR;
4155 x = matx->fdata;
4156 maty = Tcl_GetMatrixPtr( interp, argv[1+1] );
4157 if (maty == NULL) return TCL_ERROR;
4158 y = maty->fdata;
4159 matz = Tcl_GetMatrixPtr( interp, argv[1+2] );
4160 if (matz == NULL) return TCL_ERROR;
4161 z = matz->fdata;
4162 code = atoi(argv[1+3]);
4163 n = matx->n[0];
4164
4165 if ( ! (n <= matx->n[0] && matx->n[0] == maty->n[0] && matx->n[0] == matz->n[0]) ) {
4166 Tcl_AppendResult( interp, "Length of the three vectors must be equal", (char *) NULL );
4167 return TCL_ERROR;
4168 }
4169 if ( ! (matx->type == TYPE_FLOAT && maty->type == TYPE_FLOAT && matz->type == TYPE_FLOAT) ) {
4170 Tcl_AppendResult( interp, "All vectors must be of type float", (char *) NULL );
4171 return TCL_ERROR;
4172 }
4173
4174
4175 plpoin3 ( n, x, y, z, code );
4176
4177
4178 if (pl_errcode != 0) {
4179 Tcl_AppendResult(interp, errmsg, (char *) NULL);
4180 return TCL_ERROR;
4181 }
4182
4183 plflush();
4184 return TCL_OK;
4185}
4186
4187// The plpoly3Cmd interface routine which processes the plpoly3 Tcl command.
4188
4189static int
4190plpoly3Cmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
4191{
4192 PLINT n;
4193 PLFLT *x;
4194 tclMatrix *matx;
4195 PLFLT *y;
4196 tclMatrix *maty;
4197 PLFLT *z;
4198 tclMatrix *matz;
4199 PLINT *draw;
4200 tclMatrix *matdraw;
4201 PLINT ifcc;
4202
4203 pl_errcode = 0; errmsg[0] = '\0';
4204
4205 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
4206 Tcl_AppendResult( interp, "command syntax: command should be ",
4207 "\"plpoly3 x y z draw ifcc\"",
4208 (char *) NULL);
4209 return TCL_ERROR;
4210 }
4211
4212 if ( (!0 && 0 && (argc < (6 + 1 - 0 - 1)) && (!0 || (argc < (6 + 1 - 0)))) ||
4213 (!0 && !0 && (argc != (6 + 1 - 1)) && (!0 || (argc != (6 + 1)))) ||
4214 (0 && (argc != 1) && (argc != (6 + 1 - 1)) && (!0 || (argc != (6 + 1)))) ) {
4215 Tcl_AppendResult( interp, "wrong # args: command should be ",
4216 "\"plpoly3 x y z draw ifcc\"",
4217 (char *) NULL);
4218 return TCL_ERROR;
4219 }
4220
4221 matx = Tcl_GetMatrixPtr( interp, argv[1+0] );
4222 if (matx == NULL) return TCL_ERROR;
4223 x = matx->fdata;
4224 maty = Tcl_GetMatrixPtr( interp, argv[1+1] );
4225 if (maty == NULL) return TCL_ERROR;
4226 y = maty->fdata;
4227 matz = Tcl_GetMatrixPtr( interp, argv[1+2] );
4228 if (matz == NULL) return TCL_ERROR;
4229 z = matz->fdata;
4230 matdraw = Tcl_GetMatrixPtr( interp, argv[1+3] );
4231 if (matdraw == NULL) return TCL_ERROR;
4232 draw = matdraw->idata;
4233 ifcc = atoi(argv[1+4]);
4234 n = matx->n[0];
4235
4236 if ( ! (n <= matx->n[0] && matx->n[0] == maty->n[0] && matx->n[0] == matz->n[0] && matx->n[0]) ) {
4237 Tcl_AppendResult( interp, "Length of vectors x, y and z must be equal", (char *) NULL );
4238 return TCL_ERROR;
4239 }
4240 if ( ! (matx->n[0] == matdraw->n[0]+1) ) {
4241 Tcl_AppendResult( interp, "Length of vector draw must be one less than that of vectors x, y and z", (char *) NULL );
4242 return TCL_ERROR;
4243 }
4244 if ( ! (matx->type == TYPE_FLOAT && maty->type == TYPE_FLOAT && matz->type == TYPE_FLOAT) ) {
4245 Tcl_AppendResult( interp, "The three coordinate vectors must be of type float", (char *) NULL );
4246 return TCL_ERROR;
4247 }
4248 if ( ! (matdraw->type == TYPE_INT) ) {
4249 Tcl_AppendResult( interp, "The draw vectors must be of type int", (char *) NULL );
4250 return TCL_ERROR;
4251 }
4252
4253
4254 plpoly3 ( n, x, y, z, draw, ifcc );
4255
4256
4257 if (pl_errcode != 0) {
4258 Tcl_AppendResult(interp, errmsg, (char *) NULL);
4259 return TCL_ERROR;
4260 }
4261
4262 plflush();
4263 return TCL_OK;
4264}
4265
4266// The plprecCmd interface routine which processes the plprec Tcl command.
4267
4268static int
4269plprecCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
4270{
4271 PLINT setp;
4272 PLINT prec;
4273
4274 pl_errcode = 0; errmsg[0] = '\0';
4275
4276 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
4277 Tcl_AppendResult( interp, "command syntax: command should be ",
4278 "\"plprec setp prec\"",
4279 (char *) NULL);
4280 return TCL_ERROR;
4281 }
4282
4283 if ( (!0 && 0 && (argc < (2 + 1 - 0 - 0)) && (!0 || (argc < (2 + 1 - 0)))) ||
4284 (!0 && !0 && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ||
4285 (0 && (argc != 1) && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ) {
4286 Tcl_AppendResult( interp, "wrong # args: command should be ",
4287 "\"plprec setp prec\"",
4288 (char *) NULL);
4289 return TCL_ERROR;
4290 }
4291
4292 setp = atoi(argv[1+0]);
4293 prec = atoi(argv[1+1]);
4294
4295
4296
4297 plprec ( setp, prec );
4298
4299
4300 if (pl_errcode != 0) {
4301 Tcl_AppendResult(interp, errmsg, (char *) NULL);
4302 return TCL_ERROR;
4303 }
4304
4305 plflush();
4306 return TCL_OK;
4307}
4308
4309// The plpstyCmd interface routine which processes the plpsty Tcl command.
4310
4311static int
4312plpstyCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
4313{
4314 PLINT patt;
4315
4316 pl_errcode = 0; errmsg[0] = '\0';
4317
4318 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
4319 Tcl_AppendResult( interp, "command syntax: command should be ",
4320 "\"plpsty patt\"",
4321 (char *) NULL);
4322 return TCL_ERROR;
4323 }
4324
4325 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
4326 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
4327 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
4328 Tcl_AppendResult( interp, "wrong # args: command should be ",
4329 "\"plpsty patt\"",
4330 (char *) NULL);
4331 return TCL_ERROR;
4332 }
4333
4334 patt = atoi(argv[1+0]);
4335
4336
4337
4338 plpsty ( patt );
4339
4340
4341 if (pl_errcode != 0) {
4342 Tcl_AppendResult(interp, errmsg, (char *) NULL);
4343 return TCL_ERROR;
4344 }
4345
4346 plflush();
4347 return TCL_OK;
4348}
4349
4350// The plptexCmd interface routine which processes the plptex Tcl command.
4351
4352static int
4353plptexCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
4354{
4355 PLFLT x;
4356 PLFLT y;
4357 PLFLT dx;
4358 PLFLT dy;
4359 PLFLT just;
4360 const char *text;
4361
4362 pl_errcode = 0; errmsg[0] = '\0';
4363
4364 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
4365 Tcl_AppendResult( interp, "command syntax: command should be ",
4366 "\"plptex x y dx dy just text\"",
4367 (char *) NULL);
4368 return TCL_ERROR;
4369 }
4370
4371 if ( (!0 && 0 && (argc < (6 + 1 - 0 - 0)) && (!0 || (argc < (6 + 1 - 0)))) ||
4372 (!0 && !0 && (argc != (6 + 1 - 0)) && (!0 || (argc != (6 + 1)))) ||
4373 (0 && (argc != 1) && (argc != (6 + 1 - 0)) && (!0 || (argc != (6 + 1)))) ) {
4374 Tcl_AppendResult( interp, "wrong # args: command should be ",
4375 "\"plptex x y dx dy just text\"",
4376 (char *) NULL);
4377 return TCL_ERROR;
4378 }
4379
4380 x = atof(argv[1+0]);
4381 y = atof(argv[1+1]);
4382 dx = atof(argv[1+2]);
4383 dy = atof(argv[1+3]);
4384 just = atof(argv[1+4]);
4385 text = argv[1+5];
4386
4387
4388
4389 plptex ( x, y, dx, dy, just, text );
4390
4391
4392 if (pl_errcode != 0) {
4393 Tcl_AppendResult(interp, errmsg, (char *) NULL);
4394 return TCL_ERROR;
4395 }
4396
4397 plflush();
4398 return TCL_OK;
4399}
4400
4401// The plptex3Cmd interface routine which processes the plptex3 Tcl command.
4402
4403static int
4404plptex3Cmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
4405{
4406 PLFLT wx;
4407 PLFLT wy;
4408 PLFLT wz;
4409 PLFLT dx;
4410 PLFLT dy;
4411 PLFLT dz;
4412 PLFLT sx;
4413 PLFLT sy;
4414 PLFLT sz;
4415 PLFLT just;
4416 const char *text;
4417
4418 pl_errcode = 0; errmsg[0] = '\0';
4419
4420 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
4421 Tcl_AppendResult( interp, "command syntax: command should be ",
4422 "\"plptex3 wx wy wz dx dy dz sx sy sz just text\"",
4423 (char *) NULL);
4424 return TCL_ERROR;
4425 }
4426
4427 if ( (!0 && 0 && (argc < (11 + 1 - 0 - 0)) && (!0 || (argc < (11 + 1 - 0)))) ||
4428 (!0 && !0 && (argc != (11 + 1 - 0)) && (!0 || (argc != (11 + 1)))) ||
4429 (0 && (argc != 1) && (argc != (11 + 1 - 0)) && (!0 || (argc != (11 + 1)))) ) {
4430 Tcl_AppendResult( interp, "wrong # args: command should be ",
4431 "\"plptex3 wx wy wz dx dy dz sx sy sz just text\"",
4432 (char *) NULL);
4433 return TCL_ERROR;
4434 }
4435
4436 wx = atof(argv[1+0]);
4437 wy = atof(argv[1+1]);
4438 wz = atof(argv[1+2]);
4439 dx = atof(argv[1+3]);
4440 dy = atof(argv[1+4]);
4441 dz = atof(argv[1+5]);
4442 sx = atof(argv[1+6]);
4443 sy = atof(argv[1+7]);
4444 sz = atof(argv[1+8]);
4445 just = atof(argv[1+9]);
4446 text = argv[1+10];
4447
4448
4449
4450 plptex3 ( wx, wy, wz, dx, dy, dz, sx, sy, sz, just, text );
4451
4452
4453 if (pl_errcode != 0) {
4454 Tcl_AppendResult(interp, errmsg, (char *) NULL);
4455 return TCL_ERROR;
4456 }
4457
4458 plflush();
4459 return TCL_OK;
4460}
4461
4462// The plreplotCmd interface routine which processes the plreplot Tcl command.
4463
4464static int
4465plreplotCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
4466{
4467
4468 pl_errcode = 0; errmsg[0] = '\0';
4469
4470 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
4471 Tcl_AppendResult( interp, "command syntax: command should be ",
4472 "\"plreplot \"",
4473 (char *) NULL);
4474 return TCL_ERROR;
4475 }
4476
4477 if ( (!0 && 0 && (argc < (0 + 1 - 0 - 0)) && (!0 || (argc < (0 + 1 - 0)))) ||
4478 (!0 && !0 && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ||
4479 (0 && (argc != 1) && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ) {
4480 Tcl_AppendResult( interp, "wrong # args: command should be ",
4481 "\"plreplot \"",
4482 (char *) NULL);
4483 return TCL_ERROR;
4484 }
4485
4486
4487
4488
4489 plreplot ( );
4490
4491
4492 if (pl_errcode != 0) {
4493 Tcl_AppendResult(interp, errmsg, (char *) NULL);
4494 return TCL_ERROR;
4495 }
4496
4497 plflush();
4498 return TCL_OK;
4499}
4500
4501// The plrgbhlsCmd interface routine which processes the plrgbhls Tcl command.
4502
4503static int
4504plrgbhlsCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
4505{
4506 PLFLT r;
4507 PLFLT g;
4508 PLFLT b;
4509 PLFLT h;
4510 PLFLT l;
4511 PLFLT s;
4512
4513 pl_errcode = 0; errmsg[0] = '\0';
4514
4515 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
4516 Tcl_AppendResult( interp, "command syntax: command should be ",
4517 "\"plrgbhls ?r g b h l s?\"",
4518 (char *) NULL);
4519 return TCL_ERROR;
4520 }
4521
4522 if ( (!1 && 0 && (argc < (6 + 1 - 0 - 0)) && (!0 || (argc < (6 + 1 - 0)))) ||
4523 (!1 && !0 && (argc != (6 + 1 - 0)) && (!0 || (argc != (6 + 1)))) ||
4524 (1 && (argc != 1) && (argc != (6 + 1 - 0)) && (!0 || (argc != (6 + 1)))) ) {
4525 Tcl_AppendResult( interp, "wrong # args: command should be ",
4526 "\"plrgbhls ?r g b h l s?\"",
4527 (char *) NULL);
4528 return TCL_ERROR;
4529 }
4530
4531 r = atof(argv[1+0]);
4532 g = atof(argv[1+1]);
4533 b = atof(argv[1+2]);
4534/* h is for output. */
4535/* l is for output. */
4536/* s is for output. */
4537
4538
4539
4540 plrgbhls ( r, g, b, &h, &l, &s );
4541
4542 if (argc == 1)
4543 Tcl_AppendResult( interp, " ", (char *) NULL );
4544 Tcl_PrintDouble( interp, h, buf );
4545 if (argc > 1)
4546 Tcl_SetVar( interp, argv[1+3], buf, 0 );
4547 else
4548 Tcl_AppendResult( interp, buf, (char *) NULL );
4549 if (argc == 1)
4550 Tcl_AppendResult( interp, " ", (char *) NULL );
4551 Tcl_PrintDouble( interp, l, buf );
4552 if (argc > 1)
4553 Tcl_SetVar( interp, argv[1+4], buf, 0 );
4554 else
4555 Tcl_AppendResult( interp, buf, (char *) NULL );
4556 if (argc == 1)
4557 Tcl_AppendResult( interp, " ", (char *) NULL );
4558 Tcl_PrintDouble( interp, s, buf );
4559 if (argc > 1)
4560 Tcl_SetVar( interp, argv[1+5], buf, 0 );
4561 else
4562 Tcl_AppendResult( interp, buf, (char *) NULL );
4563
4564 if (pl_errcode != 0) {
4565 Tcl_AppendResult(interp, errmsg, (char *) NULL);
4566 return TCL_ERROR;
4567 }
4568
4569 plflush();
4570 return TCL_OK;
4571}
4572
4573// The plschrCmd interface routine which processes the plschr Tcl command.
4574
4575static int
4576plschrCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
4577{
4578 PLFLT def;
4579 PLFLT scale;
4580
4581 pl_errcode = 0; errmsg[0] = '\0';
4582
4583 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
4584 Tcl_AppendResult( interp, "command syntax: command should be ",
4585 "\"plschr def scale\"",
4586 (char *) NULL);
4587 return TCL_ERROR;
4588 }
4589
4590 if ( (!0 && 0 && (argc < (2 + 1 - 0 - 0)) && (!0 || (argc < (2 + 1 - 0)))) ||
4591 (!0 && !0 && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ||
4592 (0 && (argc != 1) && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ) {
4593 Tcl_AppendResult( interp, "wrong # args: command should be ",
4594 "\"plschr def scale\"",
4595 (char *) NULL);
4596 return TCL_ERROR;
4597 }
4598
4599 def = atof(argv[1+0]);
4600 scale = atof(argv[1+1]);
4601
4602
4603
4604 plschr ( def, scale );
4605
4606
4607 if (pl_errcode != 0) {
4608 Tcl_AppendResult(interp, errmsg, (char *) NULL);
4609 return TCL_ERROR;
4610 }
4611
4612 plflush();
4613 return TCL_OK;
4614}
4615
4616// The plscmap0Cmd interface routine which processes the plscmap0 Tcl command.
4617
4618static int
4619plscmap0Cmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
4620{
4621 PLINT *r;
4622 tclMatrix *matr;
4623 PLINT *g;
4624 tclMatrix *matg;
4625 PLINT *b;
4626 tclMatrix *matb;
4627 PLINT ncol0;
4628
4629 pl_errcode = 0; errmsg[0] = '\0';
4630
4631 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
4632 Tcl_AppendResult( interp, "command syntax: command should be ",
4633 "\"plscmap0 r g b\"",
4634 (char *) NULL);
4635 return TCL_ERROR;
4636 }
4637
4638 if ( (!0 && 0 && (argc < (4 + 1 - 0 - 1)) && (!0 || (argc < (4 + 1 - 0)))) ||
4639 (!0 && !0 && (argc != (4 + 1 - 1)) && (!0 || (argc != (4 + 1)))) ||
4640 (0 && (argc != 1) && (argc != (4 + 1 - 1)) && (!0 || (argc != (4 + 1)))) ) {
4641 Tcl_AppendResult( interp, "wrong # args: command should be ",
4642 "\"plscmap0 r g b\"",
4643 (char *) NULL);
4644 return TCL_ERROR;
4645 }
4646
4647 matr = Tcl_GetMatrixPtr( interp, argv[1+0] );
4648 if (matr == NULL) return TCL_ERROR;
4649 r = matr->idata;
4650 matg = Tcl_GetMatrixPtr( interp, argv[1+1] );
4651 if (matg == NULL) return TCL_ERROR;
4652 g = matg->idata;
4653 matb = Tcl_GetMatrixPtr( interp, argv[1+2] );
4654 if (matb == NULL) return TCL_ERROR;
4655 b = matb->idata;
4656 ncol0 = matr->n[0];
4657
4658 if ( ! (ncol0 <= matr->n[0] && matr->n[0] == matg->n[0] && matr->n[0] == matb->n[0]) ) {
4659 Tcl_AppendResult( interp, "Length of all vectors must be equal", (char *) NULL );
4660 return TCL_ERROR;
4661 }
4662 if ( ! (matr->type == TYPE_INT && matg->type == TYPE_INT && matb->type == TYPE_INT) ) {
4663 Tcl_AppendResult( interp, "All vectors must be of type int", (char *) NULL );
4664 return TCL_ERROR;
4665 }
4666
4667
4668 plscmap0 ( r, g, b, ncol0 );
4669
4670
4671 if (pl_errcode != 0) {
4672 Tcl_AppendResult(interp, errmsg, (char *) NULL);
4673 return TCL_ERROR;
4674 }
4675
4676 plflush();
4677 return TCL_OK;
4678}
4679
4680// The plscmap0aCmd interface routine which processes the plscmap0a Tcl command.
4681
4682static int
4683plscmap0aCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
4684{
4685 PLINT *r;
4686 tclMatrix *matr;
4687 PLINT *g;
4688 tclMatrix *matg;
4689 PLINT *b;
4690 tclMatrix *matb;
4691 PLFLT *a;
4692 tclMatrix *mata;
4693 PLINT ncol0;
4694
4695 pl_errcode = 0; errmsg[0] = '\0';
4696
4697 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
4698 Tcl_AppendResult( interp, "command syntax: command should be ",
4699 "\"plscmap0a r g b a\"",
4700 (char *) NULL);
4701 return TCL_ERROR;
4702 }
4703
4704 if ( (!0 && 0 && (argc < (5 + 1 - 0 - 1)) && (!0 || (argc < (5 + 1 - 0)))) ||
4705 (!0 && !0 && (argc != (5 + 1 - 1)) && (!0 || (argc != (5 + 1)))) ||
4706 (0 && (argc != 1) && (argc != (5 + 1 - 1)) && (!0 || (argc != (5 + 1)))) ) {
4707 Tcl_AppendResult( interp, "wrong # args: command should be ",
4708 "\"plscmap0a r g b a\"",
4709 (char *) NULL);
4710 return TCL_ERROR;
4711 }
4712
4713 matr = Tcl_GetMatrixPtr( interp, argv[1+0] );
4714 if (matr == NULL) return TCL_ERROR;
4715 r = matr->idata;
4716 matg = Tcl_GetMatrixPtr( interp, argv[1+1] );
4717 if (matg == NULL) return TCL_ERROR;
4718 g = matg->idata;
4719 matb = Tcl_GetMatrixPtr( interp, argv[1+2] );
4720 if (matb == NULL) return TCL_ERROR;
4721 b = matb->idata;
4722 mata = Tcl_GetMatrixPtr( interp, argv[1+3] );
4723 if (mata == NULL) return TCL_ERROR;
4724 a = mata->fdata;
4725 ncol0 = matr->n[0];
4726
4727 if ( ! (ncol0 <= matr->n[0] && matr->n[0] == matg->n[0] && matr->n[0] == matb->n[0] && matr->n[0] == mata->n[0]) ) {
4728 Tcl_AppendResult( interp, "Length of all vectors must be equal", (char *) NULL );
4729 return TCL_ERROR;
4730 }
4731 if ( ! (matr->type == TYPE_INT && matg->type == TYPE_INT && matb->type == TYPE_INT) ) {
4732 Tcl_AppendResult( interp, "The RGB vectors must be of type int", (char *) NULL );
4733 return TCL_ERROR;
4734 }
4735 if ( ! (mata->type == TYPE_FLOAT) ) {
4736 Tcl_AppendResult( interp, "The alpha vector must be of type float", (char *) NULL );
4737 return TCL_ERROR;
4738 }
4739
4740
4741 plscmap0a ( r, g, b, a, ncol0 );
4742
4743
4744 if (pl_errcode != 0) {
4745 Tcl_AppendResult(interp, errmsg, (char *) NULL);
4746 return TCL_ERROR;
4747 }
4748
4749 plflush();
4750 return TCL_OK;
4751}
4752
4753// The plscmap0nCmd interface routine which processes the plscmap0n Tcl command.
4754
4755static int
4756plscmap0nCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
4757{
4758 PLINT ncol0;
4759
4760 pl_errcode = 0; errmsg[0] = '\0';
4761
4762 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
4763 Tcl_AppendResult( interp, "command syntax: command should be ",
4764 "\"plscmap0n ncol0\"",
4765 (char *) NULL);
4766 return TCL_ERROR;
4767 }
4768
4769 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
4770 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
4771 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
4772 Tcl_AppendResult( interp, "wrong # args: command should be ",
4773 "\"plscmap0n ncol0\"",
4774 (char *) NULL);
4775 return TCL_ERROR;
4776 }
4777
4778 ncol0 = atoi(argv[1+0]);
4779
4780
4781
4782 plscmap0n ( ncol0 );
4783
4784
4785 if (pl_errcode != 0) {
4786 Tcl_AppendResult(interp, errmsg, (char *) NULL);
4787 return TCL_ERROR;
4788 }
4789
4790 plflush();
4791 return TCL_OK;
4792}
4793
4794// The plscmap1Cmd interface routine which processes the plscmap1 Tcl command.
4795
4796static int
4797plscmap1Cmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
4798{
4799 PLINT *r;
4800 tclMatrix *matr;
4801 PLINT *g;
4802 tclMatrix *matg;
4803 PLINT *b;
4804 tclMatrix *matb;
4805 PLINT ncol1;
4806
4807 pl_errcode = 0; errmsg[0] = '\0';
4808
4809 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
4810 Tcl_AppendResult( interp, "command syntax: command should be ",
4811 "\"plscmap1 r g b\"",
4812 (char *) NULL);
4813 return TCL_ERROR;
4814 }
4815
4816 if ( (!0 && 0 && (argc < (4 + 1 - 0 - 1)) && (!0 || (argc < (4 + 1 - 0)))) ||
4817 (!0 && !0 && (argc != (4 + 1 - 1)) && (!0 || (argc != (4 + 1)))) ||
4818 (0 && (argc != 1) && (argc != (4 + 1 - 1)) && (!0 || (argc != (4 + 1)))) ) {
4819 Tcl_AppendResult( interp, "wrong # args: command should be ",
4820 "\"plscmap1 r g b\"",
4821 (char *) NULL);
4822 return TCL_ERROR;
4823 }
4824
4825 matr = Tcl_GetMatrixPtr( interp, argv[1+0] );
4826 if (matr == NULL) return TCL_ERROR;
4827 r = matr->idata;
4828 matg = Tcl_GetMatrixPtr( interp, argv[1+1] );
4829 if (matg == NULL) return TCL_ERROR;
4830 g = matg->idata;
4831 matb = Tcl_GetMatrixPtr( interp, argv[1+2] );
4832 if (matb == NULL) return TCL_ERROR;
4833 b = matb->idata;
4834 ncol1 = matr->n[0];
4835
4836 if ( ! (ncol1 <= matr->n[0] && matr->n[0] == matg->n[0] && matr->n[0] == matb->n[0]) ) {
4837 Tcl_AppendResult( interp, "Length of all vectors must be equal", (char *) NULL );
4838 return TCL_ERROR;
4839 }
4840 if ( ! (matr->type == TYPE_INT && matg->type == TYPE_INT && matb->type == TYPE_INT) ) {
4841 Tcl_AppendResult( interp, "The RGB vectors must be of type int", (char *) NULL );
4842 return TCL_ERROR;
4843 }
4844
4845
4846 plscmap1 ( r, g, b, ncol1 );
4847
4848
4849 if (pl_errcode != 0) {
4850 Tcl_AppendResult(interp, errmsg, (char *) NULL);
4851 return TCL_ERROR;
4852 }
4853
4854 plflush();
4855 return TCL_OK;
4856}
4857
4858// The plscmap1aCmd interface routine which processes the plscmap1a Tcl command.
4859
4860static int
4861plscmap1aCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
4862{
4863 PLINT *r;
4864 tclMatrix *matr;
4865 PLINT *g;
4866 tclMatrix *matg;
4867 PLINT *b;
4868 tclMatrix *matb;
4869 PLFLT *a;
4870 tclMatrix *mata;
4871 PLINT ncol1;
4872
4873 pl_errcode = 0; errmsg[0] = '\0';
4874
4875 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
4876 Tcl_AppendResult( interp, "command syntax: command should be ",
4877 "\"plscmap1a r g b a\"",
4878 (char *) NULL);
4879 return TCL_ERROR;
4880 }
4881
4882 if ( (!0 && 0 && (argc < (5 + 1 - 0 - 1)) && (!0 || (argc < (5 + 1 - 0)))) ||
4883 (!0 && !0 && (argc != (5 + 1 - 1)) && (!0 || (argc != (5 + 1)))) ||
4884 (0 && (argc != 1) && (argc != (5 + 1 - 1)) && (!0 || (argc != (5 + 1)))) ) {
4885 Tcl_AppendResult( interp, "wrong # args: command should be ",
4886 "\"plscmap1a r g b a\"",
4887 (char *) NULL);
4888 return TCL_ERROR;
4889 }
4890
4891 matr = Tcl_GetMatrixPtr( interp, argv[1+0] );
4892 if (matr == NULL) return TCL_ERROR;
4893 r = matr->idata;
4894 matg = Tcl_GetMatrixPtr( interp, argv[1+1] );
4895 if (matg == NULL) return TCL_ERROR;
4896 g = matg->idata;
4897 matb = Tcl_GetMatrixPtr( interp, argv[1+2] );
4898 if (matb == NULL) return TCL_ERROR;
4899 b = matb->idata;
4900 mata = Tcl_GetMatrixPtr( interp, argv[1+3] );
4901 if (mata == NULL) return TCL_ERROR;
4902 a = mata->fdata;
4903 ncol1 = matr->n[0];
4904
4905 if ( ! (ncol1 <= matr->n[0] && matr->n[0] == matg->n[0] && matr->n[0] == matb->n[0] && matr->n[0] == mata->n[0]) ) {
4906 Tcl_AppendResult( interp, "Length of all vectors must be equal", (char *) NULL );
4907 return TCL_ERROR;
4908 }
4909 if ( ! (matr->type == TYPE_INT && matg->type == TYPE_INT && matb->type == TYPE_INT && mata->type == TYPE_FLOAT) ) {
4910 Tcl_AppendResult( interp, "The RGB vectors must be of type int", (char *) NULL );
4911 return TCL_ERROR;
4912 }
4913
4914
4915 plscmap1a ( r, g, b, a, ncol1 );
4916
4917
4918 if (pl_errcode != 0) {
4919 Tcl_AppendResult(interp, errmsg, (char *) NULL);
4920 return TCL_ERROR;
4921 }
4922
4923 plflush();
4924 return TCL_OK;
4925}
4926
4927// The plscmap1lCmd interface routine which processes the plscmap1l Tcl command.
4928
4929static int
4930plscmap1lCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
4931{
4932 PLINT itype;
4933 PLINT npts;
4934 PLFLT *intensity;
4935 tclMatrix *matintensity;
4936 PLFLT *coord1;
4937 tclMatrix *matcoord1;
4938 PLFLT *coord2;
4939 tclMatrix *matcoord2;
4940 PLFLT *coord3;
4941 tclMatrix *matcoord3;
4942 PLINT *alt_hue_path;
4943 tclMatrix *matalt_hue_path;
4944
4945 pl_errcode = 0; errmsg[0] = '\0';
4946
4947 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
4948 Tcl_AppendResult( interp, "command syntax: command should be ",
4949 "\"plscmap1l itype intensity coord1 coord2 coord3 alt_hue_path\"",
4950 (char *) NULL);
4951 return TCL_ERROR;
4952 }
4953
4954 if ( (!0 && 0 && (argc < (7 + 1 - 0 - 1)) && (!0 || (argc < (7 + 1 - 0)))) ||
4955 (!0 && !0 && (argc != (7 + 1 - 1)) && (!0 || (argc != (7 + 1)))) ||
4956 (0 && (argc != 1) && (argc != (7 + 1 - 1)) && (!0 || (argc != (7 + 1)))) ) {
4957 Tcl_AppendResult( interp, "wrong # args: command should be ",
4958 "\"plscmap1l itype intensity coord1 coord2 coord3 alt_hue_path\"",
4959 (char *) NULL);
4960 return TCL_ERROR;
4961 }
4962
4963 itype = atoi(argv[1+0]);
4964 matintensity = Tcl_GetMatrixPtr( interp, argv[1+1] );
4965 if (matintensity == NULL) return TCL_ERROR;
4966 intensity = matintensity->fdata;
4967 matcoord1 = Tcl_GetMatrixPtr( interp, argv[1+2] );
4968 if (matcoord1 == NULL) return TCL_ERROR;
4969 coord1 = matcoord1->fdata;
4970 matcoord2 = Tcl_GetMatrixPtr( interp, argv[1+3] );
4971 if (matcoord2 == NULL) return TCL_ERROR;
4972 coord2 = matcoord2->fdata;
4973 matcoord3 = Tcl_GetMatrixPtr( interp, argv[1+4] );
4974 if (matcoord3 == NULL) return TCL_ERROR;
4975 coord3 = matcoord3->fdata;
4976 matalt_hue_path = Tcl_GetMatrixPtr( interp, argv[1+5] );
4977 if (matalt_hue_path == NULL) return TCL_ERROR;
4978 alt_hue_path = matalt_hue_path->idata;
4979 npts = matintensity->n[0];
4980
4981 if ( ! (npts <= matintensity->n[0] && matintensity->n[0] == matcoord1->n[0] && matintensity->n[0] == matcoord2->n[0] && matintensity->n[0] == matcoord3->n[0] && matintensity->n[0] == matalt_hue_path->n[0]) ) {
4982 Tcl_AppendResult( interp, "Length of all vectors must be equal", (char *) NULL );
4983 return TCL_ERROR;
4984 }
4985 if ( ! (matintensity->type == TYPE_FLOAT && matcoord1->type == TYPE_FLOAT && matcoord2->type == TYPE_FLOAT && matcoord3->type == TYPE_FLOAT) ) {
4986 Tcl_AppendResult( interp, "The coordinate vectors must be of type float", (char *) NULL );
4987 return TCL_ERROR;
4988 }
4989 if ( ! (matalt_hue_path->type == TYPE_INT) ) {
4990 Tcl_AppendResult( interp, "The alt_hue_path vector must be of type int", (char *) NULL );
4991 return TCL_ERROR;
4992 }
4993
4994
4995 plscmap1l ( itype, npts, intensity, coord1, coord2, coord3, alt_hue_path );
4996
4997
4998 if (pl_errcode != 0) {
4999 Tcl_AppendResult(interp, errmsg, (char *) NULL);
5000 return TCL_ERROR;
5001 }
5002
5003 plflush();
5004 return TCL_OK;
5005}
5006
5007// The plscmap1laCmd interface routine which processes the plscmap1la Tcl command.
5008
5009static int
5010plscmap1laCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5011{
5012 PLINT itype;
5013 PLINT npts;
5014 PLFLT *intensity;
5015 tclMatrix *matintensity;
5016 PLFLT *coord1;
5017 tclMatrix *matcoord1;
5018 PLFLT *coord2;
5019 tclMatrix *matcoord2;
5020 PLFLT *coord3;
5021 tclMatrix *matcoord3;
5022 PLFLT *a;
5023 tclMatrix *mata;
5024 PLINT *alt_hue_path;
5025 tclMatrix *matalt_hue_path;
5026
5027 pl_errcode = 0; errmsg[0] = '\0';
5028
5029 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
5030 Tcl_AppendResult( interp, "command syntax: command should be ",
5031 "\"plscmap1la itype intensity coord1 coord2 coord3 a alt_hue_path\"",
5032 (char *) NULL);
5033 return TCL_ERROR;
5034 }
5035
5036 if ( (!0 && 0 && (argc < (8 + 1 - 0 - 1)) && (!0 || (argc < (8 + 1 - 0)))) ||
5037 (!0 && !0 && (argc != (8 + 1 - 1)) && (!0 || (argc != (8 + 1)))) ||
5038 (0 && (argc != 1) && (argc != (8 + 1 - 1)) && (!0 || (argc != (8 + 1)))) ) {
5039 Tcl_AppendResult( interp, "wrong # args: command should be ",
5040 "\"plscmap1la itype intensity coord1 coord2 coord3 a alt_hue_path\"",
5041 (char *) NULL);
5042 return TCL_ERROR;
5043 }
5044
5045 itype = atoi(argv[1+0]);
5046 matintensity = Tcl_GetMatrixPtr( interp, argv[1+1] );
5047 if (matintensity == NULL) return TCL_ERROR;
5048 intensity = matintensity->fdata;
5049 matcoord1 = Tcl_GetMatrixPtr( interp, argv[1+2] );
5050 if (matcoord1 == NULL) return TCL_ERROR;
5051 coord1 = matcoord1->fdata;
5052 matcoord2 = Tcl_GetMatrixPtr( interp, argv[1+3] );
5053 if (matcoord2 == NULL) return TCL_ERROR;
5054 coord2 = matcoord2->fdata;
5055 matcoord3 = Tcl_GetMatrixPtr( interp, argv[1+4] );
5056 if (matcoord3 == NULL) return TCL_ERROR;
5057 coord3 = matcoord3->fdata;
5058 mata = Tcl_GetMatrixPtr( interp, argv[1+5] );
5059 if (mata == NULL) return TCL_ERROR;
5060 a = mata->fdata;
5061 matalt_hue_path = Tcl_GetMatrixPtr( interp, argv[1+6] );
5062 if (matalt_hue_path == NULL) return TCL_ERROR;
5063 alt_hue_path = matalt_hue_path->idata;
5064 npts = matintensity->n[0];
5065
5066 if ( ! (npts <= matintensity->n[0] && matintensity->n[0] == matcoord1->n[0] && matintensity->n[0] == matcoord2->n[0] && matintensity->n[0] == matcoord3->n[0] && matintensity->n[0] == matalt_hue_path->n[0] && matintensity->n[0] == mata->n[0]) ) {
5067 Tcl_AppendResult( interp, "Length of all vectors must be equal", (char *) NULL );
5068 return TCL_ERROR;
5069 }
5070 if ( ! (matintensity->type == TYPE_FLOAT && matcoord1->type == TYPE_FLOAT && matcoord2->type == TYPE_FLOAT && matcoord3->type == TYPE_FLOAT && mata->type == TYPE_FLOAT) ) {
5071 Tcl_AppendResult( interp, "The coordinate vectors must be of type float", (char *) NULL );
5072 return TCL_ERROR;
5073 }
5074 if ( ! (matalt_hue_path->type == TYPE_INT) ) {
5075 Tcl_AppendResult( interp, "The alt_hue_path vector must be of type int", (char *) NULL );
5076 return TCL_ERROR;
5077 }
5078
5079
5080 plscmap1la ( itype, npts, intensity, coord1, coord2, coord3, a, alt_hue_path );
5081
5082
5083 if (pl_errcode != 0) {
5084 Tcl_AppendResult(interp, errmsg, (char *) NULL);
5085 return TCL_ERROR;
5086 }
5087
5088 plflush();
5089 return TCL_OK;
5090}
5091
5092// The plscmap1nCmd interface routine which processes the plscmap1n Tcl command.
5093
5094static int
5095plscmap1nCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5096{
5097 PLINT ncol1;
5098
5099 pl_errcode = 0; errmsg[0] = '\0';
5100
5101 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
5102 Tcl_AppendResult( interp, "command syntax: command should be ",
5103 "\"plscmap1n ncol1\"",
5104 (char *) NULL);
5105 return TCL_ERROR;
5106 }
5107
5108 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
5109 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
5110 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
5111 Tcl_AppendResult( interp, "wrong # args: command should be ",
5112 "\"plscmap1n ncol1\"",
5113 (char *) NULL);
5114 return TCL_ERROR;
5115 }
5116
5117 ncol1 = atoi(argv[1+0]);
5118
5119
5120
5121 plscmap1n ( ncol1 );
5122
5123
5124 if (pl_errcode != 0) {
5125 Tcl_AppendResult(interp, errmsg, (char *) NULL);
5126 return TCL_ERROR;
5127 }
5128
5129 plflush();
5130 return TCL_OK;
5131}
5132
5133// The plscmap1_rangeCmd interface routine which processes the plscmap1_range Tcl command.
5134
5135static int
5136plscmap1_rangeCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5137{
5138 PLFLT min_color;
5139 PLFLT max_color;
5140
5141 pl_errcode = 0; errmsg[0] = '\0';
5142
5143 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
5144 Tcl_AppendResult( interp, "command syntax: command should be ",
5145 "\"plscmap1_range min_color max_color\"",
5146 (char *) NULL);
5147 return TCL_ERROR;
5148 }
5149
5150 if ( (!0 && 0 && (argc < (2 + 1 - 0 - 0)) && (!0 || (argc < (2 + 1 - 0)))) ||
5151 (!0 && !0 && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ||
5152 (0 && (argc != 1) && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ) {
5153 Tcl_AppendResult( interp, "wrong # args: command should be ",
5154 "\"plscmap1_range min_color max_color\"",
5155 (char *) NULL);
5156 return TCL_ERROR;
5157 }
5158
5159 min_color = atof(argv[1+0]);
5160 max_color = atof(argv[1+1]);
5161
5162
5163
5164 plscmap1_range ( min_color, max_color );
5165
5166
5167 if (pl_errcode != 0) {
5168 Tcl_AppendResult(interp, errmsg, (char *) NULL);
5169 return TCL_ERROR;
5170 }
5171
5172 plflush();
5173 return TCL_OK;
5174}
5175
5176// The plscol0Cmd interface routine which processes the plscol0 Tcl command.
5177
5178static int
5179plscol0Cmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5180{
5181 PLINT icol0;
5182 PLINT r;
5183 PLINT g;
5184 PLINT b;
5185
5186 pl_errcode = 0; errmsg[0] = '\0';
5187
5188 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
5189 Tcl_AppendResult( interp, "command syntax: command should be ",
5190 "\"plscol0 icol0 r g b\"",
5191 (char *) NULL);
5192 return TCL_ERROR;
5193 }
5194
5195 if ( (!0 && 0 && (argc < (4 + 1 - 0 - 0)) && (!0 || (argc < (4 + 1 - 0)))) ||
5196 (!0 && !0 && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ||
5197 (0 && (argc != 1) && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ) {
5198 Tcl_AppendResult( interp, "wrong # args: command should be ",
5199 "\"plscol0 icol0 r g b\"",
5200 (char *) NULL);
5201 return TCL_ERROR;
5202 }
5203
5204 icol0 = atoi(argv[1+0]);
5205 r = atoi(argv[1+1]);
5206 g = atoi(argv[1+2]);
5207 b = atoi(argv[1+3]);
5208
5209
5210
5211 plscol0 ( icol0, r, g, b );
5212
5213
5214 if (pl_errcode != 0) {
5215 Tcl_AppendResult(interp, errmsg, (char *) NULL);
5216 return TCL_ERROR;
5217 }
5218
5219 plflush();
5220 return TCL_OK;
5221}
5222
5223// The plscol0aCmd interface routine which processes the plscol0a Tcl command.
5224
5225static int
5226plscol0aCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5227{
5228 PLINT icol0;
5229 PLINT r;
5230 PLINT g;
5231 PLINT b;
5232 PLFLT a;
5233
5234 pl_errcode = 0; errmsg[0] = '\0';
5235
5236 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
5237 Tcl_AppendResult( interp, "command syntax: command should be ",
5238 "\"plscol0a icol0 r g b a\"",
5239 (char *) NULL);
5240 return TCL_ERROR;
5241 }
5242
5243 if ( (!0 && 0 && (argc < (5 + 1 - 0 - 0)) && (!0 || (argc < (5 + 1 - 0)))) ||
5244 (!0 && !0 && (argc != (5 + 1 - 0)) && (!0 || (argc != (5 + 1)))) ||
5245 (0 && (argc != 1) && (argc != (5 + 1 - 0)) && (!0 || (argc != (5 + 1)))) ) {
5246 Tcl_AppendResult( interp, "wrong # args: command should be ",
5247 "\"plscol0a icol0 r g b a\"",
5248 (char *) NULL);
5249 return TCL_ERROR;
5250 }
5251
5252 icol0 = atoi(argv[1+0]);
5253 r = atoi(argv[1+1]);
5254 g = atoi(argv[1+2]);
5255 b = atoi(argv[1+3]);
5256 a = atof(argv[1+4]);
5257
5258
5259
5260 plscol0a ( icol0, r, g, b, a );
5261
5262
5263 if (pl_errcode != 0) {
5264 Tcl_AppendResult(interp, errmsg, (char *) NULL);
5265 return TCL_ERROR;
5266 }
5267
5268 plflush();
5269 return TCL_OK;
5270}
5271
5272// The plscolbgCmd interface routine which processes the plscolbg Tcl command.
5273
5274static int
5275plscolbgCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5276{
5277 PLINT r;
5278 PLINT g;
5279 PLINT b;
5280
5281 pl_errcode = 0; errmsg[0] = '\0';
5282
5283 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
5284 Tcl_AppendResult( interp, "command syntax: command should be ",
5285 "\"plscolbg r g b\"",
5286 (char *) NULL);
5287 return TCL_ERROR;
5288 }
5289
5290 if ( (!0 && 0 && (argc < (3 + 1 - 0 - 0)) && (!0 || (argc < (3 + 1 - 0)))) ||
5291 (!0 && !0 && (argc != (3 + 1 - 0)) && (!0 || (argc != (3 + 1)))) ||
5292 (0 && (argc != 1) && (argc != (3 + 1 - 0)) && (!0 || (argc != (3 + 1)))) ) {
5293 Tcl_AppendResult( interp, "wrong # args: command should be ",
5294 "\"plscolbg r g b\"",
5295 (char *) NULL);
5296 return TCL_ERROR;
5297 }
5298
5299 r = atoi(argv[1+0]);
5300 g = atoi(argv[1+1]);
5301 b = atoi(argv[1+2]);
5302
5303
5304
5305 plscolbg ( r, g, b );
5306
5307
5308 if (pl_errcode != 0) {
5309 Tcl_AppendResult(interp, errmsg, (char *) NULL);
5310 return TCL_ERROR;
5311 }
5312
5313 plflush();
5314 return TCL_OK;
5315}
5316
5317// The plscolbgaCmd interface routine which processes the plscolbga Tcl command.
5318
5319static int
5320plscolbgaCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5321{
5322 PLINT r;
5323 PLINT g;
5324 PLINT b;
5325 PLFLT a;
5326
5327 pl_errcode = 0; errmsg[0] = '\0';
5328
5329 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
5330 Tcl_AppendResult( interp, "command syntax: command should be ",
5331 "\"plscolbga r g b a\"",
5332 (char *) NULL);
5333 return TCL_ERROR;
5334 }
5335
5336 if ( (!0 && 0 && (argc < (4 + 1 - 0 - 0)) && (!0 || (argc < (4 + 1 - 0)))) ||
5337 (!0 && !0 && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ||
5338 (0 && (argc != 1) && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ) {
5339 Tcl_AppendResult( interp, "wrong # args: command should be ",
5340 "\"plscolbga r g b a\"",
5341 (char *) NULL);
5342 return TCL_ERROR;
5343 }
5344
5345 r = atoi(argv[1+0]);
5346 g = atoi(argv[1+1]);
5347 b = atoi(argv[1+2]);
5348 a = atof(argv[1+3]);
5349
5350
5351
5352 plscolbga ( r, g, b, a );
5353
5354
5355 if (pl_errcode != 0) {
5356 Tcl_AppendResult(interp, errmsg, (char *) NULL);
5357 return TCL_ERROR;
5358 }
5359
5360 plflush();
5361 return TCL_OK;
5362}
5363
5364// The plscolorCmd interface routine which processes the plscolor Tcl command.
5365
5366static int
5367plscolorCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5368{
5369 PLINT color;
5370
5371 pl_errcode = 0; errmsg[0] = '\0';
5372
5373 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
5374 Tcl_AppendResult( interp, "command syntax: command should be ",
5375 "\"plscolor color\"",
5376 (char *) NULL);
5377 return TCL_ERROR;
5378 }
5379
5380 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
5381 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
5382 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
5383 Tcl_AppendResult( interp, "wrong # args: command should be ",
5384 "\"plscolor color\"",
5385 (char *) NULL);
5386 return TCL_ERROR;
5387 }
5388
5389 color = atoi(argv[1+0]);
5390
5391
5392
5393 plscolor ( color );
5394
5395
5396 if (pl_errcode != 0) {
5397 Tcl_AppendResult(interp, errmsg, (char *) NULL);
5398 return TCL_ERROR;
5399 }
5400
5401 plflush();
5402 return TCL_OK;
5403}
5404
5405// The plscompressionCmd interface routine which processes the plscompression Tcl command.
5406
5407static int
5408plscompressionCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5409{
5410 PLINT compression;
5411
5412 pl_errcode = 0; errmsg[0] = '\0';
5413
5414 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
5415 Tcl_AppendResult( interp, "command syntax: command should be ",
5416 "\"plscompression compression\"",
5417 (char *) NULL);
5418 return TCL_ERROR;
5419 }
5420
5421 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
5422 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
5423 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
5424 Tcl_AppendResult( interp, "wrong # args: command should be ",
5425 "\"plscompression compression\"",
5426 (char *) NULL);
5427 return TCL_ERROR;
5428 }
5429
5430 compression = atoi(argv[1+0]);
5431
5432
5433
5434 plscompression ( compression );
5435
5436
5437 if (pl_errcode != 0) {
5438 Tcl_AppendResult(interp, errmsg, (char *) NULL);
5439 return TCL_ERROR;
5440 }
5441
5442 plflush();
5443 return TCL_OK;
5444}
5445
5446// The plsdevCmd interface routine which processes the plsdev Tcl command.
5447
5448static int
5449plsdevCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5450{
5451 const char *devnam;
5452
5453 pl_errcode = 0; errmsg[0] = '\0';
5454
5455 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
5456 Tcl_AppendResult( interp, "command syntax: command should be ",
5457 "\"plsdev devnam\"",
5458 (char *) NULL);
5459 return TCL_ERROR;
5460 }
5461
5462 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
5463 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
5464 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
5465 Tcl_AppendResult( interp, "wrong # args: command should be ",
5466 "\"plsdev devnam\"",
5467 (char *) NULL);
5468 return TCL_ERROR;
5469 }
5470
5471 devnam = argv[1+0];
5472
5473
5474
5475 plsdev ( devnam );
5476
5477
5478 if (pl_errcode != 0) {
5479 Tcl_AppendResult(interp, errmsg, (char *) NULL);
5480 return TCL_ERROR;
5481 }
5482
5483 plflush();
5484 return TCL_OK;
5485}
5486
5487// The plsdidevCmd interface routine which processes the plsdidev Tcl command.
5488
5489static int
5490plsdidevCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5491{
5492 PLFLT mar;
5493 PLFLT aspect;
5494 PLFLT jx;
5495 PLFLT jy;
5496
5497 pl_errcode = 0; errmsg[0] = '\0';
5498
5499 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
5500 Tcl_AppendResult( interp, "command syntax: command should be ",
5501 "\"plsdidev mar aspect jx jy\"",
5502 (char *) NULL);
5503 return TCL_ERROR;
5504 }
5505
5506 if ( (!0 && 0 && (argc < (4 + 1 - 0 - 0)) && (!0 || (argc < (4 + 1 - 0)))) ||
5507 (!0 && !0 && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ||
5508 (0 && (argc != 1) && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ) {
5509 Tcl_AppendResult( interp, "wrong # args: command should be ",
5510 "\"plsdidev mar aspect jx jy\"",
5511 (char *) NULL);
5512 return TCL_ERROR;
5513 }
5514
5515 mar = atof(argv[1+0]);
5516 aspect = atof(argv[1+1]);
5517 jx = atof(argv[1+2]);
5518 jy = atof(argv[1+3]);
5519
5520
5521
5522 plsdidev ( mar, aspect, jx, jy );
5523
5524
5525 if (pl_errcode != 0) {
5526 Tcl_AppendResult(interp, errmsg, (char *) NULL);
5527 return TCL_ERROR;
5528 }
5529
5530 plflush();
5531 return TCL_OK;
5532}
5533
5534// The plsdimapCmd interface routine which processes the plsdimap Tcl command.
5535
5536static int
5537plsdimapCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5538{
5539 PLINT dimxmin;
5540 PLINT dimxmax;
5541 PLINT dimymin;
5542 PLINT dimymax;
5543 PLFLT dimxpmm;
5544 PLFLT dimypmm;
5545
5546 pl_errcode = 0; errmsg[0] = '\0';
5547
5548 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
5549 Tcl_AppendResult( interp, "command syntax: command should be ",
5550 "\"plsdimap dimxmin dimxmax dimymin dimymax dimxpmm dimypmm\"",
5551 (char *) NULL);
5552 return TCL_ERROR;
5553 }
5554
5555 if ( (!0 && 0 && (argc < (6 + 1 - 0 - 0)) && (!0 || (argc < (6 + 1 - 0)))) ||
5556 (!0 && !0 && (argc != (6 + 1 - 0)) && (!0 || (argc != (6 + 1)))) ||
5557 (0 && (argc != 1) && (argc != (6 + 1 - 0)) && (!0 || (argc != (6 + 1)))) ) {
5558 Tcl_AppendResult( interp, "wrong # args: command should be ",
5559 "\"plsdimap dimxmin dimxmax dimymin dimymax dimxpmm dimypmm\"",
5560 (char *) NULL);
5561 return TCL_ERROR;
5562 }
5563
5564 dimxmin = atoi(argv[1+0]);
5565 dimxmax = atoi(argv[1+1]);
5566 dimymin = atoi(argv[1+2]);
5567 dimymax = atoi(argv[1+3]);
5568 dimxpmm = atof(argv[1+4]);
5569 dimypmm = atof(argv[1+5]);
5570
5571
5572
5573 plsdimap ( dimxmin, dimxmax, dimymin, dimymax, dimxpmm, dimypmm );
5574
5575
5576 if (pl_errcode != 0) {
5577 Tcl_AppendResult(interp, errmsg, (char *) NULL);
5578 return TCL_ERROR;
5579 }
5580
5581 plflush();
5582 return TCL_OK;
5583}
5584
5585// The plsdioriCmd interface routine which processes the plsdiori Tcl command.
5586
5587static int
5588plsdioriCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5589{
5590 PLFLT rot;
5591
5592 pl_errcode = 0; errmsg[0] = '\0';
5593
5594 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
5595 Tcl_AppendResult( interp, "command syntax: command should be ",
5596 "\"plsdiori rot\"",
5597 (char *) NULL);
5598 return TCL_ERROR;
5599 }
5600
5601 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
5602 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
5603 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
5604 Tcl_AppendResult( interp, "wrong # args: command should be ",
5605 "\"plsdiori rot\"",
5606 (char *) NULL);
5607 return TCL_ERROR;
5608 }
5609
5610 rot = atof(argv[1+0]);
5611
5612
5613
5614 plsdiori ( rot );
5615
5616
5617 if (pl_errcode != 0) {
5618 Tcl_AppendResult(interp, errmsg, (char *) NULL);
5619 return TCL_ERROR;
5620 }
5621
5622 plflush();
5623 return TCL_OK;
5624}
5625
5626// The plsdipltCmd interface routine which processes the plsdiplt Tcl command.
5627
5628static int
5629plsdipltCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5630{
5631 PLFLT xmin;
5632 PLFLT ymin;
5633 PLFLT xmax;
5634 PLFLT ymax;
5635
5636 pl_errcode = 0; errmsg[0] = '\0';
5637
5638 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
5639 Tcl_AppendResult( interp, "command syntax: command should be ",
5640 "\"plsdiplt xmin ymin xmax ymax\"",
5641 (char *) NULL);
5642 return TCL_ERROR;
5643 }
5644
5645 if ( (!0 && 0 && (argc < (4 + 1 - 0 - 0)) && (!0 || (argc < (4 + 1 - 0)))) ||
5646 (!0 && !0 && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ||
5647 (0 && (argc != 1) && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ) {
5648 Tcl_AppendResult( interp, "wrong # args: command should be ",
5649 "\"plsdiplt xmin ymin xmax ymax\"",
5650 (char *) NULL);
5651 return TCL_ERROR;
5652 }
5653
5654 xmin = atof(argv[1+0]);
5655 ymin = atof(argv[1+1]);
5656 xmax = atof(argv[1+2]);
5657 ymax = atof(argv[1+3]);
5658
5659
5660
5661 plsdiplt ( xmin, ymin, xmax, ymax );
5662
5663
5664 if (pl_errcode != 0) {
5665 Tcl_AppendResult(interp, errmsg, (char *) NULL);
5666 return TCL_ERROR;
5667 }
5668
5669 plflush();
5670 return TCL_OK;
5671}
5672
5673// The plsdiplzCmd interface routine which processes the plsdiplz Tcl command.
5674
5675static int
5676plsdiplzCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5677{
5678 PLFLT xmin;
5679 PLFLT ymin;
5680 PLFLT xmax;
5681 PLFLT ymax;
5682
5683 pl_errcode = 0; errmsg[0] = '\0';
5684
5685 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
5686 Tcl_AppendResult( interp, "command syntax: command should be ",
5687 "\"plsdiplz xmin ymin xmax ymax\"",
5688 (char *) NULL);
5689 return TCL_ERROR;
5690 }
5691
5692 if ( (!0 && 0 && (argc < (4 + 1 - 0 - 0)) && (!0 || (argc < (4 + 1 - 0)))) ||
5693 (!0 && !0 && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ||
5694 (0 && (argc != 1) && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ) {
5695 Tcl_AppendResult( interp, "wrong # args: command should be ",
5696 "\"plsdiplz xmin ymin xmax ymax\"",
5697 (char *) NULL);
5698 return TCL_ERROR;
5699 }
5700
5701 xmin = atof(argv[1+0]);
5702 ymin = atof(argv[1+1]);
5703 xmax = atof(argv[1+2]);
5704 ymax = atof(argv[1+3]);
5705
5706
5707
5708 plsdiplz ( xmin, ymin, xmax, ymax );
5709
5710
5711 if (pl_errcode != 0) {
5712 Tcl_AppendResult(interp, errmsg, (char *) NULL);
5713 return TCL_ERROR;
5714 }
5715
5716 plflush();
5717 return TCL_OK;
5718}
5719
5720// The plseedCmd interface routine which processes the plseed Tcl command.
5721
5722static int
5723plseedCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5724{
5725 unsigned int s;
5726
5727 pl_errcode = 0; errmsg[0] = '\0';
5728
5729 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
5730 Tcl_AppendResult( interp, "command syntax: command should be ",
5731 "\"plseed s\"",
5732 (char *) NULL);
5733 return TCL_ERROR;
5734 }
5735
5736 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
5737 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
5738 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
5739 Tcl_AppendResult( interp, "wrong # args: command should be ",
5740 "\"plseed s\"",
5741 (char *) NULL);
5742 return TCL_ERROR;
5743 }
5744
5745 s = (unsigned int) strtoul(argv[1+0],NULL,10);
5746
5747
5748
5749 plseed ( s );
5750
5751
5752 if (pl_errcode != 0) {
5753 Tcl_AppendResult(interp, errmsg, (char *) NULL);
5754 return TCL_ERROR;
5755 }
5756
5757 plflush();
5758 return TCL_OK;
5759}
5760
5761// The plsescCmd interface routine which processes the plsesc Tcl command.
5762
5763static int
5764plsescCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5765{
5766 char esc;
5767
5768 pl_errcode = 0; errmsg[0] = '\0';
5769
5770 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
5771 Tcl_AppendResult( interp, "command syntax: command should be ",
5772 "\"plsesc esc\"",
5773 (char *) NULL);
5774 return TCL_ERROR;
5775 }
5776
5777 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
5778 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
5779 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
5780 Tcl_AppendResult( interp, "wrong # args: command should be ",
5781 "\"plsesc esc\"",
5782 (char *) NULL);
5783 return TCL_ERROR;
5784 }
5785
5786 esc = argv[1+0][0];
5787
5788
5789
5790 plsesc ( esc );
5791
5792
5793 if (pl_errcode != 0) {
5794 Tcl_AppendResult(interp, errmsg, (char *) NULL);
5795 return TCL_ERROR;
5796 }
5797
5798 plflush();
5799 return TCL_OK;
5800}
5801
5802// The plsfamCmd interface routine which processes the plsfam Tcl command.
5803
5804static int
5805plsfamCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5806{
5807 PLINT fam;
5808 PLINT num;
5809 PLINT bmax;
5810
5811 pl_errcode = 0; errmsg[0] = '\0';
5812
5813 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
5814 Tcl_AppendResult( interp, "command syntax: command should be ",
5815 "\"plsfam fam num bmax\"",
5816 (char *) NULL);
5817 return TCL_ERROR;
5818 }
5819
5820 if ( (!0 && 0 && (argc < (3 + 1 - 0 - 0)) && (!0 || (argc < (3 + 1 - 0)))) ||
5821 (!0 && !0 && (argc != (3 + 1 - 0)) && (!0 || (argc != (3 + 1)))) ||
5822 (0 && (argc != 1) && (argc != (3 + 1 - 0)) && (!0 || (argc != (3 + 1)))) ) {
5823 Tcl_AppendResult( interp, "wrong # args: command should be ",
5824 "\"plsfam fam num bmax\"",
5825 (char *) NULL);
5826 return TCL_ERROR;
5827 }
5828
5829 fam = atoi(argv[1+0]);
5830 num = atoi(argv[1+1]);
5831 bmax = atoi(argv[1+2]);
5832
5833
5834
5835 plsfam ( fam, num, bmax );
5836
5837
5838 if (pl_errcode != 0) {
5839 Tcl_AppendResult(interp, errmsg, (char *) NULL);
5840 return TCL_ERROR;
5841 }
5842
5843 plflush();
5844 return TCL_OK;
5845}
5846
5847// The plsfciCmd interface routine which processes the plsfci Tcl command.
5848
5849static int
5850plsfciCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5851{
5852 PLUNICODE fci;
5853
5854 pl_errcode = 0; errmsg[0] = '\0';
5855
5856 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
5857 Tcl_AppendResult( interp, "command syntax: command should be ",
5858 "\"plsfci fci\"",
5859 (char *) NULL);
5860 return TCL_ERROR;
5861 }
5862
5863 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
5864 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
5865 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
5866 Tcl_AppendResult( interp, "wrong # args: command should be ",
5867 "\"plsfci fci\"",
5868 (char *) NULL);
5869 return TCL_ERROR;
5870 }
5871
5872 fci = (PLUNICODE) strtoul(argv[1+0],NULL,10);
5873
5874
5875
5876 plsfci ( fci );
5877
5878
5879 if (pl_errcode != 0) {
5880 Tcl_AppendResult(interp, errmsg, (char *) NULL);
5881 return TCL_ERROR;
5882 }
5883
5884 plflush();
5885 return TCL_OK;
5886}
5887
5888// The plsfnamCmd interface routine which processes the plsfnam Tcl command.
5889
5890static int
5891plsfnamCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5892{
5893 const char *fnam;
5894
5895 pl_errcode = 0; errmsg[0] = '\0';
5896
5897 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
5898 Tcl_AppendResult( interp, "command syntax: command should be ",
5899 "\"plsfnam fnam\"",
5900 (char *) NULL);
5901 return TCL_ERROR;
5902 }
5903
5904 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
5905 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
5906 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
5907 Tcl_AppendResult( interp, "wrong # args: command should be ",
5908 "\"plsfnam fnam\"",
5909 (char *) NULL);
5910 return TCL_ERROR;
5911 }
5912
5913 fnam = argv[1+0];
5914
5915
5916
5917 plsfnam ( fnam );
5918
5919
5920 if (pl_errcode != 0) {
5921 Tcl_AppendResult(interp, errmsg, (char *) NULL);
5922 return TCL_ERROR;
5923 }
5924
5925 plflush();
5926 return TCL_OK;
5927}
5928
5929// The plsfontCmd interface routine which processes the plsfont Tcl command.
5930
5931static int
5932plsfontCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5933{
5934 PLINT family;
5935 PLINT style;
5936 PLINT weight;
5937
5938 pl_errcode = 0; errmsg[0] = '\0';
5939
5940 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
5941 Tcl_AppendResult( interp, "command syntax: command should be ",
5942 "\"plsfont family style weight\"",
5943 (char *) NULL);
5944 return TCL_ERROR;
5945 }
5946
5947 if ( (!0 && 0 && (argc < (3 + 1 - 0 - 0)) && (!0 || (argc < (3 + 1 - 0)))) ||
5948 (!0 && !0 && (argc != (3 + 1 - 0)) && (!0 || (argc != (3 + 1)))) ||
5949 (0 && (argc != 1) && (argc != (3 + 1 - 0)) && (!0 || (argc != (3 + 1)))) ) {
5950 Tcl_AppendResult( interp, "wrong # args: command should be ",
5951 "\"plsfont family style weight\"",
5952 (char *) NULL);
5953 return TCL_ERROR;
5954 }
5955
5956 family = atoi(argv[1+0]);
5957 style = atoi(argv[1+1]);
5958 weight = atoi(argv[1+2]);
5959
5960
5961
5962 plsfont ( family, style, weight );
5963
5964
5965 if (pl_errcode != 0) {
5966 Tcl_AppendResult(interp, errmsg, (char *) NULL);
5967 return TCL_ERROR;
5968 }
5969
5970 plflush();
5971 return TCL_OK;
5972}
5973
5974// The plsmajCmd interface routine which processes the plsmaj Tcl command.
5975
5976static int
5977plsmajCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5978{
5979 PLFLT def;
5980 PLFLT scale;
5981
5982 pl_errcode = 0; errmsg[0] = '\0';
5983
5984 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
5985 Tcl_AppendResult( interp, "command syntax: command should be ",
5986 "\"plsmaj def scale\"",
5987 (char *) NULL);
5988 return TCL_ERROR;
5989 }
5990
5991 if ( (!0 && 0 && (argc < (2 + 1 - 0 - 0)) && (!0 || (argc < (2 + 1 - 0)))) ||
5992 (!0 && !0 && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ||
5993 (0 && (argc != 1) && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ) {
5994 Tcl_AppendResult( interp, "wrong # args: command should be ",
5995 "\"plsmaj def scale\"",
5996 (char *) NULL);
5997 return TCL_ERROR;
5998 }
5999
6000 def = atof(argv[1+0]);
6001 scale = atof(argv[1+1]);
6002
6003
6004
6005 plsmaj ( def, scale );
6006
6007
6008 if (pl_errcode != 0) {
6009 Tcl_AppendResult(interp, errmsg, (char *) NULL);
6010 return TCL_ERROR;
6011 }
6012
6013 plflush();
6014 return TCL_OK;
6015}
6016
6017// The plsminCmd interface routine which processes the plsmin Tcl command.
6018
6019static int
6020plsminCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
6021{
6022 PLFLT def;
6023 PLFLT scale;
6024
6025 pl_errcode = 0; errmsg[0] = '\0';
6026
6027 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
6028 Tcl_AppendResult( interp, "command syntax: command should be ",
6029 "\"plsmin def scale\"",
6030 (char *) NULL);
6031 return TCL_ERROR;
6032 }
6033
6034 if ( (!0 && 0 && (argc < (2 + 1 - 0 - 0)) && (!0 || (argc < (2 + 1 - 0)))) ||
6035 (!0 && !0 && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ||
6036 (0 && (argc != 1) && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ) {
6037 Tcl_AppendResult( interp, "wrong # args: command should be ",
6038 "\"plsmin def scale\"",
6039 (char *) NULL);
6040 return TCL_ERROR;
6041 }
6042
6043 def = atof(argv[1+0]);
6044 scale = atof(argv[1+1]);
6045
6046
6047
6048 plsmin ( def, scale );
6049
6050
6051 if (pl_errcode != 0) {
6052 Tcl_AppendResult(interp, errmsg, (char *) NULL);
6053 return TCL_ERROR;
6054 }
6055
6056 plflush();
6057 return TCL_OK;
6058}
6059
6060// The plsoriCmd interface routine which processes the plsori Tcl command.
6061
6062static int
6063plsoriCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
6064{
6065 PLINT ori;
6066
6067 pl_errcode = 0; errmsg[0] = '\0';
6068
6069 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
6070 Tcl_AppendResult( interp, "command syntax: command should be ",
6071 "\"plsori ori\"",
6072 (char *) NULL);
6073 return TCL_ERROR;
6074 }
6075
6076 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
6077 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
6078 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
6079 Tcl_AppendResult( interp, "wrong # args: command should be ",
6080 "\"plsori ori\"",
6081 (char *) NULL);
6082 return TCL_ERROR;
6083 }
6084
6085 ori = atoi(argv[1+0]);
6086
6087
6088
6089 plsori ( ori );
6090
6091
6092 if (pl_errcode != 0) {
6093 Tcl_AppendResult(interp, errmsg, (char *) NULL);
6094 return TCL_ERROR;
6095 }
6096
6097 plflush();
6098 return TCL_OK;
6099}
6100
6101// The plspageCmd interface routine which processes the plspage Tcl command.
6102
6103static int
6104plspageCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
6105{
6106 PLFLT xp;
6107 PLFLT yp;
6108 PLINT xleng;
6109 PLINT yleng;
6110 PLINT xoff;
6111 PLINT yoff;
6112
6113 pl_errcode = 0; errmsg[0] = '\0';
6114
6115 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
6116 Tcl_AppendResult( interp, "command syntax: command should be ",
6117 "\"plspage xp yp xleng yleng xoff yoff\"",
6118 (char *) NULL);
6119 return TCL_ERROR;
6120 }
6121
6122 if ( (!0 && 0 && (argc < (6 + 1 - 0 - 0)) && (!0 || (argc < (6 + 1 - 0)))) ||
6123 (!0 && !0 && (argc != (6 + 1 - 0)) && (!0 || (argc != (6 + 1)))) ||
6124 (0 && (argc != 1) && (argc != (6 + 1 - 0)) && (!0 || (argc != (6 + 1)))) ) {
6125 Tcl_AppendResult( interp, "wrong # args: command should be ",
6126 "\"plspage xp yp xleng yleng xoff yoff\"",
6127 (char *) NULL);
6128 return TCL_ERROR;
6129 }
6130
6131 xp = atof(argv[1+0]);
6132 yp = atof(argv[1+1]);
6133 xleng = atoi(argv[1+2]);
6134 yleng = atoi(argv[1+3]);
6135 xoff = atoi(argv[1+4]);
6136 yoff = atoi(argv[1+5]);
6137
6138
6139
6140 plspage ( xp, yp, xleng, yleng, xoff, yoff );
6141
6142
6143 if (pl_errcode != 0) {
6144 Tcl_AppendResult(interp, errmsg, (char *) NULL);
6145 return TCL_ERROR;
6146 }
6147
6148 plflush();
6149 return TCL_OK;
6150}
6151
6152// The plspal0Cmd interface routine which processes the plspal0 Tcl command.
6153
6154static int
6155plspal0Cmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
6156{
6157 const char *filename;
6158
6159 pl_errcode = 0; errmsg[0] = '\0';
6160
6161 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
6162 Tcl_AppendResult( interp, "command syntax: command should be ",
6163 "\"plspal0 filename\"",
6164 (char *) NULL);
6165 return TCL_ERROR;
6166 }
6167
6168 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
6169 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
6170 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
6171 Tcl_AppendResult( interp, "wrong # args: command should be ",
6172 "\"plspal0 filename\"",
6173 (char *) NULL);
6174 return TCL_ERROR;
6175 }
6176
6177 filename = argv[1+0];
6178
6179
6180
6181 plspal0 ( filename );
6182
6183
6184 if (pl_errcode != 0) {
6185 Tcl_AppendResult(interp, errmsg, (char *) NULL);
6186 return TCL_ERROR;
6187 }
6188
6189 plflush();
6190 return TCL_OK;
6191}
6192
6193// The plspal1Cmd interface routine which processes the plspal1 Tcl command.
6194
6195static int
6196plspal1Cmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
6197{
6198 const char *filename;
6199 PLINT interpolate;
6200
6201 pl_errcode = 0; errmsg[0] = '\0';
6202
6203 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
6204 Tcl_AppendResult( interp, "command syntax: command should be ",
6205 "\"plspal1 filename interpolate\"",
6206 (char *) NULL);
6207 return TCL_ERROR;
6208 }
6209
6210 if ( (!0 && 0 && (argc < (2 + 1 - 0 - 0)) && (!0 || (argc < (2 + 1 - 0)))) ||
6211 (!0 && !0 && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ||
6212 (0 && (argc != 1) && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ) {
6213 Tcl_AppendResult( interp, "wrong # args: command should be ",
6214 "\"plspal1 filename interpolate\"",
6215 (char *) NULL);
6216 return TCL_ERROR;
6217 }
6218
6219 filename = argv[1+0];
6220 interpolate = atoi(argv[1+1]);
6221
6222
6223
6224 plspal1 ( filename, interpolate );
6225
6226
6227 if (pl_errcode != 0) {
6228 Tcl_AppendResult(interp, errmsg, (char *) NULL);
6229 return TCL_ERROR;
6230 }
6231
6232 plflush();
6233 return TCL_OK;
6234}
6235
6236// The plspauseCmd interface routine which processes the plspause Tcl command.
6237
6238static int
6239plspauseCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
6240{
6241 PLINT paus;
6242
6243 pl_errcode = 0; errmsg[0] = '\0';
6244
6245 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
6246 Tcl_AppendResult( interp, "command syntax: command should be ",
6247 "\"plspause paus\"",
6248 (char *) NULL);
6249 return TCL_ERROR;
6250 }
6251
6252 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
6253 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
6254 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
6255 Tcl_AppendResult( interp, "wrong # args: command should be ",
6256 "\"plspause paus\"",
6257 (char *) NULL);
6258 return TCL_ERROR;
6259 }
6260
6261 paus = atoi(argv[1+0]);
6262
6263
6264
6265 plspause ( paus );
6266
6267
6268 if (pl_errcode != 0) {
6269 Tcl_AppendResult(interp, errmsg, (char *) NULL);
6270 return TCL_ERROR;
6271 }
6272
6273 plflush();
6274 return TCL_OK;
6275}
6276
6277// The plsstrmCmd interface routine which processes the plsstrm Tcl command.
6278
6279static int
6280plsstrmCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
6281{
6282 PLINT strm;
6283
6284 pl_errcode = 0; errmsg[0] = '\0';
6285
6286 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
6287 Tcl_AppendResult( interp, "command syntax: command should be ",
6288 "\"plsstrm strm\"",
6289 (char *) NULL);
6290 return TCL_ERROR;
6291 }
6292
6293 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
6294 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
6295 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
6296 Tcl_AppendResult( interp, "wrong # args: command should be ",
6297 "\"plsstrm strm\"",
6298 (char *) NULL);
6299 return TCL_ERROR;
6300 }
6301
6302 strm = atoi(argv[1+0]);
6303
6304
6305
6306 plsstrm ( strm );
6307
6308
6309 if (pl_errcode != 0) {
6310 Tcl_AppendResult(interp, errmsg, (char *) NULL);
6311 return TCL_ERROR;
6312 }
6313
6314 plflush();
6315 return TCL_OK;
6316}
6317
6318// The plssubCmd interface routine which processes the plssub Tcl command.
6319
6320static int
6321plssubCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
6322{
6323 PLINT nx;
6324 PLINT ny;
6325
6326 pl_errcode = 0; errmsg[0] = '\0';
6327
6328 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
6329 Tcl_AppendResult( interp, "command syntax: command should be ",
6330 "\"plssub nx ny\"",
6331 (char *) NULL);
6332 return TCL_ERROR;
6333 }
6334
6335 if ( (!0 && 0 && (argc < (2 + 1 - 0 - 0)) && (!0 || (argc < (2 + 1 - 0)))) ||
6336 (!0 && !0 && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ||
6337 (0 && (argc != 1) && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ) {
6338 Tcl_AppendResult( interp, "wrong # args: command should be ",
6339 "\"plssub nx ny\"",
6340 (char *) NULL);
6341 return TCL_ERROR;
6342 }
6343
6344 nx = atoi(argv[1+0]);
6345 ny = atoi(argv[1+1]);
6346
6347
6348
6349 plssub ( nx, ny );
6350
6351
6352 if (pl_errcode != 0) {
6353 Tcl_AppendResult(interp, errmsg, (char *) NULL);
6354 return TCL_ERROR;
6355 }
6356
6357 plflush();
6358 return TCL_OK;
6359}
6360
6361// The plssymCmd interface routine which processes the plssym Tcl command.
6362
6363static int
6364plssymCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
6365{
6366 PLFLT def;
6367 PLFLT scale;
6368
6369 pl_errcode = 0; errmsg[0] = '\0';
6370
6371 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
6372 Tcl_AppendResult( interp, "command syntax: command should be ",
6373 "\"plssym def scale\"",
6374 (char *) NULL);
6375 return TCL_ERROR;
6376 }
6377
6378 if ( (!0 && 0 && (argc < (2 + 1 - 0 - 0)) && (!0 || (argc < (2 + 1 - 0)))) ||
6379 (!0 && !0 && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ||
6380 (0 && (argc != 1) && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ) {
6381 Tcl_AppendResult( interp, "wrong # args: command should be ",
6382 "\"plssym def scale\"",
6383 (char *) NULL);
6384 return TCL_ERROR;
6385 }
6386
6387 def = atof(argv[1+0]);
6388 scale = atof(argv[1+1]);
6389
6390
6391
6392 plssym ( def, scale );
6393
6394
6395 if (pl_errcode != 0) {
6396 Tcl_AppendResult(interp, errmsg, (char *) NULL);
6397 return TCL_ERROR;
6398 }
6399
6400 plflush();
6401 return TCL_OK;
6402}
6403
6404// The plstarCmd interface routine which processes the plstar Tcl command.
6405
6406static int
6407plstarCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
6408{
6409 PLINT nx;
6410 PLINT ny;
6411
6412 pl_errcode = 0; errmsg[0] = '\0';
6413
6414 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
6415 Tcl_AppendResult( interp, "command syntax: command should be ",
6416 "\"plstar nx ny\"",
6417 (char *) NULL);
6418 return TCL_ERROR;
6419 }
6420
6421 if ( (!0 && 0 && (argc < (2 + 1 - 0 - 0)) && (!0 || (argc < (2 + 1 - 0)))) ||
6422 (!0 && !0 && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ||
6423 (0 && (argc != 1) && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ) {
6424 Tcl_AppendResult( interp, "wrong # args: command should be ",
6425 "\"plstar nx ny\"",
6426 (char *) NULL);
6427 return TCL_ERROR;
6428 }
6429
6430 nx = atoi(argv[1+0]);
6431 ny = atoi(argv[1+1]);
6432
6433
6434
6435 plstar ( nx, ny );
6436
6437
6438 if (pl_errcode != 0) {
6439 Tcl_AppendResult(interp, errmsg, (char *) NULL);
6440 return TCL_ERROR;
6441 }
6442
6443 plflush();
6444 return TCL_OK;
6445}
6446
6447// The plstartCmd interface routine which processes the plstart Tcl command.
6448
6449static int
6450plstartCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
6451{
6452 const char *devname;
6453 PLINT nx;
6454 PLINT ny;
6455
6456 pl_errcode = 0; errmsg[0] = '\0';
6457
6458 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
6459 Tcl_AppendResult( interp, "command syntax: command should be ",
6460 "\"plstart devname nx ny\"",
6461 (char *) NULL);
6462 return TCL_ERROR;
6463 }
6464
6465 if ( (!0 && 0 && (argc < (3 + 1 - 0 - 0)) && (!0 || (argc < (3 + 1 - 0)))) ||
6466 (!0 && !0 && (argc != (3 + 1 - 0)) && (!0 || (argc != (3 + 1)))) ||
6467 (0 && (argc != 1) && (argc != (3 + 1 - 0)) && (!0 || (argc != (3 + 1)))) ) {
6468 Tcl_AppendResult( interp, "wrong # args: command should be ",
6469 "\"plstart devname nx ny\"",
6470 (char *) NULL);
6471 return TCL_ERROR;
6472 }
6473
6474 devname = argv[1+0];
6475 nx = atoi(argv[1+1]);
6476 ny = atoi(argv[1+2]);
6477
6478
6479
6480 plstart ( devname, nx, ny );
6481
6482
6483 if (pl_errcode != 0) {
6484 Tcl_AppendResult(interp, errmsg, (char *) NULL);
6485 return TCL_ERROR;
6486 }
6487
6488 plflush();
6489 return TCL_OK;
6490}
6491
6492// The plstringCmd interface routine which processes the plstring Tcl command.
6493
6494static int
6495plstringCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
6496{
6497 PLINT n;
6498 PLFLT *x;
6499 tclMatrix *matx;
6500 PLFLT *y;
6501 tclMatrix *maty;
6502 const char *string;
6503
6504 pl_errcode = 0; errmsg[0] = '\0';
6505
6506 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
6507 Tcl_AppendResult( interp, "command syntax: command should be ",
6508 "\"plstring x y string\"",
6509 (char *) NULL);
6510 return TCL_ERROR;
6511 }
6512
6513 if ( (!0 && 0 && (argc < (4 + 1 - 0 - 1)) && (!0 || (argc < (4 + 1 - 0)))) ||
6514 (!0 && !0 && (argc != (4 + 1 - 1)) && (!0 || (argc != (4 + 1)))) ||
6515 (0 && (argc != 1) && (argc != (4 + 1 - 1)) && (!0 || (argc != (4 + 1)))) ) {
6516 Tcl_AppendResult( interp, "wrong # args: command should be ",
6517 "\"plstring x y string\"",
6518 (char *) NULL);
6519 return TCL_ERROR;
6520 }
6521
6522 matx = Tcl_GetMatrixPtr( interp, argv[1+0] );
6523 if (matx == NULL) return TCL_ERROR;
6524 x = matx->fdata;
6525 maty = Tcl_GetMatrixPtr( interp, argv[1+1] );
6526 if (maty == NULL) return TCL_ERROR;
6527 y = maty->fdata;
6528 string = argv[1+2];
6529 n = matx->n[0];
6530
6531 if ( ! (n <= matx->n[0] && matx->n[0] == maty->n[0]) ) {
6532 Tcl_AppendResult( interp, "Length of both vectors must be equal", (char *) NULL );
6533 return TCL_ERROR;
6534 }
6535 if ( ! (matx->type == TYPE_FLOAT && maty->type == TYPE_FLOAT) ) {
6536 Tcl_AppendResult( interp, "Both vectors must be of type float", (char *) NULL );
6537 return TCL_ERROR;
6538 }
6539
6540
6541 plstring ( n, x, y, string );
6542
6543
6544 if (pl_errcode != 0) {
6545 Tcl_AppendResult(interp, errmsg, (char *) NULL);
6546 return TCL_ERROR;
6547 }
6548
6549 plflush();
6550 return TCL_OK;
6551}
6552
6553// The plstring3Cmd interface routine which processes the plstring3 Tcl command.
6554
6555static int
6556plstring3Cmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
6557{
6558 PLINT n;
6559 PLFLT *x;
6560 tclMatrix *matx;
6561 PLFLT *y;
6562 tclMatrix *maty;
6563 PLFLT *z;
6564 tclMatrix *matz;
6565 const char *string;
6566
6567 pl_errcode = 0; errmsg[0] = '\0';
6568
6569 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
6570 Tcl_AppendResult( interp, "command syntax: command should be ",
6571 "\"plstring3 x y z string\"",
6572 (char *) NULL);
6573 return TCL_ERROR;
6574 }
6575
6576 if ( (!0 && 0 && (argc < (5 + 1 - 0 - 1)) && (!0 || (argc < (5 + 1 - 0)))) ||
6577 (!0 && !0 && (argc != (5 + 1 - 1)) && (!0 || (argc != (5 + 1)))) ||
6578 (0 && (argc != 1) && (argc != (5 + 1 - 1)) && (!0 || (argc != (5 + 1)))) ) {
6579 Tcl_AppendResult( interp, "wrong # args: command should be ",
6580 "\"plstring3 x y z string\"",
6581 (char *) NULL);
6582 return TCL_ERROR;
6583 }
6584
6585 matx = Tcl_GetMatrixPtr( interp, argv[1+0] );
6586 if (matx == NULL) return TCL_ERROR;
6587 x = matx->fdata;
6588 maty = Tcl_GetMatrixPtr( interp, argv[1+1] );
6589 if (maty == NULL) return TCL_ERROR;
6590 y = maty->fdata;
6591 matz = Tcl_GetMatrixPtr( interp, argv[1+2] );
6592 if (matz == NULL) return TCL_ERROR;
6593 z = matz->fdata;
6594 string = argv[1+3];
6595 n = matx->n[0];
6596
6597 if ( ! (n <= matx->n[0] && matx->n[0] == maty->n[0] && matx->n[0] == matz->n[0]) ) {
6598 Tcl_AppendResult( interp, "Length of all vectors must be equal", (char *) NULL );
6599 return TCL_ERROR;
6600 }
6601 if ( ! (matx->type == TYPE_FLOAT && maty->type == TYPE_FLOAT && matz->type == TYPE_FLOAT) ) {
6602 Tcl_AppendResult( interp, "All vectors must be of type float", (char *) NULL );
6603 return TCL_ERROR;
6604 }
6605
6606
6607 plstring3 ( n, x, y, z, string );
6608
6609
6610 if (pl_errcode != 0) {
6611 Tcl_AppendResult(interp, errmsg, (char *) NULL);
6612 return TCL_ERROR;
6613 }
6614
6615 plflush();
6616 return TCL_OK;
6617}
6618
6619// The plstripaCmd interface routine which processes the plstripa Tcl command.
6620
6621static int
6622plstripaCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
6623{
6624 PLINT id;
6625 PLINT pen;
6626 PLFLT x;
6627 PLFLT y;
6628
6629 pl_errcode = 0; errmsg[0] = '\0';
6630
6631 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
6632 Tcl_AppendResult( interp, "command syntax: command should be ",
6633 "\"plstripa id pen x y\"",
6634 (char *) NULL);
6635 return TCL_ERROR;
6636 }
6637
6638 if ( (!0 && 0 && (argc < (4 + 1 - 0 - 0)) && (!0 || (argc < (4 + 1 - 0)))) ||
6639 (!0 && !0 && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ||
6640 (0 && (argc != 1) && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ) {
6641 Tcl_AppendResult( interp, "wrong # args: command should be ",
6642 "\"plstripa id pen x y\"",
6643 (char *) NULL);
6644 return TCL_ERROR;
6645 }
6646
6647 id = atoi(argv[1+0]);
6648 pen = atoi(argv[1+1]);
6649 x = atof(argv[1+2]);
6650 y = atof(argv[1+3]);
6651
6652
6653
6654 plstripa ( id, pen, x, y );
6655
6656
6657 if (pl_errcode != 0) {
6658 Tcl_AppendResult(interp, errmsg, (char *) NULL);
6659 return TCL_ERROR;
6660 }
6661
6662 plflush();
6663 return TCL_OK;
6664}
6665
6666// The plstripdCmd interface routine which processes the plstripd Tcl command.
6667
6668static int
6669plstripdCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
6670{
6671 PLINT id;
6672
6673 pl_errcode = 0; errmsg[0] = '\0';
6674
6675 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
6676 Tcl_AppendResult( interp, "command syntax: command should be ",
6677 "\"plstripd id\"",
6678 (char *) NULL);
6679 return TCL_ERROR;
6680 }
6681
6682 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
6683 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
6684 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
6685 Tcl_AppendResult( interp, "wrong # args: command should be ",
6686 "\"plstripd id\"",
6687 (char *) NULL);
6688 return TCL_ERROR;
6689 }
6690
6691 id = atoi(argv[1+0]);
6692
6693
6694
6695 plstripd ( id );
6696
6697
6698 if (pl_errcode != 0) {
6699 Tcl_AppendResult(interp, errmsg, (char *) NULL);
6700 return TCL_ERROR;
6701 }
6702
6703 plflush();
6704 return TCL_OK;
6705}
6706
6707// The plstylCmd interface routine which processes the plstyl Tcl command.
6708
6709static int
6710plstylCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
6711{
6712 PLINT nms;
6713 PLINT *mark;
6714 tclMatrix *matmark;
6715 PLINT *space;
6716 tclMatrix *matspace;
6717
6718 pl_errcode = 0; errmsg[0] = '\0';
6719
6720 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
6721 Tcl_AppendResult( interp, "command syntax: command should be ",
6722 "\"plstyl mark space\"",
6723 (char *) NULL);
6724 return TCL_ERROR;
6725 }
6726
6727 if ( (!0 && 0 && (argc < (3 + 1 - 0 - 1)) && (!0 || (argc < (3 + 1 - 0)))) ||
6728 (!0 && !0 && (argc != (3 + 1 - 1)) && (!0 || (argc != (3 + 1)))) ||
6729 (0 && (argc != 1) && (argc != (3 + 1 - 1)) && (!0 || (argc != (3 + 1)))) ) {
6730 Tcl_AppendResult( interp, "wrong # args: command should be ",
6731 "\"plstyl mark space\"",
6732 (char *) NULL);
6733 return TCL_ERROR;
6734 }
6735
6736 matmark = Tcl_GetMatrixPtr( interp, argv[1+0] );
6737 if (matmark == NULL) return TCL_ERROR;
6738 mark = matmark->idata;
6739 matspace = Tcl_GetMatrixPtr( interp, argv[1+1] );
6740 if (matspace == NULL) return TCL_ERROR;
6741 space = matspace->idata;
6742 nms = matmark->n[0];
6743
6744 if ( ! (nms <= matmark->n[0] && matmark->n[0] == matspace->n[0]) ) {
6745 Tcl_AppendResult( interp, "Length of both vectors must be equal", (char *) NULL );
6746 return TCL_ERROR;
6747 }
6748 if ( ! (matmark->type == TYPE_INT && matspace->type == TYPE_INT) ) {
6749 Tcl_AppendResult( interp, "Both vectors must be of type int", (char *) NULL );
6750 return TCL_ERROR;
6751 }
6752
6753
6754 plstyl ( nms, mark, space );
6755
6756
6757 if (pl_errcode != 0) {
6758 Tcl_AppendResult(interp, errmsg, (char *) NULL);
6759 return TCL_ERROR;
6760 }
6761
6762 plflush();
6763 return TCL_OK;
6764}
6765
6766// The plsvpaCmd interface routine which processes the plsvpa Tcl command.
6767
6768static int
6769plsvpaCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
6770{
6771 PLFLT xmin;
6772 PLFLT xmax;
6773 PLFLT ymin;
6774 PLFLT ymax;
6775
6776 pl_errcode = 0; errmsg[0] = '\0';
6777
6778 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
6779 Tcl_AppendResult( interp, "command syntax: command should be ",
6780 "\"plsvpa xmin xmax ymin ymax\"",
6781 (char *) NULL);
6782 return TCL_ERROR;
6783 }
6784
6785 if ( (!0 && 0 && (argc < (4 + 1 - 0 - 0)) && (!0 || (argc < (4 + 1 - 0)))) ||
6786 (!0 && !0 && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ||
6787 (0 && (argc != 1) && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ) {
6788 Tcl_AppendResult( interp, "wrong # args: command should be ",
6789 "\"plsvpa xmin xmax ymin ymax\"",
6790 (char *) NULL);
6791 return TCL_ERROR;
6792 }
6793
6794 xmin = atof(argv[1+0]);
6795 xmax = atof(argv[1+1]);
6796 ymin = atof(argv[1+2]);
6797 ymax = atof(argv[1+3]);
6798
6799
6800
6801 plsvpa ( xmin, xmax, ymin, ymax );
6802
6803
6804 if (pl_errcode != 0) {
6805 Tcl_AppendResult(interp, errmsg, (char *) NULL);
6806 return TCL_ERROR;
6807 }
6808
6809 plflush();
6810 return TCL_OK;
6811}
6812
6813// The plsxaxCmd interface routine which processes the plsxax Tcl command.
6814
6815static int
6816plsxaxCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
6817{
6818 PLINT digmax;
6819 PLINT digits;
6820
6821 pl_errcode = 0; errmsg[0] = '\0';
6822
6823 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
6824 Tcl_AppendResult( interp, "command syntax: command should be ",
6825 "\"plsxax digmax digits\"",
6826 (char *) NULL);
6827 return TCL_ERROR;
6828 }
6829
6830 if ( (!0 && 0 && (argc < (2 + 1 - 0 - 0)) && (!0 || (argc < (2 + 1 - 0)))) ||
6831 (!0 && !0 && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ||
6832 (0 && (argc != 1) && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ) {
6833 Tcl_AppendResult( interp, "wrong # args: command should be ",
6834 "\"plsxax digmax digits\"",
6835 (char *) NULL);
6836 return TCL_ERROR;
6837 }
6838
6839 digmax = atoi(argv[1+0]);
6840 digits = atoi(argv[1+1]);
6841
6842
6843
6844 plsxax ( digmax, digits );
6845
6846
6847 if (pl_errcode != 0) {
6848 Tcl_AppendResult(interp, errmsg, (char *) NULL);
6849 return TCL_ERROR;
6850 }
6851
6852 plflush();
6853 return TCL_OK;
6854}
6855
6856// The plsyaxCmd interface routine which processes the plsyax Tcl command.
6857
6858static int
6859plsyaxCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
6860{
6861 PLINT digmax = 0;
6862 PLINT digits = 0;
6863
6864 pl_errcode = 0; errmsg[0] = '\0';
6865
6866 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
6867 Tcl_AppendResult( interp, "command syntax: command should be ",
6868 "\"plsyax digmax digits\"",
6869 (char *) NULL);
6870 return TCL_ERROR;
6871 }
6872
6873 if ( (!0 && 2 && (argc < (2 + 1 - 2 - 0)) && (!0 || (argc < (2 + 1 - 2)))) ||
6874 (!0 && !2 && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ||
6875 (0 && (argc != 1) && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ) {
6876 Tcl_AppendResult( interp, "wrong # args: command should be ",
6877 "\"plsyax digmax digits\"",
6878 (char *) NULL);
6879 return TCL_ERROR;
6880 }
6881
6882 if (argc > 0+1) {
6883 digmax = atoi(argv[1+0]);
6884 }
6885 if (argc > 1+1) {
6886 digits = atoi(argv[1+1]);
6887 }
6888
6889
6890
6891 plsyax ( digmax, digits );
6892
6893
6894 if (pl_errcode != 0) {
6895 Tcl_AppendResult(interp, errmsg, (char *) NULL);
6896 return TCL_ERROR;
6897 }
6898
6899 plflush();
6900 return TCL_OK;
6901}
6902
6903// The plsymCmd interface routine which processes the plsym Tcl command.
6904
6905static int
6906plsymCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
6907{
6908 PLINT n;
6909 PLFLT *x;
6910 tclMatrix *matx;
6911 PLFLT *y;
6912 tclMatrix *maty;
6913 PLINT code;
6914
6915 pl_errcode = 0; errmsg[0] = '\0';
6916
6917 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
6918 Tcl_AppendResult( interp, "command syntax: command should be ",
6919 "\"plsym x y code\"",
6920 (char *) NULL);
6921 return TCL_ERROR;
6922 }
6923
6924 if ( (!0 && 0 && (argc < (4 + 1 - 0 - 1)) && (!0 || (argc < (4 + 1 - 0)))) ||
6925 (!0 && !0 && (argc != (4 + 1 - 1)) && (!0 || (argc != (4 + 1)))) ||
6926 (0 && (argc != 1) && (argc != (4 + 1 - 1)) && (!0 || (argc != (4 + 1)))) ) {
6927 Tcl_AppendResult( interp, "wrong # args: command should be ",
6928 "\"plsym x y code\"",
6929 (char *) NULL);
6930 return TCL_ERROR;
6931 }
6932
6933 matx = Tcl_GetMatrixPtr( interp, argv[1+0] );
6934 if (matx == NULL) return TCL_ERROR;
6935 x = matx->fdata;
6936 maty = Tcl_GetMatrixPtr( interp, argv[1+1] );
6937 if (maty == NULL) return TCL_ERROR;
6938 y = maty->fdata;
6939 code = atoi(argv[1+2]);
6940 n = matx->n[0];
6941
6942 if ( ! (n <= matx->n[0] && matx->n[0] == maty->n[0]) ) {
6943 Tcl_AppendResult( interp, "Length of both vectors must be equal", (char *) NULL );
6944 return TCL_ERROR;
6945 }
6946 if ( ! (matx->type == TYPE_FLOAT && maty->type == TYPE_FLOAT) ) {
6947 Tcl_AppendResult( interp, "Both vectors must be of type float", (char *) NULL );
6948 return TCL_ERROR;
6949 }
6950
6951
6952 plsym ( n, x, y, code );
6953
6954
6955 if (pl_errcode != 0) {
6956 Tcl_AppendResult(interp, errmsg, (char *) NULL);
6957 return TCL_ERROR;
6958 }
6959
6960 plflush();
6961 return TCL_OK;
6962}
6963
6964// The plszaxCmd interface routine which processes the plszax Tcl command.
6965
6966static int
6967plszaxCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
6968{
6969 PLINT digmax;
6970 PLINT digits;
6971
6972 pl_errcode = 0; errmsg[0] = '\0';
6973
6974 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
6975 Tcl_AppendResult( interp, "command syntax: command should be ",
6976 "\"plszax digmax digits\"",
6977 (char *) NULL);
6978 return TCL_ERROR;
6979 }
6980
6981 if ( (!0 && 0 && (argc < (2 + 1 - 0 - 0)) && (!0 || (argc < (2 + 1 - 0)))) ||
6982 (!0 && !0 && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ||
6983 (0 && (argc != 1) && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ) {
6984 Tcl_AppendResult( interp, "wrong # args: command should be ",
6985 "\"plszax digmax digits\"",
6986 (char *) NULL);
6987 return TCL_ERROR;
6988 }
6989
6990 digmax = atoi(argv[1+0]);
6991 digits = atoi(argv[1+1]);
6992
6993
6994
6995 plszax ( digmax, digits );
6996
6997
6998 if (pl_errcode != 0) {
6999 Tcl_AppendResult(interp, errmsg, (char *) NULL);
7000 return TCL_ERROR;
7001 }
7002
7003 plflush();
7004 return TCL_OK;
7005}
7006
7007// The pltextCmd interface routine which processes the pltext Tcl command.
7008
7009static int
7010pltextCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
7011{
7012
7013 pl_errcode = 0; errmsg[0] = '\0';
7014
7015 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
7016 Tcl_AppendResult( interp, "command syntax: command should be ",
7017 "\"pltext \"",
7018 (char *) NULL);
7019 return TCL_ERROR;
7020 }
7021
7022 if ( (!0 && 0 && (argc < (0 + 1 - 0 - 0)) && (!0 || (argc < (0 + 1 - 0)))) ||
7023 (!0 && !0 && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ||
7024 (0 && (argc != 1) && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ) {
7025 Tcl_AppendResult( interp, "wrong # args: command should be ",
7026 "\"pltext \"",
7027 (char *) NULL);
7028 return TCL_ERROR;
7029 }
7030
7031
7032
7033
7034 pltext ( );
7035
7036
7037 if (pl_errcode != 0) {
7038 Tcl_AppendResult(interp, errmsg, (char *) NULL);
7039 return TCL_ERROR;
7040 }
7041
7042 plflush();
7043 return TCL_OK;
7044}
7045
7046// The pltimefmtCmd interface routine which processes the pltimefmt Tcl command.
7047
7048static int
7049pltimefmtCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
7050{
7051 const char *fmt;
7052
7053 pl_errcode = 0; errmsg[0] = '\0';
7054
7055 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
7056 Tcl_AppendResult( interp, "command syntax: command should be ",
7057 "\"pltimefmt fmt\"",
7058 (char *) NULL);
7059 return TCL_ERROR;
7060 }
7061
7062 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
7063 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
7064 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
7065 Tcl_AppendResult( interp, "wrong # args: command should be ",
7066 "\"pltimefmt fmt\"",
7067 (char *) NULL);
7068 return TCL_ERROR;
7069 }
7070
7071 fmt = argv[1+0];
7072
7073
7074
7075 pltimefmt ( fmt );
7076
7077
7078 if (pl_errcode != 0) {
7079 Tcl_AppendResult(interp, errmsg, (char *) NULL);
7080 return TCL_ERROR;
7081 }
7082
7083 plflush();
7084 return TCL_OK;
7085}
7086
7087// The plvaspCmd interface routine which processes the plvasp Tcl command.
7088
7089static int
7090plvaspCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
7091{
7092 PLFLT aspect;
7093
7094 pl_errcode = 0; errmsg[0] = '\0';
7095
7096 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
7097 Tcl_AppendResult( interp, "command syntax: command should be ",
7098 "\"plvasp aspect\"",
7099 (char *) NULL);
7100 return TCL_ERROR;
7101 }
7102
7103 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
7104 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
7105 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
7106 Tcl_AppendResult( interp, "wrong # args: command should be ",
7107 "\"plvasp aspect\"",
7108 (char *) NULL);
7109 return TCL_ERROR;
7110 }
7111
7112 aspect = atof(argv[1+0]);
7113
7114
7115
7116 plvasp ( aspect );
7117
7118
7119 if (pl_errcode != 0) {
7120 Tcl_AppendResult(interp, errmsg, (char *) NULL);
7121 return TCL_ERROR;
7122 }
7123
7124 plflush();
7125 return TCL_OK;
7126}
7127
7128// The plvpasCmd interface routine which processes the plvpas Tcl command.
7129
7130static int
7131plvpasCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
7132{
7133 PLFLT xmin;
7134 PLFLT xmax;
7135 PLFLT ymin;
7136 PLFLT ymax;
7137 PLFLT aspect;
7138
7139 pl_errcode = 0; errmsg[0] = '\0';
7140
7141 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
7142 Tcl_AppendResult( interp, "command syntax: command should be ",
7143 "\"plvpas xmin xmax ymin ymax aspect\"",
7144 (char *) NULL);
7145 return TCL_ERROR;
7146 }
7147
7148 if ( (!0 && 0 && (argc < (5 + 1 - 0 - 0)) && (!0 || (argc < (5 + 1 - 0)))) ||
7149 (!0 && !0 && (argc != (5 + 1 - 0)) && (!0 || (argc != (5 + 1)))) ||
7150 (0 && (argc != 1) && (argc != (5 + 1 - 0)) && (!0 || (argc != (5 + 1)))) ) {
7151 Tcl_AppendResult( interp, "wrong # args: command should be ",
7152 "\"plvpas xmin xmax ymin ymax aspect\"",
7153 (char *) NULL);
7154 return TCL_ERROR;
7155 }
7156
7157 xmin = atof(argv[1+0]);
7158 xmax = atof(argv[1+1]);
7159 ymin = atof(argv[1+2]);
7160 ymax = atof(argv[1+3]);
7161 aspect = atof(argv[1+4]);
7162
7163
7164
7165 plvpas ( xmin, xmax, ymin, ymax, aspect );
7166
7167
7168 if (pl_errcode != 0) {
7169 Tcl_AppendResult(interp, errmsg, (char *) NULL);
7170 return TCL_ERROR;
7171 }
7172
7173 plflush();
7174 return TCL_OK;
7175}
7176
7177// The plvporCmd interface routine which processes the plvpor Tcl command.
7178
7179static int
7180plvporCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
7181{
7182 PLFLT xmin;
7183 PLFLT xmax;
7184 PLFLT ymin;
7185 PLFLT ymax;
7186
7187 pl_errcode = 0; errmsg[0] = '\0';
7188
7189 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
7190 Tcl_AppendResult( interp, "command syntax: command should be ",
7191 "\"plvpor xmin xmax ymin ymax\"",
7192 (char *) NULL);
7193 return TCL_ERROR;
7194 }
7195
7196 if ( (!0 && 0 && (argc < (4 + 1 - 0 - 0)) && (!0 || (argc < (4 + 1 - 0)))) ||
7197 (!0 && !0 && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ||
7198 (0 && (argc != 1) && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ) {
7199 Tcl_AppendResult( interp, "wrong # args: command should be ",
7200 "\"plvpor xmin xmax ymin ymax\"",
7201 (char *) NULL);
7202 return TCL_ERROR;
7203 }
7204
7205 xmin = atof(argv[1+0]);
7206 xmax = atof(argv[1+1]);
7207 ymin = atof(argv[1+2]);
7208 ymax = atof(argv[1+3]);
7209
7210
7211
7212 plvpor ( xmin, xmax, ymin, ymax );
7213
7214
7215 if (pl_errcode != 0) {
7216 Tcl_AppendResult(interp, errmsg, (char *) NULL);
7217 return TCL_ERROR;
7218 }
7219
7220 plflush();
7221 return TCL_OK;
7222}
7223
7224// The plvstaCmd interface routine which processes the plvsta Tcl command.
7225
7226static int
7227plvstaCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
7228{
7229
7230 pl_errcode = 0; errmsg[0] = '\0';
7231
7232 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
7233 Tcl_AppendResult( interp, "command syntax: command should be ",
7234 "\"plvsta \"",
7235 (char *) NULL);
7236 return TCL_ERROR;
7237 }
7238
7239 if ( (!0 && 0 && (argc < (0 + 1 - 0 - 0)) && (!0 || (argc < (0 + 1 - 0)))) ||
7240 (!0 && !0 && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ||
7241 (0 && (argc != 1) && (argc != (0 + 1 - 0)) && (!0 || (argc != (0 + 1)))) ) {
7242 Tcl_AppendResult( interp, "wrong # args: command should be ",
7243 "\"plvsta \"",
7244 (char *) NULL);
7245 return TCL_ERROR;
7246 }
7247
7248
7249
7250
7251 plvsta ( );
7252
7253
7254 if (pl_errcode != 0) {
7255 Tcl_AppendResult(interp, errmsg, (char *) NULL);
7256 return TCL_ERROR;
7257 }
7258
7259 plflush();
7260 return TCL_OK;
7261}
7262
7263// The plw3dCmd interface routine which processes the plw3d Tcl command.
7264
7265static int
7266plw3dCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
7267{
7268 PLFLT basex;
7269 PLFLT basey;
7270 PLFLT height;
7271 PLFLT xmin0;
7272 PLFLT xmax0;
7273 PLFLT ymin0;
7274 PLFLT ymax0;
7275 PLFLT zmin0;
7276 PLFLT zmax0;
7277 PLFLT alt;
7278 PLFLT az;
7279
7280 pl_errcode = 0; errmsg[0] = '\0';
7281
7282 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
7283 Tcl_AppendResult( interp, "command syntax: command should be ",
7284 "\"plw3d basex basey height xmin0 xmax0 ymin0 ymax0 zmin0 zmax0 alt az\"",
7285 (char *) NULL);
7286 return TCL_ERROR;
7287 }
7288
7289 if ( (!0 && 0 && (argc < (11 + 1 - 0 - 0)) && (!0 || (argc < (11 + 1 - 0)))) ||
7290 (!0 && !0 && (argc != (11 + 1 - 0)) && (!0 || (argc != (11 + 1)))) ||
7291 (0 && (argc != 1) && (argc != (11 + 1 - 0)) && (!0 || (argc != (11 + 1)))) ) {
7292 Tcl_AppendResult( interp, "wrong # args: command should be ",
7293 "\"plw3d basex basey height xmin0 xmax0 ymin0 ymax0 zmin0 zmax0 alt az\"",
7294 (char *) NULL);
7295 return TCL_ERROR;
7296 }
7297
7298 basex = atof(argv[1+0]);
7299 basey = atof(argv[1+1]);
7300 height = atof(argv[1+2]);
7301 xmin0 = atof(argv[1+3]);
7302 xmax0 = atof(argv[1+4]);
7303 ymin0 = atof(argv[1+5]);
7304 ymax0 = atof(argv[1+6]);
7305 zmin0 = atof(argv[1+7]);
7306 zmax0 = atof(argv[1+8]);
7307 alt = atof(argv[1+9]);
7308 az = atof(argv[1+10]);
7309
7310
7311
7312 plw3d ( basex, basey, height, xmin0, xmax0, ymin0, ymax0, zmin0, zmax0, alt, az );
7313
7314
7315 if (pl_errcode != 0) {
7316 Tcl_AppendResult(interp, errmsg, (char *) NULL);
7317 return TCL_ERROR;
7318 }
7319
7320 plflush();
7321 return TCL_OK;
7322}
7323
7324// The plwidthCmd interface routine which processes the plwidth Tcl command.
7325
7326static int
7327plwidthCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
7328{
7329 PLFLT width;
7330
7331 pl_errcode = 0; errmsg[0] = '\0';
7332
7333 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
7334 Tcl_AppendResult( interp, "command syntax: command should be ",
7335 "\"plwidth width\"",
7336 (char *) NULL);
7337 return TCL_ERROR;
7338 }
7339
7340 if ( (!0 && 0 && (argc < (1 + 1 - 0 - 0)) && (!0 || (argc < (1 + 1 - 0)))) ||
7341 (!0 && !0 && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ||
7342 (0 && (argc != 1) && (argc != (1 + 1 - 0)) && (!0 || (argc != (1 + 1)))) ) {
7343 Tcl_AppendResult( interp, "wrong # args: command should be ",
7344 "\"plwidth width\"",
7345 (char *) NULL);
7346 return TCL_ERROR;
7347 }
7348
7349 width = atof(argv[1+0]);
7350
7351
7352
7353 plwidth ( width );
7354
7355
7356 if (pl_errcode != 0) {
7357 Tcl_AppendResult(interp, errmsg, (char *) NULL);
7358 return TCL_ERROR;
7359 }
7360
7361 plflush();
7362 return TCL_OK;
7363}
7364
7365// The plwindCmd interface routine which processes the plwind Tcl command.
7366
7367static int
7368plwindCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
7369{
7370 PLFLT xmin;
7371 PLFLT xmax;
7372 PLFLT ymin;
7373 PLFLT ymax;
7374
7375 pl_errcode = 0; errmsg[0] = '\0';
7376
7377 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
7378 Tcl_AppendResult( interp, "command syntax: command should be ",
7379 "\"plwind xmin xmax ymin ymax\"",
7380 (char *) NULL);
7381 return TCL_ERROR;
7382 }
7383
7384 if ( (!0 && 0 && (argc < (4 + 1 - 0 - 0)) && (!0 || (argc < (4 + 1 - 0)))) ||
7385 (!0 && !0 && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ||
7386 (0 && (argc != 1) && (argc != (4 + 1 - 0)) && (!0 || (argc != (4 + 1)))) ) {
7387 Tcl_AppendResult( interp, "wrong # args: command should be ",
7388 "\"plwind xmin xmax ymin ymax\"",
7389 (char *) NULL);
7390 return TCL_ERROR;
7391 }
7392
7393 xmin = atof(argv[1+0]);
7394 xmax = atof(argv[1+1]);
7395 ymin = atof(argv[1+2]);
7396 ymax = atof(argv[1+3]);
7397
7398
7399
7400 plwind ( xmin, xmax, ymin, ymax );
7401
7402
7403 if (pl_errcode != 0) {
7404 Tcl_AppendResult(interp, errmsg, (char *) NULL);
7405 return TCL_ERROR;
7406 }
7407
7408 plflush();
7409 return TCL_OK;
7410}
7411
7412// The plxormodCmd interface routine which processes the plxormod Tcl command.
7413
7414static int
7415plxormodCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
7416{
7417 PLINT mod;
7418 PLINT st;
7419
7420 pl_errcode = 0; errmsg[0] = '\0';
7421
7422 if ( (argc == 2) && (strlen(argv[1])>0) && (strncmp(argv[1],"-help",strlen(argv[1])) == 0) ) {
7423 Tcl_AppendResult( interp, "command syntax: command should be ",
7424 "\"plxormod ?mod st?\"",
7425 (char *) NULL);
7426 return TCL_ERROR;
7427 }
7428
7429 if ( (!1 && 0 && (argc < (2 + 1 - 0 - 0)) && (!0 || (argc < (2 + 1 - 0)))) ||
7430 (!1 && !0 && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ||
7431 (1 && (argc != 1) && (argc != (2 + 1 - 0)) && (!0 || (argc != (2 + 1)))) ) {
7432 Tcl_AppendResult( interp, "wrong # args: command should be ",
7433 "\"plxormod ?mod st?\"",
7434 (char *) NULL);
7435 return TCL_ERROR;
7436 }
7437
7438 mod = atoi(argv[1+0]);
7439/* st is for output. */
7440
7441
7442
7443 plxormod ( mod, &st );
7444
7445 if (argc == 1)
7446 Tcl_AppendResult( interp, " ", (char *) NULL );
7447 sprintf( buf, "%d", st );
7448 if (argc > 1)
7449 Tcl_SetVar( interp, argv[1+1], buf, 0 );
7450 else
7451 Tcl_AppendResult( interp, buf, (char *) NULL );
7452
7453 if (pl_errcode != 0) {
7454 Tcl_AppendResult(interp, errmsg, (char *) NULL);
7455 return TCL_ERROR;
7456 }
7457
7458 plflush();
7459 return TCL_OK;
7460}
7461
#define min(x, y)
Definition nnpi.c:87
static PLINT sigprec
Definition plcont.c:91
void pldip2dc(PLFLT *xmin, PLFLT *ymin, PLFLT *xmax, PLFLT *ymax)
Definition plcore.c:1737
void pldid2pc(PLFLT *xmin, PLFLT *ymin, PLFLT *xmax, PLFLT *ymax)
Definition plcore.c:1691
void plgesc(char *p_esc)
Definition plcore.c:3914
#define plgfci
Definition plplot.h:735
#define plgstrm
Definition plplot.h:744
#define plpat
Definition plplot.h:779
#define plschr
Definition plplot.h:790
#define plfontld
Definition plplot.h:721
#define plpath
Definition plplot.h:761
#define plerry
Definition plplot.h:715
#define plsfam
Definition plplot.h:816
#define plsmaj
Definition plplot.h:826
#define plsmin
Definition plplot.h:829
#define pleop
Definition plplot.h:713
#define plfill
Definition plplot.h:717
#define plvpas
Definition plplot.h:859
#define plgdiplt
Definition plplot.h:732
#define plerrx
Definition plplot.h:714
#define plinit
Definition plplot.h:755
#define plscmap1l
Definition plplot.h:796
#define plsori
Definition plplot.h:830
#define plbox3
Definition plplot.h:698
#define plcol1
Definition plplot.h:703
#define pltimefmt
Definition plplot.h:856
PLUINT PLUNICODE
Definition plplot.h:201
#define plgchr
Definition plplot.h:722
float PLFLT
Definition plplot.h:163
#define plsyax
Definition plplot.h:852
#define plgver
Definition plplot.h:745
#define plscolbg
Definition plplot.h:802
#define plpsty
Definition plplot.h:784
#define plgfont
Definition plplot.h:737
#define plenv
Definition plplot.h:711
#define pllightsource
Definition plplot.h:759
#define plpoin3
Definition plplot.h:781
#define plgspa
Definition plplot.h:743
#define plscol0
Definition plplot.h:800
#define plptex
Definition plplot.h:785
#define plrgbhls
Definition plplot.h:789
#define plbop
Definition plplot.h:696
#define plgdidev
Definition plplot.h:730
#define plpoin
Definition plplot.h:780
#define plptex3
Definition plplot.h:786
#define plstripd
Definition plplot.h:845
#define plhist
Definition plplot.h:751
#define plgfnam
Definition plplot.h:736
#define plgdiori
Definition plplot.h:731
#define plszax
Definition plplot.h:854
#define plstripa
Definition plplot.h:843
#define plgxax
Definition plplot.h:748
#define plgra
Definition plplot.h:740
#define plenv0
Definition plplot.h:712
#define plspal1
Definition plplot.h:833
#define plstring3
Definition plplot.h:842
#define plxormod
Definition plplot.h:865
#define plspause
Definition plplot.h:834
#define plgdev
Definition plplot.h:729
#define plgradient
Definition plplot.h:741
#define plspal0
Definition plplot.h:832
#define plcalc_world
Definition plplot.h:700
#define plwidth
Definition plplot.h:863
#define pllab
Definition plplot.h:757
#define plvasp
Definition plplot.h:857
#define plscmap0n
Definition plplot.h:793
#define plmtex3
Definition plplot.h:774
#define plctime
Definition plplot.h:708
#define plclear
Definition plplot.h:701
#define plsvpa
Definition plplot.h:850
#define plw3d
Definition plplot.h:862
#define plscmap1n
Definition plplot.h:798
#define plgvpd
Definition plplot.h:746
#define plhlsrgb
Definition plplot.h:752
#define pl_setcontlabelformat
Definition plplot.h:690
#define plsdev
Definition plplot.h:806
#define plconfigtime
Definition plplot.h:705
#define plscolbga
Definition plplot.h:803
#define PL_UNUSED(x)
Definition plplot.h:138
#define plscmap1
Definition plplot.h:794
#define plsdiplz
Definition plplot.h:811
#define plsesc
Definition plplot.h:814
#define plarc
Definition plplot.h:693
#define plgvpw
Definition plplot.h:747
#define pltext
Definition plplot.h:855
#define plstring
Definition plplot.h:841
#define plsdiori
Definition plplot.h:809
#define plspage
Definition plplot.h:831
#define plaxes
Definition plplot.h:694
#define pllsty
Definition plplot.h:763
#define plglevel
Definition plplot.h:738
#define plscompression
Definition plplot.h:805
#define plfamadv
Definition plplot.h:716
#define plfont
Definition plplot.h:720
#define plscmap0a
Definition plplot.h:792
#define plgcol0a
Definition plplot.h:725
#define plscmap1_range
Definition plplot.h:799
#define plsym
Definition plplot.h:853
#define plscmap1a
Definition plplot.h:795
#define plscmap0
Definition plplot.h:791
#define pl_setcontlabelparam
Definition plplot.h:691
#define plstyl
Definition plplot.h:846
#define plline
Definition plplot.h:760
#define pljoin
Definition plplot.h:756
#define plgzax
Definition plplot.h:750
#define plsstrm
Definition plplot.h:835
#define plscmap1la
Definition plplot.h:797
#define plssym
Definition plplot.h:837
#define plscolor
Definition plplot.h:804
#define plcol0
Definition plplot.h:702
#define plsdiplt
Definition plplot.h:810
#define plvsta
Definition plplot.h:861
#define plcpstrm
Definition plplot.h:707
#define plmkstrm
Definition plplot.h:772
#define plgcol0
Definition plplot.h:724
#define pladv
Definition plplot.h:692
#define plgcolbga
Definition plplot.h:727
#define plline3
Definition plplot.h:762
#define plprec
Definition plplot.h:783
#define plfill3
Definition plplot.h:718
#define plseed
Definition plplot.h:813
#define plgcompression
Definition plplot.h:728
#define plsfont
Definition plplot.h:819
int PLINT
Definition plplot.h:181
#define plgfam
Definition plplot.h:734
#define plscol0a
Definition plplot.h:801
#define plend1
Definition plplot.h:710
#define plbin
Definition plplot.h:695
#define plsdidev
Definition plplot.h:807
#define plsfnam
Definition plplot.h:818
#define plflush
Definition plplot.h:719
#define plwind
Definition plplot.h:864
#define plstar
Definition plplot.h:838
#define plmtex
Definition plplot.h:773
#define plsdimap
Definition plplot.h:808
#define plsfci
Definition plplot.h:817
#define plend
Definition plplot.h:709
#define plreplot
Definition plplot.h:788
#define plgcolbg
Definition plplot.h:726
#define plgcmap1_range
Definition plplot.h:723
#define plstart
Definition plplot.h:839
#define plsxax
Definition plplot.h:851
#define plbox
Definition plplot.h:697
#define plbtime
Definition plplot.h:699
#define plgyax
Definition plplot.h:749
#define plvpor
Definition plplot.h:860
#define plpoly3
Definition plplot.h:782
#define plgpage
Definition plplot.h:739
#define plssub
Definition plplot.h:836
static int color
Definition ps.c:78
static int text
Definition ps.c:77
static int argc
Definition qt.cpp:48
static char ** argv
Definition qt.cpp:49
static char errmsg[160]
Definition tclAPI.c:158
static char buf[200]
Definition tclAPI.c:873
static PLINT pl_errcode
Definition tclAPI.c:157
tclMatrix * Tcl_GetMatrixPtr(Tcl_Interp *interp, const char *matName)
Definition tclMatrix.c:424
@ TYPE_FLOAT
Definition tclMatrix.h:46
@ TYPE_INT
Definition tclMatrix.h:46
static int pljoinCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:3510
static int pldip2dcCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:982
static int plgescCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:2360
static int plcpstrmCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:806
static int plgvpwCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:3099
static int plboxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:347
static int plstringCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:6495
static int plgverCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:2981
static int plscmap1laCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:5010
static int plgdioriCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:2241
static int plsescCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:5764
static int plcol1Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:704
static int pladvCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:94
static int plscmap1nCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:5095
static int plgcol0Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:1795
static int plvstaCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:7227
static int plspal1Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:6196
static int plstripdCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:6669
static int plw3dCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:7266
static int plmtex3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:3906
static int plpstyCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:4312
static int plline3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:3706
static int plfillCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:1441
static int plpoly3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:4190
static int pllineCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:3647
static int plsxaxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:6816
static int plgcolbgaCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:2004
static int plcalc_worldCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:554
static int plhlsrgbCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:3399
static int plxormodCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:7415
static int plsstrmCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:6280
static int plspauseCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:6239
static int plstartCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:6450
static int pleopCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:1235
static int plaxesCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:192
static int plgcolbgCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:1940
static int plscolbgaCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:5320
static int plreplotCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:4465
static int plstarCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:6407
static int plinitCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:3471
static int plscompressionCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:5408
static int plscmap1lCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:4930
static int plscmap1Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:4797
static int plenvCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:1133
static int plbtimeCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:461
static int plfill3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:1500
static int plgvpdCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:3026
static int plvpasCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:7131
static int plcol0Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:663
static int pllabCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:3557
static int plpathCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:4014
static int plgfnamCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:2516
static int plseedCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:5723
static int pllightsourceCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:3602
static int plctimeCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:849
static int pltextCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:7010
static int plsfamCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:5805
static int plpoin3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:4124
static int plrgbhlsCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:4504
static int plendCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:1055
static int plsvpaCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:6769
static int pllstyCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:3770
static int plbopCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:308
static int plptexCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:4353
static int plssubCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:6321
static int pltimefmtCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:7049
static int plfontldCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:1644
static int pl_setcontlabelformatCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:4
static int plsyaxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:6859
static int plgfciCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:2470
static int plgraCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:2762
static int plstring3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:6556
static int plsmajCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:5977
static int plwidthCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:7327
static int plgstrmCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:2935
static int plsfontCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:5932
static int plgzaxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:3282
static int plgyaxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:3227
static int plsfciCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:5850
static int plgpageCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:2671
static int plpoinCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:4063
static int plgdevCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:2123
static int plpatCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:3955
static int plgfontCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:2561
static int plscmap0nCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:4756
static int plscolorCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:5367
static int plprecCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:4269
static int plflushCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:1564
static int plsdioriCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:5588
static int plscolbgCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:5275
static int plstylCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:6710
static int plbox3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:398
static int plsoriCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:6063
static int plhistCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:3337
static int plschrCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:4576
static int plvporCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:7180
static int plerrxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:1274
static int plgdidevCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:2168
static int plglevelCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:2625
static int plszaxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:6967
static int plsfnamCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:5891
static int plptex3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:4404
static int pl_setcontlabelparamCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:47
static int plsdidevCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:5490
static int plstripaCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:6622
static int plconfigtimeCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:745
static int plscmap1aCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:4861
static int plscmap0aCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:4683
static int plbinCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:247
static int plgspaCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:2862
static int plvaspCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:7090
static int plscmap1_rangeCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:5136
static int plmtexCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:3857
static int plerryCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:1338
static int plssymCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:6364
static int plclearCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:624
static int plgcompressionCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:2077
static int plsminCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:6020
static int plsdiplzCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:5676
static int plsdimapCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:5537
static int plgdipltCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:2287
static int plarcCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:137
static int plwindCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:7368
static int plsdipltCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:5629
static int plspageCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:6104
static int plfamadvCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:1402
static int plsdevCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:5449
static int plfontCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:1603
static int plscol0Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:5179
static int plenv0Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:1184
static int plgradientCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:2801
static int plgxaxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:3172
static int plgchrCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:1685
static int plscol0aCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:5226
static int plgfamCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:2406
static int plscmap0Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:4619
static int plspal0Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:6155
static int plgcmap1_rangeCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:1740
static int plsymCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:6906
static int plmkstrmCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:3811
static int plend1Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:1094
static int pldid2pcCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:909
static int plgcol0aCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition tclgen.c:1863
static Tcl_Interp * interp
Definition tkMain.c:120