example 1:
example 2:
Code (whats needed):
Code: Select all
Structure RGBA_STRUCT
code.l
EndStructure
Global *p1.RGBA_STRUCT
Global *p2.RGBA_STRUCT
Global *p3.RGBA_STRUCT
;Coordinates:
;bx = X
;by = Y
;bw = Width
;bh = Height
bh = by + bh - 1
bw = bx + bw - 1
If StartDrawing(ScreenOutput())
*buffer = DrawingBuffer()
buffer_pitch = DrawingBufferPitch()
For bb = 1 To 2;<- change this to get one of the effects above! (bb = 2 To 3)
For iy = by To bh Step 1
For ix = bx To bw Step 2
*p1 = *buffer + (ix * 4) + (iy * buffer_pitch)
*p2 = *buffer + (ix * 4) + ((iy + bb) * buffer_pitch) + 4
*p3 = *buffer + ((ix - bb) * 4) + (iy * buffer_pitch)
*p1\code = *p2\code
*p2\code = *p3\code
Next
Next
Next
DrawingMode(#PB_2DDrawing_Outlined)
Box(bx,by,300,300)
StopDrawing()