Rev 9339 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 9339 | Rev 13582 | ||
---|---|---|---|
Line 21... | Line 21... | ||
21 | slib_h=$[($slib_h+12000)%12] |
21 | slib_h=$[($slib_h+12000)%12] |
22 | slib_sizef=!positionof item $slib_size in $slib_sizes |
22 | slib_sizef=!positionof item $slib_size in $slib_sizes |
23 | slib_fstyle=!item $slib_style of a,b |
23 | slib_fstyle=!item $slib_style of a,b |
24 | 24 | ||
25 | !if exactmin notwordof $slib_option |
25 | !if exactmin notwordof $slib_option |
26 | slib_m=$[$slib_m+$slib_s/60] |
26 | slib_m=$[$slib_m+$slib_s/60] |
27 | !endif |
27 | !endif |
28 | slib_h=$[$slib_h+$slib_m/60] |
28 | slib_h=$[$slib_h+$slib_m/60] |
29 | !distribute item $[sin($slib_h*pi/6)],$[cos($slib_h*pi/6)],\ |
29 | !distribute item $[sin($slib_h*pi/6)],$[cos($slib_h*pi/6)],\ |
30 | $[sin($slib_m*pi/30)],$[cos($slib_m*pi/30)],\ |
30 | $[sin($slib_m*pi/30)],$[cos($slib_m*pi/30)],\ |
31 | $[sin($slib_s*pi/30)],$[cos($slib_s*pi/30)] into\ |
31 | $[sin($slib_s*pi/30)],$[cos($slib_s*pi/30)] into\ |
Line 47... | Line 47... | ||
47 | copy 0,0,-1,-1,-1,-1,raw/clock/$slib_size$slib_fstyle.gif\ |
47 | copy 0,0,-1,-1,-1,-1,raw/clock/$slib_size$slib_fstyle.gif\ |
48 | xrange -$slib_rg,$slib_rg\ |
48 | xrange -$slib_rg,$slib_rg\ |
49 | yrange -$slib_rg,$slib_rg\ |
49 | yrange -$slib_rg,$slib_rg\ |
50 | linewidth 1 |
50 | linewidth 1 |
51 | !if nohour notwordof $slib_option |
51 | !if nohour notwordof $slib_option |
52 | slib_out=$slib_out\ |
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)]\ |
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)] |
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)] |
55 | !endif |
55 | !endif |
56 | !if nominute notwordof $slib_option |
56 | !if nominute notwordof $slib_option |
57 | slib_out=$slib_out\ |
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)\ |
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)] |
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)] |
60 | !endif |
60 | !endif |
61 | slib_out=$slib_out\ |
61 | slib_out=$slib_out\ |
62 | linewidth $slib_md\ |
62 | linewidth $slib_md\ |
63 | point 0,0,$slib_cm |
63 | point 0,0,$slib_cm |
64 | 64 | ||
65 | !if nosecond notwordof $slib_option |
65 | !if nosecond notwordof $slib_option |
66 | slib_out=$slib_out\ |
66 | slib_out=$slib_out\ |
67 | linewidth $slib_sw\ |
67 | linewidth $slib_sw\ |
68 | segment $[$slib_s1*(-$slib_sb)],$[$slib_s2*(-$slib_sb)],$[$slib_s1*$slib_sl],$[$slib_s2*$slib_sl],$[$slib_cs]\ |
68 | segment $[$slib_s1*(-$slib_sb)],$[$slib_s2*(-$slib_sb)],$[$slib_s1*$slib_sl],$[$slib_s2*$slib_sl],$[$slib_cs]\ |
69 | linewidth $slib_sd\ |
69 | linewidth $slib_sd\ |
70 | point 0,0,$slib_cs |
70 | point 0,0,$slib_cs |
71 | !endif |
71 | !endif |
72 | 72 | ||
73 | !if url iswordof $slib_option or html iswordof $slib_option |
73 | !if url iswordof $slib_option or html iswordof $slib_option |
74 | !insdraw $slib_out |
74 | !insdraw $slib_out |
75 | slib_out=$ins_url |
75 | slib_out=$ins_url |
76 | !if html iswordof $slib_option |
76 | !if html iswordof $slib_option |
77 | slib_out=<img src="$ins_url" alt="" /> |
77 | slib_out=<img src="$ins_url" alt="" /> |
78 | !else |
78 | !else |
79 | slib_out=$slib_out,$insdraw_size |
79 | slib_out=$slib_out,$insdraw_size |
80 | !endif |
80 | !endif |
81 | !endif |
81 | !endif |