BigEd wrote:Thanks for the screenshots! I feel a compendium SSD image might be needed, but there might be more ideas coming yet...
Here is a variation on the previous one of mine, it undraws (read that as drawing in blank ink) , same thing. I call it "fading lines and pixels" it works best with various values in line 30 however, typically a higher value (default 5) for lines and possibly a tweak for pixels. Too high a value for pixels will make it "appear" slow though.
Code: Select all
10ONERRORMODE7:REPORT:END
20MODE2:VDU 23;11,0;0;0;0
30FORT=0TO5
40GCOL0,0:PROCP:NEXTT
50GCOL0,INTRND(7):PROCP
60GOTO30
70
80DEFPROCP
90X=INTRND(1280):Y=INTRND(1024)
100A$=INKEY$(0)
110IFA$="L"P%=FALSE:CLG
120IFA$="P"P%=TRUE:CLG
130IFP%MOVEX,Y
140DRAWX,Y:ENDPROC
Preview pic again, it looks better in reality (lines especially, please try adjusting the TO value in LINE 30) though...
As an aside I did try ages ago something like this combining both lines and pixels but it looked messy. The solution (I was too lazy to do at that time) would of been to store the co-ords of the line so when the pixel was plotted (as in draw 1x line , draw 5x pixels) it would then 'carry on' from the last line draw position instead of random.
EDIT... 70 is meant to be blank, well kind of. Just my way of working prefer a 'space' as such between program and proc's