Thread: 3 Point Arc
View Single Post
  #9 (permalink)  
Old 05-22-2008, 04:36 PM
colin9876 colin9876 is offline
Basic4ppc Veteran
  
Join Date: Nov 2007
Posts: 366
Awards Showcase
Beta Tester 
Total Awards: 1
Default heres my solution
Sub Draw_Arc(x,y,r,a1,a2,color) 'Angles are in Radians

s = 1/r
For i=a1 To (a2-s) Step s
form1.line(x+r*Cos(i),y+r*Sin(i),x+r*Cos(i+s),y +r*Sin(i+s),color)
Next

End Sub
Last edited by colin9876 : 05-22-2008 at 04:49 PM.
Reply With Quote