need help solving a logic problem.

[JesseParticipant]

I have a logic problem I can’t figure out. I an trying to create a shape editor program. but I ran into problems when trying to create an arc while using the mouse. the Arc end points are handles that can be moved to increase or decrease the size of it’s circumference. and thats exactly where the problem is. I can move the handles to a certain point after that it draws the arc in reverse. it has to do with the way ATan2 Works.

I am posting and extract from my program in hope someone can help me figure this out. Use the mouse on the handles to edit the shape:

Monkey

[crayon-5cba8c882c8e9562581391 inline="true" ] Namespace shapeEditor #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Const Size:=New Vec2i( 640,480 ) Class MyWindow Extends Window Field arc:Arc Method New() Super.New( "My Window",640,480,WindowFlags.Resizable ) Layout = "letterbox" arc = New Arc(100,100,100) End Method OnRender( canvas:Canvas ) Override App.RequestRender() arc.Update() canvas.DrawText(arc.startAngle,10,10) canvas.DrawText(arc.endAngle,10,30) canvas.Color = New Color(.8,.1,.1) arc.Render(canvas) End Method OnKeyEvent( event:KeyEvent ) Override If event.Type=EventType.KeyDown And event.Key=Key.Enter And event.Modifiers & Modifier.Alt Fullscreen=Not Fullscreen Endif End Method OnMeasure:Vec2i() Override Return Size End End Function Main() New AppInstance New MyWindow App.Run() End Class Handle Field pos:Vec2d Field location:Vec2i Field radius:Float Method New(pos:Vec2d,radius:Float = 4) Self.pos = pos End Method Method SetLocation(p:Vec2i) End Method End Class Class Entity Field pos:Vec2d Field color:Color Method New() pos = New Vec2d color = New Color(1,1,1,1) End Method End Class Class Arc Extends Entity Field radius:Float Field startAngle:Float Field endAngle:Float Field angleSteps:Float Field stepSize:Float Field angleStep:Float Field lineWidth:Float Field arcCenter:Vec2d Field prevs:Float Field preve:Float Field tpos:Vec2d Field trad:Vec2d Field tstart:Vec2d Field teend:Vec2d Field temp:Vec2d Const HANDLE_SIZE:Int = 4 Method New(x:Float,y:Float,radius:Float=10,startAngle:Float=0,endAngle:Float=Pi/2.0,lineWidth:Int = 6) Self.pos =New Vec2d(x,y) Self.radius = radius Self.startAngle = startAngle Self.endAngle = endAngle Self.lineWidth = lineWidth Self.arcCenter = New Vec2d Self.prevs = Self.startAngle Self.preve = Self.endAngle Self.Init() End Method Method Init() Self.stepSize = 1.0/Pi*radius Self.angleStep = (endAngle-startAngle)/stepSize Local mid:Float = (endAngle-startAngle)/2.0 arcCenter.Set(Cos(startAngle+mid)*radius,Sin(startAngle+mid)*radius) temp = New Vec2d End Method Method MouseInHandle:Bool() Local vx:Float = Mouse.X - pos.x Local vy:Float = Mouse.Y - pos.y Return Sqrt(vx*vx+vy*vy) <= HANDLE_SIZE End Method Method MouseInRadius:Bool() Local vx:Float = Mouse.X - (pos.x+arcCenter.x) Local vy:Float = Mouse.Y - (pos.y+arcCenter.y) Return Sqrt(vx*vx+vy*vy) <= HANDLE_SIZE End Method Method MouseInStart:Bool() Local x:Float = pos.x+Cos(startAngle)*radius Local y:Float = pos.y+Sin(startAngle)*radius Local vx:Float = Mouse.X - x Local vy:Float = Mouse.Y - y Return Sqrt(vx*vx+vy*vy) <=HANDLE_SIZE End Method Method MouseAtEnd:Bool() Local x:Float = pos.x+Cos(endAngle)*radius Local y:Float = pos.y+Sin(endAngle)*radius Local vx:Float = Mouse.X - x Local vy:Float = Mouse.Y - y Return Sqrt(vx*vx+vy*vy) <= HANDLE_SIZE End method Method Update() If Mouse.ButtonPressed(MouseButton.Left) If MouseInHandle() tpos = pos Elseif MouseInRadius() trad = arcCenter Elseif MouseInStart() tstart = temp Elseif MouseAtEnd() teend = temp Endif Elseif Mouse.ButtonReleased(MouseButton.Left) tpos = Null trad = Null tstart = Null teend = Null Endif If tpos tpos.x = Mouse.X tpos.y = Mouse.Y Elseif trad trad.x = Mouse.X - pos.x trad.y = Mouse.Y - pos.y Local vx:Float = pos.x - (pos.x+trad.x) Local vy:Float = pos.y - (pos.y+trad.y) radius = Sqrt(vx*vx+vy*vy) Init() Elseif tstart Local vx:Float = Mouse.X - pos.x Local vy:Float = Mouse.Y - pos.y Local cAngle:Float = ATan2(vy,vx) startAngle = (cAngle + TwoPi) Mod TwoPi angleStep = (endAngle-startAngle)/stepSize Init() Elseif teend Local vx:Float = Mouse.X - pos.x Local vy:Float = Mouse.Y - pos.y endAngle = (ATan2(vy,vx)+ TwoPi) Mod TwoPi If endAngle < startAngle Local len:Float = startAngle - endAngle If len > TwoPi endAngle += TwoPi Endif Endif angleStep = (endAngle-startAngle)/stepSize Init() Endif End Method Method Render(canvas:Canvas) canvas.LineWidth = lineWidth ' Determine coordinates of first point using basic circle math. Local xx:Float = Cos(startAngle) * radius Local yy:Float = Sin(startAngle) * radius Local px:Float = pos.x+xx Local py:Float = pos.y+yy canvas.DrawCircle(px,py,HANDLE_SIZE) For Local i:Int = 1 To stepSize ' ' Increment the angle by "angleStep". Local angle:Float = startAngle + i * angleStep ' ' Determine Next point's coordinates using basic circle math. xx = pos.x + Cos(angle) * radius yy = pos.y + Sin(angle) * radius canvas.DrawCircle(pos.x,pos.y,HANDLE_SIZE) ' ' Draw a line To the Next point. canvas.DrawLine(px,py,xx, yy) px = xx py = yy Next Local ex := Cos(endAngle) * radius Local ey := Sin(endAngle) * radius canvas.DrawLine(px,py,pos.x+ex,pos.y+ey) canvas.DrawCircle(pos.x+arcCenter.x,pos.y+arcCenter.y,HANDLE_SIZE) canvas.LineWidth = 1 canvas.DrawLine(pos.x,pos.y,pos.x+arcCenter.x,pos.y+arcCenter.y) canvas.DrawCircle(pos.x+ex,pos.y+ey,HANDLE_SIZE) End Method End Class Class Vec2d Field x:Float Field y:Float Method New() End Method Method New(x:Float,y:Float) Set(x,y) End Method Method New(x1:Float,y1:Float,x2:Float,y2:Float) Set(x2-x1,y2-y1) End Method Method New(v:Vec2d) Set(v) End Method Method Set:Vec2d(v:Vec2d) x = v.x y = v.y Return Self End Method Method Set:Vec2d(x:Float,y:Float) Self.x = x Self.y = y Return Self End Method End Class

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274

