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
|
!if $wims_read_parm!=slib_header
!goto proc
!endif
slib_author=Bernadette, Perrin-Riou
slib_example=3.5,[-6,6],[0,,20,,40,,60,,80,,100,,120],,html\
-1.2,[-5,5],[0,1,2,3,4,5,6,7,8,9,10,11,12],[green,blue,red,yellow],html\
-3,[-5,5],[],[green,blue,blue,pink],html
!exit
:proc
!distribute items $wims_read_parm into slib_pin,slib_range,slib_text,slib_color,slib_option
!set slib_text=!declosing $slib_text
!default slib_text=0,,20,,40,,60,,80,,100,,120
!set slib_limit=!declosing $slib_range
!default slib_limit=-6,6
!reset slib_Text
!set slib_color=!declosing $slib_color
!default slib_color=black,black,black
!set insdraw_size=200,200
!set slib_dia=195
!set slib_range0=1.08
!set slib_R=8
!set slib_r=$[$slib_R*5]
!set slib_tick=$(slib_color[2])
!set slib_Tick=$(slib_color[1])
!set slib_colorpin=$(slib_color[3])
!set slib_face=$(slib_color[4])
!default slib_face=white
!set slib_border=grey
!set slib_Ticks=segments $slib_Tick
!set slib_ticks=segments $slib_tick
!for slib_i=$(slib_limit[1])*5 to $(slib_limit[2])*5
!set slib_k1=$[sin($slib_i*pi/$slib_r)]
!set slib_k2=$[cos($slib_i*pi/$slib_r)]
!set slib_ticks=$slib_ticks, $slib_k1,$slib_k2,0.95*($slib_k1),0.95*($slib_k2)
!next slib_i
!set slib_m1=1
!set slib_s=0.2
!set slib_pin=point blue, 0,0\
ftriangle $[sin(($slib_pin)*pi/$slib_R)],$[cos(($slib_pin)*pi/$slib_R)],$[-sin(($slib_pin+$slib_m1)*pi/$slib_R)*$slib_s], $[-cos(($slib_pin+$slib_m1)*pi/$slib_R)*$slib_s],$[-sin(($slib_pin-$slib_m1)*pi/$slib_R)*$slib_s], $[-cos(($slib_pin-$slib_m1)*pi/$slib_R)*$slib_s],$slib_colorpin
!for slib_i=$(slib_limit[1]) to $(slib_limit[2])
!set slib_k1=$[sin(($slib_i)*pi/$slib_R)]
!set slib_k2=$[cos(($slib_i)*pi/$slib_R)]
!set slib_Ticks=$slib_Ticks, $slib_k1,$slib_k2,$slib_k1*0.91,$slib_k2*0.91
!set slib_Text=!append line text $slib_tick,$slib_k1*0.70-0.06,$slib_k2*0.81+0.07,huge,$(slib_text[$slib_i-$(slib_limit[1])+1]) \
to $slib_Text
!next slib_i
!set slib_h=!randint 1,12
!set slib_m=$[randint(12)*5]
!set slib_H=$[$slib_h+$slib_m/60]
!set slib_H1=$slib_[sin($slib_H*pi/$slib_R)]
!set H2=$[cos($H*pi/$slib_R)]
!set M1=$[sin($m*pi/$slib_r)]
!set M2=$[cos($m*pi/$slib_r)]
!set s=!randint 0,59
!set S1=$[sin($s*pi/$slib_r)]
!set S2=$[cos($s*pi/$slib_r)]
!set hl=0.52
!set hw=0.05
!set hb=0.2
!set ml=0.71
!set mw=0.04
!set mb=0.25
!set sl=0.9
!set sb=0.25
slib_out=transparent white\
xrange -$slib_range0,$slib_range0\
yrange -$slib_range0,$slib_range0\
circle 0,0,$slib_dia,$slib_border\
fill 0,0,$slib_face\
linewidth 3\
$slib_Ticks\
linewidth 2\
circle 0,0,$slib_dia,$slib_border\
$slib_pin\
linewidth 1\
$slib_ticks\
$slib_Text
!if url iswordof $slib_option or html iswordof $slib_option
!insdraw $slib_out
slib_out=$ins_url
!if html iswordof $slib_option
slib_out=<img src="$ins_url" alt="">
!else
slib_out=$slib_out,$insdraw_size
!endif
!endif
|
