Outstanding! This project will be greatly appreciated by many,
Miguel Lobo, and I will be very anxious to see it's progress. Please allow me to offer a short snippet that might be useful for any of the following commands:
CIRCLE
SIN
COS
TEXT
It's a short routine that displays a traditional looking radar screen with a radial line sweeping around:
sync on
sync rate 60
screenx = screen width()
screeny = screen height()
centerx = screenx / 2
centery = screeny / 2
angle# = 360
sweepSpeed# = .5
do
cls
ink rgb(0,255,0),rgb(0,0,0)
circle centerx,centery,centery - 1
circle centerx,centery,centery - 2
circle centerx,centery,centery - 3
circle centerx,centery,centery - 4
circle centerx,centery,centery - 5
text 0,0,"newX: " + str$(newX)
text 0,10,"newY: " + str$(newY)
lengthOpp = (sin(angle#) * (centery-1))
lengthAdj = (cos(angle#) * (centery-1))
if angle# >= 180 then newX = centerx+lengthAdj
if angle# < 180 then newX = centerx-lengthAdj
if angle# <= 45 or angle# >= 270 then newY = centery-lengthOpp
if angle# > 45 or angle# < 270 then newY = centery+lengthOpp
line centerx, centery, newX, newY
inc angle#, sweepSpeed#
if angle# = 360 then angle# = 0
sync
loop
