Challenge.... - Printable Version +- Qbasicnews.com (http://qbasicnews.com/newforum) +-- Forum: QbasicNews.Com (http://qbasicnews.com/newforum/forum-3.html) +--- Forum: Challenges (http://qbasicnews.com/newforum/forum-10.html) +--- Thread: Challenge.... (/thread-93.html) |
Challenge.... - toonski84 - 02-19-2003 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* Challenge.... - BlueKeyboard - 02-20-2003 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? . Challenge.... - toonski84 - 02-20-2003 Code: 1 IF i = 0 THEN SCREEN 13 ELSE OUT &H3C8, 0 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 Text mode rotozoomer - BinarySHOCK - 02-22-2003 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 Challenge.... - R@dioman - 02-22-2003 Niiiiice!! 8) Challenge.... - red_Marvin - 02-23-2003 What about this? Code: ' Nineliner by red_Marvin: edit: Changed the code a little Challenge.... - toonski84 - 02-23-2003 hey, that's pretty dank, red marvin! "green boxes" is an understatement! Challenge.... - red_Marvin - 02-23-2003 what does dank mean? anyway do anybody know why I can't PALETTE the colors above 63 in screen 13? Challenge.... - na_th_an - 02-23-2003 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. Challenge.... - red_Marvin - 02-23-2003 maybe that was the fault... |