ZOOMROTATOR

Program zamieszczony poniżej został napisany w Turbo Basicu XL, na pierwszą edycję 5 złotych Compo. Praca zajęła pierwsze  miejsce, ex aequo z 5D. Jest to prosty zoomrotator-kwadrat, który zmienia swój rozmiar i jednocześnie się obraca. Jak widać  udało mi się go upchnąć w 6 linijkach. Analizę działania zostawiam tobie internauto (jeżeli jednak chciałbyś to tu przeczytać,  to daj mi sygnał na maila).

1 GRAPHICS 22:DEG :POKE 712,0:POKE 708,13:R=0:A=7:N=-1:AD=$8800
2 AD=67584-AD:POKE AD,0:MOVE AD,AD+1,1920:DPOKE 88,AD:GOSUB 3:
  DPOKE DPEEK(560)+4,AD:SOUND 0,303-R,8,6:GOTO 2
3 A=A+8:IF R=0 OR R=47 THEN N=-N
4 COLOR 1:R=R+N:FOR I=0 TO 360 STEP 90
5 X=COS(I+A)*R+79:Y=SIN(I+A)*R+47:IF I=0 THEN PLOT X,Y
6 DRAWTO X,Y:NEXT I:RETURN

<< Wstecz

Komentarze

Ten materiał nie został jeszcze skomentowany. Możesz być pierwszy :)

Dodaj komentarz