Illusion

Hein ! Vous avez cliqué !!! Vous êtes curieux, hein!  Je le savais ! Je le savais !

Code:

' *****************************************************************************
' Illusion.bas
' -----------------------------------------------------------------------------
label reponse ,fin
alpha 1 : top 1,10 : left 1,50 : font_bold 1 : font_size 1,12 : font_color 1,255,0,0
caption 1," Lequel de ces 4 traits verticaux est le plus long ?"
button 2 : top 2,350 : left 2,200 : caption 2,"Reponse"
button 3 : top 3,350 : left 3,200 : hide 3 : on_click 2,reponse : on_click 3,fin
2d_pen_width 5
2d_line 100,100,100,300 : 2d_line 200,100,200,300 : 2d_line 400,100,400,300
2d_line 380,120,400,100 : 2d_line 420,120,400,100 : 2d_line 380,280,400,300
2d_line 420,280,400,300 : 2d_line 300,100,300,300 : 2d_line 280,80,300,100
2d_line 320,80,300,100  : 2d_line 280,320,300,300 : 2d_line 320,320,300,300
2d_line 80,80,100,100   : 2d_line 120,80,100,100  : 2d_line 80,320,100,300
2d_line 120,320,100,300 : 2d_line 180,120,200,100 : 2d_line 220,120,200,100
2d_line 180,280,200,300 : 2d_line 220,280,200,300
end
' --------------------------------------------------------------------------
reponse:
2d_pen_width 1 : 2d_pen_dash
2d_line 60,100,440,100 : 2d_line 60,300,440,300
caption 1,"!!! Ils sont tous de la même longueur !!!"
hide 2 : show 3 : font_color 1, 0,0,255
caption 3,"Quitter"
return
' -------------------------------------------------------------------------
fin:
terminate
' **************************************************************************

dim i,xd,yd,x,y,txt$,fin$
full_space 0
font_name 0,"Consolas":font_bold 0:font_size 0,30
txt$="ILLUSION D'OPTIQUE"
fin$="APPUYEZ TOUCHE POUR SORTIR"
print_locate screen_x/2-text_width(txt$,0)/2,screen_y/2-15*text_height(txt$,0)/2
   print txt$
print_locate screen_x/2-text_width(fin$,0)/2,screen_y/2+10*text_height(fin$,0)/2
   print fin$
data 600,300,600,325,250,325,250,375,650,375,600,300,200,300,200,250,700,250,800,400,800,450,300,450,300,400,800,400
restore
read xd:read yd
2d_pen_width 5
2d_poly_from xd,yd
for i=1 to 13
  read x: read y
  2d_poly_to x,y
next i
2d_line 600,325,632.5,375
while scancode=0:end_while:terminate

Comment voir un auto-stéréogramme ?
Une des techniques consiste à se rapprocher tout près de l’écran, le nez à quelques cm de la vitre et à regarder au loin , au-delà de l’écran.
A ce stade, votre vision est donc floue, ne cherchez pas à voir quelque chose.
Au bout de quelques secondes, éloignez-vous petit à petit de votre écran par étapes de 10 cm et toujours sans chercher à focaliser.
Quand la distance atteindra 50 cm, ne bougez plus et attendez que l’image apparaisse.
Le fond d’écran semble alors très net et lumineux. Une fois votre vue et votre cerveau éduqués à voir ce premier auto-stéréogramme, les suivants apparaitront de plus en plus vite et sans effort.
(D’après A. Reboux)


Les stéréogrammes
Un stéréogramme est une image dite en 3D (3 dimensions) sur laquelle on peut observer une forme et un décor. Afin de remarquer le relief, chacun des deux yeux doit regarder une partie différente du motif (il faut donc "loucher"). Ne vous énervez pas au début, l'opération n'est pas du tout simple, il suffit de prendre l'habitude . En fait lorsque l'on observe un stéréogramme, nos deux yeux sont dirigés sur un point précis qui se trouve dans le fond du stéréogramme. Chacun des deux yeux perçoit ainsi une image différente, ce sont ces deux images qui grâce au cerveau permettent le relief. Vos deux yeux doivent donc être focalisés sur l'image, préférez donc une position proche du stéréogramme. Puis lorsque vous sentez que votre vision devient floue, comme si vous regardez dans le vide, éloignez-vous progressivement de l'image et la... (Je vous laisse découvrir par vous même.)


Vous pouvez imprimer le stéréogramme : ça sera beaucoup plus facile à s’exercer avec un papier à la main.
Je souhaite que vous y arriviez !
Sur le Net, il y a des centaines (voire plus !) de stéréogrammes.
Demandez à l’ami GOOGLE.