# Not what google gave me.

"Listen to this, what you made is great.
How do I program something? I do tutorials?"

I don't know serbian, but I know a similar one, and it's defienatly has nothing to do with "how long".

For a good graphics tutorial I suggest TheBOB's tutorials:

http://www.network54.com/Realm/page_files/QBZips.html

And the rest I did is just math.

After I wrote that one, I decided to make it a bit better and this is what I came up with: Is it better? you decide.

RANDOMIZE TIMER
SCREEN 9, , 1, 0

FOR i = 0 TO 15
PALETTE i, i
OUT &H3C8, i
OUT &H3C9, j
OUT &H3C9, j
OUT &H3C9, j
j = j + 1
NEXT

DO
LINE (100, 0)-(250, 310), 0, BF

m = m + 1
FOR i = 0 TO 320
y = 309 - i
t = i / 10
x = SIN((t - m) * .2) * (t - (i / 7)) + 205
x1 = COS((t - m) * .2) * (t - (i / 7)) + 205
IF (x1 - x) > 0 THEN
FOR j = 0 TO ((x1 + i / 10) - x + 10) \ 2
LINE ((x - 10) + j, y)-((x1 + i / 10) - j, y), j
NEXT
ELSE
FOR j = 0 TO ((x + i / 10) - x1 + 10) \ 2
LINE ((x1 - 10) + j, y)-((x + i / 10) - j, y), j
NEXT
END IF
' x = INT(RND * -i / 7) + 205
' x1 = INT(RND * i / 7) + 205
' PSET (x, y), 12
' PSET (x1, y), 12
NEXT
'k = 0
'FOR i = 75 TO 160
' k = k + i \ 20
' LINE (100 + (i AND 1), i + k)-(250, i + k), 0, , &H4444
'NEXT

PCOPY 1, 0
WAIT &H3DA, 8, 8
WAIT &H3DA, 8
LOOP UNTIL INP(&H60) = 1

Posted on Mar 21, 2009, 12:02 PM

Respond to this message

Goto Forum Home