[crayon-5cba8c882c8e9562581391 inline="true" ] Namespace shapeEditor   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Const Size:=New Vec2i( 640,480 )   Class MyWindow Extends Window Field arc:Arc Method New() Super.New( "My Window",640,480,WindowFlags.Resizable ) Layout = "letterbox" arc = New Arc(100,100,100) End   Method OnRender( canvas:Canvas ) Override App.RequestRender() arc.Update() canvas.DrawText(arc.startAngle,10,10) canvas.DrawText(arc.endAngle,10,30) canvas.Color = New Color(.8,.1,.1) arc.Render(canvas) End Method OnKeyEvent( event:KeyEvent ) Override If event.Type=EventType.KeyDown And event.Key=Key.Enter And event.Modifiers & Modifier.Alt Fullscreen=Not Fullscreen Endif End Method OnMeasure:Vec2i() Override Return Size End End   Function Main()   New AppInstance New MyWindow App.Run() End   Class Handle Field pos:Vec2d Field location:Vec2i Field radius:Float Method New(pos:Vec2d,radius:Float = 4) Self.pos = pos End Method Method SetLocation(p:Vec2i) End Method End Class   Class Entity Field pos:Vec2d Field color:Color Method New() pos = New Vec2d color = New Color(1,1,1,1) End Method   End Class   Class Arc Extends Entity Field radius:Float Field startAngle:Float Field endAngle:Float Field angleSteps:Float Field stepSize:Float Field angleStep:Float Field lineWidth:Float Field arcCenter:Vec2d Field prevs:Float Field preve:Float Field tpos:Vec2d Field trad:Vec2d Field tstart:Vec2d Field teend:Vec2d Field temp:Vec2d   Const HANDLE_SIZE:Int = 4 Method New(x:Float,y:Float,radius:Float=10,startAngle:Float=0,endAngle:Float=Pi/2.0,lineWidth:Int = 6) Self.pos =New Vec2d(x,y) Self.radius = radius Self.startAngle = startAngle Self.endAngle = endAngle Self.lineWidth = lineWidth Self.arcCenter = New Vec2d Self.prevs = Self.startAngle Self.preve = Self.endAngle Self.Init() End Method Method Init() Self.stepSize = 1.0/Pi*radius Self.angleStep = (endAngle-startAngle)/stepSize     Local mid:Float = (endAngle-startAngle)/2.0     arcCenter.Set(Cos(startAngle+mid)*radius,Sin(startAngle+mid)*radius) temp = New Vec2d End Method Method MouseInHandle:Bool() Local vx:Float = Mouse.X - pos.x Local vy:Float = Mouse.Y - pos.y Return Sqrt(vx*vx+vy*vy) <= HANDLE_SIZE End Method Method MouseInRadius:Bool() Local vx:Float = Mouse.X - (pos.x+arcCenter.x) Local vy:Float = Mouse.Y - (pos.y+arcCenter.y) Return Sqrt(vx*vx+vy*vy) <= HANDLE_SIZE End Method Method MouseInStart:Bool() Local x:Float = pos.x+Cos(startAngle)*radius Local y:Float = pos.y+Sin(startAngle)*radius Local vx:Float = Mouse.X - x Local vy:Float = Mouse.Y - y Return Sqrt(vx*vx+vy*vy) <=HANDLE_SIZE End Method Method MouseAtEnd:Bool() Local x:Float = pos.x+Cos(endAngle)*radius Local y:Float = pos.y+Sin(endAngle)*radius Local vx:Float = Mouse.X - x Local vy:Float = Mouse.Y - y Return Sqrt(vx*vx+vy*vy) <= HANDLE_SIZE End method Method Update() If Mouse.ButtonPressed(MouseButton.Left) If MouseInHandle() tpos = pos Elseif MouseInRadius() trad = arcCenter Elseif MouseInStart() tstart = temp Elseif MouseAtEnd() teend = temp Endif Elseif Mouse.ButtonReleased(MouseButton.Left) tpos = Null trad = Null tstart = Null teend = Null Endif If tpos tpos.x = Mouse.X tpos.y = Mouse.Y Elseif trad trad.x = Mouse.X - pos.x trad.y = Mouse.Y - pos.y Local vx:Float = pos.x - (pos.x+trad.x) Local vy:Float = pos.y - (pos.y+trad.y) radius = Sqrt(vx*vx+vy*vy) Init() Elseif tstart Local vx:Float = Mouse.X - pos.x Local vy:Float = Mouse.Y - pos.y Local cAngle:Float = ATan2(vy,vx) startAngle = (cAngle + TwoPi) Mod TwoPi angleStep = (endAngle-startAngle)/stepSize Init() Elseif teend Local vx:Float = Mouse.X - pos.x Local vy:Float = Mouse.Y - pos.y endAngle = (ATan2(vy,vx)+ TwoPi) Mod TwoPi If endAngle < startAngle Local len:Float = startAngle - endAngle If len > TwoPi endAngle += TwoPi Endif Endif angleStep = (endAngle-startAngle)/stepSize Init() Endif End Method Method Render(canvas:Canvas) canvas.LineWidth = lineWidth     ' Determine coordinates of first point using basic circle math.     Local xx:Float = Cos(startAngle) * radius     Local yy:Float = Sin(startAngle) * radius     Local px:Float = pos.x+xx     Local py:Float = pos.y+yy canvas.DrawCircle(px,py,HANDLE_SIZE)     For Local i:Int = 1 To stepSize         '         ' Increment the angle by "angleStep".         Local angle:Float = startAngle + i * angleStep         '         ' Determine Next point's coordinates using basic circle math.         xx = pos.x + Cos(angle) * radius         yy = pos.y + Sin(angle) * radius         canvas.DrawCircle(pos.x,pos.y,HANDLE_SIZE)         '         ' Draw a line To the Next point.         canvas.DrawLine(px,py,xx, yy)     px = xx     py = yy     Next     Local ex := Cos(endAngle) * radius     Local ey := Sin(endAngle) * radius     canvas.DrawLine(px,py,pos.x+ex,pos.y+ey)     canvas.DrawCircle(pos.x+arcCenter.x,pos.y+arcCenter.y,HANDLE_SIZE)     canvas.LineWidth = 1     canvas.DrawLine(pos.x,pos.y,pos.x+arcCenter.x,pos.y+arcCenter.y)     canvas.DrawCircle(pos.x+ex,pos.y+ey,HANDLE_SIZE) End Method End Class   Class Vec2d Field x:Float Field y:Float Method New() End Method Method New(x:Float,y:Float) Set(x,y) End Method Method New(x1:Float,y1:Float,x2:Float,y2:Float) Set(x2-x1,y2-y1) End Method Method New(v:Vec2d) Set(v) End Method Method Set:Vec2d(v:Vec2d) x = v.x y = v.y Return Self End Method Method Set:Vec2d(x:Float,y:Float) Self.x = x Self.y = y Return Self End Method   End Class

