Sorry your browser is not supported!

If RiiDii=Waiting_Patiently_For_Next_Challenge
  Print "All is good"
Else
  Print "Yeah-Right!"
Endif
End

Output: Yeah-Right!

square(100,100,40)
wait key

function square(x,y,size)
box x,y,x+size,y+size
endfunction

rem syntax
rem outline(left,top,right,bottom,thickness,box_color,inside_color)
rem

box_color=rgb(255,125,60)
inside_color=rgb(200,200,255)
outline(50,50,200,200,3,box_color,inside_color)

wait key

function outline(x1,y1,x2,y2,thick,bc,ic)
ink bc,0
box x1,y1,x2,y2
ink ic,0
box x1+thick,y1+thick,x2-thick,y2-thick

endfunction

sync on
size=20
do
   cls
   angle#=wrapvalue(angle#+4.0)
   n_gon(128,240,3,size,angle#,rgb(0,0,255))
   n_gon(256,240,4,size,angle#,rgb(0,255,0))
   n_gon(384,240,5,size,angle#,rgb(255,0,0))
   n_gon(512,240,6,size,angle#,rgb(200,200,0))
   text 1,1,str$(screen fps())
sync
loop

function n_gon(x,y,sides,size,angle#,color)
   size2=cos((360.0/(sides*2.0)))*(size)
   lock pixels
   start=get pixels pointer()
   repeat_number=get pixels pitch()
   bits_per_pixel=bitmap depth(num)/8
   degrees#=360.0/sides

   for i=-size to size
      for j=-size to size
         if i+x>=0 and j+y>=0 and i+x<bitmap width() and j+y<bitmap height()
            conditions=0
            for side=1 to sides
               if (j*sin(angle#+side*degrees#))+(i*cos(angle#+side*degrees#))-size2+0.5 <=0.0 then inc conditions
            next side
            if conditions=sides
               pointer=start+(y+j)*repeat_number+(x+i)*bits_per_pixel
               *pointer=color
            endif
         endif
      next j
   next i
   unlock pixels
endfunction

size# = 50


do
cls
   if mouseclick()=1 then inc size#,1
   if mouseclick()=2 then dec size#,1
   teapot(mousex(), mousey(), size#, 1,1,1,1)

loop


suspend for key




function teapot(x as integer, y as integer, size# as float, base as boolean, lid as boolean, handle as boolean, spout as boolean )
   if spout
      rem spout
      line size#+x,-size#*0.25+y,size#*1.3+x,-size#*0.5+y
      line size#*1.3+x,-size#*0.5+y, size#*1.4+x,-size#*0.8+y
      line size#*1.4+x,-size#*0.8+y, size#*1.6+x, -size#*0.85+y
      line size#*1.6+x, -size#*0.85+y, size#*1.25+x,-size#*0.85+y
      line size#*1.25+x,-size#*0.85+y, size#*1.1+x, -size#*0.55+y
      line size#*1.1+x, -size#*0.55+y, size#+x, -size#*0.5+y
   endif
   if base
      rem base
      line -size#*0.75+x,y,size#*.75+x,y
      line -size#*0.75+x,y,-size#+x,-size#*0.1+y
      line size#*0.75+x,y,size#+x,-size#*0.1+y
      line size#+x,-size#*0.1+y,size#+x,-size#*0.5+y
      line -size#+x,-size#*0.1+y,-size#+x,-size#*0.5+y
      line size#+x,-size#*0.5+y,size#*0.75+x,-size#+y
      line -size#+x,-size#*0.5+y,-size#*0.75+x,-size#+y
   endif
   if lid
      rem lid
      line size#*0.1+x,-size#*1.1+y,size#*0.75+x,-size#+y
      line -size#*0.1+x,-size#*1.1+y,-size#*0.75+x,-size#+y
      line size#*0.1+x, -size#*1.1+y, size#*0.1+x, -size#*1.2+y
      line -size#*0.1+x, -size#*1.1+y, -size#*0.1+x, -size#*1.2+y
      line size#*0.1+x,-size#*1.2+y,size#*0.2+x,-size#*1.3+y
      line -size#*0.1+x,-size#*1.2+y,-size#*0.2+x,-size#*1.3+y
      line size#*0.2+x, -size#*1.3+y, size#*0.2+x, -size#*1.35+y
      line -size#*0.2+x, -size#*1.3+y, -size#*0.2+x, -size#*1.35+y
      line size#*0.2+x, -size#*1.35+y, x, -size#*1.4+y
      line -size#*0.2+x, -size#*1.35+y, x, -size#*1.4+y
   endif
   if handle
      rem handle
      line -size#+x,-size#*0.25+y,-size#*1.4+x,-size#*0.5+y
      line -size#*1.4+x,-size#*0.5+y,-size#*1.4+x,-size#*0.6+y
      line -size#*1.4+x,-size#*0.6+y,-size#*1.3+x,-size#*0.7+y
      line -size#*1.3+x,-size#*0.7+y, -size#*0.9+x, -size#*0.75+y
   endif
endfunction

function cube(x as integer, y as integer, size# as float)
   s# = size#/2
   depth = s#
   box x-s#,y-s#,x+s#,y-s#+1
   box x-s#,y+s#,x+s#,y+s#+1
   box x-s#,y-s#,x-s#+1,y+s#
   box x+s#,y-s#,x+s#+1,y+s#

   line x-s#,y-s#,x,y-s#-depth
   line x+s#,y-s#,x+size#,y-s#-depth
   box x,y-s#-depth,x+size#,(y-s#-depth)+1
   line x+s#,y+s#,x+size#,y+s#-depth
   box x+size#,y-s#-depth,x+size#+1,y+s#-depth
endfunction

angle as float

sync on
sync rate 60

do

   cls

   inc angle
   contact(320,240,150,angle)

   sync

loop



function contact(x as integer,y as integer,size as integer,angle as float)

   ellipse x,y,size,sin(angle)*size
   ellipse x,y,sin(angle)*size,size
   ellipse x,y,sin(angle+45)*size,size

endfunction

conditions=0
            for side=1 to sides
               if (j*sin(angle#+side*degrees#))+(i*cos(angle#+side*degrees#))-size2 <=0 then inc conditions
            next side

rem n gons
rem by coding fodder

sync on
size=40
do
   cls
   angle#=wrapvalue(angle#+4.0)
   n_gon(128,240,3,size,angle#,1,rgb(0,0,255))
   n_gon(256,240,4,size,angle#,4,rgb(0,255,0))
   n_gon(384,240,5,size,angle#,8,rgb(255,0,0))
   n_gon(512,240,6,size,angle#,40,rgb(200,200,0))
   text 1,1,str$(screen fps())
sync
loop

function n_gon(x,y,sides,size,angle#,thickness#,color)
   size2=cos((360.0/(sides*2.0)))*(size)
   lock pixels
   start=get pixels pointer()
   repeat_number=get pixels pitch()
   bits_per_pixel=bitmap depth(num)/8
   degrees#=360.0/sides

   for i=-size to size
      for j=-size to size
         if i+x>=0 and j+y>=0 and i+x<bitmap width() and j+y<bitmap height()
            conditions=0
            conditions2=0
            for side=1 to sides
               test#=(j*sin(angle#+side*degrees#))+(i*cos(angle#+side*degrees#))-size2+0.5
               if test#<=0.0
                  inc conditions
                  if test#>-thickness# then inc conditions2
               endif
            next side
            if conditions=sides
               if conditions2>0
                  pointer=start+(y+j)*repeat_number+(x+i)*bits_per_pixel
                  *pointer=color
               endif
            endif
         endif
      next j
   next i
   unlock pixels
endfunction

rem n gons
rem by coding fodder

sync on
size=20
do
   cls
   angle#=wrapvalue(angle#+4.0)
   n_gon(128,240,3,size,angle#,1,rgb(0,0,255),0)
   n_gon(256,240,4,size,angle#,4,rgb(0,255,0),0)
   n_gon(384,240,5,size,angle#,1,rgb(255,0,0),0)
   n_gon(512,240,5,size,angle#,8,rgb(200,200,0),1)
   text 1,1,str$(screen fps())
sync
loop

function n_gon(x,y,sides,size,angle#,thickness#,color,star)
   size2=cos((360.0/(sides*2.0)))*(size)
   degrees#=360.0/sides
   if star=1
      num_of_conditions=sides-2
      temp#=(tan(degrees#/2.0))^2
      ending=int(size2*(1.0+2.0*temp#/(1.0-temp#)))
      begining=-ending
   else
      num_of_conditions=sides-1
      begining=-size
      ending=size
   endif
   lock pixels
   start=get pixels pointer()
   repeat_number=get pixels pitch()
   bits_per_pixel=bitmap depth(num)/8


   for i=begining to ending
      for j=begining to ending
         if i+x>=0 and j+y>=0 and i+x<bitmap width() and j+y<bitmap height()
            conditions=0
            conditions2=0
            for side=1 to sides
               test#=(j*sin(angle#+side*degrees#))+(i*cos(angle#+side*degrees#))-size2+0.5
               if test#<=0.0
                  inc conditions
                  if test#>-thickness# then inc conditions2
               endif
            next side
            if conditions>num_of_conditions
               if conditions2>0
                  pointer=start+(y+j)*repeat_number+(x+i)*bits_per_pixel
                  *pointer=color
               endif
            endif
         endif
      next j
   next i
   unlock pixels
endfunction

sync on

x1#=rnd(640):y1#=rnd(400)
x2#=rnd(640):y2#=rnd(400)
x3#=rnd(640):y3#=rnd(400)
x4#=rnd(640):y4#=rnd(400)
xd1#=(rnd(20)-10)*.1:yd1#=(rnd(20)-10)*.1
xd2#=(rnd(20)-10)*.1:yd2#=(rnd(20)-10)*.1
xd3#=(rnd(20)-10)*.1:yd3#=(rnd(20)-10)*.1
xd4#=(rnd(20)-10)*.1:yd4#=(rnd(20)-10)*.1

do
   cls
   set cursor 0,0:print "FPS: "+str$(screen fps())
   if x1#<0 or x1#>640 then xd1#=-xd1#
   if y1#<0 or y1#>400 then yd1#=-yd1#
   if x2#<0 or x2#>640 then xd2#=-xd2#
   if y2#<0 or y2#>400 then yd2#=-yd2#
   if x3#<0 or x3#>640 then xd3#=-xd3#
   if y3#<0 or y3#>400 then yd3#=-yd3#
   if x4#<0 or x4#>640 then xd4#=-xd4#
   if y4#<0 or y4#>400 then yd4#=-yd4#

   x1#=x1#+xd1#:y1#=y1#+yd1#
   x2#=x2#+xd2#:y2#=y2#+yd2#
   x3#=x3#+xd3#:y3#=y3#+yd3#
   x4#=x4#+xd4#:y4#=y4#+yd4#

   ink rgb(128,128,0),0
   circle x1#,y1#,3
   circle x2#,y2#,3
   circle x3#,y3#,3
   circle x4#,y4#,3
   line x1#,y1#,x2#,y2#
   line x3#,y3#,x4#,y4#

   Bezier(x1#,y1#,x2#,y2#,x3#,y3#,x4#,y4#,50,rgb(255,0,0))

   sync
loop



Function Bezier(x1#,y1#,bx1#,by1#,x2#,y2#,bx2#,by2#,steps#,color)
`Bezier(startX,startY,StartTailX,StartTailY,EndX,EndY,EndTailX,EndTailY,Number_of_steps,Color)
   stepsval#=1/steps#
   x6#=x1#:y6#=y1#
   ink color,0
   for I#=0 to 1.0001 step stepsval#
      I2#=1-I#
      x3#=bx1#*i2#+bx2#*i#:y3#=by1#*i2#+by2#*i#
      x4#=x1#*i2#+x3#*i#:y4#=y1#*i2#+y3#*i#
      x5#=x3#*i2#+x2#*i#:y5#=y3#*i2#+y2#*i#
      ex#=x6#:ey#=y6#
      x6#=x4#*i2#+x5#*i#:y6#=y4#*i2#+y5#*i#
      line ex#,ey#,x6#,y6#
   next I#
EndFunction

size# = 15


do
   cls
   angle# = wrapvalue(angle#+0.5)
   if mouseclick()=1 then inc size#,1
   if mouseclick()=2 then dec size#,1
   poly(mousex(),mousey(),5,size#,angle#,rgb(150,0,220))

loop



function poly(x as integer, y as integer, sides as integer, size as float, angle as float, color as dword)
   dim side(sides,1)
   ang# = 360.0/sides
   ink color,0
   x1 = x + sin(angle)*size
   y1 = y + cos(angle)*size
   for t = 1 to sides
      x2 = x + sin(wrapvalue((ang#*t)+angle))*size
      y2 = y + cos(wrapvalue((ang#*t)+angle))*size
      side(t,0) = x1
      side(t,1) = y1
      line x1,y1,x2,y2
      x1 = x2
      y1 = y2
   next t

   lock pixels
   x1 = x-size
   x2 = x+size
   y1 = y-size
   y2 = y+size
   for a = x1 to x2
      for b = y1 to y2
         if a>0 and a<screen width()
            if b>0 and b<screen height()
               count = 0
               for t = 1 to sides
                  j = t+1
                  if j>sides then j=1
                  dp# = (side(j,0) - side(t,0)) * (b - side(t,1)) - (a - side(t,0)) * (side(j,1) - side(t,1))
                  inc count, (dp# > 0)
               next t
               if count = 0
                  start = get pixels pointer()
                  repeat_number = get pixels pitch()
                  bits_per_pixel = bitmap depth(0)/8
                  pointer = start + b*repeat_number + a*bits_per_pixel
                  *pointer = color
               endif
            endif
         endif
      next b
   next a
   unlock pixels
   undim side()

endfunction

function LoadDrawing(offset_x, offset_y, scale_x, scale_y, filenumber, filename$)
   open to read filenumber, filename$

   do
      if file end(filenumber) = 1 then exit

      read string filenumber, line$

      if left$(line$, 4) = "ink "
         line$ = right$(line$, len(line$) - 4)

         parameter = 0

         foreground_color$ = ""
         background_color$ = ""

         for n = 1 to len(line$)
            a$ = mid$(line$, n)
            if a$ = ","
               parameter = parameter + 1
            else
               if a$ = " "
                  `Do nothing
               else
                  select parameter
                     case 0
                        foreground_color$ = foreground_color$ + a$
                     endcase
                     case 1
                        background_color$ = background_color$ + a$
                     endcase
                  endselect
               endif
            endif
         next n

         foreground_color = val(foreground_color$)
         background_color = val(background_color$)

         ink foreground_color, background_color
      endif

      if left$(line$, 4) = "dot "
         line$ = right$(line$, len(line$) - 4)

         parameter = 0

         x$ = ""
         y$ = ""

         for n = 1 to len(line$)
            a$ = mid$(line$, n)
            if a$ = ","
               parameter = parameter + 1
            else
               if a$ = " "
                  `Do nothing
               else
                  select parameter
                     case 0
                        x$ = x$ + a$
                     endcase
                     case 1
                        y$ = y$ + a$
                     endcase
                  endselect
               endif
            endif
         next n

         x = (val(x$) * scale_x) / 100 + offset_x
         y = (val(y$) * scale_y) / 100 + offset_y

         dot x, y
      endif

      if left$(line$, 5) = "line "
         line$ = right$(line$, len(line$) - 5)

         parameter = 0

         x_1$ = ""
         y_1$ = ""
         x_2$ = ""
         y_2$ = ""

         for n = 1 to len(line$)
            a$ = mid$(line$, n)
            if a$ = ","
               parameter = parameter + 1
            else
               if a$ = " "
                  `Do nothing
               else
                  select parameter
                     case 0
                        x_1$ = x_1$ + a$
                     endcase
                     case 1
                        y_1$ = y_1$ + a$
                     endcase
                     case 2
                        x_2$ = x_2$ + a$
                     endcase
                     case 3
                        y_2$ = y_2$ + a$
                     endcase
                  endselect
               endif
            endif
         next n

         x_1 = (val(x_1$) * scale_x) / 100 + offset_x
         y_1 = (val(y_1$) * scale_y) / 100 + offset_y
         x_2 = (val(x_2$) * scale_x) / 100 + offset_x
         y_2 = (val(y_2$) * scale_y) / 100 + offset_y

         line x_1, y_1, x_2, y_2
      endif

      if left$(line$, 4) = "box "
         line$ = right$(line$, len(line$) - 4)

         parameter = 0

         _left$ = ""
         top$ = ""
         _right$ = ""
         bottom$ = ""

         for n = 1 to len(line$)
            a$ = mid$(line$, n)
            if a$ = ","
               parameter = parameter + 1
            else
               if a$ = " "
                  `Do nothing
               else
                  select parameter
                     case 0
                        _left$ = _left$ + a$
                     endcase
                     case 1
                        top$ = top$ + a$
                     endcase
                     case 2
                        _right$ = _right$ + a$
                     endcase
                     case 3
                        bottom$ = bottom$ + a$
                     endcase
                  endselect
               endif
            endif
         next n

         left = (val(_left$) * scale_x) / 100 + offset_x
         top = (val(top$) * scale_y) / 100 + offset_y
         right = (val(_right$) * scale_x) / 100 + offset_x
         bottom = (val(bottom$) * scale_y) / 100 + offset_y

         box left, top, right, bottom
      endif

      if left$(line$, 7) = "circle "
         line$ = right$(line$, len(line$) - 7)

         parameter = 0

         x$ = ""
         y$ = ""
         radius$ = ""

         for n = 1 to len(line$)
            a$ = mid$(line$, n)
            if a$ = ","
               parameter = parameter + 1
            else
               if a$ = " "
                  `Do nothing
               else
                  select parameter
                     case 0
                        x$ = x$ + a$
                     endcase
                     case 1
                        y$ = y$ + a$
                     endcase
                     case 2
                        radius$ = radius$ + a$
                     endcase
                  endselect
               endif
            endif
         next n

         x = (val(x$) * scale_x) / 100 + offset_x
         y = (val(y$) * scale_y) / 100 + offset_y
         x_radius = (val(radius$) * scale_x) / 100
         y_radius = (val(radius$) * scale_y) / 100

         ellipse x, y, x_radius, y_radius
      endif

      if left$(line$, 8) = "ellipse "
         line$ = right$(line$, len(line$) - 8)

         parameter = 0

         x$ = ""
         y$ = ""
         x_radius$ = ""
         y_radius$ = ""

         for n = 1 to len(line$)
            a$ = mid$(line$, n)
            if a$ = ","
               parameter = parameter + 1
            else
               if a$ = " "
                  `Do nothing
               else
                  select parameter
                     case 0
                        x$ = x$ + a$
                     endcase
                     case 1
                        y$ = y$ + a$
                     endcase
                     case 2
                        x_radius$ = x_radius$ + a$
                     endcase
                     case 3
                        y_radius$ = y_radius$ + a$
                     endcase
                  endselect
               endif
            endif
         next n

         x = (val(x$) * scale_x) / 100 + offset_x
         y = (val(y$) * scale_y) / 100 + offset_y
         x_radius = (val(x_radius$) * scale_x) / 100
         y_radius = (val(y_radius$) * scale_y) / 100

         ellipse x, y, x_radius, y_radius
      endif
   loop

   close file filenumber
endfunction

rem n gons
rem by coding fodder

sync on
size=20
do
   cls
   angle#=wrapvalue(angle#+4.0)
   n_gon(128,240,3,size,angle#,1,rgb(0,250,255),rgb(255,255,0),0)
   n_gon(256,240,4,size,angle#,4,rgb(255,155,155),rgb(100,100,100),0)
   n_gon(384,240,5,size,angle#,1,rgb(255,0,0),rgb(255,255,0),0)
   n_gon(512,240,5,size,angle#,8,rgb(250,155,155),rgb(0,0,200),1)
   text 1,1,str$(screen fps())
sync
loop

function n_gon(x,y,sides,size,angle#,thickness#,color1,color2,star)
   size2=cos((360.0/(sides*2.0)))*(size)
   degrees#=360.0/sides
   if star=1
      num_of_conditions=sides-2
      temp#=(tan(degrees#/2.0))^2
      ending=int(size2*(1.0+2.0*temp#/(1.0-temp#)))
      begining=-ending
   else
      num_of_conditions=sides-1
      begining=-size
      ending=size
   endif
   lock pixels
   start=get pixels pointer()
   repeat_number=get pixels pitch()
   bits_per_pixel=bitmap depth(num)/8

   color1r=rgbr(color1)
   color2r=rgbr(color2)
   color1g=rgbg(color1)
   color2g=rgbg(color2)
   color1b=rgbb(color1)
   color2b=rgbb(color2)
   a#=0.0
   b#=1.0
   increment#=1.0/abs((ending-beginning)*2)

   for i=begining to ending
      for j=begining to ending
         if i+x>=0 and j+y>=0 and i+x<bitmap width() and j+y<bitmap height()
            conditions=0
            conditions2=0
            for side=1 to sides
               test#=(j*sin(angle#+side*degrees#))+(i*cos(angle#+side*degrees#))-size2+0.5
               if test#<=0.0
                  inc conditions
                  if test#>-thickness# then inc conditions2
               endif
            next side
            if conditions>num_of_conditions
               if conditions2>0
                  pointer=start+(y+j)*repeat_number+(x+i)*bits_per_pixel

                  colormixr=(color1r*a#+color2r*b#)
                  colormixg=(color1g*a#+color2g*b#)
                  colormixb=(color1b*a#+color2b*b#)
                  color=rgb(colormixr,colormixg,colormixb)

                  *pointer=color
               endif
            endif
         endif
      next j
inc a#,increment#
dec b#,increment#
   next i
   unlock pixels
endfunction