Macros

[Dr. Dri]

avec la constante #PI native, voila des macros de conversion (relativement optimisées :P8))

Code : Tout sélectionner

#RadToDeg = 180.0 / #PI
#RadToGrd = 200.0 / #PI
#DegToRad = #PI / 180.0
#DegToGrd = 200 / 180.0
#GrdToRad = #PI / 200.0
#GrdToDeg = 180 / 200.0

Macro RadToDeg(Rad)
  ((Rad) * #RadToDeg)
EndMacro

Macro RadToGrd(Rad)
  ((Rad) * #RadToGrd)
EndMacro

Macro DegToRad(Deg)
  ((Deg) * #DegToRad)
EndMacro

Macro DegToGrd(Deg)
  ((Deg) * #DegToGrd)
EndMacro

Macro GrdToRad(Grd)
  ((Grd) * #GrdToRad)
EndMacro

Macro GrdToDeg(Grd)
  ((Grd) * #GrdToDeg)
EndMacro

Dri

[Backup]

j'ai mis ce topic en post it
parceque je l'avais perdu , et que je trouve qu'il contient des trucs interressants !

si vous avez d'autres Macro a insérer , n'hésitez pas

[Ollivier]

DX9(Objet) remplacerait Init#Objet() et stoppe le programme avec un message d'erreur s'il y a échec. Vérifie aussi si l'option sous-système est précisée, sinon affiche un message d'avertissement et stoppe le programme.

Code : Tout sélectionner

Macro DX9(X, QT =")

   CompilerIf Subsystem("directx9") = 0 ; Sous Windows
      MessageRequester("Erreur DirectX", "Option sous-système manquante : DirectX9.")
      End
   CompilerEndIf

   If Not Init#X()
      MessageRequester("Erreur DirectX", "Impossible de charger correctement DirectX (" + QT#X#QT + ")")
      End
   EndIf

EndMacro

DX9(Sprite)
DX9(Keyboard)
DX9(Mouse)