runline.tbl

一个不错的做图软件

<?xml version="1.0" encoding="utf-8"?>
<vg version="723" range="0,0,1024,768" papervisible="false">
<sheet name="sheet1">
<text name="rect1" origin="196,44" bounds="120,24,272,64" pattern="1" border="15" fontname="瀹嬩綋" fontsize="16" text="姝ｅ悜琛岃繘">
<programe>
<!--
published function OnClick(Sender)
ln = 0
direction = 1
SetTimer( 1 )
end function
-->
</programe>
</text>
<line name="line1" origin="344,256" points="80,144,6 184,208,2 336,144,2 392,232,2 504,184,2"/>
<text name="rect2" origin="364,44" bounds="288,24,440,64" pattern="1" border="15" fontname="瀹嬩綋" fontsize="16" text="鍙嶅悜琛岃繘">
<programe>
<!--
published function OnClick(Sender)
ln = 1000000
direction = -1
SetTimer( 1 )
end function
-->
</programe>
</text>
<rect name="rect3" origin="96,143" bounds="80,128,112,158" linetype="0" pattern="1" picturedata="04TGif47494638396120001E00C40000F2AD5EF8CE70AFF656F5E09EFF005AFFFFFE070502ADAEA6CCEFF5FBF2CA71C6AAB9E9F76F69647ECDDADCB87B9B8D6A94D9E3D9F568B9D9B7D0C6B7FEFDE7A6DFF3E4F7FC6C4D1DE9E2DCDEF0B6A5ECFA92EB5132250FEAEFEEAFDFD935443A21F90400000000002C0000000020001E000005FF60218E64699EA8884D477B60694C5AD367DCF777C871F7E0C0DB83873A048F3B2209C33906191DE5C878E3D89CC94267C29AA41838C6A379641428874FD30A3559C006CE2370717E7C4E06AC04BF04060064401F0C824F263F1C008B010E17866A4E395E4B178B8C018D0E0F0F9B618637662314180E9798037F11193F719E4F51A3030FA70001B611030954B48E411F7B2318B5B6997F09131C96C60C8F1C1CA22514A6B5B7010909D498B70E0E0927C3C497132B97D601B90914261413DAB6F00312E413A7C6D7EBD22B0EF79903131E1AB020D66840BE11163A504830A0A1C30C123C4068D0429CAD0CEA107640D00103820C20217AF0A040818008EF8C924558F5AD80050B086222F0307301840A102028D8B03242A69EE87A66A0F01266CC05082A28C5A9D3A480A73DA3428D40542682050B2A64D590B3C1CEA7604F8A85FA34C3CBAB58B36AE53AF1EB06016FC3CA1560F6685AA55D1B78DDC0176EDFB96537A2557B13A7DE927C132B5E2C408205A41E082BD5A077EFE2CB8A257CD8CCB9B3E7CFA03B13184DBAB4E9D3A84B8700003B"/>
<programe>
<!--
private function GetPointAtLength()
if Direction = -1 and ln < 0 then
  SetTimer( 0 )
  return
end if
L = 0
i = 0
while i < Line1.PointCount - 1
  x0 = Line1.X[i]
  y0 = Line1.Y[i]
  x1 = Line1.X[i+1]
  y1 = Line1.Y[i+1]
  s = sqrt( ( x0 - x1 ) * ( x0 - x1 ) + ( y0 - y1 ) * ( y0 - y1 ) )
  if L + s > ln then
    p.x = x0 + ( x1 - x0 ) * ( ln - L ) / s
    p.y = y0 + ( y1 - y0 ) * ( ln - L ) / s
    return
  else
    L = L + s
  end if
  i = i + 1
wend
if Direction = -1 then
  p.x = Line1.X[Line1.PointCount - 1]
  p.y = Line1.Y[Line1.PointCount - 1]
  ln = L
else
  SetTimer( 0 )
end if
end function
private function Initialize(Sender)
p = Point( 0, 0 )
ln = 0
direction = 1
end function
private function OnTimer(Sender)
ln = ln + direction * 5
GetPointAtLength()
rect3.MoveTo( p.x - rect3.Width / 2, p.y - rect3.Height / 2 )
end function
-->
</programe>
</sheet>
</vg>