Rev 4349 | Rev 4908 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 4349 | Rev 4700 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | !if $wims_read_parm!=slib_header |
1 | !if $wims_read_parm!=slib_header |
2 | !goto proc |
2 | !goto proc |
3 | !endif |
3 | !endif |
4 | 4 | ||
5 | slib_author=Gang, XIAO |
5 | slib_author=Gang, XIAO |
6 | - | ||
- | 6 | slib_example=02:45:33,120,1,html\ |
|
- | 7 | 02:45:33,120,1,html nominute |
|
7 | !exit |
8 | !exit |
8 | 9 | ||
9 | :proc |
10 | :proc |
10 | slib_sizes=120,160,200,240 |
11 | slib_sizes=120,160,200,240 |
11 | !distribute items $wims_read_parm into slib_time,slib_size,slib_style,slib_option |
12 | !distribute items $wims_read_parm into slib_time,slib_size,slib_style,slib_option |
Line 17... | Line 18... | ||
17 | !bound slib_m between integer -10000 and 10000 default 0 |
18 | !bound slib_m between integer -10000 and 10000 default 0 |
18 | !bound slib_s between integer -10000 and 10000 default 0 |
19 | !bound slib_s between integer -10000 and 10000 default 0 |
19 | slib_h=$[($slib_h+12000)%12] |
20 | slib_h=$[($slib_h+12000)%12] |
20 | slib_sizef=!positionof item $slib_size in $slib_sizes |
21 | slib_sizef=!positionof item $slib_size in $slib_sizes |
21 | slib_fstyle=!item $slib_style of a,b |
22 | slib_fstyle=!item $slib_style of a,b |
22 | 23 | ||
23 | !if exactmin notwordof $slib_option |
24 | !if exactmin notwordof $slib_option |
24 | slib_m=$[$slib_m+$slib_s/60] |
25 | slib_m=$[$slib_m+$slib_s/60] |
25 | !endif |
26 | !endif |
26 | slib_h=$[$slib_h+$slib_m/60] |
27 | slib_h=$[$slib_h+$slib_m/60] |
27 | !distribute item $[sin($slib_h*pi/6)],$[cos($slib_h*pi/6)],\ |
28 | !distribute item $[sin($slib_h*pi/6)],$[cos($slib_h*pi/6)],\ |
Line 57... | Line 58... | ||
57 | 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) |
58 | 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) |
58 | !endif |
59 | !endif |
59 | slib_out=$slib_out\ |
60 | slib_out=$slib_out\ |
60 | linewidth $slib_md\ |
61 | linewidth $slib_md\ |
61 | point 0,0,$slib_cm |
62 | point 0,0,$slib_cm |
62 | 63 | ||
63 | !if nosecond notwordof $slib_option |
64 | !if nosecond notwordof $slib_option |
64 | slib_out=$slib_out\ |
65 | slib_out=$slib_out\ |
65 | linewidth $slib_sw\ |
66 | linewidth $slib_sw\ |
66 | line $slib_s1*(-$slib_sb),$slib_s2*(-$slib_sb), $slib_s1*$slib_sl,$slib_s2*$slib_sl,$slib_cs\ |
67 | line $slib_s1*(-$slib_sb),$slib_s2*(-$slib_sb), $slib_s1*$slib_sl,$slib_s2*$slib_sl,$slib_cs\ |
67 | linewidth $slib_sd\ |
68 | linewidth $slib_sd\ |
68 | point 0,0,$slib_cs |
69 | point 0,0,$slib_cs |
69 | !endif |
70 | !endif |
70 | 71 | ||
- | 72 | !if url iswordof $slib_option or html iswordof $slib_option |
|
- | 73 | !insdraw $slib_out |
|
- | 74 | slib_out=$ins_url |
|
- | 75 | !if html iswordof $slib_option |
|
- | 76 | slib_out=<img src="$ins_url" alt=""> |
|
- | 77 | !endif |
|
- | 78 | slib_out=$slib_out |
|
- | 79 | !endif |