Search found 1 match
- Sat Dec 19, 2015 3:10 pm
- Forum: Esimerkit ja tutoriaalit
- Topic: Efektit
- Replies: 678
- Views: 593410
Re: Efektit
Isketääs tämä tännekin. Shadebobeja yhden ZX -demon innoittamana, renderöintinopeuksia eri pallomäärille saa ilmoitella. SCREEN 640, 480 Dim imgs(9) Repeat If im = 0 And ang = 0 Then ball = MakeImage(50, 50) DrawToImage ball For i = 0 To 49 If i<10 then imgs(i) = MakeImage(640, 480) For j = 0 To 49...