19 lines
374 B
Plaintext
19 lines
374 B
Plaintext
SUB establecePixel (x AS INTEGER, y AS INTEGER, c AS INTEGER)
|
|
PSET (x, y), cyan
|
|
END SUB
|
|
|
|
SUB rellenar (c AS INTEGER)
|
|
SHARED w, h
|
|
LINE (0, 0)-(w / 3, h / 3), red, BF
|
|
END SUB
|
|
|
|
SCREEN 13
|
|
w = 320: h = 200
|
|
CONST cyan = 3, red = 4
|
|
|
|
rellenar (12)
|
|
CALL establecePixel(10, 10, cyan)
|
|
LOCATE 12
|
|
PRINT "pixel 10,10 is "; POINT(10, 10)
|
|
PRINT "pixel 20,20 is "; POINT(20, 10)
|