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
» Editor : Encore un éditeur Panoramic !
par Minibug Aujourd'hui à 10:56

» EPP_V02 éditeur pour Panoramic
par Marc Hier à 22:47

» MESSAGE_EXIT_APPLICATION(T) pour le form 0
par silverman Hier à 17:49

» DROP_DOWN N
par silverman Hier à 15:15

» Handle de fenêtre non valide
par Minibug Hier à 15:07

» @Jack: problèmes rencontrés.
par Pedro Alvarez Sam 20 Oct 2018 - 8:52

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Ven 19 Oct 2018 - 20:58

» Quantité de mémoire utilisée par un exe
par Jack Ven 19 Oct 2018 - 7:57

» Question sur KGF
par Jack Jeu 18 Oct 2018 - 17:11

» Question sur KGF
par lepetitmarocain Jeu 18 Oct 2018 - 14:18

» Un LED1 ne génère pas l'événement : ON_CLICK. Bug or not Bug
par Jack Mar 16 Oct 2018 - 16:47

» Rotation de texte
par Marc Dim 14 Oct 2018 - 10:44

» @Jack concernant Panoramic
par papydall Ven 12 Oct 2018 - 13:16

» détection d'erreur
par Minibug Jeu 11 Oct 2018 - 17:56

» Comportement étrange de l'éditeur Panoramic !
par Minibug Jeu 11 Oct 2018 - 17:54

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2018
LunMarMerJeuVenSamDim
1234567
891011121314
15161718192021
22232425262728
293031    
CalendrierCalendrier

Partagez | 
 

 roue "analogique"

Aller en bas 
AuteurMessage
Marc

avatar

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

MessageSujet: roue "analogique"   Ven 3 Aoû 2018 - 18:01

Bonjour à tous !

Voici une autre exploitation de la roue à "n faces" (Voir => ICI <=).

Cette roue permet de voir défiler les secondes. Elle tourne sans fin...

Code:
' ------------------------------------------------------------------------------
'  PANORAMIC Pendule 3D /  3D Clock
'  Marc - August 2018 - Panoramic v.0.9.28
'  http://panoramic-language.pagesperso-orange.fr/French/index.html
'  http://panoramic.forumotion.com
' ------------------------------------------------------------------------------
' main
    Init()
    Faces(10)
    CAM_MOVE -150
    Time_Synchro()
END
' ------------------------------------------------------------------------------
SUB Init()
    LABEL Quit
    DEGREES
    DIM Nb%,i%,Teta,x,y,z,a$
    HEIGHT 0,200 + HEIGHT(0)-HEIGHT_CLIENT(0)
    WIDTH 0,200 + WIDTH(0)-WIDTH_CLIENT(0)
    LEFT 0,(screen_x-WIDTH(0))/2
    TOP 0,(screen_y-HEIGHT(0))/2
    COLOR 0,0,0,0
    ON_CLOSE 0, Quit
END_SUB
' ------------------------------------------------------------------------------
SUB Faces(n%)
    DIM_LOCAL i%
    Nb%=n%
    y=0
    z=(5/tan(360/n%/2))-.1
    Teta=360/n%
    SCENE3D 100
    HEIGHT 100,200
    WIDTH 100,200
    COLOR 100,0,0,0
    CAM_POSITION 0,0,6
    PICTURE 1
    WIDTH 1,200
    HEIGHT 1,200
    2D_TARGET_IS 1
    PRINT_TARGET_IS 1
    FONT_NAME 1,"Times New Roman"
    FONT_SIZE 1,130
    Face1(1)
    Face2(2)
    Face3(3)
    Face4(4)
    Face5(5)
    Face6(6)
    Face7(7)
    Face8(8)
    Face9(9)
    Face10(10)
    FOR i%= 1 to Nb%
        3D_X_ROTATE i%,y+((i%-1)*Teta)
        3D_Y_POSITION i%,z*(SIN(y+((i%-1)*Teta)))
        3D_Z_POSITION i%,z*(COS(y+((i%-1)*Teta)))
    NEXT i%
END_SUB
' ------------------------------------------------------------------------------
SUB Offset()
    x=(200-TEXT_WIDTH(a$,1))/2
END_SUB
' ------------------------------------------------------------------------------
SUB Face1(n%)
    COLOR 1,0,0,0
    2D_FILL_COLOR 0,0,0
    FONT_COLOR 1,255,255,255
    a$="0"
    Offset()
    PRINT_LOCATE x,0
    PRINT a$
    IMAGE 10
    2D_IMAGE_COPY 10,0,0,200,200
    3D_PLANE n%
    3D_V_TILE n%,1
    3D_U_TILE n%,1
    3D_IMAGE_TEXTURE n%,10
