PureBasic

Merci les gars je vais essayer sa mais il me disent pour ton exemple dobro setframerate(60) there is not current screen es ce notrmal autrement merci ?

Mais pourquoi il me disen plein d'erreur there is not current screen arghhh

Bon bah Garzul m'a demandé de regardé, gentilement je le fais, puis quand c'est fini j'ai le droit à un

Garzul rentre de la taverne aprés avoir bu un coup (garzul): Non c bon on s'occupe de moi sur le forum

Puisque lui n'en veux pas, j'ai fait ceci, vous ça vous aidera peut-être:

Code : Tout sélectionner

;Structure
Structure Ligne
  x.f
  y.f
EndStructure

Global coord.Ligne


;Procedure du dessin
Procedure Ligne(x.f,y.f,anx.f,any.f)
  Protected x1.f,y2.f,s1.f,d1.f
    Coord\x = x1  + x * Sin(any)
    Coord\y = y2  - x * Cos(any) 
    ; * Cos(anx)
EndProcedure

;Texte
Procedure Texte()
  StartSpecialFX()
    DisplayTranslucideSprite(1, 250, 250, Intense)
  StopSpecialFX()
  intense + 1
  If intense = 255
    inse - 1
  EndIf
EndProcedure


;initialisation des cmposant
If InitSprite() = 0 Or InitKeyboard() = 0
  End
EndIf
;création screen

If OpenScreen(1024,768,32,"Demos")
  AngleX.f = 0
  AngleY.f = 0
  AngleZ.f = 0
  FontID = LoadFont(0, "Arial", 8, #PB_Font_HighQuality)

  ;Création des fichier . pak
  ;- .PAK
  CreatePack("Demos.pak")
  AddPackFile("Texte1.bmp",9) 
  ClosePack()
  OpenPack("Demos.pak")
  CatchSprite(1,NextPackFile())
  ClosePack()

  ;BOUCLE
  Repeat
    ClearScreen(0, 0, 255);A enlever sa fait un jolie effet :)
    texte()
    AngleX + 0.01
    AngleY + 0.09
    AngleZ + 0.09
    
    StartDrawing(ScreenOutput())
      DrawingFont(FontID)
        
      ;Tracer de la ligne 1
      Ligne(200,0,angleX,AngleY)
      Line(250,250,coord\x,coord\y,RGB($F7,$EF,$08))
          
      ;Plot( 250 + coord\x,250 + coord\y,RGB($1B,$3E,$E4)) ;Normalement le point qui devrait faire un cercle
      ;tracer de la ligne 2
      Ligne(0,200,angleX,AngleY)
      Line(250,250,coord\x,coord\y,RGB($28,$18,$D7))       
   
    StopDrawing()


    FlipBuffers()

    ExamineKeyboard()
  Until KeyboardPushed(#PB_Key_Escape)
  
EndIf

Et pour Garzul, depuis ce matin que tu me cris : ça va pas vite, dans 'aide on lit ça

Cette commande est spécialement optimisée (et beacoup plus rapide) pour une utilisation en conjonction avec la commande StartSpecialFX().

Et à 19h tu ne le savais toujours pas !!!!!!! Donc quand on se pleind que c'est lent et que l'on ne lit pas la doc....... Je vais même pas continuer à changer le code

PS : j'ai changé la police car je n'ai pas "tahoma" et ça fait tout planter chez moi

Oliv je t'en veux pas mais la comande specialfx chez moi sa marche pas et j'avais deja essayer mais sa marchais pas

enfin je vais essayer de trouver j'ai plein de probleme au niveau sde pure basic la

mais merci oliv et excuse moi pour le derangement occasioner je ne l'et pas fais exprés

[/quote]

encore heureux que tu ne m'en vueilles pas, il manqurais plus que ça

PureBasic

Displaytranslucidesprite