0 Members and 2 Guests are viewing this topic.
An exemple of code to see 8 level grayscales :Code: [Select]:.GRAY8:[0000000000000000→Pic1:[FFFFFFFFFFFFFFFF]:0→A→B→C:Repeat getKey(15):sub(GR):DispGraph<sup>r</sup><sup>r</sup>:End:Return::Lbl GR:ClrDraw:ClrDraw<sup>r</sup>:1-C→C:For(Y,0,7):For(X,0,11):If X+1^2+C:If 1-A→A:1-B→B:End:End:Pt-Off(X*8,Y*8,B*8+Pic1):Pt-Off(X*8,Y*8,A*8+Pic1)<sup>r</sup>:End:EndTop left, there is in order:black and black, black and gray 75%, gray 75% and gray 25%, gray 75% and white, gray 25% and black, gray 25% and gray 75%, white and gray 25%, white and white.B change buffer and A back-buffer. C alternates between two screens imaginary.Actually there is only 7 grayscale (gray 75% and gray 25% = gray 25% and gray 75%).EDIT : Woa, it work perfectly with full mode.
:.GRAY8:[0000000000000000→Pic1:[FFFFFFFFFFFFFFFF]:0→A→B→C:Repeat getKey(15):sub(GR):DispGraph<sup>r</sup><sup>r</sup>:End:Return::Lbl GR:ClrDraw:ClrDraw<sup>r</sup>:1-C→C:For(Y,0,7):For(X,0,11):If X+1^2+C:If 1-A→A:1-B→B:End:End:Pt-Off(X*8,Y*8,B*8+Pic1):Pt-Off(X*8,Y*8,A*8+Pic1)<sup>r</sup>:End:End
Woah that looks great! I wonder how it looks like on-calc... is the blinking very visible?
Quote from: DJ Omnimaga on December 10, 2010, 07:08:10 pmWoah that looks great! I wonder how it looks like on-calc... is the blinking very visible? Correct on 83+.And now, 16 grayscales
holy shit...your gray scale routine in pure axe is the best I've ever seen...* Ashbad hands kindermoumoute the Nobel prize for politics c.sprinkle: I figure the same, though I check cemetech 30% of time and omnimaga 70% of time
That looks pretty cool.Ashbad:Chances are if nobody's posting on Cemetech, someone is here and vice versa. That way I can always have someone to discuss programs with.
Limit is.... 144 grayscales EDIT : approximately.