' Fabrication d'un gif animé: texte clignotant rouge/jaune
' Si plusieurs lignes (séparées par '<#'), elles seront centrées dans la fenêtre
LABEL CreImg,Couleur
DIM p%,h%,txt$,wt%,ht%,mgh%,mgv%,bd%,cv$,f$,f1$,f2$,fr$,fh$,r$,fnt$,sz%
DIM tx$(10),nl%,i%,k%,a$,x%,y%,wm%,htt%,cf$,cb$,ct1$,ct2$,r%,g%,b%,suf$
txt$ = "SALUT<#LES PANORAMICIENS !"
mgh% = 30: ' marges horizontales entre texte et bord
mgv% = 20: ' marges verticales entre texte et bord
bd% = 10: ' largeurt de la bordure d'encadrement
fnt$ = "Arial"
sz% = 16
cf$ = "64,64,64": ' couleur encadrement
cb$ = "180,180,180": ' couleur de fond
ct1$ = "255,64,64": ' couleur 1 du texte
ct2$ = "255,255,64": ' couleur 2 du texte (en alternance)
cv$ = "C:\PROGRA~1\IMAGEM~1.3-Q\convert.exe": ' chemin de convert de ImageMagick
r$ = "C:\TEMP\GIF\": ' répertoire de travail: sera créé si inexistant
f1$ = r$+"Img01.bmp": ' images composantes
f2$ = r$+"Img02.bmp": ' "
fr$ = r$+"Anime.gif": ' Gif animé résultat
fh$ = r$+"Anime.htm": ' pour affichage dans le Hviewer
IF DIR_EXISTS(r$)=0 THEN DIR_MAKE r$
IF FILE_EXISTS(fr$) = 1 THEN FILE_DELETE fr$
IF FILE_EXISTS(r$+"*.gif")<>0 THEN EXECUTE_WAIT "cmd.exe|/c DEL /Q "+r$+"*.gif"
BORDER_SMALL 0
p% = 10: PICTURE p%: FONT_NAME p%,fnt$: FONT_SIZE p%,sz%: FONT_BOLD p%
' Paramètres du texte (dimensions ...)
wt% = TEXT_WIDTH(txt$,p%): ht% = TEXT_HEIGHT(txt$,p%)
nl% = 1: k% = INSTR(txt$,"<#")
IF k%>0
wt% = 0
WHILE k% > 0
tx$(nl%) = LEFT$(txt$,k%-1): txt$ = RIGHT_POS$(txt$,k%+2)
i% = TEXT_WIDTH(tx$(nl%),p%): IF i%>wt% THEN wt% = i%
nl% = nl%+1: k% = INSTR(txt$,"<#")
END_WHILE
tx$(nl%) = txt$
i% = TEXT_WIDTH(tx$(nl%),p%): IF i%>wt% THEN wt% = i%
htt% = nl%*ht%: ' hauteur totale
ELSE
tx$(1) = txt$
htt% = ht%
END_IF
WIDTH 0,wt%+2*mgh%+50: HEIGHT 0,htt%+2*mgv%+60
WIDTH p%,wt%+2*mgh%: HEIGHT p%,htt%+2*mgv%
2D_TARGET_IS p%
a$ = cb$: GOSUB Couleur: 2D_PEN_COLOR r%,g%,b%: 2D_PEN_WIDTH bd%
a$ = cf$: GOSUB Couleur: 2D_FILL_COLOR r%,g%,b%
2D_RECTANGLE bd%/2,bd%/2,WIDTH(p%)-bd%/2+1,HEIGHT(p%)-bd%/2+1
PRINT_TARGET_IS p%
' ----- Création des images élémentaires -----
a$ = ct1$: f$ = f1$: GOSUB CreImg: ' image rouge
a$ = ct2$: f$ = f2$: GOSUB CreImg: ' image jaune
' ----- Création du gif animé -----
' delay: délai entre images, en 100èmes de seconde: 50 = 500 ms
' loop : nombre de boucles à exécuter (0: infini, boucle sans fin)
suf$ = "*.bmp": ' type des images à assembler
EXECUTE_WAIT "cmd.exe|/c "+cv$+" -delay 50 -loop 0 "+r$+suf$+" "+fr$
FILE_DELETE f1$: FILE_DELETE f2$: ' suppression des composantes
' ----- Affichage du résultat (Html -> Hviewer) -----
CAPTION 0,"APERÇU DU RÉSULTAT : "+fr$
h% = 12
HVIEWER h%: TOP h%,0: LEFT h%,0: WIDTH h%,WIDTH(p%)+30: HEIGHT h%,HEIGHT(p%)+20
FILE_OPEN_WRITE 1,fh$
FILE_WRITELN 1,"<HTML>,<HEADER></HEADER><BODY>"
FILE_WRITELN 1,"<IMG SRC="+fr$+">"
FILE_WRITELN 1,"</BODY></HTML>"
FILE_CLOSE 1
FILE_LOAD h%,fh$
FILE_DELETE fh$
END
' ==============================================================================
CreImg:
GOSUB Couleur: FONT_COLOR p%,r%,g%,b%
y% = mgv%
FOR i% = 1 TO nl%
a$ = tx$(i%): wt% = TEXT_WIDTH(a$,p%): x% = (WIDTH(p%)-wt%)/2
PRINT_LOCATE x%,y%: PRINT a$: y% = y%+ht%
NEXT i%
FILE_SAVE p%,f$: ' image rouge
RETURN
' ==============================================================================
Couleur:
k% = INSTR(a$,","): r%=VAL(LEFT$(a$,k%-1)): a$ = RIGHT_POS$(a$,k%+1)
k% = INSTR(a$,","): g%=VAL(LEFT$(a$,k%-1)): b%=VAL(RIGHT_POS$(a$,k%+1))
RETURN
' ==============================================================================
Accueil 
Calendrier
