Coś jakby wstępniak...
O mnie
Moja twórczość
Artykuły
Galeria fotek
Download
Linki
Księga gości
Kontakt
    
    

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

Autor* 
E-mail* 
WWW 
Treść komentarza*/**
Czy jesteś botem?
 Tak, a to jest spam.
 Nie, jestem człowiekiem, to nie jest spam.
 Nie wiem...
Ile jest 1 razy 9 ?
Podaj wynik:  
 
* - pola obowiązkowe;
** - z treści komentarza usunięte zostaną wszystkie znaki końca wiersza, takze nie ma co ich klepać.

    
    PHP & MySQL solutions, desgin and (almost) everything by Grzybson/SSG, hosted by pigwa.net