Imprimer un quadrillage mercredi 10 juin 2020 20:27:09 | Membre depuis : 10 ans Messages: 4 409 |
Re: Imprimer un quadrillage mercredi 10 juin 2020 20:40:09 | Membre depuis : 10 ans Messages: 2 272 |
Re: Imprimer un quadrillage mercredi 10 juin 2020 21:05:30 | Membre depuis : 10 ans Messages: 4 409 |
Re: Imprimer un quadrillage mercredi 10 juin 2020 22:12:36 | Membre depuis : 10 ans Messages: 9 798 |
Re: Imprimer un quadrillage mercredi 10 juin 2020 22:17:37 | Membre depuis : 4 ans Messages: 360 |
Re: Imprimer un quadrillage mercredi 10 juin 2020 23:11:27 | Membre depuis : 10 ans Messages: 9 798 |
Re: Imprimer un quadrillage mercredi 10 juin 2020 23:48:26 | Membre depuis : 7 ans Messages: 52 |
Re: Imprimer un quadrillage jeudi 11 juin 2020 07:57:37 | Membre depuis : 10 ans Messages: 24 468 |
Re: Imprimer un quadrillage jeudi 11 juin 2020 09:15:09 | Membre depuis : 10 ans Messages: 8 113 |
Re: Imprimer un quadrillage jeudi 11 juin 2020 09:19:04 | Membre depuis : 10 ans Messages: 717 |
Re: Imprimer un quadrillage jeudi 11 juin 2020 09:24:39 | Membre depuis : 10 ans Messages: 9 798 |
implicit none * integer i, j, nx, ny, ncoef, npas, lx, ly character*2 papier * ncoef = 45 npas=5 * npas = 2 * * papier = 'A4' papier = 'A3' lx=420 ly=297 * lx=297 * ly=210 nx = lx/npas ny = ly/npas write (*,*) 'papier : ', papier write (*,*) 'npas = ', npas write (*,*) 'lx = ', lx write (*,*) 'ly = ', ly write (*,*) 'nx = ', nx write (*,*) 'ny = ', ny * open(10, file = 'grille.fig') * * * préambule pour le fichier au format XFIG write (10, '(a)') '#FIG 3.2 Produced by xfig version 3.2.6a' write (10, '(a)') 'Landscape' write (10, '(a)') 'Center' write (10, '(a)') 'Metric' write (10, '(a)') papier write (10, '(a)') '100.00' write (10, '(a)') 'Single' write (10, '(a)') '-2' write (10, '(a)') '1200 2' * * trace un grand rectangle de dimensions lx par ly write (10, '(a)') '2 2 0 1 0 7 50 -1 -1 0.000 0 0 -1 0 0 5' write (10,*) & 0,0, (lx*ncoef), 0, (lx*ncoef), (ly*ncoef), 0, (ly*ncoef), 0, 0 * * trace les barres verticales au pas npas do 100 i = 1, nx write (10, '(a)') '2 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 0 0 2' write (10,*) & (i*ncoef*npas), 0, (i*ncoef*npas), (ly*ncoef) 100 continue * * trace les barres horizontales au pas npas do 200 j = 1, ny write (10, '(a)') '2 1 0 1 0 7 50 -1 -1 0.000 0 0 -1 0 0 2' write (10,*) & 0, (j*ncoef*npas), (lx*ncoef), (j*ncoef*npas) 200 continue * close(10) stop end -------------------------------------------------- pour créer la grille en pdf (ou tout autre format à volonté) : gfortran cree-grille.f -o cree-grille && ./cree-grille fig2dev -L pdf grille.fig grille-A3-pas-5mm.pdf
Re: Imprimer un quadrillage jeudi 11 juin 2020 09:30:22 | Membre depuis : 10 ans Messages: 8 113 |
Re: Imprimer un quadrillage jeudi 11 juin 2020 09:37:40 | Membre depuis : 10 ans Messages: 9 798 |
Re: Imprimer un quadrillage jeudi 11 juin 2020 09:39:16 | Membre depuis : 10 ans Messages: 24 468 |
> implicit none > * > integer i, j, nx, ny, ncoef, npas, lx, ly > character*2 papier > * > ncoef = 45 > npas=5 > * npas = 2 > * > * papier = 'A4' > papier = 'A3' > lx=420 > ly=297 > * lx=297 > * ly=210 > nx = lx/npas > ny = ly/npas > write (*,*) 'papier : ', papier > write (*,*) 'npas = ', npas > write (*,*) 'lx = ', lx > write (*,*) 'ly = ', ly > write (*,*) 'nx = ', nx > write (*,*) 'ny = ', ny > * > open(10, file = 'grille.fig') > * > write (10, '(a)') '#FIG 3.2 Produced by > xfig version 3.2.6a' > write (10, '(a)') 'Landscape' > write (10, '(a)') 'Center' > write (10, '(a)') 'Metric' > write (10, '(a)') papier > write (10, '(a)') '100.00' > write (10, '(a)') 'Single' > write (10, '(a)') '-2' > write (10, '(a)') '1200 2' > write (10, '(a)') '2 2 0 1 0 7 50 -1 -1 > 0.000 0 0 -1 0 0 5' > write (10,*) > & 0,0, (lx*ncoef), 0, (lx*ncoef), (ly*ncoef), > 0, (ly*ncoef), 0, 0 > * > do 100 i = 1, nx > write (10, '(a)') '2 1 0 1 0 7 50 -1 -1 > 0.000 0 0 -1 0 0 2' > write (10,*) > & (i*ncoef*npas), 0, (i*ncoef*npas), > (ly*ncoef) > 100 continue > * > do 200 j = 1, ny > write (10, '(a)') '2 1 0 1 0 7 50 -1 -1 > 0.000 0 0 -1 0 0 2' > write (10,*) > & 0, (j*ncoef*npas), (lx*ncoef), > (j*ncoef*npas) > 200 continue > * > close(10) > stop > end > > -------------------------------------------------- > > > pour créer la grille en pdf (ou tout autre format > à volonté) : > > gfortran cree-grille.f -o cree-grille && > ./cree-grille > > fig2dev -L pdf grille.fig grille-A3-pas-5mm.pdf > >
Re: Imprimer un quadrillage jeudi 11 juin 2020 09:40:32 | Membre depuis : 10 ans Messages: 24 468 |
Re: Imprimer un quadrillage jeudi 11 juin 2020 10:48:56 | Membre depuis : 10 ans Messages: 9 798 |
Re: Imprimer un quadrillage jeudi 11 juin 2020 10:50:16 | Membre depuis : 8 ans Messages: 3 539 |
Re: Imprimer un quadrillage jeudi 11 juin 2020 10:57:38 | Membre depuis : 10 ans Messages: 4 409 |
Re: Imprimer un quadrillage jeudi 11 juin 2020 11:00:53 | Membre depuis : 10 ans Messages: 4 409 |
Re: Imprimer un quadrillage jeudi 11 juin 2020 11:03:23 | Membre depuis : 10 ans Messages: 2 964 |
Re: Imprimer un quadrillage jeudi 11 juin 2020 11:03:41 | Membre depuis : 10 ans Messages: 24 468 |
Re: Imprimer un quadrillage jeudi 11 juin 2020 11:10:58 | Membre depuis : 10 ans Messages: 9 798 |
Re: Imprimer un quadrillage jeudi 11 juin 2020 17:00:17 | Membre depuis : 10 ans Messages: 1 608 |
Re: Imprimer un quadrillage jeudi 11 juin 2020 22:24:00 | Membre depuis : 10 ans Messages: 2 118 |
Re: Imprimer un quadrillage samedi 13 juin 2020 01:11:02 | Membre depuis : 10 ans Messages: 458 |
Re: Imprimer un quadrillage samedi 13 juin 2020 01:14:08 | Membre depuis : 10 ans Messages: 458 |
Re: Imprimer un quadrillage samedi 13 juin 2020 01:32:39 | Membre depuis : 10 ans Messages: 458 |
Re: Imprimer un quadrillage samedi 13 juin 2020 22:43:25 | Membre depuis : 10 ans Messages: 4 409 |