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
» Projet de planétarium virtuel.
par Pedro Alvarez Hier à 17:29

» Quantité de mémoire utilisée par un exe
par Navigateur Hier à 14:52

» Problème avec 'file_load'.
par Pedro Alvarez Hier à 8:12

» Version instantanée V 0.9.28i20 du 13/06/2018
par jjn4 Sam 16 Juin 2018 - 14:25

» string$(0,chr$(32)) sans erreur
par silverman Ven 15 Juin 2018 - 19:56

» Version instantanée V 0.9.28i19 du 13/06/2018
par Minibug Ven 15 Juin 2018 - 19:14

» PanExpress : l'éditeur Panoramic avec création d'objet
par Jean Claude Ven 15 Juin 2018 - 7:52

» Mes souhaits d'amélioration de Panoramic.
par Pedro Alvarez Jeu 14 Juin 2018 - 20:17

» [RÉSOLU] Message d'erreur impossible à indentifier
par Minibug Mer 13 Juin 2018 - 20:52

» Cadre pour image
par Jean Claude Mar 12 Juin 2018 - 16:31

» Créateur d'objets Panoramic
par Minibug Mar 12 Juin 2018 - 14:02

» Planétarium gratuit.
par Jean Claude Sam 9 Juin 2018 - 18:50

» Comment afficher une image sans fond.
par JL35 Sam 9 Juin 2018 - 14:16

» image_width(n) et image_height(n)
par silverman Sam 9 Juin 2018 - 11:22

» Site sur la programmation sympa
par Jean Claude Jeu 7 Juin 2018 - 11:20

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2018
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

 Animation 3D 2 faces avec le logo de Panoramic

Aller en bas 
AuteurMessage
Marc

avatar

Nombre de messages : 793
Age : 57
Localisation : TOURS
Date d'inscription : 17/03/2014

MessageSujet: Animation 3D 2 faces avec le logo de Panoramic   Sam 26 Mai 2018 - 17:09

Bonjour à tous !

Une nouvelle animation 3D avec deux 3DPLANE dos à dos.
Pour la démo, j'ai mis le logo de Panoramic. Chaque face peut-être personnalisée : photo, dessin 2D...

Code:
' ------------------------------------------------------------------------------
'  PANORAMIC Animation 2 faces Logo Panoramic
'  Marc - May 2018 - Panoramic v0.9.28.i18
'  http://panoramic-language.pagesperso-orange.fr/French/index.html
'  http://panoramic.top-forum.net
' ------------------------------------------------------------------------------
' main
    Init()
    Skin()
    Sides()
    Instructions()
    Animation()
END
' ------------------------------------------------------------------------------
SUB Init()
    LABEL ColorChange,Quit
    DIM on,c,x
    c=1
    HEIGHT 0,540 + HEIGHT(0)-HEIGHT_CLIENT(0)
    WIDTH 0,500 + WIDTH(0)-WIDTH_CLIENT(0)
    LEFT 0,(SCREEN_X-WIDTH(0))/2
    TOP 0,(SCREEN_Y-HEIGHT(0))/2
    PICTURE 1
    WIDTH 1,200
    HEIGHT 1,200
    ON_CLOSE 0, Quit
END_SUB
' ------------------------------------------------------------------------------
SUB Sides()
    DIM_LOCAL i%
    SCENE3D 100
    HEIGHT 100,500
    WIDTH 100,500
    COLOR 100,250,250,250
    CAM_MOVE -15
    FOR i% = 1 TO 2
        3D_PLANE i%
        3D_V_TILE i%,1
        3D_U_TILE i%,1
        3D_IMAGE_TEXTURE i%,10
    NEXT i%
    3D_Y_ROTATE 1,180
    3D_X_ROTATE 2,0
END_SUB
' ------------------------------------------------------------------------------
SUB Skin()
    2D_TARGET_IS 1
    COLOR 1,250,250,250
    PRINT_TARGET_IS 1
    FONT_NAME 1,"Times New Roman"
    FONT_SIZE 1,95
    FONT_COLOR 1,0,0,200
    2D_FILL_COLOR 250,250,250
    FONT_BOLD 1
    PRINT_LOCATE 65,28
    PRINT "P"
    2D_FILL_OFF
    2D_PEN_COLOR 250,0,0
    2D_PEN_WIDTH 8
    2D_CIRCLE 100,100,85
    2D_CIRCLE 100,100,70
    IMAGE 10
    2D_IMAGE_COPY 10,0,0,200,200
END_SUB
' ------------------------------------------------------------------------------
SUB Instructions()
    PICTURE 50
    HEIGHT 50,40
    WIDTH 50,500
    TOP 50,500
    COLOR 50,255,255,255
    2D_TARGET_IS 50
    2D_FILL_COLOR 255,255,255
    PRINT_TARGET_IS 50
    FONT_NAME 50,"Times New Roman"
    FONT_SIZE 50,18
    FONT_ITALIC 50
    PRINT_LOCATE 55,8
    PRINT "Click on the picture / Cliquez sur l'image"
END_SUB                       
' ------------------------------------------------------------------------------
SUB Animation()
    on=1
    ON_CLICK 100,ColorChange
    WHILE on=1
        3D_Y_ROTATE 1,x+180
        3D_Y_ROTATE 2,x
        x=x+1
        IF x > 360 THEN x = 0
        PAUSE 20
    END_WHILE
END_SUB
' ------------------------------------------------------------------------------
ColorChange:
    IF c=0
        COLOR 100,250,250,250
        c=1
    ELSE
        COLOR 100,0,0,0
        c=0
    END_IF       
RETURN
' ------------------------------------------------------------------------------
Quit:
    on=0
    TERMINATE
RETURN





Dernière édition par Marc le Dim 27 Mai 2018 - 18:19, édité 2 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5472
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Animation 3D 2 faces avec le logo de Panoramic   Sam 26 Mai 2018 - 17:58

Pas mal !

Voila qui pourrait servir à Minibug.

Bravo Marc. cheers

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Marc

avatar

Nombre de messages : 793
Age : 57
Localisation : TOURS
Date d'inscription : 17/03/2014

MessageSujet: Re: Animation 3D 2 faces avec le logo de Panoramic   Sam 26 Mai 2018 - 18:35


Merci Jean-Claude !

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 2962
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Animation 3D 2 faces avec le logo de Panoramic   Sam 26 Mai 2018 - 20:01

Super idée pour une présentation d'attente ! Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Contenu sponsorisé




MessageSujet: Re: Animation 3D 2 faces avec le logo de Panoramic   

Revenir en haut Aller en bas
 
Animation 3D 2 faces avec le logo de Panoramic
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Projet Turbo-Média : bd en animation.
» problème d'animation
» [Obsolète] Une autre programme d'animation gratuit.
» [Resolu] Problème avec les transitions d'un diaporama
» Démarrer en mode sans échec avec XP

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: