Bienvenue.bas
Page 1 sur 1
Re: Bienvenue.bas
- Code:
' ******************************************************************************
' Bienvenue.bas
' Par Papydall
' ******************************************************************************
Demarrer()
end
' ******************************************************************************
SUB Demarrer()
init()
debut()
suite()
END
' ******************************************************************************
SUB Init()
FULL_SPACE 0 : CAPTION 0,"Bienvenue dans PANORAMIC"
SCENE3D 1 : COLOR 1, 0,0,0 : 3D_TEXT 1,"PAPYDALL TE SOUHAITE LA BIENVENUE "
FULL_SPACE 1 : 3D_COLOR 1,0,0,255 : 3D_POSITION 1,-7,-.5,1
END_SUB
' ******************************************************************************
SUB debut()
dim_local i
FOR i = 0 TO 360 STEP 2: 3D_X_ROTATE 1,i : WAIT 10 : NEXT i
FOR i = 1 TO .005 STEP -.005 : 3D_SCALE 1,i,i,i : WAIT 10 : NEXT i
3D_TEXT 2,"NOUVEAU VISITEUR" : 3D_COLOR 2,255,0,0
3D_POSITION 2,-3.5,-.5,1
FOR i = 0 TO 360 STEP 2: 3D_X_ROTATE 2,i : WAIT 10 : NEXT i
FOR i = 1 TO .005 STEP -.005 : 3D_SCALE 2,i,i,i : WAIT 10 : NEXT i
END_SUB
' ******************************************************************************
SUB suite()
dim_local i
3D_TEXT 3,"BONNE PROGRAMMATION EN PANORAMIC" : 3D_COLOR 3,0,255,0
3D_POSITION 3,-1.5,-.5,1
FOR i = 0 TO 500 STEP 2 : 3D_Y_ROTATE 3,i : 3D_Z_ROTATE 3,i : WAIT 30 : NEXT i
FOR i = 1 TO .01 STEP -.005 : 3D_SCALE 3,i,i,i : WAIT 30 : NEXT i
3D_POSITION 3,-5,.5,1 : 3D_COLOR 3,255,255,0
FOR i = .01 TO 1 STEP .005 : 3D_SCALE 3,i/2,i/2,i/2 : WAIT 30 : NEXT i
END_SUB
' ******************************************************************************
- Fichiers joints
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
Lun 1 Jan - 0:25 par Papydall-Admin
» A ceux qui célèbre Noël, bonnes fêtes
Dim 24 Déc - 10:49 par Papydall-Admin
» Joyeux Noël et Bonne Année
Ven 8 Déc - 1:34 par Papydall-Admin
» Planets of the Solar System : Tilts and Spins
Lun 20 Mar - 15:43 par Papydall-Admin
» Bonne Année 2023
Sam 31 Déc - 1:39 par Papydall-Admin
» Fractals - Mandelbrot
Ven 21 Aoû - 22:51 par Papydall-Admin
» Convertisseur Décimal ---> Binaire, Octal, Hexadécimal, ...
Mer 21 Nov - 1:08 par Papydall-Admin
» Balises {USER...}
Lun 19 Nov - 22:12 par Papydall-Admin
» Useful Dog
Ven 6 Avr - 14:25 par Papydall-Admin