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
» Exemple d'une nouvelle version d'un GRID
par Minibug Mer 16 Jan 2019 - 18:23

» Peut-être un bug de l'éditeur pour Jack
par jjn4 Lun 14 Jan 2019 - 17:45

» Wordpic.2
par jjn4 Sam 12 Jan 2019 - 16:34

» Fichier <-> Datas
par jjn4 Sam 12 Jan 2019 - 16:23

» Version instantanée V 0.9.29i6 du 08/01/2019
par Jack Mer 9 Jan 2019 - 7:50

» Make_Exe avec la version V 0.9.29i6
par Jack Mar 8 Jan 2019 - 20:14

» caret_yb_position
par jjn4 Mar 8 Jan 2019 - 19:34

» Problème avec l'analyseur syntaxique de Panoramic.
par jjn4 Lun 7 Jan 2019 - 14:44

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Dim 6 Jan 2019 - 18:39

» Bonne année 2019
par silverman Sam 5 Jan 2019 - 12:02

» Blocage Editeur
par Minibug Mar 1 Jan 2019 - 15:54

» Un texte clignotant
par JL35 Mar 1 Jan 2019 - 13:50

» Bonnes fêtes de fin d'année !
par JL35 Mar 1 Jan 2019 - 0:04

» ON_CLICK sur HVIEWER
par JL35 Lun 31 Déc 2018 - 16:56

» Logiciel de soutien scolaire.
par Pedro Alvarez Lun 31 Déc 2018 - 7:51

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Janvier 2019
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 roue "analogique"

Aller en bas 
AuteurMessage
Marc

avatar

Nombre de messages : 994
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 : 5736
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
» Avis sur ESU PowerPack pour décodeur Lokpilot
» capteur de pression pneumatique

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: