Fun with trig and drawfillpolygon

[petree08]

I was just playing with turing's trig functions and made this
% may be useful for a paint type program


this program draws any polygon (with 1- 360 verticies)

the polygon is rotated by the mouse and the size is determined by the length of the mouse from the center of screen

Edit the number of points by changing the NUM_OF_POINTS constant

right now the program is configured for a pentagon

have fun!

code:

function Length_Find (X1, Y1, X2, Y2 : real4) : real     result sqrt ((X1 - X2) ** 2 + (Y1 - Y2) ** 2) end Length_Find setscreen ("graphics:max,max,nobuttonbar,offscreenonly") const NUM_OF_POINTS := 5 const MID_X := maxx div 2 const MID_Y := maxy div 2 var XP, YP : array 1 .. NUM_OF_POINTS of int var XM, YM, Click : int var Length : real4 var Angle : int2 Length := 100 Angle := 0 for I : 1 .. NUM_OF_POINTS     XP (I) := round (cosd (I * (360 / NUM_OF_POINTS)) * Length) + MID_X     YP (I) := round (sind (I * (360 / NUM_OF_POINTS)) * Length) + MID_Y end for loop     cls     mousewhere (XM, YM, Click)     Length := Length_Find (MID_X, MID_Y, XM, YM)     if (XM - MID_X) = 0 then         if YM > MID_Y then             Angle := 90         else             Angle := 270         end if     else         Angle := round (arctand ((MID_Y - YM) / (MID_X - XM)))         if XM < MID_X then             Angle := Angle - 180         end if     end if     for I : 1 .. NUM_OF_POINTS         XP (I) := round (cosd (I * (360 / NUM_OF_POINTS) +             Angle) * Length) + MID_X         YP (I) := round (sind (I * (360 / NUM_OF_POINTS) +             Angle) * Length) + MID_Y     end for     drawfillpolygon (XP, YP, NUM_OF_POINTS, 10)     View.Update end loop

[repsoccer16]

amazing program...pretty cool and could be quite useful.

[petree08]

I was thinking this could be useful for a paint type program. I'm sure there is a more efficient way to code this (i wrote it in like 5 minutes)

[Tallguy]

its really cool, but try to make the reaction time a bit faster

[petree08]

wHaT dO yOU mEAn bY REaCtioN tImE?

Do you mean

- frame rate
- time required to compile
- reaction of the user

All of these are dependant on the speed of the computer. When i have this going on the crappy school computers it runs smoother than a baby's bottem

[andrew.]

I think he means the frame rate. I noticed that on my computer, it's a tad slow (like 0.5 FPS lag). No biggie though. It may be my OS though, I'm using Vista right now.

[Tallguy]

sorry for not being clear, i did meant frame rate

[Michael516]

The speed is o.k. on my computer, mabye your computer is just slow.

[repsoccer16]

ya it is perfectly fine on my computer too so it is just your computer.

Good program

[nastynika]

very interesting good job