Mintoris

Author Topic: setdrawingsurface  (Read 878 times)

rendomizer

  • Full Member
  • ***
  • Posts: 87
setdrawingsurface
« on: Dec 13, 2015, 01:34 PM »
graphics on
cls
pic=createbitmap(51,51)
setdrawigsurface pic
color 100,100,100
cls
color 100,100,0
line0,0,50,50
line50,0,0,50
color 0,0,100
rect 0,0,50,50
setdrawingsurface off

color 40,40,40
cls
debut:
for i=0 to 365
color 0,0,0
rect 200,100,250,150,1
drawbitmap pic,200,100,i
wait 1
cls
next i
goto debut
« Last Edit: Dec 13, 2015, 01:52 PM by rendomizer »