Compétition PurePunch été 2010

[gildev]

Vu tout ce que j'ai à faire, le temps et le budget que ça prendrait, et l'horrible lenteur qui me caractérise, la réponse est non!

Ha la vache, ça rigole plus! C'est bon ça!

Par contre je l'ai dans l'os pour cette fois, j'ai voulu péter plus haut que mon nez et je suis en échec. Je garde le programme pour le prochain (PurePunch Winter 2010? ) En tout cas cette compétition prend une bonne tournure avec les récompenses.

[TazNormand]

@ Cool Dji : Superbe, On dirait bien que cette année c'est toi le gagnant de la compét'. Il y a même mon nom dans les greetings,

C'est mort pour moi aussi, et au vu de la prod de Cool Dji, le niveau est encore plus haut (trop pour moi) que la dernière fois

@ Djes : Tu me communiqueras par MP l'adresse du vainqueur que je lui envoie ma carte FireWire PCI

[djes]

Arf! L'essentiel est de participer, laissez les autres juger, sinon tous vos efforts n'auront servi à rien... La prochaine fois, je demanderai aux participants de mettre leurs prods en zip avec un mot de passe sur le FTP, et de nous le dévoiler après la date.

[gildev]

Ha oui, c'est pas bête, comme ça tout le monde découvre au même moment.

[Cool Dji]

Ha oui, c'est pas bête, comme ça tout le monde découvre au même moment.

yes +1
On pourrait faire aussi au moins 3 themes : Demo / Games / Utils ;

Pourquoi pas aussi "imposer" les fichiers graphiques et sons et ainsi tout le monde partirait de la même base.
Finalement, il n'y aurait que le code qui resterait propre à chacun.

[Ar-S]

On pourrait faire aussi au moins 3 themes : Demo / Games / Utils ;

Pourquoi pas aussi "imposer" les fichiers graphiques et sons et ainsi tout le monde partirait de la même base.
Finalement, il n'y aurait que le code qui resterait propre à chacun.

Je pense que c'est une idée à ajouter aux catégories et non pour remplacer les autres idées.
"Demo / Games / Utils / ressources imposées"

Mais je pense que les ressources imposées seules brideraient la créativité.

Cool Dji si tu as le temps, ce serait vraiment gratifiant pour nous de proposer ton code en commenté si tu as le temps.
Comment par exemple gères tu les formes (coeur, étoiles). Sont-ce avec les datas ? Si oui, comment calcules tu les formes ?
Autant de mystère que j'aimerai beaucoup comprendre.

@Djes, l'idée du zip + pass est bonne.
Je pourrai prêter un espace ftp aux participant si besoin.

[Cool Dji]

Cool Dji si tu as le temps, ce serait vraiment gratifiant pour nous de proposer ton code en commenté

oui, mais je ne suis pas un exemple de programmeur structuré... et finalement "le mystère" retombera quand vous verrez l'envers du décors
C'est vraiment du code de base sans équations, sans algorithmique très poussée mais promis je prépare un topo très pédagogique la-dessus !

@All, merci pour tous les compliments
J'ai mis beaucoup de coeur et d'énergie dans ce PurePunch !

J'espère qu'il y aura d'autres créations d'ici ce soir !

[Ar-S]

Je me lancerai surement dans un purepunch une prochaine fois, lorsque je me serai amélioré en 2D/3D.
Mais en aout et en ce début de rentré j'ai pas mal de boulot, je viens de monter une tour, et j'en ai 2 autres en attente.
Et j'ai rendez vous pour faire 2 sites web. C'est plutôt chouette pour moi mais coté prog ça me fera pas avancer.

[G-Rom]

Flop?

[djes]

Je fais la compilation des participations et je mets en place le vote.

[djes]

Le vote est mis en place.

[gildev]

Les différentes démos de cette session m'ont vraiment plu, mais quand j'ai vu celle de Cool Dji j'ai pris une putain de baffe dans la gueule!!! C'est exactement ce que j'attend d'une démo. Quand on pense aux limites imposées ça relève du chef-d'œuvre. Ca va être tendu de te battre au prochain PurePunch, mais c'est ce qui me motive à me remuer un peu.

