MACRO VISAGE * MACROS POUR LE DESSIN ET L'ANIMATION D'UN VISAGE * * OUVERT LE 19 JANVIER 2013 * FORTRAN/FILE 66 PAW.PS * * Fabrication de fichiers encapsulated pour Latex (avec META 66 -113 * sinon pas de bounding box) * * en largeur *META 66 -112 * en hauteur (attention, il faut changer taille chiffres axes) META 66 -111 * fabrication de encapsulated postscript (p. 286 du manuel) *META 66 -113 * IGSET * SET * OPTION * * EXEC VISAGE#PARG * EXEC VISAGE#DESSIN2 * CLOSE 66 RETURN ************************************************************************ MACRO PARG *DEFINIT LES PARAMETRES POUR LE TRACE DU GRAPHIQUE AVEC TITRE AXES * XL=27. *XL=19. *YL=27 YL=19. * * OPTION EN HAUTEUR (PLUSIEURS GRAPHIQUES SUR LA MEME PAGE) * attention! il faut dans ce cas changer taille chiffres axes *XL=19. *YL=27. * *OPTION DATE ; SET DATE 1 *OPTION FILE ; SET FILE 2 | 11/1/2006 marche pas SIZE [XL] [YL] * * DEUX GRAPHIQUES COTE A COTE *ZONE 2 1 * DEUX GRAPHIQUES L'UN EN DESSOUS DE L'AUTRE *ZONE 1 2 * TROIS GRAPHIQUES L'UN EN DESSOUS DE L'AUTRE *ZONE 1 3 * QUATRE GRAPHIQUES *ZONE 2 2 * * TITRE GLOBAL TITLE ' ' * * EPAISSEUR TRAIT BOITE SET BWID 2 * EPAISSEUR TRAIT FUNCTION *SET FWID 15 IGSET LTYP 1 IGSET LWID 14. * HAUTEUR ET FONTE CHIFFRES AXES *SET VSIZ 0.40 *SET VFON -40 *SET VFON -60 SET VFON -20 SET VSIZ 0.50 * HAUTEUR ET FONTE TITRE (Histogram title -> pas utilise) *SET TSIZ 0.40 *SET TFON -40 SET TSIZ 0.50 SET TFON -60 * FONTE ET TAILLE POUR LES TITRES DES AXES X ET Y SET LFON -30 *SET ASIZ 0.40 | trop petit pour reduction type HCL (0.5 X 0.80) SET ASIZ 0.46 * LONGUEURS TICKMARKS SET XTIC 0.50 SET YTIC 0.50 * MARGES EN X A DROITE ET A GAUCHE SET XMGR 1.4 SET XMGL 2.7 * ESPACE AXES-CHIFFRES SET XVAL 0.5 SET YVAL 0.3 * ESPACES AXES-TITRES DES AXES: YLAB,XLAB *(LES TITRES SONT HORS DU GRAND CADRE XSIZ,YSIZ MAIS CELA SE PASSE BIEN) SET YLAB 1.4 SET XLAB 2.1 * FONTE ET TAILLE POUR ``TITLE'' SET GFON -20 ; SET GSIZE 0.30 * OPTION NBOX *OPTION BOX RETURN ********************************************** MACRO DESSIN1 [1] [2] [3] * * RECOPIAGES DE COURBES DEFINIES DANS XFIG * * EPAISSEUR DE BASE DU TRAIT LA=[1] * RAPPORT D'HOMOTHETIE POUR LA BOUCHE K=[2] * ECRITURE (OU NON) DES NUMEROS DES PARTIES W=0 * J=1 N[J]=68 VE/CR C[J](2,[N[J]]) R _ 6510 6015 6645 5805 6855 5685 7035 5640 7170 5640 7305 5670 _ 7380 5625 7455 5370 7515 5115 7515 4860 7545 4725 _ 7695 4725 7905 4650 7905 4440 7875 4365 7935 4245 _ 8100 3990 8145 3840 8100 3675 7995 3495 7890 3420 _ 7815 3360 7695 3375 7575 3420 7545 3420 7470 3075 _ 7380 2865 7275 2640 7065 2340 6840 2070 6420 1815 _ 6015 1575 5415 1440 4965 1380 4530 1395 3885 1530 _ 3405 1650 3000 1845 2790 2070 2475 2445 2265 2730 _ 2130 3015 2040 3285 1995 3525 1785 3495 1575 3525 _ 1440 3645 1365 3795 1380 3960 1440 4140 1530 4290 _ 1575 4440 1530 4605 1545 4755 1665 4845 1830 4830 _ 1980 4815 1950 4980 1980 5205 2040 5430 2115 5655 _ 2160 5820 2205 5865 2385 5865 2595 5880 2715 5940 _ 2835 6030 6510 6015 * ABSCISSE DU MILIEU DE LA FIGURE XMID=$SIGMA((2835+6510)/2) * J=2 N[J]=31 VE/CR C[J](2,[N[J]]) R _ 6000 2625 6255 2655 6390 2685 6555 2775 6705 2835 6840 2940 _ 6945 3030 7035 3150 7110 3285 7140 3480 7110 3660 _ 7005 3810 6855 4035 6675 4170 6360 4290 6045 4350 _ 5745 4365 5400 4290 5145 4140 4995 3990 4875 3825 _ 4800 3660 4755 3495 4770 3375 4815 3225 4905 3060 _ 5085 2880 5340 2730 5610 2655 5745 2610 6000 2625 * J=3 N[J]=12 VE/CR C[J](2,[N[J]]) R _ 3420 1770 3585 1470 3720 1275 3915 1110 4110 915 4500 810 _ 4725 795 4890 840 5070 900 5220 1005 5310 1110 _ 5385 1215 * J=4 N[J]=16 VE/CR C[J](2,[N[J]]) R _ 4095 1635 4245 1455 4440 1215 4605 1080 4740 945 4920 840 _ 5175 750 5460 780 5640 840 5790 945 5925 1080 _ 6015 1200 6105 1350 6180 1530 6195 1620 _ 6180 1605 * J=5 N[J]=29 VE/CR C[J](2,[N[J]]) R _ 6510 6045 6645 5835 6780 5730 6885 5685 7020 5655 7140 5640 _ 7275 5685 7425 5805 7470 5910 7500 6075 7515 6210 _ 7485 6330 7425 6465 7365 6525 7290 6585 7155 6600 _ 7035 6570 6975 6495 6945 6405 6900 6315 6870 6225 _ 6825 6135 6780 6105 6735 6060 6675 6015 6630 6000 _ 6585 6000 6570 6000 6510 6045 * J=6 N[J]=24 VE/CR C[J](2,[N[J]]) R _ 7350 5715 7455 5640 7620 5625 7830 5730 7905 5805 7995 5940 _ 8040 6075 8070 6210 8055 6300 7995 6405 7920 6465 _ 7800 6480 7695 6480 7605 6435 7530 6405 7485 6345 _ 7500 6285 7515 6150 7500 6045 7470 5940 7425 5850 _ 7395 5805 7365 5730 7350 5715 * J=7 N[J]=25 VE/CR C[J](2,[N[J]]) R _ 7875 5760 8040 5655 8265 5640 8385 5700 8490 5760 8595 5850 _ 8655 5940 8700 6075 8715 6165 8655 6300 8565 6345 _ 8490 6390 8415 6390 8280 6375 8190 6360 8145 6330 _ 8085 6285 8085 6225 8055 6150 8040 6075 8010 6015 _ 7950 5910 7905 5865 7890 5805 7875 5760 * J=8 N[J]=35 VE/CR C[J](2,[N[J]]) R _ 3615 4410 3555 4500 3570 4590 3555 4680 3555 4770 3600 4845 _ 3675 4935 3720 4935 3780 4935 3870 4905 3915 4875 _ 3945 4830 3975 4890 4050 4965 4110 5025 4200 5085 _ 4365 5115 4500 5145 4650 5115 4830 5145 4935 5115 _ 5070 5070 5160 5040 5235 4995 5295 4935 5355 4890 _ 5385 4815 5520 4905 5610 4920 5745 4890 5880 4815 _ 5940 4725 5940 4590 5895 4500 _ 5835 4425 * J=9 N[J]=29 VE/CR C[J](2,[N[J]]) R _ 3960 5415 3870 5490 3810 5595 3765 5670 3765 5700 3810 5610 _ 3870 5550 3945 5640 4050 5700 4200 5805 4350 5820 _ 4635 5865 4800 5865 4935 5850 5100 5835 5265 5775 _ 5370 5730 5475 5640 5520 5595 5550 5565 5580 5535 _ 5550 5475 5520 5415 5490 5400 5580 5475 5595 5535 _ 5610 5565 5655 5640 _ 5640 5685 * J=10 N[J]=30 VE/CR C[J](3,[N[J]]) R _ 2865 6030 1 2745 5970 1 2640 5910 1 2520 5880 1 2430 5865 1 _ 2310 5895 1 _ 2235 5955 1 2175 6000 1 2115 6075 1 2055 6120 1 2010 6180 1 _ 1980 6225 1 1935 6330 1 1920 6420 1 1935 6495 1 1965 6585 1 _ 2025 6645 1 2070 6690 1 2160 6735 1 2250 6750 1 2430 6720 1 _ 2475 6645 1 2505 6540 1 2550 6435 1 2565 6345 1 2610 6270 1 _ 2670 6165 1 2715 6105 1 2760 6060 1 _ 2865 6030 1 * J=11 N[J]=34 VE/CR C[J](3,[N[J]]) R _ 2355 5895 1 _ 2160 5865 1 2085 5850 1 1995 5850 1 1905 5880 1 1830 5940 1 _ 1740 6030 1 1680 6075 1 1635 6120 1 1605 6180 1 1560 6270 1 _ 1545 6330 1 1530 6405 1 1530 6480 1 1545 6555 1 1575 6600 1 _ 1650 6705 1 1755 6735 1 1830 6750 1 1950 6735 1 1995 6705 1 _ 2040 6675 1 1950 6630 1 1920 6570 1 1920 6480 1 1920 6420 1 _ 1950 6330 1 1980 6255 1 2025 6150 1 2100 6060 1 2175 6015 1 _ 2265 5925 1 2295 5895 1 _ 2355 5895 1 * J=12 N[J]=29 VE/CR C[J](3,[N[J]]) R _ 1785 5985 1 _ 1650 5865 1 1575 5895 1 1485 5925 1 1350 5940 1 1215 6045 1 _ 1155 6090 1 1065 6165 1 975 6270 1 915 6360 1 915 6450 1 _ 945 6525 1 1005 6600 1 1080 6645 1 1185 6690 1 1395 6675 1 _ 1485 6630 1 1530 6600 1 1575 6585 1 1530 6525 1 1515 6465 1 _ 1515 6390 1 1545 6300 1 1575 6255 1 1605 6180 1 1665 6120 1 _ 1695 6060 1 1740 6030 1 _ 1785 5985 1 * J=13 N[J]=37 VE/CR C[J](3,[N[J]]) R _ 5265 3915 1 _ 5235 3990 1 5265 4050 1 5295 4125 1 5355 4185 1 5385 4200 1 _ 5430 4230 1 5490 4260 1 5565 4260 1 5655 4275 1 5715 4260 1 _ 5790 4230 1 5850 4215 1 5925 4155 1 5970 4080 1 5985 4005 1 _ 6015 3945 1 6015 3900 1 6000 3855 1 5985 3765 1 5940 3720 1 _ 5865 3645 1 5805 3615 1 5745 3585 1 5700 3555 1 5625 3555 1 _ 5550 3570 1 5490 3585 1 5430 3615 1 5370 3660 1 5325 3690 1 _ 5280 3735 1 5265 3810 1 5235 3840 1 5235 3900 1 5235 3945 1 _ 5265 3915 1 * J=14 N[J]=37 VE/CR C[J](3,[N[J]]) R _ 4380 3915 1 _ 4335 3825 1 4290 3720 1 4245 3660 1 4200 3615 1 4125 3555 1 _ 4065 3525 1 4005 3525 1 3915 3510 1 3825 3525 1 3765 3555 1 _ 3720 3585 1 3690 3600 1 3645 3645 1 3585 3690 1 3555 3750 1 _ 3540 3795 1 3540 3855 1 3525 3945 1 3570 4065 1 3615 4125 1 _ 3660 4200 1 3705 4245 1 3765 4275 1 3825 4290 1 3915 4305 1 _ 4005 4290 1 4065 4260 1 4140 4245 1 4185 4215 1 4230 4170 1 _ 4290 4110 1 4320 4050 1 4335 3990 1 4335 3960 1 4335 3945 1 _ 4380 3915 1 * J=15 N[J]=12 VE/CR C[J](3,[N[J]]) R _ 5475 3930 1 _ 5505 3960 1 5580 3960 1 5595 3930 1 5610 3900 1 5595 3870 1 _ 5550 3840 1 5520 3810 1 5490 3825 1 5460 3855 1 5445 3885 1 _ 5475 3930 1 * J=16 N[J]=12 VE/CR C[J](3,[N[J]]) R _ 3960 3930 1 _ 3945 3885 1 3885 3840 1 3825 3825 1 3765 3855 1 3750 3915 1 _ 3780 3960 1 3855 3990 1 3900 3990 1 3945 3960 1 3960 3930 1 _ 3960 3930 1 * J=17 N[J]=14 VE/CR C[J](3,[N[J]]) R _ 7110 3315 1 _ 7185 3270 1 7305 3195 1 7425 3150 1 7485 3105 1 7575 3060 1 _ 7710 3045 1 7800 3045 1 7890 3045 1 7980 3075 1 8040 3105 1 _ 8085 3105 1 8115 3135 1 _ 8145 3165 1 * J=18 N[J]=16 VE/CR C[J](3,[N[J]]) R _ 2490 3255 1 _ 2355 3180 1 2160 3075 1 1980 3000 1 1890 2925 1 1875 2925 1 _ 1845 2925 1 1800 2940 1 1755 2955 1 1740 2970 1 1695 3000 1 _ 1680 3045 1 1635 3060 1 1620 3075 1 1575 3105 1 _ 1575 3120 1 * J=19 N[J]=23 VE/CR C[J](3,[N[J]]) R _ 7440 4320 1 _ 7560 4275 1 7605 4200 1 7560 4110 1 7515 4020 1 7455 3975 1 _ 7410 3885 1 7410 3840 1 7425 3780 1 7485 3720 1 7545 3690 1 _ 7635 3630 1 7665 3615 1 7695 3585 1 7740 3570 1 7800 3555 1 _ 7860 3585 1 7890 3630 1 7920 3645 1 7935 3705 1 7965 3720 1 _ 7980 3750 1 7995 3810 1 * J=20 N[J]=17 VE/CR C[J](3,[N[J]]) R _ 2085 4470 1 _ 1995 4410 1 1995 4350 1 1980 4260 1 1980 4185 1 2025 4125 1 _ 2055 4050 1 2055 3960 1 2025 3885 1 1965 3795 1 1875 3750 1 _ 1770 3720 1 1665 3720 1 1575 3735 1 1515 3795 1 1485 3855 1 _ 1515 3900 1 * X1=0 ; X2=9000 ; Y1=-8000 ; Y2=1000 *NULL [X1] [X2] [Y1] [Y2] * IGSET TXFP -20 ; IGSET CHHE 1.0 ; IGSET TXCI 2 JM=20 * * DESSIN DES MORCEAUX *DO J=3,4 DO J=1,[JM] N=[N[J]] SIGMA C=C[J] VE/CR XT([N]) R ; VE/CR YT([N]) R DO I=1,[N] A1=C(1,[I]) ; VE/IN XT([I]) [A1] B1=C(2,[I]) ; VE/IN YT([I]) [B1] ENDDO SIGMA YT=-YT * * CONTOUR VISAGE IF [J]=1 THEN IGSET LWID [LA] ; IGSET PLCI 1 ; GRAPH [N] XT YT L * REMPLISSAGE: FAIS-> style solid, FACI-> couleur IGSET FAIS 1 ; IGSET FACI 6 ; FAREA [N] XT YT ENDIF * * LUNETTES (DROITE PUIS GAUCHE) IF [J]=2 THEN IGSET LWID [LA] ; IGSET PLCI 1 ; GRAPH [N] XT YT L IGSET FACI 0 ; FAREA [N] XT YT * IF [W]=1 THEN L=$SIGMA(INT([N]/2)) XP=XT([L]) ; YP=YT([L]) ; ITX [XP] [YP] [J] ENDIF * XMIN=$SIGMA(VMIN(XT)) ; XMAX=$SIGMA(VMAX(XT)) DD=[XMAX]-[XMIN] ; SIGMA XT=XT-[DD] GRAPH [N] XT YT L IGSET FACI 0 ; FAREA [N] XT YT * IF [W]=1 THEN L=$SIGMA(INT([N]/2)) XP=XT([L]) ; YP=YT([L]) ; ITX [XP] [YP] [J] ENDIF * ENDIF * * CHEVEU IF [J]=3 THEN LA1=[LA]/2 IGSET LWID [LA1] ; IGSET PLCI 1 ; GRAPH [N] XT YT L IF [W]=1 THEN L=$SIGMA(INT([N]/2)) XP=XT([L]) ; YP=YT([L]) ; ITX [XP] [YP] [J] ENDIF ENDIF * * CHEVEU IF [J]=4 THEN LA1=[LA]/2 IGSET LWID [LA1] ; IGSET PLCI 1 ; GRAPH [N] XT YT L IF [W]=1 THEN L=$SIGMA(INT([N]/2)) XP=XT([L]) ; YP=YT([L]) ; ITX [XP] [YP] [J] ENDIF ENDIF * IF [J]=5 THEN IGSET LWID [LA] ; IGSET PLCI 1 ; GRAPH [N] XT YT L *XMIN=$SIGMA(VMIN(XT)) *SIGMA XT=XT-[XMIN] ; SIGMA XT=-XT *DD=[XMIN]-[XMID] ; DD=[XMID]-[DD] ; SIGMA XT=XT+[DD] *GRAPH [N] XT YT L* IF [W]=1 THEN L=$SIGMA(INT([N]/2)) XP=XT([L]) ; YP=YT([L]) ; ITX [XP] [YP] [J] ENDIF ENDIF * IF [J]=6 THEN IGSET LWID [LA] ; IGSET PLCI 1 ; GRAPH [N] XT YT L IF [W]=1 THEN L=$SIGMA(INT([N]/2)) XP=XT([L]) ; YP=YT([L]) ; ITX [XP] [YP] [J] ENDIF ENDIF * IF [J]=7 THEN IGSET LWID [LA] ; IGSET PLCI 1 ; GRAPH [N] XT YT L ENDIF * IF [J]=8 THEN IGSET LWID [LA] ; IGSET PLCI 1 ; GRAPH [N] XT YT L ENDIF * IF [J]=9 THEN LA1=[LA]*0.7 IGSET LWID [LA] ; IGSET PLCI 1 N=$SIGMA(NCO(XT)) ; N1=$SIGMA(INT([N]/2)) XC=XT([N1]) ; YC=YT([N1]) EXEC MANM#HOMT XT YT [XC] [YC] [K] ENDIF * IF [J]=10 THEN IGSET LWID [LA] ; IGSET PLCI 1 ; GRAPH [N] XT YT L ENDIF * IF [J]=11 THEN IGSET LWID [LA] ; IGSET PLCI 1 ; GRAPH [N] XT YT L ENDIF * IF [J]=12 THEN IGSET LWID [LA] ; IGSET PLCI 1 ; GRAPH [N] XT YT L ENDIF * IF [J]=13 THEN IGSET LWID [LA] ; IGSET PLCI 1 ; GRAPH [N] XT YT L IGSET FACI 1 ; FAREA [N] XT YT ENDIF * IF [J]=14 THEN IGSET LWID [LA] ; IGSET PLCI 1 ; GRAPH [N] XT YT L IGSET FACI 1 ; FAREA [N] XT YT ENDIF * IF [J]=15 THEN LA1=[LA]/10 IGSET LWID [LA1] ; IGSET PLCI 1 ; GRAPH [N] XT YT L IGSET FACI 0 ; FAREA [N] XT YT ENDIF * IF [J]=16 THEN LA1=[LA]/10 IGSET LWID [LA1] ; IGSET PLCI 1 ; GRAPH [N] XT YT L IGSET FACI 0 ; FAREA [N] XT YT ENDIF * IF [J]=17 THEN LA1=2*[LA] IGSET LWID [LA1] ; IGSET PLCI 1 ; GRAPH [N] XT YT L ENDIF * IF [J]=18 THEN LA1=2*[LA] IGSET LWID [LA1] ; IGSET PLCI 1 ; GRAPH [N] XT YT L ENDIF * IF [J]=19 THEN IGSET LWID [LA] ; IGSET PLCI 1 ; GRAPH [N] XT YT L ENDIF * IF [J]=20 THEN IGSET LWID [LA] ; IGSET PLCI 1 ; GRAPH [N] XT YT L ENDIF * VE/DE XT,YT ENDDO * * NUMEROTATION DES MORCEAUX DO J=1,[JM] N=[N[J]] SIGMA C=C[J] VE/CR XT([N]) R ; VE/CR YT([N]) R DO I=1,[N] A1=C(1,[I]) ; VE/IN XT([I]) [A1] B1=C(2,[I]) ; VE/IN YT([I]) [B1] ENDDO SIGMA YT=-YT * IF [W]=1 THEN L=$SIGMA(INT([N]/2)) XP=XT([L]) ; YP=YT([L]) ; ITX [XP] [YP] [J] ENDIF VE/DE XT,YT ENDDO 2: VE/DE * RETURN **************************************************** MACRO DESSIN2 * * 1) MODIFICATION DE LA TAILLE DE LA BOUCHE GOTO 1 X1=0 ; X2=9000 ; Y1=-8000 ; Y2=1000 NULL [X1] [X2] [Y1] [Y2] LA=8 ; K=0.5 ; W=0 EXEC MANM#DESSIN1 [LA] [K] [W] 1: **** * 4 IMAGES DE PLUS EN PLUS PROCHES *GOTO 2 OPTION BOX SET GFON -90 ; SET GSIZ 0.4 SET YGTI 3 TT=Fait avec PAW le 12 mai 2012 TITLE [TT] XL=27 ; YL=27 ; SIZE [XL] [YL] ZONE 2 2 *ZONE 1 4 * * VALEURS DE X1,X2,Y1,Y2 -> REVIENT A UN AGRANDISSEMENT AG1=0.6 ; AG2=0.4 ; AG3=0.2 ; AG4=0 * EPAISSEUR DU TRAIT LA1=2 ; LA2=4 ; LA3=6 ; LA4=8 * RAPPORT D'HOMOTHETIE (POUR LA BOUCHE) K1=0.4 ; K2=0.7 ; K3=1 ; K4=1.3 * IGSET TXFP -10 ; IGSET CHHE 0.30 DO K=1,4 X1=0 ; X2=9000 ; Y1=-8000 ; Y2=1000 XX=[X2]-[X1] ; XC=[XX]/2 ; YY=[Y2]-[Y1] ; YC=[YY]/2 X1=$SIGMA([X1]-[XX]*[AG[K]]) ; X2=$SIGMA([X2]+[XX]*[AG[K]]) Y1=$SIGMA([Y1]-[YY]*[AG[K]]) ; Y2=$SIGMA([Y2]+[YY]*[AG[K]]) NULL [X1] [X2] [Y1] [Y2] AB * IF [K]=1 THEN NT=9 T1=Comment voit-on que ces dessins sont faits T2=avec un programme et non a la main\77 T3=' ' T4=Regardez la bouche. T5=Sa largeur augmente au fil des images. T6=Cela est fait (par homoth\323tie), T7=juste avec une seule ligne de programme. T8=De la m\327me fa\321on on pourrait animer T9=les yeux ou les mains. YE=800 ; YP=-8000 DO JT=1,[NT] XP=100 ; YP=[YP]-[YE] ; ITX [XP] [YP] [T[JT]] ENDDO ENDIF * MESSAGE X1=[X1] X2=[X2] Y1=[Y1] Y2=[Y2] EXEC MANM#DESSIN1 [LA[K]] [K[K]] ENDDO 2: * VE/DE * RETURN **********************************************