[/crayon]

I have tried several different ways of doing it but I can’t seem to figure out how to solve it.

[codifiesParticipant]

it would be easier to test with this #Import “vec2d.monkey2”

jplib?

can you reduce it to a minimal example that can be run on the defaul modules ?

[JesseParticipant]

sorry I forgot about that. Corrected source code!

[codifiesParticipant]

nice…. thats a proper pain!

I had a quick fiddle but no joy and speaking of joy http://gamedev.stackexchange.com/questions/46552/360-degree-rotation-skips-back-to-0-degrees-when-using-math-atan2y-x

interested to see how you get on….

[JesseParticipant]

I’m going to have to scrap that idea somewhat and use vector sequence instead. It’ll help me freshen up on my vector math.

[abakoboParticipant]

here is some working example with starting and ending point, so if you invert the handles to arc will flip.
May be you don’t want it to flip when the angle is small. EDIT: If so just invert start and end when the switch occurs. Won’t work “just” like that…
You should have used Vec2f instead of redefine a vec2. Monkey is full of little gentle things like that..

Monkey

[crayon-5cba8c88474b6994688729 inline="true" ]Namespace shapeEditor #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Const Size:=New Vec2i( 640,480 ) Class MyWindow Extends Window Field arc:Arc Method New() Super.New( "My Window",640,480,WindowFlags.Resizable ) Layout = "letterbox" arc = New Arc(100,100,100) End Method OnRender( canvas:Canvas ) Override App.RequestRender() arc.Update() canvas.DrawText(arc.startAngle,10,10) canvas.DrawText(arc.endAngle,10,30) canvas.DrawText(arc.stepSize,10,50) canvas.DrawText(arc.angleStep,10,70) canvas.Color = New Color(.8,.1,.1) arc.Render(canvas) End Method OnKeyEvent( event:KeyEvent ) Override If event.Type=EventType.KeyDown And event.Key=Key.Enter And event.Modifiers & Modifier.Alt 'Fullscreen=Not Fullscreen Returned an error.. Endif End Method OnMeasure:Vec2i() Override Return Size End End Function Main() New AppInstance New MyWindow App.Run() End Class Handle Field pos:Vec2d Field location:Vec2i Field radius:Float Method New(pos:Vec2d,radius:Float = 4) Self.pos = pos End Method Method SetLocation(p:Vec2i) End Method End Class Class Entity Field pos:Vec2d Field color:Color Method New() pos = New Vec2d color = New Color(1,1,1,1) End Method End Class Class Arc Extends Entity Field radius:Float Field startAngle:Float Field endAngle:Float Field angleSteps:Float Field stepSize:Float Field angleStep:Float Field lineWidth:Float Field arcCenter:Vec2d Field prevs:Float Field preve:Float Field tpos:Vec2d Field trad:Vec2d Field tstart:Vec2d Field teend:Vec2d Field temp:Vec2d Const HANDLE_SIZE:Int = 4 Method New(x:Float,y:Float,radius:Float=10,startAngle:Float=0,endAngle:Float=Pi/2.0,lineWidth:Int = 6) Self.pos =New Vec2d(x,y) Self.radius = radius Self.startAngle = startAngle Self.endAngle = endAngle Self.lineWidth = lineWidth Self.arcCenter = New Vec2d Self.prevs = Self.startAngle Self.preve = Self.endAngle Self.Init() End Method Method Init() Self.stepSize = 1.0/Pi*radius '-------modified from here Local angleWidth:Float If startAngle<=endAngle angleWidth=(endAngle-startAngle) Else angleWidth=(TwoPi+endAngle-startAngle) End Self.angleStep = angleWidth/stepSize Local mid:Float = angleWidth/2.0 '-------to here arcCenter.Set(Cos(startAngle+mid)*radius,Sin(startAngle+mid)*radius) temp = New Vec2d End Method Method MouseInHandle:Bool() Local vx:Float = Mouse.X - pos.x Local vy:Float = Mouse.Y - pos.y Return Sqrt(vx*vx+vy*vy) <= HANDLE_SIZE End Method Method MouseInRadius:Bool() Local vx:Float = Mouse.X - (pos.x+arcCenter.x) Local vy:Float = Mouse.Y - (pos.y+arcCenter.y) Return Sqrt(vx*vx+vy*vy) <= HANDLE_SIZE End Method Method MouseInStart:Bool() Local x:Float = pos.x+Cos(startAngle)*radius Local y:Float = pos.y+Sin(startAngle)*radius Local vx:Float = Mouse.X - x Local vy:Float = Mouse.Y - y Return Sqrt(vx*vx+vy*vy) <=HANDLE_SIZE End Method Method MouseAtEnd:Bool() Local x:Float = pos.x+Cos(endAngle)*radius Local y:Float = pos.y+Sin(endAngle)*radius Local vx:Float = Mouse.X - x Local vy:Float = Mouse.Y - y Return Sqrt(vx*vx+vy*vy) <= HANDLE_SIZE End method Method Update() If Mouse.ButtonPressed(MouseButton.Left) If MouseInHandle() tpos = pos Elseif MouseInRadius() trad = arcCenter Elseif MouseInStart() tstart = temp Elseif MouseAtEnd() teend = temp Endif Elseif Mouse.ButtonReleased(MouseButton.Left) tpos = Null trad = Null tstart = Null teend = Null Endif If tpos tpos.x = Mouse.X tpos.y = Mouse.Y Elseif trad trad.x = Mouse.X - pos.x trad.y = Mouse.Y - pos.y Local vx:Float = pos.x - (pos.x+trad.x) Local vy:Float = pos.y - (pos.y+trad.y) radius = Sqrt(vx*vx+vy*vy) Init() Elseif tstart Local vx:Float = Mouse.X - pos.x Local vy:Float = Mouse.Y - pos.y startAngle = ATan2(vy,vx) '-------modfied this line for unusefull calculus '-------removed things here Init() Elseif teend Local vx:Float = Mouse.X - pos.x Local vy:Float = Mouse.Y - pos.y endAngle = ATan2(vy,vx) '--------modfied this line for unusefull calculus '-------removed things here Init() Endif End Method Method Render(canvas:Canvas) canvas.LineWidth = lineWidth ' Determine coordinates of first point using basic circle math. Local xx:Float = Cos(startAngle) * radius Local yy:Float = Sin(startAngle) * radius Local px:Float = pos.x+xx Local py:Float = pos.y+yy canvas.DrawCircle(px,py,HANDLE_SIZE) For Local i:Int = 1 To stepSize ' ' Increment the angle by "angleStep". Local angle:Float = startAngle + i * angleStep ' ' Determine Next point's coordinates using basic circle math. xx = pos.x + Cos(angle) * radius yy = pos.y + Sin(angle) * radius canvas.DrawCircle(pos.x,pos.y,HANDLE_SIZE) ' ' Draw a line To the Next point. canvas.DrawLine(px,py,xx, yy) px = xx py = yy Next Local ex := Cos(endAngle) * radius Local ey := Sin(endAngle) * radius canvas.DrawLine(px,py,pos.x+ex,pos.y+ey) canvas.DrawCircle(pos.x+arcCenter.x,pos.y+arcCenter.y,HANDLE_SIZE) canvas.LineWidth = 1 canvas.DrawLine(pos.x,pos.y,pos.x+arcCenter.x,pos.y+arcCenter.y) canvas.DrawCircle(pos.x+ex,pos.y+ey,HANDLE_SIZE) End Method End Class Class Vec2d Field x:Float Field y:Float Method New() End Method Method New(x:Float,y:Float) Set(x,y) End Method Method New(x1:Float,y1:Float,x2:Float,y2:Float) Set(x2-x1,y2-y1) End Method Method New(v:Vec2d) Set(v) End Method Method Set:Vec2d(v:Vec2d) x = v.x y = v.y Return Self End Method Method Set:Vec2d(x:Float,y:Float) Self.x = x Self.y = y Return Self End Method End Class

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284

