feuille de fougère selon Barnsley (fractal)

Programmation avancée de jeux en PureBasic
Avatar de l’utilisateur
Fig
Messages : 1176
Inscription : jeu. 14/oct./2004 19:48

feuille de fougère selon Barnsley (fractal)

Message par Fig »

Code : Tout sélectionner

;* Barnsley fern https://en.wikipedia.org/wiki/Barnsley_fern
#x=800:#y=800
If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0 Or OpenWindow(0, 0, 0, #X+1, #Y+1, "Barnsley fern", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)=0 Or OpenWindowedScreen(WindowID(0),0,0,#X+1,#Y+1,0,0,0,#PB_Screen_NoSynchronization )=0
    MessageRequester("Error", "Can't open the sprite system", 0)
    End
EndIf
x.f=0.0:y.f=0.0:xn.f=0.0:yn.f=0.0
px.f=0.0:py.f=0.0
CreateSprite(0,#x+1,#y+1)
Repeat
    FlipBuffers()
    ExamineKeyboard()
    StartDrawing(SpriteOutput(0))
    For i=1 To 100
        r.i=Random(100)
        If r<2
            xn=0
            yn=0.16*y
        ElseIf r<87
            xn=  0.85*x +  0.04*y
            yn= -0.04*x +  0.85*y + 1.6
        ElseIf r<94
            xn=  0.2* x + -0.26*y
            yn=  0.23*x +  0.22*y + 1.6
        Else
            xn= -0.15*x +  0.28*y
            yn=  0.26*x +  0.24*y + 0.44
        EndIf
        px=(xn+2.1820)*#x/4.8378
        py=yn*#y/9.9983
        py=Abs(py-#y)
        ;scale to the screen
         Plot(Int(px),Int(py),#Green)
        x=xn:y=yn
    Next i
    StopDrawing()
    DisplaySprite(0,0,0) 
    While WindowEvent() 
    Wend   
Until KeyboardPushed(#PB_Key_Escape)
Dernière modification par Fig le sam. 23/juin/2018 7:29, modifié 2 fois.
Il y a deux méthodes pour écrire des programmes sans erreurs. Mais il n’y a que la troisième qui marche.
Version de PB : 6.00LTS - 64 bits
Avatar de l’utilisateur
SPH
Messages : 4721
Inscription : mer. 09/nov./2005 9:53

Re: feuille de fougère selon Barnsley (fractal)

Message par SPH »

Code : Tout sélectionner

If Int(px)>0 And Int(px)<800
        If Int(py)>0 And Int(py)<800
          
          Plot(Int(px),Int(py),#Green)
        EndIf
      EndIf
super :o
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
Avatar de l’utilisateur
Fig
Messages : 1176
Inscription : jeu. 14/oct./2004 19:48

Re: feuille de fougère selon Barnsley (fractal)

Message par Fig »

Merci, mais pas compris ta modification...
Il y a deux méthodes pour écrire des programmes sans erreurs. Mais il n’y a que la troisième qui marche.
Version de PB : 6.00LTS - 64 bits
Avatar de l’utilisateur
SPH
Messages : 4721
Inscription : mer. 09/nov./2005 9:53

Re: feuille de fougère selon Barnsley (fractal)

Message par SPH »

chez moi, le plot quitte l'ecran et fait une erreur :idea:
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
Avatar de l’utilisateur
Fig
Messages : 1176
Inscription : jeu. 14/oct./2004 19:48

Re: feuille de fougère selon Barnsley (fractal)

Message par Fig »

Ha, c'est possible, ça doit venir du 800/600 versus 799/599 ...
Corrigé.
Il y a deux méthodes pour écrire des programmes sans erreurs. Mais il n’y a que la troisième qui marche.
Version de PB : 6.00LTS - 64 bits
Avatar de l’utilisateur
Ar-S
Messages : 9472
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: feuille de fougère selon Barnsley (fractal)

Message par Ar-S »

Super rendu merci
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
Kwai chang caine
Messages : 6962
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: feuille de fougère selon Barnsley (fractal)

Message par Kwai chang caine »

Tres joli, merci 8)
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Avatar de l’utilisateur
Micoute
Messages : 2522
Inscription : dim. 02/oct./2011 16:17
Localisation : 35520 La Mézière

Re: feuille de fougère selon Barnsley (fractal)

Message par Micoute »

Ah oui, presque plus vrai que nature. J'adore, merci pour le partage.
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce RTX 3080 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.73 PB 6.00 LTS (x64)
Un homme doit être poli, mais il doit aussi être libre !
Avatar de l’utilisateur
venom
Messages : 3071
Inscription : jeu. 29/juil./2004 16:33
Localisation : Klyntar
Contact :

Re: feuille de fougère selon Barnsley (fractal)

Message par venom »

En effet, sympa.
Bravo





@++
Windows 10 x64, PureBasic 5.73 x86 & x64
GPU : radeon HD6370M, CPU : p6200 2.13Ghz
Répondre