Subversion Repositories wimsdev

Rev

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