[Cool Dji]

Cool Gildev

[Cool Dji]

Coucou,

J'ai commencé à mettre des commentaires sur la source de Gaga Punch.

Il y a une grande partie qui sert à extraire les morceaux d'image de l'image de 512x512 que je n'ai pas trop commenté.
Comme la fonction TextureOutput() n'existe plus, j'ai du enregistrer l'image et la charger avec loadtexture...
Je n'ai pas retouché le code et je me rends compte qu'il n'est pas optimisé. En fait, lorsqu'un effet était fini, je raccourcissait tout de suite le nombre de lignes sans revenir après sur ce code. ça permettait d'avoir une vision assez juste de la limite des 200 lignes.

J'ai beaucoup utilisé les Billboard.
les étoiles, les cadrans du grand cercle violet, la lumière blanche qui tourne autour, le grand huit et les noms du big hello !

Les cadrans du grand cercle sont construits en alignant 10 points ce qui donne une ligne

Les particles ont servi à faire les effets des 3 formes (strockées en x,y) en data : coeur, étoile et France

L'effet caustics a été fait avec un caustic générator (32 images de 64x64)

Le reste est en sprite3d et j'ai beaucoup joué avec les effets de transparence.

Pour économiser les police de caractère et la gestion de l'écriture des textes, j'ai une seule procédure
d'affichage de tete qui pointe le sprite de la lettre 'A' de la bonne police. Ensuite, les caractères suivants sont déduits de ce sprite=W
A=n°de spriteA+0, B=n°de spriteA+1, C=n°de spriteA+2,D=n°de spriteA+3,E=n°de spriteA+4...
l'ordre des caractères de ma police est défini par la chaine Strig$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789"
Pour les polices roses-violette je fais un zoom des lettres selon les textes affichés (Gaga Punch) est plus gros que le scrolling...

Ensuite, toutes les animations sont synchronisées avec la variable Smtb
qui est alimentée avec ElapsedMilliseconds() dès que le manche disque arrive à sa position et fait démarrer la musique

Image: http://xdji.free.fr/Telechargement/Gaga%20Punch.bmp
Music : http://xdji.free.fr/Telechargement/Gaga%20Punch.ogg

Code : Tout sélectionner

;*****************************************************************************
;*
;* Summer 2010 PurePunch Demo contest
;* 200 lines of 80 chars, two months delay
;*
;* Name     : Gaga Punch
;* Author   : Cool Dji
;* Date     : Summer 2010
;* Purebasic Version : 4.50 32bit Windows
;* Notes    : Gaga Punch Create,Write and Delete 40 textures.bmp on your disk
;*
;*****************************************************************************


InitSprite() : InitKeyboard() : InitSprite3D() : InitSound() :InitEngine3D()

;- Variables

Global ing.f,ing2.f,ing3.f=0.1,ing4,ing5.f,k,sl5,w1,ing6,ing7,ing8=255,ing9
Global Posmouse,nuag,dnuag=1,scenario,activeboule,bx,by,alpha1,ang.f,zs.f
Global Rlfa.d,RlfaX.d,RlfaY.d,RlfaZ.d,n1,dn1,Smtb,Smt,dl,ing8a=-1
Global Dim Rxa.d(100),Dim Rya.d(100),Dim Rza.d(100),dang.f,pla.f,sm

;Tableau qui enregistre les coordonnées des formes géométriques qui sont
; stockées dans les data
Global Dim Bougix.i(36*5):Global Dim Bougiy.i(36*5):Global Dim Bougiz.i(36*5)

;Tableau qui stock les coordonnées de la grande couronne violette
Global Dim coux.f(99),Dim couy.f(99)

;Tableau qui stock les coordonnées de la montagne russe des "Hello"
Global Dim cx.f(10000),Dim cy.f(10000)

;Chaine qui indique l'ordre des lettres contenues dans l'image "Gaga Punch.bmp"
Global Strig$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789",Dim cz.f(10000)

