01-28-2023, 06:23 PM
Can someone help me?
How to make. I will draw several different pictures in QB64.
I want to save these pictures to the computer's memory. Then I want to develop these images using _MapTriangle.
For example: Picture(1-100)
I don't want to record them from a file..
Const Xpix = 1920
Const Ypix = 1080
Screen _NewImage(Xpix, Ypix, 32)
_FullScreen
Dim As Long Pismeno(5)
Pismo& = _LoadFont("SANFW.ttf", 300, "monospace")
_Font Pismo&
Cx = 450: CY = 110
x = 100: y = 100
For t = 1 To 5
Pismeno(t) = _NewImage(x * 2, y * 2, 32)
_Dest Pismeno(t)
Locate 1, 1: Print t
Line (Cx - x, CY - y)-(Cx + x, CY + y), , B
'Get (Cx - x, CY - y)-(Cx + x, CY + y), Pismeno(t) - I keep getting this error
Cls
Next t
For t = 1 To 5
_Source Pismeno(t)
_Dest 0
_PutImage (Cx - x + c, CY - y), Pismeno(t)
c = c + 200
Next t
_Display
How to make. I will draw several different pictures in QB64.
I want to save these pictures to the computer's memory. Then I want to develop these images using _MapTriangle.
For example: Picture(1-100)
I don't want to record them from a file..
Const Xpix = 1920
Const Ypix = 1080
Screen _NewImage(Xpix, Ypix, 32)
_FullScreen
Dim As Long Pismeno(5)
Pismo& = _LoadFont("SANFW.ttf", 300, "monospace")
_Font Pismo&
Cx = 450: CY = 110
x = 100: y = 100
For t = 1 To 5
Pismeno(t) = _NewImage(x * 2, y * 2, 32)
_Dest Pismeno(t)
Locate 1, 1: Print t
Line (Cx - x, CY - y)-(Cx + x, CY + y), , B
'Get (Cx - x, CY - y)-(Cx + x, CY + y), Pismeno(t) - I keep getting this error
Cls
Next t
For t = 1 To 5
_Source Pismeno(t)
_Dest 0
_PutImage (Cx - x + c, CY - y), Pismeno(t)
c = c + 200
Next t
_Display