PureGolo

[tmyke]

j'espere juste que N3xt-D fera de l'export en 3DS

En natif (Irrlicht) il n'existe pas de sauvegarde possible en 3DS . Mais cela se ferra quand même en suite,
c'est toujours très utile

[Backup]

on s'amuse comme on peut

ce prg puregolo :

Code : Tout sélectionner

  let x=0
  let y=0
   pour [carre],taille
      repete 4
        td 90
        av taille      
      fin_repete
     ret taille
   fin_pour
   pour [triangle],taille
      repete 3
        td 120
        av taille       
      fin_repete
     ret taille
   fin_pour
   pour [rectangle],x,y
      repete 2
        td 90
        av y
        td 90
        av x
      fin_repete     
   fin_pour


   pour [branche],taille,profondeur,vert

      if profondeur>1
        let profondeur={profondeur}-1   
        let taille={taille}/1.4    
        let vert={vert}+10
        couleur 0,vert,0
      else
        exit    
      endif  

     td 45
     av taille   
     [branche],taille,profondeur,vert
     re taille


     tg 90
     av taille  
     [branche],taille,profondeur,vert
     re taille


     td 45
     let vert={vert}-10
     couleur 0,vert,0
   fin_pour


  y_tortue 450
  x_tortue 1

  td 90
  pinceau pave,5,5,-1
  av 800
  lc
  re 10
  td 90
  av 5
  bc
  remplis 0,255,0
  lc
  re 5
  td 90
  av 200
  bc
  couleur 255,255,255
  [carre],100
  td 90
  av taille
  tg 90
  [triangle],100
  lc
  re 10
  td 90
  av 5
  bc
  remplis 255,0,0
  lc
  re 5
  tg 90
  av 10
  tg 90
  av 10
  tg 90
  lc
  av 5
  bc
  remplis 0,0,255
  lc
  re 5
  td 90
  av 90
  tg 90
  av 30
  bc
  couleur 255,255,255
  tg 180


  pinceau ligne,1,1,0
  [rectangle],30,50

  av 300
  td 90
  lc
  av 100
  bc

  transparent 125

  [branche],100,10,50

  re 140

  let r=0
  let v=0
  let b=0
  pinceau disk,2,0,0
  couleur 255,255,255
   repete 300
     rnd 800,x
     rnd 600,y
     x_tortue x
     y_tortue y
     point r,v,b

      if r=0
         if v=0
            if b=0
              bc
              av 1
              lc
            endif
         endif
      endif

   fin_repete

donne ça :

[Backup]

suite a un message de Geo Trouvpatou , je viens de me rendre compte que PureGolo n'était plus dispo
sur mon site !!

c'est réparé , donc la version 14 est toujours dispo ici
http://michel.dobro.free.fr/download.php?view.11

[Warkering]

Que dire plus que ?

[Backup]

PureGolo 15 ... Le retour
http://michel.dobro.free.fr/download.php?view.11



dans cette version, il n'y a rien de changé niveau moteur d’interprétation par rapport a la version 14
mais .. intègre maintenant un Vrais éditeur Scintilla

la doc , vous montrera que les Fonctions 3D sont toujours désactivées (retirés suite a la mort de Dreamotion3D)

mais la vrais récursivité est toujours là

bref , Puregolo a fait peau neuve niveau éditeur

si vous vous servez pour la première fois de PureGolo , prenez bien le temps de lire ce qui est ecrit autour des différentes fenêtre
il y a un petit jeux entre bouton gauche/droite de la souris, qu'au départ ça peut perturber .. (on s'y fait vite)
tout est ecrit sur les fenetres au moment venu ..

fourni dans l'archive pleins d'exemples , vous pourrez apprendre le Golo rapidement , rien de compliqué

j'ai ajouté une petite aide en bas de fenêtre pour les syntaxes ....



vite fait :
fd x ou forward x ou av x ou avance x permet d'avancer la tortue (qui laisse une trainée derrière elle)

td degrés ou tournedroite degrés permet de touner a droite la tortue de x degrés (pareil pour la gauche avec tournegauche/tg)
tourne peut utiliser des chiffres positif (tourne droite) ou négatif (tourne gauche)

re x ou recule ou backward x pour reculer la tortue

les boucles :
repeat x
fin_repeat

tant_que condition
fin_tant_que

Puregolo Gere les If (si) imbriqués ... etc ...

en puregolo on déclare les variables !
avec let

exemple

Code : Tout sélectionner

let a=10 ; declare la variable a et lui atribue a valeur 10

let c={a}+10 ; ici les accolades signifie qu'on prends en compte le contenu de la variable a (on lui ajoute 10)

? 10,10 c ; ça affiche 20.00000000 en position 10,10 sur l'ecran de sortie

les procedures en LOGO ce font grace a la directive TO ('pour' in french Logo)
en Puregolo c'est pareil

par exemple je vais creer une procedure qui saura dessiner un carré

Code : Tout sélectionner

	; on fait une procedure sans parametre qui saura dessiner un carré

	pour [carre]
		repete 4
			avance 100
			td 90  ; tourne droite 90 degrés 
		fin_repete
	fin_pour
	; comme en purebasic le ; sert a commenter une partie du code

	; voila maintenant si je veux dessiner un carré il suffit de faire:

		[carre]

		; du coup on peut jouer avec ça :

		pause 2   ; une petite pause de 2 secondes avant la suite du dessin :o) 

		repete 8  ; on repete 8 fois le dessin du carré
			[carre]
			td 45  ; mais en plus on va tourner de 45 degres 
		fin_repete

		; ps : vous pouvez utiliser le mode pas a pas en cochant la coche "débugger" en haut de fenetre ;o)
		; faudra cliquez chaque pas sur l'ecran graphique
; comme d'habitude un click bouton droit pour interrompre le dessin en cours

a l'aide des boucles et des variables , des procédures (pour [toto] en Golo) , on peut faire des trucs sympath

genre ce code : (notez la récursivité.. a l'interieur de triangle.. on appel ... triangle )

Code : Tout sélectionner

	pour [triangle],pas,profondeur
		if profondeur>1
			let profondeur={profondeur}-1
			let pas ={pas}/2
		else
			exit ; on quitte la procedure = procedurereturn en pb
		endif   

		avance pas     
		td 120
		[triangle],pas,profondeur

		avance pas     
		td 120
		[triangle],pas,profondeur

		avance pas    
		td 120
		[triangle],pas,profondeur
	fin_pour

	let pas=800

	let profondeur=6

	td 30
	transparent 125
	x_tortue 100
	y_tortue 500

	[triangle],pas,profondeur

donne :


voila bon amusement .



ps: peut passer des parametres a un procedure de la façon suivante

pour [triangle],pas,profondeur (jusqu'a 5 parametres)

voir la doc , pour le retour des procedure (ret x ou return x ou retourne x )
voir les exemples du dossier "Pour" pour les exemples de récursivités etc ...

la directive couleur r,v,b permet de dessiner en couleur !
la directive pinceau , vous permet pas mal de délires
ainsi que Polygone ... voir doc

[G-Rom]

A quand une version Linux ?

[Backup]

A quand une version Linux ?

faut que j’installe linux !

le problème : avec mon msi il reste quelques soucis de drivers pas compatibles..

je vais aller a la peche aux renseignements..

[G-Rom]

A quand une version Linux ?

faut que j’installe linux !

le problème : avec mon msi il reste quelques soucis de drivers pas compatibles..

je vais aller a la peche aux renseignements..

Tu peut l'installer sur une clé usb sans rien installé sur ton pc.