Drapeau à taille ajustable

' ------------------------------------------------------------------------------
'  PANORAMIC Tunisia Flag
'  MARC - March 2018 - Panoramic v0.9.28.i14
'  http://panoramic-language.pagesperso-orange.fr/French/index.html
'  http://panoramic.top-forum.net
' ------------------------------------------------------------------------------
' Tunisia_Flag(n° d'objet, coordonnée x, coordonnée y, largeur en pixels)
Tunisia_Flag(1,75,75,400)
END
' ------------------------------------------------------------------------------
SUB Tunisia_Flag(n%,x%,y%,w%)        
    DIM_LOCAL i%,j%,h%,r%,x1%,y1%,p%(10,2)
    DEGREES
    h%=2/3*w%
    r%=w%/3/2
    PICTURE n%
    WIDTH n%,w%
    HEIGHT n%,h%
    COLOR n%,232,0,11
    2D_TARGET_IS n%
    2D_PEN_COLOR 250,250,250
    2D_FILL_COLOR 250,250,250
    2D_CIRCLE w%/2,h%/2,r%
    2D_PEN_COLOR 232,0,11
    2D_FILL_COLOR 232,0,11
    2D_CIRCLE w%/2,h%/2,r%/1.333
    2D_PEN_COLOR 250,250,250
    2D_FILL_COLOR 250,250,250
    x1%=w%/2+(r%/2.2/2)
    y1%=h%/2
    2D_CIRCLE x1%,y1%,r%/1.333/1.333
    2D_PEN_COLOR 232,0,11
    r%=r%/2.62
    FOR i% = 180 to -180 STEP -36
        IF MOD(i%,72)=0
            p%(j%,0)=(COS(i%)*r%/2.62)+x1%
            p%(j%,1)=(SIN(i%)*r%/2.62)+y1%
        ELSE
            p%(j%,0)=(COS(i%)*r%)+x1%
            p%(j%,1)=(SIN(i%)*r%)+y1%
        END_IF
        j%=j%+1
    NEXT i%
    2D_POLY_FROM p%(0,0),p%(0,1)
    FOR j% = 0 to 10
        2D_POLY_TO p%(j%,0),p%(j%,1)
    NEXT j%
    2D_FLOOD x1%,y1%,232,0,11
    LEFT n%,x%
    TOP n%,y%
END_SUB

' ------------------------------------------------------------------------------
'  PANORAMIC French Flag
'  MARC - March 2018 - Panoramic v0.9.28.i14
'  http://panoramic-language.pagesperso-orange.fr/French/index.html
'  http://panoramic.top-forum.net
' ------------------------------------------------------------------------------
' FRENCH_Flag(n° d'objet, coordonnée x, coordonnée y, largeur en pixels)
French_Flag(1,75,75,400)
END
' ------------------------------------------------------------------------------
SUB French_Flag(n%,x%,y%,w%)       
    DIM_LOCAL i%,h%
    h%=2/3*w%
    PICTURE n%
    WIDTH n%,w%
    HEIGHT n%,h%
    COLOR n%,255,255,255
    2D_TARGET_IS n%
    2D_PEN_COLOR 0,0,180
    2D_FILL_COLOR 0,0,180
    2D_RECTANGLE 0,0,1/3*w%,h%
    2D_PEN_COLOR 255,0,0
    2D_FILL_COLOR 255,0,0
    2D_RECTANGLE 2/3*w%+1,0,w%,h%
    LEFT n%,x%
    TOP n%,y%
 END_SUB

' ------------------------------------------------------------------------------
'  PANORAMIC German Flag
'  MARC - March 2018 - Panoramic v0.9.28.i14
'  http://panoramic-language.pagesperso-orange.fr/French/index.html
'  http://panoramic.top-forum.net
' ------------------------------------------------------------------------------
' German_Flag(n° d'objet, coordonnée x, coordonnée y, largeur en pixels)
German_Flag(1,75,75,400)
END
' ------------------------------------------------------------------------------
SUB German_Flag(n%,x%,y%,w%)        
    DIM_LOCAL i%,h%
    h%=2/3*w%
    PICTURE n%
    WIDTH n%,w%
    HEIGHT n%,h%
    COLOR n%,0,0,0
    2D_TARGET_IS n%
    2D_PEN_COLOR 250,0,0
    2D_FILL_COLOR 250,0,0
    2D_RECTANGLE 0,1/3*h%+1,w%,h%
    2D_PEN_COLOR 255,204,0
    2D_FILL_COLOR 255,204,0
    2D_RECTANGLE 0,2/3*h%+1,w%,h%
    LEFT n%,x%
    TOP n%,y%
