palette mod dont work but if it did you could easily fit in there. (two hints: you can use comparison operators in math expressions, and your for next group, and you can adjust the for next look to cover 768 values easy. *shuts up now*
It doesn't work? :???:.
Are you sure you changed
12 PSET (160 + COS(I + N%) * I, 100 + SIN(I + N%) * I), 2
to
12 PSET (160 + COS(I + N%) * I, 100 + SIN(I + N%) * I), I
Quote:(two hints: you can use comparison operators in math expressions, and your for next group, and you can adjust the for next look to cover 768 values easy. *shuts up now*
Hmmmm, how?
.
Code:
1 IF i = 0 THEN SCREEN 13 ELSE OUT &H3C8, 0
2 LINE (0, 0)-(319, 199), 0, BF
3 FOR i = 1 TO 3590
4 IF i < 769 THEN OUT &H3C9, (((i - 1) MOD 3) AND 1) * ((i - 1) \ 3) \ 4
5 PSET (160 + COS((i / 10) + N%) * .1 * i, 100 + SIN(i / 10 + N%) * i / 10), i \ 10
6 NEXT
7 N% = N% + 1
8 WAIT &H3DA, 8
9 GOTO 2
turns out you didnt need any of that crap
but, since i talked about it, run this:
x = 1
y = -(x < 2)
print y
y = -(x > 2)
print y
oh ya...
1 Ang! = Ang! + .05
2 Var$ = MKI$(COS(Ang!) * SIN(Ang!) * 128) + MKI$(SIN(Ang!) * SIN(Ang!) * 128)
3 FOR Ix% = -40 TO 39
4 FOR Iy% = -13 TO 11
5 LOCATE Iy% + 14, Ix% + 41
6 COLOR (((((Ix% * CVI(MID$(Var$, 1, 2)) + Iy% * CVI(MID$(Var$, 3, 2))) XOR (Iy% * CVI(MID$(Var$, 1, 2)) - Ix% * CVI(MID$(Var$, 3, 2)))) \ 512)) AND 15)
7 PRINT CHR$(176);
8 NEXT Iy%, Ix%
9 IF LEN(INKEY$) = 0 THEN 1
What about this?
Code:
' Nineliner by red_Marvin:
' green boxes!
' runs smooth on a P90
' color number = 65536 * blue + 256 * green + red
'---ENJOY!---
'
1 RANDOMIZE TIMER
2 SCREEN 13
3 PALETTE n, n * 256
4 PALETTE 63 - n, n * 256
5 IF n = 32 THEN x = INT(RND * 32) * 10 ELSE n = n + 1
6 IF n < 32 THEN GOTO 3 ELSE y = INT(RND * 20) * 10
7 c = POINT(x, y)
8 IF c <= 0 THEN LINE (x, y)-(x + 9, y + 9), 63, B ELSE LINE (x, y)-(x + 9, y + 9), c - 1, B
9 IF INKEY$ = "" THEN GOTO 5
edit: Changed the code a little
hey, that's pretty dank, red marvin! "green boxes" is an understatement!
what does dank mean?
anyway do anybody know why I can't PALETTE the colors above
63 in screen 13?
You
can palette the colours above 63. But beware, r, g or b must be 0-63. Maybe that was the fault.
Code:
PALETTE 127,4+256*20+65536*45
Is correct, for example.
maybe that was the fault...