1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
|
; docformat = 'rst'
;
; NAME:
; cgGraphicsKeywords__Define
;
; PURPOSE:
; Provides an object interface to handle IDL direct graphics plotting keywords. Basically,
; any graphics keyword that is common to IDL plotting routines (e.g. Plot, Contour,
; Surface, etc.) is supported here.
;
;******************************************************************************************;
; ;
; Copyright (c) 2012, by Fanning Software Consulting, Inc. All rights reserved. ;
; ;
; Redistribution and use in source and binary forms, with or without ;
; modification, are permitted provided that the following conditions are met: ;
; ;
; * Redistributions of source code must retain the above copyright ;
; notice, this list of conditions and the following disclaimer. ;
; * Redistributions in binary form must reproduce the above copyright ;
; notice, this list of conditions and the following disclaimer in the ;
; documentation and/or other materials provided with the distribution. ;
; * Neither the name of Fanning Software Consulting, Inc. nor the names of its ;
; contributors may be used to endorse or promote products derived from this ;
; software without specific prior written permission. ;
; ;
; THIS SOFTWARE IS PROVIDED BY FANNING SOFTWARE CONSULTING, INC. ''AS IS'' AND ANY ;
; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES ;
; OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT ;
; SHALL FANNING SOFTWARE CONSULTING, INC. BE LIABLE FOR ANY DIRECT, INDIRECT, ;
; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED ;
; TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; ;
; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ;
; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ;
; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS ;
; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ;
;******************************************************************************************;
;
;+
; Provides an object interface to handle IDL direct graphics plotting keywords. Basically,
; any graphics keyword that is common to IDL plotting routines (e.g. Plot, Contour,
; Surface, etc.) is supported here. See the IDL documentation for "Graphics Keywords for
; a complete list.
;
; The program requires the `Coyote Library <http://www.idlcoyote.com/documents/programs.php>`
; to be installed on your machine.
;
; :Categories:
; Graphics
;
; :Author:
; FANNING SOFTWARE CONSULTING::
; David W. Fanning
; 1645 Sheely Drive
; Fort Collins, CO 80526 USA
; Phone: 970-221-0438
; E-mail: david@idlcoyote.com
; Coyote's Guide to IDL Programming: http://www.idlcoyote.com
;
; :History:
; Change History::
; Written, 16 May 2012, by David W. Fanning.
; Added missing LINESTYLE keyword. 22 May 2012. DWF.
; BIG problem in the way I was handling the PSYM keyword solved! 18 July 2012. DWF.
;
; :Copyright:
; Copyright (c) 2012, Fanning Software Consulting, Inc.
;-
;+
; This method initializes the object. Any "graphics keyword" that falls under
; the IDL definition is allowed. Plus, there are a few "Coyote Graphics" specific
; keywords (e.g., AXISCOLOR) that are not allowed in normal IDL plotting routines.
; Colors are handled in the Coyote Graphics way, as color names, primarily.
;-
FUNCTION cgGraphicsKeywords::INIT, $
AXISCOLOR=axiscolor, $
BACKGROUND=background, $
CHARSIZE=charsize, $
CHARTHICK=charthick, $
CLIP=clip, $
COLOR=color, $
DATA=data, $
DEVICE=device, $
LINESTYLE=linestyle, $
NORMAL=normal, $
FONT=font, $
NOCLIP=noclip, $
NODATA=nodata, $
NOERASE=noerase, $
POSITION=position, $
PSYM=psym, $
SUBTITLE=subtitle, $
SYMSIZE=symsize, $
T3D=t3d, $
THICK=thick, $
TICKLEN=ticklen, $
TITLE=title, $
XCHARSIZE=xcharsize, $
XGRIDSTYLE=xgridstyle, $
XMARGIN=xmargin, $
XMINOR=xminor, $
XRANGE=xrange, $
XSTYLE=xstyle, $
XTHICK=xthick, $
XTICK_GET=xtick_get, $
XTICKFORMAT=xtickformat, $
XTICKINTERVAL=xtickinterval, $
XTICKLAYOUT=xticklayout, $
XTICKLEN=xticklen, $
XTICKNAME=xtickname, $
XTICKS=xticks, $
XTICKUNITS=xtickunits, $
XTICKV=xtickv, $
XTITLE=xtitle, $
YCHARSIZE=ycharsize, $
YGRIDSTYLE=ygridstyle, $
YMARGIN=ymargin, $
YMINOR=yminor, $
YRANGE=yrange, $
YSTYLE=ystyle, $
YTHICK=ythick, $
YTICK_GET=ytick_get, $
YTICKFORMAT=ytickformat, $
YTICKINTERVAL=ytickinterval, $
YTICKLAYOUT=yticklayout, $
YTICKLEN=yticklen, $
YTICKNAME=ytickname, $
YTICKS=yticks, $
YTICKUNITS=ytickunits, $
YTICKV=ytickv, $
YTITLE=ytitle, $
ZCHARSIZE=zcharsize, $
ZGRIDSTYLE=zgridstyle, $
ZMARGIN=zmargin, $
ZMINOR=zminor, $
ZRANGE=zrange, $
ZSTYLE=zstyle, $
ZTHICK=zthick, $
ZTICK_GET=ztick_get, $
ZTICKFORMAT=ztickformat, $
ZTICKINTERVAL=ztickinterval, $
ZTICKLAYOUT=zticklayout, $
ZTICKLEN=zticklen, $
ZTICKNAME=ztickname, $
ZTICKS=zticks, $
ZTICKUNITS=ztickunits, $
ZTICKV=ztickv, $
ZTITLE=ztitle, $
ZVALUE=zvalue
Catch, theError
IF theError NE 0 THEN BEGIN
void = cgErrorMsg()
RETURN, 0
ENDIF
; Default values.
IF N_Elements(background) EQ 0 THEN background = 'white'
IF N_Elements(axiscolor) EQ 0 THEN axiscolor = 'opposite'
IF N_Elements(color) EQ 0 THEN color = 'opposite'
IF N_Elements(charsize) EQ 0 THEN charsize = cgDefCharSize(FONT=!P.Font)
; Allocate heap for variables.
self.axiscolor = Ptr_New(/Allocate_Heap)
self.background = Ptr_New(/Allocate_Heap)
self.charsize = Ptr_New(/Allocate_Heap)
self.charthick = Ptr_New(/Allocate_Heap)
self.clip = Ptr_New(/Allocate_Heap)
self.color = Ptr_New(/Allocate_Heap)
self.data = Ptr_New(/Allocate_Heap)
self.device = Ptr_New(/Allocate_Heap)
self.font = Ptr_New(/Allocate_Heap)
self.linestyle = Ptr_New(/Allocate_Heap)
self.normal = Ptr_New(/Allocate_Heap)
self.noclip = Ptr_New(/Allocate_Heap)
self.nodata = Ptr_New(/Allocate_Heap)
self.noerase = Ptr_New(/Allocate_Heap)
self.position = Ptr_New(/Allocate_Heap)
self.psym = Ptr_New(/Allocate_Heap)
self.subtitle = Ptr_New(/Allocate_Heap)
self.symsize = Ptr_New(/Allocate_Heap)
self.t3d = Ptr_New(/Allocate_Heap)
self.thick = Ptr_New(/Allocate_Heap)
self.ticklen = Ptr_New(/Allocate_Heap)
self.title = Ptr_New(/Allocate_Heap)
self.xcharsize = Ptr_New(/Allocate_Heap)
self.xgridstyle = Ptr_New(/Allocate_Heap)
self.xmargin = Ptr_New(/Allocate_Heap)
self.xminor = Ptr_New(/Allocate_Heap)
self.xrange = Ptr_New(/Allocate_Heap)
self.xstyle = Ptr_New(/Allocate_Heap)
self.xthick = Ptr_New(/Allocate_Heap)
self.xtick_get = Ptr_New(/Allocate_Heap)
self.xtickformat = Ptr_New(/Allocate_Heap)
self.xtickinterval = Ptr_New(/Allocate_Heap)
self.xticklayout = Ptr_New(/Allocate_Heap)
self.xticklen = Ptr_New(/Allocate_Heap)
self.xtickname = Ptr_New(/Allocate_Heap)
self.xticks = Ptr_New(/Allocate_Heap)
self.xtickunits = Ptr_New(/Allocate_Heap)
self.xtickv = Ptr_New(/Allocate_Heap)
self.xtitle = Ptr_New(/Allocate_Heap)
self.ycharsize = Ptr_New(/Allocate_Heap)
self.ygridstyle = Ptr_New(/Allocate_Heap)
self.ymargin = Ptr_New(/Allocate_Heap)
self.yminor = Ptr_New(/Allocate_Heap)
self.yrange = Ptr_New(/Allocate_Heap)
self.ystyle = Ptr_New(/Allocate_Heap)
self.ythick = Ptr_New(/Allocate_Heap)
self.ytick_get = Ptr_New(/Allocate_Heap)
self.ytickformat = Ptr_New(/Allocate_Heap)
self.ytickinterval = Ptr_New(/Allocate_Heap)
self.yticklayout = Ptr_New(/Allocate_Heap)
self.yticklen = Ptr_New(/Allocate_Heap)
self.ytickname = Ptr_New(/Allocate_Heap)
self.yticks = Ptr_New(/Allocate_Heap)
self.ytickunits = Ptr_New(/Allocate_Heap)
self.ytickv = Ptr_New(/Allocate_Heap)
self.ytitle = Ptr_New(/Allocate_Heap)
self.zcharsize = Ptr_New(/Allocate_Heap)
self.zgridstyle = Ptr_New(/Allocate_Heap)
self.zmargin = Ptr_New(/Allocate_Heap)
self.zminor = Ptr_New(/Allocate_Heap)
self.zrange = Ptr_New(/Allocate_Heap)
self.zstyle = Ptr_New(/Allocate_Heap)
self.zthick = Ptr_New(/Allocate_Heap)
self.ztick_get = Ptr_New(/Allocate_Heap)
self.ztickformat = Ptr_New(/Allocate_Heap)
self.ztickinterval = Ptr_New(/Allocate_Heap)
self.zticklayout = Ptr_New(/Allocate_Heap)
self.zticklen = Ptr_New(/Allocate_Heap)
self.ztickname = Ptr_New(/Allocate_Heap)
self.zticks = Ptr_New(/Allocate_Heap)
self.ztickunits = Ptr_New(/Allocate_Heap)
self.ztickv = Ptr_New(/Allocate_Heap)
self.ztitle = Ptr_New(/Allocate_Heap)
self.zvalue = Ptr_New(/Allocate_Heap)
; Set all the keywords.
self -> SetProperty, $
AXISCOLOR=axiscolor, $
BACKGROUND=background, $
CHARSIZE=charsize, $
CHARTHICK=charthick, $
CLIP=clip, $
COLOR=color, $
DATA=data, $
DEVICE=device, $
FONT=font, $
LINESTYLE=linestyle, $
NORMAL=normal, $
NOCLIP=noclip, $
NODATA=nodata, $
NOERASE=noerase, $
POSITION=position, $
PSYM=psym, $
SUBTITLE=subtitle, $
SYMSIZE=symsize, $
T3D=t3d, $
THICK=thick, $
TICKLEN=ticklen, $
TITLE=title, $
XCHARSIZE=xcharsize, $
XGRIDSTYLE=xgridstyle, $
XMARGIN=xmargin, $
XMINOR=xminor, $
XRANGE=xrange, $
XSTYLE=xstyle, $
XTHICK=xthick, $
XTICK_GET=xtick_get, $
XTICKFORMAT=xtickformat, $
XTICKINTERVAL=xtickinterval, $
XTICKLAYOUT=xticklayout, $
XTICKLEN=xticklen, $
XTICKNAME=xtickname, $
XTICKS=xticks, $
XTICKUNITS=xtickunits, $
XTICKV=xtickv, $
XTITLE=xtitle, $
YCHARSIZE=ycharsize, $
YGRIDSTYLE=ygridstyle, $
YMARGIN=ymargin, $
YMINOR=yminor, $
YRANGE=yrange, $
YSTYLE=ystyle, $
YTHICK=ythick, $
YTICK_GET=ytick_get, $
YTICKFORMAT=ytickformat, $
YTICKINTERVAL=ytickinterval, $
YTICKLAYOUT=yticklayout, $
YTICKLEN=yticklen, $
YTICKNAME=ytickname, $
YTICKS=yticks, $
YTICKUNITS=ytickunits, $
YTICKV=ytickv, $
YTITLE=ytitle, $
ZCHARSIZE=zcharsize, $
ZGRIDSTYLE=zgridstyle, $
ZMARGIN=zmargin, $
ZMINOR=zminor, $
ZRANGE=zrange, $
ZSTYLE=zstyle, $
ZTHICK=zthick, $
ZTICK_GET=ztick_get, $
ZTICKFORMAT=ztickformat, $
ZTICKINTERVAL=ztickinterval, $
ZTICKLAYOUT=zticklayout, $
ZTICKLEN=zticklen, $
ZTICKNAME=ztickname, $
ZTICKS=zticks, $
ZTICKUNITS=ztickunits, $
ZTICKV=ztickv, $
ZTITLE=ztitle, $
ZVALUE=zvalue
RETURN, 1
END
;+
; The clean-up method for the object. Nearly all keywords are stored as pointers
; that must be cleaned up here.
;-
PRO cgGraphicsKeywords::CLEANUP
Ptr_Free, self.axiscolor
Ptr_Free, self.background
Ptr_Free, self.charsize
Ptr_Free, self.charthick
Ptr_Free, self.clip
Ptr_Free, self.color
Ptr_Free, self.data
Ptr_Free, self.device
Ptr_Free, self.font
Ptr_Free, self.linestyle
Ptr_Free, self.normal
Ptr_Free, self.noclip
Ptr_Free, self.nodata
Ptr_Free, self.noerase
Ptr_Free, self.position
Ptr_Free, self.psym
Ptr_Free, self.subtitle
Ptr_Free, self.symsize
Ptr_Free, self.t3d
Ptr_Free, self.thick
Ptr_Free, self.ticklen
Ptr_Free, self.title
Ptr_Free, self.xcharsize
Ptr_Free, self.xgridstyle
Ptr_Free, self.xmargin
Ptr_Free, self.xminor
Ptr_Free, self.xrange
Ptr_Free, self.xstyle
Ptr_Free, self.xthick
Ptr_Free, self.xtick_get
Ptr_Free, self.xtickformat
Ptr_Free, self.xtickinterval
Ptr_Free, self.xticklayout
Ptr_Free, self.xticklen
Ptr_Free, self.xtickname
Ptr_Free, self.xticks
Ptr_Free, self.xtickunits
Ptr_Free, self.xtickv
Ptr_Free, self.xtitle
Ptr_Free, self.ycharsize
Ptr_Free, self.ygridstyle
Ptr_Free, self.ymargin
Ptr_Free, self.yminor
Ptr_Free, self.yrange
Ptr_Free, self.ystyle
Ptr_Free, self.ythick
Ptr_Free, self.ytick_get
Ptr_Free, self.ytickformat
Ptr_Free, self.ytickinterval
Ptr_Free, self.yticklayout
Ptr_Free, self.yticklen
Ptr_Free, self.ytickname
Ptr_Free, self.yticks
Ptr_Free, self.ytickunits
Ptr_Free, self.ytickv
Ptr_Free, self.ytitle
Ptr_Free, self.zcharsize
Ptr_Free, self.zgridstyle
Ptr_Free, self.zmargin
Ptr_Free, self.zminor
Ptr_Free, self.zrange
Ptr_Free, self.zstyle
Ptr_Free, self.zthick
Ptr_Free, self.ztick_get
Ptr_Free, self.ztickformat
Ptr_Free, self.ztickinterval
Ptr_Free, self.zticklayout
Ptr_Free, self.zticklen
Ptr_Free, self.ztickname
Ptr_Free, self.zticks
Ptr_Free, self.ztickunits
Ptr_Free, self.ztickv
Ptr_Free, self.ztitle
Ptr_Free, self.zvalue
END
;+
; The GetProperty method is the way graphics routines obtain the keyword values for
; the graphics keywords.
;-
PRO cgGraphicsKeywords::GetProperty, $
AXISCOLOR=axiscolor, $
BACKGROUND=background, $
CHARSIZE=charsize, $
CHARTHICK=charthick, $
CLIP=clip, $
COLOR=color, $
DATA=data, $
DEVICE=device, $
FONT=font, $
LINESTYLE=linestyle, $
NORMAL=normal, $
NOCLIP=noclip, $
NODATA=nodata, $
NOERASE=noerase, $
POSITION=position, $
PSYM=psym, $
SUBTITLE=subtitle, $
SYMSIZE=symsize, $
T3D=t3d, $
THICK=thick, $
TICKLEN=ticklen, $
TITLE=title, $
XCHARSIZE=xcharsize, $
XGRIDSTYLE=xgridstyle, $
XMARGIN=xmargin, $
XMINOR=xminor, $
XRANGE=xrange, $
XSTYLE=xstyle, $
XTHICK=xthick, $
XTICK_GET=xtick_get, $
XTICKFORMAT=xtickformat, $
XTICKINTERVAL=xtickinterval, $
XTICKLAYOUT=xticklayout, $
XTICKLEN=xticklen, $
XTICKNAME=xtickname, $
XTICKS=xticks, $
XTICKUNITS=xtickunits, $
XTICKV=xtickv, $
XTITLE=xtitle, $
YCHARSIZE=ycharsize, $
YGRIDSTYLE=ygridstyle, $
YMARGIN=ymargin, $
YMINOR=yminor, $
YRANGE=yrange, $
YSTYLE=ystyle, $
YTHICK=ythick, $
YTICK_GET=ytick_get, $
YTICKFORMAT=ytickformat, $
YTICKINTERVAL=ytickinterval, $
YTICKLAYOUT=yticklayout, $
YTICKLEN=yticklen, $
YTICKNAME=ytickname, $
YTICKS=yticks, $
YTICKUNITS=ytickunits, $
YTICKV=ytickv, $
YTITLE=ytitle, $
ZCHARSIZE=zcharsize, $
ZGRIDSTYLE=zgridstyle, $
ZMARGIN=zmargin, $
ZMINOR=zminor, $
ZRANGE=zrange, $
ZSTYLE=zstyle, $
ZTHICK=zthick, $
ZTICK_GET=ztick_get, $
ZTICKFORMAT=ztickformat, $
ZTICKINTERVAL=ztickinterval, $
ZTICKLAYOUT=zticklayout, $
ZTICKLEN=zticklen, $
ZTICKNAME=ztickname, $
ZTICKS=zticks, $
ZTICKUNITS=ztickunits, $
ZTICKV=ztickv, $
ZTITLE=ztitle, $
ZVALUE=zvalue
; Error handling.
Catch, theError
IF theError NE 0 THEN BEGIN
void = cgErrorMsg()
RETURN
ENDIF
; Get the properties of the object.
IF Arg_Present(axiscolor) THEN IF N_Elements(*self.axiscolor) NE 0 THEN axiscolor = *self.axiscolor
IF Arg_Present(background) THEN IF N_Elements(*self.background) NE 0 THEN background = *self.background
IF Arg_Present(charsize) THEN IF N_Elements(*self.charsize) NE 0 THEN charsize = *self.charsize
IF Arg_Present(charthick) THEN IF N_Elements(*self.charthick) NE 0 THEN charthick = *self.charthick
IF Arg_Present(clip) THEN IF N_Elements(*self.clip) NE 0 THEN clip = *self.clip
IF Arg_Present(color) THEN IF N_Elements(*self.color) NE 0 THEN color = *self.color
IF Arg_Present(data) THEN IF N_Elements(*self.data) NE 0 THEN data = *self.data
IF Arg_Present(device) THEN IF N_Elements(*self.device) NE 0 THEN device = *self.device
IF Arg_Present(normal) THEN IF N_Elements(*self.normal) NE 0 THEN normal = *self.normal
IF Arg_Present(font) THEN IF N_Elements(*self.font) NE 0 THEN font = *self.font
IF Arg_Present(linestyle) THEN IF N_Elements(*self.linestyle) NE 0 THEN linestyle = *self.linestyle
IF Arg_Present(noclip) THEN IF N_Elements(*self.noclip) NE 0 THEN noclip = *self.noclip
IF Arg_Present(nodata) THEN IF N_Elements(*self.nodata) NE 0 THEN nodata = *self.nodata
IF Arg_Present(noerase) THEN IF N_Elements(*self.noerase) NE 0 THEN noerase = *self.noerase
IF Arg_Present(position) THEN IF N_Elements(*self.position) NE 0 THEN position = *self.position
IF Arg_Present(psym) THEN IF N_Elements(*self.psym) NE 0 THEN psym = *self.psym
IF Arg_Present(subtitle) THEN IF N_Elements(*self.subtitle) NE 0 THEN subtitle = *self.subtitle
IF Arg_Present(symsize) THEN IF N_Elements(*self.symsize) NE 0 THEN symsize = *self.symsize
IF Arg_Present(t3d) THEN IF N_Elements(*self.t3d) NE 0 THEN t3d = *self.t3d
IF Arg_Present(thick) THEN IF N_Elements(*self.thick) NE 0 THEN thick = *self.thick
IF Arg_Present(ticklen) THEN IF N_Elements(*self.ticklen) NE 0 THEN ticklen = *self.ticklen
IF Arg_Present(title) THEN IF N_Elements(*self.title) NE 0 THEN title = *self.title
IF Arg_Present(xcharsize) THEN IF N_Elements(*self.xcharsize) NE 0 THEN xcharsize = *self.xcharsize
IF Arg_Present(xgridstyle) THEN IF N_Elements(*self.xgridstyle) NE 0 THEN xgridstyle = *self.xgridstyle
IF Arg_Present(xmargin) THEN IF N_Elements(*self.xmargin) NE 0 THEN xmargin = *self.xmargin
IF Arg_Present(xminor) THEN IF N_Elements(*self.xminor) NE 0 THEN xminor = *self.xminor
IF Arg_Present(xrange) THEN IF N_Elements(*self.xrange) NE 0 THEN xrange = *self.xrange
IF Arg_Present(xstyle) THEN IF N_Elements(*self.xstyle) NE 0 THEN xstyle = *self.xstyle
IF Arg_Present(xthick) THEN IF N_Elements(*self.xthick) NE 0 THEN xthick = *self.xthick
IF Arg_Present(xtick_get) THEN IF N_Elements(*self.xtick_get) NE 0 THEN xtick_get = *self.xtick_get
IF Arg_Present(xtickformat) THEN IF N_Elements(*self.xtickformat) NE 0 THEN xtickformat = *self.xtickformat
IF Arg_Present(xtickinterval) THEN IF N_Elements(*self.xtickinterval) NE 0 THEN xtickinterval = *self.xtickinterval
IF Arg_Present(xticklayout) THEN IF N_Elements(*self.xticklayout) NE 0 THEN xticklayout = *self.xticklayout
IF Arg_Present(xticklen) THEN IF N_Elements(*self.xticklen) NE 0 THEN xticklen = *self.xticklen
IF Arg_Present(xtickname) THEN IF N_Elements(*self.xtickname) NE 0 THEN xtickname = *self.xtickname
IF Arg_Present(xticks) THEN IF N_Elements(*self.xticks) NE 0 THEN xticks = *self.xticks
IF Arg_Present(xtickunits) THEN IF N_Elements(*self.xtickunits) NE 0 THEN xtickunits = *self.xtickunits
IF Arg_Present(xtickv) THEN IF N_Elements(*self.xtickv) NE 0 THEN xtickv = *self.xtickv
IF Arg_Present(xtitle) THEN IF N_Elements(*self.xtitle) NE 0 THEN xtitle = *self.xtitle
IF Arg_Present(ycharsize) THEN IF N_Elements(*self.ycharsize) NE 0 THEN ycharsize = *self.ycharsize
IF Arg_Present(ygridstyle) THEN IF N_Elements(*self.ygridstyle) NE 0 THEN ygridstyle = *self.ygridstyle
IF Arg_Present(ymargin) THEN IF N_Elements(*self.ymargin) NE 0 THEN ymargin = *self.ymargin
IF Arg_Present(yminor) THEN IF N_Elements(*self.yminor) NE 0 THEN yminor = *self.yminor
IF Arg_Present(yrange) THEN IF N_Elements(*self.yrange) NE 0 THEN yrange = *self.yrange
IF Arg_Present(ystyle) THEN IF N_Elements(*self.ystyle) NE 0 THEN ystyle = *self.ystyle
IF Arg_Present(ythick) THEN IF N_Elements(*self.ythick) NE 0 THEN ythick = *self.ythick
IF Arg_Present(ytick_get) THEN IF N_Elements(*self.ytick_get) NE 0 THEN ytick_get = *self.ytick_get
IF Arg_Present(ytickformat) THEN IF N_Elements(*self.ytickformat) NE 0 THEN ytickformat = *self.ytickformat
IF Arg_Present(ytickinterval) THEN IF N_Elements(*self.ytickinterval) NE 0 THEN ytickinterval = *self.ytickinterval
IF Arg_Present(yticklayout) THEN IF N_Elements(*self.yticklayout) NE 0 THEN yticklayout = *self.yticklayout
IF Arg_Present(yticklen) THEN IF N_Elements(*self.yticklen) NE 0 THEN yticklen = *self.yticklen
IF Arg_Present(ytickname) THEN IF N_Elements(*self.ytickname) NE 0 THEN ytickname = *self.ytickname
IF Arg_Present(yticks) THEN IF N_Elements(*self.yticks) NE 0 THEN yticks = *self.yticks
IF Arg_Present(ytickunits) THEN IF N_Elements(*self.ytickunits) NE 0 THEN ytickunits = *self.ytickunits
IF Arg_Present(ytickv) THEN IF N_Elements(*self.ytickv) NE 0 THEN ytickv = *self.ytickv
IF Arg_Present(ytitle) THEN IF N_Elements(*self.ytitle) NE 0 THEN ytitle = *self.ytitle
IF Arg_Present(zcharsize) THEN IF N_Elements(*self.zcharsize) NE 0 THEN zcharsize = *self.zcharsize
IF Arg_Present(zgridstyle) THEN IF N_Elements(*self.zgridstyle) NE 0 THEN zgridstyle = *self.zgridstyle
IF Arg_Present(zmargin) THEN IF N_Elements(*self.zmargin) NE 0 THEN zmargin = *self.zmargin
IF Arg_Present(zminor) THEN IF N_Elements(*self.zminor) NE 0 THEN zminor = *self.zminor
IF Arg_Present(zrange) THEN IF N_Elements(*self.zrange) NE 0 THEN zrange = *self.zrange
IF Arg_Present(zstyle) THEN IF N_Elements(*self.zstyle) NE 0 THEN zstyle = *self.zstyle
IF Arg_Present(zthick) THEN IF N_Elements(*self.ztick_get) NE 0 THEN zthick = *self.ztick_get
IF Arg_Present(ztick_get) THEN IF N_Elements(*self.ztick_get) NE 0 THEN ztick_get = *self.ztick_get
IF Arg_Present(ztickformat) THEN IF N_Elements(*self.ztickformat) NE 0 THEN ztickformat = *self.ztickformat
IF Arg_Present(ztickinterval) THEN IF N_Elements(*self.ztickinterval) NE 0 THEN ztickinterval = *self.ztickinterval
IF Arg_Present(zticklayout) THEN IF N_Elements(*self.zticklayout) NE 0 THEN zticklayout = *self.zticklayout
IF Arg_Present(zticklen) THEN IF N_Elements(*self.zticklen) NE 0 THEN zticklen = *self.zticklen
IF Arg_Present(ztickname) THEN IF N_Elements(*self.ztickname) NE 0 THEN ztickname = *self.ztickname
IF Arg_Present(zticks) THEN IF N_Elements(*self.zticks) NE 0 THEN zticks = *self.zticks
IF Arg_Present(ztickunits) THEN IF N_Elements(*self.ztickunits) NE 0 THEN ztickunits = *self.ztickunits
IF Arg_Present(ztickv) THEN IF N_Elements(*self.ztickv) NE 0 THEN ztickv = *self.ztickv
IF Arg_Present(ztitle) THEN IF N_Elements(*self.ztitle) NE 0 THEN ztitle = *self.ztitle
IF Arg_Present(zvalue) THEN IF N_Elements(*self.zvalue) NE 0 THEN zvalue = *self.zvalue
END
;+
; The SetProperty method is how these keyword values are set for the plotting routine.
;-
PRO cgGraphicsKeywords::SetProperty, $
AXISCOLOR=axiscolor, $
BACKGROUND=background, $
CHARSIZE=charsize, $
CHARTHICK=charthick, $
CLIP=clip, $
COLOR=color, $
DATA=data, $
DEVICE=device, $
NORMAL=normal, $
FONT=font, $
LINESTYLE=linestyle, $
NOCLIP=noclip, $
NODATA=nodata, $
NOERASE=noerase, $
POSITION=position, $
PSYM=psym, $
SUBTITLE=subtitle, $
SYMSIZE=symsize, $
T3D=t3d, $
THICK=thick, $
TICKLEN=ticklen, $
TITLE=title, $
XCHARSIZE=xcharsize, $
XGRIDSTYLE=xgridstyle, $
XMARGIN=xmargin, $
XMINOR=xminor, $
XRANGE=xrange, $
XSTYLE=xstyle, $
XTHICK=xthick, $
XTICK_GET=xtick_get, $
XTICKFORMAT=xtickformat, $
XTICKINTERVAL=xtickinterval, $
XTICKLAYOUT=xticklayout, $
XTICKLEN=xticklen, $
XTICKNAME=xtickname, $
XTICKS=xticks, $
XTICKUNITS=xtickunits, $
XTICKV=xtickv, $
XTITLE=xtitle, $
YCHARSIZE=ycharsize, $
YGRIDSTYLE=ygridstyle, $
YMARGIN=ymargin, $
YMINOR=yminor, $
YRANGE=yrange, $
YSTYLE=ystyle, $
YTHICK=ythick, $
YTICK_GET=ytick_get, $
YTICKFORMAT=ytickformat, $
YTICKINTERVAL=ytickinterval, $
YTICKLAYOUT=yticklayout, $
YTICKLEN=yticklen, $
YTICKNAME=ytickname, $
YTICKS=yticks, $
YTICKUNITS=ytickunits, $
YTICKV=ytickv, $
YTITLE=ytitle, $
ZCHARSIZE=zcharsize, $
ZGRIDSTYLE=zgridstyle, $
ZMARGIN=zmargin, $
ZMINOR=zminor, $
ZRANGE=zrange, $
ZSTYLE=zstyle, $
ZTHICK=zthick, $
ZTICK_GET=ztick_get, $
ZTICKFORMAT=ztickformat, $
ZTICKINTERVAL=ztickinterval, $
ZTICKLAYOUT=zticklayout, $
ZTICKLEN=zticklen, $
ZTICKNAME=ztickname, $
ZTICKS=zticks, $
ZTICKUNITS=ztickunits, $
ZTICKV=ztickv, $
ZTITLE=ztitle, $
ZVALUE=zvalue
; Error handling.
Catch, theError
IF theError NE 0 THEN BEGIN
void = cgErrorMsg()
RETURN
ENDIF
IF N_Elements(axiscolor) NE 0 THEN *self.axiscolor = axiscolor
IF N_Elements(background) NE 0 THEN *self.background = background
IF N_Elements(charsize) NE 0 THEN *self.charsize = charsize
IF N_Elements(charthick) NE 0 THEN *self.charthick = charthick
IF N_Elements(clip) NE 0 THEN *self.clip = clip
IF N_Elements(color) NE 0 THEN *self.color = color
IF N_Elements(data) NE 0 THEN *self.data = Keyword_Set(data)
IF N_Elements(device) NE 0 THEN *self.device = Keyword_Set(device)
IF N_Elements(normal) NE 0 THEN *self.normal = Keyword_Set(normal)
IF N_Elements(font) NE 0 THEN *self.font = font
IF N_Elements(linestyle) NE 0 THEN *self.linestyle = linestyle
IF N_Elements(noclip) NE 0 THEN *self.noclip = Keyword_Set(noclip)
IF N_Elements(nodata) NE 0 THEN *self.nodata = Keyword_Set(nodata)
IF N_Elements(noerase) NE 0 THEN *self.noerase = Keyword_Set(noerase)
IF N_Elements(position) NE 0 THEN *self.position = position
IF N_Elements(psym) NE 0 THEN *self.psym = psym
IF N_Elements(subtitle) NE 0 THEN *self.subtitle = subtitle
IF N_Elements(symsize) NE 0 THEN *self.symsize = symsize
IF N_Elements(t3d) NE 0 THEN *self.t3d = Keyword_Set(t3d)
IF N_Elements(thick) NE 0 THEN *self.thick = thick
IF N_Elements(ticklen) NE 0 THEN *self.ticklen = ticklen
IF N_Elements(title) NE 0 THEN *self.title = title
IF N_Elements(xcharsize) NE 0 THEN *self.xcharsize = xcharsize
IF N_Elements(xgridstyle) NE 0 THEN *self.xgridstyle = xgridstyle
IF N_Elements(xmargin) NE 0 THEN *self.xmargin = xmargin
IF N_Elements(xminor) NE 0 THEN *self.xminor = xminor
IF N_Elements(xrange) NE 0 THEN *self.xrange = xrange
IF N_Elements(xstyle) NE 0 THEN *self.xstyle = xstyle
IF N_Elements(xthick) NE 0 THEN *self.xthick = xthick
IF N_Elements(xtickformat) NE 0 THEN *self.xtickformat = xtickformat
IF N_Elements(xtickinterval) NE 0 THEN *self.xtickinterval = xtickinterval
IF N_Elements(xticklayout) NE 0 THEN *self.xticklayout = xticklayout
IF N_Elements(xticklen) NE 0 THEN *self.xticklen = xticklen
IF N_Elements(xtickname) NE 0 THEN *self.xtickname = xtickname
IF N_Elements(xticks) NE 0 THEN *self.xticks = xticks
IF N_Elements(xtickunits) NE 0 THEN *self.xtickunits = xtickunits
IF N_Elements(xtickv) NE 0 THEN *self.xtickv = xtickv
IF N_Elements(xtitle) NE 0 THEN *self.xtitle = xtitle
IF N_Elements(ycharsize) NE 0 THEN *self.ycharsize = ycharsize
IF N_Elements(ygridstyle) NE 0 THEN *self.ygridstyle = ygridstyle
IF N_Elements(ymargin) NE 0 THEN *self.ymargin = ymargin
IF N_Elements(yminor) NE 0 THEN *self.yminor = yminor
IF N_Elements(yrange) NE 0 THEN *self.yrange = yrange
IF N_Elements(ystyle) NE 0 THEN *self.ystyle = ystyle
IF N_Elements(ythick) NE 0 THEN *self.ythick = ythick
IF N_Elements(ytickformat) NE 0 THEN *self.ytickformat = ytickformat
IF N_Elements(ytickinterval) NE 0 THEN *self.ytickinterval = ytickinterval
IF N_Elements(yticklayout) NE 0 THEN *self.yticklayout = yticklayout
IF N_Elements(yticklen) NE 0 THEN *self.yticklen = yticklen
IF N_Elements(ytickname) NE 0 THEN *self.ytickname = ytickname
IF N_Elements(yticks) NE 0 THEN *self.yticks = yticks
IF N_Elements(ytickunits) NE 0 THEN *self.ytickunits = ytickunits
IF N_Elements(ytickv) NE 0 THEN *self.ytickv = ytickv
IF N_Elements(ytitle) NE 0 THEN *self.ytitle = ytitle
IF N_Elements(zcharsize) NE 0 THEN *self.zcharsize = zcharsize
IF N_Elements(zgridstyle) NE 0 THEN *self.zgridstyle = zgridstyle
IF N_Elements(zmargin) NE 0 THEN *self.zmargin = zmargin
IF N_Elements(zminor) NE 0 THEN *self.zminor = zminor
IF N_Elements(zrange) NE 0 THEN *self.zrange = zrange
IF N_Elements(zstyle) NE 0 THEN *self.zstyle = zstyle
IF N_Elements(zthick) NE 0 THEN *self.zthick = zthick
IF N_Elements(ztickformat) NE 0 THEN *self.ztickformat = ztickformat
IF N_Elements(ztickinterval) NE 0 THEN *self.ztickinterval = ztickinterval
IF N_Elements(zticklayout) NE 0 THEN *self.zticklayout = zticklayout
IF N_Elements(zticklen) NE 0 THEN *self.zticklen = zticklen
IF N_Elements(ztickname) NE 0 THEN *self.ztickname = ztickname
IF N_Elements(zticks) NE 0 THEN *self.zticks = zticks
IF N_Elements(ztickunits) NE 0 THEN *self.ztickunits = ztickunits
IF N_Elements(ztickv) NE 0 THEN *self.ztickv = ztickv
IF N_Elements(ztitle) NE 0 THEN *self.ztitle = ztitle
IF N_Elements(zvalue) NE 0 THEN *self.zvalue = zvalue
END
;+
; This is the object class definition for the cgGraphicsKeywords object class.
; Normally, this class serves as the superclass for Coyote Graphics graphics
; objects that need graphics keyword support.
;-
PRO cgGraphicsKeywords__Define, class
class = {cgGraphicsKeywords, $
AXISCOLOR: Ptr_New(), $
BACKGROUND: Ptr_New(), $
CHARSIZE: Ptr_New(), $
CHARTHICK: Ptr_New(), $
CLIP: Ptr_New(), $
COLOR: Ptr_New(), $
DATA: Ptr_New(), $
DEVICE: Ptr_New(), $
NORMAL: Ptr_New(), $
FONT: Ptr_New(), $
LINESTYLE: Ptr_New(), $
NOCLIP: Ptr_New(), $
NODATA: Ptr_New(), $
NOERASE: Ptr_New(), $
POSITION: Ptr_New(), $
PSYM: Ptr_New(), $
SUBTITLE: Ptr_New(), $
SYMSIZE: Ptr_New(), $
T3D: Ptr_New(), $
THICK: Ptr_New(), $
TICKLEN: Ptr_New(), $
TITLE: Ptr_New(), $
XCHARSIZE: Ptr_New(), $
XGRIDSTYLE: Ptr_New(), $
XMARGIN: Ptr_New(), $
XMINOR: Ptr_New(), $
XRANGE: Ptr_New(), $
XSTYLE: Ptr_New(), $
XTHICK: Ptr_New(), $
XTICK_GET: Ptr_New(), $
XTICKFORMAT: Ptr_New(), $
XTICKINTERVAL: Ptr_New(), $
XTICKLAYOUT: Ptr_New(), $
XTICKLEN: Ptr_New(), $
XTICKNAME: Ptr_New(), $
XTICKS: Ptr_New(), $
XTICKUNITS: Ptr_New(), $
XTICKV: Ptr_New(), $
XTITLE: Ptr_New(), $
YCHARSIZE: Ptr_New(), $
YGRIDSTYLE: Ptr_New(), $
YMARGIN: Ptr_New(), $
YMINOR: Ptr_New(), $
YRANGE: Ptr_New(), $
YSTYLE: Ptr_New(), $
YTHICK: Ptr_New(), $
YTICK_GET: Ptr_New(), $
YTICKFORMAT: Ptr_New(), $
YTICKINTERVAL: Ptr_New(), $
YTICKLAYOUT: Ptr_New(), $
YTICKLEN: Ptr_New(), $
YTICKNAME: Ptr_New(), $
YTICKS: Ptr_New(), $
YTICKUNITS: Ptr_New(), $
YTICKV: Ptr_New(), $
YTITLE: Ptr_New(), $
ZCHARSIZE: Ptr_New(), $
ZGRIDSTYLE: Ptr_New(), $
ZMARGIN: Ptr_New(), $
ZMINOR: Ptr_New(), $
ZRANGE: Ptr_New(), $
ZSTYLE: Ptr_New(), $
ZTHICK: Ptr_New(), $
ZTICK_GET: Ptr_New(), $
ZTICKFORMAT: Ptr_New(), $
ZTICKINTERVAL: Ptr_New(), $
ZTICKLAYOUT: Ptr_New(), $
ZTICKLEN: Ptr_New(), $
ZTICKNAME: Ptr_New(), $
ZTICKS: Ptr_New(), $
ZTICKUNITS: Ptr_New(), $
ZTICKV: Ptr_New(), $
ZTITLE: Ptr_New(), $
ZVALUE: Ptr_New() $
}
END
|