END_SUB

' ------------------------------------------------------------------------------
'  PANORAMIC English Flag
'  MARC - March 2018 - Panoramic v0.9.28.i14
'  http://panoramic-language.pagesperso-orange.fr/French/index.html
'  http://panoramic.top-forum.net
' ------------------------------------------------------------------------------
' English_Flag(n° d'objet, coordonnée x, coordonnée y, largeur en pixels)
English_Flag(1,75,75,400)
END
' ------------------------------------------------------------------------------
SUB English_Flag(n%,x%,y%,w%)
    DIM_LOCAL i%,h%
    h%=INT(2/3*w%)
    PICTURE n%
    WIDTH n%, w%
    HEIGHT n%,h%
    COLOR n%,0,0,180       
    2D_TARGET_IS n%
    2D_PEN_COLOR 250,250,250
    FOR i%= INT(h%/10*-1) TO INT(h%/10)
        2D_LINE 0,i%,w%,h%+i%
        2D_LINE 0,h%+i%,w%,i%
    NEXT i%
    2D_PEN_COLOR 250,0,1
    FOR i%= INT(h%/45*-1) TO INT(h%/45)
        2D_LINE 0,i%,w%,h%+i%
        2D_LINE 0,h%+i%,w%,i%
    NEXT i%
    2D_PEN_COLOR 250,250,251
    FOR i%= INT(w%/10*-1) TO INT(w%/10)         
        2D_LINE INT(w%/2+i%),0,INT(w%/2+i%),h%
        2D_LINE 0,INT(h%/2+i%),w%,INT(h%/2+i%)
    NEXT i%
    2D_PEN_COLOR 250,0,1
    FOR i%= INT(h%/15*-1) TO INT(h%/15)
        2D_LINE INT(w%/2+i%),0,INT(w%/2+i%),h%
        2D_LINE 0,INT(h%/2+i%),w%,INT(h%/2+i%)
    NEXT i%
    LEFT n%,x%
    TOP n%,y%
END_SUB

rem ============================================================================
rem              Hymne National de la Tunisie
rem ============================================================================
dim t$
width 0,900 : height 0,600 : color 0,0,0,0
alpha 10 : top 10,50 : left 10,50  : font_bold 10 : font_name 10,"arial"
 font_size 10,10 : font_color 10,200,100,250
alpha 20 : top 20,50 : left 20,580 : font_bold 20 : font_name 20,"arial"
 font_size 20,10 : font_color 20,250,100,150
