PLplot  5.13.0
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros
tclgen.c
Go to the documentation of this file.
1 // The pl_setcontlabelformatCmd interface routine which processes the pl_setcontlabelformat Tcl command.
2 
3 static int
4 pl_setcontlabelformatCmd( ClientData PL_UNUSED( clientData ), Tcl_Interp *interp, int argc, const char *argv[] )
5 {
6  PLINT lexp;
7  PLINT sigprec;
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 
32  pl_setcontlabelformat ( lexp, sigprec );
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 
46 static int
47 pl_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 
93 static int
94 pladvCmd( 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 
136 static int
137 plarcCmd( 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 
191 static int
192 plaxesCmd( 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 
246 static int
247 plbinCmd( 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 
307 static int
308 plbopCmd( 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 
346 static int
347 plboxCmd( 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 
397 static int
398 plbox3Cmd( 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 
460 static int
461 plbtimeCmd( 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 
553 static int
554 plcalc_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 
623 static int
624 plclearCmd( 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 
662 static int
663 plcol0Cmd( 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 
703 static int
704 plcol1Cmd( 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 
744 static int
745 plconfigtimeCmd( 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 
805 static int
806 plcpstrmCmd( 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 
848 static int
849 plctimeCmd( 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 
908 static int
909 pldid2pcCmd( 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 
981 static int
982 pldip2dcCmd( 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 
1054 static int
1055 plendCmd( 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 
1093 static int
1094 plend1Cmd( 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 
1132 static int
1133 plenvCmd( 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 
1183 static int
1184 plenv0Cmd( 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 
1234 static int
1235 pleopCmd( 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 
1273 static int
1274 plerrxCmd( 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 
1337 static int
1338 plerryCmd( 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 
1401 static int
1402 plfamadvCmd( 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 
1440 static int
1441 plfillCmd( 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 
1499 static int
1500 plfill3Cmd( 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 
1563 static int
1564 plflushCmd( 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 
1602 static int
1603 plfontCmd( 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 
1643 static int
1644 plfontldCmd( 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 
1684 static int
1685 plgchrCmd( 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 
1739 static int
1740 plgcmap1_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 
1794 static int
1795 plgcol0Cmd( 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 
1862 static int
1863 plgcol0aCmd( 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 
1939 static int
1940 plgcolbgCmd( 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 
2003 static int
2004 plgcolbgaCmd( 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 
2076 static int
2077 plgcompressionCmd( 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 
2122 static int
2123 plgdevCmd( 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 
2167 static int
2168 plgdidevCmd( 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 
2240 static int
2241 plgdioriCmd( 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 
2286 static int
2287 plgdipltCmd( 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 
2359 static int
2360 plgescCmd( 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 
2405 static int
2406 plgfamCmd( 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 
2469 static int
2470 plgfciCmd( 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 
2515 static int
2516 plgfnamCmd( 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 
2560 static int
2561 plgfontCmd( 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 
2624 static int
2625 plglevelCmd( 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 
2670 static int
2671 plgpageCmd( 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 
2761 static int
2762 plgraCmd( 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 
2800 static int
2801 plgradientCmd( 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 
2861 static int
2862 plgspaCmd( 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 
2934 static int
2935 plgstrmCmd( 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 
2980 static int
2981 plgverCmd( 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 
3025 static int
3026 plgvpdCmd( 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 
3098 static int
3099 plgvpwCmd( 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 
3171 static int
3172 plgxaxCmd( 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 
3226 static int
3227 plgyaxCmd( 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 
3281 static int
3282 plgzaxCmd( 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 
3336 static int
3337 plhistCmd( 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 
3398 static int
3399 plhlsrgbCmd( 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 
3470 static int
3471 plinitCmd( 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 
3509 static int
3510 pljoinCmd( 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 
3556 static int
3557 pllabCmd( 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 
3601 static int
3602 pllightsourceCmd( 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 
3646 static int
3647 pllineCmd( 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 
3705 static int
3706 plline3Cmd( 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 
3769 static int
3770 pllstyCmd( 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 
3810 static int
3811 plmkstrmCmd( 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 
3856 static int
3857 plmtexCmd( 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 
3905 static int
3906 plmtex3Cmd( 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 
3954 static int
3955 plpatCmd( 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 
4013 static int
4014 plpathCmd( 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 
4062 static int
4063 plpoinCmd( 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 
4123 static int
4124 plpoin3Cmd( 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 
4189 static int
4190 plpoly3Cmd( 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 
4268 static int
4269 plprecCmd( 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 
4311 static int
4312 plpstyCmd( 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 
4352 static int
4353 plptexCmd( 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 
4403 static int
4404 plptex3Cmd( 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 
4464 static int
4465 plreplotCmd( 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 
4503 static int
4504 plrgbhlsCmd( 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 
4575 static int
4576 plschrCmd( 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 
4618 static int
4619 plscmap0Cmd( 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 
4682 static int
4683 plscmap0aCmd( 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 
4755 static int
4756 plscmap0nCmd( 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 
4796 static int
4797 plscmap1Cmd( 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 
4860 static int
4861 plscmap1aCmd( 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 
4929 static int
4930 plscmap1lCmd( 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 
5009 static int
5010 plscmap1laCmd( 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 
5094 static int
5095 plscmap1nCmd( 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 
5135 static int
5136 plscmap1_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 
5178 static int
5179 plscol0Cmd( 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 
5225 static int
5226 plscol0aCmd( 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 
5274 static int
5275 plscolbgCmd( 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 
5319 static int
5320 plscolbgaCmd( 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 
5366 static int
5367 plscolorCmd( 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 
5407 static int
5408 plscompressionCmd( 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 
5448 static int
5449 plsdevCmd( 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 
5489 static int
5490 plsdidevCmd( 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 
5536 static int
5537 plsdimapCmd( 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 
5587 static int
5588 plsdioriCmd( 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 
5628 static int
5629 plsdipltCmd( 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 
5675 static int
5676 plsdiplzCmd( 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 
5722 static int
5723 plseedCmd( 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 
5763 static int
5764 plsescCmd( 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 
5804 static int
5805 plsfamCmd( 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 
5849 static int
5850 plsfciCmd( 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 
5890 static int
5891 plsfnamCmd( 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 
5931 static int
5932 plsfontCmd( 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 
5976 static int
5977 plsmajCmd( 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 
6019 static int
6020 plsminCmd( 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 
6062 static int
6063 plsoriCmd( 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 
6103 static int
6104 plspageCmd( 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 
6154 static int
6155 plspal0Cmd( 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 
6195 static int
6196 plspal1Cmd( 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 
6238 static int
6239 plspauseCmd( 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 
6279 static int
6280 plsstrmCmd( 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 
6320 static int
6321 plssubCmd( 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 
6363 static int
6364 plssymCmd( 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 
6406 static int
6407 plstarCmd( 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 
6449 static int
6450 plstartCmd( 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 
6494 static int
6495 plstringCmd( 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 
6555 static int
6556 plstring3Cmd( 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 
6621 static int
6622 plstripaCmd( 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 
6668 static int
6669 plstripdCmd( 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 
6709 static int
6710 plstylCmd( 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 
6768 static int
6769 plsvpaCmd( 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 
6815 static int
6816 plsxaxCmd( 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 
6858 static int
6859 plsyaxCmd( 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 
6905 static int
6906 plsymCmd( 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 
6966 static int
6967 plszaxCmd( 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 
7009 static int
7010 pltextCmd( 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 
7048 static int
7049 pltimefmtCmd( 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 
7089 static int
7090 plvaspCmd( 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 
7130 static int
7131 plvpasCmd( 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 
7179 static int
7180 plvporCmd( 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 
7226 static int
7227 plvstaCmd( 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 
7265 static int
7266 plw3dCmd( 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 
7326 static int
7327 plwidthCmd( 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 
7367 static int
7368 plwindCmd( 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 
7414 static int
7415 plxormodCmd( 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 
pllstyCmd
static int pllstyCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:3770
plscmap1Cmd
static int plscmap1Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:4797
plmkstrmCmd
static int plmkstrmCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:3811
plsfam
#define plsfam
Definition: plplot.h:819
plw3d
#define plw3d
Definition: plplot.h:864
plgfamCmd
static int plgfamCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:2406
plpath
#define plpath
Definition: plplot.h:760
argv
static char ** argv
Definition: qt.cpp:40
plgxax
#define plgxax
Definition: plplot.h:744
plgesc
void plgesc(char *p_esc)
Definition: plcore.c:3893
plsstrm
#define plsstrm
Definition: plplot.h:837
pllightsourceCmd
static int pllightsourceCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:3602
plerryCmd
static int plerryCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:1338
plptex3Cmd
static int plptex3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:4404
plspage
#define plspage
Definition: plplot.h:833
plvpor
#define plvpor
Definition: plplot.h:862
plhlsrgbCmd
static int plhlsrgbCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:3399
plmtex3
#define plmtex3
Definition: plplot.h:773
plerry
#define plerry
Definition: plplot.h:712
plsyax
#define plsyax
Definition: plplot.h:854
plsdidevCmd
static int plsdidevCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:5490
plschr
#define plschr
Definition: plplot.h:793
plsdev
#define plsdev
Definition: plplot.h:810
plgdev
#define plgdev
Definition: plplot.h:725
plgfnamCmd
static int plgfnamCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:2516
min
int min(int a, int b)
Definition: plplot_octaveOCTAVE_wrap.cxx:2214
plgcolbgaCmd
static int plgcolbgaCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:2004
tclMatrix::n
int n[MAX_ARRAY_DIM]
Definition: tclMatrix.h:71
plvaspCmd
static int plvaspCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:7090
pldid2pc
void pldid2pc(PLFLT *xmin, PLFLT *ymin, PLFLT *xmax, PLFLT *ymax)
Definition: plcore.c:1667
plscompression
#define plscompression
Definition: plplot.h:809
plscompressionCmd
static int plscompressionCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:5408
plarc
#define plarc
Definition: plplot.h:690
PLUNICODE
PLUINT PLUNICODE
Definition: plplot.h:194
plgstrmCmd
static int plgstrmCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:2935
plcpstrmCmd
static int plcpstrmCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:806
plsdimapCmd
static int plsdimapCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:5537
plscmap0nCmd
static int plscmap0nCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:4756
plgzaxCmd
static int plgzaxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:3282
pllsty
#define pllsty
Definition: plplot.h:762
Tcl_GetMatrixPtr
tclMatrix * Tcl_GetMatrixPtr(Tcl_Interp *interp, const char *matName)
Definition: tclMatrix.c:424
plspal1Cmd
static int plspal1Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:6196
plsmin
#define plsmin
Definition: plplot.h:830
plwind
#define plwind
Definition: plplot.h:869
plclear
#define plclear
Definition: plplot.h:698
plfill
#define plfill
Definition: plplot.h:714
plconfigtime
#define plconfigtime
Definition: plplot.h:702
argc
static int argc
Definition: qt.cpp:39
plvporCmd
static int plvporCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:7180
plbtime
#define plbtime
Definition: plplot.h:696
plaxesCmd
static int plaxesCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:192
pl_setcontlabelparam
#define pl_setcontlabelparam
Definition: plplot.h:688
plscmap1aCmd
static int plscmap1aCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:4861
plreplotCmd
static int plreplotCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:4465
plscolbg
#define plscolbg
Definition: plplot.h:806
plscmap0aCmd
static int plscmap0aCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:4683
plfont
#define plfont
Definition: plplot.h:717
plstyl
#define plstyl
Definition: plplot.h:848
plschrCmd
static int plschrCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:4576
plpoly3
#define plpoly3
Definition: plplot.h:781
plfontld
#define plfontld
Definition: plplot.h:718
plstringCmd
static int plstringCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:6495
plscolbga
#define plscolbga
Definition: plplot.h:807
plbin
#define plbin
Definition: plplot.h:692
plsdiori
#define plsdiori
Definition: plplot.h:813
plgverCmd
static int plgverCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:2981
plsym
#define plsym
Definition: plplot.h:855
plsminCmd
static int plsminCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:6020
plscmap1
#define plscmap1
Definition: plplot.h:797
plinit
#define plinit
Definition: plplot.h:754
plgcmap1_rangeCmd
static int plgcmap1_rangeCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:1740
plgfontCmd
static int plgfontCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:2561
plctime
#define plctime
Definition: plplot.h:705
pltimefmt
#define pltimefmt
Definition: plplot.h:858
plscmap1n
#define plscmap1n
Definition: plplot.h:801
pldip2dc
void pldip2dc(PLFLT *xmin, PLFLT *ymin, PLFLT *xmax, PLFLT *ymax)
Definition: plcore.c:1713
plbop
#define plbop
Definition: plplot.h:693
plvpasCmd
static int plvpasCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:7131
plgradientCmd
static int plgradientCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:2801
plsescCmd
static int plsescCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:5764
plsdiplt
#define plsdiplt
Definition: plplot.h:814
plctimeCmd
static int plctimeCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:849
plscmap1a
#define plscmap1a
Definition: plplot.h:798
plssub
#define plssub
Definition: plplot.h:838
plgpageCmd
static int plgpageCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:2671
plpoly3Cmd
static int plpoly3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:4190
plspal1
#define plspal1
Definition: plplot.h:835
plgcompression
#define plgcompression
Definition: plplot.h:724
plszax
#define plszax
Definition: plplot.h:856
plvsta
#define plvsta
Definition: plplot.h:863
plgescCmd
static int plgescCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:2360
plgpage
#define plgpage
Definition: plplot.h:735
plaxes
#define plaxes
Definition: plplot.h:691
plsori
#define plsori
Definition: plplot.h:832
plgxaxCmd
static int plgxaxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:3172
plline3Cmd
static int plline3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:3706
plscol0Cmd
static int plscol0Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:5179
plgdiplt
#define plgdiplt
Definition: plplot.h:728
plscmap0a
#define plscmap0a
Definition: plplot.h:795
plfamadv
#define plfamadv
Definition: plplot.h:713
plcol1Cmd
static int plcol1Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:704
plstarCmd
static int plstarCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:6407
plend
#define plend
Definition: plplot.h:706
plscmap1laCmd
static int plscmap1laCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:5010
plglevelCmd
static int plglevelCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:2625
plbinCmd
static int plbinCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:247
plgfont
#define plgfont
Definition: plplot.h:733
plprecCmd
static int plprecCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:4269
plend1
#define plend1
Definition: plplot.h:707
PLINT
int PLINT
Definition: plplot.h:174
plenv0
#define plenv0
Definition: plplot.h:709
plgdiori
#define plgdiori
Definition: plplot.h:727
plgcol0aCmd
static int plgcol0aCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:1863
plssym
#define plssym
Definition: plplot.h:839
pljoin
#define pljoin
Definition: plplot.h:755
plgzax
#define plgzax
Definition: plplot.h:746
plendCmd
static int plendCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:1055
plpoin3Cmd
static int plpoin3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:4124
plgfam
#define plgfam
Definition: plplot.h:730
plssymCmd
static int plssymCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:6364
plgdidev
#define plgdidev
Definition: plplot.h:726
plxormodCmd
static int plxormodCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:7415
plstar
#define plstar
Definition: plplot.h:840
plgdidevCmd
static int plgdidevCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:2168
plenvCmd
static int plenvCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:1133
plsdipltCmd
static int plsdipltCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:5629
plcpstrm
#define plcpstrm
Definition: plplot.h:704
plcalc_world
#define plcalc_world
Definition: plplot.h:697
plsfnam
#define plsfnam
Definition: plplot.h:821
plhist
#define plhist
Definition: plplot.h:747
pladvCmd
static int pladvCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:94
plgspaCmd
static int plgspaCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:2862
plend1Cmd
static int plend1Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:1094
tclMatrix::fdata
Mat_float * fdata
Definition: tclMatrix.h:76
plenv0Cmd
static int plenv0Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:1184
plpoinCmd
static int plpoinCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:4063
plgchr
#define plgchr
Definition: plplot.h:719
plsdidev
#define plsdidev
Definition: plplot.h:811
plspal0
#define plspal0
Definition: plplot.h:834
plgcompressionCmd
static int plgcompressionCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:2077
plscmap1lCmd
static int plscmap1lCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:4930
plfill3
#define plfill3
Definition: plplot.h:715
plmtex3Cmd
static int plmtex3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:3906
plseed
#define plseed
Definition: plplot.h:816
plfillCmd
static int plfillCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:1441
plstring
#define plstring
Definition: plplot.h:843
plsdioriCmd
static int plsdioriCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:5588
plbox3Cmd
static int plbox3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:398
plfontCmd
static int plfontCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:1603
pl_errcode
static PLINT pl_errcode
Definition: tclAPI.c:157
plscmap1nCmd
static int plscmap1nCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:5095
plscmap1la
#define plscmap1la
Definition: plplot.h:800
plgfnam
#define plgfnam
Definition: plplot.h:732
plsxax
#define plsxax
Definition: plplot.h:853
plstart
#define plstart
Definition: plplot.h:841
pleop
#define pleop
Definition: plplot.h:710
plrgbhlsCmd
static int plrgbhlsCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:4504
plgyaxCmd
static int plgyaxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:3227
plhlsrgb
#define plhlsrgb
Definition: plplot.h:751
plvstaCmd
static int plvstaCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:7227
plsmaj
#define plsmaj
Definition: plplot.h:827
plbtimeCmd
static int plbtimeCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:461
pldip2dcCmd
static int pldip2dcCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:982
plscolorCmd
static int plscolorCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:5367
plsvpaCmd
static int plsvpaCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:6769
plflushCmd
static int plflushCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:1564
plcol1
#define plcol1
Definition: plplot.h:700
tclMatrix::idata
Mat_int * idata
Definition: tclMatrix.h:77
pllab
#define pllab
Definition: plplot.h:756
pllightsource
#define pllightsource
Definition: plplot.h:758
plbox
#define plbox
Definition: plplot.h:694
pl_setcontlabelformat
pl_setcontlabelformat
Definition: tclgen_s.h:1
plboxCmd
static int plboxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:347
plpatCmd
static int plpatCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:3955
plspauseCmd
static int plspauseCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:6239
pltext
#define pltext
Definition: plplot.h:857
plwidth
#define plwidth
Definition: plplot.h:868
plsfontCmd
static int plsfontCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:5932
plgver
#define plgver
Definition: plplot.h:741
plgvpdCmd
static int plgvpdCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:3026
plgdipltCmd
static int plgdipltCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:2287
plscol0a
#define plscol0a
Definition: plplot.h:805
plptex3
#define plptex3
Definition: plplot.h:785
plclearCmd
static int plclearCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:624
plbopCmd
static int plbopCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:308
plsdiplz
#define plsdiplz
Definition: plplot.h:815
buf
static char buf[200]
Definition: tclAPI.c:873
plstring3Cmd
static int plstring3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:6556
plpstyCmd
static int plpstyCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:4312
plspause
#define plspause
Definition: plplot.h:836
plgvpwCmd
static int plgvpwCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:3099
plsstrmCmd
static int plsstrmCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:6280
plline3
#define plline3
Definition: plplot.h:761
plstripd
#define plstripd
Definition: plplot.h:847
plgfci
#define plgfci
Definition: plplot.h:731
plgspa
#define plgspa
Definition: plplot.h:739
plgcolbg
#define plgcolbg
Definition: plplot.h:722
plscol0aCmd
static int plscol0aCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:5226
plstripa
#define plstripa
Definition: plplot.h:845
plwidthCmd
static int plwidthCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:7327
plstring3
#define plstring3
Definition: plplot.h:844
plsymCmd
static int plsymCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:6906
plvpas
#define plvpas
Definition: plplot.h:861
plscolbgaCmd
static int plscolbgaCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:5320
plarcCmd
static int plarcCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:137
plsfont
#define plsfont
Definition: plplot.h:822
tclMatrix::type
int type
Definition: tclMatrix.h:64
plstripdCmd
static int plstripdCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:6669
plscolbgCmd
static int plscolbgCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:5275
plpsty
#define plpsty
Definition: plplot.h:783
plseedCmd
static int plseedCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:5723
plsoriCmd
static int plsoriCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:6063
pl_setcontlabelparamCmd
static int pl_setcontlabelparamCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:47
plgvpd
#define plgvpd
Definition: plplot.h:742
plpoin
#define plpoin
Definition: plplot.h:779
plgvpw
#define plgvpw
Definition: plplot.h:743
plw3dCmd
static int plw3dCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:7266
plhistCmd
static int plhistCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:3337
plsmajCmd
static int plsmajCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:5977
plsdiplzCmd
static int plsdiplzCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:5676
plstripaCmd
static int plstripaCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:6622
plgfciCmd
static int plgfciCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:2470
plspageCmd
static int plspageCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:6104
plmkstrm
#define plmkstrm
Definition: plplot.h:771
PL_UNUSED
#define PL_UNUSED(x)
Definition: plplot.h:128
plstartCmd
static int plstartCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:6450
PLFLT
float PLFLT
Definition: plplot.h:157
plscol0
#define plscol0
Definition: plplot.h:804
plxormod
#define plxormod
Definition: plplot.h:870
plsdevCmd
static int plsdevCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:5449
plflush
#define plflush
Definition: plplot.h:716
plerrx
#define plerrx
Definition: plplot.h:711
plgcol0a
#define plgcol0a
Definition: plplot.h:721
pllineCmd
static int pllineCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:3647
plsxaxCmd
static int plsxaxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:6816
plgcolbga
#define plgcolbga
Definition: plplot.h:723
plgyax
#define plgyax
Definition: plplot.h:745
plsesc
#define plsesc
Definition: plplot.h:817
plcol0Cmd
static int plcol0Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:663
plenv
#define plenv
Definition: plplot.h:708
plerrxCmd
static int plerrxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:1274
plgcol0Cmd
static int plgcol0Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:1795
plgcmap1_range
#define plgcmap1_range
Definition: plplot.h:803
plcol0
#define plcol0
Definition: plplot.h:699
plbox3
#define plbox3
Definition: plplot.h:695
plstylCmd
static int plstylCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:6710
plgchrCmd
static int plgchrCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:1685
plssubCmd
static int plssubCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:6321
plwindCmd
static int plwindCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:7368
pldid2pcCmd
static int pldid2pcCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:909
plfontldCmd
static int plfontldCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:1644
plfamadvCmd
static int plfamadvCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:1402
plsyaxCmd
static int plsyaxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:6859
plglevel
#define plglevel
Definition: plplot.h:734
plpoin3
#define plpoin3
Definition: plplot.h:780
plgraCmd
static int plgraCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:2762
pllabCmd
static int pllabCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:3557
plscmap0n
#define plscmap0n
Definition: plplot.h:796
plscolor
#define plscolor
Definition: plplot.h:808
plscmap0Cmd
static int plscmap0Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:4619
plsvpa
#define plsvpa
Definition: plplot.h:852
pleopCmd
static int pleopCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:1235
plgcolbgCmd
static int plgcolbgCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:1940
plpat
#define plpat
Definition: plplot.h:778
plsfamCmd
static int plsfamCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:5805
plscmap1_range
#define plscmap1_range
Definition: plplot.h:802
plszaxCmd
static int plszaxCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:6967
plgcol0
#define plgcol0
Definition: plplot.h:720
plreplot
#define plreplot
Definition: plplot.h:787
pltimefmtCmd
static int pltimefmtCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:7049
interp
static Tcl_Interp * interp
Definition: tkMain.c:120
errmsg
static char errmsg[160]
Definition: tclAPI.c:158
plpathCmd
static int plpathCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:4014
plscmap1l
#define plscmap1l
Definition: plplot.h:799
plprec
#define plprec
Definition: plplot.h:782
plptex
#define plptex
Definition: plplot.h:784
plinitCmd
static int plinitCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:3471
plline
#define plline
Definition: plplot.h:759
plsfciCmd
static int plsfciCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:5850
plgradient
#define plgradient
Definition: plplot.h:737
pljoinCmd
static int pljoinCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:3510
pladv
#define pladv
Definition: plplot.h:689
plvasp
#define plvasp
Definition: plplot.h:859
plconfigtimeCmd
static int plconfigtimeCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:745
plspal0Cmd
static int plspal0Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:6155
plscmap0
#define plscmap0
Definition: plplot.h:794
pl_setcontlabelformatCmd
static int pl_setcontlabelformatCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:4
plgstrm
#define plgstrm
Definition: plplot.h:740
sigprec
static PLINT sigprec
Definition: plcont.c:91
plsfci
#define plsfci
Definition: plplot.h:820
plptexCmd
static int plptexCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:4353
plfill3Cmd
static int plfill3Cmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:1500
plgdevCmd
static int plgdevCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:2123
plmtex
#define plmtex
Definition: plplot.h:772
plrgbhls
#define plrgbhls
Definition: plplot.h:792
plgra
#define plgra
Definition: plplot.h:736
plsdimap
#define plsdimap
Definition: plplot.h:812
plsfnamCmd
static int plsfnamCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:5891
plgdioriCmd
static int plgdioriCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:2241
plmtexCmd
static int plmtexCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:3857
plcallback::fill
PLDLLIMPEXP_CXX void fill(PLINT n, const PLFLT *x, const PLFLT *y)
Definition: plstream.cc:240
pltextCmd
static int pltextCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:7010
plscmap1_rangeCmd
static int plscmap1_rangeCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:5136
plcalc_worldCmd
static int plcalc_worldCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char *argv[])
Definition: tclgen.c:554