SHARE
TWEET

C16-graph&Sound

EmanueleBonin Mar 21st, 2019 (edited) 116 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 10 graphic 3,1
  2. 20 color 0,1
  3. 30 color 4,1
  4. 40 color 1,2
  5. 50 color 2,2,4
  6. 60 color 3,2,4
  7. 65 vol 8: f=1000: rem volume e frequenza
  8. 70 t=1: rem y dove mettere la stella
  9. 80 s=0: rem status, indica in che fase del disegnosi sta lavorando
  10. 81 sa=1:ea=10:xp=0:yp=0:xn=0:yn=0: rem start angle, end angle
  11. 90 if  s = 0 then goto 1000 : rem gestione cielo stellato
  12. 100 if s = 1 then goto 2000 : rem gestione cerchio principale
  13. 899 rem gestione suono
  14. 900 if s > 1 then goto 9000: rem se finita ultima fase allora esci
  15. 910 sound 1, f, 2
  16. 920 f=f-1:if f<700 then f=1000
  17. 990 goto 90
  18.  
  19. 999  rem visualizzazione random delle stelle
  20. 1000 draw 1,rnd(1) * 160,t
  21. 1010 t=t+1
  22. 1020 if t > 200 then s=s+1: rem se ultima riga allora passa alla fase successiva del disegno
  23. 1030 goto 900 : rem gestione suono
  24.  
  25. 1999 rem visualizzazione del cerchio con 36 archi progressivi da 10 gradi ognuno
  26. 2000 circle 2,80,100,30,,sa,ea: xn = rdot(0): yn=rdot(1):draw 2, 80,100 to xn, yn
  27. 2005 if xp <> 0 then draw 2, 80,100 to xp, yp:circle 1,80,100,15,,sa,ea-5:paint 2, rdot(0), rdot(1)
  28. 2008 xp = xn : yp =yn
  29. 2010 sa = sa+10: ea=ea+10: if ea > 360 then s=s+1: circle 1,80,100,15,,0,5:paint 2, rdot(0), rdot(1) : rem passa alla fase successiva
  30. 2020 goto 900
  31.  
  32.  
  33.  
  34.  
  35. 8999 rem uscita
  36. 9000 vol 0
  37. 9010 end
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top