Homographes en 2D

' Animation 2D : Panoramic et homographes
' Les phrases sont issues d'Internet
' Marc 25 octobre 2020
' http://panoramic.1fr1.net

dim phrase$(15), X%(15), spriteActif%, spriteSuivant%, deplacement%, n%

label redimensionner, suivant, precedent

width 0,width(0) - width_client(0) + 1300
height 0,height(0) - height_client(0) + 200
top 0,(screen_y-height(0))/2
left 0,(screen_x-width(0))/2
on_resize 0,redimensionner
caption 0,"Homographes"

' bouton flèche de gauche
picture 2
height 2,200
width 2,50
color 2,0,0,0
2d_target_is 2
2d_pen_color 200,200,200
2d_pen_width 2
2d_line 10,100,35,35
2d_line 10,100,35,165
cursor_point 2
on_click 2,precedent


' bouton flèche de droite
picture 3
height 3,200
width 3,50
left 3,1300 - 50
color 3,0,0,0
2d_target_is 3
2d_pen_color 200,200,200
2d_pen_width 2
2d_line 40,100,15,35
2d_line 40,100,15,165
cursor_point 3
on_click 3,suivant
 

' Scène 2D d'évolution des sprites
scene2d 4
width 4,1200
height 4,200
left 4,50
font_color 4,255,255,255
font_size 4,28
font_bold 4


' objet fantome pour calculer la longueur qu'occupera un texte dans un sprite
alpha 5
font_size 5,28
font_bold 5
hide 5


fondDeCouleur()
mettreLesPhrasesSousformeDeVariables()
creerLesSprites()


' mise en place du premier sprite lors du lancement de programme
sprite_position 1,x%(1),70
sprite_show 1
spriteActif% = 1


end


suivant:

    spriteSuivant% = spriteactif% + 1

    if spriteSuivant% = 16
        spriteSuivant% = 1
    end_if

    for deplacement% = 0 to 1200
        sprite_x_position spriteActif%,x%(spriteActif%) - deplacement%
        sprite_x_position spriteSuivant%,x%(spriteSuivant%) + 1200 - deplacement%
    next deplacement%

    spriteActif% = spriteActif% + 1

    if spriteActif% = 16
        spriteActif% = 1
    end_if

return


precedent:

    spriteSuivant% = spriteactif% - 1

    if spriteSuivant% = 0
        spriteSuivant% = 15
    end_if

    for deplacement% = 0 to 1200
        sprite_x_position spriteActif%,x%(spriteActif%) + deplacement%
        sprite_x_position spriteSuivant%,x%(spriteSuivant%) - 1200 + deplacement%
    next deplacement%

    spriteActif% = spriteActif% - 1

    if spriteActif% = 0
        spriteActif% = 15
    end_if

return

sub fondDeCouleur()
    dim_local c, i%

    picture 7
    width 7,1200
    height 7,200

    2d_target_is 7

    c=0
    FOR i%=0 to 200
        2D_PEN_COLOR 0,255,c
        2D_LINE i%,0,i%-100,200
        c=c+1.275
    NEXT i%

    c=255
    FOR i%=201 to 400
        2D_PEN_COLOR 0,c,255
        2D_LINE i%,0,i%-100,200
        c=c-1.275
    NEXT i%

    c=0
    FOR i%=401 to 600
        2D_PEN_COLOR c,0,255
        2D_LINE i%,0,i%-100,200
        c=c+1.275
    NEXT i%

    c=255
    FOR i%=601 to 800
        2D_PEN_COLOR 255,0,c
        2D_LINE i%,0,i%-100,200
        c=c-1.275
    NEXT i%

    c=0
    FOR i%=801 to 1000
        2D_PEN_COLOR 255,c,0
        2D_LINE i%,0,i%-100,200
        c=c+1.275
    NEXT i%

    c=255
    FOR i%=1001 to 1200
        2D_PEN_COLOR c,255,0
        2D_LINE i%,0,i%-100,200
        c=c-1.275
    NEXT i%
   
    c=0
    FOR i%=1201 to 1300
        2D_PEN_COLOR 0,255,c
        2D_LINE i%,0,i%-100,200
        c=c+1.275
    NEXT i%

    image 8
    2d_image_copy 8,0,0,1200,200
    hide 7
   
    sprite 20
    sprite_image_load 20,8

    sprite_brightness 20,-50

end_sub


sub creerLesSprites()
    dim_local i%
    sprite_create_hide
   
    for i% = 1 to 15
        sprite i%
        x%(i%) = text_width(phrase$(i%),5)
        x%(i%) = (1200 - x%(i%))/2
        sprite_text i%,phrase$(i%)
        sprite_position i%,1200,70
        sprite_show i%
    next i%
   
end_sub


sub mettreLesPhrasesSousformeDeVariables()
   
    phrase$(1)="Il convient qu'ils convient leurs amis."
    phrase$(2)="Je vis ces vis."
    phrase$(3)="Avant, nous éditions de belles éditions."
    phrase$(4)="Mes fils ont cassé mes fils."
    phrase$(5)="Cet homme est fier, peut-on s'y fier ?"
    phrase$(6)="Nos intentions sont que nous intentions ce procès."
    phrase$(7)="Les poissons affluent à un affluent."
    phrase$(8)="Ils résident à Paris chez le résident d'une nation étrangère."
    phrase$(9)="Ils négligent leurs devoirs, je suis moins négligent qu'eux."
    phrase$(10)="Il est à l'Est."
    phrase$(11)="Nous portions les portions."
    phrase$(12)="Je suis content qu'ils content ces histoires."
    phrase$(13)="Nous portions les portions."
    phrase$(14)="Les cuisiniers excellent à faire ce mets excellent."
    phrase$(15)="Les poules du couvent couvent."

end_sub


redimensionner:
    off_resize 0
    width 0,width(0) - width_client(0) + 1300
    height 0,height(0) - height_client(0) + 200
    on_resize 0,redimensionner
return

redimensionner:
    off_resize 0
    width 0,width(0) - width_client(0) + 1300
    height 0,height(0) - height_client(0) + 200
    on_resize 0,redimensionner
return