Bitmap: Difference between revisions
Bitmap en FreeBASIC
(Bitmap en FreeBASIC) |
|||
Line 1,465:
=={{header|Fortran}}==
See [[Basic bitmap storage/Fortran]]
=={{header|FreeBASIC}}==
<lang freebasic>Screenres 320, 240, 8
Dim Shared As Integer w, h
Screeninfo w, h
Const As Ubyte cyan = 3
Const As Ubyte red = 4
Sub rellenar(c As Integer)
Line (0,0) - (w/3, h/3), red, BF
End Sub
Sub establecePixel(x As Integer, y As Integer, c As Integer)
Pset (x,y), cyan
End Sub
rellenar(12)
establecePixel(10,10, cyan)
Locate 12
Print "pixel 10,10 es " & Point(10,10)
Print "pixel 20,20 es " & Point(20,10)
Bsave "FreeBASIC_bitmap.bmp", 0
Sleep</lang>
=={{header|Go}}==
| |||