test_spaceships almost perfect

[Gordon Rahman]

'spaceships.bas with

'    #1.draw cls(255,0,0)    'gives black <<< >>>> cls(0)"
'    #1.draw color("white")    
'open a graphical window and display spaceships

   nomainwin
   drawX = 40
   drawY = 40

   WindowWidth = 300
   WindowHeight = 250
   graphicbox #1.draw, 3, 3, 290, 200
   button #1.b " OK ", [ok], LR, 40, 20

   open "SPACESHIPS LB5 commands" for window as #1
   #1 trapclose("quit")

   #1.draw cls() ' gives window filled white
   #1.draw cls(16,255,255) '<<<< gives window filled black
   #1.draw cls("black")
   #1.draw cls("blue")      
   #1.draw color("white")

   for x = 1 to 5
       for y = 1 to 3
           gosub [Spaceships]
           drawY = drawY + 40
           angle = angle + 15
       next y
       drawY = 40
       drawX = drawX + 40
   next x

   #1.draw flush()
   wait

[ok]
   close #1
   end

[Spaceships]
   #1.draw color("yellow")  

   #1.draw place(drawX,drawY)
   #1.draw north()  
   #1.draw turn(angle)
   #1.draw down()
   #1.draw turn(275) :#1.draw go(8)    :#1.draw turn(85)
   #1.draw go(10)    :#1.draw turn(180):#1.draw size(3) :#1.draw go(14)
   #1.draw size(1)

   #1.draw place(drawX,drawY)
   #1.draw north()
   #1.draw turn(angle)
   #1.draw down()
   #1.draw turn(85) :#1.draw go(8)    :#1.draw turn(275)
   #1.draw go(10)   :#1.draw turn(180):#1.draw size(3)  :#1.draw go(14)
   #1.draw size(1)

   #1.draw place(drawX,drawY)
   #1.draw north()
   #1.draw turn(angle)
   #1.draw down()
   #1.draw turn(180):#1.draw go(10)   :#1.draw size(12)
   #1.draw go(0)  
   #1.draw flush()
   #1.draw size(1)

   return

sub quit hndl$
close #hndl$
end
end sub  

[donnybowers]

Cool! 15 little Star Trek Enterprises. Works for me and it's better than the Borg. LOL

[Gordon Rahman]

It's no big deal:

cls(255,0,0) doesn't work
cls("255 4 200") doesn't work



Gordon