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
» Panoramic et ses curiosités
par Klaus Aujourd'hui à 2:20

» Synedit Parameters
par Klaus Aujourd'hui à 1:33

» Utilitaire de suppression de fichiers
par Yannick Hier à 23:03

» Code à vérifier SVP (Oups ! résolu)
par Jean Claude Jeu 22 Juin 2017 - 21:16

» Compilateur FBPano
par jean_debord Jeu 22 Juin 2017 - 9:56

» Bienvenue à Virtualalan !
par UltraVox Jeu 22 Juin 2017 - 9:18

» Concours de Morpions
par jjn4 Jeu 22 Juin 2017 - 0:04

» ShortName$(F) [Cloturé]
par papydall Mer 21 Juin 2017 - 16:19

» Remplacer espace par tiret dans noms des dossiers / fichiers
par papydall Mer 21 Juin 2017 - 15:27

» Menu personalisé avec icones et menu contextuel
par Laurent (Minibug) Mer 21 Juin 2017 - 12:44

» La liste des choses à faire ...
par Jack Mar 20 Juin 2017 - 22:49

» Quoi de neuf à propos de Goric 3D ? (@Jack)
par UltraVox Mar 20 Juin 2017 - 21:06

» Nom court et anti fenetre dos
par silverman Mar 20 Juin 2017 - 18:31

» Ludothèque Panoramic
par jjn4 Mar 20 Juin 2017 - 18:09

» Proposition à la communauté
par Yannick Mar 20 Juin 2017 - 15:02

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2017
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  
CalendrierCalendrier

Partagez | 
 

 Prions pour la Paix.

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

avatar

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

MessageSujet: Prions pour la Paix.   Mer 23 Mar 2016 - 3:16

Ligne 17 : Mettre un nom valide d’une image de votre choix, sinon mettre cette ligne en REM et … Prions pour la Paix.

Code:

rem ============================================================================
rem          Prions pour la Paix
rem ============================================================================
dim i
width 0,1000 : height 0,700 : color 0,0,255,255
picture 1 : width 1,width(0)-100 : height 1,height(0)-100
top 1,20 : left 1,50
picture 10 : width 10,width(0)-300 : height 10,height(0)-200 : hide 10
top 10,70 : left 10,150
picture 20 : width 20,width(0)-300 : height 20,height(0)-200 : hide 20
top 20,70 : left 20,150
2d_target_is 1  : print_target_is 1
font_bold 1 : font_name 1,"arial black" : font_size 1,20 : font_color 1,255,255,0
caption 0,"<CLIC> pour arrêter"
Mur(0,1000,00,700,50,20) : display
print_locate 200,200 : print "Ciquer pour détruire ce mur !"
stretch_on 10 : file_load 10,"Image.jpg" : ' Charger une image de votre choix, sinon mettre cette ligne en REM
show 10 : pause 1000
for i = 1000 to 10 step -10 : width 0,i : pause 50 : next i
for i = 10 to 1000 step 010 : width 0,i : pause 50 : next i
repeat
    hide 10 : pause 1000 : show 10 : pause 1000
until scancode <> 0
scene3d 100  : width 100,700 : height 100,100 : top 100,500 : left 100,150
color 100,0,0,255
3d_text 100,"Prions pour la Paix !" : 3d_color 100,255,0,0
3d_x_position 100, -4 : 3d_y_position 100,-.1
pause 1000
repeat
   for i = 1 to 360 : 3d_x_rotate 100,i : pause 10 : next i : pause 1000
until scancode <> 0

end
rem ============================================================================
SUB Brique(x1,y1,x2,y2)
    dim_local l,h
    l = (x2-x1)/10 : h = (y2-y1)/10
    2d_fill_color 255,255,255 : 2d_rectangle x1,y1,x2,y2
    2d_fill_color 000,000,000 : 2d_rectangle x1+l,y1+h,x2-l,y2-h
    2d_fill_color 170,000,000 : 2d_rectangle x1+l,y1+h,x2-2*l,y2-2*h
END_SUB
rem ============================================================================
SUB Mur(xdeb,xfin,ydeb,yfin,largeur_brique,hauteur_brique)
    dim_local x,y ,lig
    for x = xdeb-largeur_brique/2 to xfin step largeur_brique
        lig = 0
        for y = ydeb to yfin step hauteur_brique
            lig = lig + 1
            if odd(lig) = 1
               Brique(x,y,x+largeur_brique,y+hauteur_brique)
            else
               Brique(x-largeur_brique/2,y,x+largeur_brique/2,y+hauteur_brique)
            end_if
            display
        next y
    next x
END_SUB
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/ En ligne
papydall

avatar

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

MessageSujet: Re: Prions pour la Paix.   Sam 26 Mar 2016 - 4:39

Une annonce de recherche

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 ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/ En ligne
Marc37



Nombre de messages : 441
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: Prions pour la Paix.   Sam 26 Mar 2016 - 10:17

Messages pour la Paix très bien réussis !

Et en plus, excellent tutoriel pour voir, comprendre et savoir utiliser certaines commandes Panoramic !

Merci Papydall !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Prions pour la Paix.   Sam 26 Mar 2016 - 15:55

Marc37 a écrit:
Et en plus, excellent tutoriel pour voir, comprendre et savoir utiliser certaines commandes Panoramic !

C’était bien le but, entre autre.

Merci à toi pour le retour.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/ En ligne
Contenu sponsorisé




MessageSujet: Re: Prions pour la Paix.   

Revenir en haut Aller en bas
 
Prions pour la Paix.
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» code pour inséré les anime (Fond transparent)
» Plugins Firefox pour sécuriser votre navigateur.
» Pb pour le choix de la voie
» hébergeur gratuit pour un site rein quand flash(RESOLUT)
» Affiches comment être et faire pour apprendre

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 :: Vos sources, vos utilitaires à partager-
Sauter vers: