Search found 1 match

by Controller
Sat Dec 19, 2015 4:10 pm
Forum: Esimerkit ja tutoriaalit
Topic: Efektit
Replies: 678
Views: 133145

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...