 | La procedura è scritta
in Pascal:
 | Mostra nella parte iniziale la fase di salvataggio dei caratteri sottostanti la cornice (con la laboriosa tecnica per adattare i parametri di
Esplosione a quelli di
SalvaBox) |
| Segue la stampa di tante
Cornice1 in sequenza quante sono necessarie a coprire l’area desiderata, ritardate da Delay2 |
| La
diversa filosofia usata da
SalvaBox
per definire le caratteristiche dell'area da
gestire, rispetto a
Cornice2,
ha reso necessario un laborioso adattamento
dei parametri: la prima usa le coordinate dell'angolo in alto a sinistra
("ri,co“) e
dell'angolo in basso a destra ("ri1,co1”)
mentre la seconda usa le
coordinate dell'angolo in alto a sinistra
("ri,co“) e
le dimensioni altezza,larghezza ("alt,lar”) |
|
Codice Sorgente |
Es.
n°1 |
 |
 |
 |
|
Es.
n°2 |
|
|
|
|
PROCEDURE
Esplosione (ritardo,lar,alt,txt,sfo,tipo:integer;numPAG:byte);
VAR
n,ri,co,ri1,co1,rig1,col1,lar1,alt1:integer;
BEGIN
ri
:=((25-alt) DIV 2)+1;
co
:=((80-lar) DIV 2);
co1:=co+lar;
ri1:=ri+alt-1;
SALVAbox (ri,co,ri1,co1,numPAG);
n:=0;
REPEAT
lar1:=4+2*n;
IF lar1 > lar THEN
lar1:= lar
ELSE col1:= 39-n;
IF col1<1 THEN
col1:=1;
alt1:=2+2*n;
IF alt1 >
alt THEN
alt1:= alt
ELSE rig1:= 12-n;
IF rig1 < 1 THEN
rig1:=1;
Cornice1 (rig1,col1,lar1,alt1,txt,sfo,tipo,1);
n:=n+1;
delay2 (ritardo);
UNTIL (lar1=lar) and
(alt1=alt);
END;
|
|
