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
|
pro tick,tl,la,units,cs
; tickformat=['(%"%6.6I")','(f6.2)','label_date']
tickformat= ['(%"%6.6I!Cline2")','(f6.2)','label_date']
toto=label_date(date_format="%M!C%D!C(%W)")
!Y.TICKFORMAT=tickformat & !Y.TITLE="AAAAAAAAAAAAAA" &!X.TICKFORMAT=tickformat & !X.TITLE="AAAAAAAAAAAAAA" &!P.POSITION = [0.4, 0.4, 0.9, 0.9]
a=dist(10)
device,set_character_size=cs
plot,a,a,yticklen=tl,yticklay=la,ytickunits=units,xticklen=tl,xticklay=la,xtickunits=units,title='TITLE-TITLE-TITLE-TITLE',subtitle='SUBTITLE-SUBTITLE'
!Y.TICKFORMAT="" & !Y.TITLE="" &!X.TICKFORMAT="" & !X.TITLE="" &!P.POSITION = 0
end
pro tickv,tl,la,units,cs
; tickformat=['(%"%6.6I")','(f6.2)','label_date']
tickformat= ['(%"%6.6I!Cline2")','(f6.2)','label_date']
toto=label_date(date_format="%Y%M!C%H%I!C(%W)")
!Y.TICKFORMAT=tickformat & !Y.TITLE="AAAAAAAAAAAAAA" &!X.TICKFORMAT=tickformat & !X.TITLE="AAAAAAAAAAAAAA" &!P.POSITION = [0.4, 0.4, 0.9, 0.9]
n=10
a=dist(n)
defsysv,"!GDL",exists=isgdl
if isgdl then z=randomu(33,10,/RAN1) else z=randomu(33,10)
device,set_character_size=cs
plot,a,a,yticklen=tl,yticklay=la,ytickunits=units,xticklen=tl,xticklay=la,xtickunits=units,xtickv=z*n*n,xticks=8,ytickv=z*n,yticks=8
!Y.TICKFORMAT="" & !Y.TITLE="" &!X.TICKFORMAT="" & !X.TITLE="" &!P.POSITION = 0
end
pro axistick,tl,la,units,cs
tickformat=['(%"%6.6I")','(f6.2)','label_date']
toto=label_date(date_format="%Y %M %S (%W)")
!Y.TICKFORMAT=tickformat & !Y.TITLE="AAAAAAAAAAAAAA" &!X.TICKFORMAT=tickformat & !X.TITLE="AAAAAAAAAAAAAA" &!P.POSITION = [0.3, 0.3, 0.7, 0.7]
device,set_character_size=cs
plot,findgen(10),findgen(10),/nodata,xsty=4,ysty=4,title='TITLE-TITLE-TITLE-TITLE',subtitle='SUBTITLE-SUBTITLE'
axis,0,0,xax=0,yticklen=tl,yticklay=la,ytickunits=units,xticklen=tl,xticklay=la,xtickunits=units
axis,0,0,yax=0,yticklen=tl,yticklay=la,ytickunits=units,xticklen=tl,xticklay=la,xtickunits=units
axis,0,10,xax=1,yticklen=tl,yticklay=la,ytickunits=units,xticklen=tl,xticklay=la,xtickunits=units
axis,10,0,yax=1,yticklen=tl,yticklay=la,ytickunits=units,xticklen=tl,xticklay=la,xtickunits=units
!Y.TICKFORMAT="" & !Y.TITLE="" &!X.TICKFORMAT="" & !X.TITLE="" &!P.POSITION = 0
end
pro axistickv,tl,la,units,cs
tickformat=['(%"%6.6I")','(f6.2)','label_date']
toto=label_date(date_format="%Y %M %S (%W)")
!Y.TICKFORMAT=tickformat & !Y.TITLE="AAAAAAAAAAAAAA" &!X.TICKFORMAT=tickformat & !X.TITLE="AAAAAAAAAAAAAA" ;&!P.POSITION = [0.4, 0.4, 0.9, 0.9]
n=10
a=dist(n)
defsysv,"!GDL",exists=isgdl
if isgdl then z=randomu(33,10,/RAN1) else z=randomu(33,10)
device,set_character_size=cs
plot,findgen(10),dist(10),/nodata,xsty=4,ysty=4,title='TITLE-TITLE-TITLE-TITLE',subtitle='SUBTITLE-SUBTITLE'
axis,0.5,0.5,/norm,xax=0,yticklen=tl,yticklay=la,ytickunits=units,xticklen=tl,xticklay=la,xtickunits=units,xtickv=z*n*n,xticks=8,ytickv=z*n,yticks=8
axis,0.5,0.5,/norm,yax=0,yticklen=tl,yticklay=la,ytickunits=units,xticklen=tl,xticklay=la,xtickunits=units,xtickv=z*n*n,xticks=8,ytickv=z*n,yticks=8
!Y.TICKFORMAT="" & !Y.TITLE="" &!X.TICKFORMAT="" & !X.TITLE="" &!P.POSITION = 0
end
pro test_box_axis, no_exit=no_exit, test=test
; if the plot is not exactly at the same place, the mask of values should show it in the sum
val=[[18476179244ULL,30704664758ULL,20777230060ULL,19327358191ULL],[19970041330ULL,32821191080ULL,19776391130ULL,19139418781ULL]]
defsysv,"!GDL",exists=isgdl
if isgdl then v=val[*,1] else v=val[*,0]
nb_errors=0
set_plot,'z'
b=dindgen(1920,1080) ; work in double precision otherwise TOTAL() below will give different results depending on the threads and machine precision for floats.
device, set_resolution=[1920,1080]
; under IDL we have to create a first plot to get the new charzise accepted. A flaw of IDL IMHO.
plot,dist(10)
erase
axistick,0.1,2,["Numeric","Numeric"],[8,20]
a=tvrd()
w=where(a eq 255, count) & if count gt 0 then a[w]=1b
t=fix(total(a*b),type=15)
; visual check if error
q=fix(total(a),type=15) & r=fix(total(b),type=15)
print,t,q,r
if (t - v[0] ne 0) then nb_errors++
erase
axistick,-0.1,2,["Numeric","Numeric","Numeric"],[8,20]
a=tvrd()
w=where(a eq 255, count) & if count gt 0 then a[w]=1b
t=fix(total(a*b),type=15)
print,t
if (t - v[1] ne 0) then nb_errors++
erase
tick,-0.1,2,["Numeric","Numeric","Numeric"],[8,15]
a=tvrd()
w=where(a eq 255, count) & if count gt 0 then a[w]=1b
t=fix(total(a*b),type=15)
print,t
if (t - v[2] ne 0) then nb_errors++
erase
tick,0.1,2,["Numeric","Numeric","Numeric"],[8,15]
a=tvrd()
w=where(a eq 255, count) & if count gt 0 then a[w]=1b
t=fix(total(a*b),type=15)
print,t
if (t - v[3] ne 0) then nb_errors++
;
; ----------------- final message ----------
;
BANNER_FOR_TESTSUITE, "TEST_BOX_AXIS", nb_errors
;
if (nb_errors GT 0) AND ~KEYWORD_SET(no_exit) then EXIT, status=1
;
if KEYWORD_SET(test) then STOP
;
end
|