[crayon-5cba8c88474b6994688729 inline="true" ]Namespace shapeEditor #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Const Size:=New Vec2i( 640,480 ) Class MyWindow Extends Window Field arc:Arc Method New() Super.New( "My Window",640,480,WindowFlags.Resizable ) Layout = "letterbox" arc = New Arc(100,100,100) End Method OnRender( canvas:Canvas ) Override App.RequestRender() arc.Update() canvas.DrawText(arc.startAngle,10,10) canvas.DrawText(arc.endAngle,10,30) canvas.DrawText(arc.stepSize,10,50) canvas.DrawText(arc.angleStep,10,70) canvas.Color = New Color(.8,.1,.1) arc.Render(canvas) End Method OnKeyEvent( event:KeyEvent ) Override If event.Type=EventType.KeyDown And event.Key=Key.Enter And event.Modifiers & Modifier.Alt 'Fullscreen=Not Fullscreen Returned an error..   Endif End Method OnMeasure:Vec2i() Override Return Size End End Function Main() New AppInstance New MyWindow App.Run() End Class Handle Field pos:Vec2d Field location:Vec2i Field radius:Float Method New(pos:Vec2d,radius:Float = 4) Self.pos = pos End Method Method SetLocation(p:Vec2i) End Method End Class Class Entity Field pos:Vec2d Field color:Color Method New() pos = New Vec2d color = New Color(1,1,1,1) End Method End Class Class Arc Extends Entity Field radius:Float Field startAngle:Float Field endAngle:Float Field angleSteps:Float Field stepSize:Float Field angleStep:Float Field lineWidth:Float Field arcCenter:Vec2d Field prevs:Float Field preve:Float Field tpos:Vec2d Field trad:Vec2d Field tstart:Vec2d Field teend:Vec2d Field temp:Vec2d Const HANDLE_SIZE:Int = 4 Method New(x:Float,y:Float,radius:Float=10,startAngle:Float=0,endAngle:Float=Pi/2.0,lineWidth:Int = 6) Self.pos =New Vec2d(x,y) Self.radius = radius Self.startAngle = startAngle Self.endAngle = endAngle Self.lineWidth = lineWidth Self.arcCenter = New Vec2d Self.prevs = Self.startAngle Self.preve = Self.endAngle Self.Init() End Method Method Init() Self.stepSize = 1.0/Pi*radius '-------modified from here Local angleWidth:Float If startAngle<=endAngle angleWidth=(endAngle-startAngle) Else angleWidth=(TwoPi+endAngle-startAngle) End Self.angleStep = angleWidth/stepSize     Local mid:Float = angleWidth/2.0     '-------to here               arcCenter.Set(Cos(startAngle+mid)*radius,Sin(startAngle+mid)*radius) temp = New Vec2d End Method Method MouseInHandle:Bool() Local vx:Float = Mouse.X - pos.x Local vy:Float = Mouse.Y - pos.y Return Sqrt(vx*vx+vy*vy) <= HANDLE_SIZE End Method Method MouseInRadius:Bool() Local vx:Float = Mouse.X - (pos.x+arcCenter.x) Local vy:Float = Mouse.Y - (pos.y+arcCenter.y) Return Sqrt(vx*vx+vy*vy) <= HANDLE_SIZE End Method Method MouseInStart:Bool() Local x:Float = pos.x+Cos(startAngle)*radius Local y:Float = pos.y+Sin(startAngle)*radius Local vx:Float = Mouse.X - x Local vy:Float = Mouse.Y - y Return Sqrt(vx*vx+vy*vy) <=HANDLE_SIZE End Method Method MouseAtEnd:Bool() Local x:Float = pos.x+Cos(endAngle)*radius Local y:Float = pos.y+Sin(endAngle)*radius Local vx:Float = Mouse.X - x Local vy:Float = Mouse.Y - y Return Sqrt(vx*vx+vy*vy) <= HANDLE_SIZE End method Method Update() If Mouse.ButtonPressed(MouseButton.Left) If MouseInHandle() tpos = pos Elseif MouseInRadius() trad = arcCenter Elseif MouseInStart() tstart = temp Elseif MouseAtEnd() teend = temp Endif Elseif Mouse.ButtonReleased(MouseButton.Left) tpos = Null trad = Null tstart = Null teend = Null Endif If tpos tpos.x = Mouse.X tpos.y = Mouse.Y Elseif trad trad.x = Mouse.X - pos.x trad.y = Mouse.Y - pos.y Local vx:Float = pos.x - (pos.x+trad.x) Local vy:Float = pos.y - (pos.y+trad.y) radius = Sqrt(vx*vx+vy*vy) Init() Elseif tstart Local vx:Float = Mouse.X - pos.x Local vy:Float = Mouse.Y - pos.y startAngle = ATan2(vy,vx) '-------modfied this line for unusefull calculus '-------removed things here Init() Elseif teend Local vx:Float = Mouse.X - pos.x Local vy:Float = Mouse.Y - pos.y endAngle = ATan2(vy,vx) '--------modfied this line for unusefull calculus '-------removed things here Init() Endif End Method Method Render(canvas:Canvas) canvas.LineWidth = lineWidth     ' Determine coordinates of first point using basic circle math.     Local xx:Float = Cos(startAngle) * radius     Local yy:Float = Sin(startAngle) * radius     Local px:Float = pos.x+xx     Local py:Float = pos.y+yy canvas.DrawCircle(px,py,HANDLE_SIZE)       For Local i:Int = 1 To stepSize         '         ' Increment the angle by "angleStep".         Local angle:Float = startAngle + i * angleStep                  '         ' Determine Next point's coordinates using basic circle math.         xx = pos.x + Cos(angle) * radius         yy = pos.y + Sin(angle) * radius         canvas.DrawCircle(pos.x,pos.y,HANDLE_SIZE)         '         ' Draw a line To the Next point.         canvas.DrawLine(px,py,xx, yy)     px = xx     py = yy     Next     Local ex := Cos(endAngle) * radius     Local ey := Sin(endAngle) * radius     canvas.DrawLine(px,py,pos.x+ex,pos.y+ey)     canvas.DrawCircle(pos.x+arcCenter.x,pos.y+arcCenter.y,HANDLE_SIZE)     canvas.LineWidth = 1     canvas.DrawLine(pos.x,pos.y,pos.x+arcCenter.x,pos.y+arcCenter.y)     canvas.DrawCircle(pos.x+ex,pos.y+ey,HANDLE_SIZE) End Method End Class Class Vec2d Field x:Float Field y:Float Method New() End Method Method New(x:Float,y:Float) Set(x,y) End Method Method New(x1:Float,y1:Float,x2:Float,y2:Float) Set(x2-x1,y2-y1) End Method Method New(v:Vec2d) Set(v) End Method Method Set:Vec2d(v:Vec2d) x = v.x y = v.y Return Self End Method Method Set:Vec2d(x:Float,y:Float) Self.x = x Self.y = y Return Self End Method End Class

[/crayon]

[JesseParticipant]

Oh, this is good! Thanks abakobo. that did it. I haven’t gone trough the code to see how you did it but it works so Thank you.

>You should have used Vec2f instead of redefine a vec2. Monkey is full of little gentle things like that..

I had several reasons for using my own Vector class. the #1 reason I had for using it was that I have some functionality on it that the default module does not have and I will be needing it in the long run. Another is that since I am using pointers to determine where the if statements take action and a null is needed and since the default vector is a structure it is really never Null, You don’t even have to create an instance of the structure for it to have a value or access its fields, so It was no use for this program.

[abakoboParticipant]

Structs goes on the stack and classes on the heap… So structs are theoretically faster.. if you’ll use your vects in very iterative process it will slowdown your app. In some very hungry loops it’s even interresting to use x and y with no structs at all!

[JesseParticipant]

I know how they work, but I wasn’t looking for speed. I just needed it to work. I know there are other ways I could have done it to make it even faster but it served it’s purpose so I am fine with it. Thanks for the advice anyway.

[Author]

Posts