Illusion d'optique

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