voici un petit code pratique si on veut afficher une boite englobante (bouding box) pour un sprite :
Code : Tout sélectionner
; mars 2016
; d'après un code de typhon lui-même d'après un code comtois
; modifié par blendman pour prendre en compte l'angle du triangle rectangle interne, pour que ça fonctionne avec tous les sprites.
; attention la rotation du sprite est centrée en w/2,h/2 dans cet example
If InitSprite() = 0 Or InitKeyboard()=0 Or UsePNGImageDecoder() = 0 Or UseJPEGImageDecoder() = 0
MessageRequester("Error","DirectX 7+ is needed.",0)
End
EndIf
OpenWindow(0,0,0,800,600,"Sprite bounding box",#PB_Window_ScreenCentered|#PB_Window_SystemMenu)
OpenWindowedScreen(WindowID(0),0,0, 800, 600, 0, 0, 0)
file$ = OpenFileRequester("Load image to sprite","","PNG (*.png)|*.png|JPG(.jpg,.jpeg)|*.jpg;*.jpeg)",0)
If file$ <> ""
If LoadSprite(0,File$,#PB_Sprite_AlphaBlending)
w = SpriteWidth(0)
h = SpriteHeight(0)
Else
MessageRequester("Error","Unable to load the image "+file$)
End
EndIf
EndIf
x = 100
y = 100
#DEG = #PI/180
Repeat
Repeat
event = WaitWindowEvent(1)
If event = #PB_Event_CloseWindow
End
EndIf
Until event =0
angle +1
If angle > 360
angle = 0
EndIf
R = Sqr(w*w+h*h)/2 ; demi diagonal in center
u.f = Degree(ATan(h/w))
X1=X+w/2+R*Cos((Angle-u)*#DEG)
Y1=Y+h/2+R*Sin((Angle-u)*#DEG)
X2=X+w/2+R*Cos((Angle+u)*#DEG)
Y2=Y+h/2+R*Sin((Angle+u)*#DEG)
X3=X+w/2+R*Cos((Angle-180+u)*#DEG)
Y3=Y+h/2+R*Sin((Angle-180+u)*#DEG)
X4=X+w/2+R*Cos((Angle+180-u)*#DEG)
Y4=Y+h/2+R*Sin((Angle+180-u)*#DEG)
ClearScreen(RGB(120,120,120))
RotateSprite(0,angle,0)
DisplayTransparentSprite(0,x,y)
StartDrawing(ScreenOutput())
LineXY(X1,Y1,X2,Y2)
LineXY(X2,Y2,X4,Y4)
LineXY(X3,Y3,X1,Y1)
LineXY(X3,Y3,X4,Y4)
StopDrawing()
FlipBuffers()
If ExamineKeyboard()
EndIf
Until KeyboardPushed(#PB_Key_Escape)
Code : Tout sélectionner
Procedure SpriteTransformation(Sprite.i, X.f, Y.f, Width.f, Height.f, Angle.f)
Protected Cos.f = Cos(Radian(Angle))
Protected Sin.f = Sin(Radian(Angle))
TransformSprite(Sprite, X*Cos-Y*Sin, X*Sin+Y*Cos, (X+Width)*Cos-Y*Sin, (X+Width)*Sin+Y*Cos, (X+Width)*Cos-(Y+Height)*Sin, (X+Width)*Sin+(Y+Height)*Cos, X*Cos-(Y+Height)*Sin, X*Sin+(Y+Height)*Cos)
EndProcedure
Procedure CalculCoin(X.f, Y.f, Width.f, Height.f, Angle.f, ScreenX.f, ScreenY.f)
Protected Cos.f = Cos(Radian(Angle))
Protected Sin.f = Sin(Radian(Angle))
Protected.f x1,y1, x2,y2, x3,y3, x4,y4
x1=(X*Cos-Y*Sin) + ScreenX
y1=(X*Sin+Y*Cos) + ScreenY
x2=((X+Width)*Cos-Y*Sin )+ ScreenX
y2=((X+Width)*Sin+Y*Cos) + ScreenY
x3=((X+Width)*Cos-(Y+Height)*Sin ) + ScreenX
y3=((X+Width)*Sin+(Y+Height)*Cos ) + ScreenY
x4=(X*Cos-(Y+Height)*Sin ) + ScreenX
y4=(X*Sin+(Y+Height)*Cos) + ScreenY
If StartDrawing(ScreenOutput())
Circle(x1, y1, 2, $0000ff)
Circle(x2, y2, 2, $0000ff)
Circle(x3, y3, 2, $0000ff)
Circle(x4, y4, 2, $0000ff)
LineXY(x1, y1,x2, y2, $00ffff)
LineXY(x2, y2,x3, y3, $00ffff)
LineXY(x3, y3,x4, y4, $00ffff)
LineXY(x1, y1,x4, y4, $00ffff)
StopDrawing()
EndIf
EndProcedure
InitSprite()
Enumeration
#Window
#Sprite
#Font
EndEnumeration
LoadFont(#Font, "Arial", 24)
OpenWindow(#Window, 0, 0, 800, 600, "ScreenTitle", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(#Window), 0, 0, WindowWidth(#Window), WindowHeight(#Window), 0, 0, 0)
CreateSprite(#Sprite, 200, 50)
If StartDrawing(SpriteOutput(#Sprite))
DrawingFont(FontID(#Font))
Box(0, 0, OutputWidth(), OutputHeight(), $808080)
DrawingMode(#PB_2DDrawing_Transparent)
DrawText(0, 0, "Pure Basic", $FFFFFF)
StopDrawing()
EndIf
ClearScreen(0)
SpriteTransformation(#Sprite, 0, 0, 200, 50, 0)
DisplaySprite(#Sprite, 200, 100)
CalculCoin(0, 0, 200, 50, 0, 200, 100)
SpriteTransformation(#Sprite, 0, 0, 200, 50, 45)
DisplaySprite(#Sprite, 400, 200)
CalculCoin(0, 0, 200, 50, 45, 400, 200)
SpriteTransformation(#Sprite, 50, 20, 100, 25, -45)
DisplaySprite(#Sprite, 600, 300)
CalculCoin(50, 20, 100, 25, -45, 600, 300)
FlipBuffers()
Repeat
Repeat
Select WindowEvent()
Case #PB_Event_CloseWindow
End
Case #Null
Break
EndSelect
ForEver
ForEver
.
.
