Page 2 sur 2
Publié : mer. 17/mai/2006 15:29
par 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
Publié : mer. 17/juin/2009 14:22
par 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
Publié : mer. 17/juin/2009 17:18
par 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)