0 Members and 1 Guest are viewing this topic.
[ffff0000ff00ff00]->Pic1F[ff00ffff00ff00ff]->Pic1B[ffffffff00000000]->Pic2F[ffffff00ffff0000]->Pic2BClrDrawClrDrawrrepeat getkey(15)Pt-Off(0,0,Pic1F)Pt-Off(0,0,Pic1B)rDispGraphrrPt-Off(0,0,Pic2F)Pt-Off(0,0,Pic2B)rDispGraphrrEnd
since the nspire sucks at greyscale
Hmm.....Strange. Did you try it with Full? On the Nspire it doesn't do anything, but hey, it might have some effect for the 84+ screens. It sounds like your screen is better than mine
[ffff0000ff00ff00]->Pic1F[ffffffff00000000][ff00ffff00ff00ff]->Pic1B[ffffff00ffff0000]ClrDrawClrDrawr0=>Arepeat getkey(15)1-A=>APt-Off(0,0,A*8+Pic1F)Pt-Off(0,0,A*8+Pic1B)rDispGraphrrEnd
:.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