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
» COMPILATEUR V 0.9 beta 7 du 10 aout 2017
par Yannick Aujourd'hui à 1:58

» Pb 17 (en analyse): ITEM_SELECT ne fonctionne pas
par Jack Hier à 19:26

» Compilateur FBPano
par Mike Hier à 13:52

» un nouveau editeur panobasic
par Jean Claude Hier à 10:18

» Le compilateur.
par Pedro Alvarez Hier à 8:36

» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Mer 16 Aoû 2017 - 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Mer 16 Aoû 2017 - 19:58

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

» Carte de France des régions
par Yannick Sam 12 Aoû 2017 - 21:33

» Pb 14 (en analyse): PRINT_LOCATE plante à l'exécution
par Jack Ven 11 Aoû 2017 - 22:37

» Petit avertissement [Mots réservés]
par papydall Ven 11 Aoû 2017 - 13:45

» Distances sur plan
par JL35 Jeu 10 Aoû 2017 - 21:29

» Tracé : Triangle, Carrée, Dents de scie, Sinusoïde redressée
par papydall Jeu 10 Aoû 2017 - 14:52

» Troncature dans une image
par JL35 Mer 9 Aoû 2017 - 13:45

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Illusion d'Hajime Ouchi

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Marc37



Nombre de messages : 443
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Illusion d'Hajime Ouchi   Lun 27 Fév 2017 - 2:28

Illusion d'Hajime Ouchi :

Code:
' ------------------------------------------------------------------------------
'  Effet d'optique 3 : Illusion d'Hajime Ouchi
'  Marc37 - Février 2017 - Panoramic v0.9.27
'  http://panoramic-language.pagesperso-orange.fr/French/index.html
' ------------------------------------------------------------------------------
WIDTH 0,500
HEIGHT 0, 450
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%>330 AND y%<370
          IF x%>70 AND x%<410 THEN GOSUB Quitter
     END_IF
RETURN
' ------------------------------------------------------------------------------
SUB Dessin()
    PICTURE 1
    FULL_SPACE 1
    2D_TARGET_IS 1
    2D_PEN_WIDTH 1
    Calque1()
    Calque2()
    SCENE2D 2
    WIDTH 2,390
    HEIGHT 2,235
    LEFT 2,(w%-390)/2
    TOP 2,(w%-390)/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%,j%,x1%,y1%,x2%,y2%,nb%
    COLOR 1,50,200,50
    2D_PEN_COLOR 100,100,100
    nb%=0
    x1%=0
    y1%=0
    x2%=6
    y2%=22
    FOR j%= 1 to 9
        FOR i% = 1 to 47
            IF nb%=0 THEN 2D_FILL_COLOR 1,1,1:ELSE:2D_FILL_COLOR 255,255,255
            2D_RECTANGLE x1%,y1%,x2%+1,y2%+1
            IF nb%=0 THEN nb%=1:ELSE:NB%=0
            x1%=x1%+6
            x2%=x2%+6
        NEXT i%
        x1%=0
        x2%=6
        y1%=y1%+22
        y2%=y2%+22
    NEXT j%
    IMAGE 10
    2D_IMAGE_COPY 10,0,0,390,235
    CLS
END_SUB
' ------------------------------------------------------------------------------
SUB Calque2()
   DIM_LOCAL i%,j%,x1%,y1%,x2%,y2%,nb%
    COLOR 1,50,200,50
    2D_PEN_COLOR 100,100,100
    nb%=0
    x1%=0
    y1%=0
    x2%=22
    y2%=6
    FOR j%= 1 to 40
        FOR i% = 1 to 19
            IF nb%=0 THEN 2D_FILL_COLOR 1,1,1:ELSE:2D_FILL_COLOR 255,255,255
            2D_RECTANGLE x1%,y1%,x2%+1,y2%+1
            IF nb%=0 THEN nb%=1:ELSE:NB%=0
            x1%=x1%+22
            x2%=x2%+22
        NEXT i%
        x1%=0
        x2%=22
        y1%=y1%+6
        y2%=y2%+6
    NEXT j%
    2D_PEN_COLOR 0,0,0
    2D_FILL_COLOR 0,0,0
    2D_CIRCLE 200,125,75
    IMAGE 11
    2D_IMAGE_COPY 11,0,0,390,235
    CLS
END_SUB
' ------------------------------------------------------------------------------
SUB Boutons()
    2D_PEN_COLOR 150,150,150
    2D_FILL_COLOR 150,150,150
    2D_RECTANGLE 70,330,410,370
    FONT_NAME 1,"Arial"
    FONT_SIZE 1, 20
    PRINT_TARGET_IS 1
    PRINT_LOCATE 200,335
    PRINT "Quitter"
END_SUB
' ------------------------------------------------------------------------------
Quitter:
    TERMINATE
RETURN
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
Illusion d'Hajime Ouchi
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Hajime No Ippo
» particleIllusion 3.0

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