0 Members and 1 Guest are viewing this topic.
SCREENRES 400, 400, 32, 2DIM AS INTEGER plshape, plas, P1, P2 = 1WINDOWTITLE "x.t.r.GRAPHICS: 20 Line Intro..."DO SCREENSET P1, P2 SWAP P1, P2 CLS plshape = 90 plas += 5 FOR y = 1 TO 400 'STEP 3 FOR x = 1 TO 400 COL! = ABS(SIN((X - plas) * 3.14 / 360) * COS((Y + X) * SIN((X + Y + Plas) * 3.14) / plshape) * 230) + 25 PSET (X, Y), RGB(COL!, 0, 0) NEXT NEXT SLEEP 5LOOP UNTIL INKEY <> ""
yeah, he hosts it off my server, wich is uber fast i got 15mbps cable connection