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
» ajouter des blancs dans un TXT
par lepetitmarocain Hier à 13:00

» Planétarium virtuel.
par Oscaribout Mar 14 Aoû 2018 - 19:45

» 11 (en analyse): commandes sur TAB et SUB_MENU.
par Jack Mar 14 Aoû 2018 - 14:10

» 10 (en analyse): Erreur sur variable locale.
par Jack Mar 14 Aoû 2018 - 14:05

» Métamatière, éternité et renouvellement
par Oscaribout Mar 14 Aoû 2018 - 12:40

» De retour...
par Yannick Lun 13 Aoû 2018 - 15:11

» bug SEVERE fnc+sub : (35)name already defined
par Oscaribout Dim 12 Aoû 2018 - 23:55

» Encadrement
par Jean Claude Dim 12 Aoû 2018 - 11:53

» Des rectangles...
par JL35 Dim 12 Aoû 2018 - 10:53

» TRIGGER_KEY_COMBINED_TOUCH
par Jean Claude Mar 7 Aoû 2018 - 20:58

» ITEM_SELECT N,L pour synedit
par Jean Claude Mar 7 Aoû 2018 - 19:11

» amélioration panoramic
par silverman Dim 5 Aoû 2018 - 18:34

» Commande file_readln.
par Pedro Alvarez Dim 5 Aoû 2018 - 17:08

» Klaus ?
par Jack Sam 4 Aoû 2018 - 22:48

» Défragmentation du disque dur
par JL35 Sam 4 Aoû 2018 - 21:06

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2018
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
2728293031  
CalendrierCalendrier

Partagez | 
 

 Animation 3D 2 faces avec le logo de Panoramic

Aller en bas 
AuteurMessage
Marc

avatar

Nombre de messages : 809
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 : 5574
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 : 809
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 : 2996
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: