@name Paint
@inputs X1 Y1 Scr:wirelink Paint Clear
@outputs 
@persist X2 Y2
@trigger all
Scr:writeCell(2042,999)
X2=round(X1 * 29 + 29)
Y2=round(Y1 * 17 + 0)
if(Paint==1){Scr:writeString(" ",X2,Y2,1,111)}
if(Clear==1){Scr:writeCell(2041,1)}
