Esercitazioni Calibro a corsoio – Linguaggio SVG
MISURE DI PRECISIONE
Il codice allegato permette di poter disegnare il calibro con i diversi nonii decimali, ventesimali e cinquantesimali. L’impaginazione nel foglio A4 è diversa in base alla scelta del nonio. Tutte le misure corrette sono salvate in un file unico in formato pdf. La parte in alto del foglio è lasciata in bianco per inserire i dati dell’alunno, l’intestazione ed il criterio per la valutazione.

Il codice deve essere ancora migliorato. Ogni misura proposta e da leggere per esercizio, viene estratta tramite una funzione random:Anche se con un criterio del tutto casuale la difficoltà dell’esercizio può variare leggermente tra una scheda e l’altra.
Il prossimo miglioramento da effettuare per gli esercizi dovrebbe prevedere l’inserimento di un QR Code per poter aprire velocemente un file su internet contenente le misure corrette.
DOWNLOAD GRATUITO DELLE VERIFICHE
Per scaricare un set di verifiche fate click sui link:
Verifiche calibro a corsoio decimale: Download
Verifiche calibro a corsoio ventesimale: Download
Verifiche calibro a corsoio cinquantesimale: Download
Ogni aggiornamento del codice e le nuove versioni delle verifiche, sono postate sulla pagina facebook: www.facebook.com/idroslab
I file compressi contengono 35 prove in pdf. Leggete bene il download di Dropbox: non è necessario effettuare l’iscrizione al sito per scaricare i file.
% Autori% Prof. Paolo Sordi IPSIA A. Pacinotti, Pontedera (Pisa)% Prof. Danilo Pasquini ITIS S. Cannizzaro, Colleferro (Roma)% Calibro a corsoio%function calibro ()
global fid1 fid fid2global f2 f3 ff3 f5 f4 f7 f10 f16 f20 f39 f120global scalaglobal numero_verificaglobal colonne_risultatiglobal matrice_risultatipause(5)
scala = 3.54f3=3;f2=2;ff3 = 3.5;f5=9;f4=29;f7=7;f10=10;f16 = 16;f20 = 20;f39 = 39;f120=120;numero_verifica = numero_verifica + 1;testo = num2str(ceil(numero_verifica));
colonne_risultati = 1;whosmatrice_risultati (numero_verifica, colonne_risultati) = numero_verifica;
nomefile = ['c:\calibro100\calibro_' testo '.svg'];
nomefile1 = ['c:\calibro100\calibro_' testo '.txt'];
fid = fopen([nomefile], 'wt');
fid1 = fopen([nomefile1], 'wt');
fprintf(fid, ['<!--?xml version="1.0" encoding="iso-8859-1" standalone="no"?--> \n']);
fprintf(fid, ['\n']);
fprintf(fid, ['\n']);
pos_x = 90;pos_y = 40;[fid] = scrivere (fid,25,10,'left','1.6','Your');
[fid] = scrivere (fid,25,15,'left','1.6','text');
[fid] = scrivere (fid,25,20,'left','1.6','here');
[fid] = scrivere (fid,15,30,'left','2',testo);
[fid] = scrivere (fid,5,7,'left','5','A');
[fid] = scrivere (fid,10,283,'right','2.5','www.tiny.cc/disegno');
[fid] = scrivere (fid,124,282,'right','2','Autori: Prof. Paolo Sordi IPSIA A. Pacinotti, Pontedera (Pisa)');
[fid] = scrivere (fid,132,285,'right','2','Prof. Danilo Pasquini IPSIA P.P. Delfino, Colleferro (Roma)');
calibro_decimale ()
%calibro_ventesimale ()%calibro_cinquantesimale ()fprintf(fid, [' \n']);
fclose(fid)
stringa_dos = ['c:\Programmi\Inkscape\inkscape -f ' nomefile ' -A ' 'C:\calibro100\calibro_' testo '.pdf']
dos(stringa_dos)
fclose (fid1)
% -------------------------------------------------------------------------function calibro_cinquantesimaleglobal scala_nonioglobal larghezza_lineaglobal larghezza_nonioglobal raggio_millimetratoglobal raggio_spigolo_nonioglobal larghezza_prima_dello_zeroglobal fid1 fidglobal f2 f3 ff3 f5 f4 f7 f10 f16 f20 f39 f120global risoluzione portata_strumentoglobal limite_destro limite_sinistroglobal ultima_taccaglobal scalascala_nonio = 1risoluzione = 50portata_strumento = 180limite_destro = 110limite_sinistro = 0lunghezza_casuale = 0;disegna_nonio (fid,30,40,lunghezza_casuale)
lunghezza_totale_nonio = ultima_tacca;
disegna_corsoio (fid,30,40,lunghezza_casuale)
disegna_asta_fissa (fid,30,40,lunghezza_casuale)
disegna_asta_graduata (fid,30,40,lunghezza_casuale)
% a destra del nonioscala = scala*1.2for i=23:80:180
for j=78:35:230
lunghezza_casuale = (ceil (rand*(portata_strumento-lunghezza_totale_nonio)*risoluzione))/ risoluzione;
disegna_nonio (fid,i,j,lunghezza_casuale)
confini_misura (fid,i,j,lunghezza_casuale)
disegna_asta_graduata (fid,i,j,lunghezza_casuale)
endend% -------------------------------------------------------------------------function calibro_ventesimaleglobal scala_nonioglobal larghezza_lineaglobal larghezza_nonioglobal raggio_millimetratoglobal raggio_spigolo_nonioglobal larghezza_prima_dello_zeroglobal fid1 fid fid2global f2 f3 ff3 f5 f4 f7 f10 f16 f20 f39 f120global risoluzione portata_strumentoglobal limite_destro limite_sinistroglobal ultima_taccascala_nonio = 1;risoluzione = 20;portata_strumento = 180;limite_destro = 110;limite_sinistro = 0;lunghezza_casuale = 0;disegna_nonio (fid,30,40,lunghezza_casuale)
lunghezza_totale_nonio = ultima_tacca;
disegna_corsoio (fid,30,40,lunghezza_casuale)
disegna_asta_fissa (fid,30,40,lunghezza_casuale)
disegna_asta_graduata (fid,30,40,lunghezza_casuale)
% a destra del noniofor i=55:55:180
for j=65:30:140
lunghezza_casuale = (ceil (rand*(portata_strumento-lunghezza_totale_nonio)*risoluzione))/ risoluzione;
disegna_nonio (fid,i,j,lunghezza_casuale)
confini_misura (fid,i,j,lunghezza_casuale)
disegna_asta_graduata (fid,i,j,lunghezza_casuale)
endendscala_nonio = 2;limite_destro = 110;limite_sinistro = 0;lunghezza_casuale = 0;disegna_nonio (fid,30,165,lunghezza_casuale)
lunghezza_totale_nonio = ultima_tacca;
disegna_corsoio (fid,30,165,lunghezza_casuale)
disegna_asta_fissa (fid,30,165,lunghezza_casuale)
disegna_asta_graduata (fid,30,165,lunghezza_casuale)
% a destra del noniofor i=55:85:165
for j=195:35:280
lunghezza_casuale = (ceil (rand*(portata_strumento-lunghezza_totale_nonio)*risoluzione))/ risoluzione
disegna_nonio (fid,i,j,lunghezza_casuale)
confini_misura (fid,i,j,lunghezza_casuale)
disegna_asta_graduata (fid,i,j,lunghezza_casuale)
endend% -------------------------------------------------------------------------function confini_misura (fid,pos_x,pos_y,apertura)
global f5 f7global ultima_taccaglobal limite_destro limite_sinistrolimite_sinistro = pos_x-f5*1.2;limite_destro = ultima_tacca+f5*1.2;limite_sinistro_1 = pos_x-f5*1.6;limite_destro_1 = ultima_tacca+f5*1.6;[fid] = linea (fid,limite_sinistro_1, pos_y-f7*1.7, limite_sinistro_1, pos_y+f7*1.7,0,0,0,0.05);
[fid] = linea (fid,limite_destro_1, pos_y-f7*1.7, limite_destro_1, pos_y+f7*1.7,0,0,0,0.05);
[fid] = scrivere (fid,(ultima_tacca+pos_x)/2,pos_y+13,'middle','3','misura__________');
% -------------------------------------------------------------------------function calibro_decimaleglobal scala_nonioglobal fidglobal risoluzione portata_strumentoglobal limite_destro limite_sinistroglobal ultima_taccascala_nonio = 1;risoluzione = 10;portata_strumento = 180;limite_destro = 110;limite_sinistro = 0;lunghezza_casuale = 0;disegna_nonio (fid,30,40,lunghezza_casuale)
lunghezza_totale_nonio = ultima_tacca;
disegna_corsoio (fid,30,40,lunghezza_casuale)
disegna_asta_fissa (fid,30,40,lunghezza_casuale)
disegna_asta_graduata (fid,30,40,lunghezza_casuale)
% a destra del noniofor i=70:53:180
for j=58:34:140
lunghezza_casuale = 0;while (lunghezza_casuale < 7)
lunghezza_casuale = (ceil (rand*(portata_strumento-lunghezza_totale_nonio)*risoluzione))/ risoluzione;
enddisegna_nonio (fid,i,j,lunghezza_casuale)
confini_misura (fid,i,j,lunghezza_casuale)
disegna_asta_graduata (fid,i,j,lunghezza_casuale)
endendscala_nonio = 2;limite_destro = 110;limite_sinistro = 0;lunghezza_casuale = 0;disegna_nonio (fid,30,165,lunghezza_casuale)
lunghezza_totale_nonio = ultima_tacca;
disegna_corsoio (fid,30,165,lunghezza_casuale)
disegna_asta_fissa (fid,30,165,lunghezza_casuale)
disegna_asta_graduata (fid,30,165,lunghezza_casuale)
% a destra del noniofor i=55:55:165
for j=190:35:280
lunghezza_casuale = 0;while (lunghezza_casuale < 7) lunghezza_casuale = (ceil (rand*(portata_strumento-lunghezza_totale_nonio)*risoluzione))/ risoluzione; end disegna_nonio (fid,i,j,lunghezza_casuale) confini_misura (fid,i,j,lunghezza_casuale) disegna_asta_graduata (fid,i,j,lunghezza_casuale) end end % -------------------------------------------------------------------------
function calibro_cinquantesimale global scala_nonio global larghezza_linea global larghezza_nonio global raggio_millimetrato global raggio_spigolo_nonio global larghezza_prima_dello_zero global fid1 fid global f2 f3 ff3 f5 f4 f7 f10 f16 f20 f39 f120 global risoluzione portata_strumento global limite_destro limite_sinistro global ultima_tacca global scala %disegna_micrometro (fid, pos_x, pos_y, lunghezza_casuale) scala_nonio = 1 risoluzione = 50 portata_strumento = 180 limite_destro = 110 limite_sinistro = 0 lunghezza_casuale = 0; disegna_nonio (fid,30,40,lunghezza_casuale) lunghezza_totale_nonio = ultima_tacca; disegna_corsoio (fid,30,40,lunghezza_casuale) disegna_asta_fissa (fid,30,40,lunghezza_casuale) disegna_asta_graduata (fid,30,40,lunghezza_casuale) % a destra del nonio scala = scala*1.2 for i=23:80:180 for j=78:33:230 lunghezza_casuale = (ceil (rand*(portata_strumento-lunghezza_totale_nonio)*risoluzione))/ risoluzione; disegna_nonio (fid,i,j,lunghezza_casuale) confini_misura (fid,i,j,lunghezza_casuale) disegna_asta_graduata (fid,i,j,lunghezza_casuale) end end % ------------------------------------------------------------------------- function calibro_ventesimale global scala_nonio global larghezza_linea global larghezza_nonio global raggio_millimetrato global raggio_spigolo_nonio global larghezza_prima_dello_zero global fid1 fid fid2 global f2 f3 ff3 f5 f4 f7 f10 f16 f20 f39 f120 global risoluzione portata_strumento global limite_destro limite_sinistro global ultima_tacca %disegna_micrometro (fid, pos_x, pos_y, lunghezza_casuale) scala_nonio = 1; risoluzione = 20; portata_strumento = 180; limite_destro = 110; limite_sinistro = 0; lunghezza_casuale = 0; disegna_nonio (fid,30,40,lunghezza_casuale) lunghezza_totale_nonio = ultima_tacca; disegna_corsoio (fid,30,40,lunghezza_casuale) disegna_asta_fissa (fid,30,40,lunghezza_casuale) disegna_asta_graduata (fid,30,40,lunghezza_casuale) % a destra del nonio for i=55:55:180 for j=65:30:140 lunghezza_casuale = (ceil (rand*(portata_strumento-lunghezza_totale_nonio)*risoluzione))/ risoluzione; disegna_nonio (fid,i,j,lunghezza_casuale) confini_misura (fid,i,j,lunghezza_casuale) disegna_asta_graduata (fid,i,j,lunghezza_casuale) end end scala_nonio = 2; limite_destro = 110; limite_sinistro = 0; lunghezza_casuale = 0; disegna_nonio (fid,30,165,lunghezza_casuale) lunghezza_totale_nonio = ultima_tacca; disegna_corsoio (fid,30,165,lunghezza_casuale) disegna_asta_fissa (fid,30,165,lunghezza_casuale) disegna_asta_graduata (fid,30,165,lunghezza_casuale) % a destra del nonio for i=55:85:165 for j=192:33:280 lunghezza_casuale = (ceil (rand*(portata_strumento-lunghezza_totale_nonio)*risoluzione))/ risoluzione; disegna_nonio (fid,i,j,lunghezza_casuale) confini_misura (fid,i,j,lunghezza_casuale) disegna_asta_graduata (fid,i,j,lunghezza_casuale) end end % ------------------------------------------------------------------------- function confini_misura (fid,pos_x,pos_y,apertura) global f5 f7 global ultima_tacca global limite_destro limite_sinistro limite_sinistro = pos_x-f5*1.2; limite_destro = ultima_tacca+f5*1.2; limite_sinistro_1 = pos_x-f5*1.6; limite_destro_1 = ultima_tacca+f5*1.6; [fid] = linea (fid,limite_sinistro_1, pos_y-f7*1.7, limite_sinistro_1, pos_y+f7*1.7,0,0,0,0.05); [fid] = linea (fid,limite_destro_1, pos_y-f7*1.7, limite_destro_1, pos_y+f7*1.7,0,0,0,0.05); [fid] = scrivere (fid,(ultima_tacca+pos_x)/2,pos_y+13,'middle','2.5','misura__________'); % ------------------------------------------------------------------------- function confini_misura1 (fid,pos_x,pos_y,apertura) global f5 f7 global ultima_tacca global limite_destro limite_sinistro limite_sinistro = pos_x-f5*1.2; limite_destro = ultima_tacca+f5*1.2; limite_sinistro_1 = pos_x-f5*1.6; limite_destro_1 = ultima_tacca+f5*1.6; [fid] = linea (fid,limite_sinistro_1, pos_y-f7*1.7, limite_sinistro_1, pos_y+f7*1.7,0,0,0,0.1); [fid] = linea (fid,limite_destro_1, pos_y-f7*1.7, limite_destro_1, pos_y+f7*1.7,0,0,0,0.1); [fid] = scrivere (fid,(ultima_tacca+pos_x)/2,pos_y+13,'middle','3','misura____________'); % ------------------------------------------------------------------------- function disegna_corsoio (fid,pos_x,pos_y,apertura) global f2 f3 ff3 f5 f4 f7 f10 f16 f20 f39 f120 global ultima_tacca x_tacca = pos_x; % inizio il becco misure esterne % [fid] = linea (fid,x_tacca,pos_y,x_tacca-f5,pos_y,0,0,0,0.4) [fid] = linea (fid,x_tacca-f5+2*f2 ,pos_y ,x_tacca-f5+2*f2 ,pos_y+f5,0,0,0,0.2); [fid] = linea (fid,x_tacca-f5+2*f2 ,pos_y+f5 ,x_tacca-f5+f2 ,pos_y+f5,0,0,0,0.2); [fid] = linea (fid,x_tacca-f5+f2 ,pos_y+f5 ,x_tacca-f5+f2 ,pos_y+f39,0,0,0,0.2); [fid] = linea (fid,x_tacca-f5+f2 ,pos_y+f39 ,x_tacca-f5+f2+f7 ,pos_y+f39-f7,0,0,0,0.2); [fid] = linea (fid,x_tacca-f5+f2+f7, pos_y+f39-f7, x_tacca-f5+f2+2*f7, pos_y+f39-4*f7,0,0,0,0.2); [fid] = linea (fid,x_tacca-f5+f2+2*f7, pos_y+f39-4*f7, x_tacca-f5+f2+2*f7, pos_y+f39-4*f7,0,0,0,0.2); [fid] = linea (fid,x_tacca-f5+f2+2*f7, pos_y+f39-4*f7, ultima_tacca+f5-f2, pos_y+f39-4*f7,0,0,0,0.2); [fid] = linea (fid,ultima_tacca+f5-f2, pos_y+f39-4*f7, ultima_tacca+f5-f2, pos_y+f39-4*f7,0,0,0,0.2); [fid] = linea (fid,ultima_tacca+f5-f2, pos_y+f39-4*f7, ultima_tacca+f5-f2, pos_y,0,0,0,0.2); % [fid] = linea (fid,x_tacca-f5+f2+f7 ,pos_y+f39-3*f7 ,x_tacca-f5+f2+f7 ,pos_y+f39-3*f7,0,0,0,0.2) % becco misure interne [fid] = linea (fid,x_tacca-f5+f2-f7, pos_y-f20-f16, x_tacca-f5+f2-f7-f3, pos_y-f20-f16+f3,0,0,0,0.2); [fid] = linea (fid,x_tacca-f5+f2-f7-f3, pos_y-f20-f16+f3,x_tacca-f5+f2-f7-f3-ff3,pos_y-f20,0,0,0,0.2); % [fid] = linea (fid,x_tacca-f5+f2-f7-f3-ff3,pos_y-f20, x_tacca-f5+f2-f7-f3-ff3,pos_y-f16,0,0,0,0.2) % ------------------------------------------------------------------------- function disegna_asta_fissa (fid,pos_x,pos_y,apertura) global f2 f3 ff3 f5 f4 f7 f10 f16 f20 f39 f120 global fid1 global risoluzione global scala_nonio fprintf(fid1, ['Calibro con risuluzione: 1/' num2str(risoluzione) ' e scala ' num2str(scala_nonio) '\n']) x_tacca = pos_x-apertura; % inizio il becco misure esterne [fid] = linea (fid,x_tacca, pos_y, x_tacca-f5, pos_y, 0,0,0,0.2); [fid] = linea (fid,x_tacca-f5, pos_y, x_tacca-f5, pos_y+f5, 0,0,0,0.2); [fid] = linea (fid,x_tacca-f5, pos_y+f5, x_tacca-f5+f2, pos_y+f5, 0,0,0,0.2); [fid] = linea (fid,x_tacca-f5+f2,pos_y+f5, x_tacca-f5+f2, pos_y+f39,0,0,0,0.2); % sono arrivato alla punta del becco misure esterne [fid] = linea (fid,x_tacca-f5+f2,pos_y+f39,x_tacca-f5+f2-f7,pos_y+f39-f7,0,0,0,0.2); [fid] = linea (fid,x_tacca-f5+f2-f7,pos_y+f39-f7,x_tacca-f5+f2-f7-f10,pos_y,0,0,0,0.2); [fid] = linea (fid,x_tacca-f5+f2-f7-f10,pos_y,x_tacca-f5+f2-f7-f10,pos_y-f20,0,0,0,0.2); [fid] = linea (fid,x_tacca-f5+f2-f7-f10,pos_y-f20,x_tacca-f5+f2-f7,pos_y-f20,0,0,0,0.2); % inizio il becco interno dell'asta fissa [fid] = linea (fid,x_tacca-f5+f2-f7,pos_y-f20,x_tacca-f5+f2-f7,pos_y-f20-f16,0,0,0,0.2); [fid] = linea (fid,x_tacca-f5+f2-f7,pos_y-f20-f16,x_tacca-f5+f2-f7+f3,pos_y-f20-f16+f3,0,0,0,0.2); [fid] = linea (fid,x_tacca-f5+f2-f7+f3,pos_y-f20-f16+f3,x_tacca-f5+f2-f7+f3+ff3,pos_y-f20,0,0,0,0.2); [fid] = linea (fid,x_tacca-f5+f2-f7+f3+ff3,pos_y-f20,x_tacca-f5+f2-f7+f3+ff3,pos_y-f16,0,0,0,0.2); % mi allontano dal becco per andare verso l'astina di profondità [fid] = linea (fid,x_tacca-f5+f2-f7+f3+ff3, pos_y-f16, x_tacca-f5+f2-f7+f3+ff3+f120, pos_y-f16,0,0,0,0.2); [fid] = linea (fid,x_tacca-f5+f2-f7+f3+ff3+f120, pos_y-f16, x_tacca-f5+f2-f7+f3+ff3+f120, pos_y,0,0,0,0.2); [fid] = linea (fid,x_tacca-f5+f2-f7+f3+ff3+f120, pos_y, x_tacca, pos_y,0,0,0,0.2); % ------------------------------------------------------------------------- function disegna_nonio (fid,pos_x,pos_y,apertura) global ultima_tacca global risoluzione global scala_nonio global fid1 global numero_verifica global colonne_risultati global matrice_risultati divisione_nonio=scala_nonio-1/risoluzione; for i=0:risoluzione altezza_tacca = 2; x_tacca = pos_x+i*divisione_nonio; if rem(i,2) == 0 if (risoluzione ==10 || risoluzione ==20 ) altezza_tacca = 5; end if (risoluzione ==10) [fid] = scrivere (fid,x_tacca,pos_y+altezza_tacca*1.4,'middle','1.6',num2str(i)); end if (risoluzione ==20) [fid] = scrivere (fid,x_tacca,pos_y+altezza_tacca*1.4,'middle','1.6',num2str(i/2)); end end if rem(i,5) == 0 if (risoluzione ==50) altezza_tacca = 5; [fid] = scrivere (fid,x_tacca,pos_y+altezza_tacca*1.4,'middle','1.6',num2str(i/5)); end end [fid] = linea (fid,x_tacca,pos_y,x_tacca,pos_y+altezza_tacca,0,0,0,0.2); ultima_tacca = x_tacca; end if (risoluzione == 10) testo_numero = num2str(apertura, '%10.1f'); fprintf(fid1, ['misura: ' testo_numero '\n']); end if (risoluzione == 20) testo_numero = num2str(apertura, '%10.2f'); fprintf(fid1, ['misura: ' testo_numero '\n']); end if (risoluzione == 50) testo_numero = num2str(apertura, '%10.2f'); fprintf(fid1, ['misura: ' testo_numero '\n']); end colonne_risultati = 1 + colonne_risultati; matrice_risultati (numero_verifica, colonne_risultati) = apertura; % ------------------------------------------------------------------------- function disegna_asta_graduata (fid,pos_x,pos_y, apertura) global portata_strumento global limite_destro limite_sinistro for i=0:portata_strumento altezza_tacca = 3; if rem(i,5) == 0 altezza_tacca = 5; end posso_disegnare = 0; if (((pos_x+i-apertura)>=limite_sinistro) && ((pos_x+i-apertura) <= limite_destro))
posso_disegnare = 1;endif rem(i,10) == 0
altezza_tacca = 7;if (posso_disegnare == 1)
[fid] = scrivere (fid,pos_x+i-apertura,pos_y-altezza_tacca*1.2,'middle','2',num2str(i));
endendif (posso_disegnare == 1)
[fid] = linea (fid,pos_x+i-apertura,pos_y,pos_x+i-apertura,pos_y-altezza_tacca,0,0,0,0.2);
endend% -------------------------------------------------------------------------function [fid] = linea (fid,x1,y1,x2,y2,colore1,colore2,colore3,larghezza)
global scalafprintf(fid, [' \n']);
% -------------------------------------------------------------------------function [fid] = cerchio (fid,x1,y1,raggio,colore1,colore2,colore3)
global scalafprintf(fid, [' \n']);
% --------------------------------------------------------------------------function [fid] = rettangolo (fid,x1,y1,lato1,lato2,colore1,colore2,colore3,larghezza)
global scalafprintf(fid, [' \n']);
% --------------------------------------------------------------------------function [fid] = commento (fid,testo_commento)
fprintf(fid, ['/* ' '\n']);
fprintf(fid, [testo_commento '\n']);
fprintf(fid, ['*/ ' '\n']);
% --------------------------------------------------------------------------function [fid] = scrivere (fid,x1,y1,giustificazione,altezza_testo,testo)
global scalaaltezza_testo = altezza_testo*0.8;fprintf(fid, ['' testo '' '\n']);
%rettangolo_per_coprire_numero (fid, x1, y1, altezza_testo , altezza_testo, 0, 0, 0, 0.2)% --------------------------------------------------------------------------function [fid] = rettangolo_per_coprire_numero (fid,x1,y1,lato1,lato2,colore1,colore2,colore3,larghezza)
global scalafprintf(fid, [' \n']);