END_SUB
' ------------------------------------------------------------------------------
SUB Face2(n%)
    a$="1"
    Offset()
    PRINT_LOCATE x,0
    PRINT a$
    2D_IMAGE_COPY 10,0,0,200,200
    3D_PLANE n%
    3D_V_TILE n%,1
    3D_U_TILE n%,1
    3D_IMAGE_TEXTURE n%,10
END_SUB
' ------------------------------------------------------------------------------
SUB Face3(n%)
    a$="2"
    Offset()
    PRINT_LOCATE x,0
    PRINT a$
    2D_IMAGE_COPY 10,0,0,200,200
    3D_PLANE n%
    3D_V_TILE n%,1
    3D_U_TILE n%,1
    3D_IMAGE_TEXTURE n%,10
END_SUB
' ------------------------------------------------------------------------------
SUB Face4(n%)
    a$="3"
    Offset()
    PRINT_LOCATE x,0
    PRINT a$
    2D_IMAGE_COPY 10,0,0,200,200
    3D_PLANE n%
    3D_V_TILE n%,1
    3D_U_TILE n%,1
    3D_IMAGE_TEXTURE n%,10
END_SUB
' ------------------------------------------------------------------------------
SUB Face5(n%)
    a$="4"
    Offset()
    PRINT_LOCATE x,0
    PRINT a$
    2D_IMAGE_COPY 10,0,0,200,200
    3D_PLANE n%
    3D_V_TILE n%,1
    3D_U_TILE n%,1
    3D_IMAGE_TEXTURE n%,10
END_SUB
' ------------------------------------------------------------------------------
SUB Face6(n%)
    a$="5"
    Offset()
    PRINT_LOCATE x,0
    PRINT a$
    2D_IMAGE_COPY 10,0,0,200,200
    3D_PLANE n%
    3D_V_TILE n%,1
    3D_U_TILE n%,1
    3D_IMAGE_TEXTURE n%,10
END_SUB
' ------------------------------------------------------------------------------
SUB Face7(n%)
    a$="6"
    Offset()
    PRINT_LOCATE x,0
    PRINT a$
    2D_IMAGE_COPY 10,0,0,200,200
    3D_PLANE n%
    3D_V_TILE n%,1
    3D_U_TILE n%,1
    3D_IMAGE_TEXTURE n%,10
END_SUB
' ------------------------------------------------------------------------------
SUB Face8(n%)
    a$="7"
    Offset()
    PRINT_LOCATE x,0
    PRINT a$
    2D_IMAGE_COPY 10,0,0,200,200
    3D_PLANE n%
    3D_V_TILE n%,1
    3D_U_TILE n%,1
    3D_IMAGE_TEXTURE n%,10
END_SUB
' ------------------------------------------------------------------------------
SUB Face9(n%)
    a$="8"
    Offset()
    PRINT_LOCATE x,0
    PRINT a$
    2D_IMAGE_COPY 10,0,0,200,200
    3D_PLANE n%
    3D_V_TILE n%,1
    3D_U_TILE n%,1
    3D_IMAGE_TEXTURE n%,10
END_SUB
' ------------------------------------------------------------------------------
SUB Face10(n%)
    a$="9"
    Offset()
    PRINT_LOCATE x,0
    PRINT a$
    2D_IMAGE_COPY 10,0,0,200,200
    3D_PLANE n%
    3D_V_TILE n%,1
    3D_U_TILE n%,1
    3D_IMAGE_TEXTURE n%,10
END_SUB
' ------------------------------------------------------------------------------
SUB Time_Synchro()
    WHILE 0=0
        y=(WRAP_VALUE(NUMBER_TICKS/36))*-1
        FOR i%= 1 to Nb%
        3D_X_ROTATE i%,y+((i%-1)*Teta)
        3D_Y_POSITION i%,z*(SIN(y+((i%-1)*Teta)))
        3D_Z_POSITION i%,z*(COS(y+((i%-1)*Teta)))
        NEXT i%
        pause 30
    END_WHILE
END_SUB
' ------------------------------------------------------------------------------
Quit:
    TERMINATE
RETURN

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

avatar

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

MessageSujet: Re: roue "analogique"   Ven 3 Aoû 2018 - 18:33

Mon dieu que c'est hypnotisant Very Happy

à consommer avec modération, sinon Sleep

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
roue "analogique"
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» prix capteur de roue
» [Lag II phase 2] Roue de secours etc....
» Passage de roue Laguna 2 phase 2
» drôle de son pour une vapeur
» Intellibox et boucle de retournement

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: