GR.OPEN 255, 0, 0, 255
GR.ORIENTATION 0  % Force landscape
GR.SCREEN actual_w, actual_h


!set the device independent height and scale graphics
di_height = 480
di_width = 640
scale_width = actual_w /di_width
scale_height = actual_h /di_height
gr.scale scale_width, scale_height

whalf = scale_width/2
hquar = scale_height/4

!Set the draw color to white
a = 255
r = 255
g = 255
b = 255
fill = 0
GR.COLOR a,r,g,b,fill

!Render the points in white
do
dr=3.14/180
for r=30 to 330 step 7
for t=0 to 355 step 5
x=r*cos(t*dr)*0.5 
y=r*sin(r*dr)*0.6 
z=r*sin(t*dr)*0.5
xp=x+(cos(15*dr)*z)
yp=y+(sin(15*dr)*z)
xp=xp+(di_width/2)
yp=(di_height/2)-yp
gr.circle n, xp, yp,1
!gr.render
next t
next r
gr.render
until 0