Mysoft

Untitled

Dec 14th, 2020
701
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. const PI = atn(1)*4
  2.  
  3. dim shared as short Min = 12
  4.  
  5. const ScrWid=1280,ScrHei=1024
  6. const ScX=ScrWid/320,ScY=ScrHei/256
  7.  
  8. screenres ScrWid,ScrHei 'mode 1
  9. window (0,0)-(1280,1024)
  10. color 14
  11.  
  12. sub PROCC(L as short,ANGLE as single)    
  13.   if L<MIN then    
  14.     line -step(ScX+L*COS(ANGLE),ScY),,bf
  15.     line -step(-ScX,L*SIN(ANGLE)-ScY),,bf
  16.     sleep 1,1
  17.     exit sub
  18.   end if  
  19.   L = int(L/SQR(2))
  20.   PROCC(L,ANGLE+PI/4)
  21.   PROCC(L,ANGLE-PI/4)
  22. end sub
  23.  
  24. pset(300,200)
  25. PROCC(700,0)
  26. sleep
  27.  
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×