These programs are dot pattern generators. I created them because I wanted to see what my calculator screen would look like if I turned every other pixel on. First I began with a random dot generator, but that took much too long to randomly turn on the dots I wanted. I continued to refine the program, until I produced what you see here!
Try this program first before trying the others. This will give you a screen with every other pixel turned on.
:ClrDraw :PlotsOff :AxesOff :FnOff :0→Xmin :94→Xmax :0→Ymin :62→Ymax :0→A :Repeat A≥96 :0→B :Repeat B≥64 :Pt-On(A,B) :B+2→B :End :A+2→A :End :1→D :Repeat D≥63 :1→C :Repeat C≥95 :Pt-On(C,D) :C+2→C :End :D+2→D :End
Now let's get complex! This dot generator prompts four numbers, which define how much space there will be between the rows and columns. For cool results, try it with pi or other strange numbers!
:ClrDraw :PlotsOff :AxesOff :FnOff :0→Xmin :94→Xmax :0→Ymin :62→Ymax :Prompt A,B,C,D :A→E :B→F :C→G :D→H :0→A :Repeat A≥96 :0→B :Repeat B≥64 :Pt-On(A,B) :B+E→B :End :A+F→A :End :1→D :Repeat D≥63 :1→C :Repeat C≥95 :Pt-On(C,D) :C+G→C :End :D+H→D :End
This program creates squares instead of dots! This program uses the numbers you input to decide how big each square will be!
:ClrDraw :PlotsOff :AxesOff :FnOff :0→Xmin :94→Xmax :0→Ymin :62→Ymax :Prompt A,B :0→C :Repeat C≥94 :0→D :Repeat D≥62 :Pt-On(C,D) :D+(A/(A-1))→D :End :C+(B/(B-1))→C :End
Kind of a spinoff of the dot programs. This program draws a bunch of lines in a semi-cool pattern, although there's a few random holes.
:ClrDraw :0→Xmin :94→Xmax :0→Ymin :62→Ymax :AxesOff :0→X :0→Y :Repeat Y=64 :Line(0,Y,X,Y) :Line(X+2,Y,62,Y :Line(X,0,X,Y :Line(X,Y+2,X,62 :Y+2→Y :X+2→X :End :94→X :0→Y :Repeat Y=64 :Line(94,Y,X,Y :Line(X-2,Y,30,Y :Line(X,0,X,Y :Line(X,Y+2,X,62 :X-2→X :Y+2→Y :End