; Déclaration de la procédre qui affiche les textes
; (Texte à afficher, position Y, taille, n° de sprite, max aléatoire pour faire trembler la lettre)
Declare AffT(TextMenu01$,y.i,sz.i,sprite.i,rnd.i)

; Tableaux qui contiennent les textes
Global nbTLK=9:Global Dim TLK$(nbTLK), Dim TLKsc.i(nbtlk)
For j=1 To nbTLK:TLKsc(j)=600+100*j:Next:TLK$(1)="HELLO HELLO"
TLK$(2)="HERE IS THE":TLK$(3)="GAGA PUNCH DEMO":TLK$(4)="-------"
TLK$(5)="LOVE TO":TLK$(6)="ALL PUREBASIC":TLK$(7)="USERS"
TLK$(8)="ALL OVER":TLK$(9)="THE WORLD"
TLK1$="GAGA PUNCH BY COOL DJI FOR THE SUMMER 2010 PUREPUNCH DEMO CONTEST  "
Global Dim TK$(37):TK$(0)="HELLO TO":TK$(1)="AR S":TK$(2)="BEAUREGARD"
TK$(3)="CASE":TK$(4)="CEDERAVIC":TK$(5)="CHAOS":TK$(6)="CLS":TK$(7)="COMTOIS"
TK$(8)="DJES":TK$(9)="DOBRO":TK$(10)="ERIX14":TK$(11)="FLAITH":TK$(12)="FRED"
TK$(13)="FRENCHY PILOU":TK$(14)="G ROM":TK$(15)="GEBONET":TK$(16)="GILDEV"
TK$(17)="HUITBIT":TK$(18)="JACOBUS":TK$(19)="KCC":TK$(20)="KELEBRINDAE"
TK$(21)="KERNADEC":TK$(22)="L SOLDAT I":TK$(23)="LEPIAF31":TK$(24)="METALOS"
TK$(25)="MLD":TK$(26)="OCTAVIUS":TK$(27)="OLLIVIER":TK$(28)="POLUX"
TK$(29)="PROGI1984":TK$(30)="PSYCHOPATHE":TK$(31)="SPH":TK$(32)="TAZNORMAND"
TK$(33)="THYPHOON":TK$(34)="TMYKE":TK$(35)="VENOM":TK$(36)="WARKERING"
TK$(37)="AND MORE"

