FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  RechercherRechercher  Dernières imagesDernières images  S'enregistrerS'enregistrer  MembresMembres  Connexion  
Derniers sujets
» demande explication KGF pour imprimer en mm
Illusion de Zöllner Emptypar lepetitmarocain Aujourd'hui à 12:55

» Petit passage furtif
Illusion de Zöllner Emptypar Froggy One Hier à 14:26

» SPIN et aide langage (résolu)
Illusion de Zöllner Emptypar leclode Sam 23 Mar 2024 - 15:20

» Aide-mémoire des mots-clés Panoramic
Illusion de Zöllner Emptypar papydall Mer 20 Mar 2024 - 21:23

» Je ne comprend pas pourquoi la largeur de la scene 3d change
Illusion de Zöllner Emptypar Marc Mar 12 Mar 2024 - 20:06

» Comment télécharger panoramic?
Illusion de Zöllner Emptypar lepetitmarocain Sam 9 Mar 2024 - 13:31

» @lepetitmarocain <==> KGFGrid
Illusion de Zöllner Emptypar Klaus Dim 3 Mar 2024 - 9:59

» Tangram-Toukaré
Illusion de Zöllner Emptypar jjn4 Mer 28 Fév 2024 - 18:12

» Editeur EliP 6 : Le Tiny éditeur avec 25 onglets de travail
Illusion de Zöllner Emptypar jjn4 Mer 28 Fév 2024 - 18:09

» KGF_dll - nouvelles versions
Illusion de Zöllner Emptypar Klaus Mer 28 Fév 2024 - 17:01

» Mes souhaits d'amélioration de Panoramic.
Illusion de Zöllner Emptypar Pedro Lun 26 Fév 2024 - 18:12

» Testez-votre-QI
Illusion de Zöllner Emptypar jjn4 Dim 25 Fév 2024 - 17:12

» Utilisation d'Élip
Illusion de Zöllner Emptypar jjn4 Sam 24 Fév 2024 - 18:33

» Récapitulatif ludothèque panoramic jjn4
Illusion de Zöllner Emptypar jjn4 Sam 24 Fév 2024 - 18:11

» Générateur de mots de passe
Illusion de Zöllner Emptypar mindstorm Mar 20 Fév 2024 - 20:09

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mars 2024
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier
Le Deal du moment : -20%
(Adhérents Fnac) Enceinte Bluetooth Marshall ...
Voir le deal
199.99 €

 

 Illusion de Zöllner

Aller en bas 
AuteurMessage
Marc

Marc


Nombre de messages : 2372
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014

Illusion de Zöllner Empty
MessageSujet: Illusion de Zöllner   Illusion de Zöllner EmptyDim 26 Fév 2017 - 21:07

Illusion de Zöllner.

Code:
' ------------------------------------------------------------------------------
'  Effet d'optique 2 : Les lignes obliques sont-elles parallèles ?
'  Marc37 - Février 2017 - Panoramic v0.9.27
'  http://panoramic-language.pagesperso-orange.fr/French/index.html
' ------------------------------------------------------------------------------
WIDTH 0,500
HEIGHT 0, 552
LABEL Action,Quitter
DIM v%,w%,h%,x%,y%
h% = HEIGHT_CLIENT(0)
w% = WIDTH_CLIENT(0)
ON_CLOSE 0, Quitter
Dessin()
ON_CLICK 1, Action
END
' ------------------------------------------------------------------------------
Action:
     x% = MOUSE_X_POSITION(1)
     y% = MOUSE_Y_POSITION(1)
     IF y%>460 AND y%<500
          IF x%>70 AND x%<240 THEN Verification()
          IF x%>242 AND x%<410 THEN GOSUB Quitter
     END_IF
RETURN
' ------------------------------------------------------------------------------
SUB Verification()
    IF v% =1
        SPRITE_SHOW 2
        v%=0
    ELSE
        v%=1
        SPRITE_HIDE 2
    END_IF
END_SUB
' ------------------------------------------------------------------------------
SUB Dessin()
    PICTURE 1
    FULL_SPACE 1
    2D_TARGET_IS 1
    2D_PEN_WIDTH 4
    Calque1()
    Calque2()
    SCENE2D 2
    WIDTH 2,400
    HEIGHT 2,400
    LEFT 2,(w%-400)/2
    TOP 2,(w%-400)/2
    Boutons()
    COLOR 2,250,250,250
    SPRITE 1
    SPRITE_IMAGE_LOAD 1,10
    SPRITE 2
    SPRITE_IMAGE_LOAD 2,11
END_SUB
' ------------------------------------------------------------------------------
SUB Calque1()
    DIM_LOCAL i%,x1%,y1%,x2%,y2%
    COLOR 1,50,200,50
    2D_PEN_COLOR 1,1,1
    x1%= 0: y1%=100
    x2%=100:y2%=0
    FOR i% = 1 to 7
        2D_LINE x1%,y1%,x2%,y2%
        y1%=y1%+100
        x2%=x2%+100
    NEXT i%
    IMAGE 10
    2D_IMAGE_COPY 10,0,0,400,400
    CLS
END_SUB
' ------------------------------------------------------------------------------
SUB Calque2()
    DIM_LOCAL i%,j%,x1%,y1%,x2%,y2%,a%
    COLOR 1,0,0,0
    2D_PEN_COLOR 1,1,1
    a%=200
    FOR j% = 0 to 3
    x1%=20:y1%=60+(a%*j%)
    X2%=20:Y2%=100+(a%*j%)
        FOR i%=1 TO 20
            2D_LINE x1%,y1%,x2%,y2%
            x1%=x1%+20
            y1%=y1%-20
            X2%=x2%+20
            Y2%=y2%-20
        NEXT i%
    NEXT j%
    FOR j% = 0 to 2
    x1%=10:y1%=170+(a%*j%)
    X2%=50:Y2%=170+(a%*j%)
        FOR i%=1 TO 20
            2D_LINE x1%,y1%,x2%,y2%
            x1%=x1%+20
            y1%=y1%-20
            X2%=x2%+20
            Y2%=y2%-20
        NEXT i%
    NEXT j%
    IMAGE 11
    2D_IMAGE_COPY 11,0,0,400,400
    CLS
END_SUB
' ------------------------------------------------------------------------------
SUB Boutons()
    2D_PEN_COLOR 150,150,150
    2D_FILL_COLOR 150,150,150
    2D_RECTANGLE 70,460,410,500
    2D_PEN_WIDTH 2
    2D_PEN_COLOR 1,1,1
    2D_LINE 240,460,240,500
    FONT_NAME 1,"Arial"
    FONT_SIZE 1, 20
    PRINT_TARGET_IS 1
    PRINT_LOCATE 90,465
    PRINT "Vérification"
    PRINT_LOCATE 280,465
    PRINT "Quitter"
END_SUB
' ------------------------------------------------------------------------------
Quitter:
    TERMINATE
RETURN
Revenir en haut Aller en bas
 
Illusion de Zöllner
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Illusion
» Illusion
» Illusion d'optique
» Illusion d'optique
» Illusion d'Hajime Ouchi

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: