Omnimaga

Calculator Community => Other Calc-Related Projects and Ideas => TI Z80 => Topic started by: Freyaday on November 27, 2011, 11:53:00 pm

Title: 5scale!
Post by: Freyaday on November 27, 2011, 11:53:00 pm

I made a 5scale proof-of-concept program! It displays a 5scale gradient! The code is as follows:

.FIVEGREY
ClrDraw^rr
RectI(16,0,48,64)^r
RectI(80,0,16,64)^r
RectI(48,0,64,64)
[55AA55AA55AA55AA]->Pic1
For(X,0,3)
For(Y,0,7)
Pt-Off(X*8+32,Y*8,Pic1)
Pt-Off(X*8+32,Y*8,Pic1)^r
End
End
Repeat GetKey(15)
RectI(32,0,32,64)
RectI(32,0,32,64)^r
DispGraph^rr
End