02-03-2003, 05:51 PM
Nexinarius, it doesn't paste that because it's above the 256 line limit. :???: Manual copy?
(edit) Can you make the sphere bounce around, Rel? You can save 1 line by using a string instead of a variable...
You can also save a line by converting the FORs to string addition.. MAYBE.
I like dat first one a lot BinaryShock.
For the second one the palette transformation is a bit too.. dramatic. I changed it a little, but it's 11 lines.
[code]
1 SCREEN 13
2 DEFINT A-Z
3 L = (L + 1) AND 255
4 PALETTE L, (255 - L) \ 4
5 IF L = 0 THEN GOTO 6 ELSE GOTO 3
6 FOR ix = 1 TO 399
7 FOR iy = 1 TO 199
8 PSET (ix, iy), ((ix - L) XOR (iy + L)) XOR ((ix + L) XOR (iy - L))
9 NEXT iy, ix
10 L = (L + 1) AND 255
11 IF INKEY$ <> "" THEN SCREEN 0 ELSE GOTO 6
[code]
(edit) Can you make the sphere bounce around, Rel? You can save 1 line by using a string instead of a variable...
You can also save a line by converting the FORs to string addition.. MAYBE.
I like dat first one a lot BinaryShock.
For the second one the palette transformation is a bit too.. dramatic. I changed it a little, but it's 11 lines.
[code]
1 SCREEN 13
2 DEFINT A-Z
3 L = (L + 1) AND 255
4 PALETTE L, (255 - L) \ 4
5 IF L = 0 THEN GOTO 6 ELSE GOTO 3
6 FOR ix = 1 TO 399
7 FOR iy = 1 TO 199
8 PSET (ix, iy), ((ix - L) XOR (iy + L)) XOR ((ix + L) XOR (iy - L))
9 NEXT iy, ix
10 L = (L + 1) AND 255
11 IF INKEY$ <> "" THEN SCREEN 0 ELSE GOTO 6
[code]
Peace cannot be obtained without war. Why? If there is already peace, it is unnecessary for war. If there is no peace, there is already war."
Visit www.neobasic.net to see rubbish in all its finest.
Visit www.neobasic.net to see rubbish in all its finest.