Rev 9339 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
20 | reyssat | 1 | !if $wims_read_parm!=slib_header |
2 | !goto proc |
||
3 | !endif |
||
4158 | bpr | 4 | |
4349 | bpr | 5 | slib_author=Gang, XIAO |
4700 | bpr | 6 | slib_example=02:45:33,120,1,html\ |
9339 | bpr | 7 | 02:45:33,120,1,html nominute\ |
8 | 02:45:33,120,2,html nosecond |
||
20 | reyssat | 9 | !exit |
10 | |||
11 | :proc |
||
12 | slib_sizes=120,160,200,240 |
||
13 | !distribute items $wims_read_parm into slib_time,slib_size,slib_style,slib_option |
||
14 | !bound slib_size within $slib_sizes default 200 |
||
15 | !bound slib_style between integer 1 and 2 default 1 |
||
16 | slib_time=!translate : to , in $slib_time |
||
17 | !distribute items $slib_time into slib_h,slib_m,slib_s |
||
18 | !bound slib_h between integer -10000 and 10000 default 0 |
||
19 | !bound slib_m between integer -10000 and 10000 default 0 |
||
20 | !bound slib_s between integer -10000 and 10000 default 0 |
||
21 | slib_h=$[($slib_h+12000)%12] |
||
22 | slib_sizef=!positionof item $slib_size in $slib_sizes |
||
23 | slib_fstyle=!item $slib_style of a,b |
||
24 | |||
25 | !if exactmin notwordof $slib_option |
||
13582 | bpr | 26 | slib_m=$[$slib_m+$slib_s/60] |
20 | reyssat | 27 | !endif |
28 | slib_h=$[$slib_h+$slib_m/60] |
||
29 | !distribute item $[sin($slib_h*pi/6)],$[cos($slib_h*pi/6)],\ |
||
30 | $[sin($slib_m*pi/30)],$[cos($slib_m*pi/30)],\ |
||
31 | $[sin($slib_s*pi/30)],$[cos($slib_s*pi/30)] into\ |
||
32 | slib_h1,slib_h2,slib_m1,slib_m2,slib_s1,slib_s2 |
||
33 | |||
34 | slib_colors=!line $slib_style of black,black,red\ |
||
35 | gold,gold,red |
||
36 | !distribute item $slib_colors into slib_ch,slib_cm,slib_cs |
||
37 | |||
38 | slib_sizs=!line $slib_sizef of 1.05,0.5,0.05,0.18,0.65,0.04,0.23,0.9,2,0.25,12,7\ |
||
39 | 1.07,0.5,0.05,0.18,0.68,0.04,0.23,0.9,2,0.25,16,10\ |
||
40 | 1.08,0.52,0.05,0.2,0.71,0.04,0.25,0.9,3,0.25,18,12\ |
||
41 | 1.06,0.52,0.05,0.2,0.73,0.04,0.25,0.9,3,0.25,22,12 |
||
42 | !distribute item $slib_sizs into slib_rg,slib_hl,slib_hw,slib_hb,\ |
||
43 | slib_ml,slib_mw,slib_mb,slib_sl,slib_sw,slib_sb,slib_md,slib_sd |
||
44 | |||
45 | insdraw_size=$slib_size,$slib_size |
||
46 | slib_out=transparent white\ |
||
47 | copy 0,0,-1,-1,-1,-1,raw/clock/$slib_size$slib_fstyle.gif\ |
||
48 | xrange -$slib_rg,$slib_rg\ |
||
49 | yrange -$slib_rg,$slib_rg\ |
||
4047 | guerimand | 50 | linewidth 1 |
51 | !if nohour notwordof $slib_option |
||
13582 | bpr | 52 | slib_out=$slib_out\ |
53 | fpoly $slib_ch,$[ $slib_h1*$slib_hl],$[$slib_h2*$slib_hl],$[ $slib_h2*(-$slib_hw)],$[$slib_h1*$slib_hw],$[$slib_h1*(-$slib_sb)],$[$slib_h2*(-$slib_sb)],$[$slib_h2*$slib_hw],$[$slib_h1*(-$slib_hw)]\ |
||
54 | poly $slib_ch,$[$slib_h1*$slib_hl],$[$slib_h2*$slib_hl],$[$slib_h2*(-$slib_hw)],$[$slib_h1*$slib_hw],$[$slib_h1*(-$slib_sb)],$[$slib_h2*(-$slib_sb)],$[$slib_h2*$slib_hw],$[$slib_h1*(-$slib_hw)] |
||
4047 | guerimand | 55 | !endif |
4048 | bpr | 56 | !if nominute notwordof $slib_option |
13582 | bpr | 57 | slib_out=$slib_out\ |
58 | fpoly $slib_cm,$[$slib_m1*$slib_ml],$slib_m2*$slib_ml,$[$slib_m2*(-$slib_mw)],$slib_m1*$slib_mw,$[$slib_m1*(-$slib_sb)],$slib_m2*(-$slib_sb),$[$slib_m2*$slib_mw],$slib_m1*(-$slib_mw)\ |
||
59 | poly $slib_cm,$[$slib_m1*$slib_ml],$[$slib_m2*$slib_ml],$[$slib_m2*(-$slib_mw)],$[$slib_m1*$slib_mw],$[$slib_m1*(-$slib_sb)],$[$slib_m2*(-$slib_sb)],$[$slib_m2*$slib_mw],$[$slib_m1*(-$slib_mw)] |
||
4047 | guerimand | 60 | !endif |
61 | slib_out=$slib_out\ |
||
20 | reyssat | 62 | linewidth $slib_md\ |
63 | point 0,0,$slib_cm |
||
64 | |||
65 | !if nosecond notwordof $slib_option |
||
13582 | bpr | 66 | slib_out=$slib_out\ |
67 | linewidth $slib_sw\ |
||
68 | segment $[$slib_s1*(-$slib_sb)],$[$slib_s2*(-$slib_sb)],$[$slib_s1*$slib_sl],$[$slib_s2*$slib_sl],$[$slib_cs]\ |
||
69 | linewidth $slib_sd\ |
||
70 | point 0,0,$slib_cs |
||
20 | reyssat | 71 | !endif |
72 | |||
4700 | bpr | 73 | !if url iswordof $slib_option or html iswordof $slib_option |
74 | !insdraw $slib_out |
||
75 | slib_out=$ins_url |
||
76 | !if html iswordof $slib_option |
||
6557 | bpr | 77 | slib_out=<img src="$ins_url" alt="" /> |
13582 | bpr | 78 | !else |
4908 | bpr | 79 | slib_out=$slib_out,$insdraw_size |
13582 | bpr | 80 | !endif |
4700 | bpr | 81 | !endif |