Trekn-mixer 0.2

[James D Jarvis]

I'm having some problems with the weapon rotation... JDJ you made them 32 pixels across instead of 64 which is one thing. I thought it was easy to program but might have to settle for plain flipping horizontally and vertically with "_PUTIMAGE". The "objects" shown on this thread might have to be fit into the concept of my "dream".

Another thing is that I discovered "_CLIPBOARDIMAGE" doesn't work on Linux (which is intentional) so cannot paste into GIMP and have to work strictly with BMP screenshots manipulated by BASIC programs.

You could do triangle mapping for rotating the sprites. Did you track down RotoZoom ?  That works well.   
Not my subprogram and not sure if it's the best version:

Code: (Select All)

Sub RotoZoom2 (centerX As Long, centerY As Long, Image As Long, xScale As Single, yScale As Single, Rotation As Single)
    Dim px(3) As Single: Dim py(3) As Single
    W& = _Width(Image&): H& = _Height(Image&)
    px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
    px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
    sinr! = Sin(-Rotation): cosr! = Cos(-Rotation)
    For i& = 0 To 3
        x2& = (px(i&) * cosr! + sinr! * py(i&)) * xScale + centerX: y2& = (py(i&) * cosr! - px(i&) * sinr!) * yScale + centerY
        px(i&) = x2&: py(i&) = y2&
    Next
    _MapTriangle (0, 0)-(0, H& - 1)-(W& - 1, H& - 1), Image& To(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
    _MapTriangle (0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), Image& To(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
End Sub

As for saving the screen image have you tried using the saveimage example from the wiki?  SAVEIMAGE - QB64 Phoenix Edition Wiki I use the clipboard myself because I usually have a paint app open and just paste a generated image into that.