So I got bored today and made a program that will do a couple of things while it moves a pixel across the screen, I will edit this with an image from Wabbitemu in a few, but I wanted to figure out a way I could make it so I can display a 2x2,3x3, or more in the future, I thought I remembered reading a way to make one of the Draw commands display larger then 1x1 pixel boxes at one time and not take time to draw them one pixel at a time, as that adds a horribly annoying flashing effect.
Also I know it has a ton of room for optimization, I just am making a sort of "rough draft" to get everything working.
BASIC Code wrote:
:ClrDraw:0→K
:ClrHome:0→J
:46→A:31→B
:0→C:0→D
:Pxl-On(B,A
:Repeat K=155
:getKey→K
:If J=1
:Pxl-Off(B,A
:C-(K=24)+(K=26)→C
:D-(K=25)+(K=34)→D
:A+C→A:B+D→B
:If A≤1:Then
:1→A:C‾1→C:End
:If A≥94:Then
:93→A:C‾1→C:End
:If B≤1:Then
:1→B:D‾1→D:End
:If B≥62:Then
:61→B:D‾1→D:End
:Pxl-On(B,A
:Text(0,0,J
:If K=21:ClrDraw
:If K=31:Then
:0→C:0→D:End
:If K=22:Then
:J+(J=0)-(J=1)→J
:End:End
Generated by SourceCoder, © 2005-2010 Cemetech
:ClrHome:0→J
:46→A:31→B
:0→C:0→D
:Pxl-On(B,A
:Repeat K=155
:getKey→K
:If J=1
:Pxl-Off(B,A
:C-(K=24)+(K=26)→C
:D-(K=25)+(K=34)→D
:A+C→A:B+D→B
:If A≤1:Then
:1→A:C‾1→C:End
:If A≥94:Then
:93→A:C‾1→C:End
:If B≤1:Then
:1→B:D‾1→D:End
:If B≥62:Then
:61→B:D‾1→D:End
:Pxl-On(B,A
:Text(0,0,J
:If K=21:ClrDraw
:If K=31:Then
:0→C:0→D:End
:If K=22:Then
:J+(J=0)-(J=1)→J
:End:End
Generated by SourceCoder, © 2005-2010 Cemetech
Also I know it has a ton of room for optimization, I just am making a sort of "rough draft" to get everything working.