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