;---- Procédure qui affiche les textes
;-- le texte est automatiquement centré
;-- Text$ = TExt à afficher
;-- y     =position y du text
;-- sz    =Taille de la police (sert pour le zomm des lettres et de l'espacement)
;-- sp    =Pointe sur le sprite A de la bonne police
;-- rnd   =valeur de tremblement des lettres
Procedure AffT(Text$,y.i,sz.i,sp.i,rnd.i)
sx=0:For i=1 To Len(Text$):For j=1 To Len(Strig$)
If Mid(Text$,i,1)=Mid(Strig$,j,1):a=sz+2
DisplaySprite3D(sp+j-1,sx+Random(rnd)+400-(Len(Text$)*a)/2,y+Random(rnd),200)
sx=sx+sz+2:j=Len(Strig$):EndIf :Next:Next
EndProcedure

;-
OpenScreen(800, 600, 32, "Gaga Punch")
;-
;- Charge le fichier son
UseOGGSoundDecoder():LoadSound(0,"Gaga Punch.ogg")

;- Charge l'image
LoadImage(0, "Gaga Punch.bmp"):AntialiasingMode(#PB_AntialiasingMode_x6)


;- Extract all the images, textures and sprites from the 512x512 picture

For j=0 To 5:GrabImage(0,1,j*32,432,32,32)
CreateSprite(j,32,32,#PB_Sprite_Texture):TransparentSpriteColor(j, 0)
StartDrawing(SpriteOutput(j)):DrawImage(ImageID(1),0,0): StopDrawing()
CreateSprite3D(j, j):Next

;---- Caustics violet
k=6:For i=0 To 3:For j=0 To 7:GrabImage(0,1,j*64,i*64,64,64)
CreateSprite(k,64,64,#PB_Sprite_Texture):TransparentSpriteColor(k, 0)
StartDrawing(SpriteOutput(k)):DrawImage(ImageID(1),0,0): StopDrawing()
CreateSprite3D(k, k):k+1:Next:Next


j=38:GrabImage(0,1,0,272,400,85):CreateSprite(j,400,128,#PB_Sprite_Texture)
StartDrawing(SpriteOutput(j)):DrawImage(ImageID(1),0,0): StopDrawing()
CreateSprite3D(j, j)


j=39:GrabImage(0,1,0,272,255,155)
CreateSprite(j,255,155,#PB_Sprite_Texture):TransparentSpriteColor(j, 0)
StartDrawing(SpriteOutput(j)):DrawImage(ImageID(1),0,0): StopDrawing()
CreateSprite3D(j, j)

For j =0+40 To 31+40:GrabImage(0,1,(j-40)*16,256,16,16)
CreateSprite(j,16,16,#PB_Sprite_Texture):TransparentSpriteColor(j, 0)
StartDrawing(SpriteOutput(j)):DrawImage(ImageID(1),0,0): StopDrawing()
CreateSprite3D(j, j):Next

For j=100 To 101:GrabImage(0,1,0+(j-100)*256,272,256,160)
CreateSprite(j,256,160,#PB_Sprite_Texture):StartDrawing(SpriteOutput(j))
DrawImage(ImageID(1),0,0): StopDrawing():CreateSprite3D(j, j)
ZoomSprite3D(j,800,600):Next

For j=0 To 2
GrabImage(0,1,32+j*16,432,16,16):CreateSprite(110+j,16,16,#PB_Sprite_Texture)
StartDrawing(SpriteOutput(110+j)):DrawImage(ImageID(1),0,0): StopDrawing()
CreateSprite3D(110+j,110+j):Next

j=150:GrabImage(0,1,112,400,144,112)
CreateSprite(j,144,112,#PB_Sprite_Texture):TransparentSpriteColor(j, 0)
StartDrawing(SpriteOutput(j)):DrawImage(ImageID(1),0,0): StopDrawing()
CreateSprite3D(j, j)

j=160:GrabImage(0,1,0,400,112,112)
CreateSprite(j,112,112,#PB_Sprite_Texture):TransparentSpriteColor(j, 0)
StartDrawing(SpriteOutput(j)):DrawImage(ImageID(1),0,0): StopDrawing()
CreateSprite3D(j, j)

j=170:GrabImage(0,1,256,439,112,34)
CreateSprite(j,176,34,#PB_Sprite_Texture):TransparentSpriteColor(j, 0)
StartDrawing(SpriteOutput(j)):DrawImage(ImageID(1),64,0): StopDrawing()
CreateSprite3D(j, j)

j=180:GrabImage(0,1,368,440,144,73)
CreateSprite(j,144,73,#PB_Sprite_Texture):TransparentSpriteColor(j, 0)
StartDrawing(SpriteOutput(j)):DrawImage(ImageID(1),0,0): StopDrawing()
CreateSprite3D(j, j)

j=190:GrabImage(0,1,256,473,112,39)
CreateSprite(j,112,39,#PB_Sprite_Texture):TransparentSpriteColor(j, 0)
StartDrawing(SpriteOutput(j)):DrawImage(ImageID(1),0,0): StopDrawing()
CreateSprite3D(j, j)

;- Les toutes petites lettre
For j =0 To 46:GrabImage(0,10+j,256+(j)*6,432,6,7)
CreateSprite(200+j,6,7,#PB_Sprite_Texture):TransparentSpriteColor(j, 0)
StartDrawing(SpriteOutput(j+200)):DrawImage(ImageID(10+j),0,0): StopDrawing()
CreateSprite3D(j+200, j+200):Next


Sprite3DQuality(1)

;-
;- Transfert les données des formes géométriques des Data vers les Array

k=1:curt=1
Restore Formes
Repeat
  Read.i Bougix(curt)
  Read.i Bougiy(curt)
  Bougiz(curt)=0
  curt+1
Until curt > 36*3

For j= 1 To 36
  Rxa(j)=Bougix(j)*3 ; zoom les coordonnées
  Rya(j)=Bougiy(j)*3
  Rza(j)= Bougiz(j)*3
Next

;-
;- Prepare Engine3D

; the Flame for Particle : Heart, Star & France
GrabImage(0,1,0,272,128,128):SaveImage(1,"toto.bmp")
GrabImage(0,1,128,272,128,128)
SaveImage(1,"toto1.bmp"):Add3DArchive("\", #PB_3DArchive_FileSystem)
CreateMaterial(1, LoadTexture(0,"toto.bmp")):DisableMaterialLighting(1, 1)
MaterialBlendingMode(1,#PB_Material_Add)

; 36 Particle Emitter for each forms (Heart, Star & France)
For j = 1 To 36
  CreateParticleEmitter(j,50,50,50,0)
  ParticleMaterial(j,MaterialID(1)):ParticleTimeToLive  (j, 1,1)
  ParticleEmissionRate(j,20):ParticleSize(j, 200, 200)
  ParticleColorRange(j, RGB(255,0,255),RGB(255,255,0))
  ParticleEmitterLocate(j,Bougix(j)*15, 0, Bougiy(j)*15):
  HideParticleEmitter(j,0)
Next

; the Flame for all the star on the "black sky"
CreateMaterial(2, LoadTexture(1,"toto1.bmp"))
MaterialBlendingMode(2,#PB_Material_Add):DisableMaterialLighting(2, 1)
DeleteFile("toto.bmp") :DeleteFile("toto1.bmp")

;- Prepare Billboard
;--- big violet circle
; prepare coordinates of big violet circle (100 points compose the big circle)
For j=0 To 99
  a.f=a.f+3.6:If a=360:a=0:EndIf
  coux(j)=Sin(Radian(a.f))
  couy(j)=Cos(Radian(a.f))
Next

; The big Violet circle is composed with 11 Flame of width (i*10)
; so, you see a line but its some points
CreateBillboardGroup(0,MaterialID(2),50,50)
For i=0 To 10
  For j=0 To 99 ; 100 points for the big circle
  AddBillboard(j,0,coux(j)*(3000+i*10),coux(j)*(3000+i*10),couy(j)*(3000+i*10))
 Next
Next
;--- the light turn around big violet circle
; the light turn around and around the big violet circle
CreateBillboardGroup(2, MaterialID(1), 1000, 1000)
For j=0 To 1
  AddBillboard(j, 2,   coux(0)*3050,coux(0)*3050,couy(0)*3050)
Next

;--- the stars
; Creat all the stars on the black sky
CreateBillboardGroup(1, MaterialID(1), 30, 30)
For j=0 To 5000
AddBillboard(j, 1,Random(10000)-5000,Random(10000)-5000,Random(10000)-5000)
Next

ing5=0.01
CreateBillboardGroup(10,MaterialID(2),10,10)

;--- The sinus path for the big hello
; Create a curve for the Hello : Positionning the Camera & the Hello
For j=0 To 10000:ang+0.01
  If ang=360:ang=0:EndIf:cx(j)=j*2:cy(j)=Sin(ang)*500:cz(j)=j
Next

; Positionning a Flame every 10 position
; so, you can positionning Camera at each point and you have the impression of movement
For j=0 To 1000:AddBillboard(j,10,cx(j*10),cy(j*10),cz(j*10)):Next

HideBillboardGroup(10, 1)


;--- BillboardGroup for all the hello
;------- Create a texture with each name
For j=0 To 37
  CreateImage(2,Len(TK$(j))*40,16)
  StartDrawing(ImageOutput(2)):sx=0
  For i=1 To Len(TK$(j)):For k=1 To Len(Strig$)
   If Mid(TK$(j),i,1)=Mid(Strig$,k,1):DrawImage(ImageID(10+k-1),(i-1)*40,0,30,16)
   k=Len(Strig$):EndIf 
  Next
  Next

StopDrawing():SaveImage(2,"name"+Str(j)+".bmp")

CreateMaterial(j+10, LoadTexture(j+10,"name"+Str(j)+".bmp"))
MaterialBlendingMode(j+10,#PB_Material_Add):a=TextureWidth(j+10)/4
CreateBillboardGroup(j+11,MaterialID(j+10),a,TextureHeight(j+10)/4)
AddBillboard(j, j+11,cx(9500-(j*240)),cy(9500-(j*240)),cz(9500-(j*240)))
HideBillboardGroup(j+11, 1):DeleteFile("name"+Str(j)+".bmp")
Next

dl=10000


CreateCamera(0, 0, 0, 100, 100)


;-
;-       BIG LOOP

Repeat: scenario+1: FlipBuffers()
  
  ;-- Timing animation
  ;-- for the heart, star and France particle animation
ing2=ing2+ing3
If ing2>50:ing3=-0.3:EndIf
If ing2<0:ing4=ing4+1:ing3=0.3
If ing4=3:ing4=0:EndIf:EndIf


ing6+1:If ing6=1:ing7=ing7+1:If ing7=100:ing7=0:EndIf:ing6=0:ing=ing+ing5
If ing>98 : ing=0 : EndIf :EndIf


;-- The light turn around the big violet circle 
For j=0 To 1
  BillboardLocate(j, 2, coux(ing7)*3050,coux(ing7)*3050,couy(ing7)*3050)
Next


;-- Synchronisation between music and animation
Select smtb
  Case 0 To 58000,195000 To 270000
    ;-- for CameraLocate
a=25+(1+Sin(ing/2))*7500*Sin(ing*0.4):b=4000+4000* Sin(ing)
c=5000+(1+Sin(ing/2))*1000*Cos(ing*0.4): d=0:e=0:f=0
For j=0 To 38:HideBillboardGroup(j+10,1):Next

Case 58000 To 113000
      ;-- for CameraLocate
a=25+(1+Sin(ing/2))*7500*Sin(ing*0.4):b=4000+4000* Sin(ing)
c=5000+(1+Sin(ing/2))*1000*Cos(ing*0.4):d=coux(ing7)*3050:e=coux(ing7)*3050
f=couy(ing7)*3050

Case 113000 To 195000
      ;-- for CameraLocate the Big Hello
  For j=0 To 38
HideBillboardGroup(j+10,0):Next:dl=dl-2:If dl<10:dl=10:EndIf
a=cx(dl):b=cy(dl)+20:c=cz(dl):d=cx(dl-5):e=cy(dl-5)+20:f=cz(dl-5)
EndSelect


;-- Active 3D during music
Select smtb: Case 1 To 252000 ;Case 16500 To 253380
    CameraLocate(0,a,b,c):CameraLookAt(0,d,e,f)
    RenderWorld()
EndSelect


If Start3D()
  
w1+1:If w1>2:w1=0:sl5+1:If sl5=32:sl5=0:EndIf:EndIf
  
;-- Draw Caustics background  
ing9=ing9+1:If ing9=15:ing9=0:ing8=ing8+ing8a:If ing8<30:ing8=30:EndIf:EndIf

If (smtb<113000) Or (smtb>252000)
For i=0 To 10:For j=0 To 12:DisplaySprite3D(6+sl5,j*64,i*64,ing8):Next:Next
EndIf


;-- Calculate the x,y for ParticuleEmitter : geometrics forms
If smtb>31000:For j = 1 To 36
ParticleEmitterLocate(j,Bougix(j+ing4*36)*ing2, 0, Bougiy(j+ing4*36)*ing2):Next
EndIf


;-- Put "Gaga Punch" on the screen
Select smtb
  Case 1 To 1000,58000 To 59000,65000 To 66000,72000 To 73000,79000 To 80000
    For j=0 To 31:ZoomSprite3D(40+j,90,90):Next:AffT("GAGA PUNCH",250,75,40,2) 
  Case  85500 To 86500, 92500 To 93500, 99000 To 100000, 106000 To 107000
For j=0 To 31:ZoomSprite3D(40+j,90,90):Next:AffT("GAGA PUNCH",250,75,40,2) 
EndSelect

;-- Draw Scrolling text
If (smtb>2500) And (smtb<16000):For j=0 To 31:ZoomSprite3D(40+j,44,44):Next
For j=1 To nbtlk:TLKsc(j)-2:If TLKsc(j)<-20:TLKsc(j)=600+100*nbTLK:EndIf
AffT(TLK$(j),TLKsc(j),44,40,2):Next:EndIf

;-- Draw Lady Gaga
If (smtb>31000) And (smtb<113000):n1+dn1:If n1<50:dn1=5:EndIf:If n1>100:dn1=-5
EndIf:DisplaySprite3D(101,0,0,n1):EndIf

;-- Dancer sprite
If (smtb>58000) And (smtb<113000)
ZoomSprite3D(150,432,336):DisplaySprite3D(150,184,264,Random(150)):EndIf

;--- Gestion of the old record player animation 
If scenario>1205:scenario=0:EndIf:If Sm=0:dang=dang+0.01:If dang>4:dang=4:
pla+0.1:If pla>6:Sm=1:PlaySound(0):Smt=ElapsedMilliseconds():EndIf:EndIf
  
RotateSprite3D(170,90+pla,0)

ang+dang:If ang=360:ang=0:EndIf:RotateSprite3D(160, ang, 0):Else 
;-  
;--Calcul Smtb : startMusic
Smtb=ElapsedMilliseconds()-Smt:If Smtb<252000:pla=((130-96)/253380)*Smtb
RotateSprite3D(170,96+pla,0):ang+4:If ang=360:ang=0:EndIf
RotateSprite3D(160,ang,0):EndIf:If Smtb>252000:pla-0.5:If pla<-10:pla=-10:EndIf
RotateSprite3D(170,96+pla,0):dang=dang-0.01:If dang<0:dang=0:EndIf:ang+dang
If ang=360:ang=0:EndIf:RotateSprite3D(160, ang, 0):EndIf:EndIf
DisplaySprite3D(160,10,488,200):DisplaySprite3D(170,40,410,200)
If smtb<2:DisplaySprite3D(180,654,525,200):DisplaySprite3D(190,344,530,200)
EndIf
;-
;-- Draw the text
AffT(Tlk1$,580,6,200,0)
AffT("ESC TO QUIT",590,6,200,0)

Stop3D():EndIf:ExamineKeyboard():Until KeyboardPushed(#PB_Key_Escape):
End   
DataSection: Formes : 
; Chaque forme géométrique est composée de 36 points avec coordonnées (x,y)
 
  ;coeur
Data.i -1,-57,-5,-66,-17,-77,-30,-80,-43,-82,-61,-81,-71,-73,-80,-60,-80,-43,-75,-27,-70,-14,-63,1,-50,15,-42,27,-32,38
Data.i -24,46,-15,56,-8,64,1,72,10,63,21,52,32,42,40,34,47,24,53,14,60,6,68,-6,75,-20,81,-35,82,-52,77,-70,64,-80,47,-83
Data.i 31,-81,17,-75,8,-67

; etoile
Data.i 1,-71,5,-60,12,-45,19,-31,32,-33,49,-34,64,-34,54,-24,45,-12,38,1,45,10,53,22,63,36,48,34,33,33,18,31,14,43,6,57
Data.i 1,72,-5,58,-11,42,-16,31,-33,33,-50,34,-61,34,-51,22,-41,10,-35,1,-42,-12,-53,-23,-60,-36,-43,-33,-28,-32,-17,-30
Data.i -12,-41,-5,-56

;france
Data.i -6,-96,-12,-80,-32,-66,-58,66,-62,-47,-86,-50,-104,-44,-100,-30,-77,-25,-69,-7,-59,7,-56,26,-59,50,-66,72,-48,80
Data.i -25,84,6,93,13,76,29,72,56,78,75,68,70,50,79,30,68,15,53,10,63,-6,74,-19,85,-51,61,-56,42,-62,21,-79,94,92
Data.i 95,111,92,125,86,118,86,103

EndDataSection

[flaith]

Merci Cool Dji de partager ton code et d'avoir mis des commentaires, c'est toujours appréciable