t$ = "Hymne National Tunisien" + chr$(13)
t$ = t$ + "Traduction française" + chr$(13) + chr$(13)
t$ = t$ + "Défenseurs de la patrie" + chr$(13)
t$ = t$ + string$(20,"=") + chr$(13)
t$ = t$ + "Ô défenseurs de la Nation, allons à la rencontre de la gloire !" + chr$(13)
t$ = t$ + " Mourons s'il le faut pour que vive la patrie ! " + chr$(13)
t$ = t$ + "Clame le sang qui coule dans nos veines." + chr$(13)
t$ = t$ + "Que n'y vive point quiconque refuse d'être au nombre de ses soldats !" + chr$(13)
t$ = t$ + "Tenus par notre serment de fidélité à son égard," + chr$(13)
t$ = t$ + "Nous vivrons sur son sol dans la dignité" + chr$(13)
t$ = t$ + "Ou nous mourrons, pour elle, dans la grandeur." + chr$(13)
t$ = t$ + "Sois maître de tes destinées, ô mon pays, et sois heureux !" + chr$(13)
t$ = t$ + "Car il n'est point de vie pour celui qui est privé de sa souveraineté." + chr$(13)
t$ = t$ + "Mon sang bouillant est tout ce que je possède de plus cher," + chr$(13)
t$ = t$ + "Je suis prêt à en faire sacrifice pour mon pays et pour mon peuple." + chr$(13)
t$ = t$ + "Gloire à toi, Tunisie ! De la grandeur de ton peuple, demeure à jamais fière !" + chr$(13)
t$ = t$ + "Regarde tes enfants se lancer, tels des lions," + chr$(13)
t$ = t$ + "À l'assaut de l'ennemi le jour du combat" + chr$(13)
t$ = t$ + "Notre héritage, parmi les nations, réside dans la force de nos bras" + chr$(13)
t$ = t$ + "Des bras aussi durs que le roc de ces imposants édifices" + chr$(13)
t$ = t$ + "Et qui portent haut l'étendard du pays." + chr$(13)
t$ = t$ + "Cet étendard qui fait notre fierté et qui est lui-même fier d'être porté par nous." + chr$(13)
t$ = t$ + "des bras qui nous propulsent vers les plus hauts sommets" + chr$(13)
t$ = t$ + "De la gloire et de la grandeur," + chr$(13)
t$ = t$ + "Qui nous garantissent la réalisation de nos voeux," + chr$(13)
t$ = t$ + "Qui font abattre des malheurs sur les ennemis de notre Patrie," + chr$(13)
t$ = t$ + "Mais qui sont pacifiques à l'égard de ceux qui nous veulent la paix." + chr$(13)
t$ = t$ + "Lorsqu'un peuple veut la vie, force est au destin de répondre" + chr$(13)
t$ = t$ + "Aux ténèbres de se dissiper et aux chaînes de se rompre !" + chr$(13)
 
caption 10,t$

t$ = "Ennachid Errasmi lel Joumhouria Ettounissia" + chr$(13) + chr$(13)+chr$(13)
t$ = t$ + "Humat Al-Hima" + chr$(13)
t$ = t$ + string$(20,"=") + chr$(13)
t$ = t$ + "Humat al-hima ya humat al-hima" + chr$(13)
t$ = t$ + "Halommou halommou li-majdi-z-zaman" + chr$(13)
t$ = t$ + "Laqad sarakhat fi 'ourouqina-d-dima" + chr$(13)
t$ = t$ + "Namoutou namoutou wa yahya-l-watan" + chr$(13)
t$ = t$ + "Litadwi-s-samawatou bira'diha" + chr$(13)
t$ = t$ + "Litarmi-s-sawa'iqou niranaha" + chr$(13)
t$ = t$ + "Ila 'izzi Tunis ila majdiha" + chr$(13)
t$ = t$ + "Rijala-l-biladi Wa shobbanaha" + chr$(13)
t$ = t$ + "Fala 'asha fi Tunis man khanaha" + chr$(13)
t$ = t$ + "Wa la 'asha man layssa min jundiha" + chr$(13)
t$ = t$ + "Namoutou wa nahya 'ala 'ahdiha" + chr$(13)
t$ = t$ + "Hayata-l-kirami wa mawta-l-'idham" + chr$(13)
t$ = t$ + "Warithna-s-sawa'ida bayn al-'oumam" + chr$(13)
t$ = t$ + "Soukhouran soukhouran kahadha-l-bina" + chr$(13)
t$ = t$ + "Sawa'idou yahtazzou fawqaha-l-'alam" + chr$(13)
t$ = t$ + "Noubahi bihi wa youbahi bina" + chr$(13)
t$ = t$ + "Wa fiha kafa li-l-'ula wa-l-himam" + chr$(13)
t$ = t$ + "Wa fiha dhamanun linayl-il-mouna" + chr$(13)
t$ = t$ + "Wa fiha li'a'da'i Tunis niqam" + chr$(13)
t$ = t$ + "Wa fiha liman salamouna-s-salam" + chr$(13)
t$ = t$ + "Idha-sh-sha'bou yawman 'arad al-hayat" + chr$(13)
t$ = t$ + "Fala boudda 'an yastajib al-qadar" + chr$(13)
t$ = t$ + "Wala boudda li-l-layli an yanjali" + chr$(13)
t$ = t$ + "Wa la boudda li-l-qaydi an yankassir" + chr$(13)

caption 20,t$
sound 30
file_load 30, "http://www.dinosoria.com/hymnes/hymne_tunisie.mp3"
play_wait 30
rem ============================================================================