Blinking Pixel

[interwined]

I want a blinking pixel on my screen, but I've tried pxl-on( and then pxl-off( right after that. I have tried using a loop to slow the blink down, but it's still too quick in blinking. Anyone have any code to slow it down?

[NETWizz]

Yeah,

Slowing it down is easy!

while 1
pxl-change(0,0
For(A,0,20
End
End

The

For(A,0,20
End

is a delay. Simple make 20 larger to delay more. You can insert this anywhere you want to delay the execution of a basic program. Please note that getkey inputs are not accepted while in a delay; therefore, if you are checking for a keypress, it will not be recognized until after the delay unless you tweak the code.

-Jbirk

[interwined]

That should work, thanks

[NETWizz]

No problem.

If you need me to write any small routines or show you the format I would use to make the project, drop me a line.

-Jbirk

[interwined]

Well, I am creating a drawing program. The blinking pixel was for the center of the cursor so you can't get lost. But, I have been using labels to go from different pixel sizes, erasers, and some brushes. For example, if a person is using the one pixel pxl-on type then has to go to eraser (pxl-off) by pressing a button, I end up repeating everything except changing the pxl-on code to pxl-off. Anyhelp is appreciated.

[NETWizz]

Okay you are making a pointer which is the brush, and you want it to blink.

After you move it, you do not want it to change the pixel it was over.

That makes sence.

I will get right on it and tell you what to do tomorrow.

[Arcane Wizard]

Should work:

ClrDraw
47->A
31->B
Repeat K=45
getKey->K
If Ans:Then
If C=1:Pxl-Off(B,A //erase cusor/brush 1
If C=2:Then //erase cursor 2
Pxl-Off(B,A
Pxl-Off(B,A+1
End
RecallPic 0
If K=21:Then
If C=1:Pxl-On(B,A //draw cursor/brush 1
If C=2:Then //draw cursor/brush 2
Pxl-On(B,A
Pxl-On(B,A+1
End
If K=22:Then //change brush/cursor
C+1->C
If C>2:1->C
End
StorePic 0
End
End
A+(K=26)-(K=24->K //don't forget to add don't-go-of-the-screen-protection
B+(K=34)-(K=25->B
Ø+1-2Ø(Ø>5->Ø //increase 5 for slower blinking pixel
If Ans>0:Pxl-On(B,A
If Ans<0:Pxl-Off(B,A
End

[Arcane Wizard]

Nah, your post is fine, I just wanted to give him another view on the possible program since I made a paint program a while back (almost exactly like my source posted above, but with a menu to choose brush style,circles, lines, boxes, etc.)