Post by pauloastro on Oct 17, 2022 21:10:32 GMT
Inspired on the last program Simple Square Box Animation started this one for testing the mouse to draw rectangles on the screen.
DEFLNG A-Z
DIM oldImage&
screenX = 500
screenY = 600
newScreen& = _NEWIMAGE(screenX, screenY, 32)
_DEST (newScreen&)
LINE (0, 0)-(screenX - 1, screenY - 1), _RGB(170, 170, 170), BF
SCREEN newScreen&
PRINT _DEVICES
FOR i = 1 TO _DEVICES
PRINT "Device"; i; ": "; _DEVICE$(i)
NEXT
DO
IF _MOUSEINPUT = -1 THEN
LOCATE 1, 4: PRINT "Mouse x:"; _MOUSEX; " Mouse y:"; _MOUSEY; " "
IF _MOUSEBUTTON(1) = -1 THEN
LOCATE 1, 35: PRINT ". . "
LOCATE 1, 35: PRINT "Mouse Button 1 pressed. "
x = _MOUSEX
Y = _MOUSEY
newX = x
newY = Y
oldX = newX
oldY = newY
oldImage& = _COPYIMAGE(newScreen&)
DO
IF _MOUSEINPUT = -1 THEN
newX = _MOUSEX
newY = _MOUSEY
LOCATE 2, 36: PRINT "Mouse INPUT = - 1 . "
'size = 20
LOCATE 9, 5: PRINT "NEW : Mouse x:"; newX; " Mouse y:"; newY; " "
'SCREEN oldimage&
_PUTIMAGE (x, Y)-(oldX, oldY), oldImage&, newScreen&, (x, Y)-(oldX, oldY)
LINE (x, Y)-(newX, newY), _RGB(10, 10, 100), B
oldX = newX
oldY = newY
END IF
LOOP WHILE _MOUSEBUTTON(1) = -1
LOCATE 2, 36: PRINT " "
_FREEIMAGE oldImage&
ELSEIF _MOUSEBUTTON(2) = -1 THEN
LOCATE 1, 35: PRINT ". . "
LOCATE 1, 35: PRINT "Mouse Button 2 pressed. "
PSET (_MOUSEX, _MOUSEY), _RGB(255, 255, 0)
ELSE
LOCATE 1, 35: PRINT " "
END IF
END IF
LOOP UNTIL INKEY$ <> ""