FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» KGF_dll - nouvelles versions
par Yannick Aujourd'hui à 11:14

» Gestionnaire de Projets Panoramic
par Laurent (Minibug) Hier à 23:23

» SimpleEditor
par Jean Claude Hier à 21:04

» Synedit_Editor - nouvelles versions
par Klaus Hier à 20:51

» Un nouveau
par jjn4 Hier à 20:32

» PANO-LIKE : Une copie de Panoramic Editeur
par Laurent (Minibug) Dim 23 Avr 2017 - 18:42

» Un compteur de lignes de code source
par Klaus Sam 22 Avr 2017 - 21:55

» Rechercher une chaîne de caractère dans un fichier.
par papydall Sam 22 Avr 2017 - 13:45

» Problème avec la fonction IsolateWordsFromString.
par Klaus Sam 22 Avr 2017 - 10:42

» Palette (une de plus): 16, 48 ou 216 couleurs
par JL35 Ven 21 Avr 2017 - 22:24

» Recherche Hardware MIDI
par Yannick Ven 21 Avr 2017 - 21:08

» Panoramic Editor
par Yannick Jeu 20 Avr 2017 - 23:18

» Problème avec la fonction ReplaceStringInString.
par Pedro Alvarez Jeu 20 Avr 2017 - 17:29

» Création d'une variable string à partir d'une DLL
par Klaus Jeu 20 Avr 2017 - 14:10

» Compilateur FBPano
par jean_debord Jeu 20 Avr 2017 - 10:22

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Avril 2017
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
CalendrierCalendrier

Partagez | 
 

 Juste une pensée

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Yannick

avatar

Nombre de messages : 7527
Age : 45
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: Juste une pensée   Ven 15 Juil 2016 - 23:01

Je vais faire un peu de hors programmation.
Le temps d' exprimer une pensée pour nos amis niçois qui à leur tour, mal heureusement, sont dans la peine et les souffrances.
Courage à eux.
Sad
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Laurent (Minibug)

avatar

Nombre de messages : 2169
Localisation : Vienne (86) - FRANCE
Date d'inscription : 10/02/2012

MessageSujet: Re: Juste une pensée   Ven 15 Juil 2016 - 23:30

Je me joins à toi dans ce moment de douleur.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5316
Age : 66
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Juste une pensée   Sam 16 Juil 2016 - 0:18

Un petit code vaut mieux que des mots qui n'ont plus de sens dans ces tristes circonstances.

Code:

rem ============================================================================
rem                          ANNONCE
rem ============================================================================

dim i
FULL_SPACE 0 : CAPTION 0,"ANNONCE"
SCENE3D 1 : COLOR 1, 0,0,0 : display
3D_TEXT 1,"On cherche ..."
FULL_SPACE 1 : 3D_COLOR 1,0,0,255 : 3D_POSITION 1,-4,-.5,1
FOR i = 0 TO 360 STEP 2: 3D_X_ROTATE 1,i : PAUSE 10 : NEXT i
FOR i = 1 TO .005 STEP -.005 : 3D_SCALE 1,i,i,i : PAUSE 20 : NEXT i
3D_TEXT 2,"Un électricien pour rétablir le courant entre les gens" : 3D_COLOR 2,255,0,0
3D_POSITION 2,-8,-.5,1
FOR i = 0 TO 360 STEP 2: 3D_Y_ROTATE 2,i : PAUSE 10 : NEXT i
FOR i = 1 TO .005 STEP -.005 : 3D_SCALE 2,i,i,i : PAUSE 20 : NEXT i
3D_TEXT 3,"Un opticien pour changer leur regard" : 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 : PAUSE 30 : NEXT i
FOR i = 1 TO .000 STEP -.005 : 3D_SCALE 3,i,i,i : PAUSE 30 : NEXT i
3D_TEXT 4,"Un artiste pour dessiner un sourire sur tous les visages"
3D_POSITION 4,-7.5,-.5,1 : 3D_COLOR 4,255,255,0
FOR i = .01 TO 1.5 STEP .005 : 3D_SCALE 4,i/2,i/3,i/4 : PAUSE 30 : NEXT i
for i = -1.5 to -4 step -.05 : 3d_position 4,2*i,0-i*.7,1 :pause 30: next i
FOR i = 0 TO 360 STEP 2 : 3D_X_ROTATE 4,i : PAUSE 10 : 3D_COLOR 4,0,255,0 : NEXT i : pause 500
FOR i = 360 TO 0 STEP -2: 3D_X_ROTATE 4,i : PAUSE 10 : 3D_COLOR 4,0,0,255 : NEXT i
for i = 1 to 5 : 3d_color 4,255,255,0 : pause 500 : 3d_color 4,255,0,0 : pause 500 : next i
3D_TEXT 5,"Un maçon pour bâtir la paix" : 3D_POSITION 5,-6,2,1 : 3D_COLOR 5,0,255,0
3D_TEXT 6,"Un jardinier pour cultiver la pensée" : 3D_POSITION 6,-6,1,1 : 3D_COLOR 6,0,0,255
3D_TEXT 7,"Un professeur de maths pour nous apprendre à compter les uns sur les autres"
3D_POSITION 7,-6,.05,1 : 3D_COLOR 7,0,255,255 : 3d_scale 7,.4,.4,.4
3D_TEXT 8,"Et prions pour la PAIX !" : 3D_POSITION 8,-5,-1,2 : 3D_COLOR 8,255,0,255
3D_SCALE 8,1,1,1
3D_TEXT 9,"<ESC> pour sortir" : 3D_POSITION 9,-3,-2,2 : 3D_COLOR 9,0,255,255 :3D_SCALE 9,.5,.5,.5

repeat
   for i = 0 to -6 step -.1
       3d_position 9,i,-2,2 : pause 50 : if scancode = 27 then exit_repeat
   next i
   for i = -6 to 0 step .1
       3d_position 9,i,-2,2 : pause 50 : if scancode = 27 then exit_repeat
   next i
until scancode = 27
terminate

rem ============================================================================


Que ces innocentes victimes reposent en paix !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Juste une pensée   

Revenir en haut Aller en bas
 
Juste une pensée
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Black&White | Juste Black ca fait ^^
» Agrandir le fond juste derriere les message
» Image de fond juste sur le message d'accueil
» J'ai juste un bouton sur mon forum et c'est portail?
» Juste une simple question

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Présentation et bavardage-
Sauter vers: