#!/bin/csh ####################################################################################################################################### # # # N O T A : # # # # # # Author of '$xiirv/$Fnota' : # # # # Jean-Francois COLONNA (LACTAMME, AAAAMMJJhhmmss). # # # ####################################################################################################################################### ####################################################################################################################################### # # # Q U E L Q U E S E X P L I C A T I O N S : # # # # # # Nota : # # # # Les images de nom '$xiirv/MAPN.*' # # correspondent a la version du programme # # 'v $xrv/particule.10$K' anterieure a # # 19971113103239. Les parametres correspondant # # ont ete conserves dans 'v $Darchives/19971114115314/$Fnota'. # # Les images de nom '$xiirv/MAPn.*' correspondent # # evidemment a la version posterieure... # # # ####################################################################################################################################### ####################################################################################################################################### # # # G E N E R A T E U R S D E S C O U R B E S D E H I L B E R T E T P E A N O : # # # # # # Nota : # # # # A la date du 20230106103125, les differentes # # images de courbes de Hilbert et Peano ont ete # # calculees a l'aide des generateurs de '$xci' # # suivants : # # # # # # $xiirv/HILB.12 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.13 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.14 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.14$STEREO $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.15 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.15$STEREO $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.22 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.23 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.24 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.25 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.26 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.2A $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.34 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.35 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.44 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.45 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.54 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.55 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.64 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.65 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.74 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.75 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.84 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.85 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.94 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.95 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.A3 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.B5 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.C5 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.E4 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.F4 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.G6 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.H6 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.I2 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.I3 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.I4 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.I5 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.J2 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.J3 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.J4 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.J5 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.J6 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.J7 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.J8 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.K2 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.K3 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.K4 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.K5 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.K6 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.L2 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.L3 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.L4 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.L5 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.M5 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.N6 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.N8 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.O6 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.O8 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.P6 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.P8 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.Q6 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.Q8 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.R6 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.R8 $xci/valeurs_Hilbert2D$X # # $xiirv/HILB.X5 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.X5.1 $xci/valeurs_Hilbert3D$X # # $xiirv/HILB.Y5 $xci/valeurs_Hilbert3D$X # # # # $xiirv/PEAN.12 $xci/valeurs_Peano3D$X # # $xiirv/PEAN.13 $xci/valeurs_Peano3D$X # # $xiirv/PEAN.14 $xci/valeurs_Peano3D$X # # $xiirv/PEAN.22 $xci/valeurs_Peano2D$X # # $xiirv/PEAN.24 $xci/valeurs_Peano2D$X # # $xiirv/PEAN.26 $xci/valeurs_Peano2D$X # # $xiirv/PEAN.28 $xci/valeurs_Peano2D$X # # $xiirv/PEAN.31 (--> HILB.31 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.32 (--> HILB.32 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.33 (--> HILB.33 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.34 (--> HILB.34 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.35 (--> HILB.35 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.35.1 (--> HILB.35.1 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.36 (--> HILB.36 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.36.1 (--> HILB.36.1 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.41 (--> HILB.41 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.42 (--> HILB.42 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.43 (--> HILB.43 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.44 (--> HILB.44 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.45 (--> HILB.45 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.46 (--> HILB.46 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.51 (--> HILB.51 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.52 (--> HILB.52 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.61 (--> HILB.61 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.62 (--> HILB.62 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.63 (--> HILB.63 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.64 (--> HILB.64 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.65 (--> HILB.65 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.71 (--> HILB.71 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.72 (--> HILB.72 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.73 (--> HILB.73 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.74 (--> HILB.74 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.75 (--> HILB.75 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.81 (--> HILB.81 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.82 (--> HILB.82 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.83 (--> HILB.83 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.84 (--> HILB.84 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.91 (--> HILB.91 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.92 (--> HILB.92 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.93 (--> HILB.93 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.94 (--> HILB.94 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.95 (--> HILB.95 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.A1 (--> HILB.A1 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.A2 (--> HILB.A2 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.A3 (--> HILB.A3 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.A4 (--> HILB.A4 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.A5 (--> HILB.A5 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.B1 (--> HILB.B1 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.B2 (--> HILB.B2 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.B3 (--> HILB.B3 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.B4 (--> HILB.B4 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.B5 (--> HILB.B5 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.C1 (--> HILB.C1 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.C2 (--> HILB.C2 ?) $xci/valeurs_TransformationPeano3D$X # # $xiirv/PEAN.D6 $xci/valeurs_Peano2D$X # # $xiirv/PEAN.D8 $xci/valeurs_Peano2D$X # # $xiirv/PEAN.E6 $xci/valeurs_Peano2D$X # # $xiirv/PEAN.E8 $xci/valeurs_Peano2D$X # # $xiirv/PEAN.F6 $xci/valeurs_Peano2D$X # # $xiirv/PEAN.F8 $xci/valeurs_Peano2D$X # # $xiirv/PEAN.G6 (--> HILB.G6 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.G7 (--> HILB.G7 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.H6 (--> HILB.H6 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.H7 (--> HILB.H7 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.I6 (--> HILB.I6 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.I7 (--> HILB.I7 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.J6 (--> HILB.J6 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.J7 (--> HILB.J7 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.K6 $xci/valeurs_Peano2D$X # # $xiirv/PEAN.K8 $xci/valeurs_Peano2D$X # # $xiirv/PEAN.L6 (--> HILB.L6 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.L7 (--> HILB.L7 ?) $xci/valeurs_TransformationPeano2D$X # # $xiirv/PEAN.M6 $xci/valeurs_Peano2D$X # # $xiirv/PEAN.M8 $xci/valeurs_Peano2D$X # # # # # # ce qui ne montre aucune anomalie de # # correspondance entre {HILB,PEAN} et # # le nom des programmes utilises. # # # # # # Mais, on notera les definitions des six # # programmes utilises : # # # # $xci/valeurs_Hilbert2D$K Reecritures 2D # # $xci/valeurs_Hilbert3D$K Reecritures 3D # # $xci/valeurs_Peano2D$K Surjection 2D (decimales) # # $xci/valeurs_Peano3D$K Surjection 3D (decimales) # # $xci/valeurs_TransformationPeano2D$K Iteration 2D des coordonnees (de Hilbert en fait !) # # $xci/valeurs_TransformationPeano3D$K Iteration 3D des coordonnees (de Hilbert en fait !) # # # # d'ou une anomalie de terminologie ("Peano" a la # # place de "Hilbert" pour "valeurs_Transformation"). Il # # semble qu'elle soit compliquee a corriger completement. # # En effet, toutes les images ayant ete generees # # avec '$xci/valeurs_TransformationPeano2D$X' ou # # '$xci/valeurs_TransformationPeano3D$X' devraient # # etre rebaptisees : # # # # PEAN --> HILB # # # # Mais les programmes eux-memes devraient l'etre : # # # # $xci/valeurs_TransformationPeano2D$K --> $xci/valeurs_TransformationHilbert2D$K # # $xci/valeurs_TransformationPeano3D$K --> $xci/valeurs_TransformationHilbert3D$K # # # # et aussi toutes les pages de '$xiMd' et '$xiMi' # # associees. Cela est difficile, voire impossible... # # # # La solution a consiste a modifier les legendes # # des images concernees ('v $xau/LACT19.zzH1$Z') # # sans changer leur nom et a mettre a jour de plus # # les commentaires de 'v $xci/valeurs_TransformationPeano2D$K', # # 'v $xci/valeurs_TransformationPeano2D$I' et de # # 'v $xci/valeurs_TransformationPeano3D$K' la ou # # c'etait possible... # # # ####################################################################################################################################### ####################################################################################################################################### # # # V I S U A L I S A T I O N D E S D E C I M A L E S D ' U N E C O N S T A N T E : # # # # # # Nota : # # # # Lorsque la visualisation se fait en base 10, # # il n'y a pas d'ambiguite. Par contre s'il y a # # un changement de base, deux cas vont se presenter # # suivant que l'on garde la partie entiere et le # # point decimale ou pas... # # # # Ainsi, par exemple (avec '$BC') : # # # # Base 10 : Base 6 : # # # # ibase=10; ibase=10; # # scale=10; scale=10; # # obase=10; obase=6; # # pi=16*a(1/5)-4*a(1/239)=3.1415926532 pi=16*a(1/5)-4*a(1/239)=3.0503300514142 # # ------------- # # # # -------> 3.1415926532; --> 3.0503300514142 # # | ============= # # | # # | --> 1415926532; --> 3523001152322 # # | | ############# # # | | # # La partie decimale est bien convertie si l'on | | # # conserve la partie entiere et le point decimal ------------- | # # (ici "3."), ce qui n'est plus vrai, s'ils sont | # # supprimes... ---------------------------------------------------- # # # # # # Par la suite, il y aura donc deux facons de # # proceder suivant les 'include's choisis : # # # # # # 1-Avec CONSERVATION de la partie entiere et du # # point decimal : # # # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # ou : # # # # $m4 _____include(_____xiirv/.PIPO.B1.2._____U) # # # # qui provoquent : # # # # $Z $CA $_____FDecimales | \ # # $Z $SE -e "s/^ *//" \ # # $Z -e "s/,/./" | \ # # # # # # Cela concerne les images : # # # # # # $xiirv/MDCH.11.21 # # $Z set _____FDecimales=$xrp/Decimales_Base10_Champernowne_____113894 # # $Z set _____NIterations=113894 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $xiirv/MDCH.21.21 # # $Z set _____FDecimales=$xrp/Decimales_Base16_Champernowne_____130643 # # $Z set _____NIterations=130643 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $xiirv/MDCH.31.21 # # $Z set _____FDecimales=$xrp/Decimales_Base10_ChampernownePrime_____168982 # # $Z set _____NIterations=168982 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $xiirv/MDEN.11.21 # # $Z set _____FDecimales=$xrp/Decimales_Base10_E_____100000 # # $Z set _____NIterations=100000 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $xiirv/MDPH.11.21 # # $Z set _____FDecimales=$xrp/Decimales_Base10_Phi_____100000 # # $Z set _____NIterations=100000 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $xiirv/MDPI.11.2 # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NIterations=100000 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $xiirv/MDPI.11.21 # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NIterations=100000 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $xiirv/MDR2.11.21 # # $Z set _____FDecimales=$xrp/Decimales_Base10_Sqrt2_____100000 # # $Z set _____NIterations=100000 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $xiirv/PIPO.71 # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $xiirv/PIPO.72 # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $xiirv/PIPO.73 # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=100000 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $xiirv/PIPO.74 # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=100000 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $xiirv/PIPO.81.2 # # $xiirv/PIPO.81.21 # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $xiirv/PIPO.82.2 # # $xiirv/PIPO.82.21 # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=4000 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $xiirv/PIPO.83.2 # # $xiirv/PIPO.83.21 # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $xiirv/PIPO.A1.2 # # $xiirv/PIPO.A1.21 # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=100000 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $xiirv/PIPO.B1 # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $m4 _____include(_____xiirv/.PIPO.B1.2._____U) # # # # $xiirv/PIPO.B2 # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $m4 _____include(_____xiirv/.PIPO.B1.2._____U) # # # # $xiirv/PIPQ.37.1 # # $xiirv/PIPQ.37.21 # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $xiirv/PIPQ.47.1 # # $xiirv/PIPQ.47.21 # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # # # 2-Avec SUPPRESSION de la partie entiere et du # # point decimal : # # # # $m4 _____include(_____xiirv/.PIPO.21.2._____U) # # # # ou : # # # # $m4 _____include(_____xiirv/.PIPO.61.2._____U) # # # # qui provoquent : # # # # $Z $CA $_____FDecimales | \ # # $Z $SE -e "s/^ *//" \ # # $Z -e "s/^3[,.]//" | \ # # # # # # Cela concerne les images : # # # # # # $xiirv/PIPO.21 # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $m4 _____include(_____xiirv/.PIPO.21.2._____U) # # # # $xiirv/PIPO.22 # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $m4 _____include(_____xiirv/.PIPO.21.2._____U) # # # # $xiirv/PIPO.31.2 # # $xiirv/PIPO.31.21 # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $m4 _____include(_____xiirv/.PIPO.21.2._____U) # # # # $xiirv/PIPO.51.2 # # $xiirv/PIPO.51.21 # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=100000 # # $m4 _____include(_____xiirv/.PIPO.21.2._____U) # # # # $xiirv/PIPO.51.HauteDef.1.1 # # $xiirv/PIPO.51.HauteDef.1.2 # # $xiirv/PIPO.51.HauteDef.1.3 # # $xiirv/PIPO.51.HauteDef.1.4 # # $xiirv/PIPO.51.HauteDef.1.5 # # # # $xiirv/PIPO.52.HauteDef.21 # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=100000 # # $m4 _____include(_____xiirv/.PIPO.21.2._____U) # # # # $xiirv/PIPO.61 # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=2000 # # $m4 _____include(_____xiirv/.PIPO.61.2._____U) # # # # $xiirv/PIPO.62 # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=2000 # # $m4 _____include(_____xiirv/.PIPO.61.2._____U) # # # # $xiirv/PIPQ.21.HauteDef.1.1 # # $xiirv/PIPQ.21.HauteDef.1.4 # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=100000 # # $m4 _____include(_____xiirv/.PIPO.21.2._____U) # # # ####################################################################################################################################### ####################################################################################################################################### # # # V E R I F I C A T I O N D U 20240904113804 : # # # # # # Nota : # # # # En utilisant 'v $xiirv/.CheckChiffresDecimales.01.$U' # # on a les parametres suivants : # # # # # # Generation......... = {Debut_listG_MDCH_11,Fin_listG_MDCH_11} # # Conversion du nombre decimal 0.123456789101112131... de 113.894 chiffres -base 10- # # en .042355555..., soit 0423555555... de 146.363 chiffres -base 6- sans la partie entiere. # # Pcreation MDCH.11.21 # # # # # # Generation......... = {Debut_listG_MDCH_21,Fin_listG_MDCH_21} # # Conversion du nombre decimal 0.1234510111213141520... de 130.644 chiffres -base 6- # # en 0.1234..., soit 1234510111... de 130.643 chiffres -base 6- sans la partie entiere. # # Pcreation MDCH.21.21 # # # # # # Generation......... = {Debut_listG_MDCH_31,Fin_listG_MDCH_31} # # Conversion du nombre decimal 0.235711131719232931... de 168.982 chiffres -base 10- # # en .122525201..., soit 1225252010... de 217.156 chiffres -base 6- sans la partie entiere. # # Pcreation MDCH.31.21 # # # # # # Generation......... = {Debut_listG_MDEN_11,Fin_listG_MDEN_11} # # Conversion du nombre decimal 2.718281828459045235... de 100.000 chiffres -base 10- # # en 2.41505205..., soit 4150520535... de 128.508 chiffres -base 6- sans la partie entiere. # # Pcreation MDEN.11.21 # # # # # # Generation......... = {Debut_listG_MDPH_11,Fin_listG_MDPH_11} # # Conversion du nombre decimal 1.618033988749894848... de 100.000 chiffres -base 10- # # en 1.34125455..., soit 3412545543... de 128.508 chiffres -base 6- sans la partie entiere. # # Pcreation MDPH.11.21 # # # # # # Generation......... = {Debut_listG_MDPI_11,Fin_listG_MDPI_11} # # Conversion du nombre decimal 3.141592653589793238... de 100.000 chiffres -base 10- # # en 3.05033005..., soit 0503300514... de 128.508 chiffres -base 6- sans la partie entiere. # # Pcreation MDPI.11.2 # # Pcreation MDPI.11.21 # # # # # # Generation......... = {Debut_listG_MDR2_11,Fin_listG_MDR2_11} # # Conversion du nombre decimal 1.414213562373095048... de 100.000 chiffres -base 10- # # en 1.22524531..., soit 2252453142... de 128.508 chiffres -base 6- sans la partie entiere. # # Pcreation MDR2.11.21 # # # # # # Generation......... = {Debut_listG_MDRD_11,Fin_listG_MDRD_11} # # Conversion du nombre entier 145350213240515455533... de 130.643 chiffres -base 6- # # en 14535..., soit 1453502132... de 130.643 chiffres -base 6- sans la partie entiere. # # Pcreation MDRD.11.21 # # # # # # Generation......... = {Debut_listG_PIPO_21,Fin_listG_PIPO_21} # # Conversion du nombre entier 14159265358979323846... de 10.001 chiffres -base 10- # # en 4503152313... de 12.850 chiffres -base 6- sans la partie entiere. # # Pcreation PIPO.21 # # # # # # Generation......... = {Debut_listG_PIPO_22,Fin_listG_PIPO_22} # # Conversion du nombre entier 14159265358979323846... de 10.001 chiffres -base 10- # # en 4503152313... de 12.850 chiffres -base 6- sans la partie entiere. # # Pcreation PIPO.22 # # # # # # Generation......... = {Debut_listG_PIPO_31,Fin_listG_PIPO_31} # # Conversion du nombre entier 14159265358979323846... de 10.001 chiffres -base 10- # # en 4503152313... de 12.850 chiffres -base 6- sans la partie entiere. # # Pcreation PIPO.31.2 # # Pcreation PIPO.31.21 # # # # # # Generation......... = {Debut_listG_PIPO_42,Fin_listG_PIPO_42} # # Conversion du nombre entier 14159265358979323846... de 100.001 chiffres -base 10- # # en 3031424432... de 128.509 chiffres -base 6- sans la partie entiere. # # # # # # Generation......... = {Debut_listG_PIPO_51,Fin_listG_PIPO_51} # # Conversion du nombre entier 14159265358979323846... de 100.001 chiffres -base 10- # # en 3031424432... de 128.509 chiffres -base 6- sans la partie entiere. # # Pcreation PIPO.51.2 # # Pcreation PIPO.51.21 # # Pcreation PIPO.51.21.M # # Pcreation PIPO.51.21.m # # Pcreation PIPO.51.HD.1.1 # # Pcreation PIPO.51.HD.1.2 # # Pcreation PIPO.51.HD.1.3 # # Pcreation PIPO.51.HD.1.4 # # Pcreation PIPO.51.HD.1.5 # # # # # # Generation......... = {Debut_listG_PIPO_51_HD,Fin_listG_PIPO_51_HD} # # Conversion du nombre entier 14159265358979323846... de 100.001 chiffres -base 10- # # en 3031424432... de 128.509 chiffres -base 6- sans la partie entiere. # # Pcreation PIPO.51.HD.1.1 # # Pcreation PIPO.51.HD.1.2 # # Pcreation PIPO.51.HD.1.3 # # Pcreation PIPO.51.HD.1.4 # # Pcreation PIPO.51.HD.1.5 # # # # # # Generation......... = {Debut_listG_PIPO_52_HD,Fin_listG_PIPO_52_HD} # # Conversion du nombre entier 14159265358979323846... de 100.001 chiffres -base 10- # # en 3031424432... de 128.509 chiffres -base 6- sans la partie entiere. # # Pcreation PIPO.52.HD.21 # # Pcreation PIPO.52.HD.M # # # # # # Generation......... = {Debut_listG_PIPO_61,Fin_listG_PIPO_61} # # Conversion du nombre entier 14159265358979323846... de 2.001 chiffres -base 10- # # en 2003033002... de 3.321 chiffres -base 4- sans la partie entiere. # # Pcreation PIPO.61 # # # # # # Generation......... = {Debut_listG_PIPO_62,Fin_listG_PIPO_62} # # Conversion du nombre entier 14159265358979323846... de 2.001 chiffres -base 10- # # en 2003033002... de 3.321 chiffres -base 4- sans la partie entiere. # # Pcreation PIPO.62 # # # # # # Generation......... = {Debut_listG_PIPO_71,Fin_listG_PIPO_71} # # Conversion du nombre decimal 3.141592653589793238... de 10.000 chiffres -base 10- # # en 3.05033005..., soit 0503300514... de 12.849 chiffres -base 6- sans la partie entiere. # # Pcreation PIPO.71 # # # # # # Generation......... = {Debut_listG_PIPO_72,Fin_listG_PIPO_72} # # Conversion du nombre decimal 3.141592653589793238... de 10.000 chiffres -base 10- # # en 3.05033005..., soit 0503300514... de 12.849 chiffres -base 6- sans la partie entiere. # # Pcreation PIPO.72 # # # # # # Generation......... = {Debut_listG_PIPO_73,Fin_listG_PIPO_73} # # Conversion du nombre decimal 3.141592653589793238... de 100.000 chiffres -base 10- # # en 3.05033005..., soit 0503300514... de 128.508 chiffres -base 6- sans la partie entiere. # # Pcreation PIPO.73 # # # # # # Generation......... = {Debut_listG_PIPO_74,Fin_listG_PIPO_74} # # Conversion du nombre decimal 3.141592653589793238... de 100.000 chiffres -base 10- # # en 3.05033005..., soit 3050330051... de 128.509 chiffres -base 6- avec la partie entiere. # # Pcreation PIPO.74 # # # # # # Generation......... = {Debut_listG_PIPO_81,Fin_listG_PIPO_81} # # Conversion du nombre decimal 3.141592653589793238... de 10.000 chiffres -base 10- # # en 3.05033005..., soit 0503300514... de 12.849 chiffres -base 6- sans la partie entiere. # # Pcreation PIPO.81.2 # # Pcreation PIPO.81.21 # # # # # # Generation......... = {Debut_listG_PIPO_82,Fin_listG_PIPO_82} # # Conversion du nombre decimal 3.141592653589793238... de 4.000 chiffres -base 10- # # en 3.05033005..., soit 0503300514... de 5.138 chiffres -base 6- sans la partie entiere. # # Pcreation PIPO.82.2 # # Pcreation PIPO.82.21 # # # # # # Generation......... = {Debut_listG_PIPO_83,Fin_listG_PIPO_83} # # Conversion du nombre decimal 3.141592653589793238... de 10.000 chiffres -base 10- # # en 3.05033005..., soit 0503300514... de 12.849 chiffres -base 6- sans la partie entiere. # # Pcreation PIPO.83.2 # # Pcreation PIPO.83.21 # # Pcreation PIPO.83.21.M # # # # # # Generation......... = {Debut_listG_PIPO_92,Fin_listG_PIPO_92} # # Conversion du nombre decimal 3.141592653589793238... de 100.000 chiffres -base 10- # # en 3.05033005..., soit 0503300514... de 128.508 chiffres -base 6- sans la partie entiere. # # # # # # Generation......... = {Debut_listG_PIPO_A1,Fin_listG_PIPO_A1} # # Conversion du nombre decimal 3.141592653589793238... de 100.000 chiffres -base 10- # # en 3.05033005..., soit 0503300514... de 128.508 chiffres -base 6- sans la partie entiere. # # Pcreation PIPO.A1.2 # # Pcreation PIPO.A1.21.2.M # # Pcreation PIPO.A1.21 # # # # # # Generation......... = {Debut_listG_PIPO_B1,Fin_listG_PIPO_B1} # # Conversion du nombre decimal 3.141592653589793238... de 10.000 chiffres -base 10- # # en 3.02100333..., soit 0210033312... de 16.607 chiffres -base 4- avec la partie entiere. # # Pcreation PIPO.B1 # # # # # # Generation......... = {Debut_listG_PIPO_B2,Fin_listG_PIPO_B2} # # Conversion du nombre decimal 3.141592653589793238... de 10.000 chiffres -base 10- # # en 3.02100333..., soit 0210033312... de 16.607 chiffres -base 4- avec la partie entiere. # # Pcreation PIPO.B2 # # NombreDecimales=10465 # # # # Generation......... = {Debut_listG_PIPO_F1,Fin_listG_PIPO_F1} # # Conversion du nombre decimal 3.152599863909995049... de 10.000 chiffres -base 10- # # en 3.05254341..., soit 0525434110... de 12.849 chiffres -base 6- sans la partie entiere. # # NombreDecimales=10465 # # # # Generation......... = {Debut_listG_PIPO_F2,Fin_listG_PIPO_F2} # # Conversion du nombre decimal 3.152599863909995049... de 10.000 chiffres -base 10- # # en 3.05254341..., soit 0525434110... de 12.849 chiffres -base 6- sans la partie entiere. # # NombreDecimales=10465 # # # # Generation......... = {Debut_listG_PIPO_F3,Fin_listG_PIPO_F3} # # Conversion du nombre decimal 3.152599863909995049... de 10.000 chiffres -base 10- # # en 3.05254341..., soit 0525434110... de 12.849 chiffres -base 6- sans la partie entiere. # # # # # # Generation......... = {Debut_listG_PIPQ_21_HD,Fin_listG_PIPQ_21_HD} # # Conversion du nombre entier 14159265358979323846... de 100.001 chiffres -base 10- # # en 3031424432... de 128.509 chiffres -base 6- sans la partie entiere. # # Pcreation PIPQ.21.HD.1.1 # # Pcreation PIPQ.21.HD.1.4 # # # # # # Generation......... = {Debut_listG_PIPQ_35,Fin_listG_PIPQ_35} # # Conversion du nombre decimal 3.141592653589793238... de 10.000 chiffres -base 10- # # en 3.05033005..., soit 0503300514... de 12.849 chiffres -base 6- sans la partie entiere. # # # # # # Generation......... = {Debut_listG_PIPQ_36,Fin_listG_PIPQ_36} # # Conversion du nombre decimal 3.141592653589793238... de 10.000 chiffres -base 10- # # en 3.05033005..., soit 0503300514... de 12.849 chiffres -base 6- sans la partie entiere. # # # # # # Generation......... = {Debut_listG_PIPQ_37,Fin_listG_PIPQ_37} # # Conversion du nombre decimal 3.141592653589793238... de 10.000 chiffres -base 10- # # en 3.05033005..., soit 0503300514... de 12.849 chiffres -base 6- sans la partie entiere. # # Pcreation PIPQ.37.1 # # Pcreation PIPQ.37.21 # # # # # # Generation......... = {Debut_listG_PIPQ_47,Fin_listG_PIPQ_47} # # Conversion du nombre entier 050330051415124105234... de 12.849 chiffres -base 6- # # en 05033..., soit 0503300514... de 12.849 chiffres -base 6- sans la partie entiere. # # Pcreation PIPQ.47.1 # # Pcreation PIPQ.47.21 # # # # # # Generation......... = {Debut_listG_PRIM_J4_7,Fin_listG_PRIM_J4_7} # # Conversion du nombre entier 352410215043243021545... de 8.188 chiffres -base 6- # # en 35241..., soit 3524102150... de 8.188 chiffres -base 6- sans la partie entiere. # # Pcreation PRIM.J4.7.21 # # # # # # Generation......... = {Debut_listG_PRIM_K4_7,Fin_listG_PRIM_K4_7} # # Conversion du nombre entier 352410215043243021545... de 8.188 chiffres -base 6- # # en 35241..., soit 3524102150... de 8.188 chiffres -base 6- sans la partie entiere. # # Pcreation PRIM.K4.7.21 # # # ####################################################################################################################################### v $xiirv/ARPJ.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_ARPJ_11: # # # # $Z Pdu # # # # $Z set Image1=1 # # $Z set ImageN=4 # # $Z set ListeG=(37 67 76 123) # # $Z set ListeI=`$xci/nombres$X A="$K_VIDE" p=$Image1 d=$ImageN` # # # # $Z set index=$Image1 # # # # $Z FilSTmpB LImAgES # # # # $Z while ($index <= $ImageN) # # $Z set _____Graine=$ListeG[$index] # # $Z set _____ImageR=$LImAgES.$ListeI[$index] # # # # $m4 _____include(_____xiirv/.ARPJ.11.1._____U) # # # # $Z @ index = $index + 1 # # $Z end # # # # $Z set _____ImageR=$xiirv/ARPJ.11 # # # # $Z execRVB $xci/reduction_04$X \ # # $Z A=$LImAgES. \ # # $Z premiere=$Image1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z postfixe=%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # $Z FilSTmpE LImAgES # # # # :Fin_listG_ARPJ_11: # # # # # # Il s'agit de quatre images "a la maniere de Jean Arp"... # v $xiirv/ATLA.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_ATLA_11: # # # # $Z Sdu # # # # $Z set _____ImageR=$xiirv/ATLA.11 # # $m4 _____include(_____xiirv/.ATLA.11.1._____U) # # # # $Z set _____Erosion=9 # # $Z set _____Dilatation=81 # # $Z set _____Diagonale=VRAI # # $Z set _____NiveauAleatoire=VRAI # # $Z set _____GraineNiveau=1789 # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____PaletteC=$xiP/Atlan.11 # # $Z set _____AttenuationA=1 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z R=$xTV/ATLA.11 \ # # $Z $formatI # # # # $Z execRVB "$xci/cache$X \ # # $Z A=$xTV/CARREAUX%s \ # # $Z M=$xTV/ATLA.11 \ # # $Z anti_aliasing=FAUX \ # # $Z $formatI | \ # # $Z $xci/eor$X \ # # $Z A2=$xTV/ATLA.11 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=9 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____ImageP=$xTV/DEFORMATION # # $m4 _____include(_____xiirv/.DELA.11.2._____U) # # # # $Z $DELETE $_____ImageR$COORD_X # # $Z $DELETE $_____ImageR$COORD_Y # # # # $Z set _____GraineB=2061 # # # # $Z $xci/random.01$X \ # # $Z graine=$_____GraineB \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z rNOIR=$GRIS_6 rBLANC=$GRIS_8 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=9 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$xTV/BRUIT_BLANC \ # # $Z $formatI # # # # $Z execRVB $xci/multi_02.01$X \ # # $Z A1=$xTV/BRUIT_BLANC \ # # $Z A2=$_____ImageR%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_ATLA_11: # # # # # # Il s'agit d'un "a la maniere de Jean-Michel Atlan"... # v $xiirv/ATLA.11.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_ATLA_11_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/ATLA.11 # # $Z set _____ImageR=$_____ImageA.1 # # $Z $xci/random.01$X \ # # $Z R=$xTV/ATLA.11.1 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z seuil=$BLANC_PLANCHER \ # # $Z $formatI | \ # # $Z $xci/and$X \ # # $Z A2=$xTV/ATLA.11.1 \ # # $Z R=$xTV/ATLA.11.2 \ # # $Z $formatI # # # # $Z $xci/convol.01$X \ # # $Z A=$xTV/ATLA.11.2 \ # # $Z points=25 \ # # $Z circulaire_optimale=VRAI circulaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/scale$X \ # # $Z a=0.20 \ # # $Z R=$xTV/ATLA.11.3 \ # # $Z $formatI # # # # $Z execRVB "$xci/cache$X \ # # $Z A=$xTV/ATLA.11.3 \ # # $Z M=$_____ImageA%s \ # # $Z $formatI | \ # # $Z $xci/shuffling.01$X \ # # $Z inverse=VRAI \ # # $Z fX=0.006 fY=0.006 \ # # $Z R=$xTV/ATLA.11.4%s \ # # $Z $formatI" # # # # $Z $xci/fract_2D.01$X \ # # $Z iterations=4 \ # # $Z mx=0.1 my=0.1 \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z puissance_image=VRAI \ # # $Z exposant=2 \ # # $Z R=$xTV/ATLA.11.5 \ # # $Z $formatI # # # # $Z execRVB $xci/convol.02$X \ # # $Z A=$xTV/ATLA.11.4%s \ # # $Z fp=0.4 \ # # $Z N=$xTV/ATLA.11.5 \ # # $Z V=$BLANC \ # # $Z F=$BLANC \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_ATLA_11_1: # # # v $xiirv/ATLA.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_ATLA_21: # # # # $Z Sdu # # # # $Z set _____ImageR=$xiirv/ATLA.21 # # $m4 _____include(_____xiirv/.ATLA.11.1._____U) # # # # $Z set _____Erosion=9 # # $Z set _____Dilatation=81 # # $Z set _____Diagonale=VRAI # # $Z set _____NiveauAleatoire=VRAI # # $Z set _____GraineNiveau=1789 # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____PaletteC=$xiP/Atlan.21 # # $Z set _____AttenuationA=1 # # $Z SET _____PerturberNiveaux=$EXIST # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z R=$xTV/ATLA.21 \ # # $Z $formatI # # # # $Z execRVB "$xci/cache$X \ # # $Z A=$xTV/CARREAUX%s \ # # $Z M=$xTV/ATLA.21 \ # # $Z anti_aliasing=FAUX \ # # $Z $formatI | \ # # $Z $xci/eor$X \ # # $Z A2=$xTV/ATLA.21 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=9 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____ImageP=$xTV/DEFORMATION # # $m4 _____include(_____xiirv/.DELA.11.2._____U) # # # # $Z $DELETE $_____ImageR$COORD_X # # $Z $DELETE $_____ImageR$COORD_Y # # # # $Z set _____GraineB=2061 # # # # $Z $xci/random.01$X \ # # $Z graine=$_____GraineB \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z rNOIR=$GRIS_6 rBLANC=$GRIS_8 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=9 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$xTV/BRUIT_BLANC \ # # $Z $formatI # # # # $Z execRVB $xci/multi_02.01$X \ # # $Z A1=$xTV/BRUIT_BLANC \ # # $Z A2=$_____ImageR%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_ATLA_21: # # # # # # Il s'agit d'un "a la maniere de Jean-Michel Atlan"... # v $xiirv/ATLA.31 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_ATLA_31: # # # # $Z Sdu # # # # $Z set _____ImageR=$xiirv/ATLA.31 # # $m4 _____include(_____xiirv/.ATLA.11.1._____U) # # # # $Z set _____Erosion=9 # # $Z set _____Dilatation=81 # # $Z set _____Diagonale=VRAI # # $Z set _____NiveauAleatoire=VRAI # # $Z set _____GraineNiveau=1789 # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____PaletteC=$xiP/Atlan.31 # # $Z set _____AttenuationA=1 # # $Z SET _____PerturberNiveaux=$EXIST # # $Z set _____PerturberNiveauxO=-10 # # $Z set _____PerturberNiveauxE=+10 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z R=$xTV/ATLA.31 \ # # $Z $formatI # # # # $Z execRVB "$xci/cache$X \ # # $Z A=$xTV/CARREAUX%s \ # # $Z M=$xTV/ATLA.31 \ # # $Z anti_aliasing=FAUX \ # # $Z $formatI | \ # # $Z $xci/eor$X \ # # $Z A2=$xTV/ATLA.31 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=9 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____ImageP=$xTV/DEFORMATION # # $m4 _____include(_____xiirv/.DELA.11.2._____U) # # # # $Z $DELETE $_____ImageR$COORD_X # # $Z $DELETE $_____ImageR$COORD_Y # # # # $Z set _____GraineB=2061 # # # # $Z $xci/random.01$X \ # # $Z graine=$_____GraineB \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z rNOIR=$GRIS_6 rBLANC=$GRIS_8 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=9 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$xTV/BRUIT_BLANC \ # # $Z $formatI # # # # $Z execRVB $xci/multi_02.01$X \ # # $Z A1=$xTV/BRUIT_BLANC \ # # $Z A2=$_____ImageR%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_ATLA_31: # # # # # # Il s'agit d'un "a la maniere de Jean-Michel Atlan"... # v $xiirv/ATLA.31.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_ATLA_31_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/ATLA.31 # # $Z set _____ImageR=$_____ImageA.1 # # $Z $xci/random.01$X \ # # $Z R=$xTV/ATLA.31.1 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z seuil=$BLANC_PLANCHER \ # # $Z $formatI | \ # # $Z $xci/and$X \ # # $Z A2=$xTV/ATLA.31.1 \ # # $Z R=$xTV/ATLA.31.2 \ # # $Z $formatI # # # # $Z $xci/convol.01$X \ # # $Z A=$xTV/ATLA.31.2 \ # # $Z points=25 \ # # $Z circulaire_optimale=VRAI circulaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/scale$X \ # # $Z a=0.20 \ # # $Z R=$xTV/ATLA.31.3 \ # # $Z $formatI # # # # $Z execRVB "$xci/cache$X \ # # $Z A=$xTV/ATLA.31.3 \ # # $Z M=$_____ImageA%s \ # # $Z $formatI | \ # # $Z $xci/shuffling.01$X \ # # $Z inverse=VRAI \ # # $Z fX=0.006 fY=0.006 \ # # $Z R=$xTV/ATLA.31.4%s \ # # $Z $formatI" # # # # $Z $xci/fract_2D.01$X \ # # $Z iterations=4 \ # # $Z mx=0.1 my=0.1 \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z puissance_image=VRAI \ # # $Z exposant=2 \ # # $Z R=$xTV/ATLA.31.5 \ # # $Z $formatI # # # # $Z execRVB $xci/convol.02$X \ # # $Z A=$xTV/ATLA.31.4%s \ # # $Z fp=0.4 \ # # $Z N=$xTV/ATLA.31.5 \ # # $Z V=$BLANC \ # # $Z F=$BLANC \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_ATLA_31_1: # # # v $xiirv/AXPA.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_AXPA_11: # # # # $Z Pal # # # # $Z set _____ImagesR=$xiirv/AXPA.11 # # $m4 _____include(_____xiirv/.AXPA.11.1._____U) # # # # :Fin_listG_AXPA_11: # # # # # # Il s'agit d'une visualisation de l'axiome des paralelles de la geometrie euclidienne. # v $xiirv/BABL.11 Pal ; $xci/complement$X A=$xiirv/BABL.11$ROUGE $formatI | $xci/display$X p=$xiP/dentscie.01 d=2 animation=VRAI $formatI # Generee (sur '$LACT27') par : # # # # $Z Pal # # # # $Z $DELETE $xTV/COORDONNEES.1$COORD_X # # $Z $DELETE $xTV/COORDONNEES.1$COORD_Y # # $Z $DELETE $xTV/COORDONNEES.1$COORD_Z # # $Z $DELETE $xTV/COORDONNEES.2$COORD_X # # $Z $DELETE $xTV/COORDONNEES.2$COORD_Y # # $Z $DELETE $xTV/COORDONNEES.2$COORD_Z # # $Z $DELETE $xTV/COORDONNEES$COORD_X # # $Z $DELETE $xTV/COORDONNEES$COORD_Y # # $Z $DELETE $xTV/COORDONNEES$COORD_Z # # $Z $DELETE $xTV/RAYONS.1 # # $Z $DELETE $xTV/RAYONS.2 # # $Z $DELETE $xTV/RAYONS # # $Z $DELETE $xTV/COULEURS.1$ROUGE # # $Z $DELETE $xTV/COULEURS.1$VERTE # # $Z $DELETE $xTV/COULEURS.1$BLEUE # # $Z $DELETE $xTV/COULEURS.2$ROUGE # # $Z $DELETE $xTV/COULEURS.2$VERTE # # $Z $DELETE $xTV/COULEURS.2$BLEUE # # $Z $DELETE $xTV/COULEURS$ROUGE # # $Z $DELETE $xTV/COULEURS$VERTE # # $Z $DELETE $xTV/COULEURS$BLEUE # # # # $Z set Premiere=1 # # $Z set Derniere=100 # # # # $Z set Angle=`$xcg/MUL2.01$X n1=1.0 n2=$dpi` # # $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ # # $Z aD=0 aA=$Angle \ # # $Z alpha=0 beta=$GRIS_3 gamma=$GRIS_5 \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS.1$ROUGE # # $Z set Angle=`$xcg/MUL2.01$X n1=2.0 n2=$dpi` # # $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ # # $Z aD=0 aA=$Angle \ # # $Z alpha=0 beta=$GRIS_3 gamma=$GRIS_5 \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS.1$VERTE # # $Z set Angle=`$xcg/MUL2.01$X n1=3.0 n2=$dpi` # # $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ # # $Z aD=0 aA=$Angle \ # # $Z alpha=0 beta=$GRIS_3 gamma=$GRIS_5 \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS.1$BLEUE # # # # $Z $xci/valeurs_inte$X premiere=$Premiere derniere=$Derniere \ # # $Z vD=-0.10.0 vA=+1.10 \ # # $Z cubique=FAUX \ # # $Z > $xTV/COORDONNEES.1$COORD_X # # $Z $xci/valeurs_inte$X premiere=$Premiere derniere=$Derniere \ # # $Z vD=0.0 vA=0.0 \ # # $Z cubique=FAUX \ # # $Z > $xTV/COORDONNEES.1$COORD_Y # # $Z $xci/valeurs_inte$X premiere=$Premiere derniere=$Derniere \ # # $Z vD=0.0 vA=0.0 \ # # $Z cubique=FAUX \ # # $Z > $xTV/COORDONNEES.1$COORD_Z # # # # $Z $xci/valeurs_inte$X premiere=$Premiere derniere=$Derniere \ # # $Z vD=0.014 vA=0.014 \ # # $Z cubique=FAUX \ # # $Z > $xTV/RAYONS.1 # # # # $Z set Angle=`$xcg/MUL2.01$X n1=3.0 n2=$dpi` # # $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ # # $Z aD=0 aA=$Angle \ # # $Z alpha=0 beta=$GRIS_3 gamma=$GRIS_5 \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS.2$ROUGE # # $Z set Angle=`$xcg/MUL2.01$X n1=2.0 n2=$dpi` # # $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ # # $Z aD=0 aA=$Angle \ # # $Z alpha=0 beta=$GRIS_3 gamma=$GRIS_5 \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS.2$VERTE # # $Z set Angle=`$xcg/MUL2.01$X n1=1.0 n2=$dpi` # # $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ # # $Z aD=0 aA=$Angle \ # # $Z alpha=0 beta=$GRIS_3 gamma=$GRIS_5 \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS.2$BLEUE # # # # $Z set Angle=`$xcg/MUL2.01$X n1=2.70 n2=$dpi` # # $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ # # $Z aD=0 aA=$Angle \ # # $Z rD=1.00 rA=0.25 \ # # $Z alpha=0.1 beta=0.0 gamma=0.2 translation=0.1 \ # # $Z > $xTV/COORDONNEES.2$COORD_X # # $Z $xci/valeurs_inte$X premiere=$Premiere derniere=$Derniere \ # # $Z vD=0.40 vA=1.12 \ # # $Z cubique=FAUX \ # # $Z > $xTV/COORDONNEES.2$COORD_Y # # $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ # # $Z aD=0 aA=$Angle \ # # $Z rD=1.00 rA=0.25 \ # # $Z alpha=0.0 beta=0.1 gamma=0.2 translation=0.1 \ # # $Z > $xTV/COORDONNEES.2$COORD_Z # # # # $Z $xci/valeurs_inte$X premiere=$Premiere derniere=$Derniere \ # # $Z vD=0.008 vA=0.008 \ # # $Z cubique=FAUX \ # # $Z > $xTV/RAYONS.2 # # # # $Z $PAST $xTV/COULEURS.1$ROUGE \ # # $Z $xTV/COULEURS.2$ROUGE | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COULEURS$ROUGE # # $Z $PAST $xTV/COULEURS.1$VERTE \ # # $Z $xTV/COULEURS.2$VERTE | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COULEURS$VERTE # # $Z $PAST $xTV/COULEURS.1$BLEUE \ # # $Z $xTV/COULEURS.2$BLEUE | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COULEURS$BLEUE # # # # $Z $PAST $xTV/COORDONNEES.1$COORD_X \ # # $Z $xTV/COORDONNEES.2$COORD_X | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_X # # $Z $PAST $xTV/COORDONNEES.1$COORD_Y \ # # $Z $xTV/COORDONNEES.2$COORD_Y | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_Y # # $Z $PAST $xTV/COORDONNEES.1$COORD_Z \ # # $Z $xTV/COORDONNEES.2$COORD_Z | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_Z # # # # $Z $PAST $xTV/RAYONS.1 \ # # $Z $xTV/RAYONS.2 | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/RAYONS # # # # $Z @ Npart = $Derniere - $Premiere # # $Z @ Npart = $Npart + 1 # # $Z @ Npart = $Npart * 2 # # # # $Z $xrv/particule.10$X np=1 iterations=$Npart \ # # $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ # # $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ # # $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ # # $Z LISTE_RAYON=$xTV/RAYONS \ # # $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ # # $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ # # $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ # # $Z Lz=1000 ZOOM=1.0 TRANSLATION_OY=-0.15 \ # # $Z isoles=FAUX chainer=FAUX \ # # $Z ajuster_points=FAUX Apoints=50 \ # # $Z RVB=VRAI \ # # $Z R=$xTV/PART.1. \ # # $Z $formatI # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/complement$X \ # # $X A=$xTV/PART.1.0001%s \ # # $X R=$xiirv/BABL.11%s \ # # $X $formatI' # # # # $Z $DELETE $xTV/COORDONNEES.1$COORD_X # # $Z $DELETE $xTV/COORDONNEES.1$COORD_Y # # $Z $DELETE $xTV/COORDONNEES.1$COORD_Z # # $Z $DELETE $xTV/COORDONNEES.2$COORD_X # # $Z $DELETE $xTV/COORDONNEES.2$COORD_Y # # $Z $DELETE $xTV/COORDONNEES.2$COORD_Z # # $Z $DELETE $xTV/COORDONNEES$COORD_X # # $Z $DELETE $xTV/COORDONNEES$COORD_Y # # $Z $DELETE $xTV/COORDONNEES$COORD_Z # # $Z $DELETE $xTV/RAYONS.1 # # $Z $DELETE $xTV/RAYONS.2 # # $Z $DELETE $xTV/RAYONS # # $Z $DELETE $xTV/COULEURS.1$ROUGE # # $Z $DELETE $xTV/COULEURS.1$VERTE # # $Z $DELETE $xTV/COULEURS.1$BLEUE # # $Z $DELETE $xTV/COULEURS.2$ROUGE # # $Z $DELETE $xTV/COULEURS.2$VERTE # # $Z $DELETE $xTV/COULEURS.2$BLEUE # # $Z $DELETE $xTV/COULEURS$ROUGE # # $Z $DELETE $xTV/COULEURS$VERTE # # $Z $DELETE $xTV/COULEURS$BLEUE # # # v $xiirv/BIJE.11 v $xiirv/BIJE.11.1 v $xiirv/BIJE.11.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_BIJE_11: # # # # $Z Pal # # # # $Z set _____ImageR=$xiirv/BIJE.11 # # # # $Z execRVB $xci/init$X \ # # $Z n=$NOIR \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.BIJE.11.1._____U) # # # # $Z set _____Zoom=$_____ZoomB # # $Z set _____Rouge=$GRIS_4 # # $Z set _____Verte=$GRIS_4 # # $Z set _____Bleue=$GRIS_4 # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" AXYZ=`GetParam $xrv/particule.10$X AXYZ`" # # $Z set PaRaMC="$PaRaMC"" BXYZ=`GetParam $xrv/particule.10$X BXYZ`" # # $Z set PaRaMC="$PaRaMC"" fond=VRAI F=$_____ImageR" # # $Z set _____ParticuleParaC="$PaRaMC" # # # # $Z set _____X=$_____CentreE1X # # $Z set _____Y=$_____CentreE1Y # # $Z set _____Rayon=`calcul sqrt(2)*$_____RayonE1` # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CERC.11.1._____U) # # # # $Z set _____X=$_____CentreE2X # # $Z set _____Y=$_____CentreE2Y # # $Z set _____Rayon=`calcul sqrt(2)*$_____RayonE2` # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CERC.11.1._____U) # # # # $m4 _____include(_____xiirv/.BIJE.11.2._____U) # # $m4 _____include(_____xiirv/.BIJE.11.3._____U) # # $m4 _____include(_____xiirv/.BIJE.11.4._____U) # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" np=1" # # $Z set PaRaMC="$PaRaMC"" iterations=1" # # $Z set PaRaMC="$PaRaMC"" LISTE_Z=$_____CoordonneeZ" # # $Z set PaRaMC="$PaRaMC"" LISTE_RAYON=$_____RayonP" # # $Z set PaRaMC="$PaRaMC"" LISTE_ROUGE=$BLANC" # # $Z set PaRaMC="$PaRaMC"" LISTE_VERTE=$BLANC" # # $Z set PaRaMC="$PaRaMC"" LISTE_BLEUE=$BLANC" # # $Z set PaRaMC="$PaRaMC"" ZOOM=$_____ZoomB" # # $Z set PaRaMC="$PaRaMC"" isoles=VRAI" # # $Z set PaRaMC="$PaRaMC"" Lz=100" # # $Z set PaRaMC="$PaRaMC"" fond=VRAI F=$_____ImageR" # # $Z set _____ParticuleParaC="$PaRaMC" # # # # $Z $xrv/particule.10$X \ # # $Z LISTE_X=`calcul $_____CentreE1X-0.15` \ # # $Z LISTE_Y=`calcul $_____CentreE1Y-0.05` \ # # $Z $_____ParticuleParaC \ # # $Z chiffres=0 \ # # $Z R=$_____ImageR.1 \ # # $Z $formatI # # # # $Z $xrv/particule.10$X \ # # $Z LISTE_X=`calcul $_____CentreE2X+0.1` \ # # $Z LISTE_Y=`calcul $_____CentreE2Y+0.15` \ # # $Z chiffres=0 \ # # $Z $_____ParticuleParaC \ # # $Z R=$_____ImageR.2 \ # # $Z $formatI # # # # :Fin_listG_BIJE_11: # # # # # # qui montre une bijection entre deux ensembles... # # # # La multiplication des rayons par 'sqrt(2)' est due a fait que les coordonnees {X,Y} des # # points des deux ensembles sont tirees au sort dans deux carres. Les cercles materialisant # # ces deux ensembles doivent donc etre circonscrits aux carres... # v $xiirv/BIJE.21.sets v $xiirv/BIJE.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_BIJE_21: # # # # $Z Pal # # # # $Z set _____ImageR=$xiirv/BIJE.21 # # # # $Z SET _____CoordonneesAleatoires=$NEXIST # # $Z set _____CentreE1X=0.5 # # $Z set _____CentreE1Y=0.8 # # $Z set _____CentreE2X=0.5 # # $Z set _____CentreE2Y=0.2 # # $Z set _____RayonE1=0.4 # # $Z set _____RayonE2=0.4 # # $Z set _____RayonEA=1.5 # # $Z set _____RayonEB=0.4 # # # # $Z execRVB $xci/init$X \ # # $Z n=$NOIR \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.BIJE.11.1._____U) # # # # $Z set _____Zoom=$_____ZoomB # # $Z set _____Rouge=$GRIS_4 # # $Z set _____Verte=$GRIS_4 # # $Z set _____Bleue=$GRIS_4 # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" AXYZ=`GetParam $xrv/particule.10$X AXYZ`" # # $Z set PaRaMC="$PaRaMC"" BXYZ=`GetParam $xrv/particule.10$X BXYZ`" # # $Z set PaRaMC="$PaRaMC"" fond=VRAI F=$_____ImageR" # # $Z set _____ParticuleParaC="$PaRaMC" # # # # $Z set _____X=$_____CentreE1X # # $Z set _____Y=$_____CentreE1Y # # $Z set _____Rayon=$_____RayonE1 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CERC.11.1._____U) # # # # $Z set _____X=$_____CentreE2X # # $Z set _____Y=$_____CentreE2Y # # $Z set _____Rayon=$_____RayonE2 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CERC.11.1._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$xTV/ENSEMBLES_VIDES%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.BIJE.11.2._____U) # # $m4 _____include(_____xiirv/.BIJE.11.3._____U) # # $m4 _____include(_____xiirv/.BIJE.11.4._____U) # # # # $Z set SaVeImageR=$_____ImageR # # $Z set _____ImageR=$xTV/ENSEMBLES_VIDES # # $m4 _____include(_____xiirv/.BIJE.11.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$SaVeImageR.sets%s \ # # $Z $formatI # # # # :Fin_listG_BIJE_21: # # # # # # qui montre une bijection entre deux ensembles... # v $xiirv/BIJE.31 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_BIJE_31: # # # # $Z Pal # # # # $Z set _____ImageR=$xiirv/BIJE.31 # # # # $Z SET _____CoordonneesAleatoires=$NEXIST # # $Z set _____CentreE1X=0.5 # # $Z set _____CentreE1Y=0.8 # # $Z set _____CentreE2X=0.5 # # $Z set _____CentreE2Y=0.2 # # $Z set _____RayonE1=0.4 # # $Z set _____RayonE2=0.4 # # $Z set _____RayonEA=1.5 # # $Z set _____RayonEB=0.4 # # # # $Z execRVB $xci/init$X \ # # $Z n=$NOIR \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.BIJE.11.1._____U) # # # # $Z set _____Zoom=$_____ZoomB # # $Z set _____Rouge=$GRIS_4 # # $Z set _____Verte=$GRIS_4 # # $Z set _____Bleue=$GRIS_4 # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" AXYZ=`GetParam $xrv/particule.10$X AXYZ`" # # $Z set PaRaMC="$PaRaMC"" BXYZ=`GetParam $xrv/particule.10$X BXYZ`" # # $Z set PaRaMC="$PaRaMC"" fond=VRAI F=$_____ImageR" # # $Z set _____ParticuleParaC="$PaRaMC" # # # # $Z set _____X=$_____CentreE1X # # $Z set _____Y=$_____CentreE1Y # # $Z set _____Rayon=$_____RayonE1 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CERC.11.1._____U) # # # # $Z set _____X=$_____CentreE2X # # $Z set _____Y=$_____CentreE2Y # # $Z set _____Rayon=$_____RayonE2 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CERC.11.1._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$xTV/ENSEMBLES_VIDES%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.BIJE.11.2._____U) # # $m4 _____include(_____xiirv/.BIJE.11.3._____U) # # $m4 _____include(_____xiirv/.BIJE.31.4._____U) # # # # :Fin_listG_BIJE_31: # # # # # # qui montre une bijection entre deux ensembles... # v $xiirv/BO.13.0001$DROITE v $xiirv/BO.13.0001$GAUCHE v $xiirv/BO.13.0005$DROITE v $xiirv/BO.13.0005$GAUCHE v $xiirv/BO.13.0012$DROITE v $xiirv/BO.13.0012$GAUCHE v $xiirv/BO.13.0013$DROITE v $xiirv/BO.13.0013$GAUCHE v $xiirv/BO.14.0001$DROITE # Pour avoir plus d'informations sur ces images, voir les commentaires des sequences videos : # # # # xivPdf 2 2 / 005344_005359 # # xivPdf 2 2 / 005360_005375 # # # # ces images en etant extraites. # # # # Enfin, '$xiirv/BO.14.0001$DROITE' est obtenue en rehaussant la luminance de l'image # # '$xiirv/BO.13.0001$DROITE' a l'aide de la commande '$xci/substitue$Z' avec la palette # # '$xiP/gris.11'. # # # v $xiirv/BOLT.11 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_BOLT_11: # # # # $Z Sdu # # # # $Z set _____DemiPave=3 # # $Z set _____ImageR=$xiirv/BOLT.11 # # $m4 _____include(_____xiirv/.BOLT.11.1._____U) # # # # :Fin_listG_BOLT_11: # # # # # # qui montre l'entropie de Boltzmann... # v $xiirv/BRON.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_BRON_11: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Arbre="1/" # # $Z set _____SousArbre="$_____Arbre" # # $Z set _____NBranchesTheta=2 # # $Z set _____Iterations=3 # # $Z set _____EvasementTheta=$pis4 # # $Z set _____Zoom=0.7 # # $Z set _____RotationZ=$pi # # $Z set _____TranslationY=+0.30 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/BRON.11 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_BRON_11: # # # # # # qui montre les quatre (sur quinze) premiers etages de l'arbre bronchique. Cette image est # # "inspiree" de 'v $xiirv/TREE.23'... # v $xiirv/BRON.12 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_BRON_12: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Arbre="1/" # # $Z set _____SousArbre="$K_VIDE" # # $Z set _____NBranchesTheta=2 # # $Z set _____Iterations=7 # # $Z set _____EvasementTheta=$pis2 # # $Z set _____FEvasementTheta=0.72 # # $Z SET _____Rayon=(0.100) # # $Z set _____Zoom=0.56 # # $Z set _____RotationZ=$pi # # $Z set _____TranslationY=+0.64 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1" # # # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/BRON.12 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_BRON_12: # # # # # # qui montre les huit (sur quinze) premiers etages de l'arbre bronchique. # v $xiirv/BRON.12$m # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_BRON_12_m: # # # # $Z Pdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesA=$xiirv/BRON.12 # # $Z set _____imagesR=$_____imagesA$m # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____imagesA \ # # $Z R=$xTV/BRON.12$LUMIN \ # # $Z $formatI # # # # $Z set TrAnSlAtIoNs=`$xci/extremaXY$X A=$xTV/BRON.12$LUMIN $formatI Prme=VRAI` # # # # $Z execRVB $xci/scroll$X \ # # $Z A=$_____imagesA%s \ # # $Z toreX=FAUX \ # # $Z $TrAnSlAtIoNs \ # # $Z R=$xTV/BRON.12.1%s \ # # $Z $formatI # # # # $Z set NPoInTs=9 # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$xTV/BRON.12.1%s \ # # $Z points=`calcul $NPoInTs*$NPoInTs` \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$xTV/BRON.12.2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/BRON.12.2 \ # # $Z R=$xTV/BRON.12.9 \ # # $Z $formatI # # # # $Z $xci/tapisserie$X \ # # $Z A=$xTV/BRON.12.9 \ # # $Z iterations=8 \ # # $Z cache=VRAI \ # # $Z anti_aliaser=FAUX \ # # $Z echelle=VRAI a=0.6 \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xTV/BRON.12.3.1 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/BRON.12.3.1 \ # # $Z p=$xiP/random.86 \ # # $Z R=$xTV/BRON.12.3.2 \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/BRON.12.3.1 \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z navap=VRAI \ # # $Z passes=4 \ # # $Z R=$xTV/BRON.12.3.3 \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/BRON.12.3.3 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/BRON.12.3.2%s \ # # $Z avion=VRAI \ # # $Z Sy=20 \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$_____imagesR%s \ # # $Z $formatI" # # # # :Fin_listG_BRON_12_m: # # # v $xiirv/BROW.11 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_BROW_11: # # # # $Z Pal # # # # $Z set _____ImageR=$xiirv/BROW.11 # # $m4 _____include(_____xiirv/.BROW.11.2._____U) # # $m4 _____include(_____xiirv/.BROW.11.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # :Fin_listG_BROW_11: # # # # # # qui montre l'enveloppe externe d'un mouvement brownien bidimensionnel "monocrhome" # # en coordonnees cartesiennes... # v $xiirv/BROW.12 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_BROW_12: # # # # $Z Pal # # # # $Z SET _____Couleur=$EXIST # # $Z set _____ImageR=$xiirv/BROW.12 # # $m4 _____include(_____xiirv/.BROW.11.2._____U) # # $m4 _____include(_____xiirv/.BROW.11.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # :Fin_listG_BROW_12: # # # # # # qui montre l'enveloppe externe d'un mouvement brownien bidimensionnel ou la couleur # # permet de visualiser le temps suivant la palette {magenta,red,yellow,gree,cyan}, # # en coordonnees cartesiennes... # v $xiirv/BROW.13 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_BROW_13: # # # # $Z Pal # # # # $Z set _____Graine_X=19475 # # $Z set _____Graine_Y=17895 # # $Z set _____Graine_Z=20015 # # $Z set _____CentrerXYZ=VRAI # # $Z set _____Zoom=0.75 # # $Z SET _____Couleur=$EXIST # # $Z set _____ImageR=$xiirv/BROW.13 # # $m4 _____include(_____xiirv/.BROW.11.2._____U) # # $m4 _____include(_____xiirv/.BROW.11.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # :Fin_listG_BROW_13: # # # # # # qui montre une image similaire a 'v $xiirv/BROW.12', mais recalculee le 20161121172958 # # en 'Phu' pour 'v $Dcourrier_in/20161121172945 Angelique.Durand@universcience.fr' du # # Palais de la Decouverte. Pour le mode 'Phu', tous les parametres ont la meme valeur que # # pour le mode 'Pal'. Enfin, on notera que le mode 'Psu' demandait globalement trop de # # memoire sur '$LACT19'... # v $xiirv/BROW.13$IdM # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_BROW_13_IdM: # # # # $Z TvB # # # # $Z set _____Graine_X=19475 # # $Z set _____Graine_Y=17895 # # $Z set _____Graine_Z=20015 # # $Z set _____CentrerXYZ=VRAI # # $Z set _____Zoom=0.88 # # $Z SET _____Couleur=$EXIST # # $Z set _____ImageR=$xiirv/BROW.13$IdM # # $m4 _____include(_____xiirv/.BROW.11.2._____U) # # $m4 _____include(_____xiirv/.BROW.11.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # :Fin_listG_BROW_13_IdM: # # # v $xiirv/BROW.13.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_BROW_13_1: # # # # $Z Pal # # # # $Z execRVB $xci/init$X \ # # $Z n=$BLANC \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____Fond="fond=VRAI F=$xTV/FOND" # # # # $Z SET _____Enveloppe=$NEXIST # # $Z set _____Graine_X=19475 # # $Z set _____Graine_Y=17895 # # $Z set _____Graine_Z=20015 # # $Z set _____CentrerXYZ=VRAI # # $Z set _____Zoom=0.75 # # $Z SET _____Couleur=$EXIST # # $Z set _____ImageR=$xiirv/BROW.13.1 # # $m4 _____include(_____xiirv/.BROW.11.2._____U) # # $m4 _____include(_____xiirv/.BROW.11.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # :Fin_listG_BROW_13_1: # # # # # # qui montre une image similaire a 'v $xiirv/BROW.13', mais sans l'enveloppe... # # # # Cette image fait suite a 'v $Dcourrier_in/20170120092458 ppajot@sophiapublications.fr'. # v $xiirv/BROW.13.1$HauteDef # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_BROW_13_1_HauteDef: # # # # $Z Pqu # # # # $Z execRVB $xci/init$X \ # # $Z n=$BLANC \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____Fond="fond=VRAI F=$xTV/FOND" # # # # $Z SET _____Enveloppe=$NEXIST # # $Z set _____Graine_X=19475 # # $Z set _____Graine_Y=17895 # # $Z set _____Graine_Z=20015 # # $Z set _____CentrerXYZ=VRAI # # $Z set _____Zoom=0.75 # # $Z SET _____Couleur=$EXIST # # $Z set _____ImageR=$xiirv/BROW.13.1$HauteDef # # $m4 _____include(_____xiirv/.BROW.11.2._____U) # # $m4 _____include(_____xiirv/.BROW.11.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # :Fin_listG_BROW_13_1_HauteDef: # # # # # # qui montre une image similaire a 'v $xiirv/BROW.13.1' en plus haute resolution... # # # # Cette image fait suite a 'v $Dcourrier_in/20170120092458 ppajot@sophiapublications.fr'. # v $xiirv/BROW.13.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_BROW_13_2: # # # # $Z Pal # # # # $Z execRVB $xci/init$X \ # # $Z n=$BLANC \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____Fond="fond=VRAI F=$xTV/FOND" # # # # $Z set _____NPoints=500 # # $Z SET _____Enveloppe=$NEXIST # # $Z set _____Graine_X=19475 # # $Z set _____Graine_Y=17895 # # $Z set _____Graine_Z=20015 # # $Z set _____CentrerXYZ=VRAI # # $Z set _____Rayon=0.0007 # # $Z set _____Grossissement=1.4 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" ajuster_points=VRAI" # # $Z set _____ParticulePara="$_____ParticulePara"" equidistance=VRAI" # # $Z set _____ParticulePara="$_____ParticulePara"" distance_minimale=0.004" # # # # $Z set _____Zoom=7.00 # # $Z SET _____Couleur=$EXIST # # $Z set _____ImageR=$xiirv/BROW.13.2 # # $m4 _____include(_____xiirv/.BROW.11.2._____U) # # $m4 _____include(_____xiirv/.BROW.11.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # :Fin_listG_BROW_13_2: # # # # # # qui montre une image similaire a 'v $xiirv/BROW.13', mais sans l'enveloppe... # # # # Cette image fait suite a 'v $Dcourrier_in/20170120092458 ppajot@sophiapublications.fr'. # v $xiirv/BROW.13.3 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_BROW_13_3: # # # # $Z Pal # # # # $Z SET _____Enveloppe=$NEXIST # # $Z set _____Graine_X=19475 # # $Z set _____Graine_Y=17895 # # $Z set _____Graine_Z=20015 # # $Z set _____CentrerXYZ=VRAI # # $Z set _____Zoom=0.75 # # $Z SET _____Couleur=$NEXIST # # $Z set _____CouleurR=$GRIS_8 # # $Z set _____CouleurV=$GRIS_8 # # $Z set _____CouleurB=$GRIS_8 # # $Z set _____ImageR=$xiirv/BROW.13.3 # # $m4 _____include(_____xiirv/.BROW.11.2._____U) # # $m4 _____include(_____xiirv/.BROW.11.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # $Z execRVB $xci/complement$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_BROW_13_3: # # # # # # qui montre une image similaire a 'v $xiirv/BROW.13', mais sans l'enveloppe... # # # # Cette image fait suite a 'v $Dcourrier_in/20170120092458 ppajot@sophiapublications.fr'. # v $xiirv/BROW.13.4 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_BROW_13_4: # # # # $Z Pal # # # # $Z set _____NPoints=500 # # $Z SET _____Enveloppe=$NEXIST # # $Z set _____Graine_X=19475 # # $Z set _____Graine_Y=17895 # # $Z set _____Graine_Z=20015 # # $Z set _____CentrerXYZ=VRAI # # $Z set _____Rayon=0.0007 # # $Z set _____Grossissement=1.4 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" ajuster_points=VRAI" # # $Z set _____ParticulePara="$_____ParticulePara"" equidistance=VRAI" # # $Z set _____ParticulePara="$_____ParticulePara"" distance_minimale=0.004" # # # # $Z set _____Zoom=7.00 # # $Z SET _____Couleur=$NEXIST # # $Z set _____CouleurR=$GRIS_8 # # $Z set _____CouleurV=$GRIS_8 # # $Z set _____CouleurB=$GRIS_8 # # $Z set _____ImageR=$xiirv/BROW.13.4 # # $m4 _____include(_____xiirv/.BROW.11.2._____U) # # $m4 _____include(_____xiirv/.BROW.11.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # $Z execRVB $xci/complement$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_BROW_13_4: # # # # # # qui montre une image similaire a 'v $xiirv/BROW.13', mais sans l'enveloppe... # # # # Cette image fait suite a 'v $Dcourrier_in/20170120092458 ppajot@sophiapublications.fr'. # v $xiirv/BROW.14 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_BROW_14: # # # # $Z Pal # # # # $Z set _____BorneAbsolue=0.015 # # $Z set _____Graine_X=93 # # $Z set _____Graine_Y=73 # # $Z SET _____Couleur=$EXIST # # $Z set _____ImageR=$xiirv/BROW.14 # # $m4 _____include(_____xiirv/.BROW.11.2._____U) # # $m4 _____include(_____xiirv/.BROW.11.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # $m4 _____include(_____xiirv/.BROW.11.4._____U) # # # # :Fin_listG_BROW_14: # # # # # # qui montre l'enveloppe externe d'un mouvement brownien bidimensionnel ou la couleur # # permet de visualiser le temps suivant la palette {magenta,red,yellow,gree,cyan}, # # en coordonnees cartesiennes avec l'histogramme des distances... # # # # On notera au passage que les parametres {$_____Graine_X,$_____Graine_Y} sont identiques # # a ceux de l'inage 'v $xiirv/BROW.24' (tridimensionnelle...). # v $xiirv/BROW.21 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_BROW_21: # # # # $Z Pal # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____Zoom=1.0 # # $Z set _____ImageR=$xiirv/BROW.21 # # $m4 _____include(_____xiirv/.BROW.11.2._____U) # # $m4 _____include(_____xiirv/.BROW.11.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # :Fin_listG_BROW_21: # # # # # # qui montre l'enveloppe externe d'un mouvement brownien tridimensionnel "monocrhome" # # en coordonnees cartesiennes... # v $xiirv/BROW.22 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_BROW_22: # # # # $Z Pal # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z SET _____Couleur=$EXIST # # $Z set _____Zoom=1.0 # # $Z set _____ImageR=$xiirv/BROW.22 # # $m4 _____include(_____xiirv/.BROW.11.2._____U) # # $m4 _____include(_____xiirv/.BROW.11.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # :Fin_listG_BROW_22: # # # # # # qui montre l'enveloppe externe d'un mouvement brownien tridimensionnel ou la couleur # # permet de visualiser le temps suivant la palette {magenta,red,yellow,gree,cyan}, # # en coordonnees cartesiennes... # v $xiirv/BROW.22.1 # Generee (sur '$LACT16') a partir de 'v $xiav/BROW.22$R16' par : # # # # # # :Debut_listG_BROW_22_1: # # # # $Z Pal # # # # $Z eval `$xci/genere$X \\\ # # $Z commande='($xci/accumule.01$X \\\ # # $Z A=$xTV/BROWN. \\\ # # $Z postfixe=%s \\\ # # $Z premiere=1 derniere=64 \\\ # # $Z maximum=VRAI \\\ # # $Z lineaire=VRAI depart=0.0 arrivee=1.0 \\\ # # $Z R=$xiirv/BROW.22.1%s \\\ # # $Z $formatI)' \\\ # # $Z en_tete=FAUX RVB=VRAI separateur=VRAI` # # # # :Fin_listG_BROW_22_1: # # # v $xiirv/BROW.24 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_BROW_24: # # # # $Z Pal # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____BorneAbsolue=0.013 # # $Z set _____Graine_X=93 # # $Z set _____Graine_Y=73 # # $Z set _____Graine_Z=53 # # $Z SET _____Couleur=$EXIST # # $Z set _____Zoom=1.0 # # $Z set _____ImageR=$xiirv/BROW.24 # # $m4 _____include(_____xiirv/.BROW.11.2._____U) # # $m4 _____include(_____xiirv/.BROW.11.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # $m4 _____include(_____xiirv/.BROW.11.4._____U) # # # # :Fin_listG_BROW_24: # # # # # # qui montre l'enveloppe externe d'un mouvement brownien tridimensionnel ou la couleur # # permet de visualiser le temps suivant la palette {magenta,red,yellow,gree,cyan}, # # en coordonnees cartesiennes avec l'histogramme des distances... # # # # On notera au passage que les parametres {$_____Graine_X,$_____Graine_Y} sont identiques # # a ceux de l'inage 'v $xiirv/BROW.14' (bidimensionnelle...). # v $xiirv/BROW.32 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_BROW_32: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set _____BorneInfT=$pis2 # # $Z set _____BorneSupT=$pis2 # # $Z SET _____TriDimensionnel=$EXIST # # $Z SET _____Couleur=$EXIST # # $Z set _____CentrerXYZ=VRAI # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/BROW.32 # # $m4 _____include(_____xiirv/.BROW.31.2._____U) # # $m4 _____include(_____xiirv/.BROW.31.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # :Fin_listG_BROW_32: # # # # # # qui montre l'enveloppe externe d'un mouvement brownien bidimensionnel ou la couleur # # permet de visualiser le temps suivant la palette {magenta,red,yellow,gree,cyan}, # # en coordonnees spheriques... # v $xiirv/BROW.42 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_BROW_42: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z SET _____Couleur=$EXIST # # $Z set _____CentrerXYZ=VRAI # # $Z set _____AZ=2 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xiirv/BROW.42 # # $m4 _____include(_____xiirv/.BROW.31.2._____U) # # $m4 _____include(_____xiirv/.BROW.31.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # :Fin_listG_BROW_42: # # # # # # qui montre l'enveloppe externe d'un mouvement brownien tridimensionnel ou la couleur # # permet de visualiser le temps suivant la palette {magenta,red,yellow,gree,cyan}, # # en coordonnees spheriques... # v $xiirv/BROW.52.1 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_BROW_52_1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set _____BorneInfR=+0.000 # # $Z set _____BorneSupR=+0.010 # # $Z set _____BorneInfT=$pis2 # # $Z set _____BorneSupT=$pis2 # # $Z set _____Loi="loi=1" # # $Z SET _____TriDimensionnel=$EXIST # # $Z SET _____Couleur=$EXIST # # $Z set _____CentrerXYZ=VRAI # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/BROW.52.1 # # $m4 _____include(_____xiirv/.BROW.31.2._____U) # # $m4 _____include(_____xiirv/.BROW.31.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # $m4 _____include(_____xiirv/.BROW.31.4._____U) # # # # :Fin_listG_BROW_52_1: # # # # # # qui montre l'enveloppe externe d'un mouvement brownien bidimensionnel ou la couleur # # permet de visualiser le temps suivant la palette {magenta,red,yellow,gree,cyan}, # # en coordonnees spheriques avec visualisation de la distribution uniforme des 'RHO's. # v $xiirv/BROW.52.2 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_BROW_52_2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set _____BorneInfR=+0.010 # # $Z set _____BorneSupR=+0.015 # # $Z set _____BorneInfT=$pis2 # # $Z set _____BorneSupT=$pis2 # # $Z set _____Loi="loi=2 loi_GAUSS_ecart_type=0.1" # # $Z SET _____TriDimensionnel=$EXIST # # $Z SET _____Couleur=$EXIST # # $Z set _____CentrerXYZ=VRAI # # $Z set _____Zoom=0.5 # # $Z set _____ImageR=$xiirv/BROW.52.2 # # $m4 _____include(_____xiirv/.BROW.31.2._____U) # # $m4 _____include(_____xiirv/.BROW.31.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # $m4 _____include(_____xiirv/.BROW.31.4._____U) # # # # :Fin_listG_BROW_52_2: # # # # # # qui montre l'enveloppe externe d'un mouvement brownien bidimensionnel ou la couleur # # permet de visualiser le temps suivant la palette {magenta,red,yellow,gree,cyan}, # # en coordonnees spheriques avec visualisation de la distribution gaussienne des 'RHO's. # v $xiirv/BROW.52.3 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_BROW_52_3: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set _____BorneInfR=+0.034 # # $Z set _____BorneSupR=+0.036 # # $Z set _____BorneInfT=$pis2 # # $Z set _____BorneSupT=$pis2 # # $Z set _____Loi="loi=3 lASp=$xiP/dentscie.02 lASs=ROUGE" # # $Z SET _____TriDimensionnel=$EXIST # # $Z SET _____Couleur=$EXIST # # $Z set _____CentrerXYZ=VRAI # # $Z set _____Zoom=0.17 # # $Z set _____Rayon=0.010 # # $Z set _____ImageR=$xiirv/BROW.52.3 # # $m4 _____include(_____xiirv/.BROW.31.2._____U) # # $m4 _____include(_____xiirv/.BROW.31.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # $m4 _____include(_____xiirv/.BROW.31.4._____U) # # # # :Fin_listG_BROW_52_3: # # # # # # qui montre l'enveloppe externe d'un mouvement brownien bidimensionnel ou la couleur # # permet de visualiser le temps suivant la palette {magenta,red,yellow,gree,cyan}, # # en coordonnees spheriques avec visualisation de la distribution quelconque des 'RHO's. # v $xiirv/BROW.62.20 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_BROW_62_20: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set _____NPoints=20 # # $Z set _____BorneInfR=+0.000 # # $Z set _____BorneSupR=+0.010 # # $Z set _____BorneInfT=$pis2 # # $Z set _____BorneSupT=$pis2 # # $Z SET _____TriDimensionnel=$EXIST # # $Z SET _____Couleur=$EXIST # # $Z set _____CentrerXYZ=FAUX # # $Z set _____Zoom=40 # # $Z set _____Rayon=0.0002 # # $Z set _____Grossissement=1.3 # # $Z set _____Rpoints=2 # # $Z set _____RVB=FAUX # # $Z set _____Chiffres=0 # # $Z SET _____Enveloppe=$NEXIST # # # # $Z set _____Loi="loi=1" # # $Z set _____ImageR1=$xTV/BROW.52.1 # # $Z set _____ImageR=$_____ImageR1 # # $m4 _____include(_____xiirv/.BROW.31.2._____U) # # $m4 _____include(_____xiirv/.BROW.31.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # $Z set _____Loi="loi=2 loi_GAUSS_ecart_type=0.1" # # $Z set _____ImageR2=$xTV/BROW.52.2 # # $Z set _____ImageR=$_____ImageR2 # # $m4 _____include(_____xiirv/.BROW.31.2._____U) # # $m4 _____include(_____xiirv/.BROW.31.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # $Z set _____Loi="loi=3 lASp=$xiP/dentscie.02 lASs=ROUGE" # # $Z set _____ImageR3=$xTV/BROW.52.3 # # $Z set _____ImageR=$_____ImageR3 # # $m4 _____include(_____xiirv/.BROW.31.2._____U) # # $m4 _____include(_____xiirv/.BROW.31.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # $Z set _____ImageR=$xiirv/BROW.62.20 # # # # $Z $xci/neutre$X \ # # $Z A=$_____ImageR1$ROUGE \ # # $Z R=$_____ImageR$ROUGE \ # # $Z $formatI # # # # $Z $xci/neutre$X \ # # $Z A=$_____ImageR2$VERTE \ # # $Z R=$_____ImageR$VERTE \ # # $Z $formatI # # # # $Z $xci/neutre$X \ # # $Z A=$_____ImageR3$BLEUE \ # # $Z R=$_____ImageR$BLEUE \ # # $Z $formatI # # # # :Fin_listG_BROW_62_20: # # # # # # qui montre un mouvement brownien avec les trois premieres lois de distribution # # {ROUGE : loi=1, VERTE : loi=2, BLEUE : loi=3} pour 20 points. La chose mysterieuse que # # l'on observe alors c'est qu'a chaque pas de temps, les trois deplacements sont evidemment # # paralleles puisque l'angle 'THETA' utilise la meme loi (uniforme : "loi=1"), mais de # # longueurs 'RHO' differentes puisque trois lois de distribution {ROUGE,VERTE,BLEUE} sont # # utilisees. Malgre tout les trois trajectoires semblent tres differentes l'une de l'autre # # (et de plus en plus en avancant dans le temps). En fait, je m'attendais naivement a une # # sorte d'anamorphose et donc ce n'est pas du tout le cas... # # # # On notera le 20110414094431 que le phenomene observe est le meme si la loi de distribution # # reste la meme (par exemple "loi=1") pour 'RHO' (comme pour 'THETA' evidemment...), mais que # # l'on utilise trois graines '$_____Graine_R' differentes. On notera que cela n'est plus vrai # # avec plus de points (comparer 'v $xiirv/BROW.82.50000' qui utilise trois lois differentes # # et 'v $xiirv/BROW.92.50000' qui utilise une seule loi et trois graines '$_____Graine_R' # # differentes). # v $xiirv/BROW.62.60 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_BROW_62_60: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set _____NPoints=60 # # $Z set _____BorneInfR=+0.000 # # $Z set _____BorneSupR=+0.010 # # $Z set _____BorneInfT=$pis2 # # $Z set _____BorneSupT=$pis2 # # $Z SET _____TriDimensionnel=$EXIST # # $Z SET _____Couleur=$EXIST # # $Z set _____CentrerXYZ=FAUX # # $Z set _____Zoom=20 # # $Z set _____Rayon=0.0004 # # $Z set _____Grossissement=1.3 # # $Z set _____Rpoints=2 # # $Z set _____RVB=FAUX # # $Z set _____Chiffres=0 # # $Z SET _____Enveloppe=$NEXIST # # # # $Z set _____Loi="loi=1" # # $Z set _____ImageR1=$xTV/BROW.52.1 # # $Z set _____ImageR=$_____ImageR1 # # $m4 _____include(_____xiirv/.BROW.31.2._____U) # # $m4 _____include(_____xiirv/.BROW.31.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # $Z set _____Loi="loi=2 loi_GAUSS_ecart_type=0.1" # # $Z set _____ImageR2=$xTV/BROW.52.2 # # $Z set _____ImageR=$_____ImageR2 # # $m4 _____include(_____xiirv/.BROW.31.2._____U) # # $m4 _____include(_____xiirv/.BROW.31.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # $Z set _____Loi="loi=3 lASp=$xiP/dentscie.02 lASs=ROUGE" # # $Z set _____ImageR3=$xTV/BROW.52.3 # # $Z set _____ImageR=$_____ImageR3 # # $m4 _____include(_____xiirv/.BROW.31.2._____U) # # $m4 _____include(_____xiirv/.BROW.31.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # $Z set _____ImageR=$xiirv/BROW.62.60 # # # # $Z $xci/neutre$X \ # # $Z A=$_____ImageR1$ROUGE \ # # $Z R=$_____ImageR$ROUGE \ # # $Z $formatI # # # # $Z $xci/neutre$X \ # # $Z A=$_____ImageR2$VERTE \ # # $Z R=$_____ImageR$VERTE \ # # $Z $formatI # # # # $Z $xci/neutre$X \ # # $Z A=$_____ImageR3$BLEUE \ # # $Z R=$_____ImageR$BLEUE \ # # $Z $formatI # # # # :Fin_listG_BROW_62_60: # # # # # # qui montre un mouvement brownien avec les trois premieres lois de distribution # # {ROUGE : loi=1, VERTE : loi=2, BLEUE : loi=3} pour 60 points. La chose mysterieuse que # # l'on observe alors c'est qu'a chaque pas de temps, les trois deplacements sont evidemment # # paralleles puisque l'angle 'THETA' utilise la meme loi (uniforme : "loi=1"), mais de # # longueurs 'RHO' differentes puisque trois lois de distribution {ROUGE,VERTE,BLEUE} sont # # utilisees. Malgre tout les trois trajectoires semblent tres differentes l'une de l'autre # # (et de plus en plus en avancant dans le temps). En fait, je m'attendais naivement a une # # sorte d'anamorphose et donc ce n'est pas du tout le cas... # # # # On notera le 20110414094431 que le phenomene observe est le meme si la loi de distribution # # reste la meme (par exemple "loi=1") pour 'RHO' (comme pour 'THETA' evidemment...), mais que # # l'on utilise trois graines '$_____Graine_R' differentes. On notera que cela n'est plus vrai # # avec plus de points (comparer 'v $xiirv/BROW.82.50000' qui utilise trois lois differentes # # et 'v $xiirv/BROW.92.50000' qui utilise une seule loi et trois graines '$_____Graine_R' # # differentes). # v $xiirv/BROW.72.0001 v $xiirv/BROW.72.0002 v $xiirv/BROW.72.0003 v $xiirv/BROW.72.0004 v $xiirv/BROW.72.0005 v $xiirv/BROW.72.0006 v $xiirv/BROW.72.0007 v $xiirv/BROW.72.0008 v $xiirv/BROW.72.0009 v $xiirv/BROW.72.0010 v $xiirv/BROW.72.0011 v $xiirv/BROW.72.0012 v $xiirv/BROW.72.0013 v $xiirv/BROW.72.0014 v $xiirv/BROW.72.0015 v $xiirv/BROW.72.0016 Pal ; anim3 A=$xiirv/BROW.72. premiere=1 derniere=16 # Correspond aux images de la sequence : # # # # 'v $xiav/BROW.72$R16' # # # v $xiirv/BROW.82.50000 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_BROW_82_50000: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set _____NPoints=50000 # # $Z set _____BorneInfR=+0.000 # # $Z set _____BorneSupR=+0.010 # # $Z set _____BorneInfT=$pis2 # # $Z set _____BorneSupT=$pis2 # # $Z SET _____TriDimensionnel=$EXIST # # $Z SET _____Couleur=$EXIST # # $Z set _____CentrerXYZ=FAUX # # $Z set _____Zoom=1 # # $Z set _____Rayon=0.004 # # $Z set _____Grossissement=1.3 # # $Z set _____Rpoints=2 # # $Z set _____RVB=FAUX # # $Z set _____Chiffres=0 # # $Z SET _____Enveloppe=$NEXIST # # # # $Z set _____Loi="loi=1" # # $Z set _____ImageR1=$xTV/BROW.52.1 # # $Z set _____ImageR=$_____ImageR1 # # $m4 _____include(_____xiirv/.BROW.31.2._____U) # # $m4 _____include(_____xiirv/.BROW.31.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # $Z set _____Loi="loi=2 loi_GAUSS_ecart_type=0.1" # # $Z set _____ImageR2=$xTV/BROW.52.2 # # $Z set _____ImageR=$_____ImageR2 # # $m4 _____include(_____xiirv/.BROW.31.2._____U) # # $m4 _____include(_____xiirv/.BROW.31.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # $Z set _____Loi="loi=3 lASp=$xiP/dentscie.02 lASs=ROUGE" # # $Z set _____ImageR3=$xTV/BROW.52.3 # # $Z set _____ImageR=$_____ImageR3 # # $m4 _____include(_____xiirv/.BROW.31.2._____U) # # $m4 _____include(_____xiirv/.BROW.31.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # $Z set _____ImageR=$xiirv/BROW.82.50000 # # # # $Z $xci/neutre$X \ # # $Z A=$_____ImageR1$ROUGE \ # # $Z R=$_____ImageR$ROUGE \ # # $Z $formatI # # # # $Z $xci/neutre$X \ # # $Z A=$_____ImageR2$VERTE \ # # $Z R=$_____ImageR$VERTE \ # # $Z $formatI # # # # $Z $xci/neutre$X \ # # $Z A=$_____ImageR3$BLEUE \ # # $Z R=$_____ImageR$BLEUE \ # # $Z $formatI # # # # :Fin_listG_BROW_82_50000: # # # # # # qui montre un mouvement brownien avec les trois premieres lois de distribution # # {ROUGE : loi=1, VERTE : loi=2, BLEUE : loi=3} pour 50000 points. La chose mysterieuse que # # l'on observe alors c'est qu'a chaque pas de temps, les trois deplacements sont evidemment # # paralleles puisque l'angle 'THETA' utilise la meme loi (uniforme : "loi=1"), mais de # # longueurs 'RHO' differentes puisque trois lois de distribution {ROUGE,VERTE,BLEUE} sont # # utilisees. Malgre tout les trois trajectoires semblent tres differentes l'une de l'autre # # (et de plus en plus en avancant dans le temps). En fait, je m'attendais naivement a une # # sorte d'anamorphose et donc ce n'est pas du tout le cas... # # # # On notera que le phenomene observe differe beaucoup si la meme la loi de distribution # # est utilisee (par exemple "loi=1") pour 'RHO' (comme pour 'THETA' evidemment...), mais que # # l'on utilise trois graines '$_____Graine_R' differentes ('v $xiirv/BROW.92.50000'. # v $xiirv/BROW.92.50000 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_BROW_92_50000: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set _____NPoints=50000 # # $Z set _____BorneInfR=+0.000 # # $Z set _____BorneSupR=+0.010 # # $Z set _____BorneInfT=$pis2 # # $Z set _____BorneSupT=$pis2 # # $Z SET _____TriDimensionnel=$EXIST # # $Z SET _____Couleur=$EXIST # # $Z set _____CentrerXYZ=FAUX # # $Z set _____Zoom=1 # # $Z set _____Rayon=0.004 # # $Z set _____Grossissement=1.3 # # $Z set _____Rpoints=2 # # $Z set _____RVB=FAUX # # $Z set _____Chiffres=0 # # $Z SET _____Enveloppe=$NEXIST # # # # $Z set _____Loi="loi=1" # # $Z set _____Graine_R=19471 # # $Z set _____ImageR1=$xTV/BROW.52.1 # # $Z set _____ImageR=$_____ImageR1 # # $m4 _____include(_____xiirv/.BROW.31.2._____U) # # $m4 _____include(_____xiirv/.BROW.31.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # $Z set _____Loi="loi=1" # # $Z set _____Graine_R=19477 # # $Z set _____ImageR2=$xTV/BROW.52.2 # # $Z set _____ImageR=$_____ImageR2 # # $m4 _____include(_____xiirv/.BROW.31.2._____U) # # $m4 _____include(_____xiirv/.BROW.31.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # $Z set _____Loi="loi=1" # # $Z set _____Graine_R=19475 # # $Z set _____ImageR3=$xTV/BROW.52.3 # # $Z set _____ImageR=$_____ImageR3 # # $m4 _____include(_____xiirv/.BROW.31.2._____U) # # $m4 _____include(_____xiirv/.BROW.31.1._____U) # # $m4 _____include(_____xiirv/.BROW.11.3._____U) # # # # $Z set _____ImageR=$xiirv/BROW.92.50000 # # # # $Z $xci/neutre$X \ # # $Z A=$_____ImageR1$ROUGE \ # # $Z R=$_____ImageR$ROUGE \ # # $Z $formatI # # # # $Z $xci/neutre$X \ # # $Z A=$_____ImageR2$VERTE \ # # $Z R=$_____ImageR$VERTE \ # # $Z $formatI # # # # $Z $xci/neutre$X \ # # $Z A=$_____ImageR3$BLEUE \ # # $Z R=$_____ImageR$BLEUE \ # # $Z $formatI # # # # :Fin_listG_BROW_92_50000: # # # # # # qui montre un mouvement brownien avec la meme loi de distribution (uniforme : "loi=1"), # # mais trois graines '$_____Graine_R' differentes. # v $xiirv/BROW.A2.1 v $xiirv/BROW.A2.2 v $xiirv/BROW.A2.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_BROW_A2: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/BROW.A2.T # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z SET _____TriDimensionnel=$EXIST # # $m4 _____include(_____xiirv/.BROW.11.2._____U) # # $m4 _____include(_____xiirv/.BROW.11.1._____U) # # # # $Z $PAST $xTV/POINTS.2$COORD_X \ # # $Z $xTV/POINTS.2$COORD_Y \ # # $Z $xTV/POINTS.2$COORD_Z | \ # # $Z $AW ' { print " X=" $1 " Y=" $2 " Z=" $3 " " } ' \ # # $Z >> $LiStEPoInTs # # # # $Z set NPoInTs=`$CA $LiStEPoInTs | $WCl` # # # # $Z set _____DemiPaveX=2 # # $Z set _____DemiPaveY=2 # # $Z set _____DemiPaveZ=2 # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____CercleInscrit=VRAI # # $Z set _____imagesR=$xiirv/BROW.A2 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_BROW_A2: # # # # # # qui montre un mouvement brownien tridimensionnel sans joindre les points successifs... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-0.2630,+0.7788]x[-0.8538,+0.8307]x[-1.1884,+0.3703] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # v $xiirv/BROW.A3.1 v $xiirv/BROW.A3.2 v $xiirv/BROW.A3.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_BROW_A3: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/BROW.A3.T # # # # $Z FilSTmpB FiLePoInTs # # $m4 _____include(_____xiirv/.PIPO.11.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $m4 _____include(_____xiirv/.BROW.11.2._____U) # # $m4 _____include(_____xiirv/.BROW.11.1._____U) # # # # $Z $CP $xTV/POINTS.2$COORD_X $FiLePoInTs$COORD_X # # $Z $CP $xTV/POINTS.2$COORD_Y $FiLePoInTs$COORD_Y # # $Z $CP $xTV/POINTS.2$COORD_Z $FiLePoInTs$COORD_Z # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set NPoInTsX=`$CA $FiLePoInTs$COORD_X | $WCl` # # $Z set NPoInTsY=`$CA $FiLePoInTs$COORD_Y | $WCl` # # $Z set NPoInTsZ=`$CA $FiLePoInTs$COORD_Z | $WCl` # # $Z set NPoInTs=`$xcg/MIN3.01$X x=$NPoInTsX y=$NPoInTsY z=$NPoInTsZ` # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $Z $xci/valeurs_inte$X \ # # $Z premiere=1 derniere=$NPoInTs \ # # $Z vD=$NOIR_PLANCHER vA=$BLANC \ # # $Z lineaire=VRAI \ # # $Z entiers=VRAI \ # # $Z > $FiLePoInTs.Niveau # # # # $Z set _____ImageR=$xTV/BROW.A3 # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z set _____DemiPaveX=2 # # $Z set _____DemiPaveY=2 # # $Z set _____DemiPaveZ=2 # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____CercleInscrit=VRAI # # $Z set _____imagesR=$xiirv/BROW.A3 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_BROW_A3: # # # # # # qui montre un mouvement brownien tridimensionnel en joignant les points successifs... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.4515,+0.6435]x[+0.2865,+0.7076]x[-0.2971,+0.0925] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # v $xiirv/BROW.A3.1.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_BROW_A3_1_1: # # # # $Z Pdu # # # # $Z set _____imagesR=$xiirv/BROW.A3 # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$_____imagesR.1%s \ # # $Z cache=VRAI \ # # $Z iterations=4 \ # # $Z anti_aliaser=VRAI \ # # $Z echelle=VRAI a=0.8 \ # # $Z $formatI | \ # # $Z $xci/jeu_vie.01$X \ # # $Z iterations=3 \ # # $Z R=$_____imagesR.1.1%s \ # # $Z $formatI" # # # # :Fin_listG_BROW_A3_1_1: # # # ext Pal v $xiirv/BROW.B0.1 v $xiirv/BROW.B0.2 v $xiirv/BROW.B0.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_BROW_B0: # # # # $Z Pud # # # # $Z setenv xTV $xTG # # # # $Z SET cDerniere=10 # # $Z set _____NPoints=1000 # # $Z SET _____PBorneAbsolue=0.004 # # $Z set _____Graine_X=19475 # # $Z set _____Graine_Y=17895 # # $Z set _____Graine_Z=20015 # # $Z set _____CentrerXYZ=VRAI # # $Z set _____Rayon=0.001 # # $Z set _____Zoom=5.00 # # $Z set _____imagesR=$xiirv/BROW.B0 # # $m4 _____include(_____xiirv/.BROW.B1.1._____U) # # $m4 _____include(_____xiirc/.LYAP.C3.2._____U) # # # # :Fin_listG_BROW_B0: # # # # # # Montre une sorte de superposition tridimensionnelle de 11 mouvements browniens correles # # bidimensionnels. # v $xiirv/BROW.B1.1 v $xiirv/BROW.B1.2 v $xiirv/BROW.B1.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_BROW_B1: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET cDerniere=511 # # $Z set _____NPoints=1000 # # $Z SET _____PBorneAbsolue=0.002 # # $Z set _____Graine_X=19475 # # $Z set _____Graine_Y=17895 # # $Z set _____Graine_Z=20015 # # $Z set _____CentrerXYZ=VRAI # # $Z set _____Rayon=0.0002 # # $Z set _____Zoom=5.00 # # $Z set _____imagesR=$xiirv/BROW.B1 # # $m4 _____include(_____xiirv/.BROW.B1.1._____U) # # $m4 _____include(_____xiirc/.LYAP.C3.2._____U) # # # # :Fin_listG_BROW_B1: # # # # # # Montre une sorte de superposition tridimensionnelle de 512 mouvements browniens correles # # bidimensionnels. # v $xiirv/BROW.B2.1 v $xiirv/BROW.B2.2 v $xiirv/BROW.B2.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_BROW_B2: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET cDerniere=511 # # $Z set _____NPoints=1000 # # $Z SET _____PBorneAbsolue=0.0005 # # $Z set _____Graine_X=19475 # # $Z set _____Graine_Y=17895 # # $Z set _____Graine_Z=20015 # # $Z set _____CentrerXYZ=VRAI # # $Z set _____Rayon=0.0002 # # $Z set _____Zoom=5.00 # # $Z set _____imagesR=$xiirv/BROW.B2 # # $m4 _____include(_____xiirv/.BROW.B1.1._____U) # # $m4 _____include(_____xiirc/.LYAP.C3.2._____U) # # # # :Fin_listG_BROW_B2: # # # # # # Montre une sorte de superposition tridimensionnelle de 512 mouvements browniens correles # # bidimensionnels. # v $xiirv/BROW.B3.1 v $xiirv/BROW.B3.2 v $xiirv/BROW.B3.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_BROW_B3: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET cDerniere=511 # # $Z set _____NPoints=1000 # # $Z SET _____PBorneAbsolue=0.001 # # $Z set _____Graine_X=19475 # # $Z set _____Graine_Y=17895 # # $Z set _____Graine_Z=20015 # # $Z set _____CentrerXYZ=VRAI # # $Z set _____Rayon=0.0002 # # $Z set _____Zoom=5.00 # # $Z set _____imagesR=$xiirv/BROW.B3 # # $m4 _____include(_____xiirv/.BROW.B1.1._____U) # # $m4 _____include(_____xiirc/.LYAP.C3.2._____U) # # # # :Fin_listG_BROW_B3: # # # # # # Montre une sorte de superposition tridimensionnelle de 512 mouvements browniens correles # # bidimensionnels. # v $xiirv/BROW.C1.1 v $xiirv/BROW.C1.2 v $xiirv/BROW.C1.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_BROW_C1: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET cDerniere=511 # # $Z set _____NPoints=1000 # # $Z SET _____PBorneAbsolueD=0 # # $Z SET _____PBorneAbsolueA=0.002 # # $Z set _____Graine_X=19475 # # $Z set _____Graine_Y=17895 # # $Z set _____Graine_Z=20015 # # $Z set _____CentrerXYZ=VRAI # # $Z set _____Rayon=0.0002 # # $Z set _____Zoom=5.00 # # $Z set _____imagesR=$xiirv/BROW.C1 # # $m4 _____include(_____xiirv/.BROW.B1.1._____U) # # $m4 _____include(_____xiirc/.LYAP.C3.2._____U) # # # # :Fin_listG_BROW_C1: # # # # # # Montre une sorte de superposition tridimensionnelle de 512 mouvements browniens correles # # bidimensionnels. # v $xiirv/BROW.C2.1 v $xiirv/BROW.C2.2 v $xiirv/BROW.C2.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_BROW_C2: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET cDerniere=511 # # $Z set _____NPoints=50000 # # $Z SET _____PBorneAbsolueD=0 # # $Z SET _____PBorneAbsolueA=0.002 # # $Z set _____Graine_X=19475 # # $Z set _____Graine_Y=17895 # # $Z set _____Graine_Z=20015 # # $Z set _____CentrerXYZ=VRAI # # $Z set _____Rayon=0.0002 # # $Z set _____Zoom=0.75 # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" centre_des_spheres=VRAI" # # $Z set _____imagesR=$xiirv/BROW.C2 # # $m4 _____include(_____xiirv/.BROW.B1.1._____U) # # $m4 _____include(_____xiirc/.LYAP.C3.2._____U) # # # # :Fin_listG_BROW_C2: # # # # # # Montre une sorte de superposition tridimensionnelle de 512 mouvements browniens correles # # bidimensionnels. # v $xiirv/BROW.C2.1.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_BROW_C2_1: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____imagesA=$xiirv/BROW.C2.1 # # $Z set _____Palette=$xiP/cotes.11 # # $Z set _____imagesR=$_____imagesA.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____imagesA \ # # $Z R=$xTV/BROW.C2.11 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/BROW.C2.11 \ # # $Z p=$_____Palette \ # # $Z R=$xTV/BROW.C2.12 \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/BROW.C2.11 \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z navap=VRAI \ # # $Z passes=100 \ # # $Z R=$xTV/BROW.C2.13 \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/BROW.C2.13 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/BROW.C2.12%s \ # # $Z avion=VRAI \ # # $Z echelle=0.1 \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z R=$_____imagesR%s \ # # $Z $formatI" # # # # :Fin_listG_BROW_C2_1: # # # v $xiirv/BROW.C2.1.1$m v $xiirv/BROW.C2.1.1$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_BROW_C2_1_1: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____imagesA=$xiirv/BROW.C2.1 # # $Z set _____imagesR=$_____imagesA.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____imagesA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z normaliser_avant_apres=VRAI \ # # $Z passes=100 \ # # $Z R=$xTV/BROW.C2.1 \ # # $Z $formatI # # # # $Z execRVB $xci/complement$X \ # # $Z A=$_____imagesA%s \ # # $Z R=$xTV/BROW.C2.1%s \ # # $Z $formatI # # # # $Z $xci/permute_RVB.11$Z $xTV/BROW.C2.1 $xTV/BROW.C2.1 BVR # # # # $Z set PaRaMeTrEs="echelle=0.2 Ty=0.95" # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/BROW.C2.1 \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$xTV/BROW.C2.1%s \ # # $Z avion=VRAI \ # # $Z $PaRaMeTrEs \ # # $Z R=$_____imagesR$m%s \ # # $Z $formatI # # # # $Z $xci/montagne.01$X \ # # $Z A=$xTV/BROW.C2.1 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$BLANC \ # # $Z avion=FAUX \ # # $Z $PaRaMeTrEs \ # # $Z Z-Buffer=VRAI \ # # $Z R=$xTV/MONTAGNE \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z exponentiation_image=VRAI \ # # $Z exposant=1 \ # # $Z R=$xTV/BRUME \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/BROW.C2.1 \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$xTV/BROW.C2.1%s \ # # $Z avion=FAUX \ # # $Z $PaRaMeTrEs \ # # $Z R=$_____imagesR$M%s \ # # $Z $formatI # # # # $Z execRVB $xci/brume.11$X \ # # $Z A=$_____imagesR$M%s \ # # $Z B=$xTV/BRUME \ # # $Z R=$_____imagesR$M%s \ # # $Z $formatI # # # # :Fin_listG_BROW_C2_1_1: # # # v $xiirv/BROW.D1.1 v $xiirv/BROW.D1.2 v $xiirv/BROW.D1.21 # Generee (sur '$CMAP28' -ex "porte-d-auteuil"-) par : # # # # # # :Debut_listG_BROW_D1: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET cDerniere=511 # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NPoints=1000 # # $Z SET _____PBorneAbsolueD=0 # # $Z SET _____PBorneAbsolueA=0.002 # # $Z set _____Graine_X=19475 # # $Z set _____Graine_Y=17895 # # $Z set _____Graine_Z=20015 # # $Z set _____CentrerXYZ=VRAI # # $Z set _____Rayon=0.0002 # # $Z set _____Zoom=5.00 # # $Z set _____imagesR=$xiirv/BROW.D1 # # $m4 _____include(_____xiirv/.BROW.B1.1._____U) # # $m4 _____include(_____xiirc/.LYAP.C3.2._____U) # # # # :Fin_listG_BROW_D1: # # # # # # Montre une sorte de superposition tridimensionnelle des projections bidimensionnelles # # de 512 mouvements browniens correles tridimensionnels. # v $xiirv/BROW.D2.1 v $xiirv/BROW.D2.2 v $xiirv/BROW.D2.21 # Generee (sur '$CMAP28' -ex "porte-d-auteuil"-) par : # # # # # # :Debut_listG_BROW_D2: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET cDerniere=511 # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NPoints=50000 # # $Z SET _____PBorneAbsolueD=0 # # $Z SET _____PBorneAbsolueA=0.002 # # $Z set _____Graine_X=19475 # # $Z set _____Graine_Y=17895 # # $Z set _____Graine_Z=20015 # # $Z set _____CentrerXYZ=VRAI # # $Z set _____Rayon=0.0002 # # $Z set _____Zoom=0.70 # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" centre_des_spheres=VRAI" # # $Z set _____imagesR=$xiirv/BROW.D2 # # $m4 _____include(_____xiirv/.BROW.B1.1._____U) # # $m4 _____include(_____xiirc/.LYAP.C3.2._____U) # # # # :Fin_listG_BROW_D2: # # # # # # Montre une sorte de superposition tridimensionnelle des projections bidimensionnelles # # de 512 mouvements browniens correles tridimensionnels. # # # # L'image 'v $xiirv/BROW.D2.2' fut utilisee pour l'affiche de la journee de rentree du # # CMAP en 2019. # v $xiirv/BROW.D2.1.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_BROW_D2_1: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____imagesA=$xiirv/BROW.D2.1 # # $Z set _____Palette=$xiP/cotes.11 # # $Z set _____imagesR=$_____imagesA.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____imagesA \ # # $Z R=$xTV/BROW.D2.11 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/BROW.D2.11 \ # # $Z p=$_____Palette \ # # $Z R=$xTV/BROW.D2.12 \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/BROW.D2.11 \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z navap=VRAI \ # # $Z passes=100 \ # # $Z R=$xTV/BROW.D2.13 \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/BROW.D2.13 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/BROW.D2.12%s \ # # $Z avion=VRAI \ # # $Z echelle=0.1 \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z R=$_____imagesR%s \ # # $Z $formatI" # # # # :Fin_listG_BROW_D2_1: # # # v $xiirv/BROW.E1.1 v $xiirv/BROW.E1.2 v $xiirv/BROW.E1.21 # Generee (sur '$CMAP28' -ex "porte-d-auteuil"-) par : # # # # # # :Debut_listG_BROW_E1: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET cDerniere=511 # # $Z SET _____TriDimensionnel=$EXIST # # $Z SET _____VraiTriDimensionnel=$EXIST # # $Z set _____NPoints=1000 # # $Z SET _____PBorneAbsolueD=0 # # $Z SET _____PBorneAbsolueA=0.002 # # $Z set _____Graine_X=19475 # # $Z set _____Graine_Y=17895 # # $Z set _____Graine_Z=20015 # # $Z set _____CentrerXYZ=VRAI # # $Z set _____DemiPaveX=1 # # $Z set _____DemiPaveY=1 # # $Z set _____DemiPaveZ=1 # # $Z set _____imagesR=$xiirv/BROW.E1 # # $m4 _____include(_____xiirv/.BROW.B1.1._____U) # # $m4 _____include(_____xiirc/.LYAP.C3.2._____U) # # # # :Fin_listG_BROW_E1: # # # # # # Montre une sorte de superposition tridimensionnelle de 512 mouvements browniens correles # # tridimensionnels. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-0.2133,+0.2175]x[-0.0991,+0.1546]x[-0.2152,+0.1148] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # v $xiirv/BROW.E2.1 v $xiirv/BROW.E2.2 v $xiirv/BROW.E2.21 # Generee (sur '$CMAP28' -ex "porte-d-auteuil"-) par : # # # # # # :Debut_listG_BROW_E2: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET cDerniere=511 # # $Z SET _____TriDimensionnel=$EXIST # # $Z SET _____VraiTriDimensionnel=$EXIST # # $Z set _____NPoints=50000 # # $Z SET _____PBorneAbsolueD=0 # # $Z SET _____PBorneAbsolueA=0.002 # # $Z set _____Graine_X=19475 # # $Z set _____Graine_Y=17895 # # $Z set _____Graine_Z=20015 # # $Z set _____CentrerXYZ=VRAI # # $Z set _____DemiPaveX=1 # # $Z set _____DemiPaveY=1 # # $Z set _____DemiPaveZ=1 # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" centre_des_spheres=VRAI" # # $Z set _____imagesR=$xiirv/BROW.E2 # # $m4 _____include(_____xiirv/.BROW.B1.1._____U) # # $m4 _____include(_____xiirc/.LYAP.C3.2._____U) # # # # :Fin_listG_BROW_E2: # # # # # # Montre une sorte de superposition tridimensionnelle de 512 mouvements browniens correles # # tridimensionnels. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-1.3451,+1.9034]x[-1.3113,+1.2962]x[-1.5077,+0.8715] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # v $xiirv/BROW.F2.1 v $xiirv/BROW.F2.2 v $xiirv/BROW.F2.21 # Generee (sur '$CMAP28' -ex "porte-d-auteuil"-) par : # # # # # # :Debut_listG_BROW_F2: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET cDerniere=511 # # $Z SET _____TriDimensionnel=$EXIST # # $Z SET _____VraiTriDimensionnel=$EXIST # # $Z set _____NPoints=50000 # # $Z SET _____PBorneAbsolueD=0 # # $Z SET _____PBorneAbsolueA=0.0002 # # $Z set _____Graine_X=19475 # # $Z set _____Graine_Y=17895 # # $Z set _____Graine_Z=20015 # # $Z set _____CentrerXYZ=VRAI # # $Z set _____DemiPaveX=1 # # $Z set _____DemiPaveY=1 # # $Z set _____DemiPaveZ=1 # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" centre_des_spheres=VRAI" # # $Z set _____imagesR=$xiirv/BROW.F2 # # $m4 _____include(_____xiirv/.BROW.B1.1._____U) # # $m4 _____include(_____xiirc/.LYAP.C3.2._____U) # # # # :Fin_listG_BROW_F2: # # # # # # Montre une sorte de superposition tridimensionnelle de 512 mouvements browniens correles # # (fortement) tridimensionnels. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-1.0307,+1.5933]x[-0.6986,+1.0492]x[-1.1716,+0.5526] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # v $xiirv/BROW.G2.1 v $xiirv/BROW.G2.2 v $xiirv/BROW.G2.21 # Generee (sur '$CMAP28' -ex "porte-d-auteuil"-) par : # # # # # # :Debut_listG_BROW_G2: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET cDerniere=511 # # $Z SET _____NMBrowniens=49 # # $Z SET _____TriDimensionnel=$EXIST # # $Z SET _____VraiTriDimensionnel=$EXIST # # $Z set _____NPoints=50000 # # $Z SET _____PBorneAbsolueD=0 # # $Z SET _____PBorneAbsolueA=0.002 # # $Z set _____Graine_X=19475 # # $Z set _____Graine_Y=17895 # # $Z set _____Graine_Z=20015 # # $Z set _____CentrerXYZ=VRAI # # $Z set _____DemiPaveX=1 # # $Z set _____DemiPaveY=1 # # $Z set _____DemiPaveZ=1 # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" centre_des_spheres=VRAI" # # $Z set _____imagesR=$xiirv/BROW.G2 # # $m4 _____include(_____xiirv/.BROW.B1.1._____U) # # $m4 _____include(_____xiirc/.LYAP.C3.2._____U) # # # # :Fin_listG_BROW_G2: # # # # # # Montre une sorte de superposition tridimensionnelle de 50 mouvements browniens correles # # tridimensionnels. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-1.0160,+1.5821]x[-0.6501,+1.0418]x[-1.1551,+0.5449] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # v $xiirv/BROW.H2.1 v $xiirv/BROW.H2.2 v $xiirv/BROW.H2.21 # Generee (sur '$CMAP28' -ex "porte-d-auteuil"-) par : # # # # # # :Debut_listG_BROW_H2: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET cDerniere=511 # # $Z SET _____NMBrowniens=9 # # $Z SET _____TriDimensionnel=$EXIST # # $Z SET _____VraiTriDimensionnel=$EXIST # # $Z set _____NPoints=50000 # # $Z SET _____PBorneAbsolueD=0 # # $Z SET _____PBorneAbsolueA=0.002 # # $Z set _____Graine_X=19475 # # $Z set _____Graine_Y=17895 # # $Z set _____Graine_Z=20015 # # $Z set _____CentrerXYZ=VRAI # # $Z set _____DemiPaveX=1 # # $Z set _____DemiPaveY=1 # # $Z set _____DemiPaveZ=1 # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" centre_des_spheres=VRAI" # # $Z set _____imagesR=$xiirv/BROW.H2 # # $m4 _____include(_____xiirv/.BROW.B1.1._____U) # # $m4 _____include(_____xiirc/.LYAP.C3.2._____U) # # # # :Fin_listG_BROW_H2: # # # # # # Montre une sorte de superposition tridimensionnelle de 10 mouvements browniens correles # # tridimensionnels. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-1.0105,+1.5639]x[-0.6359,+1.0235]x[-1.1342,+0.5190] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # v $xiirv/BROW.I2.1 v $xiirv/BROW.I2.2 v $xiirv/BROW.I2.21 # Generee (sur '$CMAP28' -ex "porte-d-auteuil"-) par : # # # # # # :Debut_listG_BROW_I2: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET cDerniere=511 # # $Z SET _____NMBrowniens=49 # # $Z SET _____TriDimensionnel=$EXIST # # $Z SET _____VraiTriDimensionnel=$EXIST # # $Z set _____NPoints=50000 # # $Z SET _____PBorneAbsolueD=0 # # $Z SET _____PBorneAbsolueA=0.002 # # $Z set _____Graine_X=19475 # # $Z set _____Graine_Y=17895 # # $Z set _____Graine_Z=20015 # # $Z set _____DGraineXYZ=1 # # $Z set _____DPGraineXYZ=0 # # $Z set _____CentrerXYZ=VRAI # # $Z set _____DemiPaveX=1 # # $Z set _____DemiPaveY=1 # # $Z set _____DemiPaveZ=1 # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" centre_des_spheres=VRAI" # # $Z set _____imagesR=$xiirv/BROW.I2 # # $m4 _____include(_____xiirv/.BROW.B1.1._____U) # # $m4 _____include(_____xiirc/.LYAP.C3.2._____U) # # # # :Fin_listG_BROW_I2: # # # # # # Montre une sorte de superposition tridimensionnelle de 50 mouvements browniens non correles # # tridimensionnels. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-2.9136,+2.7200]x[-2.3186,+3.0588]x[-2.8071,+3.5363] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # v $xiirv/BROW.J2.1 v $xiirv/BROW.J2.2 v $xiirv/BROW.J2.21 # Generee (sur '$CMAP28' -ex "porte-d-auteuil"-) par : # # # # # # :Debut_listG_BROW_J2: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET cDerniere=511 # # $Z SET _____NMBrowniens=9 # # $Z SET _____TriDimensionnel=$EXIST # # $Z SET _____VraiTriDimensionnel=$EXIST # # $Z set _____NPoints=50000 # # $Z SET _____PBorneAbsolueD=0 # # $Z SET _____PBorneAbsolueA=0.002 # # $Z set _____Graine_X=19475 # # $Z set _____Graine_Y=17895 # # $Z set _____Graine_Z=20015 # # $Z set _____DGraineXYZ=1 # # $Z set _____DPGraineXYZ=0 # # $Z set _____CentrerXYZ=VRAI # # $Z set _____DemiPaveX=1 # # $Z set _____DemiPaveY=1 # # $Z set _____DemiPaveZ=1 # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" centre_des_spheres=VRAI" # # $Z set _____imagesR=$xiirv/BROW.J2 # # $m4 _____include(_____xiirv/.BROW.B1.1._____U) # # $m4 _____include(_____xiirc/.LYAP.C3.2._____U) # # # # :Fin_listG_BROW_J2: # # # # # # Montre une sorte de superposition tridimensionnelle de 10 mouvements browniens non correles # # tridimensionnels. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-2.2695,+2.4110]x[-2.0459,+1.4571]x[-1.7238,+2.0891] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # v $xiirv/CABC.11.50 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CABC_11_50: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/CABC.11.50 # # $m4 _____include(_____xiirv/.CABC.11.1._____U) # # # # :Fin_listG_CABC_11_50: # # # # # # Cette image tente de visualiser la conjecture 'ABC' avec 50x50 nombres entiers : # # # # MIN2(k(A,B,C))=+0.37117806024788 # # MAX2(k(A,B,C))=+1.22629438553090 # # # v $xiirv/CABC.11.100 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CABC_11_100: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NNombres=100 # # $Z set _____FRayon=0.025 # # $Z set _____Palette=$xiP/cercle.21 # # $Z set _____ImageR=$xiirv/CABC.11.100 # # $m4 _____include(_____xiirv/.CABC.11.1._____U) # # # # :Fin_listG_CABC_11_100: # # # # # # Cette image tente de visualiser la conjecture 'ABC' avec 100x100 nombres entiers : # # # # MIN2(k(A,B,C))=+0.36549557312240 # # MAX2(k(A,B,C))=+1.29203002988460 # # # v $xiirv/CABC.21.20 v $xiirv/CABC.21.20$m v $xiirv/CABC.21.20$M v $xiirv/CABC.21.20.1$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CABC_21_20: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NNombres=20 # # $Z set _____FRayon=0.060 # # $Z set _____Zoom=0.70 # # $Z set _____RotationOZ=0.4 # # $Z set _____Palette=$xiP/cercle.21 # # $Z set _____ImageR=$xiirv/CABC.21.20 # # $m4 _____include(_____xiirv/.CABC.11.1._____U) # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z standard=FAUX \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z points=25 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/cache$X \ # # $Z M=$_____ImageR%s \ # # $Z A=$GRIS_2 \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xTV/TEXTURE%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z R=$_____ImageR$m%s \ # # $Z $formatI # # # # $Z set TrAnSlAtIoN_Y=0.99 # # $Z set PeRsPeCtIvE=0.2 # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=FAUX \ # # $Z Ty=$TrAnSlAtIoN_Y \ # # $Z perspective=$PeRsPeCtIvE \ # # $Z depth=VRAI minimum=0.1 \ # # $Z R=$_____ImageR$M%s \ # # $Z $formatI # # # # $Z $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$BLANC \ # # $Z avion=FAUX \ # # $Z Ty=$TrAnSlAtIoN_Y \ # # $Z perspective=$PeRsPeCtIvE \ # # $Z Z-Buffer=VRAI \ # # $Z R=$xTV/MONTAGNE \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/BRUME \ # # $Z $formatI # # # # $Z execRVB $xci/brume.11$X \ # # $Z A=$_____ImageR$M%s \ # # $Z B=$xTV/BRUME \ # # $Z R=$_____ImageR.1$M%s \ # # $Z $formatI # # # # $Z set _____Zoom=0.95 # # $Z set _____RotationOZ=0.0 # # $m4 _____include(_____xiirv/.CABC.11.1._____U) # # # # :Fin_listG_CABC_21_20: # # # # # # Cette image tente de visualiser la conjecture 'ABC' avec 20x20 nombres entiers : # # # # MIN2(k(A,B,C))=+0.38418327328527 # # MAX2(k(A,B,C))=+1.22629438553090 # # # # # # On notera que l'image '$_____ImageR' est generee deux fois : la premiere avec une # # rotation selon 'OZ' (pour des raisons de visibilite...) et la seconde sans cette rotation # # afin d'etre compatible avec 'v $xiMl/CABC.1n.1.$ANGLAIS.$m4.$I"" axes'. # # # # On notera la structure '"" axes' introduite le 20220504184450 et ce pour contrer l'action # # de '$xiMt/x_____.substitution.91$vv$I.$m4.$I' lorsqu'il gere les fichiers '$I'... # v $xiirv/CABC.22.20 v $xiirv/CABC.22.20$m v $xiirv/CABC.22.20.1$M v $xiirv/CABC.22.20.2$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CABC_22_20: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NNombres=20 # # $Z set _____FRayon=0.060 # # $Z set _____Zoom=0.70 # # $Z set _____RotationOZ=0.4 # # # # $Z set _____Palette=$xiP/cercle.21 # # $Z set _____ImageR=$xTV/CABC.22.20 # # $m4 _____include(_____xiirv/.CABC.11.1._____U) # # $Z set _____ImageT=$_____ImageR # # # # $Z set _____Palette=$xiP/rouge # # $Z set _____ImageR=$xiirv/CABC.22.20 # # $m4 _____include(_____xiirv/.CABC.11.1._____U) # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageT \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z standard=FAUX \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z points=25 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/cache$X \ # # $Z M=$_____ImageR%s \ # # $Z A=$GRIS_2 \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xTV/TEXTURE%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z R=$_____ImageR$m%s \ # # $Z $formatI # # # # $Z set TrAnSlAtIoN_Y=0.995 # # $Z set PeRsPeCtIvE=0.4 # # $Z set EcHeLlE=1.2 # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z echelle=$EcHeLlE \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=FAUX \ # # $Z Ty=$TrAnSlAtIoN_Y \ # # $Z perspective=$PeRsPeCtIvE \ # # $Z depth=VRAI minimum=0.1 \ # # $Z R=$_____ImageR.1$M%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z echelle=$EcHeLlE \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=FAUX \ # # $Z Ty=$TrAnSlAtIoN_Y \ # # $Z perspective=$PeRsPeCtIvE \ # # $Z depth=VRAI minimum=0.8 \ # # $Z R=$_____ImageR.2$M%s \ # # $Z $formatI # # # # $Z set _____Zoom=0.95 # # $Z set _____RotationOZ=0.0 # # $m4 _____include(_____xiirv/.CABC.11.1._____U) # # # # :Fin_listG_CABC_22_20: # # # # # # Cette image tente de visualiser la conjecture 'ABC' avec 20x20 nombres entiers : # # # # MIN2(k(A,B,C))=+0.38418327328527 # # MAX2(k(A,B,C))=+1.22629438553090 # # # v $xiirv/CABC.23.20 v $xiirv/CABC.23.20$m v $xiirv/CABC.23.20.1$M v $xiirv/CABC.23.20.2$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CABC_23_20: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NNombres=20 # # $Z set _____FRayon=0.060 # # $Z set _____Zoom=0.70 # # $Z set _____RotationOZ=0.4 # # # # $Z set _____Palette=$xiP/cercle.21 # # $Z set _____ImageR=$xTV/CABC.23.20 # # $m4 _____include(_____xiirv/.CABC.11.1._____U) # # $Z set _____ImageT=$_____ImageR # # # # $Z set _____Palette=$xiP/bleue # # $Z set _____ImageR=$xiirv/CABC.23.20 # # $m4 _____include(_____xiirv/.CABC.11.1._____U) # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageT \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z standard=FAUX \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z points=25 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/cache$X \ # # $Z M=$_____ImageR%s \ # # $Z A=$GRIS_2 \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xTV/TEXTURE%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z R=$_____ImageR$m%s \ # # $Z $formatI # # # # $Z set TrAnSlAtIoN_Y=0.995 # # $Z set PeRsPeCtIvE=0.4 # # $Z set EcHeLlE=1.2 # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z echelle=$EcHeLlE \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=FAUX \ # # $Z Ty=$TrAnSlAtIoN_Y \ # # $Z perspective=$PeRsPeCtIvE \ # # $Z depth=VRAI minimum=0.1 \ # # $Z R=$_____ImageR.1$M%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z echelle=$EcHeLlE \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=FAUX \ # # $Z Ty=$TrAnSlAtIoN_Y \ # # $Z perspective=$PeRsPeCtIvE \ # # $Z depth=VRAI minimum=0.8 \ # # $Z R=$_____ImageR.2$M%s \ # # $Z $formatI # # # # $Z set _____Zoom=0.95 # # $Z set _____RotationOZ=0.0 # # $m4 _____include(_____xiirv/.CABC.11.1._____U) # # # # :Fin_listG_CABC_23_20: # # # # # # Cette image tente de visualiser la conjecture 'ABC' avec 20x20 nombres entiers : # # # # MIN2(k(A,B,C))=+0.38418327328527 # # MAX2(k(A,B,C))=+1.22629438553090 # # # v $xiirv/CABC.24.20 v $xiirv/CABC.24.20$m v $xiirv/CABC.24.20.1$M v $xiirv/CABC.24.20.2$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CABC_24_20: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NNombres=20 # # $Z set _____FRayon=0.060 # # $Z set _____Zoom=0.70 # # $Z set _____RotationOZ=0.4 # # # # $Z set _____Palette=$xiP/cercle.21 # # $Z set _____ImageR=$xiirv/CABC.24.20 # # $m4 _____include(_____xiirv/.CABC.11.1._____U) # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z standard=FAUX \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z points=25 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z set _____PaletteT=$xiP/cercle.22 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$_____PaletteT \ # # $Z R=$xTV/TEXTURE \ # # $Z $formatI # # # # $Z execRVB $xci/cache$X \ # # $Z M=$xTV/TEXTURE%s \ # # $Z A=$GRIS_2 \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xTV/TEXTURE%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z R=$_____ImageR$m%s \ # # $Z $formatI # # # # $Z set TrAnSlAtIoN_Y=0.995 # # $Z set PeRsPeCtIvE=0.4 # # $Z set EcHeLlE=1.2 # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z echelle=$EcHeLlE \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=FAUX \ # # $Z Ty=$TrAnSlAtIoN_Y \ # # $Z perspective=$PeRsPeCtIvE \ # # $Z depth=VRAI minimum=0.1 \ # # $Z R=$_____ImageR.1$M%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z echelle=$EcHeLlE \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=FAUX \ # # $Z Ty=$TrAnSlAtIoN_Y \ # # $Z perspective=$PeRsPeCtIvE \ # # $Z depth=VRAI minimum=0.8 \ # # $Z R=$_____ImageR.2$M%s \ # # $Z $formatI # # # # $Z set _____Zoom=0.95 # # $Z set _____RotationOZ=0.0 # # $m4 _____include(_____xiirv/.CABC.11.1._____U) # # # # :Fin_listG_CABC_24_20: # # # # # # Cette image tente de visualiser la conjecture 'ABC' avec 20x20 nombres entiers : # # # # MIN2(k(A,B,C))=+0.38418327328527 # # MAX2(k(A,B,C))=+1.22629438553090 # # # v $xiirv/CABC.32.20$m v $xiirv/CABC.32.20.1$M v $xiirv/CABC.32.20.2$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CABC_32_20: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NNombres=20 # # $Z set _____FRayon=0.060 # # $Z set _____Zoom=0.70 # # $Z set _____RotationOZ=0.4 # # # # $Z set _____Palette=$xiP/cercle.21 # # $Z set _____ImageR=$xTV/CABC.32.20 # # $m4 _____include(_____xiirv/.CABC.11.1._____U) # # $Z set _____ImageT=$_____ImageR # # # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____ImageR=$xiirv/CABC.32.20 # # $m4 _____include(_____xiirv/.CABC.11.1._____U) # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageT \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z standard=FAUX \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z points=25 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z points=25 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z R=$xTV/TEXTURE \ # # $Z $formatI # # # # $Z $xci/scale$X \ # # $Z A=$xTV/TEXTURE \ # # $Z a=1.00 \ # # $Z R=$xTV/TEXTURE.1$ROUGE \ # # $Z $formatI # # $Z $xci/scale$X \ # # $Z A=$xTV/TEXTURE \ # # $Z a=0.40 \ # # $Z R=$xTV/TEXTURE.1$VERTE \ # # $Z $formatI # # $Z $xci/scale$X \ # # $Z A=$xTV/TEXTURE \ # # $Z a=0.00 \ # # $Z R=$xTV/TEXTURE.1$BLEUE \ # # $Z $formatI # # # # $Z execRVB $xci/init$X \ # # $Z n=$GRIS_2 \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z $xci/cache.21$Z $xTV/FOND $xTV/TEXTURE.1 $xTV/TEXTURE # # # # $Z set OmBrE=0.8 # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z attenuation=$OmBrE \ # # $Z R=$_____ImageR$m%s \ # # $Z $formatI # # # # $Z set TrAnSlAtIoN_Y=0.995 # # $Z set PeRsPeCtIvE=0.4 # # $Z set EcHeLlE=1.2 # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z echelle=$EcHeLlE \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=FAUX \ # # $Z attenuation=$OmBrE \ # # $Z Ty=$TrAnSlAtIoN_Y \ # # $Z perspective=$PeRsPeCtIvE \ # # $Z depth=VRAI minimum=0.1 \ # # $Z R=$_____ImageR.1$M%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z echelle=$EcHeLlE \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=FAUX \ # # $Z attenuation=$OmBrE \ # # $Z Ty=$TrAnSlAtIoN_Y \ # # $Z perspective=$PeRsPeCtIvE \ # # $Z depth=VRAI minimum=0.8 \ # # $Z R=$_____ImageR.2$M%s \ # # $Z $formatI # # # # $Z execRVB $DELETE $_____ImageR%s # # # # :Fin_listG_CABC_32_20: # # # # # # Cette image tente de visualiser la conjecture 'ABC' avec 20x20 nombres entiers : # # # # MIN2(k(A,B,C))=+0.38418327328527 # # MAX2(k(A,B,C))=+1.22629438553090 # # # # Cette image est destinee a la couverture de Pour La Science du 11/2012... # v $xiirv/CABC.42.20 v $xiirv/CABC.42.20$m v $xiirv/CABC.42.20.1$M v $xiirv/CABC.42.20.2$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CABC_42_20: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NNombres=20 # # $Z set _____FRayon=0.060 # # $Z set _____Zoom=0.70 # # $Z set _____RotationOZ=0.4 # # # # $Z set _____Palette=$xiP/cercle.21 # # $Z set _____Lx=0.5 # # $Z set _____Ly=0.5 # # $Z set _____ImageR=$xiirv/CABC.42.20 # # $m4 _____include(_____xiirv/.CABC.11.1._____U) # # $Z set _____ImageT=$_____ImageR # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageT \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z standard=FAUX \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z points=25 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z points=25 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/rouge_orang.01 \ # # $Z R=$xTV/TEXTURE.1 \ # # $Z $formatI # # # # $Z execRVB $xci/init$X \ # # $Z n=$GRIS_2 \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z $xci/cache.21$Z $xTV/FOND $xTV/TEXTURE.1 $xTV/TEXTURE # # # # $Z set OmBrE=0.8 # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z attenuation=$OmBrE \ # # $Z R=$_____ImageR$m%s \ # # $Z $formatI # # # # $Z set TrAnSlAtIoN_Y=0.995 # # $Z set PeRsPeCtIvE=0.4 # # $Z set EcHeLlE=1.2 # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z echelle=$EcHeLlE \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=FAUX \ # # $Z attenuation=$OmBrE \ # # $Z Ty=$TrAnSlAtIoN_Y \ # # $Z perspective=$PeRsPeCtIvE \ # # $Z depth=VRAI minimum=0.1 \ # # $Z R=$_____ImageR.1$M%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z echelle=$EcHeLlE \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=FAUX \ # # $Z attenuation=$OmBrE \ # # $Z Ty=$TrAnSlAtIoN_Y \ # # $Z perspective=$PeRsPeCtIvE \ # # $Z depth=VRAI minimum=0.8 \ # # $Z R=$_____ImageR.2$M%s \ # # $Z $formatI # # # # $Z set _____Zoom=0.95 # # $Z set _____RotationOZ=0.0 # # $m4 _____include(_____xiirv/.CABC.11.1._____U) # # # # :Fin_listG_CABC_42_20: # # # # # # Cette image tente de visualiser la conjecture 'ABC' avec 20x20 nombres entiers : # # # # MIN2(k(A,B,C))=+0.38418327328527 # # MAX2(k(A,B,C))=+1.22629438553090 # # # # Cette image est peut-etre celle de la couverture de Pour La Science du 11/2012... # v $xiirv/CABC.52.20 v $xiirv/CABC.52.20$m v $xiirv/CABC.52.20.1$M v $xiirv/CABC.52.20.2$M v $xiirv/CABC.52.20.3$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CABC_52_20: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NNombres=20 # # $Z set _____FRayon=0.060 # # $Z set _____Zoom=0.70 # # $Z set _____RotationOZ=0.4 # # # # $Z set _____Palette=$xiP/cercle.21 # # $Z set _____ImageR=$xiirv/CABC.52.20 # # $m4 _____include(_____xiirv/.CABC.11.1._____U) # # $Z set _____ImageT=$_____ImageR # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageT \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z p=$xiP/gris.F4 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/densite_2D.11$X \ # # $Z dx=`GetArgHX 8 Pal` \ # # $Z dy=`GetArgHY 8 Pal` \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/SURFACE.1 \ # # $Z $formatI # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/SURFACE.1 \ # # $Z p=$xiP/rouge_orang.02 \ # # $Z R=$xTV/TEXTURE.1 \ # # $Z $formatI # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$xTV/TEXTURE.1%s \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z points=81 \ # # $Z R=$xTV/TEXTURE%s \ # # $Z $formatI # # # # $Z set OmBrE=0.8 # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z attenuation=$OmBrE \ # # $Z R=$_____ImageR$m%s \ # # $Z $formatI # # # # $Z set TrAnSlAtIoN_Y=0.995 # # $Z set PeRsPeCtIvE=0.4 # # $Z set EcHeLlE=1.2 # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z echelle=$EcHeLlE \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=FAUX \ # # $Z attenuation=$OmBrE \ # # $Z Ty=$TrAnSlAtIoN_Y \ # # $Z perspective=$PeRsPeCtIvE \ # # $Z depth=VRAI minimum=0.1 \ # # $Z R=$_____ImageR.1$M%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z echelle=$EcHeLlE \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=FAUX \ # # $Z attenuation=$OmBrE \ # # $Z Ty=$TrAnSlAtIoN_Y \ # # $Z perspective=$PeRsPeCtIvE \ # # $Z depth=VRAI minimum=0.8 \ # # $Z R=$_____ImageR.2$M%s \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/SURFACE.1 \ # # $Z p=$xiP/rouge_orang.03 \ # # $Z R=$xTV/TEXTURE.1 \ # # $Z $formatI # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$xTV/TEXTURE.1%s \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z points=81 \ # # $Z R=$xTV/TEXTURE%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z echelle=$EcHeLlE \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=FAUX \ # # $Z attenuation=$OmBrE \ # # $Z Ty=$TrAnSlAtIoN_Y \ # # $Z perspective=$PeRsPeCtIvE \ # # $Z depth=VRAI minimum=1.0 \ # # $Z fond=VRAI F=$BLANC \ # # $Z R=$_____ImageR.3$M%s \ # # $Z $formatI # # # # $Z set _____Zoom=0.95 # # $Z set _____RotationOZ=0.0 # # $m4 _____include(_____xiirv/.CABC.11.1._____U) # # # # :Fin_listG_CABC_52_20: # # # # # # Cette image tente de visualiser la conjecture 'ABC' avec 20x20 nombres entiers : # # # # MIN2(k(A,B,C))=+0.38418327328527 # # MAX2(k(A,B,C))=+1.22629438553090 # # # # Cette image est peut-etre celle de la couverture de Pour La Science du 11/2012... # # Dans ce cas, etant en format 'Pqu', les parametres : # # # # dx=8 dy=8 # # # # de $xci/densite_2D.11$X doivent etre multiplies par 4 (Pqu/Pal=4), soit donc : # # # # dx=32 dy=32 # # # v $xiirv/CABC.61 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_CABC_61: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FNoMbReS # # # # $Z set NoMbRe=`calculINS $dimX/4` # # $Z set NoMbRe_1=2 # # $Z set NoMbRe_N=`calculINS $NoMbRe_1+($NoMbRe-1)` # # # # $Z $xci/valeurs_inte$X \ # # $Z premiere=$NoMbRe_1 derniere=$NoMbRe_N \ # # $Z vD=$NoMbRe_1 vA=$NoMbRe_N \ # # $Z lineaire=VRAI \ # # $Z >> $FNoMbReS # # # # On notera l'absence de l'option "entiers=VRAI" (pourtant apparemment necessaire...) a # # cause du phenomene 'v $xci/valeurs_inte$K 20180623121923'. # # # # $Z FilSTmpB FRaDiCaUx # # # # $Z $xrv/DivPrem.01$X \ # # $Z ne=$NoMbRe \ # # $Z fichier=$FNoMbReS \ # # $Z editer_diviseurs_premiers=FAUX | \ # # $Z $AW ' { print $3 } ' | \ # # $Z $SE -e "s/^.*=//" \ # # $Z >> $FRaDiCaUx # # # # $Z FilSTmpB FCoOrDoNnEeS # # # # $Z set XYmin=0 # # $Z set XYmax=+1 # # # # $Z $xrv/normalise.01$X ne=$NoMbRe \ # # $Z fichier=$FNoMbReS \ # # $Z forcer_extrema=VRAI \ # # $Z minimum_force=$NoMbRe_1 maximum_force=$NoMbRe_N \ # # $Z minimum=$XYmin maximum=$XYmax \ # # $Z > $FCoOrDoNnEeS.1$COORD_X # # # # $Z $xrv/neutre$X ne=$NoMbRe \ # # $Z fichier=$FCoOrDoNnEeS.1$COORD_X \ # # $Z > $FCoOrDoNnEeS.2$COORD_X # # # # $Z $PAST $FCoOrDoNnEeS.1$COORD_X $FCoOrDoNnEeS.2$COORD_X | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $FCoOrDoNnEeS$COORD_X # # # # $Z $xrv/normalise.01$X ne=$NoMbRe \ # # $Z fichier=$FRaDiCaUx \ # # $Z forcer_extrema=VRAI \ # # $Z minimum_force=$NoMbRe_1 maximum_force=$NoMbRe_N \ # # $Z minimum=$XYmin maximum=$XYmax \ # # $Z > $FCoOrDoNnEeS.1$COORD_Y # # # # $Z $xci/valeurs_inte$X \ # # $Z premiere=$NoMbRe_1 derniere=$NoMbRe_N \ # # $Z vD=$XYmin vA=$XYmin \ # # $Z lineaire=VRAI \ # # $Z > $FCoOrDoNnEeS.2$COORD_Y # # # # $Z $PAST $FCoOrDoNnEeS.1$COORD_Y $FCoOrDoNnEeS.2$COORD_Y | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $FCoOrDoNnEeS$COORD_Y # # # # $Z $xci/valeurs_inte$X \ # # $Z premiere=$NoMbRe_1 derniere=$NoMbRe_N \ # # $Z vD=$NOIR_PLANCHER vA=$BLANC \ # # $Z lineaire=VRAI \ # # $Z entiers=VRAI \ # # $Z > $FCoOrDoNnEeS.1$NIVEAU # # # # $Z $xrv/neutre$X ne=$NoMbRe \ # # $Z fichier=$FCoOrDoNnEeS.1$NIVEAU \ # # $Z > $FCoOrDoNnEeS.2$NIVEAU # # # # $Z $PAST $FCoOrDoNnEeS.1$NIVEAU $FCoOrDoNnEeS.2$NIVEAU | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $FCoOrDoNnEeS$NIVEAU # # # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/CABC.61 # # # # $Z $xrv/particule.10$X np=1 iterations=`calculINS 2*$NoMbRe` \ # # $Z LISTE_X=$FCoOrDoNnEeS$COORD_X \ # # $Z LISTE_Y=$FCoOrDoNnEeS$COORD_Y \ # # $Z LISTE_Z=0 \ # # $Z LISTE_NIVEAU=$FCoOrDoNnEeS$NIVEAU \ # # $Z palette=$_____Palette \ # # $Z isoles=FAUX chainer=FAUX \ # # $Z ajuster_points=VRAI \ # # $Z equidistance=VRAI distance_minimale=0.004 \ # # $Z ZOOM=1.25 \ # # $Z Vrayon=0.004 \ # # $Z chiffres=0 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # $Z FilSTmpE FCoOrDoNnEeS # # $Z FilSTmpE FRaDiCaUx # # $Z FilSTmpE FNoMbReS # # # # :Fin_listG_CABC_61: # # # # # # Montre les radicaux des nombres entiers de 2 a 257... # v $xiirv/CARB.02 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_02: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB _____FVoisins # # # # $m4 _____include(_____xiirv/.CARB.01.1._____U) # # # # $Z SET _____Optimise=$EXIST # # $Z set _____OIterations=1000000 # # $Z set _____EpsilonConvergence=0.02 # # $Z SET _____DReference=VRAI # # $Z set _____Profondeur=0 # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.4 # # $Z set _____Zoom=0.8 # # $Z set _____RotationX=1.2 # # $Z set _____Rayon=0.010 # # $Z set _____Grossissement=2 # # $Z SET _____Palette="XYZ" # # $Z set _____ImageR=$xiirv/CARB.02 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z FilSTmpE _____FVoisins # # # # :Fin_listG_CARB_02: # # # # # # Montre une carte brownienne plane basee sur un ensemble de test simple. # # # # Voici les extrema des distances avant et apres : # # # # MinDim=+0.70710678118655 MaxDim=+1 MaxDim-MinDim=+0.29289321881345 # # MinDim=+0.85385490930958 MaxDim=+0.87236374581466 MaxDim-MinDim=+0.01850883650508 # # # v $xiirv/CARB.04 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_04: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB _____FVoisins # # # # $m4 _____include(_____xiirv/.CARB.01.3._____U) # # # # $Z SET _____Optimise=$EXIST # # $Z set _____OIterations=10000 # # $Z set _____Pppp=0.05 # # $Z set _____EpsilonConvergence=0.02 # # $Z SET _____DReference=VRAI # # $Z set _____Profondeur=0 # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.4 # # $Z set _____Zoom=1.1 # # $Z set _____RotationX=1.2 # # $Z set _____Rayon=0.010 # # $Z set _____Grossissement=2 # # $Z SET _____Palette="XYZ" # # $Z set _____ImageR=$xiirv/CARB.04 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z FilSTmpE _____FVoisins # # # # :Fin_listG_CARB_04: # # # # # # Montre une carte brownienne plane basee sur un ensemble de test simple. # # # # Voici les extrema des distances avant et apres : # # # # MinDim=+0.2 MaxDim=+1 MaxDim-MinDim=+0.8 # # MinDim=+0.60001795047073 MaxDim=+0.61922981220598 MaxDim-MinDim=+0.019211861735247 # # # v $xiirv/CARB.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_11: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.11.1._____U) # # # # $Z set _____Profondeur=0.5 # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.4 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette=$xiP/blanc # # $Z SET _____Densite=$EXIST # # $Z SET _____PaletteD=$xiP/cercle.35 # # $Z set _____ImageR=$xiirv/CARB.11 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_11: # # # # # # Montre une carte brownienne plane basee sur un ensemble homogene de points aleatoires. # v $xiirv/CARB.12 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_12: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.11.1._____U) # # # # $Z SET _____Optimise=$EXIST # # $Z set _____Pppp=0.05 # # $Z set _____Pprbs=0 # # $Z set _____Ppams=0.01 # # $Z set _____EpsilonConvergence=0.01 # # $Z set _____Profondeur=0 # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.4 # # $Z SET _____Palette="XYZ" # # $Z set _____ImageR=$xiirv/CARB.12 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_12: # # # # # # Montre une carte brownienne plane basee sur un ensemble homogene de points aleatoires. # # # # Voici les extrema des distances avant et apres : # # # # MinDim=+0.0009765625 MaxDim=+0.041212788761737 MaxDim-MinDim=+0.040512980051266 # # MinDim=+0.0009765625 MaxDim=+0.041212788761737 MaxDim-MinDim=+0.040512980051266 # # # v $xiirv/CARB.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_21: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.21.1._____U) # # # # $Z set _____Profondeur=0.5 # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.4 # # $Z SET _____Palette=$xiP/arc_ciel.C1 # # # # $Z set _____NAuCarre=VRAI # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" zoom_automatique=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnee_X=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnee_Y=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnee_Z=FAUX" # # # # $Z set _____ImageR=$xiirv/CARB.21 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_21: # # # # # # Montre une carte brownienne plane basee sur un maillage periodique de points. # # # # Le fait de ne pas voir le coloriage par '$xiP/arc_ciel.C1' comme un degrade "arc en ciel" # # de gauche a droite vient de 'v $xiirv/.CARB.11.2.$U 20150731141919' qui trie les aretes # # par longueur decroissante et ainsi l'ordre des points n'est plus celui correspondant a # # leur generation initiale... # v $xiirv/CARB.22 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_22: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.21.1._____U) # # # # $Z SET _____Optimise=$EXIST # # $Z set _____Ppams=0.01 # # $Z set _____Profondeur=0 # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.4 # # $Z SET _____Palette="XYZ" # # $Z set _____ImageR=$xiirv/CARB.22 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_22: # # # # # # Montre une carte brownienne plane basee sur un maillage periodique de points. # # # # Voici les extrema des distances avant et apres : # # # # MinDim=+0.03125 MaxDim=+0.044194173824159 MaxDim-MinDim=+0.012944173824159 # # MinDim=+0.03125 MaxDim=+0.044194173824159 MaxDim-MinDim=+0.012944173824159 # # # v $xiirv/CARB.31 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_31: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.31.1._____U) # # # # $Z set _____Profondeur=0.5 # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.4 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette=$xiP/blanc # # $Z SET _____Densite=$EXIST # # $Z SET _____PaletteD=$xiP/cercle.35 # # $Z set _____ImageR=$xiirv/CARB.31 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_31: # # # # # # Montre une carte brownienne plane basee sur un ensemble inhomogene de points aleatoires. # v $xiirv/CARB.32 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_32: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.31.1._____U) # # # # $Z SET _____Optimise=$EXIST # # $Z set _____Ppams=0.01 # # $Z set _____Profondeur=0 # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.4 # # $Z SET _____Palette="XYZ" # # $Z set _____ImageR=$xiirv/CARB.32 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_32: # # # # # # Montre une carte brownienne plane basee sur un ensemble inhomogene de points aleatoires. # # # # Voici les extrema des distances avant et apres : # # # # MinDim=+0.0009765625 MaxDim=+0.051174111353804 MaxDim-MinDim=+0.050197548853804 # # MinDim=+0.0009765625 MaxDim=+0.051174111353804 MaxDim-MinDim=+0.050197548853804 # # # v $xiirv/CARB.33 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_CARB_33: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____FMailleX=0.02 # # $Z set _____FMailleY=0.02 # # $Z set _____RFacteur=0.00170 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.31.1._____U) # # # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1789 # # $Z set _____DeriveeY=1947 # # $Z set _____PonderationX=0.3 # # $Z set _____PonderationY=0.3 # # $Z set _____Profondeur=0.5 # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.4 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette=$xiP/blanc # # $Z SET _____Densite=$EXIST # # $Z SET _____PaletteD=$xiP/cercle.35 # # $Z set _____ImageR=$xTV/CARB.33 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z $xci/luminance.01$X A=$_____ImageR \ # # $Z R=$xTV/CARB.33.1 \ # # $Z $formatI # # # # $Z $xci/complement$X A=$xTV/CARB.33.1 \ # # $Z R=$xTV/CARB.33.3 \ # # $Z $formatI # # # # $Z $xci/contours.22$X A=$xTV/CARB.33.1 \ # # $Z niveau_aleatoire=VRAI \ # # $Z R=$xTV/CARB.33.2 \ # # $Z $formatI # # # # $Z set _____PaletteR1=$xiP/vert_orange_noir # # $Z set _____PaletteR2=$xiP/bleu_roug.11 # # # # $Z $xci/vraies_C$X A=$xTV/CARB.33.2 \ # # $Z p=$_____PaletteR1 \ # # $Z R=$xTV/CARB.33.4.1 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X A=$xTV/CARB.33.2 \ # # $Z p=$_____PaletteR2 \ # # $Z R=$xTV/CARB.33.4.2 \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z R=$xTV/TREFLE \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X A1=$xTV/CARB.33.4.1%s \ # # $Z A2=$xTV/CARB.33.4.2%s \ # # $Z P=$xTV/TREFLE \ # # $Z R=$xTV/CARB.33.4%s \ # # $Z $formatI # # # # $Z set _____ImageR=$xiirv/CARB.33 # # # # $Z execRVB "$xci/multi_02.01$X \ # # $Z A1=$xTV/CARB.33.3 \ # # $Z A2=$xTV/CARB.33.4%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=25 \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_CARB_33: # # # v $xiirv/CARB.41 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_41: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageN1=$xTV/QUADRILLAGE # # $Z set _____ImageN=$_____ImageN1 # # $m4 _____include(_____xiirv/.CARB.21.1._____U) # # $Z set _____ImageN2=$xTV/POINTS_ALEATOIRES # # $Z set _____ImageN=$_____ImageN2 # # $m4 _____include(_____xiirv/.CARB.31.1._____U) # # # # $Z set GrAiNe=1789 # # $Z set ItErAtIoNs=2 # # $Z set MaIlLeX=0.2 # # $Z set MaIlLeY=0.2 # # $Z set _____ImageN3=$xTV/FRACTAL # # $Z $xci/fract_2D.01$X \ # # $Z graine=$GrAiNe \ # # $Z iterations=$ItErAtIoNs \ # # $Z mX=$MaIlLeX mY=$MaIlLeY \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z seuil=$GRIS_4 \ # # $Z R=$_____ImageN3 \ # # $Z $formatI # # # # $Z $xci/and$X \ # # $Z A1=$_____ImageN1 \ # # $Z A2=$_____ImageN3 \ # # $Z R=$_____ImageN1 \ # # $Z $formatI # # # # $Z $xci/complement$X \ # # $Z A=$_____ImageN3 \ # # $Z $formatI | \ # # $Z $xci/and$X \ # # $Z A1=$_____ImageN2 \ # # $Z R=$_____ImageN2 \ # # $Z $formatI # # # # $Z set _____ImageN=$xTV/POINTS # # $Z $xci/or_02$X \ # # $Z A1=$_____ImageN1 \ # # $Z A2=$_____ImageN2 \ # # $Z R=$_____ImageN \ # # $Z $formatI # # # # $Z set _____Profondeur=0.5 # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.4 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette=$xiP/blanc # # $Z SET _____Densite=$EXIST # # $Z SET _____PaletteD=$xiP/cercle.35 # # $Z set _____ImageR=$xiirv/CARB.41 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_41: # # # # # # Montre une carte brownienne plane basee sur un melange fractal entre un ensemble # # inhomogene de points aleatoires et un maillage periodique de points. # v $xiirv/CARB.51 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_51: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.31.1._____U) # # # # $Z set _____Profondeur=$xTV/FRACTAL_Z # # $Z set Z_OE=0.5 # # $Z set dZ_OE=0.15 # # $Z set Z_O=`calcul $Z_OE-$dZ_OE` # # $Z set Z_E=`calcul $Z_OE+$dZ_OE` # # # # $Z $xci/fract_2D.01$X \ # # $Z graine=$_____Graine \ # # $Z iterations=$_____FIterations \ # # $Z mx=$_____FMailleX my=$_____FMailleY \ # # $Z standard=FAUX \ # # $Z renormaliser=VRAI origine=$Z_O extremite=$Z_E \ # # $Z R=$_____Profondeur \ # # $Z $formatI # # # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.4 # # $Z set _____RotationX=2.2 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette=$xiP/arc_ciel.C1 # # $Z SET _____Densite=$NEXIST # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.51 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_51: # # # # # # Montre une carte brownienne plane basee sur un ensemble inhomogene de points aleatoires. # v $xiirv/CARB.61 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_61: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.61.1._____U) # # # # Il est essentiel que le format de l'image soit du type 'Std' (ici 'Sdu') si l'on veut que # # 'v $xiirv/.CARB.61.1.$U t.=.calcul' fonctionne correctement et ne donne pas un "repliement" # # des points a cause de 'v $xiipf/fonction.3$FON MODU'... # # # # $Z set _____Profondeur=0.5 # # $Z set _____NPointsT=`calcul (2*$_____PasX)*(2*$_____PasY)` # # $Z set _____NVoisins=8 # # # # $Z set _____DistanceMax=`calcul sqrt(1+1)/(($dimX/$_____PasX)-1)` # # # # ou : # # # # $Z set _____DistanceMax=`calcul sqrt(1+1)/(($dimY/$_____PasY)-1)` # # # # $Z SET _____Palette=$xiP/arc_ciel.C1 # # # # $Z set _____NAuCarre=VRAI # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" zoom_automatique=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnee_X=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnee_Y=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnee_Z=FAUX" # # # # $Z set _____ImageR=$xiirv/CARB.61 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_61: # # # # # # Montre une carte brownienne plane basee sur un maillage periodique de points. # v $xiirv/CARB.62 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_62: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.61.1._____U) # # # # Il est essentiel que le format de l'image soit du type 'Std' (ici 'Sdu') si l'on veut que # # 'v $xiirv/.CARB.61.1.$U t.=.calcul' fonctionne correctement et ne donne pas un "repliement" # # des points a cause de 'v $xiipf/fonction.3$FON MODU'... # # # # $Z SET _____Optimise=$EXIST # # $Z set _____Ppams=0.01 # # $Z set _____Profondeur=0 # # $Z set _____NPointsT=`calcul (2*$_____PasX)*(2*$_____PasY)` # # $Z set _____NVoisins=8 # # # # $Z set _____DistanceMax=`calcul sqrt(1+1)/(($dimX/$_____PasX)-1)` # # # # ou : # # # # $Z set _____DistanceMax=`calcul sqrt(1+1)/(($dimY/$_____PasY)-1)` # # # # $Z SET _____Palette="XYZ" # # $Z set _____ImageR=$xiirv/CARB.62 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_62: # # # # # # Montre une carte brownienne plane basee sur un maillage periodique de points. # # # # Voici les extrema des distances avant et apres : # # # # MinDim=+0.04419417382415 MaxDim=+0.0625 MaxDim-MinDim=+0.018305826175841 # # MinDim=+0.04419417382415 MaxDim=+0.0625 MaxDim-MinDim=+0.018305826175841 # # # v $xiirv/CARB.71 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_71: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB _____FVoisins # # # # $m4 _____include(_____xiirv/.CARB.71.1._____U) # # # # $Z SET _____SupIntersections=$EXIST # # $Z SET _____Optimise=$NEXIST # # $Z set _____OIterations=1000000 # # $Z set _____EpsilonConvergence=0.02 # # $Z SET _____DReference=VRAI # # $Z set _____Profondeur=0 # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.4 # # $Z set _____Zoom=0.6 # # $Z set _____RotationX=1.2 # # $Z set _____Rayon=0.010 # # $Z set _____Grossissement=2 # # $Z SET _____Palette=RVB # # $Z set _____ImageR=$xiirv/CARB.71 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z FilSTmpE _____FVoisins # # # # :Fin_listG_CARB_71: # # # # # # Test destine a verifier la bonne gestion des intersections en supprimant 2 des 3 # # grandes diagonales d'un cube... # v $xiirv/CARB.81 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_81: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.81.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.81 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_81: # # # # # # Montre une carte brownienne volumique basee sur un ensemble homogene de points # # aleatoires. # v $xiirv/CARB.81$HauteDef # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CARB_81_HauteDef: # # # # $Z Shu # # # # $Z setenv xTV $xTG # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.81.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.81$HauteDef # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_81_HauteDef: # # # # # # Montre une carte brownienne volumique basee sur un ensemble homogene de points # # aleatoires. # # # # Elle est identique a 'v $xiirv/CARB.81' mais en mode '$HauteDef' pour le livre de # # Tom Mikulic ('v $Dcourrier_in/20150504091726 From.tmikulic@gmail.com..Thu.Apr.30.18:15'). # v $xiirv/CARB.81.1.1 v $xiirv/CARB.81.1.2 v $xiirv/CARB.81.1.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CARB_81_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.81.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.81.1 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____DemiPaveX=1 # # $Z set _____DemiPaveY=1 # # $Z set _____DemiPaveZ=1 # # $Z set _____ImageT1=$xTV/CARB.81 # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.81.1 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_CARB_81_1: # # # # # # Montre une carte brownienne volumique basee sur un ensemble homogene de points # # aleatoires. # v $xiirv/CARB.82 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_CARB_82: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.81.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette=$xiP/cercle.35 # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.82 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_82: # # # # # # Montre une carte brownienne volumique basee sur un ensemble homogene de points # # aleatoires. # v $xiirv/CARB.89 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_CARB_89: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.81.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z set _____DeriveeX=0.2 # # $Z set _____DeriveeY=0.2 # # $Z set _____DeriveeZ=0.2 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.89 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_89: # # # # # # Montre une carte brownienne volumique basee sur un ensemble homogene de points # # aleatoires. # v $xiirv/CARB.8A # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_8A: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Suh" # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.81.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____DeriveeY=1789 # # $Z set _____DeriveeZ=2001 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.8A # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_8A: # # # # # # Montre une carte brownienne volumique basee sur un ensemble homogene de points # # aleatoires. # v $xiirv/CARB.8A$HauteDef # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CARB_8A_HauteDef: # # # # $Z Shu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Suh" # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.81.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____DeriveeY=1789 # # $Z set _____DeriveeZ=2001 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.8A$HauteDef # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_8A_HauteDef: # # # # # # Montre une carte brownienne volumique basee sur un ensemble homogene de points # # aleatoires. # # # # Elle est identique a 'v $xiirv/CARB.8A' mais en mode '$HauteDef' pour le livre de # # Tom Mikulic ('v $Dcourrier_in/20150504091726 From.tmikulic@gmail.com..Thu.Apr.30.18:15'). # v $xiirv/CARB.8A.1.1 v $xiirv/CARB.8A.1.2 v $xiirv/CARB.8A.1.21 # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_CARB_8A_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____Format="Suh" # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.81.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____DeriveeY=1789 # # $Z set _____DeriveeZ=2001 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.8A.1 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____DemiPaveX=1 # # $Z set _____DemiPaveY=1 # # $Z set _____DemiPaveZ=1 # # $Z set _____ImageT1=$xTV/CARB.8A # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.8A.1 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_CARB_8A_1: # # # # # # Montre une carte brownienne volumique basee sur un ensemble homogene de points # # aleatoires. # v $xiirv/CARB.91 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_91: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.91 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_91: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene fractal # # de points aleatoires. # v $xiirv/CARB.91.1.1 v $xiirv/CARB.91.1.2 v $xiirv/CARB.91.1.21 # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_CARB_91_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.91.1 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____DemiPaveX=1 # # $Z set _____DemiPaveY=1 # # $Z set _____DemiPaveZ=1 # # $Z set _____ImageT1=$xTV/CARB.91 # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.91.1 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_CARB_91_1: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene fractal # # de points aleatoires. # # # # L'image 'v $xiirv/CARB.91.1.21' fut utilisee pour l'affiche de la journee de rentree du # # CMAP en 2017. # v $xiirv/CARB.92 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_CARB_92: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette=$xiP/cercle.35 # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.92 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_92: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene fractal # # de points aleatoires. # v $xiirv/CARB.92.1$m # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_92_1_m: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/CARB.92 # # $Z set _____ImageR=$_____ImageA.1$m # # # # $Z $xci/luminance.01$X A=$_____ImageA \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # $Z $xci/gauss$X R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/filtre.01$X A=$xTV/LUMINANCE \ # # $Z N=$xTV/GAUSS \ # # $Z seuil=240 \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X pA=$xiP/enfer.12 \ # # $Z R=$xTV/TEXTURE \ # # $Z $formatI # # # # $Z $xci/filtre.01$X A=$xTV/LUMINANCE \ # # $Z N=$xTV/GAUSS \ # # $Z seuil=250 \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=1000 \ # # $Z navap=VRAI \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z Sy=20 \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_CARB_92_1_m: # # # v $xiirv/CARB.93.1.1 v $xiirv/CARB.93.1.2 v $xiirv/CARB.93.1.21 # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_CARB_93_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.93.1 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____PCubique=FAUX # # $Z set _____DemiPaveX=7 # # $Z set _____DemiPaveY=7 # # $Z set _____DemiPaveZ=7 # # $Z set _____ImageT1=$xTV/CARB.93 # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.93.1 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_CARB_93_1: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene de points # # aleatoires. # v $xiirv/CARB.99 # Generee (sur '$CMAP28' -ex "vaugirard"-) par : # # # # # # :Debut_listG_CARB_99: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z set _____DeriveeX=0.2 # # $Z set _____DeriveeY=0.2 # # $Z set _____DeriveeZ=0.2 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.99 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_99: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene fractal # # de points aleatoires. # v $xiirv/CARB.9A # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_9A: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Suh" # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____DeriveeY=1789 # # $Z set _____DeriveeZ=2001 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.9A # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_9A: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene fractal # # de points aleatoires. # v $xiirv/CARB.9A$HauteDef # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CARB_9A_HauteDef: # # # # $Z Shu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Suh" # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____DeriveeY=1789 # # $Z set _____DeriveeZ=2001 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.9A$HauteDef # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_9A_HauteDef: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene fractal # # de points aleatoires. # # # # Elle est identique a 'v $xiirv/CARB.9A' mais en mode '$HauteDef' pour le livre de # # Tom Mikulic ('v $Dcourrier_in/20150504091726 From.tmikulic@gmail.com..Thu.Apr.30.18:15'). # v $xiirv/CARB.9A.1.1 v $xiirv/CARB.9A.1.2 v $xiirv/CARB.9A.1.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CARB_9A_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____Format="Suh" # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____DeriveeY=1789 # # $Z set _____DeriveeZ=2001 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.9A.1 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____DemiPaveX=1 # # $Z set _____DemiPaveY=1 # # $Z set _____DemiPaveZ=1 # # $Z set _____ImageT1=$xTV/CARB.9A # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.9A.1 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_CARB_9A_1: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene fractal # # de points aleatoires. # v $xiirv/CARB.9B # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CARB_9B: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Suh" # # $Z set _____FMailleX=0.500 # # $Z set _____FMailleY=0.500 # # $Z set _____FMailleZ=0.500 # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____PonderationX=0.1 # # $Z set _____DeriveeY=1789 # # $Z set _____PonderationY=0.1 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=0.1 # # $Z set _____DistanceMax=0.2 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.9B # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_9B: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene fractal # # de points aleatoires. # v $xiirv/CARB.9C # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CARB_9C: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=3 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____PonderationX=0.0 # # $Z set _____DeriveeY=1789 # # $Z set _____PonderationY=0.0 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=0.0 # # $Z set _____DistanceMax=0.3 # # $Z set _____Rayon=0.006 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=4.0 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.65 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ImageR=$xiirv/CARB.9C # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_9C: # # # # # # Montre une carte brownienne volumique basee sur un ensemble homogene periodique # # de points non aleatoires. # v $xiirv/CARB.9D # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CARB_9D: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=3 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____PonderationX=0.0 # # $Z set _____DeriveeY=1789 # # $Z set _____PonderationY=0.0 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=0.0 # # $Z set _____DistanceMax=0.3 # # $Z set _____Rayon=0.006 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z SET _____Deplacer=$EXIST # # $Z set _____Grossissement=4.0 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.65 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ImageR=$xiirv/CARB.9D # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_9D: # # # # # # Montre une carte brownienne volumique basee sur un ensemble homogene non periodique # # de points non aleatoires. # v $xiirv/CARB.9E # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CARB_9E: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=3 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____PonderationX=4.0 # # $Z set _____DeriveeY=1789 # # $Z set _____PonderationY=4.0 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=4.0 # # $Z set _____DistanceMax=0.3 # # $Z set _____Rayon=0.006 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z SET _____Deplacer=$EXIST # # $Z set _____DeplacerXp=+0.2 # # $Z set _____DeplacerYp=+0.2 # # $Z set _____DeplacerZp=+0.2 # # $Z set _____Grossissement=4.0 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.45 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ImageR=$xiirv/CARB.9E # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_9E: # # # # # # Montre une carte brownienne volumique basee sur un ensemble homogene non periodique # # de points non aleatoires. # v $xiirv/CARB.9E.1.1 v $xiirv/CARB.9E.1.2 v $xiirv/CARB.9E.1.21 # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_CARB_9E_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=3 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____PonderationX=4.0 # # $Z set _____DeriveeY=1789 # # $Z set _____PonderationY=4.0 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=4.0 # # $Z set _____DistanceMax=0.3 # # $Z set _____Rayon=0.006 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z SET _____Deplacer=$EXIST # # $Z set _____DeplacerXp=+0.2 # # $Z set _____DeplacerYp=+0.2 # # $Z set _____DeplacerZp=+0.2 # # $Z set _____Grossissement=4.0 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.45 # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.9E.1 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____MinX=0.10 # # $Z set _____MaxX=0.90 # # $Z set _____MinY=0.10 # # $Z set _____MaxY=0.90 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z set _____PCubique=FAUX # # $Z set _____ImageT1=$xTV/CARB.9E # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.9E.1 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_CARB_9E_1: # # # # # # Montre une autre version de 'v $xiirv/CARB.9E'... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:05:45 # # # # $xci/accumule.42$X : 00:08:58 # # # v $xiirv/CARB.9E.2.1 v $xiirv/CARB.9E.2.2 v $xiirv/CARB.9E.2.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CARB_9E_2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=3 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____PonderationX=4.0 # # $Z set _____DeriveeY=1789 # # $Z set _____PonderationY=4.0 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=4.0 # # $Z set _____DistanceMax=0.3 # # $Z set _____Rayon=0.006 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z SET _____Deplacer=$EXIST # # $Z set _____DeplacerXp=+0.2 # # $Z set _____DeplacerYp=+0.2 # # $Z set _____DeplacerZp=+0.2 # # $Z set _____Grossissement=4.0 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.45 # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.9E.2 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____MinX=0.10 # # $Z set _____MaxX=0.90 # # $Z set _____MinY=0.10 # # $Z set _____MaxY=0.90 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z SET _____DemiPaveVariable=$EXIST # # $Z set _____PCubique=FAUX # # $Z set _____ImageT1=$xTV/CARB.9E # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.9E.2 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_CARB_9E_2: # # # # # # Montre une image similaire a 'v $xiirv/CARB.9E.1.21', mais avec '$_____DemiPaveVariable' # # dans sa version "neutre" et donc avec les noeuds representes avec des grosses spheres... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:06:49 # # # # $xci/accumule.42$X : 00:09:23 # # # v $xiirv/CARB.9E.3.1 v $xiirv/CARB.9E.3.2 v $xiirv/CARB.9E.3.21 # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_CARB_9E_3: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=3 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____PonderationX=4.0 # # $Z set _____DeriveeY=1789 # # $Z set _____PonderationY=4.0 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=4.0 # # $Z set _____DistanceMax=0.3 # # $Z set _____Rayon=0.006 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z SET _____Deplacer=$EXIST # # $Z set _____DeplacerXp=+0.2 # # $Z set _____DeplacerYp=+0.2 # # $Z set _____DeplacerZp=+0.2 # # $Z set _____Grossissement=4.0 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.45 # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.9E.3 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____MinX=0.10 # # $Z set _____MaxX=0.90 # # $Z set _____MinY=0.10 # # $Z set _____MaxY=0.90 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z SET _____DemiPaveVariable=$EXIST # # $Z set _____DemiPaveVariableBi=0 # # $Z set _____DemiPaveVariableBs=1 # # $Z set _____DemiPaveVariableBm=0.5 # # $Z set _____DemiPaveVariableBM=1.5 # # $Z set _____PCubique=FAUX # # $Z set _____ImageT1=$xTV/CARB.9E # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.9E.3 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_CARB_9E_3: # # # # # # Montre une image similaire a 'v $xiirv/CARB.9E.1.21', mais avec '$_____DemiPaveVariable' # # dans une version non "neutre" et donc avec les noeuds representes avec des grosses spheres # # et les liaisons ayant des diametres fluctuants... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:07:10 # # # # $xci/accumule.42$X : 00:09:55 # # # v $xiirv/CARB.9E.4.1 v $xiirv/CARB.9E.4.2 v $xiirv/CARB.9E.4.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CARB_9E_4: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=3 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____PonderationX=4.0 # # $Z set _____DeriveeY=1789 # # $Z set _____PonderationY=4.0 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=4.0 # # $Z set _____DistanceMax=0.3 # # $Z set _____Rayon=0.006 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z SET _____Deplacer=$EXIST # # $Z set _____DeplacerXp=+0.2 # # $Z set _____DeplacerYp=+0.2 # # $Z set _____DeplacerZp=+0.2 # # $Z set _____Grossissement=2.0 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.45 # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.9E.4 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____MinX=0.10 # # $Z set _____MaxX=0.90 # # $Z set _____MinY=0.10 # # $Z set _____MaxY=0.90 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z SET _____DemiPaveVariable=$EXIST # # $Z set _____DemiPaveVariableBi=0 # # $Z set _____DemiPaveVariableBs=1 # # $Z set _____DemiPaveVariableBm=0.5 # # $Z set _____DemiPaveVariableBM=2.5 # # $Z set _____DemiPaveVariableIt=6 # # $Z set _____PCubique=FAUX # # $Z set _____ImageT1=$xTV/CARB.9E # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.9E.4 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_CARB_9E_4: # # # # # # Montre une image similaire a 'v $xiirv/CARB.9E.1.21', mais avec '$_____DemiPaveVariable' # # dans une version non "neutre" et donc avec les noeuds representes avec des grosses spheres # # et les liaisons ayant des diametres fluctuants... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:42:39 # # # # $xci/accumule.42$X : 01:11:14 # # # v $xiirv/CARB.9E.5.1 v $xiirv/CARB.9E.5.2 v $xiirv/CARB.9E.5.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_CARB_9E_5: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=3 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____PonderationX=4.0 # # $Z set _____DeriveeY=1789 # # $Z set _____PonderationY=4.0 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=4.0 # # $Z set _____DistanceMax=0.3 # # $Z set _____Rayon=0.003 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z SET _____Deplacer=$EXIST # # $Z set _____DeplacerXp=+0.2 # # $Z set _____DeplacerYp=+0.2 # # $Z set _____DeplacerZp=+0.2 # # $Z set _____Grossissement=2.0 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.45 # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.9E.5 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____MinX=0.10 # # $Z set _____MaxX=0.90 # # $Z set _____MinY=0.10 # # $Z set _____MaxY=0.90 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z SET _____DemiPaveVariable=$EXIST # # $Z set _____DemiPaveVariableBi=0 # # $Z set _____DemiPaveVariableBs=1 # # $Z set _____DemiPaveVariableBm=0.5 # # $Z set _____DemiPaveVariableBM=2.5 # # $Z set _____DemiPaveVariableIt=6 # # $Z set _____PCubique=FAUX # # $Z set _____ImageT1=$xTV/CARB.9E # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.9E.5 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # :Fin_listG_CARB_9E_5: # # # # # # Montre une image similaire a 'v $xiirv/CARB.9E.1.21', mais avec '$_____DemiPaveVariable' # # dans une version non "neutre" et donc avec les noeuds representes avec des grosses spheres # # et les liaisons ayant des diametres fluctuants... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:32:08 # # # # $xci/accumule.42$X : 00:59:54 # # # v $xiirv/CARB.9E.5.1$m # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_9E_5_1_m: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesA=$xiirv/CARB.9E.5.1 # # $Z set _____imagesR=$_____imagesA$m # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____imagesA \ # # $Z R=$xTV/CARB.9E.5.1$LUMIN \ # # $Z $formatI # # # # $Z set TrAnSlAtIoNs=`$xci/extremaXY$X A=$xTV/CARB.9E.5.1$LUMIN $formatI Prme=VRAI` # # # # $Z execRVB $xci/scroll$X \ # # $Z A=$_____imagesA%s \ # # $Z toreX=FAUX \ # # $Z $TrAnSlAtIoNs \ # # $Z R=$xTV/CARB.9E.5.1.1%s \ # # $Z $formatI # # # # $Z set NPoInTs=9 # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$xTV/CARB.9E.5.1.1%s \ # # $Z points=`calcul $NPoInTs*$NPoInTs` \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$xTV/CARB.9E.5.1.2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/CARB.9E.5.1.2 \ # # $Z R=$xTV/CARB.9E.5.1.9 \ # # $Z $formatI # # # # $Z $xci/tapisserie$X \ # # $Z A=$xTV/CARB.9E.5.1.9 \ # # $Z iterations=8 \ # # $Z cache=VRAI \ # # $Z anti_aliaser=FAUX \ # # $Z echelle=VRAI a=0.6 \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xTV/CARB.9E.5.1.3.1 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CARB.9E.5.1.3.1 \ # # $Z p=$xiP/random.B7$Fi \ # # $Z R=$xTV/CARB.9E.5.1.3.2 \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/CARB.9E.5.1.3.1 \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z navap=VRAI \ # # $Z passes=4 \ # # $Z R=$xTV/CARB.9E.5.1.3.3 \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/CARB.9E.5.1.3.3 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/CARB.9E.5.1.3.2%s \ # # $Z avion=VRAI \ # # $Z Sy=20 \ # # $Z R=$_____imagesR%s \ # # $Z $formatI" # # # # :Fin_listG_CARB_9E_5_1_m: # # # v $xiirv/CARB.9F.5.1 v $xiirv/CARB.9F.5.2 v $xiirv/CARB.9F.5.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CARB_9F_5: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=3 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # $Z SET _____RGraine=19473 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=19473 # # $Z set _____PonderationX=4.0 # # $Z set _____DeriveeY=17893 # # $Z set _____PonderationY=4.0 # # $Z set _____DeriveeZ=20013 # # $Z set _____PonderationZ=4.0 # # $Z set _____DistanceMax=0.3 # # $Z set _____Rayon=0.003 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z SET _____Deplacer=$EXIST # # $Z set _____DeplacerXp=+0.2 # # $Z set _____DeplacerYp=+0.2 # # $Z set _____DeplacerZp=+0.2 # # $Z set _____Grossissement=1.0 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.45 # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.9F.5 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____MinX=0.10 # # $Z set _____MaxX=0.90 # # $Z set _____MinY=0.10 # # $Z set _____MaxY=0.90 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z SET _____DemiPaveVariable=$EXIST # # $Z set _____DemiPaveVariableG=19473 # # $Z set _____DemiPaveVariableBi=0 # # $Z set _____DemiPaveVariableBs=1 # # $Z set _____DemiPaveVariableBm=0.5 # # $Z set _____DemiPaveVariableBM=8.0 # # $Z set _____DemiPaveVariableIt=6 # # $Z set _____PCubique=FAUX # # $Z set _____ImageT1=$xTV/CARB.9F # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.9F.5 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # :Fin_listG_CARB_9F_5: # # # # # # Montre une image similaire a 'v $xiirv/CARB.9E.5.21', mais beaucoup plus epaisse, sans # # mise en evidence des noeuds et les liaisons ayant des diametres fluctuants... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 01:29:15 # # # # $xci/accumule.42$X : 01:41:36 # # # v $xiirv/CARB.9G.5.1 v $xiirv/CARB.9G.5.2 v $xiirv/CARB.9G.5.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CARB_9G_5: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=3 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # $Z SET _____RGraine=19477 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=19473 # # $Z set _____PonderationX=4.0 # # $Z set _____DeriveeY=17893 # # $Z set _____PonderationY=4.0 # # $Z set _____DeriveeZ=20013 # # $Z set _____PonderationZ=4.0 # # $Z set _____DistanceMax=0.3 # # $Z set _____Rayon=0.003 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z SET _____Deplacer=$EXIST # # $Z set _____DeplacerXp=+0.2 # # $Z set _____DeplacerYp=+0.2 # # $Z set _____DeplacerZp=+0.2 # # $Z set _____Grossissement=1.0 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.45 # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.9G.5 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____MinX=0.10 # # $Z set _____MaxX=0.90 # # $Z set _____MinY=0.10 # # $Z set _____MaxY=0.90 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z SET _____DemiPaveVariable=$EXIST # # $Z set _____DemiPaveVariableG=19477 # # $Z set _____DemiPaveVariableBi=0 # # $Z set _____DemiPaveVariableBs=1 # # $Z set _____DemiPaveVariableBm=0.5 # # $Z set _____DemiPaveVariableBM=5.5 # # $Z set _____DemiPaveVariableIt=30 # # $Z set _____PCubique=FAUX # # $Z set _____ImageT1=$xTV/CARB.9G # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.9G.5 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # :Fin_listG_CARB_9G_5: # # # # # # Montre une image similaire a 'v $xiirv/CARB.9E.5.21', mais beaucoup plus epaisse, sans # # mise en evidence des noeuds et les liaisons ayant des diametres fluctuants... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 01:13:12 # # # # $xci/accumule.42$X : 01:22:03 # # # v $xiirv/CARB.9G.5.1$m # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_9G_5_1_m: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesA=$xiirv/CARB.9G.5.1 # # $Z set _____imagesR=$_____imagesA$m # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____imagesA \ # # $Z R=$xTV/CARB.9G.5.1$LUMIN \ # # $Z $formatI # # # # $Z set TrAnSlAtIoNs=`$xci/extremaXY$X A=$xTV/CARB.9G.5.1$LUMIN $formatI Prme=VRAI` # # # # $Z execRVB $xci/scroll$X \ # # $Z A=$_____imagesA%s \ # # $Z toreX=FAUX \ # # $Z $TrAnSlAtIoNs \ # # $Z R=$xTV/CARB.9G.5.1.1%s \ # # $Z $formatI # # # # $Z set NPoInTs=9 # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$xTV/CARB.9G.5.1.1%s \ # # $Z points=`calcul $NPoInTs*$NPoInTs` \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$xTV/CARB.9G.5.1.2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/CARB.9G.5.1.2 \ # # $Z R=$xTV/CARB.9G.5.1.9 \ # # $Z $formatI # # # # $Z $xci/tapisserie$X \ # # $Z A=$xTV/CARB.9G.5.1.9 \ # # $Z iterations=8 \ # # $Z cache=VRAI \ # # $Z anti_aliaser=FAUX \ # # $Z echelle=VRAI a=0.6 \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xTV/CARB.9G.5.1.3.1 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CARB.9G.5.1.3.1 \ # # $Z p=$xiP/random.A5 \ # # $Z R=$xTV/CARB.9G.5.1.3.2 \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/CARB.9G.5.1.3.1 \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z navap=VRAI \ # # $Z passes=4 \ # # $Z R=$xTV/CARB.9G.5.1.3.3 \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/CARB.9G.5.1.3.3 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/CARB.9G.5.1.3.2%s \ # # $Z avion=VRAI \ # # $Z Sy=20 \ # # $Z R=$_____imagesR%s \ # # $Z $formatI" # # # # :Fin_listG_CARB_9G_5_1_m: # # # v $xiirv/CARB.9H.5.1 v $xiirv/CARB.9H.5.2 v $xiirv/CARB.9H.5.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CARB_9H_5: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=3 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # $Z SET _____RGraine=19477 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=19479 # # $Z set _____PonderationX=4.0 # # $Z set _____DeriveeY=17899 # # $Z set _____PonderationY=4.0 # # $Z set _____DeriveeZ=20019 # # $Z set _____PonderationZ=4.0 # # $Z set _____DistanceMax=0.3 # # $Z set _____Rayon=0.003 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z SET _____Deplacer=$EXIST # # $Z set _____DeplacerXp=+0.2 # # $Z set _____DeplacerYp=+0.2 # # $Z set _____DeplacerZp=+0.2 # # $Z set _____Grossissement=1.0 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.45 # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.9H.5 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____MinX=0.10 # # $Z set _____MaxX=0.90 # # $Z set _____MinY=0.10 # # $Z set _____MaxY=0.90 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z SET _____DemiPaveVariable=$EXIST # # $Z set _____DemiPaveVariableG=19479 # # $Z set _____DemiPaveVariableBi=0 # # $Z set _____DemiPaveVariableBs=1 # # $Z set _____DemiPaveVariableBm=0.5 # # $Z set _____DemiPaveVariableBM=8.0 # # $Z set _____DemiPaveVariableIt=15 # # $Z set _____PCubique=FAUX # # $Z set _____ImageT1=$xTV/CARB.9H # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.9H.5 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # :Fin_listG_CARB_9H_5: # # # # # # Montre une image similaire a 'v $xiirv/CARB.9E.5.21', mais beaucoup plus epaisse, sans # # mise en evidence des noeuds et les liaisons ayant des diametres fluctuants... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 01:18:32 # # # # $xci/accumule.42$X : 01:32:58 # # # v $xiirv/CARB.9I.5.1 v $xiirv/CARB.9I.5.2 v $xiirv/CARB.9I.5.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CARB_9I_5: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=3 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # $Z SET _____RGraine=19477 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=19473 # # $Z set _____PonderationX=4.0 # # $Z set _____DeriveeY=17893 # # $Z set _____PonderationY=4.0 # # $Z set _____DeriveeZ=20013 # # $Z set _____PonderationZ=4.0 # # $Z set _____DistanceMax=0.3 # # $Z set _____Rayon=0.003 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z SET _____Deplacer=$EXIST # # $Z set _____DeplacerXp=+0.2 # # $Z set _____DeplacerYp=+0.2 # # $Z set _____DeplacerZp=+0.2 # # $Z set _____Grossissement=1.0 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.45 # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.9I.5 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____MinX=0.10 # # $Z set _____MaxX=0.90 # # $Z set _____MinY=0.10 # # $Z set _____MaxY=0.90 # # $Z set _____DemiPaveX=16 # # $Z set _____DemiPaveY=16 # # $Z set _____DemiPaveZ=16 # # $Z SET _____DemiPaveVariable=$EXIST # # $Z set _____DemiPaveVariableG=19477 # # $Z set _____DemiPaveVariableBi=0 # # $Z set _____DemiPaveVariableBs=1 # # $Z set _____DemiPaveVariableBm=0.5 # # $Z set _____DemiPaveVariableBM=5.5 # # $Z set _____DemiPaveVariableIt=30 # # $Z set _____PCubique=FAUX # # $Z set _____ImageT1=$xTV/CARB.9I # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # # # $Z set _____AttenuationOmbre=0.5 # # # # On utilise une attenuation de 0.5 (a la place de 'v $xiirc/.MANE.41.3.$U AttenuationOmbre' # # qui vaut 0.2 par defaut) afin de rendre moins visibles les frontieres des zones qui sont # # a la fois a l'ombre et peu eclairees...). # # # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.9I.5 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # :Fin_listG_CARB_9I_5: # # # # # # Montre une image similaire a 'v $xiirv/CARB.9G.5.21', mais beaucoup plus epaisse... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 01:36:40 # # # # $xci/accumule.42$X : 01:44:11 # # # v $xiirv/CARB.9J.5.1 v $xiirv/CARB.9J.5.2 v $xiirv/CARB.9J.5.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_CARB_9J_5: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=3 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # $Z SET _____RGraine=19477 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=19473 # # $Z set _____PonderationX=4.0 # # $Z set _____DeriveeY=17893 # # $Z set _____PonderationY=4.0 # # $Z set _____DeriveeZ=20013 # # $Z set _____PonderationZ=4.0 # # $Z set _____DistanceMax=0.3 # # $Z set _____Rayon=0.003 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z SET _____Deplacer=$EXIST # # $Z set _____DeplacerXp=+0.2 # # $Z set _____DeplacerYp=+0.2 # # $Z set _____DeplacerZp=+0.2 # # $Z set _____Grossissement=1.0 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.45 # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.9J.5 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____MinX=0.10 # # $Z set _____MaxX=0.90 # # $Z set _____MinY=0.10 # # $Z set _____MaxY=0.90 # # $Z set _____DemiPaveX=32 # # $Z set _____DemiPaveY=32 # # $Z set _____DemiPaveZ=32 # # $Z SET _____DemiPaveVariable=$EXIST # # $Z set _____DemiPaveVariableG=19477 # # $Z set _____DemiPaveVariableBi=0 # # $Z set _____DemiPaveVariableBs=1 # # $Z set _____DemiPaveVariableBm=0.5 # # $Z set _____DemiPaveVariableBM=5.5 # # $Z set _____DemiPaveVariableIt=30 # # $Z set _____PCubique=FAUX # # $Z set _____ImageT1=$xTV/CARB.9J # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # # # $Z set _____AttenuationOmbre=0.5 # # # # On utilise une attenuation de 0.5 (a la place de 'v $xiirc/.MANE.41.3.$U AttenuationOmbre' # # qui vaut 0.2 par defaut) afin de rendre moins visibles les frontieres des zones qui sont # # a la fois a l'ombre et peu eclairees...). # # # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.9J.5 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # :Fin_listG_CARB_9J_5: # # # # # # Montre une image similaire a 'v $xiirv/CARB.9I.5.21', mais beaucoup plus epaisse... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 01:41:25 # # # # $xci/accumule.42$X : 02:23:40 # # # v $xiirv/CARB.A1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_A1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.A1.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.A1 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_A1: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene gaussien # # de points aleatoires. # v $xiirv/CARB.A1.1.1 v $xiirv/CARB.A1.1.2 v $xiirv/CARB.A1.1.21 # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_CARB_A1_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.A1.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.A1.1 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____DemiPaveX=1 # # $Z set _____DemiPaveY=1 # # $Z set _____DemiPaveZ=1 # # $Z set _____ImageT1=$xTV/CARB.A1 # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.A1.1 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_CARB_A1_1: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene gaussien # # de points aleatoires. # v $xiirv/CARB.A2 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_CARB_A2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.A1.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette=$xiP/cercle.35 # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.A2 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_A2: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene gaussien # # de points aleatoires. # v $xiirv/CARB.A9 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_CARB_A9: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.A1.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z set _____DeriveeX=0.2 # # $Z set _____DeriveeY=0.2 # # $Z set _____DeriveeZ=0.2 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.A9 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_A9: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene gaussien # # de points aleatoires. # v $xiirv/CARB.AA # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_AA: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Suh" # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.A1.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____DeriveeY=1789 # # $Z set _____DeriveeZ=2001 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.AA # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_AA: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene gaussien # # de points aleatoires. # v $xiirv/CARB.AA.1.1 v $xiirv/CARB.AA.1.2 v $xiirv/CARB.AA.1.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CARB_AA_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____Format="Suh" # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.A1.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____DeriveeY=1789 # # $Z set _____DeriveeZ=2001 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.AA.1 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____DemiPaveX=1 # # $Z set _____DemiPaveY=1 # # $Z set _____DemiPaveZ=1 # # $Z set _____ImageT1=$xTV/CARB.AA # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.AA.1 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_CARB_AA_1: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene gaussien # # de points aleatoires. # v $xiirv/CARB.B1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_B1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.B1.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.B1 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_B1: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene anti-gaussien # # de points aleatoires. # v $xiirv/CARB.B1.1.1 v $xiirv/CARB.B1.1.2 v $xiirv/CARB.B1.1.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CARB_B1_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z SET _____OZ=0 # # $Z SET _____EZ=+0.5 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.B1.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.B1.1 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____DemiPaveX=1 # # $Z set _____DemiPaveY=1 # # $Z set _____DemiPaveZ=1 # # $Z set _____ImageT1=$xTV/CARB.B1 # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.B1.1 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_CARB_B1_1: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene anti-gaussien # # de points aleatoires. # v $xiirv/CARB.B2 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_CARB_B2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.B1.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette=$xiP/cercle.35 # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.B2 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_B2: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene anti-gaussien # # de points aleatoires. # v $xiirv/CARB.B1_81.1 v $xiirv/CARB.B1_81.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_B1_81: # # # # $Z Sdu # # # # $Z set _____ImageR=$xiirv/CARB.B1_81 # # # # $Z execRVB "$xci/minmax$X \ # # $Z A1=$xiirv/CARB.81%s \ # # $Z A2=$xiirv/CARB.B1%s \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI" # # # # $Z $xci/detourage.13$Z \ # # $Z $_____ImageR.1 \ # # $Z $_____ImageR.2 \ # # $Z 40 # # # # :Fin_listG_CARB_B1_81: # # # v $xiirv/CARB.B9 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CARB_B9: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.B1.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z set _____DeriveeX=0.2 # # $Z set _____DeriveeY=0.2 # # $Z set _____DeriveeZ=0.2 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.B9 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_B9: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene anti-gaussien # # de points aleatoires. # v $xiirv/CARB.BA # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_BA: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Suh" # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.B1.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____DeriveeY=1789 # # $Z set _____DeriveeZ=2001 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.BA # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_BA: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene anti-gaussien # # de points aleatoires. # v $xiirv/CARB.BA$HauteDef # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CARB_BA_HauteDef: # # # # $Z Shu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Suh" # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.B1.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____DeriveeY=1789 # # $Z set _____DeriveeZ=2001 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.BA$HauteDef # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_BA_HauteDef: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene anti-gaussien # # de points aleatoires. # # # # Elle est identique a 'v $xiirv/CARB.BA' mais en mode '$HauteDef' pour le livre de # # Tom Mikulic ('v $Dcourrier_in/20150504091726 From.tmikulic@gmail.com..Thu.Apr.30.18:15'). # v $xiirv/CARB.BA.1.1 v $xiirv/CARB.BA.1.2 v $xiirv/CARB.BA.1.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CARB_BA_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____Format="Suh" # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z SET _____OZ=0 # # $Z SET _____EZ=+0.5 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.B1.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____DeriveeY=1789 # # $Z set _____DeriveeZ=2001 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.BA.1 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____DemiPaveX=1 # # $Z set _____DemiPaveY=1 # # $Z set _____DemiPaveZ=1 # # $Z set _____ImageT1=$xTV/CARB.BA # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.BA.1 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_CARB_BA_1: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene anti-gaussien # # de points aleatoires. # v $xiirv/CARB.C1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_C1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Suq" # # $Z SET _____PasX=10 # # $Z SET _____PasY=10 # # $Z SformatI # # $Z eval "$_____Format" # # $Z SET NPsX=`calculINS $dimX/$_____PasX` # # $Z SET NPsY=`calculINS $dimY/$_____PasY` # # $Z RformatI # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=`$xcg/MIN2.01$X x=$NPsX y=$NPsY signe="$K_VIDE"` # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.C1.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="CAUSAL" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.C1 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_C1: # # # # # # Montre une carte brownienne volumique basee sur un ensemble homogene de points # # reguliers avec visualisation d'une certaine forme de "causalite". On trouve ainsi : # # # # BLANC : les segments dont 'theta' ET 'phi' sont dans [min,max], # # VERTE : les segments dont 'theta' OU 'phi' sont dans [min,max], # # ROUGE : tous les autres segments. # # # # Les segments 'BLANC' sont donc ceux qui montrent une certaine forme de "causalite"... # # # # On notera le calcul complique de '$_____TriZmax' : il est destine a garantir qu'un point # # donne ait autant de voisins sur les trois axes (a epsilon pres...). Au passage, ce n'est # # pas le cas si l'on fait (comme d'habitude...) : # # # # SET _____TriZmax=63 # # # # car alors on rencontre les '$_____NVoisins' (=8) premiers voisins sur l'axe 'OZ' # # uniquement, les voisins sur les axes 'OX' et 'OY' etant un peu plus loins... # v $xiirv/CARB.C2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_C2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.81.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="CAUSAL" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.C2 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_C2: # # # # # # Montre une carte brownienne volumique basee sur un ensemble homogene de points # # aleatoires avec visualisation d'une certaine forme de "causalite". On trouve ainsi : # # # # BLANC : les segments dont 'theta' ET 'phi' sont dans [min,max], # # VERTE : les segments dont 'theta' OU 'phi' sont dans [min,max], # # ROUGE : tous les autres segments. # # # # Les segments 'BLANC' sont donc ceux qui montrent une certaine forme de "causalite"... # v $xiirv/CARB.D1 v $xiirv/CARB.D1$Fi p=$xiP/bleu_roug.11 v $xiirv/CARB.D1$Fi p=$xiP/bleu_roug.52 v $xiirv/CARB.D1$Fi p=$xiP/enfer.02 v $xiirv/CARB.D1$Fi p=$xiP/enfer.52 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_D1: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Puh" # # $Z set _____FMailleX=0.150 # # $Z set _____FMailleY=0.150 # # $Z set _____FMailleZ=0.150 # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=7 # # $Z set _____DistanceMax=0.3 # # $Z SET _____Palette=$xiP/rouge_orang.32 # # $Z SET _____Densite=$NEXIST # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" Rpoints=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # $Z set _____DistanceMini=0.050 # # $Z set _____Cubique=VRAI # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1789 # # $Z set _____PonderationX=0.2 # # $Z set _____DeriveeY=1947 # # $Z set _____PonderationY=0.2 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=0.2 # # $Z set _____Zoom=1.2 # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # $Z set _____ImageR=$xTV/CARB.D1 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimum=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimumT=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximum=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximumT=1.0" # # # # $Z set _____ImageR=$xiirv/CARB.D1 # # $m4 _____include(_____xiirv/.CARB.D1.1._____U) # # # # $Z FilSTmpE LiStEPoInTs # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/LUMINANCE \ # # $Z N=$xTV/GAUSS \ # # $Z avertir_non_implicite=FAUX \ # # $Z seuil=200 \ # # $Z R=$xTV/LUMINANCE.FILTREE \ # # $Z $formatI # # # # $Z $xci/passe_bande$X \ # # $Z A=$xTV/LUMINANCE.FILTREE \ # # $Z seuil_inferieur=16 seuil_superieur=$BLANC \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=25 \ # # $Z conserver_maximum=VRAI \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____ImageR$Fi \ # # $Z $formatI # # # # :Fin_listG_CARB_D1: # # # # # # Montre de facon "poetique" le "Cosmic Web" (avec 637312 galaxies). # v $xiirv/CARB.D1.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_D1_1: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/CARB.D1 # # # # $Z execRVB "$xci/convol.01$X \ # # $Z A=$_____ImageR%s \ # # $Z points=`calculI pow(2*19+1,2)` \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z A1=$_____ImageR%s \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI" # # # # :Fin_listG_CARB_D1_1: # # # # # # Image identique a 'v $xiirv/CARB.D1' mais avec des "nuages" entourant les filaments, les # # noeuds... # v $xiirv/CARB.D2.1 v $xiirv/CARB.D2.2 v $xiirv/CARB.D2.21 # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_CARB_D2: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Puh" # # $Z set _____FMailleX=0.150 # # $Z set _____FMailleY=0.150 # # $Z set _____FMailleZ=0.150 # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=7 # # $Z set _____DistanceMax=0.3 # # $Z SET _____Palette=$xiP/rouge_orang.32 # # $Z SET _____Densite=$NEXIST # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" Rpoints=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # $Z set _____DistanceMini=0.050 # # $Z set _____Cubique=VRAI # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1789 # # $Z set _____PonderationX=0.2 # # $Z set _____DeriveeY=1947 # # $Z set _____PonderationY=0.2 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=0.2 # # $Z set _____Zoom=1.2 # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # $Z set _____ImageR=$xTV/CARB.D2 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimum=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimumT=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximum=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximumT=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # # # $Z FilSTmpB LiStEPoInTs2 # # # # $Z set _____Redirection2="$K_VIDE" # # $Z set _____Redirection2="$_____Redirection2 >> $LiStEPoInTs2" # # $Z set _____ImageR=$xTV/CARB.D2 # # # # $m4 _____include(_____xiirv/.CARB.D1.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$_____ImageR # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $m4 _____include(_____xiirv/.CARB.D2.1._____U) # # # # $Z FilSTmpE LiStEPoInTs2 # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/CARB.D2 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z FilSTmpE LiStEPoInTs # # # # :Fin_listG_CARB_D2: # # # # # # Montre de facon "poetique" le "Cosmic Web" (avec 637312 galaxies). # v $xiirv/CARB.D3.1 v $xiirv/CARB.D3.2 v $xiirv/CARB.D3.21 # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_CARB_D3: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Puh" # # $Z set _____FMailleX=0.150 # # $Z set _____FMailleY=0.150 # # $Z set _____FMailleZ=0.150 # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=7 # # $Z set _____DistanceMax=0.3 # # $Z SET _____Palette=$xiP/rouge_orang.32 # # $Z SET _____Densite=$NEXIST # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" Rpoints=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # $Z set _____DistanceMini=0.050 # # $Z set _____Cubique=VRAI # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1789 # # $Z set _____PonderationX=0.2 # # $Z set _____DeriveeY=1947 # # $Z set _____PonderationY=0.2 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=0.2 # # $Z set _____Zoom=1.2 # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # $Z set _____ImageR=$xTV/CARB.D3 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimum=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimumT=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximum=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximumT=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # # # $Z FilSTmpB LiStEPoInTs2 # # # # $Z set _____Redirection2="$K_VIDE" # # $Z set _____Redirection2="$_____Redirection2 >> $LiStEPoInTs2" # # $Z set _____ImageR=$xTV/CARB.D3 # # # # $m4 _____include(_____xiirv/.CARB.D1.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/CARB.D3 # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=16 # # $Z set _____DemiPaveY=16 # # $Z set _____DemiPaveZ=16 # # $m4 _____include(_____xiirv/.CARB.D2.1._____U) # # # # $Z FilSTmpE LiStEPoInTs2 # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/CARB.D3 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z FilSTmpE LiStEPoInTs # # # # :Fin_listG_CARB_D3: # # # # # # Montre de facon "poetique" le "Cosmic Web" (avec 637312 galaxies). # v $xiirv/CARB.D4 v $xiirv/CARB.D4$Fi p=$xiP/bleu_roug.11 v $xiirv/CARB.D4$Fi p=$xiP/bleu_roug.52 v $xiirv/CARB.D4$Fi p=$xiP/enfer.02 v $xiirv/CARB.D4$Fi p=$xiP/enfer.52 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CARB_D4: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Puh" # # $Z SET _____RFacteur=0.040 # # $Z set _____FMailleX=0.010 # # $Z set _____FMailleY=0.010 # # $Z set _____FMailleZ=0.010 # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=7 # # $Z set _____DistanceMax=0.3 # # $Z SET _____Palette=$xiP/rouge_orang.32 # # $Z SET _____Densite=$NEXIST # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" Rpoints=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # $Z set _____DistanceMini=0.050 # # $Z set _____Cubique=VRAI # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1789 # # $Z set _____PonderationX=0.2 # # $Z set _____DeriveeY=1947 # # $Z set _____PonderationY=0.2 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=0.2 # # $Z set _____Zoom=1.2 # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # $Z set _____ImageR=$xTV/CARB.D4 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimum=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimumT=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximum=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximumT=1.0" # # # # $Z set _____ImageR=$xiirv/CARB.D4 # # $m4 _____include(_____xiirv/.CARB.D1.1._____U) # # # # $Z FilSTmpE LiStEPoInTs # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/LUMINANCE \ # # $Z N=$xTV/GAUSS \ # # $Z avertir_non_implicite=FAUX \ # # $Z seuil=200 \ # # $Z R=$xTV/LUMINANCE.FILTREE \ # # $Z $formatI # # # # $Z $xci/passe_bande$X \ # # $Z A=$xTV/LUMINANCE.FILTREE \ # # $Z seuil_inferieur=16 seuil_superieur=$BLANC \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=25 \ # # $Z conserver_maximum=VRAI \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____ImageR$Fi \ # # $Z $formatI # # # # :Fin_listG_CARB_D4: # # # # # # Montre de facon "poetique" le "Cosmic Web" (avec 1083984 galaxies). # v $xiirv/CARB.D5 v $xiirv/CARB.D5$Fi p=$xiP/bleu_roug.11 v $xiirv/CARB.D5$Fi p=$xiP/bleu_roug.52 v $xiirv/CARB.D5$Fi p=$xiP/enfer.02 v $xiirv/CARB.D5$Fi p=$xiP/enfer.52 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CARB_D5: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Puh" # # $Z SET _____RFacteur=0.005 # # $Z set _____FMailleX=0.010 # # $Z set _____FMailleY=0.010 # # $Z set _____FMailleZ=0.010 # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=7 # # $Z set _____DistanceMax=0.3 # # $Z SET _____Palette=$xiP/rouge_orang.32 # # $Z SET _____Densite=$NEXIST # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" Rpoints=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # $Z set _____DistanceMini=0.050 # # $Z set _____Cubique=VRAI # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1789 # # $Z set _____PonderationX=0.2 # # $Z set _____DeriveeY=1947 # # $Z set _____PonderationY=0.2 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=0.2 # # $Z set _____Zoom=1.2 # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # $Z set _____ImageR=$xTV/CARB.D5 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimum=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimumT=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximum=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximumT=1.0" # # # # $Z set _____ImageR=$xiirv/CARB.D5 # # $m4 _____include(_____xiirv/.CARB.D1.1._____U) # # # # $Z FilSTmpE LiStEPoInTs # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/LUMINANCE \ # # $Z N=$xTV/GAUSS \ # # $Z avertir_non_implicite=FAUX \ # # $Z seuil=200 \ # # $Z R=$xTV/LUMINANCE.FILTREE \ # # $Z $formatI # # # # $Z $xci/passe_bande$X \ # # $Z A=$xTV/LUMINANCE.FILTREE \ # # $Z seuil_inferieur=16 seuil_superieur=$BLANC \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=25 \ # # $Z conserver_maximum=VRAI \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____ImageR$Fi \ # # $Z $formatI # # # # :Fin_listG_CARB_D5: # # # # # # Montre de facon "poetique" le "Cosmic Web" (avec 69660 galaxies). # v $xiirv/CARB.D6 v $xiirv/CARB.D6$Fi p=$xiP/bleu_roug.11 v $xiirv/CARB.D6$Fi p=$xiP/bleu_roug.52 v $xiirv/CARB.D6$Fi p=$xiP/enfer.02 v $xiirv/CARB.D6$Fi p=$xiP/enfer.52 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CARB_D6: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Puh" # # $Z SET _____RFacteur=0.010 # # $Z set _____FMailleX=0.010 # # $Z set _____FMailleY=0.010 # # $Z set _____FMailleZ=0.010 # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=7 # # $Z set _____DistanceMax=0.3 # # $Z SET _____Palette=$xiP/rouge_orang.32 # # $Z SET _____Densite=$NEXIST # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" Rpoints=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # $Z set _____DistanceMini=0.050 # # $Z set _____Cubique=VRAI # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1789 # # $Z set _____PonderationX=0.2 # # $Z set _____DeriveeY=1947 # # $Z set _____PonderationY=0.2 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=0.2 # # $Z set _____Zoom=1.2 # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # $Z set _____ImageR=$xTV/CARB.D6 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimum=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimumT=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximum=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximumT=1.0" # # # # $Z set _____ImageR=$xiirv/CARB.D6 # # $m4 _____include(_____xiirv/.CARB.D1.1._____U) # # # # $Z FilSTmpE LiStEPoInTs # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/LUMINANCE \ # # $Z N=$xTV/GAUSS \ # # $Z avertir_non_implicite=FAUX \ # # $Z seuil=200 \ # # $Z R=$xTV/LUMINANCE.FILTREE \ # # $Z $formatI # # # # $Z $xci/passe_bande$X \ # # $Z A=$xTV/LUMINANCE.FILTREE \ # # $Z seuil_inferieur=16 seuil_superieur=$BLANC \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=25 \ # # $Z conserver_maximum=VRAI \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____ImageR$Fi \ # # $Z $formatI # # # # :Fin_listG_CARB_D6: # # # # # # Montre de facon "poetique" le "Cosmic Web" (avec 304116 galaxies). # v $xiirv/CARB.D7 v $xiirv/CARB.D7$Fi p=$xiP/bleu_roug.11 v $xiirv/CARB.D7$Fi p=$xiP/bleu_roug.52 v $xiirv/CARB.D7$Fi p=$xiP/enfer.02 v $xiirv/CARB.D7$Fi p=$xiP/enfer.52 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CARB_D7: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Puh" # # $Z SET _____RFacteur=0.040 # # $Z set _____FMailleX=0.010 # # $Z set _____FMailleY=0.010 # # $Z set _____FMailleZ=0.010 # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=7 # # $Z set _____DistanceMax=0.3 # # $Z SET _____Palette=$xiP/rouge_orang.32 # # $Z SET _____Densite=$NEXIST # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" Rpoints=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # $Z set _____DistanceMini=0.050 # # $Z set _____Cubique=VRAI # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1789 # # $Z set _____PonderationX=1.0 # # $Z set _____DeriveeY=1947 # # $Z set _____PonderationY=1.0 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=1.0 # # $Z set _____Zoom=1.2 # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # $Z set _____ImageR=$xTV/CARB.D7 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimum=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimumT=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximum=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximumT=1.0" # # # # $Z set _____ImageR=$xiirv/CARB.D7 # # $m4 _____include(_____xiirv/.CARB.D1.1._____U) # # # # $Z FilSTmpE LiStEPoInTs # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/LUMINANCE \ # # $Z N=$xTV/GAUSS \ # # $Z avertir_non_implicite=FAUX \ # # $Z seuil=200 \ # # $Z R=$xTV/LUMINANCE.FILTREE \ # # $Z $formatI # # # # $Z $xci/passe_bande$X \ # # $Z A=$xTV/LUMINANCE.FILTREE \ # # $Z seuil_inferieur=16 seuil_superieur=$BLANC \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=25 \ # # $Z conserver_maximum=VRAI \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____ImageR$Fi \ # # $Z $formatI # # # # :Fin_listG_CARB_D7: # # # # # # Montre de facon "poetique" le "Cosmic Web" (avec 1164664 galaxies). # v $xiirv/CARB.D8 v $xiirv/CARB.D8$Fi p=$xiP/bleu_roug.11 v $xiirv/CARB.D8$Fi p=$xiP/bleu_roug.52 v $xiirv/CARB.D8$Fi p=$xiP/enfer.02 v $xiirv/CARB.D8$Fi p=$xiP/enfer.52 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CARB_D8: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Puh" # # $Z SET _____RFacteur=0.040 # # $Z set _____FMailleX=0.100 # # $Z set _____FMailleY=0.100 # # $Z set _____FMailleZ=0.100 # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=7 # # $Z set _____DistanceMax=0.3 # # $Z SET _____Palette=$xiP/rouge_orang.32 # # $Z SET _____Densite=$NEXIST # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" Rpoints=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # $Z set _____DistanceMini=0.050 # # $Z set _____Cubique=VRAI # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1789 # # $Z set _____PonderationX=1.0 # # $Z set _____DeriveeY=1947 # # $Z set _____PonderationY=1.0 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=1.0 # # $Z set _____Zoom=1.2 # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # $Z set _____ImageR=$xTV/CARB.D8 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimum=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimumT=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximum=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximumT=1.0" # # # # $Z set _____ImageR=$xiirv/CARB.D8 # # $m4 _____include(_____xiirv/.CARB.D1.1._____U) # # # # $Z FilSTmpE LiStEPoInTs # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/LUMINANCE \ # # $Z N=$xTV/GAUSS \ # # $Z avertir_non_implicite=FAUX \ # # $Z seuil=200 \ # # $Z R=$xTV/LUMINANCE.FILTREE \ # # $Z $formatI # # # # $Z $xci/passe_bande$X \ # # $Z A=$xTV/LUMINANCE.FILTREE \ # # $Z seuil_inferieur=16 seuil_superieur=$BLANC \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=25 \ # # $Z conserver_maximum=VRAI \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____ImageR$Fi \ # # $Z $formatI # # # # :Fin_listG_CARB_D8: # # # # # # Montre de facon "poetique" le "Cosmic Web" (avec 1193468 galaxies). # v $xiirv/CARB.D9 v $xiirv/CARB.D9$Fi p=$xiP/bleu_roug.11 v $xiirv/CARB.D9$Fi p=$xiP/bleu_roug.52 v $xiirv/CARB.D9$Fi p=$xiP/enfer.02 v $xiirv/CARB.D9$Fi p=$xiP/enfer.52 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CARB_D9: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Puh" # # $Z SET _____RFacteur=0.005 # # $Z set _____FMailleX=0.100 # # $Z set _____FMailleY=0.100 # # $Z set _____FMailleZ=0.100 # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=7 # # $Z set _____DistanceMax=0.3 # # $Z SET _____Palette=$xiP/rouge_orang.32 # # $Z SET _____Densite=$NEXIST # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" Rpoints=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # $Z set _____DistanceMini=0.050 # # $Z set _____Cubique=VRAI # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1789 # # $Z set _____PonderationX=1.0 # # $Z set _____DeriveeY=1947 # # $Z set _____PonderationY=1.0 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=1.0 # # $Z set _____Zoom=1.2 # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # $Z set _____ImageR=$xTV/CARB.D9 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimum=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimumT=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximum=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximumT=1.0" # # # # $Z set _____ImageR=$xiirv/CARB.D9 # # $m4 _____include(_____xiirv/.CARB.D1.1._____U) # # # # $Z FilSTmpE LiStEPoInTs # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/LUMINANCE \ # # $Z N=$xTV/GAUSS \ # # $Z avertir_non_implicite=FAUX \ # # $Z seuil=200 \ # # $Z R=$xTV/LUMINANCE.FILTREE \ # # $Z $formatI # # # # $Z $xci/passe_bande$X \ # # $Z A=$xTV/LUMINANCE.FILTREE \ # # $Z seuil_inferieur=16 seuil_superieur=$BLANC \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=25 \ # # $Z conserver_maximum=VRAI \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____ImageR$Fi \ # # $Z $formatI # # # # :Fin_listG_CARB_D9: # # # # # # Montre de facon "poetique" le "Cosmic Web" (avec 91984 galaxies). # v $xiirv/CARB.DA v $xiirv/CARB.DA$Fi p=$xiP/bleu_roug.11 v $xiirv/CARB.DA$Fi p=$xiP/bleu_roug.52 v $xiirv/CARB.DA$Fi p=$xiP/enfer.02 v $xiirv/CARB.DA$Fi p=$xiP/enfer.52 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CARB_DA: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Puh" # # $Z SET _____RFacteur=0.020 # # $Z set _____FMailleX=0.010 # # $Z set _____FMailleY=0.010 # # $Z set _____FMailleZ=0.010 # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=7 # # $Z set _____DistanceMax=0.3 # # $Z SET _____Palette=$xiP/rouge_orang.32 # # $Z SET _____Densite=$NEXIST # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" Rpoints=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # $Z set _____DistanceMini=0.050 # # $Z set _____Cubique=VRAI # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1789 # # $Z set _____PonderationX=1.0 # # $Z set _____DeriveeY=1947 # # $Z set _____PonderationY=1.0 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=1.0 # # $Z set _____Zoom=1.2 # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # $Z set _____ImageR=$xTV/CARB.DA # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimum=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimumT=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximum=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximumT=1.0" # # # # $Z set _____ImageR=$xiirv/CARB.DA # # $m4 _____include(_____xiirv/.CARB.D1.1._____U) # # # # $Z FilSTmpE LiStEPoInTs # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/LUMINANCE \ # # $Z N=$xTV/GAUSS \ # # $Z avertir_non_implicite=FAUX \ # # $Z seuil=200 \ # # $Z R=$xTV/LUMINANCE.FILTREE \ # # $Z $formatI # # # # $Z $xci/passe_bande$X \ # # $Z A=$xTV/LUMINANCE.FILTREE \ # # $Z seuil_inferieur=16 seuil_superieur=$BLANC \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=25 \ # # $Z conserver_maximum=VRAI \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____ImageR$Fi \ # # $Z $formatI # # # # :Fin_listG_CARB_DA: # # # # # # Montre de facon "poetique" le "Cosmic Web" (avec 691408 galaxies). # v $xiirv/CARB.E2.1 v $xiirv/CARB.E2.2 v $xiirv/CARB.E2.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CARB_E2: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Puh" # # $Z set _____FMailleX=0.150 # # $Z set _____FMailleY=0.150 # # $Z set _____FMailleZ=0.150 # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=7 # # $Z set _____DistanceMax=0.3 # # $Z SET _____Palette=$xiP/rouge_orang.32 # # $Z SET _____Densite=$NEXIST # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" Rpoints=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # $Z set _____DistanceMini=0.050 # # $Z set _____Cubique=VRAI # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1789 # # $Z set _____PonderationX=0.2 # # $Z set _____DeriveeY=1947 # # $Z set _____PonderationY=0.2 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=0.2 # # $Z set _____Zoom=1.2 # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # $Z set _____ImageR=$xTV/CARB.E2 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimum=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimumT=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximum=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximumT=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # # # $Z FilSTmpB LiStEPoInTs2 # # # # $Z set _____Redirection2="$K_VIDE" # # $Z set _____Redirection2="$_____Redirection2 >> $LiStEPoInTs2" # # $Z set _____ImageR=$xTV/CARB.E2 # # # # $m4 _____include(_____xiirv/.CARB.D1.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$_____ImageR # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z set _____InverserZ=VRAI # # $m4 _____include(_____xiirv/.CARB.D2.1._____U) # # # # $Z FilSTmpE LiStEPoInTs2 # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/CARB.E2 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z FilSTmpE LiStEPoInTs # # # # :Fin_listG_CARB_E2: # # # # # # Montre de facon "poetique" le "Cosmic Web" (avec 637312 galaxies). # v $xiirv/CARB.E3.1 v $xiirv/CARB.E3.2 v $xiirv/CARB.E3.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CARB_E3: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Puh" # # $Z set _____FMailleX=0.500 # # $Z set _____FMailleY=0.500 # # $Z set _____FMailleZ=0.500 # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Palette=$xiP/rouge_orang.32 # # $Z SET _____Densite=$NEXIST # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" Rpoints=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # $Z set _____DistanceMin=0 # # $Z set _____DistanceMax=0.2 # # $Z set _____Cubique=VRAI # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1789 # # $Z set _____PonderationX=0.2 # # $Z set _____DeriveeY=1947 # # $Z set _____PonderationY=0.2 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=0.2 # # $Z set _____Zoom=1.2 # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # $Z set _____ImageR=$xTV/CARB.E3 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimum=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimumT=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximum=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximumT=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # # # $Z FilSTmpB LiStEPoInTs2 # # # # $Z set _____Redirection2="$K_VIDE" # # $Z set _____Redirection2="$_____Redirection2 >> $LiStEPoInTs2" # # $Z set _____ImageR=$xTV/CARB.E3 # # # # $m4 _____include(_____xiirv/.CARB.D1.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$_____ImageR # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z set _____InverserZ=VRAI # # $m4 _____include(_____xiirv/.CARB.D2.1._____U) # # # # $Z FilSTmpE LiStEPoInTs2 # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/CARB.E3 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z FilSTmpE LiStEPoInTs # # # # :Fin_listG_CARB_E3: # # # # # # Variations sur le theme de 'v $xiirv/CARB.E2.21' (avec 1033824 galaxies). # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 02:35:50 # # # # $xci/accumule.42$X : 00:48:37 # # # v $xiirv/CARB.E4.1 v $xiirv/CARB.E4.2 v $xiirv/CARB.E4.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CARB_E4: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Puh" # # $Z set _____FMailleX=0.500 # # $Z set _____FMailleY=0.500 # # $Z set _____FMailleZ=0.500 # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Palette=$xiP/rouge_orang.32 # # $Z SET _____Densite=$NEXIST # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" Rpoints=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # $Z set _____DistanceMin=0 # # $Z set _____DistanceMax=0.2 # # $Z set _____Cubique=VRAI # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1789 # # $Z set _____PonderationX=0.5 # # $Z set _____DeriveeY=1947 # # $Z set _____PonderationY=0.5 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=0.5 # # $Z set _____Zoom=1.2 # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # $Z set _____ImageR=$xTV/CARB.E4 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimum=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimumT=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximum=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximumT=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # # # $Z FilSTmpB LiStEPoInTs2 # # # # $Z set _____Redirection2="$K_VIDE" # # $Z set _____Redirection2="$_____Redirection2 >> $LiStEPoInTs2" # # $Z set _____ImageR=$xTV/CARB.E4 # # # # $m4 _____include(_____xiirv/.CARB.D1.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$_____ImageR # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=12 # # $Z set _____DemiPaveY=12 # # $Z set _____DemiPaveZ=12 # # $Z set _____InverserZ=VRAI # # $m4 _____include(_____xiirv/.CARB.D2.1._____U) # # # # $Z FilSTmpE LiStEPoInTs2 # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/CARB.E4 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z FilSTmpE LiStEPoInTs # # # # :Fin_listG_CARB_E4: # # # # # # Variations sur le theme de 'v $xiirv/CARB.E2.21' (avec 1534164 galaxies). # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 02:47:30 # # # # $xci/accumule.42$X : 01:11:00 # # # v $xiirv/CARB.F1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_F1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____FMailleX=0.50 # # $Z set _____FMailleY=0.50 # # $Z set _____FMailleZ=0.50 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.F1 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_F1: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene fractal # # de points aleatoires. # v $xiirv/CARB.FA # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_FA: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Suh" # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____FMailleX=0.50 # # $Z set _____FMailleY=0.50 # # $Z set _____FMailleZ=0.50 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=8 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____DeriveeY=1789 # # $Z set _____DeriveeZ=2001 # # $Z set _____DistanceMax=0.1 # # $Z set _____Rayon=0.004 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=1.4 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ImageR=$xiirv/CARB.FA # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_FA: # # # # # # Montre une carte brownienne volumique basee sur un ensemble heterogene fractal # # de points aleatoires. # v $xiirv/CARB.G1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_G1: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Puh" # # $Z set _____FMailleX=0.250 # # $Z set _____FMailleY=0.250 # # $Z set _____FMailleZ=0.250 # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=7 # # $Z set _____DistanceMax=0.3 # # $Z SET _____Palette=$xiP/rouge_orang.32 # # $Z SET _____Densite=$NEXIST # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" Rpoints=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # $Z set _____DistanceMini=0.050 # # $Z set _____Cubique=VRAI # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1789 # # $Z set _____PonderationX=0.2 # # $Z set _____DeriveeY=1947 # # $Z set _____PonderationY=0.2 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=0.2 # # $Z set _____Zoom=1.2 # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # $Z set _____ImageR=$xTV/CARB.G1 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimum=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimumT=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximum=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximumT=1.0" # # # # $Z set _____ImageR=$xiirv/CARB.G1 # # $m4 _____include(_____xiirv/.CARB.D1.1._____U) # # # # $Z FilSTmpE LiStEPoInTs # # # # :Fin_listG_CARB_G1: # # # # # # Montre de facon "poetique" le "Cosmic Web" (avec 671428 galaxies). # v $xiirv/CARB.G1.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_G1_1: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/CARB.G1 # # # # $Z execRVB "$xci/convol.01$X \ # # $Z A=$_____ImageR%s \ # # $Z points=`calculI pow(2*19+1,2)` \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z A1=$_____ImageR%s \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI" # # # # :Fin_listG_CARB_G1_1: # # # # # # Image identique a 'v $xiirv/CARB.G1' mais avec des "nuages" entourant les filaments, les # # noeuds... # v $xiirv/CARB.H2.1 v $xiirv/CARB.H2.2 v $xiirv/CARB.H2.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CARB_H2: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Puh" # # $Z set _____FMailleX=0.250 # # $Z set _____FMailleY=0.250 # # $Z set _____FMailleZ=0.250 # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=7 # # $Z set _____DistanceMax=0.3 # # $Z SET _____Palette=$xiP/rouge_orang.32 # # $Z SET _____Densite=$NEXIST # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" Rpoints=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # $Z set _____DistanceMini=0.050 # # $Z set _____Cubique=VRAI # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1789 # # $Z set _____PonderationX=0.2 # # $Z set _____DeriveeY=1947 # # $Z set _____PonderationY=0.2 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=0.2 # # $Z set _____Zoom=1.2 # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # $Z set _____ImageR=$xTV/CARB.H2 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimum=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimumT=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximum=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximumT=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # # # $Z FilSTmpB LiStEPoInTs2 # # # # $Z set _____Redirection2="$K_VIDE" # # $Z set _____Redirection2="$_____Redirection2 >> $LiStEPoInTs2" # # $Z set _____ImageR=$xTV/CARB.H2 # # # # $m4 _____include(_____xiirv/.CARB.D1.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$_____ImageR # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z set _____InverserZ=VRAI # # $m4 _____include(_____xiirv/.CARB.D2.1._____U) # # # # $Z FilSTmpE LiStEPoInTs2 # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/CARB.H2 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z FilSTmpE LiStEPoInTs # # # # :Fin_listG_CARB_H2: # # # # # # Montre de facon "poetique" le "Cosmic Web" (avec 671428 galaxies). # v $xiirv/CARB.I1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_I1: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____Format="Puh" # # $Z set _____FMailleX=0.150 # # $Z set _____FMailleY=0.150 # # $Z set _____FMailleZ=0.150 # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=63 # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=7 # # $Z set _____DistanceMax=0.3 # # $Z SET _____Palette=$xiP/rouge_orang.32 # # $Z SET _____Densite=$NEXIST # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" Rpoints=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # $Z set _____DistanceMini=0.050 # # $Z set _____Cubique=VRAI # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1789 # # $Z set _____PonderationX=0.2 # # $Z set _____DeriveeY=1947 # # $Z set _____PonderationY=0.2 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=0.2 # # $Z set _____Zoom=1.2 # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # $Z set _____ImageR=$xTV/CARB.I1 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimum=0.8" # # $Z set _____ParticulePara2="$_____ParticulePara2"" minimumT=0.8" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximum=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" maximumT=1.0" # # # # $Z set _____Pas_u=0.007853981633974482 # # $Z set _____Pas_v=0.01 # # $Z set _____Echantillon_u=20 # # $Z set _____Echantillon_v=20 # # $Z set _____Tx=0 # # $Z set _____RotationOX=1.0 # # $Z set _____RotationOY=4.0 # # $Z set _____Rayon=0.006 # # $Z SET _____Lister=$EXIST # # $Z SET _____ZoomLister=0.5 # # $Z set _____imagesR=$xTV/CAYA.A1.0129 # # $m4 _____include(_____xiirs/.CAYA.11.1._____U) # # # # $Z execRVB $xci/init$X \ # # $Z n=$GRIS_6 \ # # $Z R=$xTV/TEXTURE%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirs/.CAYA.11.3._____U) # # # # $Z FilSTmpB FLiStE_CoNcAtEnE # # # # $Z $CA $LiStEPoInTs $FiChIeR_LiStE \ # # $Z >> $FLiStE_CoNcAtEnE # # # # $Z $DELETE $FiChIeR_LiStE # # # # $Z $DELETE $LiStEPoInTs # # $Z $MV $FLiStE_CoNcAtEnE $LiStEPoInTs # # # # $Z FilSTmpE FLiStE_CoNcAtEnE # # # # $Z set _____ImageR=$xiirv/CARB.I1 # # $m4 _____include(_____xiirv/.CARB.D1.1._____U) # # # # $Z FilSTmpE LiStEPoInTs # # # # :Fin_listG_CARB_I1: # # # # # # Montre de facon "poetique" le "Cosmic Web" (avec 637312 galaxies, en fait 1047312 en # # comptant les points de la variete de Calabi-Yau) melange avec une variete de Calabi-Yau... # v $xiirv/CARB.I1.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARB_I1_1: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/CARB.I1 # # # # $Z execRVB "$xci/convol.01$X \ # # $Z A=$_____ImageR%s \ # # $Z points=`calculI pow(2*19+1,2)` \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z A1=$_____ImageR%s \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI" # # # # :Fin_listG_CARB_I1_1: # # # # # # Image identique a 'v $xiirv/CARB.I1' mais avec des "nuages" entourant les filaments, les # # noeuds... # v $xiirv/CARB.JC # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CARB_JC: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=7 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____PonderationX=0.0 # # $Z set _____DeriveeY=1789 # # $Z set _____PonderationY=0.0 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=0.0 # # $Z set _____DistanceMax=0.15 # # $Z set _____Rayon=0.006 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=3.0 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.65 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ImageR=$xiirv/CARB.JC # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_JC: # # # # # # Montre une carte brownienne volumique basee sur un ensemble homogene periodique # # de points non aleatoires. # v $xiirv/CARB.JE # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CARB_JE: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=7 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____PonderationX=4.0 # # $Z set _____DeriveeY=1789 # # $Z set _____PonderationY=4.0 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=4.0 # # $Z set _____DistanceMax=0.15 # # $Z set _____Rayon=0.006 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z SET _____Deplacer=$EXIST # # $Z set _____DeplacerXp=+0.2 # # $Z set _____DeplacerYp=+0.2 # # $Z set _____DeplacerZp=+0.2 # # $Z set _____Grossissement=3.0 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.42 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ImageR=$xiirv/CARB.JE # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_JE: # # # # # # Montre une carte brownienne volumique basee sur un ensemble homogene non periodique # # de points non aleatoires. # v $xiirv/CARB.JE.5.1 v $xiirv/CARB.JE.5.2 v $xiirv/CARB.JE.5.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_CARB_JE_5: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=7 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____PonderationX=4.0 # # $Z set _____DeriveeY=1789 # # $Z set _____PonderationY=4.0 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=4.0 # # $Z set _____DistanceMax=0.15 # # $Z set _____Rayon=0.003 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z SET _____Deplacer=$EXIST # # $Z set _____DeplacerXp=+0.2 # # $Z set _____DeplacerYp=+0.2 # # $Z set _____DeplacerZp=+0.2 # # $Z set _____Grossissement=1.75 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.42 # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.JE.5 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____MinX=0.10 # # $Z set _____MaxX=0.90 # # $Z set _____MinY=0.10 # # $Z set _____MaxY=0.90 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z SET _____DemiPaveVariable=$EXIST # # $Z set _____DemiPaveVariableBi=0 # # $Z set _____DemiPaveVariableBs=1 # # $Z set _____DemiPaveVariableBm=0.5 # # $Z set _____DemiPaveVariableBM=2.5 # # $Z set _____DemiPaveVariableIt=6 # # $Z set _____PCubique=FAUX # # $Z set _____ImageT1=$xTV/CARB.JE # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.JE.5 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # :Fin_listG_CARB_JE_5: # # # # # # Montre une image similaire a 'v $xiirv/CARB.9E.1.21', mais avec '$_____DemiPaveVariable' # # dans une version non "neutre" et donc avec les noeuds representes avec des grosses spheres # # et les liaisons ayant des diametres fluctuants... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 01:04:05 # # # # $xci/accumule.42$X : 01:11:42 # # # v $xiirv/CARB.JF.5.1 v $xiirv/CARB.JF.5.2 v $xiirv/CARB.JF.5.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_CARB_JF_5: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=7 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____PonderationX=4.0 # # $Z set _____DeriveeY=1789 # # $Z set _____PonderationY=4.0 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=4.0 # # $Z set _____DistanceMax=0.15 # # $Z set _____Rayon=0.0015 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z SET _____Deplacer=$EXIST # # $Z set _____DeplacerXp=+0.2 # # $Z set _____DeplacerYp=+0.2 # # $Z set _____DeplacerZp=+0.2 # # $Z set _____Grossissement=1.75 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.42 # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.JF.5 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____MinX=0.10 # # $Z set _____MaxX=0.90 # # $Z set _____MinY=0.10 # # $Z set _____MaxY=0.90 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z SET _____DemiPaveVariable=$EXIST # # $Z set _____DemiPaveVariableBi=0 # # $Z set _____DemiPaveVariableBs=1 # # $Z set _____DemiPaveVariableBm=0.25 # # $Z set _____DemiPaveVariableBM=1.50 # # $Z set _____DemiPaveVariableIt=6 # # $Z set _____PCubique=FAUX # # $Z set _____ImageT1=$xTV/CARB.JF # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.JF.5 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # :Fin_listG_CARB_JF_5: # # # # # # Montre une image similaire a 'v $xiirv/CARB.9E.1.21', mais avec '$_____DemiPaveVariable' # # dans une version non "neutre" et donc avec les noeuds representes avec des grosses spheres # # et les liaisons ayant des diametres fluctuants... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:51:48 # # # # $xci/accumule.42$X : 01:07:40 # # # v $xiirv/CARB.JG.5.1 v $xiirv/CARB.JG.5.2 v $xiirv/CARB.JG.5.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CARB_JG_5: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=7 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____PonderationX=4.0 # # $Z set _____DeriveeY=1789 # # $Z set _____PonderationY=4.0 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=4.0 # # $Z set _____DistanceMax=0.15 # # $Z set _____Rayon=0.0015 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z SET _____Deplacer=$EXIST # # $Z set _____DeplacerXp=+0.2 # # $Z set _____DeplacerYp=+0.2 # # $Z set _____DeplacerZp=+0.2 # # $Z set _____Grossissement=2.0 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.42 # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.JG.5 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____MinX=0.10 # # $Z set _____MaxX=0.90 # # $Z set _____MinY=0.10 # # $Z set _____MaxY=0.90 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z SET _____DemiPaveVariable=$EXIST # # $Z set _____DemiPaveVariableBi=0 # # $Z set _____DemiPaveVariableBs=1 # # $Z set _____DemiPaveVariableBm=0.25 # # $Z set _____DemiPaveVariableBM=1.50 # # $Z set _____DemiPaveVariableIt=6 # # $Z set _____PCubique=FAUX # # $Z set _____ImageT1=$xTV/CARB.JG # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.JG.5 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # :Fin_listG_CARB_JG_5: # # # # # # Montre une image similaire a 'v $xiirv/CARB.9E.1.21', mais avec '$_____DemiPaveVariable' # # dans une version non "neutre" et donc avec les noeuds representes avec des grosses spheres # # et les liaisons ayant des diametres fluctuants... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 01:09:07 # # # # $xci/accumule.42$X : 01:20:29 # # # v $xiirv/CARB.KC # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CARB_KC: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=15 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____PonderationX=0.0 # # $Z set _____DeriveeY=1789 # # $Z set _____PonderationY=0.0 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=0.0 # # $Z set _____DistanceMax=0.075 # # $Z set _____Rayon=0.006 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z set _____Grossissement=2.0 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.60 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ImageR=$xiirv/CARB.KC # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_KC: # # # # # # Montre une carte brownienne volumique basee sur un ensemble homogene periodique # # de points non aleatoires. # v $xiirv/CARB.KE # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CARB_KE: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=15 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____PonderationX=4.0 # # $Z set _____DeriveeY=1789 # # $Z set _____PonderationY=4.0 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=4.0 # # $Z set _____DistanceMax=0.075 # # $Z set _____Rayon=0.006 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z SET _____Deplacer=$EXIST # # $Z set _____DeplacerXp=+0.2 # # $Z set _____DeplacerYp=+0.2 # # $Z set _____DeplacerZp=+0.2 # # $Z set _____Grossissement=2.0 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.40 # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ImageR=$xiirv/CARB.KE # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # :Fin_listG_CARB_KE: # # # # # # Montre une carte brownienne volumique basee sur un ensemble homogene non periodique # # de points non aleatoires. # v $xiirv/CARB.KE.5.1 v $xiirv/CARB.KE.5.2 v $xiirv/CARB.KE.5.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CARB_KE_5: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=15 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____PonderationX=4.0 # # $Z set _____DeriveeY=1789 # # $Z set _____PonderationY=4.0 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=4.0 # # $Z set _____DistanceMax=0.075 # # $Z set _____Rayon=0.003 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z SET _____Deplacer=$EXIST # # $Z set _____DeplacerXp=+0.2 # # $Z set _____DeplacerYp=+0.2 # # $Z set _____DeplacerZp=+0.2 # # $Z set _____Grossissement=1.5 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.40 # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.KE.5 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____MinX=0.10 # # $Z set _____MaxX=0.90 # # $Z set _____MinY=0.10 # # $Z set _____MaxY=0.90 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z SET _____DemiPaveVariable=$EXIST # # $Z set _____DemiPaveVariableBi=0 # # $Z set _____DemiPaveVariableBs=1 # # $Z set _____DemiPaveVariableBm=0.25 # # $Z set _____DemiPaveVariableBM=1.50 # # $Z set _____DemiPaveVariableIt=6 # # $Z set _____PCubique=FAUX # # $Z set _____ImageT1=$xTV/CARB.KE # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.KE.5 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # :Fin_listG_CARB_KE_5: # # # # # # Montre une image similaire a 'v $xiirv/CARB.9E.1.21', mais avec '$_____DemiPaveVariable' # # dans une version non "neutre" et donc avec les noeuds representes avec des grosses spheres # # et les liaisons ayant des diametres fluctuants... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 01:49:03 # # # # $xci/accumule.42$X : 02:16:59 # # # v $xiirv/CARB.KF.5.1 v $xiirv/CARB.KF.5.2 v $xiirv/CARB.KF.5.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_CARB_KF_5: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=15 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____PonderationX=4.0 # # $Z set _____DeriveeY=1789 # # $Z set _____PonderationY=4.0 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=4.0 # # $Z set _____DistanceMax=0.075 # # $Z set _____Rayon=0.0015 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z SET _____Deplacer=$EXIST # # $Z set _____DeplacerXp=+0.2 # # $Z set _____DeplacerYp=+0.2 # # $Z set _____DeplacerZp=+0.2 # # $Z set _____Grossissement=1.5 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.40 # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.KF.5 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____MinX=0.10 # # $Z set _____MaxX=0.90 # # $Z set _____MinY=0.10 # # $Z set _____MaxY=0.90 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z SET _____DemiPaveVariable=$EXIST # # $Z set _____DemiPaveVariableBi=0 # # $Z set _____DemiPaveVariableBs=1 # # $Z set _____DemiPaveVariableBm=0.125 # # $Z set _____DemiPaveVariableBM=0.750 # # $Z set _____DemiPaveVariableIt=6 # # $Z set _____PCubique=FAUX # # $Z set _____ImageT1=$xTV/CARB.KF # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.KF.5 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # :Fin_listG_CARB_KF_5: # # # # # # Montre une image similaire a 'v $xiirv/CARB.9E.1.21', mais avec '$_____DemiPaveVariable' # # dans une version non "neutre" et donc avec les noeuds representes avec des grosses spheres # # et les liaisons ayant des diametres fluctuants... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:54:28 # # # # $xci/accumule.42$X : 01:10:46 # # # v $xiirv/CARB.KG.5.1 v $xiirv/CARB.KG.5.2 v $xiirv/CARB.KG.5.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_CARB_KG_5: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=15 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=1947 # # $Z set _____PonderationX=4.0 # # $Z set _____DeriveeY=1789 # # $Z set _____PonderationY=4.0 # # $Z set _____DeriveeZ=2001 # # $Z set _____PonderationZ=4.0 # # $Z set _____DistanceMax=0.075 # # $Z set _____Rayon=0.0015 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z SET _____Deplacer=$EXIST # # $Z set _____DeplacerXp=+0.2 # # $Z set _____DeplacerYp=+0.2 # # $Z set _____DeplacerZp=+0.2 # # $Z set _____Grossissement=2.0 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.40 # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.KG.5 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____MinX=0.10 # # $Z set _____MaxX=0.90 # # $Z set _____MinY=0.10 # # $Z set _____MaxY=0.90 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z SET _____DemiPaveVariable=$EXIST # # $Z set _____DemiPaveVariableBi=0 # # $Z set _____DemiPaveVariableBs=1 # # $Z set _____DemiPaveVariableBm=0.125 # # $Z set _____DemiPaveVariableBM=0.750 # # $Z set _____DemiPaveVariableIt=6 # # $Z set _____PCubique=FAUX # # $Z set _____ImageT1=$xTV/CARB.KG # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.KG.5 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # :Fin_listG_CARB_KG_5: # # # # # # Montre une image similaire a 'v $xiirv/CARB.9E.1.21', mais avec '$_____DemiPaveVariable' # # dans une version non "neutre" et donc avec les noeuds representes avec des grosses spheres # # et les liaisons ayant des diametres fluctuants... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:53:22 # # # # $xci/accumule.42$X : 01:11:32 # # # v $xiirv/CARB.LG.5.1 v $xiirv/CARB.LG.5.2 v $xiirv/CARB.LG.5.21 v $xiirv/CARB.LG.5.22 # Generee (sur '$CMAP28' -ex "porte-brancion"- et poursuivi sur '$LACT1B') par : # # # # # # :Debut_listG_CARB_LG_5: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=3 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # $Z SET _____RGraine=19477 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=19473 # # $Z set _____PonderationX=4.0 # # $Z set _____DeriveeY=17893 # # $Z set _____PonderationY=4.0 # # $Z set _____DeriveeZ=20013 # # $Z set _____PonderationZ=4.0 # # $Z set _____DistanceMax=0.3 # # $Z set _____Rayon=0.003 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z SET _____Deplacer=$EXIST # # $Z set _____DeplacerXp=+0.2 # # $Z set _____DeplacerYp=+0.2 # # $Z set _____DeplacerZp=+0.2 # # $Z set _____Grossissement=1.0 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.45 # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.LG.5 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____MinX=0.10 # # $Z set _____MaxX=0.90 # # $Z set _____MinY=0.10 # # $Z set _____MaxY=0.90 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z SET _____DemiPaveVariable=$EXIST # # $Z set _____DemiPaveVariableG=19477 # # $Z set _____DemiPaveVariableBi=0 # # $Z set _____DemiPaveVariableBs=1 # # $Z set _____DemiPaveVariableBm=0.5 # # $Z set _____DemiPaveVariableBM=5.5 # # $Z set _____DemiPaveVariableIt=30 # # $Z set _____PCubique=FAUX # # $Z set _____ImageT1=$xTV/CARB.LG # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # # # $Z set _____AttenuationOmbre=0.5 # # # # On utilise une attenuation de 0.5 (a la place de 'v $xiirc/.MANE.41.3.$U AttenuationOmbre' # # qui vaut 0.2 par defaut) afin de rendre moins visibles les frontieres des zones qui sont # # a la fois a l'ombre et peu eclairees...). # # # # $Z SET _____ConvoluerOmbre=$NEXIST # # $Z set _____Dx=3 # # $Z set _____Dy=3 # # $Z set _____Dz=3 # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.LG.5 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.CARB.LG.5._____U) # # # # :Fin_listG_CARB_LG_5: # # # # # # Montre une image similaire a 'v $xiirv/CARB.9E.5.21', mais beaucoup plus epaisse, sans # # mise en evidence des noeuds et les liaisons ayant des diametres fluctuants... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:11:23 # # # # $xci/accumule.42$X : 01:17:28 # # # v $xiirv/CARB.LI.5.1 v $xiirv/CARB.LI.5.2 v $xiirv/CARB.LI.5.21 v $xiirv/CARB.LI.5.22 # Generee (sur '$CMAP28' -ex "porte-pouchet"- et poursuivi sur '$LACT1B') par : # # # # # # :Debut_listG_CARB_LI_5: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=3 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # $Z SET _____RGraine=19477 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=19473 # # $Z set _____PonderationX=4.0 # # $Z set _____DeriveeY=17893 # # $Z set _____PonderationY=4.0 # # $Z set _____DeriveeZ=20013 # # $Z set _____PonderationZ=4.0 # # $Z set _____DistanceMax=0.3 # # $Z set _____Rayon=0.003 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z SET _____Deplacer=$EXIST # # $Z set _____DeplacerXp=+0.2 # # $Z set _____DeplacerYp=+0.2 # # $Z set _____DeplacerZp=+0.2 # # $Z set _____Grossissement=1.0 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.45 # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.LI.5 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____MinX=0.10 # # $Z set _____MaxX=0.90 # # $Z set _____MinY=0.10 # # $Z set _____MaxY=0.90 # # $Z set _____DemiPaveX=16 # # $Z set _____DemiPaveY=16 # # $Z set _____DemiPaveZ=16 # # $Z SET _____DemiPaveVariable=$EXIST # # $Z set _____DemiPaveVariableG=19477 # # $Z set _____DemiPaveVariableBi=0 # # $Z set _____DemiPaveVariableBs=1 # # $Z set _____DemiPaveVariableBm=0.5 # # $Z set _____DemiPaveVariableBM=5.5 # # $Z set _____DemiPaveVariableIt=30 # # $Z set _____PCubique=FAUX # # $Z set _____ImageT1=$xTV/CARB.LI # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # # # $Z set _____AttenuationOmbre=0.5 # # # # On utilise une attenuation de 0.5 (a la place de 'v $xiirc/.MANE.41.3.$U AttenuationOmbre' # # qui vaut 0.2 par defaut) afin de rendre moins visibles les frontieres des zones qui sont # # a la fois a l'ombre et peu eclairees...). # # # # $Z SET _____ConvoluerOmbre=$NEXIST # # $Z set _____Dx=3 # # $Z set _____Dy=3 # # $Z set _____Dz=3 # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.LI.5 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.CARB.LG.5._____U) # # # # :Fin_listG_CARB_LI_5: # # # # # # Montre une image similaire a 'v $xiirv/CARB.9G.5.21', mais beaucoup plus epaisse... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:17:07 # # # # $xci/accumule.42$X : 03:06:06 # # # v $xiirv/CARB.LJ.5.1 v $xiirv/CARB.LJ.5.2 v $xiirv/CARB.LJ.5.21 v $xiirv/CARB.LJ.5.22 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"- et poursuivi sur '$LACT1B') par : # # # # # # :Debut_listG_CARB_LJ_5: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z SET _____TriPremiere=0 # # $Z SET _____TriZmin=0 # # $Z SET _____TriZmax=3 # # # # $Z set _____Format="Sus" # # $Z set GeNeRe=$EXIST # # $Z set NoM_FoRmAt="$_____Format" # # $Z @ dim__ReFeReNcE = $_____TriZmax + 1 # # $Z set dimX_ReFeReNcE=$dim__ReFeReNcE # # $Z set dimY_ReFeReNcE=$dim__ReFeReNcE # # $Z source $Fimages_f # # # # Ainsi, on redefinit le format 'Sus' en "plus petit"... # # # # $Z set _____FIterations=0 # # # # $Z set _____FractalPara="$K_VIDE" # # $Z set _____FractalPara="$_____FractalPara"" eme=FAUX" # # $Z set _____FractalPara="$_____FractalPara"" ni0=$BLANC" # # # # $Z SET _____RFacteur=1 # # $Z SET _____RGraine=19477 # # # # $Z set _____ImageN=$xTV/POINTS_ALEATOIRES # # $m4 _____include(_____xiirv/.CARB.91.1._____U) # # # # $Z SET _____TriDimensionnel=$EXIST # # $Z set _____NVoisins=4 # # $Z SET _____Derivee=$EXIST # # $Z set _____DeriveeX=19473 # # $Z set _____PonderationX=4.0 # # $Z set _____DeriveeY=17893 # # $Z set _____PonderationY=4.0 # # $Z set _____DeriveeZ=20013 # # $Z set _____PonderationZ=4.0 # # $Z set _____DistanceMax=0.3 # # $Z set _____Rayon=0.003 # # $Z SET _____Palette="XYZ" # # $Z SET _____Densite=$NEXIST # # $Z SET _____Deplacer=$EXIST # # $Z set _____DeplacerXp=+0.2 # # $Z set _____DeplacerYp=+0.2 # # $Z set _____DeplacerZp=+0.2 # # $Z set _____Grossissement=1.0 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.45 # # # # $Z FileTmpB LiStEPoInTs # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimum=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" minimumT=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximum=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" maximumT=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" cc=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=1.5" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $LiStEPoInTs" # # # # $Z set _____ImageR=$xTV/CARB.LJ.5 # # $m4 _____include(_____xiirv/.CARB.11.2._____U) # # # # $Z set _____MinX=0.10 # # $Z set _____MaxX=0.90 # # $Z set _____MinY=0.10 # # $Z set _____MaxY=0.90 # # $Z set _____DemiPaveX=32 # # $Z set _____DemiPaveY=32 # # $Z set _____DemiPaveZ=32 # # $Z SET _____DemiPaveVariable=$EXIST # # $Z set _____DemiPaveVariableG=19477 # # $Z set _____DemiPaveVariableBi=0 # # $Z set _____DemiPaveVariableBs=1 # # $Z set _____DemiPaveVariableBm=0.5 # # $Z set _____DemiPaveVariableBM=5.5 # # $Z set _____DemiPaveVariableIt=30 # # $Z set _____PCubique=FAUX # # $Z set _____ImageT1=$xTV/CARB.LJ # # $m4 _____include(_____xiirv/.CARB.91.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # # # $Z set _____AttenuationOmbre=0.5 # # # # On utilise une attenuation de 0.5 (a la place de 'v $xiirc/.MANE.41.3.$U AttenuationOmbre' # # qui vaut 0.2 par defaut) afin de rendre moins visibles les frontieres des zones qui sont # # a la fois a l'ombre et peu eclairees...). # # # # $Z SET _____ConvoluerOmbre=$NEXIST # # $Z set _____Dx=3 # # $Z set _____Dy=3 # # $Z set _____Dz=3 # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/CARB.LJ.5 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.CARB.LG.5._____U) # # # # :Fin_listG_CARB_LJ_5: # # # # # # Montre une image similaire a 'v $xiirv/CARB.9I.5.21', mais beaucoup plus epaisse... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:27:32 # # # # $xci/accumule.42$X : 05:11:50 # # # v $xiirv/CARE.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARE_11: # # # # $Z Std # # # # $Z set _____ImagesR=$xiirv/CARE.11 # # $m4 _____include(_____xiirv/.CARE.11.1._____U) # # # # :Fin_listG_CARE_11: # # # # # # Il s'agit d'une visualisation d'un simple carre identique au contour de l'image... # v $xiirv/CARR.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARR_11: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=8 # # $Z set _____MailleY=8 # # $Z set _____MailleZ=1 # # $Z set _____MaillageTri=FAUX # # $Z set _____Palette=$xiP/rouge_orang.11 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____Grossissement=1.0 # # $Z set _____VRayon=0.008 # # $Z set _____Zoom=1.20 # # $Z set _____ImageR=$xiirv/CARR.11 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_CARR_11: # # # # # # Image montrant un carrelage carre... # v $xiirv/CARR.13 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARR_13: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=8 # # $Z set _____MailleY=8 # # $Z set _____MailleZ=1 # # $Z set _____MaillageTri=FAUX # # $Z set _____Palette=$xiP/blanc # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____Grossissement=1.0 # # $Z set _____VRayon=0.008 # # $Z set _____Zoom=1.20 # # $Z set _____ImageR=$xiirv/CARR.13 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # $Z set _____Erosion=9 # # $Z set _____Dilatation=81 # # $Z set _____Diagonale=VRAI # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____PaletteC=$xiP/arc_ciel.H1 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_CARR_13: # # # # # # Image montrant un carrelage carre... # v $xiirv/CARR.14 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARR_14: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=16 # # $Z set _____MailleY=16 # # $Z set _____MailleZ=1 # # $Z set _____MaillageTri=FAUX # # $Z set _____Palette=$xiP/NOIR_PLANCHER # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____Grossissement=1.0 # # $Z set _____VRayon=0.005 # # $Z set _____Zoom=1.205 # # $Z set _____ImageR=$xiirv/CARR.14 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # $Z set _____Erosion=9 # # $Z set _____Dilatation=81 # # $Z set _____Diagonale=VRAI # # $Z set _____OptimiserIncrement=FAUX # # # # Etant donne qu'il y a 17x17=289 (>256) carres, on a interet a ne pas optimiser l'increment # # (="FAUX") afin d'eviter que deux carres voisins horizontalement aient la meme couleur... # # # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____PaletteC=$xiP/Mondrian.02 # # $Z set _____AttenuationA=1 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImageR%s \ # # $Z $formatI \ # # $Z mode=1 \ # # $Z R=$_____ImageR%s \ # # $Z $formatR_Sdu # # # # :Fin_listG_CARR_14: # # # # # # Image montrant un carrelage carre decore a "la Mondrian"... # v $xiirv/CARR.14.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARR_14_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/CARR.14 # # $Z set _____ImageR=$_____ImageA.1 # # # # $Z execRVB $xci/complement$X \ # # $Z A=$_____ImageA%s \ # # $Z R=$xTV/CARR.14.1%s \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xTV/CARR.14.1%s \ # # $Z cache=VRAI \ # # $Z iterations=4 \ # # $Z anti_aliaser=VRAI \ # # $Z echelle=VRAI a=0.8 \ # # $Z R=$xTV/CARR.14.1%s \ # # $Z $formatI # # # # $Z execRVB $xci/complement$X \ # # $Z A=$xTV/CARR.14.1%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_CARR_14_1: # # # # # # Image montrant un carrelage carre recursif decore a "la Mondrian"... # v $xiirv/CARR.15 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARR_15: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=16 # # $Z set _____MailleY=16 # # $Z set _____MailleZ=1 # # $Z set _____MaillageTri=FAUX # # $Z set _____Palette=$xiP/NOIR_PLANCHER # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____MaillageTri=VRAI # # $Z set _____MaillageTriAlea=FAUX # # $Z set _____Grossissement=1.0 # # $Z set _____VRayon=0.005 # # $Z set _____Zoom=1.205 # # $Z set _____ImageR=$xiirv/CARR.15 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # $Z set _____Erosion=9 # # $Z set _____Dilatation=81 # # $Z set _____Diagonale=VRAI # # $Z set _____OptimiserIncrement=FAUX # # # # Etant donne qu'il y a 17x17=289 (>256) carres, on a interet a ne pas optimiser l'increment # # (="FAUX") afin d'eviter que deux carres voisins horizontalement aient la meme couleur... # # # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____PaletteC=$xiP/Mondrian.02 # # $Z set _____AttenuationA=1 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImageR%s \ # # $Z $formatI \ # # $Z mode=1 \ # # $Z R=$_____ImageR%s \ # # $Z $formatR_Sdu # # # # :Fin_listG_CARR_15: # # # # # # Image montrant un carrelage triangulaire deterministe decore a "la Mondrian"... # v $xiirv/CARR.16 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARR_16: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=16 # # $Z set _____MailleY=16 # # $Z set _____MailleZ=1 # # $Z set _____MaillageTri=FAUX # # $Z set _____Palette=$xiP/NOIR_PLANCHER # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____MaillageTri=VRAI # # $Z set _____MaillageTriAlea=VRAI # # $Z set _____Grossissement=1.0 # # $Z set _____VRayon=0.005 # # $Z set _____Zoom=1.205 # # $Z set _____ImageR=$xiirv/CARR.16 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # $Z set _____Erosion=9 # # $Z set _____Dilatation=81 # # $Z set _____Diagonale=VRAI # # $Z set _____OptimiserIncrement=FAUX # # # # Etant donne qu'il y a 17x17=289 (>256) carres, on a interet a ne pas optimiser l'increment # # (="FAUX") afin d'eviter que deux carres voisins horizontalement aient la meme couleur... # # # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____PaletteC=$xiP/Mondrian.02 # # $Z set _____AttenuationA=1 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImageR%s \ # # $Z $formatI \ # # $Z mode=1 \ # # $Z R=$_____ImageR%s \ # # $Z $formatR_Sdu # # # # :Fin_listG_CARR_16: # # # # # # Image montrant un carrelage triangulaire aleatoire decore a "la Mondrian"... # v $xiirv/CARR.17 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARR_17: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=16 # # $Z set _____MailleY=16 # # $Z set _____MailleZ=1 # # $Z set _____MaillageTri=FAUX # # $Z set _____Palette=$xiP/NOIR_PLANCHER # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____Grossissement=1.0 # # $Z set _____VRayon=0.005 # # $Z set _____Zoom=1.205 # # $Z set _____ParamValeurs="$K_VIDE" # # $Z set _____ParamValeurs="$_____ParamValeurs"" aleatoire=VRAI" # # $Z set _____ParamValeurs="$_____ParamValeurs"" smc=0.4" # # $Z set _____ImageR=$xiirv/CARR.17 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # $Z set _____Erosion=9 # # $Z set _____Dilatation=81 # # $Z set _____Diagonale=VRAI # # $Z set _____OptimiserIncrement=VRAI # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____PaletteC=$xiP/Mondrian.02 # # $Z set _____AttenuationA=1 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImageR%s \ # # $Z $formatI \ # # $Z mode=1 \ # # $Z R=$_____ImageR%s \ # # $Z $formatR_Sdu # # # # :Fin_listG_CARR_17: # # # # # # Image montrant un carrelage carre incomplet decore a "la Mondrian"... # v $xiirv/CARR.17.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARR_17_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/CARR.17 # # $Z set _____ImageR=$_____ImageA.1 # # # # $Z execRVB $xci/complement$X \ # # $Z A=$_____ImageA%s \ # # $Z R=$xTV/CARR.17.1%s \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xTV/CARR.17.1%s \ # # $Z cache=VRAI \ # # $Z iterations=4 \ # # $Z anti_aliaser=VRAI \ # # $Z echelle=VRAI a=0.8 \ # # $Z R=$xTV/CARR.17.1%s \ # # $Z $formatI # # # # $Z execRVB $xci/complement$X \ # # $Z A=$xTV/CARR.17.1%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_CARR_17_1: # # # # # # Image montrant un carrelage carre recursif incomplet decore a "la Mondrian"... # v $xiirv/CARR.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARR_21: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=8 # # $Z set _____MailleY=8 # # $Z set _____MailleZ=1 # # $Z set _____MaillageTri=VRAI # # $Z set _____Palette=$xiP/rouge_orang.11 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____Grossissement=1.0 # # $Z set _____Zoom=1.00 # # $Z set _____VRayon=0.008 # # $Z set _____Zoom=1.20 # # $Z set _____ImageR=$xiirv/CARR.21 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_CARR_21: # # # # # # Image montrant un carrelage triangulaire rectangle... # v $xiirv/CARR.23 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARR_23: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=8 # # $Z set _____MailleY=8 # # $Z set _____MailleZ=1 # # $Z set _____MaillageTri=VRAI # # $Z set _____Palette=$xiP/blanc # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____Grossissement=1.0 # # $Z set _____Zoom=1.00 # # $Z set _____VRayon=0.008 # # $Z set _____Zoom=1.20 # # $Z set _____ImageR=$xiirv/CARR.23 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # $Z set _____Erosion=9 # # $Z set _____Dilatation=81 # # $Z set _____Diagonale=VRAI # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____IncrementNiveau=0.5 # # $Z set _____PaletteC=$xiP/arc_ciel.H1 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_CARR_23: # # # # # # Image montrant un carrelage triangulaire rectangle... # v $xiirv/CARR.31 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARR_31: # # # # $Z Pal # # # # $Z SET _____Palette=$xiP/rouge_orang.11 # # $Z set _____ImagesR=$xiirv/CARR.31 # # $m4 _____include(_____xiirv/.CARR.31.1._____U) # # # # :Fin_listG_CARR_31: # # # # # # Image montrant un carrelage d'hexagones... # v $xiirv/CARR.32 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARR_32: # # # # $Z Pal # # # # $Z Set _____Palette=$xiP/arc_ciel.G1 # # $Z set _____ImagesR=$xiirv/CARR.32 # # $m4 _____include(_____xiirv/.CARR.31.1._____U) # # # # :Fin_listG_CARR_32: # # # # # # Image montrant un carrelage hexagonal... # v $xiirv/CARR.33 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARR_33: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImagesR=$xiirv/CARR.33 # # $m4 _____include(_____xiirv/.CARR.31.1._____U) # # # # $Z set _____Erosion=9 # # $Z set _____Dilatation=81 # # $Z set _____Diagonale=VRAI # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____PaletteC=$xiP/arc_ciel.H1 # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.CARR.31.1._____U) # # # # :Fin_listG_CARR_33: # # # # # # Image montrant un carrelage hexagonal rempli... # v $xiirv/CARR.34 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CARR_34: # # # # $Z Squ # # # # $Z set _____ImagesR=$xiirv/CARR.34 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # # # $Z set _____NiterationsX=60 # # $Z set _____NiterationsY=60 # # # # $Z set _____EpaisseurP=0.052 # # $Z set _____Zoom=0.045 # # $Z set _____DistanceMini=0.001 # # # # $Z set _____NAuCarre=FAUX # # # # $Z SET _____Palette=$xiP/verte # # $m4 _____include(_____xiirv/.CARR.31.1._____U) # # # # $Z set RoTaTiOn=`$xcg/SCAL.01$X x=1.1 a=360 n=$dpi` # # # # $Z set _____ParticulePara1="$_____ParticulePara1"" fond=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" Ffacteur=1" # # $Z set _____ParticulePara1="$_____ParticulePara1"" F=$_____ImagesR" # # $Z set _____ParticulePara1="$_____ParticulePara1"" ROTATION_OZ=$RoTaTiOn" # # # # $Z SET _____Palette=$xiP/orange # # $m4 _____include(_____xiirv/.CARR.31.1._____U) # # # # :Fin_listG_CARR_34: # # # # # # Image montrant deux carrelage hexagonaux decales angulairement de 1.1 degre de facon a # # a visualiser deux plans de graphene supraconducteurs... # v $xiirv/CARR.35 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CARR_35: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____NiterationsX=60 # # $Z set _____NiterationsY=60 # # # # $Z set _____EpaisseurP=0.052 # # $Z set _____Zoom=0.045 # # $Z set _____DistanceMini=0.050 # # # # $Z set _____NAuCarre=FAUX # # # # $Z set _____Palette=$xiP/blanc # # # # $Z set _____Erosion=9 # # $Z set _____Dilatation=25 # # $Z set _____Diagonale=VRAI # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____PaletteC=$xiP/arc_ciel.H1 # # # # $Z set _____ImagesR=$xTV/CARR.35.1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # # # $m4 _____include(_____xiirv/.CARR.31.1._____U) # # # # $Z set _____NiveauAleatoire=VRAI # # $Z set _____GraineNiveau=1789 # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # # # $m4 _____include(_____xiirv/.CARR.31.1._____U) # # # # $Z set _____ImagesR=$xTV/CARR.35.2 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # # # $m4 _____include(_____xiirv/.CARR.31.1._____U) # # # # $Z set _____NiveauAleatoire=VRAI # # $Z set _____GraineNiveau=1947 # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # # # $m4 _____include(_____xiirv/.CARR.31.1._____U) # # # # $Z set _____ImagesR=$xTV/CARR.35.3 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # # # $m4 _____include(_____xiirv/.CARR.31.1._____U) # # # # $Z set _____NiveauAleatoire=VRAI # # $Z set _____GraineNiveau=2001 # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # # # $m4 _____include(_____xiirv/.CARR.31.1._____U) # # # # $Z set _____ImagesR=$xiirv/CARR.35 # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/CARR.35.1 \ # # $Z R=$_____ImagesR$ROUGE \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/CARR.35.2 \ # # $Z R=$_____ImagesR$VERTE \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/CARR.35.3 \ # # $Z R=$_____ImagesR$BLEUE \ # # $Z $formatI # # # # :Fin_listG_CARR_35: # # # v $xiirv/CARR.36 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CARR_36: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____NiterationsX=60 # # $Z set _____NiterationsY=60 # # # # $Z set _____EpaisseurP=0.052 # # $Z set _____Zoom=0.045 # # $Z set _____DistanceMini=0.001 # # # # $Z set _____NAuCarre=VRAI # # # # $Z set _____Palette=$xiP/blanc # # # # $Z set _____Erosion=9 # # $Z set _____Dilatation=225 # # # # Une dilatation de 225 (au lieu de 25 avec 'v $xiirv/CARR.35' est destinee a eviter des # # espaces NOIRs entre chaque hexagones colories et ce a cause de l'interpolation # # d'anti-aliasing ('v $xiirv/.CARR.33.1.$U fond=VRAI')... # # # # $Z set _____Diagonale=VRAI # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____PaletteC=$xiP/arc_ciel.H1 # # # # $Z set _____ImagesR=$xTV/CARR.36.1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # # # $m4 _____include(_____xiirv/.CARR.31.1._____U) # # # # $Z set _____NiveauAleatoire=VRAI # # $Z set _____GraineNiveau=1789 # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # # # $m4 _____include(_____xiirv/.CARR.31.1._____U) # # # # $Z set _____ImagesR=$xTV/CARR.36.2 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # # # $m4 _____include(_____xiirv/.CARR.31.1._____U) # # # # $Z set _____NiveauAleatoire=VRAI # # $Z set _____GraineNiveau=1947 # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # # # $m4 _____include(_____xiirv/.CARR.31.1._____U) # # # # $Z set _____ImagesR=$xTV/CARR.36.3 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # # # $m4 _____include(_____xiirv/.CARR.31.1._____U) # # # # $Z set _____NiveauAleatoire=VRAI # # $Z set _____GraineNiveau=2001 # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # # # $Z set _____ParticulePara1="$_____ParticulePara1"" centrer_coordonnees=VRAI" # # # # $m4 _____include(_____xiirv/.CARR.31.1._____U) # # # # $Z set _____ImagesR=$xiirv/CARR.36 # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/CARR.36.1 \ # # $Z R=$_____ImagesR$ROUGE \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/CARR.36.2 \ # # $Z R=$_____ImagesR$VERTE \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/CARR.36.3 \ # # $Z R=$_____ImagesR$BLEUE \ # # $Z $formatI # # # # On notera qu'a cause de l'interpolation d'anti-aliasing, le gris des contours hexagonaux # # est legerement colore par la couleur des hexagones remplis. Alors, les luminances de ces # # "gris" dans les trois images '$xTV/CARR.36.?' ne sont donc pas les memes (puisque les # # hexagones sont colores differemment d'une image a l'autre) et cela donne des couleurs # # dans l'image '$_____ImagesR' a la place du gris attendu... # # # # :Fin_listG_CARR_36: # # # v $xiirv/CARR.41 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARR_41: # # # # $Z Pal # # # # $Z SET _____Getoile=$EXIST # # $Z set _____NAuCarre=FAUX # # $Z SET _____Palette=$xiP/rouge_orang.11 # # $Z set _____ImagesR=$xiirv/CARR.41 # # $m4 _____include(_____xiirv/.CARR.31.1._____U) # # # # :Fin_listG_CARR_41: # # # # # # Image montrant un carrelage de triangles equilateraux... # v $xiirv/CARR.42 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARR_42: # # # # $Z Pal # # # # $Z SET _____Getoile=$EXIST # # $Z set _____NAuCarre=FAUX # # $Z SET _____Palette=$xiP/arc_ciel.G1 # # $Z set _____ImagesR=$xiirv/CARR.42 # # $m4 _____include(_____xiirv/.CARR.31.1._____U) # # # # :Fin_listG_CARR_42: # # # # # # Image montrant un carrelage hexagonal... # v $xiirv/CARR.43 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARR_43: # # # # $Z Pal # # # # $Z SET _____Getoile=$EXIST # # $Z set _____NAuCarre=FAUX # # $Z SET _____Palette=$xiP/blanc # # $Z set _____ImagesR=$xiirv/CARR.43 # # $m4 _____include(_____xiirv/.CARR.31.1._____U) # # # # $Z set _____Erosion=9 # # $Z set _____Dilatation=81 # # $Z set _____Diagonale=VRAI # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____PaletteC=$xiP/arc_ciel.H1 # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.CARR.31.1._____U) # # # # :Fin_listG_CARR_43: # # # # # # Image montrant un carrelage hexagonal... # v $xiirv/CARR.46 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CARR_46: # # # # $Z Pal # # # # $Z FileTmpB FDerivees # # # # $Z set NPoInTsArbitraire=4000 # # La valeur de '$NPoInTsArbitraire' est choisie arbitrairement de facon a etre a priori # # superieure a la valeur de '$NPoInTs' utilisee par 'v $xiirv/.CARR.31.1.$u particule.10.X' # # et qui vaut 1764 avec les parametres ici definis... # # # # $Z $xci/valeurs_inte$X premiere=0 derniere=$NPoInTsArbitraire \ # # $Z vD=0 vA=+1 \ # # $Z lineaire=VRAI \ # # $Z > $FDerivees$COORD_X # # $Z $xci/valeurs_inte$X premiere=0 derniere=$NPoInTsArbitraire \ # # $Z vD=0 vA=+1 \ # # $Z lineaire=VRAI \ # # $Z > $FDerivees$COORD_Y # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lineaire=FAUX" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_dX=$FDerivees$COORD_X" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_dY=$FDerivees$COORD_Y" # # # # $Z SET _____Getoile=$EXIST # # $Z set _____NAuCarre=FAUX # # $Z SET _____Palette=$xiP/rouge_orang.11 # # $Z set _____ImagesR=$xiirv/CARR.46 # # $m4 _____include(_____xiirv/.CARR.31.1._____U) # # # # $Z FileTmpE FDerivees # # # # :Fin_listG_CARR_46: # # # # # # Image montrant un carrelage hexagonal "perturbe" de facon progressive... # v $xiirv/CASB.12 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_CASB_12: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $DELETE $xTV/NOMBRES* >& $nul # # # # $Z set DernierJour=4 # # $Z set MasseRacine=0.07 # # $Z set Ponderation=0.40 # # # # $Z $xci/valeurs_SurR$X premier=0 dernier=$DernierJour \ # # $Z nombres_decimaux=VRAI \ # # $Z filiations=VRAI \ # # $Z editer_masses=VRAI \ # # $Z masse_racine=$MasseRacine \ # # $Z ponderation_masses=$Ponderation \ # # $Z > $xTV/NOMBRES # # # # $Z $CA $xTV/NOMBRES | \ # # $Z $AW ' { print $2 } ' \ # # $Z > $xTV/NOMBRES$COORD_X # # $Z $CA $xTV/NOMBRES | \ # # $Z $AW ' { print $1 } ' \ # # $Z > $xTV/NOMBRES$COORD_Y # # $Z $CA $xTV/NOMBRES | \ # # $Z $AW ' { print $3 } ' \ # # $Z > $xTV/NOMBRES$RAYON # # # # $Z set HoMoX=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_X fhs=VRAI` # # $Z set TrAnX=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_X ts=VRAI` # # # # $Z set HoMoY=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_Y fhs=VRAI` # # $Z set TrAnY=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_Y ts=VRAI` # # # # $Z set NPaRtIcUlEs=`$CA $xTV/NOMBRES | $WCl` # # # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES$COORD_X \ # # $Z > $xTV/NOMBRES.1$COORD_X # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES$COORD_Y \ # # $Z > $xTV/NOMBRES.1$COORD_Y # # # # $Z $xrv/ADD2.11$X ne=0 \ # # $Z fichier1=$xTV/NOMBRES.1$COORD_X \ # # $Z fichier2=$xTV/NOMBRES.1$COORD_Y | \ # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier== \ # # $Z minimum=$NOIR maximum=$BLANC \ # # $Z formater=VRAI entiers=VRAI \ # # $Z > $xTV/NOMBRES$NIVEAU # # # # $Z $xrv/particule.10$X np=1 iterations=$NPaRtIcUlEs \ # # $Z AX=$HoMoX BX=$TrAnX \ # # $Z LISTE_X=$xTV/NOMBRES$COORD_X \ # # $Z AY=$HoMoY BY=$TrAnY \ # # $Z LISTE_Y=$xTV/NOMBRES$COORD_Y \ # # $Z LISTE_Z=0 \ # # $Z apparies=VRAI \ # # $Z equidistance=VRAI \ # # $Z LISTE_RAYON=$xTV/NOMBRES$RAYON \ # # $Z grossissement=2.5 \ # # $Z LISTE_NIVEAU=$xTV/NOMBRES$NIVEAU \ # # $Z palette=$xiP/arc_ciel.C1 \ # # $Z Lz=1000 \ # # $Z ZOOM=0.7 \ # # $Z TRANSLATION_OY=-0.1 \ # # $Z ROTATION_OX=0 \ # # $Z ROTATION_OY=$pi \ # # $Z ROTATION_OZ=$pi \ # # $Z R=$xiirv/CASB.12 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # :Fin_listG_CASB_12: # # # # # # Cette image montre une cascade binomiale sur quatre niveaux (cette generation est tres # # inspiree de 'v $xiirv/SURR.12'), la cascade portant sur le rayon des spheres... # v $xiirv/CASB.22 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_CASB_22: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $DELETE $xTV/NOMBRES* >& $nul # # # # $Z set DernierJour=5 # # $Z set MasseRacine=0.001500 # # $Z set ExposantMasses=0.5 # # $Z set Ponderation=0.30 # # # # $Z $xci/valeurs_SurR$X premier=0 dernier=$DernierJour \ # # $Z nombres_decimaux=VRAI \ # # $Z filiations=VRAI \ # # $Z editer_masses=VRAI \ # # $Z masse_racine=$MasseRacine \ # # $Z exposant_masses=$ExposantMasses \ # # $Z ponderation_masses=$Ponderation \ # # $Z > $xTV/NOMBRES # # # # $Z $CA $xTV/NOMBRES | \ # # $Z $AW ' { print $2 } ' \ # # $Z > $xTV/NOMBRES$COORD_X # # $Z $CA $xTV/NOMBRES | \ # # $Z $AW ' { print $1 } ' \ # # $Z > $xTV/NOMBRES$COORD_Y # # $Z $CA $xTV/NOMBRES | \ # # $Z $AW ' { print $3 } ' \ # # $Z > $xTV/NOMBRES$RAYON # # # # $Z set HoMoX=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_X fhs=VRAI` # # $Z set TrAnX=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_X ts=VRAI` # # # # $Z set HoMoY=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_Y fhs=VRAI` # # $Z set TrAnY=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_Y ts=VRAI` # # # # $Z set NPaRtIcUlEs=`$CA $xTV/NOMBRES | $WCl` # # # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES$COORD_X \ # # $Z > $xTV/NOMBRES.1$COORD_X # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES$COORD_Y \ # # $Z > $xTV/NOMBRES.1$COORD_Y # # # # $Z $xrv/ADD2.11$X ne=0 \ # # $Z fichier1=$xTV/NOMBRES.1$COORD_X \ # # $Z fichier2=$xTV/NOMBRES.1$COORD_Y | \ # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier== \ # # $Z minimum=$NOIR maximum=$BLANC \ # # $Z formater=VRAI entiers=VRAI \ # # $Z > $xTV/NOMBRES$NIVEAU # # # # $Z $xrv/particule.10$X np=1 iterations=$NPaRtIcUlEs \ # # $Z AX=$HoMoX BX=$TrAnX \ # # $Z LISTE_X=$xTV/NOMBRES$COORD_X \ # # $Z AY=$HoMoY BY=$TrAnY \ # # $Z LISTE_Y=$xTV/NOMBRES$COORD_Y \ # # $Z LISTE_Z=0 \ # # $Z apparies=VRAI \ # # $Z equidistance=VRAI \ # # $Z LISTE_RAYON=$xTV/NOMBRES$RAYON \ # # $Z grossissement=2.5 \ # # $Z LISTE_NIVEAU=$xTV/NOMBRES$NIVEAU \ # # $Z palette=$xiP/arc_ciel.C1 \ # # $Z Lx=4 Ly=4 Lz=8 \ # # $Z ZOOM=0.68 \ # # $Z TRANSLATION_OY=-0.1 \ # # $Z ROTATION_OX=0 \ # # $Z ROTATION_OY=$pi \ # # $Z ROTATION_OZ=$pi \ # # $Z R=$xiirv/CASB.22 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # :Fin_listG_CASB_22: # # # # # # Cette image montre une cascade binomiale sur cinq niveaux, la cascade portant sur la # # surface des spheres... # v $xiirv/CASB.22$M # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_CASB_22_M: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z c=64 \ # # $Z R=$xTV/CASB.11 \ # # $Z $formatI # # # # $Z execRVB $xci/filtre.01$X \ # # $Z A=$xiirv/CASB.22%s \ # # $Z N=$xTV/CASB.11 \ # # $Z avertir_non_implicite=FAUX \ # # $Z seuil=250 \ # # $Z R=$xTV/CASB.12%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/CASB.12 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=1000 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/CASB.13 \ # # $Z $formatI # # # # $Z execRVB $xci/substitue$X \ # # $Z A=$xiirv/CASB.22%s \ # # $Z substitution=02 \ # # $Z R=$xTV/CASB.14%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/CASB.13 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/CASB.14%s \ # # $Z avion=FAUX \ # # $Z Ty=0.9 perspective=0.2 \ # # $Z R=$xiirv/CASB.22$M%s \ # # $Z $formatI # # # # :Fin_listG_CASB_22_M: # # # v $xiirv/CERC.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CERC_11: # # # # $Z Pal # # # # $Z set _____ImagesR=$xiirv/CERC.11 # # $m4 _____include(_____xiirv/.CERC.11.1._____U) # # # # :Fin_listG_CERC_11: # # # # # # Il s'agit d'une visualisation d'un simple cercle... # v $xiirv/CHUT.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CHUT_11: # # # # $Z Pal # # # # $Z set _____ImagesR=$xiirv/CHUT.11 # # $m4 _____include(_____xiirv/.CHUT.11.1._____U) # # # # :Fin_listG_CHUT_11: # # # # # # Il s'agit d'une visualisation de la chute des corps (galileenne) dans le vide. # v $xiirv/CHAM.31 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CHAM_31: # # # # $Z Sdu # # # # $Z set _____NIterations=9400 # # $Z set _____Rho=0.01 # # $Z set _____VRayon=0.010 # # $Z set _____Zoom=0.10 # # $Z set _____Couronne=1 # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # # # $Z set _____ImageR=$xiirv/CHAM.31 # # $m4 _____include(_____xiirv/.PIPO.11.1._____U) # # $m4 _____include(_____xiirv/.CHAM.41.9._____U) # # $m4 _____include(_____xiirv/.CHAM.31.2._____U) # # $m4 _____include(_____xiirv/.PIPO.11.3._____U) # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_CHAM_31: # # # # # # qui montre les 36493 premieres decimales du nombre de Champernowne comme une marche # # aleatoire en coordonnees polaires (dite "marche aleatoire absolue"). # v $xiirv/CHAM.32 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CHAM_32: # # # # $Z Sdu # # # # $Z set _____NIterations=9400 # # $Z set _____Rho=0.01 # # $Z set _____VRayon=0.0008 # # $Z set _____Zoom=3.00 # # $Z set _____Couronne=1 # # $Z SET _____CumulPhi=$EXIST # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # # # $Z set _____ImageR=$xiirv/CHAM.32 # # $m4 _____include(_____xiirv/.PIPO.11.1._____U) # # $m4 _____include(_____xiirv/.CHAM.41.9._____U) # # $m4 _____include(_____xiirv/.CHAM.31.2._____U) # # $m4 _____include(_____xiirv/.PIPO.11.3._____U) # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_CHAM_32: # # # # # # qui montre les 36493 premieres decimales du nombre de Champernowne comme une marche # # aleatoire en coordonnees polaires en cumulant les 'Phi's succesifs (dite "marche aleatoire # # relative"). # v $xiirv/CHAM.41 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CHAM_41: # # # # $Z Sdu # # # # $Z set _____NIterations=10500 # # $Z set _____Rho=0.01 # # $Z set _____VRayon=0.010 # # $Z set _____Zoom=0.10 # # $Z set _____Couronne=1 # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # # # $Z set _____ImageR=$xiirv/CHAM.41 # # $m4 _____include(_____xiirv/.PIPO.11.1._____U) # # $m4 _____include(_____xiirv/.CHAM.41.9._____U) # # $m4 _____include(_____xiirv/.CHAM.41.2._____U) # # $m4 _____include(_____xiirv/.PIPO.11.3._____U) # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_CHAM_41: # # # # # # qui montre les 51982 premieres decimales du nombre de Champernowne (restreint aux nombres # # premiers) comme une marche aleatoire en coordonnees polaires (dite "marche aleatoire # # absolue"). # v $xiirv/CHAM.42 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CHAM_42: # # # # $Z Sdu # # # # $Z set _____NIterations=10500 # # $Z set _____Rho=0.01 # # $Z set _____VRayon=0.002 # # $Z set _____Zoom=0.95 # # $Z set _____Couronne=1 # # $Z SET _____CumulPhi=$EXIST # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # # # $Z set _____ImageR=$xiirv/CHAM.42 # # $m4 _____include(_____xiirv/.PIPO.11.1._____U) # # $m4 _____include(_____xiirv/.CHAM.41.9._____U) # # $m4 _____include(_____xiirv/.CHAM.41.2._____U) # # $m4 _____include(_____xiirv/.PIPO.11.3._____U) # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_CHAM_42: # # # # # # qui montre les 51982 premieres decimales du nombre de Champernowne (restreint aux nombres # # premiers) comme une marche aleatoire en coordonnees polaires en cumulant les 'Phi's # # succesifs (dite "marche aleatoire relative"). # v $xiirv/CHAM.51 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CHAM_51: # # # # $Z Sdu # # # # $Z set _____NIterations=300000 # # $Z set _____Rho=0.01 # # $Z set _____ExpRho=0.5 # # $Z set _____VRayon=0.010 # # $Z set _____Zoom=0.12 # # $Z set _____Couronne=1 # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # # # $Z set _____ImageR=$xiirv/CHAM.51 # # $m4 _____include(_____xiirv/.PIPO.11.1._____U) # # $m4 _____include(_____xiirv/.CHAM.41.9._____U) # # $m4 _____include(_____xiirv/.CHAM.31.2._____U) # # $m4 _____include(_____xiirv/.PIPO.11.3._____U) # # $m4 _____include(_____xiirv/.CHAM.51.1._____U) # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_CHAM_51: # # # # # # qui montre les 1.166.670 premieres decimales du nombre de Champernowne comme une marche # # aleatoire en coordonnees polaires (dite "marche aleatoire absolue"), en prenant la racine # # carree du module afin de mettre le maximum de "choses" a l'interieur du cadre de l'image. # # On notera au passage que ce processus (la prise de la racine carree) fait que les # # coordonnees 'Z' qui devraient etre toutes nulles, fluctuent en fait autour de zero a # # a 1.0e-16 pres... # v $xiirv/CHAM.61 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CHAM_61: # # # # $Z Sdu # # # # $Z set _____NIterations=50000 # # $Z set _____Rho=0.01 # # $Z set _____ExpRho=0.5 # # $Z set _____VRayon=0.005 # # $Z set _____Zoom=0.26 # # $Z set _____Couronne=1 # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # # # $Z set _____ImageR=$xiirv/CHAM.61 # # $m4 _____include(_____xiirv/.PIPO.11.1._____U) # # $m4 _____include(_____xiirv/.CHAM.41.9._____U) # # $m4 _____include(_____xiirv/.CHAM.41.2._____U) # # $m4 _____include(_____xiirv/.PIPO.11.3._____U) # # $m4 _____include(_____xiirv/.CHAM.51.1._____U) # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_CHAM_61: # # # # # # qui montre les 288.982 premieres decimales du nombre de Champernowne (restreint aux # # nombres premiers) comme une marche aleatoire en coordonnees polaires (dite "marche # # aleatoire absolue"), en prenant la racine carree du module afin de mettre le maximum de # # "choses" a l'interieur du cadre de l'image. # v $xiirv/CMAP.51 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_CMAP_51: # # # # $Z Pal # # # # $Z set _____Fond=$NOIR # # $Z set _____imageR=$xiirv/CMAP.51 # # $m4 _____include(_____xiirv/.CMAP.51.11._____U) # # $m4 _____include(_____xiirv/.CMAP.51.12._____U) # # $m4 _____include(_____xiirv/.CMAP.51.13._____U) # # $m4 _____include(_____xiirv/.CMAP.51.21._____U) # # $m4 _____include(_____xiirv/.CMAP.51.14._____U) # # # # :Fin_listG_CMAP_51: # # # v $xiirv/CMAP.52 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_CMAP_52: # # # # $Z Pal # # # # $Z set _____Fond=$BLANC # # $Z set _____imageR=$xiirv/CMAP.52 # # $m4 _____include(_____xiirv/.CMAP.51.11._____U) # # $m4 _____include(_____xiirv/.CMAP.51.12._____U) # # $m4 _____include(_____xiirv/.CMAP.51.13._____U) # # $m4 _____include(_____xiirv/.CMAP.51.21._____U) # # $m4 _____include(_____xiirv/.CMAP.51.14._____U) # # # # :Fin_listG_CMAP_52: # # # v $xiirv/CMAP.52.C # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CMAP_52_C: # # # # $Z Pal # # # # $Z set _____Fond=$BLANC # # $Z SET _____Definir_C=$EXIST # # $Z SET _____Definir_M=$NEXIST # # $Z SET _____Definir_A=$NEXIST # # $Z SET _____Definir_P=$NEXIST # # $Z set _____imageR=$xiirv/CMAP.52.C # # $m4 _____include(_____xiirv/.CMAP.51.11._____U) # # $m4 _____include(_____xiirv/.CMAP.51.12._____U) # # $m4 _____include(_____xiirv/.CMAP.51.13._____U) # # $m4 _____include(_____xiirv/.CMAP.51.21._____U) # # $m4 _____include(_____xiirv/.CMAP.51.14._____U) # # # # :Fin_listG_CMAP_52_C: # # # v $xiirv/CMAP.52.M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CMAP_52_M: # # # # $Z Pal # # # # $Z set _____Fond=$BLANC # # $Z SET _____Definir_C=$NEXIST # # $Z SET _____Definir_M=$EXIST # # $Z SET _____Definir_A=$NEXIST # # $Z SET _____Definir_P=$NEXIST # # $Z set _____imageR=$xiirv/CMAP.52.M # # $m4 _____include(_____xiirv/.CMAP.51.11._____U) # # $m4 _____include(_____xiirv/.CMAP.51.12._____U) # # $m4 _____include(_____xiirv/.CMAP.51.13._____U) # # $m4 _____include(_____xiirv/.CMAP.51.21._____U) # # $m4 _____include(_____xiirv/.CMAP.51.14._____U) # # # # :Fin_listG_CMAP_52_M: # # # v $xiirv/CMAP.52.A # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CMAP_52_A: # # # # $Z Pal # # # # $Z set _____Fond=$BLANC # # $Z SET _____Definir_C=$NEXIST # # $Z SET _____Definir_M=$NEXIST # # $Z SET _____Definir_A=$EXIST # # $Z SET _____Definir_P=$NEXIST # # $Z set _____imageR=$xiirv/CMAP.52.A # # $m4 _____include(_____xiirv/.CMAP.51.11._____U) # # $m4 _____include(_____xiirv/.CMAP.51.12._____U) # # $m4 _____include(_____xiirv/.CMAP.51.13._____U) # # $m4 _____include(_____xiirv/.CMAP.51.21._____U) # # $m4 _____include(_____xiirv/.CMAP.51.14._____U) # # # # :Fin_listG_CMAP_52_A: # # # v $xiirv/CMAP.52.P # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CMAP_52_P: # # # # $Z Pal # # # # $Z set _____Fond=$BLANC # # $Z SET _____Definir_C=$NEXIST # # $Z SET _____Definir_M=$NEXIST # # $Z SET _____Definir_A=$NEXIST # # $Z SET _____Definir_P=$EXIST N # # $Z set _____imageR=$xiirv/CMAP.52.P # # $m4 _____include(_____xiirv/.CMAP.51.11._____U) # # $m4 _____include(_____xiirv/.CMAP.51.12._____U) # # $m4 _____include(_____xiirv/.CMAP.51.13._____U) # # $m4 _____include(_____xiirv/.CMAP.51.21._____U) # # $m4 _____include(_____xiirv/.CMAP.51.14._____U) # # # # :Fin_listG_CMAP_52_P: # # # v $xiirv/CMAP.61 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_CMAP_61: # # # # $Z Pal # # # # $Z set _____Fond_R=$BLANC # # $Z set _____Fond_V=$BLANC # # $Z set _____Fond_B=$BLANC # # $Z set _____Rayon=0.045 # # $Z set _____imageR=$xiirv/CMAP.61 # # $m4 _____include(_____xiirv/.CMAP.51.11._____U) # # $m4 _____include(_____xiirv/.CMAP.51.12._____U) # # $m4 _____include(_____xiirv/.CMAP.51.13._____U) # # $m4 _____include(_____xiirv/.CMAP.51.21._____U) # # $m4 _____include(_____xiirv/.CMAP.51.14._____U) # # # # :Fin_listG_CMAP_61: # # # # # # On notera que cette image est assez similaire a 'v $xiirv/CMAP.52' mais en differe # # legerement a cause d'un changement dans la gestion du rayon des particules entre temps. # # Afin que les proportions de l'image sur fond '$BLANC' ('v $xiirv/CMAP.52') et sur # # fond cyan "#4090A0" ('v $xiirv/CMAP.62) soient les memes, j'ai donc decide de calculer # # une nouvelle image sur fond '$BLANC' ('v $xiirv/CMAP.61')... # v $xiirv/CMAP.61.1 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_CMAP_61_1: # # # # $Z Shu # # # # $Z set _____Fond_R=$BLANC # # $Z set _____Fond_V=$BLANC # # $Z set _____Fond_B=$BLANC # # $Z set _____Rayon=0.045 # # $Z set _____imageR=$xiirv/CMAP.61.1 # # $m4 _____include(_____xiirv/.CMAP.51.11._____U) # # $m4 _____include(_____xiirv/.CMAP.51.12._____U) # # $m4 _____include(_____xiirv/.CMAP.51.13._____U) # # $m4 _____include(_____xiirv/.CMAP.51.21._____U) # # $m4 _____include(_____xiirv/.CMAP.51.14._____U) # # # # :Fin_listG_CMAP_61_1: # # # # # # Image identique a 'v $xiirv/CMAP.61 mais avec une meilleure resolution, suite a # # 'v $Dcourrier_in/20170120092458 antoine.havet@polytechnique.edu'. # v $xiirv/CMAP.62 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_CMAP_62: # # # # $Z Pal # # # # $Z set _____Fond_R=0x40 # # $Z set _____Fond_V=0x90 # # $Z set _____Fond_B=0xA0 # # $Z set _____Rayon=0.045 # # $Z set _____imageR=$xiirv/CMAP.62 # # $m4 _____include(_____xiirv/.CMAP.51.11._____U) # # $m4 _____include(_____xiirv/.CMAP.51.12._____U) # # $m4 _____include(_____xiirv/.CMAP.51.13._____U) # # $m4 _____include(_____xiirv/.CMAP.51.21._____U) # # $m4 _____include(_____xiirv/.CMAP.51.14._____U) # # # # :Fin_listG_CMAP_62: # # # v $xiirv/CMAP.71 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_CMAP_71: # # # # $Z Pal # # # # $Z $xci/complement$X \ # # $Z A=$xiit/CMAP.51 \ # # $Z R=$xT/CMAP \ # # $Z $formatI # # # # $Z SET _____IFond=$xT/CMAP # # $Z set _____Tx=+0.09 # # $Z set _____Ty=-0.24 # # $Z set _____B_ZBuffer=0 # # $Z set _____Rayon=0.045 # # $Z set _____imageR=$xiirv/CMAP.71 # # $m4 _____include(_____xiirv/.CMAP.51.11._____U) # # $m4 _____include(_____xiirv/.CMAP.51.12._____U) # # $m4 _____include(_____xiirv/.CMAP.71.13._____U) # # $m4 _____include(_____xiirv/.CMAP.51.21._____U) # # $m4 _____include(_____xiirv/.CMAP.51.14._____U) # # # # :Fin_listG_CMAP_71: # # # v $xiirv/CMAP.72 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_CMAP_72: # # # # $Z Pal # # # # $Z $xci/complement$X \ # # $Z A=$xiit/CMAP.51 \ # # $Z R=$xT/CMAP \ # # $Z $formatI # # # # $Z SET _____IFond=$xT/CMAP # # $Z set _____Palettes=$xiP/CMAP.31 # # $Z set _____Tx=+0.09 # # $Z set _____Ty=-0.24 # # $Z set _____B_ZBuffer=0 # # $Z set _____Rayon=0.045 # # $Z set _____imageR=$xiirv/CMAP.72 # # $m4 _____include(_____xiirv/.CMAP.51.11._____U) # # $m4 _____include(_____xiirv/.CMAP.51.12._____U) # # $m4 _____include(_____xiirv/.CMAP.71.13._____U) # # $m4 _____include(_____xiirv/.CMAP.51.21._____U) # # $m4 _____include(_____xiirv/.CMAP.51.14._____U) # # # # :Fin_listG_CMAP_72: # # # v $xiirv/CMAP.81 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CMAP_81: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z $xci/complement$X \ # # $Z A=$xiit/CMAP.51 \ # # $Z R=$xT/CMAP \ # # $Z $formatI # # # # $Z SET _____IFond=$xT/CMAP # # $Z SET _____InverserFond=$EXIST # # $Z set _____Tx=+0.09 # # $Z set _____Ty=-0.24 # # $Z set _____B_ZBuffer=-0.03 # # $Z set _____Rayon=0.045 # # $Z set _____imageR=$xiirv/CMAP.81 # # $m4 _____include(_____xiirv/.CMAP.51.11._____U) # # $m4 _____include(_____xiirv/.CMAP.51.12._____U) # # $m4 _____include(_____xiirv/.CMAP.71.13._____U) # # $m4 _____include(_____xiirv/.CMAP.51.21._____U) # # $m4 _____include(_____xiirv/.CMAP.51.14._____U) # # # # :Fin_listG_CMAP_81: # # # v $xiirv/COEL.10 v $xiirv/COEL.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_COEL_11: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z Y_2__X_0=+1 \ # # $Z Y_1__X_0=0 \ # # $Z Y_0__X_3=-1 \ # # $Z Y_0__X_2=0 \ # # $Z Y_0__X_1=+1 \ # # $Z Y_0__X_0=-1 \ # # $Z matrice=VRAI aXX=3 aYY=3 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=VRAI \ # # $Z R=$xTV/COEL.10 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/COEL.10 \ # # $Z p=$xiP/cercle.H3 \ # # $Z R=$xTV/COEL.11 \ # # $Z $formatI # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$xTV/COEL.11%s \ # # $Z points=9 \ # # $Z R=$xiirv/COEL.10%s \ # # $Z $formatI # # # # $Z $xci/passe_bande$X \ # # $Z A=$xTV/COEL.10 \ # # $Z inf=127 sup=128 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=49 \ # # $Z R=$xTV/COEL.11 \ # # $Z $formatI # # # # $Z execRVB $xci/cache$X \ # # $Z A=$xiirv/COEL.10%s \ # # $Z M=$xTV/COEL.11 \ # # $Z anti_aliasing=VRAI \ # # $Z R=$xiirv/COEL.11%s \ # # $Z $formatI # # # # :Fin_listG_COEL_11: # # # # # # Montre sur le ligne F(x,y)=0 la courbe elliptique : # # # # 2 3 # # y = x - x + 1 # # # # soit : # # # # 2 3 # # F(x,y) = y - x + x - 1 = 0 # # # v $xiirv/COEL.11$m v $xiirv/COEL.11$m.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_COEL_11_m: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/COEL.10 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=1000 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/COEL.11 \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/COEL.11 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/COEL.11%s \ # # $Z avion=VRAI \ # # $Z R=$xiirv/COEL.11$m%s \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/COEL.11$m%s \ # # $Z R=$xiirv/COEL.11$m.1%s \ # # $Z $formatI # # # # :Fin_listG_COEL_11_m: # # # v $xiirv/COEL.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_COEL_21: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z source $xrd/graph.01$vv$Y # # $Z G_Init # # # # $Z set Echelle_K=0.106 # # # # $Z G_Cursor2 $GRIS_4 $GRIS_0 $GRIS_0 # # # # $Z set CoordX1=0.068 # # $Z set CoordY1=0.600 # # $Z set CoordZA=0 # # $Z set CoordX3=0.890 # # $Z set CoordY3=0.900 # # $Z set ParametreA=`calcul ($CoordY3-$CoordY1)/($CoordX3-$CoordX1)` # # $Z set ParametreB=`calcul $CoordY3 - ($ParametreA*$CoordX3)` # # $Z set CoordX2=0.582 # # $Z set CoordY2=`calcul ($ParametreA*$CoordX2)+$ParametreB` # # $Z set CoordX4=$CoordX3 # # $Z set CoordY4=`calcul 1-$CoordY3` # # # # $Z G_Cursor1 $CoordX1 $CoordY1 $CoordZA # # $Z G_A # # $Z G_Cursor1 $CoordX3 $CoordY3 $CoordZA # # $Z G_B # # $Z G_Cursor1 $CoordX4 $CoordY4 $CoordZA # # $Z G_B # # $Z G_Cursor1 $CoordX2 $CoordY2 $CoordZA # # $Z G_A # # $Z G_B # # # # $Z G_Genere $xTV/COEL.21 fond=VRAI F=$xiirv/COEL.11 grossissement=2 # # # # $Z G_Init # # # # $Z G_Cursor3 0.008 # # $Z set CoordZB=0.01 # # # # $Z G_Cursor2 $GRIS_8 $GRIS_6 $GRIS_2 # # $Z set Echelle_K=0.005 # # $Z G_Cursor1 $CoordX1 $CoordY1 $CoordZB # # $Z eval `G_Message "P"` # # $Z G_Cursor1 $CoordX2 $CoordY2 $CoordZB # # $Z eval `G_Message "Q"` # # $Z G_Cursor1 $CoordX3 $CoordY3 $CoordZB # # $Z eval `G_Message "R"` # # $Z G_Cursor1 $CoordX4 $CoordY4 $CoordZB # # $Z eval `G_Message "R' = P+Q"` # # # # $Z G_Genere $xiirv/COEL.21 fond=VRAI F=$xTV/COEL.21 # # # # :Fin_listG_COEL_21: # # # # # # On notera qu'evidemment toutes les coordonnees {X,Y} definies explicitement sont # # extremenent dependantes de l'image 'v $xiirv/COEL.11'... # XYmaxNe 1079 719 ; v $xiirv/COEL.31 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_COEL_31: # # # # $Z XYmaxNe 1079 719 # # # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z Y_2__X_0=+1 \ # # $Z Y_1__X_0=0 \ # # $Z Y_0__X_3=-1 \ # # $Z Y_0__X_2=0 \ # # $Z Y_0__X_1=+1 \ # # $Z Y_0__X_0=-1 \ # # $Z matrice=VRAI aXX=3 aYY=3 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=VRAI \ # # $Z R=$xTV/COEL.20 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/COEL.20 \ # # $Z p=$xiP/cercle.H3 \ # # $Z R=$xTV/COEL.21 \ # # $Z $formatI # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$xTV/COEL.21%s \ # # $Z points=9 \ # # $Z R=$xTV/COEL.30%s \ # # $Z $formatI # # # # $Z $xci/passe_bande$X \ # # $Z A=$xTV/COEL.20 \ # # $Z inf=127 sup=128 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=49 \ # # $Z R=$xTV/COEL.21 \ # # $Z $formatI # # # # $Z execRVB $xci/cache$X \ # # $Z A=$xTV/COEL.30%s \ # # $Z M=$xTV/COEL.21 \ # # $Z anti_aliasing=VRAI \ # # $Z R=$xiirv/COEL.31%s \ # # $Z $formatI # # # # :Fin_listG_COEL_31: # # # # # # Images formellement identiques a 'v $xiirv/COEL.11' et regeneree pour le CNRS # # ('v $Dcourrier_in/20150529110348 From.Christine.GIRARD@cnrs.fr..Thu.May.28.11:09:01.2015'). # v $xiirv/COEL.41 p=$xiP/gris.01 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_COEL_41: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z Y_2__X_0=+1 \ # # $Z Y_1__X_0=0 \ # # $Z Y_0__X_3=-1 \ # # $Z Y_0__X_2=0 \ # # $Z Y_0__X_1=+1 \ # # $Z Y_0__X_0=-1 \ # # $Z matrice=VRAI aXX=3 aYY=3 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=VRAI \ # # $Z $formatI | \ # # $Z $xci/passe_bande$X \ # # $Z seuil_inferieur=127 seuil_superieur=128 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$xiirv/COEL.41 \ # # $Z $formatI # # # # :Fin_listG_COEL_41: # # # # # # Montre sur le ligne F(x,y)=0 la courbe elliptique : # # # # 2 3 # # y = x - x + 1 # # # # soit : # # # # 2 3 # # F(x,y) = y - x + x - 1 = 0 # # # v $xiirv/COEL.51 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_COEL_51: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$xiirv/COEL.41 \ # # $Z R=$xTV/COEL.41%s \ # # $Z $formatI # # # # $Z source $xrd/graph.01$vv$Y # # $Z G_Init # # # # $Z set Echelle_K=0.106 # # # # $Z G_Cursor2 $GRIS_4 $GRIS_0 $GRIS_0 # # # # $Z set CoordX1=0.068 # # $Z set CoordY1=0.600 # # # # Coordonnees {X1,Y1} dans [0,1] du point 'P'. # # # # $Z set CoordZA=0 # # $Z set CoordX3=0.890 # # $Z set CoordY3=0.900 # # # # Coordonnees {X3,Y3} dans [0,1] du point 'R'. # # # # $Z set ParametreA=`calcul ($CoordY3-$CoordY1)/($CoordX3-$CoordX1)` # # $Z set ParametreB=`calcul $CoordY3 - ($ParametreA*$CoordX3)` # # $Z set CoordX2=0.582 # # $Z set CoordY2=`calcul ($ParametreA*$CoordX2)+$ParametreB` # # # # Coordonnees {X2,Y2} dans [0,1] du point 'Q'. # # # # $Z set CoordX4=$CoordX3 # # $Z set CoordY4=`calcul 1-$CoordY3` # # # # $Z G_Cursor1 $CoordX1 $CoordY1 $CoordZA # # $Z G_A # # $Z G_Cursor1 $CoordX3 $CoordY3 $CoordZA # # $Z G_B # # # # Trace du segment "PR" avec marquage des points "P" et "R". # # # # $Z G_Cursor1 $CoordX4 $CoordY4 $CoordZA # # $Z G_B # # # # Trace du segment "RR'" avec marquage des points "R" er "R'". # # # # $Z G_Cursor1 $CoordX2 $CoordY2 $CoordZA # # $Z G_A # # $Z G_B # # # # Trace du point "Q". # # # # # # $Z G_Genere $xTV/COEL.51 fond=VRAI F=$xTV/COEL.41 grossissement=2 # # # # $Z G_Init # # # # $Z G_Cursor3 0.008 # # $Z set CoordZB=0.01 # # # # $Z G_Cursor2 $GRIS_8 $GRIS_6 $GRIS_2 # # $Z set Echelle_K=0.005 # # $Z G_Cursor1 $CoordX1 $CoordY1 $CoordZB # # $Z eval `G_Message "P"` # # $Z G_Cursor1 $CoordX2 $CoordY2 $CoordZB # # $Z eval `G_Message "Q"` # # $Z G_Cursor1 $CoordX3 $CoordY3 $CoordZB # # $Z eval `G_Message "R"` # # $Z G_Cursor1 $CoordX4 $CoordY4 $CoordZB # # $Z eval `G_Message "R' = P+Q"` # # # # $Z G_Genere $xiirv/COEL.51 fond=VRAI F=$xTV/COEL.51 # # # # :Fin_listG_COEL_51: # # # # # # On notera qu'evidemment toutes les coordonnees {X,Y} definies explicitement sont # # extremenent dependantes de l'image 'v $xiirv/COEL.41'... # v $xiirv/COEL.52 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_COEL_52: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z X1Y0=0 \ # # $Z X0Y1=1 \ # # $Z matrice=VRAI aXX=3 aYY=3 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=VRAI \ # # $Z $formatI | \ # # $Z $xci/passe_bande$X \ # # $Z seuil_inferieur=127 seuil_superieur=127 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=1 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$xTV/AXES_OX \ # # $Z $formatI # # # # $Z $xci/PolyCartes_2D$X \ # # $Z X1Y0=1 \ # # $Z X0Y1=0 \ # # $Z matrice=VRAI aXX=3 aYY=3 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=VRAI \ # # $Z $formatI | \ # # $Z $xci/passe_bande$X \ # # $Z seuil_inferieur=127 seuil_superieur=127 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=9 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$xTV/AXES_OY \ # # $Z $formatI # # # # $Z $xci/maximum$X \ # # $Z A1=$xTV/AXES_OX \ # # $Z A2=$xTV/AXES_OY \ # # $Z R=$xTV/COEL.41.OX_OY \ # # $Z $formatI # # # # $Z execRVB "$xci/neutre$X \ # # $Z A=$xTV/COEL.41.OX_OY \ # # $Z $formatI | \ # # $Z $xci/scale$X \ # # $Z a=0.5 \ # # $Z R=$xTV/AXES%s \ # # $Z $formatI" # # # # $Z $xci/cache.41$Z $xTV/AXES \ # # $Z $xiirv/COEL.51 \ # # $Z $xiirv/COEL.52 \ # # $Z 9 # # # # :Fin_listG_COEL_52: # # # # # # Montre la courbe elliptique 'v $xiirv/COEL.41' avec ses axes... # v $xiirv/COEL.62 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_COEL_62: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/COEL.62 # # # # $Z $xci/PolyCartes_2D$X \ # # $Z Y_2__X_0=+1 \ # # $Z Y_1__X_0=0 \ # # $Z Y_0__X_3=-1 \ # # $Z Y_0__X_2=0 \ # # $Z Y_0__X_1=+1 \ # # $Z Y_0__X_0=-1 \ # # $Z matrice=VRAI aXX=3 aYY=3 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=VRAI \ # # $Z $formatI | \ # # $Z $xci/passe_bande$X \ # # $Z seuil_inferieur=127 seuil_superieur=128 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$xTV/COEL.61 \ # # $Z $formatI # # # # Definition de la courbe elliptique : # # # # 2 3 # # y - x + x - 1 = 0 # # # # soit : # # # # 2 3 # # y = x - x + 1 # # # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$xTV/COEL.61 \ # # $Z R=$xTV/COEL.61%s \ # # $Z $formatI # # # # $Z source $xrd/graph.01$vv$Y # # $Z G_Init # # $Z G_Zoom 0.80 # # # # $Z set CoordZA=0 # # # # $Z G_Cursor2 $GRIS_4 $GRIS_0 $GRIS_0 # # # # $Z set ArGs="O1=-1 E1=+1 O2=0 E2=1" # # # # $Z set CoordX1=`calcul -1/1` # # $Z set CoordY1=`calcul +1/1` # # # # $Z set CoordX1=`$xcg/HOMO.01$X x=$CoordX1 $ArGs` # # $Z set CoordY1=`$xcg/HOMO.01$X x=$CoordY1 $ArGs` # # # # Coordonnees {X1,Y1} dans [0,1] du point rationnel 'P' (={-1/1,+1/1}) obtenu grace au # # programme 'v $xtc/CourbesElliptiques.01$c'. # # # # $Z set CoordX3=`calcul +19/25` # # $Z set CoordY3=`calcul +103/125` # # # # $Z set SaveCoordX3=$CoordX3 # # $Z set SaveCoordY3=$CoordY3 # # # # $Z set CoordX3=`$xcg/HOMO.01$X x=$CoordX3 $ArGs` # # $Z set CoordY3=`$xcg/HOMO.01$X x=$CoordY3 $ArGs` # # # # Coordonnees {X3,Y3} dans [0,1] du point rationnel 'R' (={+19/25,+103/125}) obtenu grace au # # programme 'v $xtc/CourbesElliptiques.11$c'. # # # # $Z set CoordX2=`calcul +1/4` # # $Z set CoordY2=`calcul +7/8` # # # # $Z set CoordX2=`$xcg/HOMO.01$X x=$CoordX2 $ArGs` # # $Z set CoordY2=`$xcg/HOMO.01$X x=$CoordY2 $ArGs` # # # # Coordonnees {X2,Y2} dans [0,1] du point rationnel 'Q' (={+1/4,+7/8}) obtenu grace au # # programme 'v $xtc/CourbesElliptiques.01$c'. # # # # $Z set CoordX4=$SaveCoordX3 # # $Z set CoordY4=`calcul -$SaveCoordY3` # # # # $Z set CoordX4=`$xcg/HOMO.01$X x=$CoordX4 $ArGs` # # $Z set CoordY4=`$xcg/HOMO.01$X x=$CoordY4 $ArGs` # # # # $Z G_Cursor1 $CoordX1 $CoordY1 $CoordZA # # $Z G_A # # $Z G_Cursor1 $CoordX3 $CoordY3 $CoordZA # # $Z G_B # # # # Trace du segment "PR" avec marquage des points "P" et "R". # # # # $Z G_Cursor1 $CoordX4 $CoordY4 $CoordZA # # $Z G_B # # # # Trace du segment "RR'" avec marquage des points "R" er "R'". # # # # $Z G_Cursor1 $CoordX2 $CoordY2 $CoordZA # # $Z G_A # # $Z G_B # # # # Trace du point "Q". # # # # $Z set ArGuMeNtS="$K_VIDE" # # $Z set ArGuMeNtS="$ArGuMeNtS"" fond=VRAI F=$xTV/COEL.61" # # $Z set ArGuMeNtS="$ArGuMeNtS"" grossissement=2" # # $Z set ArGuMeNtS="$ArGuMeNtS"" couronne=1" # # # # $Z G_Genere $xTV/COEL.62 $ArGuMeNtS # # # # $Z G_Init # # $Z G_Zoom 0.80 # # # # $Z set CoordZB=0.20 # # # # $Z G_Cursor3 0.004 # # # # $Z set Echelle_K=0.008 # # $Z G_Cursor2 $GRIS_8 $GRIS_6 $GRIS_2 # # $Z G_Cursor1 $CoordX1 $CoordY1 $CoordZB # # $Z eval `G_Message "P"` # # $Z G_Cursor1 $CoordX2 $CoordY2 $CoordZB # # $Z eval `G_Message "Q"` # # $Z G_Cursor1 $CoordX3 $CoordY3 $CoordZB # # $Z eval `G_Message "R"` # # $Z G_Cursor1 $CoordX4 $CoordY4 $CoordZB # # $Z eval `G_Message " R'=P+Q"` # # # # $Z set ArGuMeNtS="$K_VIDE" # # $Z set ArGuMeNtS="$ArGuMeNtS"" fond=VRAI F=$xTV/COEL.62" # # $Z set ArGuMeNtS="$ArGuMeNtS"" grossissement=1" # # $Z set ArGuMeNtS="$ArGuMeNtS"" couronne=1" # # # # $Z G_Genere $_____ImageR $ArGuMeNtS # # # # $Z $xci/PolyCartes_2D$X \ # # $Z X1Y0=0 \ # # $Z X0Y1=1 \ # # $Z matrice=VRAI aXX=3 aYY=3 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=VRAI \ # # $Z $formatI | \ # # $Z $xci/passe_bande$X \ # # $Z seuil_inferieur=127 seuil_superieur=127 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=1 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$xTV/AXES_OX \ # # $Z $formatI # # # # $Z $xci/PolyCartes_2D$X \ # # $Z X1Y0=1 \ # # $Z X0Y1=0 \ # # $Z matrice=VRAI aXX=3 aYY=3 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=VRAI \ # # $Z $formatI | \ # # $Z $xci/passe_bande$X \ # # $Z seuil_inferieur=127 seuil_superieur=127 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=9 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$xTV/AXES_OY \ # # $Z $formatI # # # # $Z $xci/maximum$X \ # # $Z A1=$xTV/AXES_OX \ # # $Z A2=$xTV/AXES_OY \ # # $Z R=$xTV/COEL.62.OX_OY \ # # $Z $formatI # # # # $Z execRVB "$xci/neutre$X \ # # $Z A=$xTV/COEL.62.OX_OY \ # # $Z $formatI | \ # # $Z $xci/scale$X \ # # $Z a=0.5 \ # # $Z R=$xTV/AXES%s \ # # $Z $formatI" # # # # $Z $xci/cache.41$Z $xTV/AXES \ # # $Z $_____ImageR \ # # $Z $_____ImageR \ # # $Z 9 # # # # $Z G_Cursor2 $GRIS_8 $GRIS_8 $GRIS_8 # # $Z set Echelle_K=0.008 # # $Z G_Cursor1 $Origine_COORD_X $Origine_COORD_Y $CoordZB # # $Z G_1 # # $Z G_1 # # $Z G_2 # # $Z G_2 # # $Z eval `G_Message "O"` # # # # $Z set ArGuMeNtS="$K_VIDE" # # $Z set ArGuMeNtS="$ArGuMeNtS"" fond=VRAI F=$_____ImageR" # # $Z set ArGuMeNtS="$ArGuMeNtS"" grossissement=1" # # $Z set ArGuMeNtS="$ArGuMeNtS"" couronne=1" # # # # $Z G_Genere $_____ImageR $ArGuMeNtS # # # # :Fin_listG_COEL_62: # # # v $xiirv/COMP.11.Pal p=$xiP/gris.01 v $xiirv/COMP.11.Pud p=$xiP/gris.01 v $xiirv/COMP.11.Puq p=$xiP/gris.01 v $xiirv/COMP.11.Puh p=$xiP/gris.01 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_COMP_11: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z $xci/init$X \ # # $Z n=$NOIR \ # # $Z R=$xTV/DAMIER.0001 \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z n=$BLANC \ # # $Z R=$xTV/DAMIER.0002 \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z n=$BLANC \ # # $Z R=$xTV/DAMIER.0003 \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z n=$NOIR \ # # $Z R=$xTV/DAMIER.0004 \ # # $Z $formatI # # # # $Z $xci/reduction_04$X \ # # $Z A=$xTV/DAMIER. \ # # $Z premiere=1 derniere=4 pas=1 \ # # $Z R=$xiirv/COMP.11.Pal \ # # $Z $formatI # # # # $Z $xci/format.01$X \ # # $Z A=$xiirv/COMP.11.Pal \ # # $Z $formatI \ # # $Z mode=0 \ # # $Z R=$xiirv/COMP.11.Pud \ # # $Z $formatR_Pud # # # # $Z $xci/format.01$X \ # # $Z A=$xiirv/COMP.11.Pal \ # # $Z $formatI \ # # $Z mode=0 \ # # $Z R=$xiirv/COMP.11.Puq \ # # $Z $formatR_Puq # # # # $Z $xci/format.01$X \ # # $Z A=$xiirv/COMP.11.Pal \ # # $Z $formatI \ # # $Z mode=0 \ # # $Z R=$xiirv/COMP.11.Puh \ # # $Z $formatR_Puh # # # # :Fin_listG_COMP_11: # # # v $xiirv/CONF.11.0 p=$xiP/fractal.11 v $xiirv/CONF.11.1 p=$xiP/fractal.11 v $xiirv/CONF.12.0 p=$xiP/fractal.11 v $xiirv/CONF.12.1 p=$xiP/fractal.11 # Cette image est le resultat des manipulations suivantes sur la sequence : # # # # xivPdf 6 2 / 026892_027019 # # # # selon : # # # # # # $Z Std # # # # $Z $xci/accumule.01$X \ # # $Z A=$xw1/CONF.1. \ # # $Z premiere=1 derniere=128 \ # # $Z attenuation=0 \ # # $Z R=$xiirv/CONF.11.0 \ # # $Z $formatI # # # # $Z $xci/accumule.01$X \ # # $Z A=$xw1/CONF.1. \ # # $Z premiere=1 derniere=128 \ # # $Z attenuation=1 \ # # $Z R=$xiirv/CONF.11.1 \ # # $Z $formatI # # # # $Z $xci/accumule.02$X \ # # $Z A=$xw1/CONF.1. \ # # $Z premiere=1 derniere=128 \ # # $Z seuil=192 \ # # $Z binariser=VRAI \ # # $Z R=$xiirv/CONF.12.0 \ # # $Z $formatI # # # # $Z $xci/accumule.02$X \ # # $Z A=$xw1/CONF.1. \ # # $Z premiere=1 derniere=128 \ # # $Z seuil=192 \ # # $Z binariser=FAUX \ # # $Z R=$xiirv/CONF.12.1 \ # # $Z $formatI # # # v $xiirv/COUR.11 v $xiirv/COUR.12 v $xiirv/COUR.13 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_COUR_11: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FCoUrBe # # # # $Z set CoORdX1=0.2 # # $Z set CoORdY1=0.3 # # # # $Z set CoORdX2=0.5 # # $Z set CoORdY2=0.5 # # # # Il est imperatif que le point numero 2 ait les coordonnees {0.5,0.5} afin d'etre au # # centre de l'image. En effet, il sera plus loin le centre de 'ROTATION_OZ=-0.4'... # # # # $Z set CoORdX3=0.8 # # $Z set CoORdY3=0.3 # # # # $Z echo "$CoORdX1" >>! $FCoUrBe$COORD_X # # $Z echo "$CoORdX2" >>! $FCoUrBe$COORD_X # # $Z echo "$CoORdX3" >>! $FCoUrBe$COORD_X # # # # $Z echo "$CoORdY1" >>! $FCoUrBe$COORD_Y # # $Z echo "$CoORdY2" >>! $FCoUrBe$COORD_Y # # $Z echo "$CoORdY3" >>! $FCoUrBe$COORD_Y # # # # $Z set ArGuMeNtS="$K_VIDE" # # $Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_Z=0.5" # # $Z set ArGuMeNtS="$ArGuMeNtS"" chainer=VRAI isoles=FAUX" # # $Z set ArGuMeNtS="$ArGuMeNtS"" Lz=1000 ZOOM=1.6" # # $Z set ArGuMeNtS="$ArGuMeNtS"" ajuster_points=VRAI" # # $Z set ArGuMeNtS="$ArGuMeNtS"" equidistance=VRAI" # # $Z set ArGuMeNtS="$ArGuMeNtS"" points=64 nombreR=1" # # $Z set ArGuMeNtS="$ArGuMeNtS"" distance_minimale=0.002" # # $Z set ArGuMeNtS="$ArGuMeNtS"" couronne=2" # # $Z set ArGuMeNtS="$ArGuMeNtS"" chiffres=0" # # # # $Z $xrv/particule.10$X np=1 iterations=3 \ # # $Z LISTE_X=$FCoUrBe$COORD_X \ # # $Z LISTE_Y=$FCoUrBe$COORD_Y \ # # $Z cubique=VRAI \ # # $Z LISTE_dX=1.0 \ # # $Z LISTE_dY=1.0 \ # # $Z derivees_automatiques=VRAI \ # # $Z LISTE_ROUGE=$GRIS_8 \ # # $Z LISTE_VERTE=$GRIS_8 \ # # $Z LISTE_BLEUE=$GRIS_8 \ # # $Z Vrayon=0.004 \ # # $Z $ArGuMeNtS \ # # $Z R=$xiirv/COUR.11 \ # # $Z $formatI # # # # $Z $DELETE $FCoUrBe$COORD_X # # $Z $DELETE $FCoUrBe$COORD_Y # # # # $Z echo "$CoORdX1" >>! $FCoUrBe$COORD_X # # $Z echo "$CoORdX3" >>! $FCoUrBe$COORD_X # # # # $Z echo "$CoORdY2" >>! $FCoUrBe$COORD_Y # # $Z echo "$CoORdY2" >>! $FCoUrBe$COORD_Y # # # # $Z $xrv/particule.10$X np=1 iterations=2 \ # # $Z LISTE_X=$FCoUrBe$COORD_X \ # # $Z LISTE_Y=$FCoUrBe$COORD_Y \ # # $Z lambdaA=1.15 lambdaB=1.15 \ # # $Z cubique=FAUX \ # # $Z LISTE_ROUGE=$GRIS_8 \ # # $Z LISTE_VERTE=$GRIS_6 \ # # $Z LISTE_BLEUE=$GRIS_0 \ # # $Z Vrayon=0.004 \ # # $Z $ArGuMeNtS \ # # $Z fond=VRAI F=$xiirv/COUR.11 \ # # $Z R=$xiirv/COUR.12 \ # # $Z $formatI # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$xiirv/COUR.12%s \ # # $Z R=$xiirv/COUR.13%s \ # # $Z $formatI # # # # $Z set LRoTaTiOnS=(-0.5 -0.4 -0.3 -0.2 -0.1) # # $Z set LRoUgEs___=($GRIS_4 $GRIS_5 $GRIS_6 $GRIS_7 $GRIS_8) # # $Z set LVeRtEs___=($GRIS_0 $GRIS_1 $GRIS_2 $GRIS_3 $GRIS_4) # # $Z set LBlEuEs___=($GRIS_0 $GRIS_0 $GRIS_0 $GRIS_0 $GRIS_0) # # # # $Z set InDiCe=1 # # # # $Z while ($InDiCe <= $#LRoTaTiOnS) # # $Z set RoTaTiOn=$LRoTaTiOnS[$InDiCe] # # $Z set RoUgE___=$LRoUgEs___[$InDiCe] # # $Z set VeRtE___=$LVeRtEs___[$InDiCe] # # $Z set BlEuE___=$LBlEuEs___[$InDiCe] # # # # $Z $xrv/particule.10$X np=1 iterations=2 \ # # $Z LISTE_X=$FCoUrBe$COORD_X \ # # $Z LISTE_Y=$FCoUrBe$COORD_Y \ # # $Z lambdaA=1.15 lambdaB=1.15 \ # # $Z cubique=FAUX \ # # $Z LISTE_ROUGE=$RoUgE___ \ # # $Z LISTE_VERTE=$VeRtE___ \ # # $Z LISTE_BLEUE=$BlEuE___ \ # # $Z Vrayon=0.002 \ # # $Z $ArGuMeNtS \ # # $Z ROTATION_OZ=$RoTaTiOn \ # # $Z fond=VRAI F=$xiirv/COUR.13 \ # # $Z R=$xiirv/COUR.13 \ # # $Z $formatI # # # # $Z @ InDiCe = $InDiCe + 1 # # $Z end # # # # $Z $DELETE $FCoUrBe$COORD_X # # $Z $DELETE $FCoUrBe$COORD_Y # # # # $Z echo "$CoORdX2" >>! $FCoUrBe$COORD_X # # $Z echo "$CoORdX2" >>! $FCoUrBe$COORD_X # # # # $Z echo "$CoORdY2" >>! $FCoUrBe$COORD_Y # # $Z echo "$CoORdY2" >>! $FCoUrBe$COORD_Y # # # # $Z set ArGuMeNtS="$ArGuMeNtS"" np=1 iterations=2" # # $Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_X=$FCoUrBe$COORD_X" # # $Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_Y=$FCoUrBe$COORD_Y" # # $Z set ArGuMeNtS="$ArGuMeNtS"" cubique=FAUX" # # $Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_ROUGE=$GRIS_8" # # $Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_VERTE=$GRIS_8" # # $Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_BLEUE=$GRIS_8" # # $Z set ArGuMeNtS="$ArGuMeNtS"" Vrayon=0.008" # # # # $Z $xrv/particule.10$X \ # # $Z $ArGuMeNtS \ # # $Z fond=VRAI F=$xiirv/COUR.12 \ # # $Z R=$xiirv/COUR.12 \ # # $Z $formatI # # # # $Z $xrv/particule.10$X \ # # $Z $ArGuMeNtS \ # # $Z fond=VRAI F=$xiirv/COUR.13 \ # # $Z R=$xiirv/COUR.13 \ # # $Z $formatI # # # # $Z FilSTmpE FCoUrBe # # # # :Fin_listG_COUR_11: # # # # # # qui montre la continuite et la differentiabilite. # v $xiirv/COUR.21.1 v $xiirv/COUR.21.2 v $xiirv/COUR.21.3 v $xiirv/COUR.21.4 v $xiirv/COUR.21.5 v $xiirv/COUR.21.6 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_COUR_21: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/COUR.21 # # $m4 _____include(_____xiirv/.COUR.21.1._____U) # # # # :Fin_listG_COUR_21: # # # # # # qui montre la continuite et la differentiabilite, ainsi que la definition d'une tangente. # # On notera les similarites suivantes : # # # # $xiirv/COUR.11 <--> $xiirv/COUR.21.1 # # $xiirv/COUR.12 <--> $xiirv/COUR.21.5 # # $xiirv/COUR.13 <--> $xiirv/COUR.21.4 # # # v $xiirv/CROF.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CROF_11: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Programme=$xci/valeurs_CroixFractale$X # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130627=VRAI" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130629=VRAI" # # $Z set _____Profondeur=1 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Rayon=0.005 # # $Z set _____Zoom=1.0 # # $Z set _____RotationOX=0.4 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/CROF.11 # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_CROF_11: # # # # # # qui montre une croix fractale tridimensionnelle. # v $xiirv/CROF.11$STEREO # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CROF_11_STEREO: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Programme=$xci/valeurs_CroixFractale$X # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130627=VRAI" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130629=VRAI" # # $Z set _____Profondeur=1 # # $Z set _____Palette=$xiP/blanc # # $Z set _____Rayon=0.005 # # $Z set _____Zoom=1.0 # # $Z set _____RotationOX=0.4 # # $Z set _____RotationOY=0.4 # # # # $Z set StErEo=0.05 # # # # $Z set _____ParticulePara1="stereo=-$StErEo" # # $Z set _____ImageR=$xTV/CROF.11$GAUCHE # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z set _____ParticulePara1="stereo=+$StErEo" # # $Z set _____ImageR=$xTV/CROF.11$DROITE # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z $xci/anaglyphe.31$Z $xTV/CROF.11$GAUCHE $xTV/CROF.11$DROITE \ # # $Z $xiirv/CROF.11$STEREO # # # # :Fin_listG_CROF_11_STEREO: # # # v $xiirv/CROF.12 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CROF_12: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Programme=$xci/valeurs_CroixFractale$X # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130627=VRAI" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130629=VRAI" # # $Z set _____Profondeur=2 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Rayon=0.005 # # $Z set _____Zoom=1.0 # # $Z set _____RotationOX=0.4 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/CROF.12 # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_CROF_12: # # # # # # qui montre une croix fractale tridimensionnelle. # v $xiirv/CROF.12$STEREO # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CROF_12_STEREO: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Programme=$xci/valeurs_CroixFractale$X # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130627=VRAI" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130629=VRAI" # # $Z set _____Profondeur=2 # # $Z set _____Palette=$xiP/blanc # # $Z set _____Rayon=0.005 # # $Z set _____Zoom=1.0 # # $Z set _____RotationOX=0.4 # # $Z set _____RotationOY=0.4 # # # # $Z set StErEo=0.05 # # # # $Z set _____ParticulePara1="stereo=-$StErEo" # # $Z set _____ImageR=$xTV/CROF.12$GAUCHE # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z set _____ParticulePara1="stereo=+$StErEo" # # $Z set _____ImageR=$xTV/CROF.12$DROITE # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z $xci/anaglyphe.31$Z $xTV/CROF.12$GAUCHE $xTV/CROF.12$DROITE \ # # $Z $xiirv/CROF.12$STEREO # # # # :Fin_listG_CROF_12_STEREO: # # # v $xiirv/CROF.13 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CROF_13: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Programme=$xci/valeurs_CroixFractale$X # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130627=VRAI" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130629=VRAI" # # $Z set _____Profondeur=3 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Rayon=0.005 # # $Z set _____Zoom=1.0 # # $Z set _____RotationOX=0.4 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/CROF.13 # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_CROF_13: # # # # # # qui montre une croix fractale tridimensionnelle. # v $xiirv/CROF.13$STEREO # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CROF_13_STEREO: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Programme=$xci/valeurs_CroixFractale$X # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130627=VRAI" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130629=VRAI" # # $Z set _____Profondeur=3 # # $Z set _____Palette=$xiP/blanc # # $Z set _____Rayon=0.005 # # $Z set _____Zoom=1.0 # # $Z set _____RotationOX=0.4 # # $Z set _____RotationOY=0.4 # # # # $Z set StErEo=0.05 # # # # $Z set _____ParticulePara1="stereo=-$StErEo" # # $Z set _____ImageR=$xTV/CROF.13$GAUCHE # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z set _____ParticulePara1="stereo=+$StErEo" # # $Z set _____ImageR=$xTV/CROF.13$DROITE # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z $xci/anaglyphe.31$Z $xTV/CROF.13$GAUCHE $xTV/CROF.13$DROITE \ # # $Z $xiirv/CROF.13$STEREO # # # # :Fin_listG_CROF_13_STEREO: # # # v $xiirv/CROF.14 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CROF_14: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Programme=$xci/valeurs_CroixFractale$X # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130627=VRAI" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130629=VRAI" # # $Z set _____Profondeur=4 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Rayon=0.005 # # $Z set _____Zoom=1.0 # # $Z set _____RotationOX=0.4 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/CROF.14 # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_CROF_14: # # # # # # qui montre une croix fractale tridimensionnelle. # v $xiirv/CROF.14$STEREO # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CROF_14_STEREO: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Programme=$xci/valeurs_CroixFractale$X # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130627=VRAI" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130629=VRAI" # # $Z set _____Profondeur=4 # # $Z set _____Palette=$xiP/blanc # # $Z set _____Rayon=0.005 # # $Z set _____Zoom=1.0 # # $Z set _____RotationOX=0.4 # # $Z set _____RotationOY=0.4 # # # # $Z set StErEo=0.05 # # # # $Z set _____ParticulePara1="stereo=-$StErEo" # # $Z set _____ImageR=$xTV/CROF.14$GAUCHE # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z set _____ParticulePara1="stereo=+$StErEo" # # $Z set _____ImageR=$xTV/CROF.14$DROITE # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z $xci/anaglyphe.31$Z $xTV/CROF.14$GAUCHE $xTV/CROF.14$DROITE \ # # $Z $xiirv/CROF.14$STEREO # # # # :Fin_listG_CROF_14_STEREO: # # # v $xiirv/CROF.15 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CROF_15: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Programme=$xci/valeurs_CroixFractale$X # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130627=VRAI" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130629=VRAI" # # $Z set _____Profondeur=5 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Rayon=0.005 # # $Z set _____Zoom=1.0 # # $Z set _____RotationOX=0.4 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/CROF.15 # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_CROF_15: # # # # # # qui montre une croix fractale tridimensionnelle. # v $xiirv/CROF.15$STEREO # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CROF_15_STEREO: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Programme=$xci/valeurs_CroixFractale$X # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130627=VRAI" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130629=VRAI" # # $Z set _____Profondeur=5 # # $Z set _____Palette=$xiP/blanc # # $Z set _____Rayon=0.005 # # $Z set _____Zoom=1.0 # # $Z set _____RotationOX=0.4 # # $Z set _____RotationOY=0.4 # # # # $Z set StErEo=0.05 # # # # $Z set _____ParticulePara1="stereo=-$StErEo" # # $Z set _____ImageR=$xTV/CROF.15$GAUCHE # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z set _____ParticulePara1="stereo=+$StErEo" # # $Z set _____ImageR=$xTV/CROF.15$DROITE # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z $xci/anaglyphe.31$Z $xTV/CROF.15$GAUCHE $xTV/CROF.15$DROITE \ # # $Z $xiirv/CROF.15$STEREO # # # # :Fin_listG_CROF_15_STEREO: # # # v $xiirv/CROF.34.2 v $xiirv/CROF.34.21 # Generee (sur '$CMAP28' -ex "abbesses"-) par : # # # # # # :Debut_listG_CROF_34: # # # # $Z Sdu # # # # $Z setenv xTV $xTS # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/CROF.34 # # # # $Z set _____Programme=$xci/valeurs_CroixFractale$X # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130627=VRAI" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130629=VRAI" # # $Z set _____Profondeur=4 # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $m4 _____include(_____xiirv/.HILB.31._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____imagesR=$xiirv/CROF.34 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_CROF_34: # # # # # # qui montre une croix fractale tridimensionnelle. On notera le format carre 'Sdu' # # destine a faciliter la conservation des proportions et du centrage lors de l'utilisation de # # 'v $xrv/store_album$K 20120417134518' (sans utiliser la modification faite a cette date). # v $xiirv/CROF.34.21.3 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CROF_34_21_3: # # # # $Z Sdu # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$xiirv/CROF.34.21%s \ # # $Z iterations=3 \ # # $Z R=$xiirv/CROF.34.21.3%s \ # # $Z $formatI # # # # :Fin_listG_CROF_34_21_3: # # # v $xiirv/CROF.35.2 v $xiirv/CROF.35.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CROF_35: # # # # $Z Sdu # # # # $Z setenv xTV $xTS # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/CROF.35 # # # # $Z set _____Programme=$xci/valeurs_CroixFractale$X # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130627=VRAI" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130629=VRAI" # # $Z set _____Profondeur=5 # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $m4 _____include(_____xiirv/.HILB.31._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____CercleInscrit=VRAI # # $Z set _____imagesR=$xiirv/CROF.35 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_CROF_35: # # # # # # qui montre une croix fractale tridimensionnelle. On notera le format carre 'Sdu' # # destine a faciliter la conservation des proportions et du centrage lors de l'utilisation de # # 'v $xrv/store_album$K 20120417134518' (sans utiliser la modification faite a cette date). # v $xiirv/CROF.35.21.3 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CROF_35_21_3: # # # # $Z Sdu # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$xiirv/CROF.35.21%s \ # # $Z iterations=3 \ # # $Z R=$xiirv/CROF.35.21.3%s \ # # $Z $formatI # # # # :Fin_listG_CROF_35_21_3: # # # v $xiirv/CROF.35.21$m v $xiirv/CROF.35.21.1$M v $xiirv/CROF.35.21.2$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CROF_35_M: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Ty=0.68 # # $Z set _____imageR=$xiirv/CROF.35.21 # # $m4 _____include(_____xiirf/.FRB3.Z1.21.M.1._____U) # # # # $Z execRVB $xci/complement$X \ # # $Z A=$xiirv/CROF.35.21.1$M%s \ # # $Z R=$xiirv/CROF.35.21.1$M%s \ # # $Z $formatI # # # # :Fin_listG_CROF_35_M: # # # v $xiirv/CROF.42 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CROF_42: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Programme=$xci/valeurs_CroixFractale$X # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130627=VRAI" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130629=VRAI" # # $Z set _____Arguments="$_____Arguments"" tracer_demi_bras=VRAI" # # $Z set _____Profondeur=2 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Rayon=0.005 # # $Z set _____Zoom=1.18 # # $Z set _____RotationOX=0.4 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xTV/CROF.42 # # # # $Z set _____NSplines=15 # # # # $m4 _____include(_____xiirv/.CROF.42._____U) # # # # :Fin_listG_CROF_42: # # # # # # qui montre une croix fractale tridimensionnelle avec "splines iteratifs"... # v $xiirv/CROF.42.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CROF_42_1: # # # # $Z Pal # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$xiirv/CROF.42%s \ # # $Z iterations=1 \ # # $Z R=$xiirv/CROF.42.1%s \ # # $Z $formatI # # # # :Fin_listG_CROF_42_1: # # # v $xiirv/CROF.42.3 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CROF_42_3: # # # # $Z Pal # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$xiirv/CROF.42%s \ # # $Z iterations=3 \ # # $Z R=$xiirv/CROF.42.3%s \ # # $Z $formatI # # # # :Fin_listG_CROF_42_3: # # # v $xiirv/CROF.52 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CROF_52: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Programme=$xci/valeurs_CroixFractale$X # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130627=VRAI" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130629=VRAI" # # $Z set _____Arguments="$_____Arguments"" tracer_demi_bras=VRAI" # # $Z set _____Profondeur=2 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Rayon=0.005 # # $Z set _____Zoom=1.18 # # $Z set _____RotationOX=0.4 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xTV/CROF.52 # # # # $Z set _____NSplines=15 # # # # $Z set _____Cubique=FAUX # # # # $Z FileTmpB FZBuffer # # $Z set ZBuFfEr="$K_VIDE" # # $Z set ZBuFfEr="$ZBuFfEr"" Z0=-1.0" # # $Z set ZBuFfEr="$ZBuFfEr"" ZBuffer=VRAI" # # $Z set ZBuFfEr="$ZBuFfEr"" Z=$FZBuffer" # # $Z set ZBuFfEr="$ZBuFfEr"" ATTENTION=FAUX" # # $Z set _____ParticulePara1="$ZBuFfEr" # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # $Z set _____Cubique=VRAI # # # # $Z set ItErEr=$EXIST # # $Z set CoMpTeUr=0 # # $Z set BoRnEs=0 # # # # $Z set _____ParticuleFond="$K_VIDE" # # $Z set _____ParticuleFond="$_____ParticuleFond"" fond=VRAI" # # $Z set _____ParticuleFond="$_____ParticuleFond"" F=$_____ImageR.1" # # # # $Z while ($ItErEr == $EXIST) # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI # # # # $Z $xci/convol.01$X \ # # $Z A=$FZBuffer \ # # $Z standard=FAUX \ # # $Z valider_IloadF_image=FAUX \ # # $Z points=25 \ # # $Z conserver_maximum=VRAI \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z $formatI | \ # # $Z $xci/neutre$X \ # # $Z standard=FAUX \ # # $Z valider_IloadF_image=FAUX \ # # $Z R=$FZBuffer \ # # $Z $formatI # # # # $Z FileTmpB FSpLiNeS # # # # $Z set BoRnEs=`$xcg/ADD2.01$X a=$BoRnEs b=0.1 signe="$K_VIDE"` # # # # $Z set _____DeriveeX=$FSpLiNeS$COORD_X # # $Z $xci/valeurs_alea$X premiere=1 derniere=$Npart \ # # $Z graine=1789 \ # # $Z inf=-$BoRnEs sup=+$BoRnEs \ # # $Z > $_____DeriveeX # # # # $Z set _____DeriveeY=$FSpLiNeS$COORD_Y # # $Z $xci/valeurs_alea$X premiere=1 derniere=$Npart \ # # $Z graine=1947 \ # # $Z inf=-$BoRnEs sup=+$BoRnEs \ # # $Z > $_____DeriveeY # # # # $Z set _____DeriveeZ=$FSpLiNeS$COORD_Z # # $Z $xci/valeurs_alea$X premiere=1 derniere=$Npart \ # # $Z graine=2001 \ # # $Z inf=-$BoRnEs sup=+$BoRnEs \ # # $Z > $_____DeriveeZ # # # # $Z set ZBuFfEr="$K_VIDE" # # $Z set ZBuFfEr="$ZBuFfEr"" Zfond=VRAI ZF=$FZBuffer" # # $Z set ZBuFfEr="$ZBuFfEr"" ZBuffer=VRAI Z=$FZBuffer" # # $Z set ZBuFfEr="$ZBuFfEr"" valider_IloadF_image=FAUX" # # $Z set ZBuFfEr="$ZBuFfEr"" ATTENTION=FAUX" # # $Z set _____ParticulePara1="$ZBuFfEr" # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z FileTmpE FSpLiNeS # # # # $Z @ CoMpTeUr = $CoMpTeUr + 1 # # $Z if ($CoMpTeUr >= $_____NSplines) then # # $Z set ItErEr=$NEXIST # # $Z else # # $Z endif # # $Z end # # # # $Z FileTmpE FZBuffer # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$xiirv/`GetLeaf $_____ImageR`%s \ # # $Z $formatI # # # # :Fin_listG_CROF_52: # # # # # # qui montre une croix fractale tridimensionnelle avec "splines iteratifs"... # # # # On notera que cette version de 'v $xiirv/CROF.42', avec exploitation systematique du # # 'Z-Buffer' au cours des iterations successives, n'est pas correcte, des defauts tres # # visibles d'anti-aliasing apparaissent entre l'image courante et son fond. En effet cela # # ne peut pas marcher comme je l'esperais car chaque image est generee apres avoir trie les # # spheres (faites de plusieurs points !) en fonction de leur 'Z' et c'est ainsi que peut # # fonctionner correctement l'anti-aliasing. Mais lorsque l'on trace les points sur un fond # # avec son propre 'Z-Buffer' cela ne fonctionne plus car, en effet, les point du fond, # # eux, ne sont pas tries en fonction de leur 'Z' (et de celui des points a tracer). Malgre # # tout, je conserve ce processus car cela pourra etre reutilise... # # # # Le 20130630105226, j'ai trouve un correctif consistant a convoluer le 'Z-Buffer', cela # # demande evidemment une initialisation du 'Z-Buffer' avec une valeur "raisonnable" afin # # d'eviter des moyennes extravagantes lors de la convolution (je choisis "Z0=-1.0"). # v $xiirv/CROF.62 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CROF_62: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Programme=$xci/valeurs_CroixFractale$X # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130627=VRAI" # # $Z set _____Arguments="$_____Arguments"" compatibilite_20130629=VRAI" # # $Z set _____Arguments="$_____Arguments"" tracer_demi_bras=VRAI" # # $Z set _____Profondeur=2 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Rayon=0.005 # # $Z set _____Zoom=0.96 # # $Z set _____RotationOX=0 # # $Z set _____RotationOY=0 # # $Z set _____ImageR=$xTV/CROF.62 # # # # $Z set _____NSplines=31 # # # # $m4 _____include(_____xiirv/.CROF.42._____U) # # # # :Fin_listG_CROF_62: # # # # # # qui montre une croix fractale tridimensionnelle avec "splines iteratifs"... # v $xiirv/CROF.71 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CROF_71: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z $xci/PermuteBits.01$X \ # # $Z A=$xiirC/OBJC.41_42.11 \ # # $Z iterations=7 \ # # $Z R=$xTV/CROF.71 \ # # $Z $formatI # # # # $Z $xci/jeu_vie.01$X \ # # $Z A=$xTV/CROF.71 \ # # $Z iterations=2 \ # # $Z R=$xTV/CROF.71$ROUGE \ # # $Z $formatI # # $Z $xci/jeu_vie.01$X \ # # $Z A=$xTV/CROF.71 \ # # $Z iterations=4 \ # # $Z R=$xTV/CROF.71$VERTE \ # # $Z $formatI # # $Z $xci/jeu_vie.01$X \ # # $Z A=$xTV/CROF.71 \ # # $Z iterations=8 \ # # $Z R=$xTV/CROF.71$BLEUE \ # # $Z $formatI # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$xTV/CROF.71%s \ # # $Z iterations=5 \ # # $Z R=$xiirv/CROF.71%s \ # # $Z $formatI # # # # :Fin_listG_CROF_71: # # # # # # qui montre une croix fractale bidimensionnelle transformee en courbes de Peano... # v $xiirv/CRYM.11 v $xiirv/CRYM.11.3x3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_CRYM_11: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Listes=($K_VIDE) # # $Z set _____Listes=($_____Listes 0.2/0.4/0.9/0.6/0.7/0.4/0.4/0.1) # # $Z set _____Listes=($_____Listes 0.3/0.5/0.8/0.5/0.7/0.4/0.6/0.9) # # $Z set _____Listes=($_____Listes 0.5/0.9/0.8/0.7/0.7/0.4/0.6/0.9) # # $Z set _____Listes=($_____Listes 0.7/0.9/0.8/0.8/0.7/0.4/0.6/0.9) # # $Z set _____Listes=($_____Listes 0.7/0.4/0.3/0.2/0.6/0.9/0.3/0.0) # # $Z set _____Listes=($_____Listes 0.7/0.3/0.3/0.2/0.6/0.5/0.3/0.9) # # $Z set _____Listes=($_____Listes 0.3/0.3/0.6/0.1/0.0/0.5/0.2/0.0) # # # # $Z set _____ImageR=$xiirv/CRYM.11 # # $m4 _____include(_____xiirv/.CRYM.11._____U) # # # # :Fin_listG_CRYM_11: # # # # # # qui montre les notes de 7 cryptomonnaies d'apres Jean-Paul Delahaye : # # # # Bitcoin, # # Ethereum-POW, # # Ethereum-POS, # # Cardano, # # Tether, # # Binance Coin, # # Ripple XRP. # # # # avec pour chacune dans l'ordre (de 0 a 2.pi) les 8 criteres suivants : # # # # Agilite, # # Modele economique, # # Securite, # # Decentralisation, # # Anonymat, # # Stabilite du cours, # # Gouvernance, # # Smart-contracts. # # # v $xiirv/CRYM.12 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_CRYM_12: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Listes=($K_VIDE) # # $Z set _____Listes=($_____Listes 0.2/0.4/0.9/0.6/0.7/0.4/0.4/0.1) # # $Z set _____Listes=($_____Listes 0.3/0.5/0.8/0.5/0.7/0.4/0.6/0.9) # # $Z set _____Listes=($_____Listes 0.5/0.9/0.8/0.7/0.7/0.4/0.6/0.9) # # $Z set _____Listes=($_____Listes 0.7/0.9/0.8/0.8/0.7/0.4/0.6/0.9) # # $Z set _____Listes=($_____Listes 0.7/0.4/0.3/0.2/0.6/0.9/0.3/0.0) # # $Z set _____Listes=($_____Listes 0.7/0.3/0.3/0.2/0.6/0.5/0.3/0.9) # # $Z set _____Listes=($_____Listes 0.3/0.3/0.6/0.1/0.0/0.5/0.2/0.0) # # # # $Z SET _____GenMatrice=$NEXIST # # $Z set _____Niveau1=$GRIS_1 # # $Z set _____Palette=$xiP/cercle.35 # # $Z set _____ImageR=$xiirv/CRYM.12 # # $m4 _____include(_____xiirv/.CRYM.11._____U) # # # # :Fin_listG_CRYM_12: # # # # # # Image identique a 'v $xiirv/CRYM.11', mais en couleurs... # v $xiirv/CRYM.21 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_CRYM_21: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Listes=($K_VIDE) # # $Z set _____Listes=($_____Listes 0.20/0.40/0.90/0.60/0.60/0.30/0.40/0.10) # # $Z set _____Listes=($_____Listes 0.30/0.50/0.75/0.50/0.65/0.35/0.50/0.80) # # $Z set _____Listes=($_____Listes 0.50/0.85/0.80/0.70/0.70/0.40/0.55/0.85) # # $Z set _____Listes=($_____Listes 0.65/0.90/0.85/0.80/0.75/0.45/0.60/0.90) # # $Z set _____Listes=($_____Listes 0.70/0.45/0.30/0.20/0.60/0.90/0.30/0.00) # # $Z set _____Listes=($_____Listes 0.75/0.30/0.35/0.25/0.65/0.50/0.35/0.95) # # $Z set _____Listes=($_____Listes 0.35/0.35/0.60/0.10/0.00/0.55/0.20/0.00) # # # # $Z SET _____GenMatrice=$NEXIST # # $Z set _____Rayon1=0.006 # # $Z set _____RayonN=0.006 # # $Z set _____CoordonneeZ1=1 # # $Z set _____CoordonneeZN=1 # # $Z set _____ImageR=$xiirv/CRYM.21 # # $m4 _____include(_____xiirv/.CRYM.11._____U) # # # # :Fin_listG_CRYM_21: # # # # # # Image identique a 'v $xiirv/CRYM.11', mais en "trichant" (en faisant que pour un critere # # donne, il n'y a pas deux monnaies ayant la meme valeur...). # v $xiirv/CUBE.11.0 v $xiirv/CUBE.11.1 v $xiirv/CUBE.11.2 v $xiirv/CUBE.11.3 v $xiirv/CUBE.11.4 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_CUBE_11: # # # # $Z Pal # # # # $Z set _____Argument3="ROTATION_OX=0.3 ROTATION_OY=0.5" # # $Z set _____Argument4="$_____Argument3" # # $Z SET _____GCube5=$NEXIST # # $Z set _____ImageR=$xiirv/CUBE.11 # # $m4 _____include(_____xiirv/.CUBE.11.1._____U) # # # # :Fin_listG_CUBE_11: # # # # # # qui montre une famille de cubes de dimension {0,1,2,3,4}. # v $xiirv/CUBE.12.0 v $xiirv/CUBE.12.1 v $xiirv/CUBE.12.2 v $xiirv/CUBE.12.3 v $xiirv/CUBE.12.4 v $xiirv/CUBE.12.5 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CUBE_12: # # # # $Z Pal # # # # $Z set _____RAYON_Cube=0.005 # # $Z set _____RAYON_Lien=0.003 # # $Z set _____Argument0="$K_VIDE" # # $Z set _____Argument0="$_____Argument0"" couronne=1" # # $Z set _____Argument0="$_____Argument0"" equidistance=VRAI" # # $Z set _____Argument1="$_____Argument0" # # $Z set _____Argument2="$_____Argument0" # # $Z set _____Argument3="$K_VIDE" # # $Z set _____Argument3="$_____Argument3"" equidistance=VRAI" # # $Z set _____Argument3="$_____Argument3"" ROTATION_OX=0.6" # # $Z set _____Argument3="$_____Argument3"" ROTATION_OY=0.4" # # $Z set _____Argument3="$_____Argument3"" DepthCueingMinimal=0.1" # # $Z set _____Argument4="$_____Argument3" # # $Z set _____Argument5="$_____Argument3" # # $Z set _____ImageR=$xiirv/CUBE.12 # # $m4 _____include(_____xiirv/.CUBE.11.1._____U) # # # # :Fin_listG_CUBE_12: # # # # # # qui montre une famille de cubes de dimension {0,1,2,3,4,5}. # v $xiirv/CUBE.12.5.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CUBE_12_5_1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____GCube0=$NEXIST # # $Z SET _____GCube1=$NEXIST # # $Z SET _____GCube2=$NEXIST # # $Z SET _____GCube3=$NEXIST # # $Z SET _____GCube4=$NEXIST # # # # $Z set _____RAYON_Cube=0.005 # # $Z set _____RAYON_Lien=0.003 # # $Z set _____Argument5="$K_VIDE" # # $Z set _____Argument5="$_____Argument5"" equidistance=VRAI" # # $Z set _____Argument5="$_____Argument5"" ROTATION_OX=0.6" # # $Z set _____Argument5="$_____Argument5"" ROTATION_OY=0.4" # # $Z set _____Argument5="$_____Argument5"" DepthCueingMinimal=0.1" # # $Z set _____Argument5="$_____Argument5"" cubique=VRAI" # # $Z set _____Argument5="$_____Argument5"" LISTE_dX=0.5" # # $Z set _____Argument5="$_____Argument5"" LISTE_dY=0.5" # # $Z set _____Argument5="$_____Argument5"" LISTE_dZ=0.5" # # $Z set _____ImageR=$xTV/CUBE.12 # # $m4 _____include(_____xiirv/.CUBE.11.1._____U) # # # # $Z set _____ImageR=$xiirv/CUBE.12.5.1 # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xTV/CUBE.12.5%s \ # # $Z iterations=1 \ # # $Z cache=VRAI \ # # $Z anti_aliaser=FAUX \ # # $Z echelle=VRAI a=0.8 \ # # $Z $formatI | \ # # $Z $xci/jeu_vie.01$X \ # # $Z iterations=3 \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_CUBE_12_5_1: # # # # # # qui montre une variation sur le theme de '$xiirv/CUBE.12.5'... # v $xiirv/CUBV.11.1 v $xiirv/CUBV.11.2 v $xiirv/CUBV.11.21 v $xiirv/CUBV.11.9 p=$xiP/random.86 v $xiirv/CUBV.11.9 p=$xiP/random.A5 v $xiirv/CUBV.11.9 p=$xiP/random.B3$Fi v $xiirv/CUBV.11.9 p=$xiP/random.B7$Fi # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CUBV_11: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesR=$xiirv/CUBV.11 # # # # $Z set _____Generateur1Para="$K_VIDE" # # $Z set Generateur1=$xci/gauss$X # # # # $Z set _____Generateur2Para="$K_VIDE" # # $Z set _____Generateur2Para="$_____Generateur2Para"" mr=16" # # $Z set _____Generateur2Para="$_____Generateur2Para"" mt=4" # # $Z set Generateur2=$xci/spiArchimede$X # # # # $Z set _____Generateur3Para="$K_VIDE" # # $Z set Generateur3=$xci/chapeau_mexi$X # # # # $m4 _____include(_____xiirv/.CUBV.11.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # $Z setenv _____ImageT1 $xTV/SECTIONS.2 # # $m4 _____include(_____xiirv/.CUBV.11.2._____U) # # # # $Z $xci/accumule.01$X \ # # $Z A=$_____ImageT1. \ # # $Z premiere=$cPremiere derniere=$cDerniere \ # # $Z R=$_____imagesR.9 \ # # $Z $formatI # # # # $m4 _____include(_____xiirs/.EPIC.41.12._____U) # # $Z SET _____Facteur=300000 # # $m4 _____include(_____xiirf/.MENG.67.5._____U) # # # # $m4 _____include(_____xiirs/.EPIC.41.21._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # :Fin_listG_CUBV_11: # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 06:14:09 # # # # $xci/accumule.42$X : 02:05:55 # # # v $xiirv/CUBV.11.3 p=$xiP/arc_ciel.01 v $xiirv/CUBV.11.3 p=$xiP/random.B7$Fi v $xiirv/CUBV.11.3 p=$xiP/trou_noir.H4 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_CUBV_11_3: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesA=$xiirv/CUBV.11 # # $Z set _____imagesR=$_____imagesA.3 # # $Z set _____imagesA=$_____imagesA.1 # # # # $Z set NPoInTs=9 # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$_____imagesA%s \ # # $Z points=`calcul $NPoInTs*$NPoInTs` \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$xTV/CUBV.11.1%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/CUBV.11.1 \ # # $Z R=$_____imagesR \ # # $Z $formatI # # # # :Fin_listG_CUBV_11_3: # # # v $xiirv/CUBV.21.9 p=$xiP/random.86 v $xiirv/CUBV.21.9 p=$xiP/random.A5 v $xiirv/CUBV.21.9 p=$xiP/random.B3$Fi v $xiirv/CUBV.21.9 p=$xiP/random.B7$Fi # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CUBV_21_9: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesR=$xiirv/CUBV.21 # # # # $Z set _____Generateur1Para="$K_VIDE" # # $Z set _____Generateur1Para="$_____Generateur1Para"" mr=16" # # $Z set _____Generateur1Para="$_____Generateur1Para"" mt=4" # # $Z set Generateur1=$xci/spiArchimede$X # # # # $Z set _____Generateur2Para="$K_VIDE" # # $Z set _____Generateur2Para="$_____Generateur2Para"" mr=32" # # $Z set _____Generateur2Para="$_____Generateur2Para"" mt=8" # # $Z set Generateur2=$xci/spiArchimede$X # # # # $Z set _____Generateur3Para="$K_VIDE" # # $Z set _____Generateur3Para="$_____Generateur3Para"" mr=64" # # $Z set _____Generateur3Para="$_____Generateur3Para"" mt=16" # # $Z set Generateur3=$xci/spiArchimede$X # # # # $m4 _____include(_____xiirv/.CUBV.11.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # $Z setenv _____ImageT1 $xTV/SECTIONS.2 # # $m4 _____include(_____xiirv/.CUBV.11.2._____U) # # # # $Z $xci/accumule.01$X \ # # $Z A=$_____ImageT1. \ # # $Z premiere=$cPremiere derniere=$cDerniere \ # # $Z R=$_____imagesR.9 \ # # $Z $formatI # # # # :Fin_listG_CUBV_21_9: # # # v $xiirv/CUBV.22.9 p=$xiP/random.86 v $xiirv/CUBV.22.9 p=$xiP/random.A5 v $xiirv/CUBV.22.9 p=$xiP/random.B3$Fi v $xiirv/CUBV.22.9 p=$xiP/random.B7$Fi # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CUBV_22_9: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesR=$xiirv/CUBV.22 # # # # $Z set _____Generateur1Para="$K_VIDE" # # $Z set _____Generateur1Para="$_____Generateur1Para"" mr=8" # # $Z set _____Generateur1Para="$_____Generateur1Para"" mt=2" # # $Z set Generateur1=$xci/spiArchimede$X # # # # $Z set _____Generateur2Para="$K_VIDE" # # $Z set _____Generateur2Para="$_____Generateur2Para"" mr=16" # # $Z set _____Generateur2Para="$_____Generateur2Para"" mt=4" # # $Z set Generateur2=$xci/spiArchimede$X # # # # $Z set _____Generateur3Para="$K_VIDE" # # $Z set _____Generateur3Para="$_____Generateur3Para"" mr=32" # # $Z set _____Generateur3Para="$_____Generateur3Para"" mt=8" # # $Z set Generateur3=$xci/spiArchimede$X # # # # $m4 _____include(_____xiirv/.CUBV.11.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # $Z setenv _____ImageT1 $xTV/SECTIONS.2 # # $m4 _____include(_____xiirv/.CUBV.11.2._____U) # # # # $Z $xci/accumule.01$X \ # # $Z A=$_____ImageT1. \ # # $Z premiere=$cPremiere derniere=$cDerniere \ # # $Z R=$_____imagesR.9 \ # # $Z $formatI # # # # :Fin_listG_CUBV_22_9: # # # v $xiirv/CUBV.23.9 p=$xiP/random.86 v $xiirv/CUBV.23.9 p=$xiP/random.A5 v $xiirv/CUBV.23.9 p=$xiP/random.B3$Fi v $xiirv/CUBV.23.9 p=$xiP/random.B7$Fi # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CUBV_23_9: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesR=$xiirv/CUBV.23 # # # # $Z set _____Generateur1Para="$K_VIDE" # # $Z set _____Generateur1Para="$_____Generateur1Para"" mr=4" # # $Z set _____Generateur1Para="$_____Generateur1Para"" mt=2" # # $Z set Generateur1=$xci/spiArchimede$X # # # # $Z set _____Generateur2Para="$K_VIDE" # # $Z set _____Generateur2Para="$_____Generateur2Para"" mr=8" # # $Z set _____Generateur2Para="$_____Generateur2Para"" mt=4" # # $Z set Generateur2=$xci/spiArchimede$X # # # # $Z set _____Generateur3Para="$K_VIDE" # # $Z set _____Generateur3Para="$_____Generateur3Para"" mr=16" # # $Z set _____Generateur3Para="$_____Generateur3Para"" mt=8" # # $Z set Generateur3=$xci/spiArchimede$X # # # # $m4 _____include(_____xiirv/.CUBV.11.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # $Z setenv _____ImageT1 $xTV/SECTIONS.2 # # $m4 _____include(_____xiirv/.CUBV.11.2._____U) # # # # $Z $xci/accumule.01$X \ # # $Z A=$_____ImageT1. \ # # $Z premiere=$cPremiere derniere=$cDerniere \ # # $Z R=$_____imagesR.9 \ # # $Z $formatI # # # # :Fin_listG_CUBV_23_9: # # # v $xiirv/CUBV.23.9.1 # Generee (sur '$LACT1A') : # # # # # # :Debut_listG_CUBV_23_9_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/CUBV.23.9 # # # # $Z $xci/vraies_C$X \ # # $Z A=$_____ImageA \ # # $Z p=$xiP/random.B7.Fi \ # # $Z R=$xTV/CUBV.23.9 \ # # $Z $formatI # # $Z set _____ImageR=$_____ImageA.1 # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$xTV/CUBV.23.9%s \ # # $Z points=9 \ # # $Z R=$xTV/CUBV.23.9.11%s \ # # $Z disperser=VRAI \ # # $Z dX10=4 dY01=4 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/CUBV.23.9.11 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # # # $Z $xci/lissage$X \ # # $Z passes=10 \ # # $Z standard=FAUX \ # # $Z navap=VRAI \ # # $Z R=$xTV/KAND.41.12 \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/KAND.41.12 \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$xTV/CUBV.23.9.11%s \ # # $Z avion=VRAI \ # # $Z $formatI | \ # # $Z $xci/transpose$X \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_CUBV_23_9_1: # # # v $xiirv/CUBV.31.9 p=$xiP/random.86 v $xiirv/CUBV.31.9 p=$xiP/random.A5 v $xiirv/CUBV.31.9 p=$xiP/random.B3$Fi v $xiirv/CUBV.31.9 p=$xiP/random.B7$Fi # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CUBV_31_9: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesR=$xiirv/CUBV.31 # # # # $Z set _____Generateur1Para="$K_VIDE" # # $Z set _____Generateur1Para="$_____Generateur1Para"" Ct=3" # # $Z set Generateur1=$xci/trefle$X # # # # $Z set _____Generateur2Para="$K_VIDE" # # $Z set _____Generateur2Para="$_____Generateur2Para"" Ct=5" # # $Z set Generateur2=$xci/trefle$X # # # # $Z set _____Generateur3Para="$K_VIDE" # # $Z set _____Generateur3Para="$_____Generateur3Para"" Ct=7" # # $Z set Generateur3=$xci/trefle$X # # # # $m4 _____include(_____xiirv/.CUBV.11.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # $Z setenv _____ImageT1 $xTV/SECTIONS.2 # # $m4 _____include(_____xiirv/.CUBV.11.2._____U) # # # # $Z $xci/accumule.01$X \ # # $Z A=$_____ImageT1. \ # # $Z premiere=$cPremiere derniere=$cDerniere \ # # $Z R=$_____imagesR.9 \ # # $Z $formatI # # # # :Fin_listG_CUBV_31_9: # # # v $xiirv/CUBV.41.9 p=$xiP/random.86 v $xiirv/CUBV.41.9 p=$xiP/random.A5 v $xiirv/CUBV.41.9 p=$xiP/random.B3$Fi v $xiirv/CUBV.41.9 p=$xiP/random.B7$Fi # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CUBV_41_9: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesR=$xiirv/CUBV.41 # # # # $Z set _____Generateur1Para="$K_VIDE" # # $Z set _____Generateur1Para="$_____Generateur1Para"" graine=1789" # # $Z set _____Generateur1Para="$_____Generateur1Para"" iterations=1" # # $Z set _____Generateur1Para="$_____Generateur1Para"" mx=0.25" # # $Z set _____Generateur1Para="$_____Generateur1Para"" my=0.25" # # $Z set Generateur1=$xci/fract_2D.01$X # # # # $Z set _____Generateur2Para="$K_VIDE" # # $Z set _____Generateur2Para="$_____Generateur2Para"" graine=1947" # # $Z set _____Generateur2Para="$_____Generateur2Para"" iterations=1" # # $Z set _____Generateur2Para="$_____Generateur2Para"" mx=0.25" # # $Z set _____Generateur2Para="$_____Generateur2Para"" my=0.25" # # $Z set Generateur2=$xci/fract_2D.01$X # # # # $Z set _____Generateur3Para="$K_VIDE" # # $Z set _____Generateur3Para="$_____Generateur3Para"" graine=2001" # # $Z set _____Generateur3Para="$_____Generateur3Para"" iterations=1" # # $Z set _____Generateur3Para="$_____Generateur3Para"" mx=0.25" # # $Z set _____Generateur3Para="$_____Generateur3Para"" my=0.25" # # $Z set Generateur3=$xci/fract_2D.01$X # # # # $m4 _____include(_____xiirv/.CUBV.11.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # $Z setenv _____ImageT1 $xTV/SECTIONS.2 # # $m4 _____include(_____xiirv/.CUBV.11.2._____U) # # # # $Z $xci/accumule.01$X \ # # $Z A=$_____ImageT1. \ # # $Z premiere=$cPremiere derniere=$cDerniere \ # # $Z R=$_____imagesR.9 \ # # $Z $formatI # # # # :Fin_listG_CUBV_41_9: # # # v $xiirv/CUBV.42.9 p=$xiP/random.86 v $xiirv/CUBV.42.9 p=$xiP/random.A5 v $xiirv/CUBV.42.9 p=$xiP/random.B3$Fi v $xiirv/CUBV.42.9 p=$xiP/random.B7$Fi # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CUBV_42_9: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesR=$xiirv/CUBV.42 # # # # $Z set _____Generateur1Para="$K_VIDE" # # $Z set _____Generateur1Para="$_____Generateur1Para"" graine=1789" # # $Z set _____Generateur1Para="$_____Generateur1Para"" iterations=2" # # $Z set _____Generateur1Para="$_____Generateur1Para"" mx=0.25" # # $Z set _____Generateur1Para="$_____Generateur1Para"" my=0.25" # # $Z set Generateur1=$xci/fract_2D.01$X # # # # $Z set _____Generateur2Para="$K_VIDE" # # $Z set _____Generateur2Para="$_____Generateur2Para"" graine=1947" # # $Z set _____Generateur2Para="$_____Generateur2Para"" iterations=2" # # $Z set _____Generateur2Para="$_____Generateur2Para"" mx=0.25" # # $Z set _____Generateur2Para="$_____Generateur2Para"" my=0.25" # # $Z set Generateur2=$xci/fract_2D.01$X # # # # $Z set _____Generateur3Para="$K_VIDE" # # $Z set _____Generateur3Para="$_____Generateur3Para"" graine=2001" # # $Z set _____Generateur3Para="$_____Generateur3Para"" iterations=2" # # $Z set _____Generateur3Para="$_____Generateur3Para"" mx=0.25" # # $Z set _____Generateur3Para="$_____Generateur3Para"" my=0.25" # # $Z set Generateur3=$xci/fract_2D.01$X # # # # $m4 _____include(_____xiirv/.CUBV.11.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # $Z setenv _____ImageT1 $xTV/SECTIONS.2 # # $m4 _____include(_____xiirv/.CUBV.11.2._____U) # # # # $Z $xci/accumule.01$X \ # # $Z A=$_____ImageT1. \ # # $Z premiere=$cPremiere derniere=$cDerniere \ # # $Z R=$_____imagesR.9 \ # # $Z $formatI # # # # :Fin_listG_CUBV_42_9: # # # v $xiirv/CUBV.43.9 p=$xiP/random.86 v $xiirv/CUBV.43.9 p=$xiP/random.A5 v $xiirv/CUBV.43.9 p=$xiP/random.B3$Fi v $xiirv/CUBV.43.9 p=$xiP/random.B7$Fi # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CUBV_43_9: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesR=$xiirv/CUBV.43 # # # # $Z set _____Generateur1Para="$K_VIDE" # # $Z set _____Generateur1Para="$_____Generateur1Para"" graine=1789" # # $Z set _____Generateur1Para="$_____Generateur1Para"" iterations=4" # # $Z set _____Generateur1Para="$_____Generateur1Para"" mx=0.25" # # $Z set _____Generateur1Para="$_____Generateur1Para"" my=0.25" # # $Z set Generateur1=$xci/fract_2D.01$X # # # # $Z set _____Generateur2Para="$K_VIDE" # # $Z set _____Generateur2Para="$_____Generateur2Para"" graine=1947" # # $Z set _____Generateur2Para="$_____Generateur2Para"" iterations=4" # # $Z set _____Generateur2Para="$_____Generateur2Para"" mx=0.25" # # $Z set _____Generateur2Para="$_____Generateur2Para"" my=0.25" # # $Z set Generateur2=$xci/fract_2D.01$X # # # # $Z set _____Generateur3Para="$K_VIDE" # # $Z set _____Generateur3Para="$_____Generateur3Para"" graine=2001" # # $Z set _____Generateur3Para="$_____Generateur3Para"" iterations=4" # # $Z set _____Generateur3Para="$_____Generateur3Para"" mx=0.25" # # $Z set _____Generateur3Para="$_____Generateur3Para"" my=0.25" # # $Z set Generateur3=$xci/fract_2D.01$X # # # # $m4 _____include(_____xiirv/.CUBV.11.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # $Z setenv _____ImageT1 $xTV/SECTIONS.2 # # $m4 _____include(_____xiirv/.CUBV.11.2._____U) # # # # $Z $xci/accumule.01$X \ # # $Z A=$_____ImageT1. \ # # $Z premiere=$cPremiere derniere=$cDerniere \ # # $Z R=$_____imagesR.9 \ # # $Z $formatI # # # # :Fin_listG_CUBV_43_9: # # # v $xiirv/CUBV.44.9 p=$xiP/random.86 v $xiirv/CUBV.44.9 p=$xiP/random.A5 v $xiirv/CUBV.44.9 p=$xiP/random.B3$Fi v $xiirv/CUBV.44.9 p=$xiP/random.B7$Fi # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CUBV_44_9: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesR=$xiirv/CUBV.44 # # # # $Z set _____Generateur1Para="$K_VIDE" # # $Z set _____Generateur1Para="$_____Generateur1Para"" graine=1789" # # $Z set _____Generateur1Para="$_____Generateur1Para"" iterations=8" # # $Z set _____Generateur1Para="$_____Generateur1Para"" mx=0.25" # # $Z set _____Generateur1Para="$_____Generateur1Para"" my=0.25" # # $Z set Generateur1=$xci/fract_2D.01$X # # # # $Z set _____Generateur2Para="$K_VIDE" # # $Z set _____Generateur2Para="$_____Generateur2Para"" graine=1947" # # $Z set _____Generateur2Para="$_____Generateur2Para"" iterations=8" # # $Z set _____Generateur2Para="$_____Generateur2Para"" mx=0.25" # # $Z set _____Generateur2Para="$_____Generateur2Para"" my=0.25" # # $Z set Generateur2=$xci/fract_2D.01$X # # # # $Z set _____Generateur3Para="$K_VIDE" # # $Z set _____Generateur3Para="$_____Generateur3Para"" graine=2001" # # $Z set _____Generateur3Para="$_____Generateur3Para"" iterations=8" # # $Z set _____Generateur3Para="$_____Generateur3Para"" mx=0.25" # # $Z set _____Generateur3Para="$_____Generateur3Para"" my=0.25" # # $Z set Generateur3=$xci/fract_2D.01$X # # # # $m4 _____include(_____xiirv/.CUBV.11.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # $Z setenv _____ImageT1 $xTV/SECTIONS.2 # # $m4 _____include(_____xiirv/.CUBV.11.2._____U) # # # # $Z $xci/accumule.01$X \ # # $Z A=$_____ImageT1. \ # # $Z premiere=$cPremiere derniere=$cDerniere \ # # $Z R=$_____imagesR.9 \ # # $Z $formatI # # # # :Fin_listG_CUBV_44_9: # # # v $xiirv/CUBV.45.9 p=$xiP/random.86 v $xiirv/CUBV.45.9 p=$xiP/random.A5 v $xiirv/CUBV.45.9 p=$xiP/random.B3$Fi v $xiirv/CUBV.45.9 p=$xiP/random.B7$Fi # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CUBV_45_9: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesR=$xiirv/CUBV.45 # # # # $Z set _____Generateur1Para="$K_VIDE" # # $Z set _____Generateur1Para="$_____Generateur1Para"" graine=1789" # # $Z set _____Generateur1Para="$_____Generateur1Para"" iterations=16" # # $Z set _____Generateur1Para="$_____Generateur1Para"" mx=0.25" # # $Z set _____Generateur1Para="$_____Generateur1Para"" my=0.25" # # $Z set Generateur1=$xci/fract_2D.01$X # # # # $Z set _____Generateur2Para="$K_VIDE" # # $Z set _____Generateur2Para="$_____Generateur2Para"" graine=1947" # # $Z set _____Generateur2Para="$_____Generateur2Para"" iterations=16" # # $Z set _____Generateur2Para="$_____Generateur2Para"" mx=0.25" # # $Z set _____Generateur2Para="$_____Generateur2Para"" my=0.25" # # $Z set Generateur2=$xci/fract_2D.01$X # # # # $Z set _____Generateur3Para="$K_VIDE" # # $Z set _____Generateur3Para="$_____Generateur3Para"" graine=2001" # # $Z set _____Generateur3Para="$_____Generateur3Para"" iterations=16" # # $Z set _____Generateur3Para="$_____Generateur3Para"" mx=0.25" # # $Z set _____Generateur3Para="$_____Generateur3Para"" my=0.25" # # $Z set Generateur3=$xci/fract_2D.01$X # # # # $m4 _____include(_____xiirv/.CUBV.11.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # $Z setenv _____ImageT1 $xTV/SECTIONS.2 # # $m4 _____include(_____xiirv/.CUBV.11.2._____U) # # # # $Z $xci/accumule.01$X \ # # $Z A=$_____ImageT1. \ # # $Z premiere=$cPremiere derniere=$cDerniere \ # # $Z R=$_____imagesR.9 \ # # $Z $formatI # # # # :Fin_listG_CUBV_45_9: # # # v $xiirv/CUBV.412345.9 p=$xiP/CEN.11 v $xiirv/CUBV.412345.9 p=$xiP/bleu_roug.11 v $xiirv/CUBV.412345.9 p=$xiP/random.05 v $xiirv/CUBV.412345.9 p=$xiP/random.86 v $xiirv/CUBV.412345.9 p=$xiP/random.A5 v $xiirv/CUBV.412345.9 p=$xiP/random.B3$Fi v $xiirv/CUBV.412345.9 p=$xiP/random.B7$Fi v $xiirv/CUBV.412345.9 p=$xiP/vert_orange # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CUBV_412345_9: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesR=$xiirv/CUBV.412345 # # # # $Z set _____Generateur1Para="$K_VIDE" # # $Z set _____Generateur1Para="$_____Generateur1Para"" A=$xiirv/CUBV.41.9" # # $Z set _____Generateur1Para="$_____Generateur1Para"" standard=VRAI" # # $Z set _____Generateur1Para="$_____Generateur1Para"" convertir=VRAI" # # $Z set Generateur1=$xci/acces$X # # # # $Z set _____Generateur2Para="$K_VIDE" # # $Z set _____Generateur2Para="$_____Generateur2Para"" A=$xiirv/CUBV.42.9" # # $Z set _____Generateur2Para="$_____Generateur2Para"" standard=VRAI" # # $Z set _____Generateur2Para="$_____Generateur2Para"" convertir=VRAI" # # $Z set Generateur2=$xci/acces$X # # # # $Z set _____Generateur3Para="$K_VIDE" # # $Z set _____Generateur3Para="$_____Generateur3Para"" A=$xiirv/CUBV.43.9" # # $Z set _____Generateur3Para="$_____Generateur3Para"" standard=VRAI" # # $Z set _____Generateur3Para="$_____Generateur3Para"" convertir=VRAI" # # $Z set Generateur3=$xci/acces$X # # # # $m4 _____include(_____xiirv/.CUBV.11.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # $Z setenv _____ImageT1 $xTV/SECTIONS.2 # # $m4 _____include(_____xiirv/.CUBV.11.2._____U) # # # # $Z $xci/accumule.01$X \ # # $Z A=$_____ImageT1. \ # # $Z premiere=$cPremiere derniere=$cDerniere \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z R=$_____imagesR.9 \ # # $Z $formatI # # # # La presence de la convolution est rendue necessaire par le fait que les images de base # # '$xiirv/CUBV.4?.9' sont "standard=VRAI" et ensuite, une fois converties, restent moins # # "lisses" que des images de base generees directement en mode "standard=FAUX"... # # # # :Fin_listG_CUBV_412345_9: # # # v $xiirv/CUBV.412345.9.1 # Generee (sur '$LACT1A') : # # # # # # :Debut_listG_CUBV_412345_9_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/CUBV.412345.9 # # # # $Z $xci/vraies_C$X \ # # $Z A=$_____ImageA \ # # $Z p=$xiP/vert_orange \ # # $Z R=$xTV/CUBV.412345.9 \ # # $Z $formatI # # $Z set _____ImageR=$_____ImageA.1 # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$xTV/CUBV.412345.9%s \ # # $Z points=9 \ # # $Z R=$xTV/CUBV.412345.9.11%s \ # # $Z disperser=VRAI \ # # $Z dX10=4 dY01=4 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/CUBV.412345.9.11 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # # # $Z $xci/lissage$X \ # # $Z passes=10 \ # # $Z standard=FAUX \ # # $Z navap=VRAI \ # # $Z R=$xTV/KAND.41.12 \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/KAND.41.12 \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$xTV/CUBV.412345.9.11%s \ # # $Z avion=VRAI \ # # $Z $formatI | \ # # $Z $xci/transpose$X \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_CUBV_412345_9_1: # # # v $xiirv/CUBV.51.1 v $xiirv/CUBV.51.2 v $xiirv/CUBV.51.21 v $xiirv/CUBV.51.9 p=$xiP/random.86 v $xiirv/CUBV.51.9 p=$xiP/random.A5 v $xiirv/CUBV.51.9 p=$xiP/random.B3$Fi v $xiirv/CUBV.51.9 p=$xiP/random.B7$Fi # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CUBV_51: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesR=$xiirv/CUBV.51 # # # # $Z set _____Generateur1Para="$K_VIDE" # # $Z set _____Generateur1Para="$_____Generateur1Para"" graine=1789" # # $Z set _____Generateur1Para="$_____Generateur1Para"" iterations=32" # # $Z set _____Generateur1Para="$_____Generateur1Para"" mx=0.25" # # $Z set _____Generateur1Para="$_____Generateur1Para"" my=0.25" # # $Z set Generateur1=$xci/fract_2D.01$X # # # # $Z set _____Generateur2Para="$K_VIDE" # # $Z set _____Generateur2Para="$_____Generateur2Para"" graine=1947" # # $Z set _____Generateur2Para="$_____Generateur2Para"" iterations=32" # # $Z set _____Generateur2Para="$_____Generateur2Para"" mx=0.25" # # $Z set _____Generateur2Para="$_____Generateur2Para"" my=0.25" # # $Z set Generateur2=$xci/fract_2D.01$X # # # # $Z set _____Generateur3Para="$K_VIDE" # # $Z set _____Generateur3Para="$_____Generateur3Para"" graine=2001" # # $Z set _____Generateur3Para="$_____Generateur3Para"" iterations=32" # # $Z set _____Generateur3Para="$_____Generateur3Para"" mx=0.25" # # $Z set _____Generateur3Para="$_____Generateur3Para"" my=0.25" # # $Z set Generateur3=$xci/fract_2D.01$X # # # # $m4 _____include(_____xiirv/.CUBV.11.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # $Z setenv _____ImageT1 $xTV/SECTIONS.2 # # $m4 _____include(_____xiirv/.CUBV.11.2._____U) # # # # $Z $xci/accumule.01$X \ # # $Z A=$_____ImageT1. \ # # $Z premiere=$cPremiere derniere=$cDerniere \ # # $Z R=$_____imagesR.9 \ # # $Z $formatI # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # :Fin_listG_CUBV_51: # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 07:42:56 # # # # $xci/accumule.42$X : 02:13:37 # # # v $xiirv/CUBV.52.1 v $xiirv/CUBV.52.2 v $xiirv/CUBV.52.21 v $xiirv/CUBV.52.9 p=$xiP/random.86 v $xiirv/CUBV.52.9 p=$xiP/random.A5 v $xiirv/CUBV.52.9 p=$xiP/random.B3$Fi v $xiirv/CUBV.52.9 p=$xiP/random.B7$Fi # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_CUBV_52: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesR=$xiirv/CUBV.52 # # # # $Z set _____Generateur1Para="$K_VIDE" # # $Z set _____Generateur1Para="$_____Generateur1Para"" graine=1789" # # $Z set _____Generateur1Para="$_____Generateur1Para"" iterations=32" # # $Z set _____Generateur1Para="$_____Generateur1Para"" mx=0.25" # # $Z set _____Generateur1Para="$_____Generateur1Para"" my=0.25" # # $Z set Generateur1=$xci/fract_2D.01$X # # # # $Z set _____Generateur2Para="$K_VIDE" # # $Z set _____Generateur2Para="$_____Generateur2Para"" graine=1947" # # $Z set _____Generateur2Para="$_____Generateur2Para"" iterations=32" # # $Z set _____Generateur2Para="$_____Generateur2Para"" mx=0.25" # # $Z set _____Generateur2Para="$_____Generateur2Para"" my=0.25" # # $Z set Generateur2=$xci/fract_2D.01$X # # # # $Z set _____Generateur3Para="$K_VIDE" # # $Z set _____Generateur3Para="$_____Generateur3Para"" graine=2001" # # $Z set _____Generateur3Para="$_____Generateur3Para"" iterations=32" # # $Z set _____Generateur3Para="$_____Generateur3Para"" mx=0.25" # # $Z set _____Generateur3Para="$_____Generateur3Para"" my=0.25" # # $Z set Generateur3=$xci/fract_2D.01$X # # # # $m4 _____include(_____xiirv/.CUBV.11.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # $Z setenv _____ImageT1 $xTV/SECTIONS.2 # # $m4 _____include(_____xiirv/.CUBV.11.2._____U) # # # # $Z $xci/accumule.01$X \ # # $Z A=$_____ImageT1. \ # # $Z premiere=$cPremiere derniere=$cDerniere \ # # $Z R=$_____imagesR.9 \ # # $Z $formatI # # # # $m4 _____include(_____xiirs/.EPIC.41.12._____U) # # $Z SET _____Facteur=300000 # # $m4 _____include(_____xiirf/.MENG.67.5._____U) # # # # $m4 _____include(_____xiirs/.EPIC.41.21._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # :Fin_listG_CUBV_52: # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 13:59:39 # # # # $xci/accumule.42$X : 04:48:43 # # # v $xiirv/CUBV.61.9 p=$xiP/gris_oran.26 v $xiirv/CUBV.61.9 p=$xiP/gris_oran.36 v $xiirv/CUBV.61.9 p=$xiP/random.86 v $xiirv/CUBV.61.9 p=$xiP/random.A5 v $xiirv/CUBV.61.9 p=$xiP/random.B3$Fi v $xiirv/CUBV.61.9 p=$xiP/random.B7$Fi # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CUBV_61_9: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesR=$xiirv/CUBV.61 # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z renormaliser=VRAI o=-1 e=+1 \ # # $Z R=$xTV/TREFLE \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=16 mt=4 \ # # $Z renormaliser=VRAI o=-1 e=+1 \ # # $Z R=$xTV/SPIRALE \ # # $Z $formatI # # # # $Z set _____Generateur1Para="$K_VIDE" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X0_Y2=0" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X2_Y0=0" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X0_Y1=$xTV/TREFLE" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X1_Y0=$xTV/SPIRALE" # # $Z set Generateur1=$xci/PolyCartesUniversel_2D$X # # # # $Z set _____Generateur2Para="$K_VIDE" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X0_Y2=0" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X2_Y0=0" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X0_Y3=$xTV/TREFLE" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X3_Y0=$xTV/SPIRALE" # # $Z set Generateur2=$xci/PolyCartesUniversel_2D$X # # # # $Z set _____Generateur3Para="$K_VIDE" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X0_Y2=0" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X2_Y0=0" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X0_Y4=$xTV/TREFLE" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X4_Y0=$xTV/SPIRALE" # # $Z set Generateur3=$xci/PolyCartesUniversel_2D$X # # # # $m4 _____include(_____xiirv/.CUBV.11.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # $Z setenv _____ImageT1 $xTV/SECTIONS.2 # # $m4 _____include(_____xiirv/.CUBV.11.2._____U) # # # # $Z $xci/accumule.01$X \ # # $Z A=$_____ImageT1. \ # # $Z premiere=$cPremiere derniere=$cDerniere \ # # $Z R=$_____imagesR.9 \ # # $Z $formatI # # # # :Fin_listG_CUBV_61_9: # # # v $xiirv/CUBV.71.9 p=$xiP/gris_oran.26 v $xiirv/CUBV.71.9 p=$xiP/gris_oran.36 v $xiirv/CUBV.71.9 p=$xiP/random.86 v $xiirv/CUBV.71.9 p=$xiP/random.A5 v $xiirv/CUBV.71.9 p=$xiP/random.B3$Fi v $xiirv/CUBV.71.9 p=$xiP/random.B7$Fi # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CUBV_71_9: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesR=$xiirv/CUBV.71 # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z graine=1789 \ # # $Z iterations=1 \ # # $Z mx=0.25 my=0.25 \ # # $Z renormaliser=VRAI o=-1 e=+1 \ # # $Z R=$xTV/FRACTAL.1 \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z graine=1789 \ # # $Z iterations=1 \ # # $Z mx=0.25 my=0.25 \ # # $Z renormaliser=VRAI o=-1 e=+1 \ # # $Z R=$xTV/FRACTAL.2 \ # # $Z $formatI # # # # $Z set _____Generateur1Para="$K_VIDE" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X0_Y2=0" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X2_Y0=0" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X0_Y1=$xTV/FRACTAL.1" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X1_Y0=$xTV/FRACTAL.2" # # $Z set Generateur1=$xci/PolyCartesUniversel_2D$X # # # # $Z set _____Generateur2Para="$K_VIDE" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X0_Y2=0" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X2_Y0=0" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X0_Y3=$xTV/FRACTAL.1" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X3_Y0=$xTV/FRACTAL.2" # # $Z set Generateur2=$xci/PolyCartesUniversel_2D$X # # # # $Z set _____Generateur3Para="$K_VIDE" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X0_Y2=0" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X2_Y0=0" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X0_Y4=$xTV/FRACTAL.1" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X4_Y0=$xTV/FRACTAL.2" # # $Z set Generateur3=$xci/PolyCartesUniversel_2D$X # # # # $m4 _____include(_____xiirv/.CUBV.11.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # $Z setenv _____ImageT1 $xTV/SECTIONS.2 # # $m4 _____include(_____xiirv/.CUBV.11.2._____U) # # # # $Z $xci/accumule.01$X \ # # $Z A=$_____ImageT1. \ # # $Z premiere=$cPremiere derniere=$cDerniere \ # # $Z R=$_____imagesR.9 \ # # $Z $formatI # # # # :Fin_listG_CUBV_71_9: # # # v $xiirv/CUBV.72.9 p=$xiP/gris_oran.26 v $xiirv/CUBV.72.9 p=$xiP/gris_oran.36 v $xiirv/CUBV.72.9 p=$xiP/random.86 v $xiirv/CUBV.72.9 p=$xiP/random.A5 v $xiirv/CUBV.72.9 p=$xiP/random.B3$Fi v $xiirv/CUBV.72.9 p=$xiP/random.B7$Fi # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CUBV_72_9: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesR=$xiirv/CUBV.72 # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z graine=1789 \ # # $Z iterations=2 \ # # $Z mx=0.25 my=0.25 \ # # $Z renormaliser=VRAI o=-1 e=+1 \ # # $Z R=$xTV/FRACTAL.1 \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z graine=1789 \ # # $Z iterations=2 \ # # $Z mx=0.25 my=0.25 \ # # $Z renormaliser=VRAI o=-1 e=+1 \ # # $Z R=$xTV/FRACTAL.2 \ # # $Z $formatI # # # # $Z set _____Generateur1Para="$K_VIDE" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X0_Y2=0" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X2_Y0=0" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X0_Y1=$xTV/FRACTAL.1" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X1_Y0=$xTV/FRACTAL.2" # # $Z set Generateur1=$xci/PolyCartesUniversel_2D$X # # # # $Z set _____Generateur2Para="$K_VIDE" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X0_Y2=0" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X2_Y0=0" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X0_Y3=$xTV/FRACTAL.1" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X3_Y0=$xTV/FRACTAL.2" # # $Z set Generateur2=$xci/PolyCartesUniversel_2D$X # # # # $Z set _____Generateur3Para="$K_VIDE" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X0_Y2=0" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X2_Y0=0" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X0_Y4=$xTV/FRACTAL.1" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X4_Y0=$xTV/FRACTAL.2" # # $Z set Generateur3=$xci/PolyCartesUniversel_2D$X # # # # $m4 _____include(_____xiirv/.CUBV.11.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # $Z setenv _____ImageT1 $xTV/SECTIONS.2 # # $m4 _____include(_____xiirv/.CUBV.11.2._____U) # # # # $Z $xci/accumule.01$X \ # # $Z A=$_____ImageT1. \ # # $Z premiere=$cPremiere derniere=$cDerniere \ # # $Z R=$_____imagesR.9 \ # # $Z $formatI # # # # :Fin_listG_CUBV_72_9: # # # v $xiirv/CUBV.73.9 p=$xiP/gris_oran.26 v $xiirv/CUBV.73.9 p=$xiP/gris_oran.36 v $xiirv/CUBV.73.9 p=$xiP/random.86 v $xiirv/CUBV.73.9 p=$xiP/random.A5 v $xiirv/CUBV.73.9 p=$xiP/random.B3$Fi v $xiirv/CUBV.73.9 p=$xiP/random.B7$Fi # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CUBV_73_9: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesR=$xiirv/CUBV.73 # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z graine=1789 \ # # $Z iterations=3 \ # # $Z mx=0.25 my=0.25 \ # # $Z renormaliser=VRAI o=-1 e=+1 \ # # $Z R=$xTV/FRACTAL.1 \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z graine=1789 \ # # $Z iterations=3 \ # # $Z mx=0.25 my=0.25 \ # # $Z renormaliser=VRAI o=-1 e=+1 \ # # $Z R=$xTV/FRACTAL.2 \ # # $Z $formatI # # # # $Z set _____Generateur1Para="$K_VIDE" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X0_Y2=0" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X2_Y0=0" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X0_Y1=$xTV/FRACTAL.1" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X1_Y0=$xTV/FRACTAL.2" # # $Z set Generateur1=$xci/PolyCartesUniversel_2D$X # # # # $Z set _____Generateur2Para="$K_VIDE" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X0_Y2=0" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X2_Y0=0" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X0_Y3=$xTV/FRACTAL.1" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X3_Y0=$xTV/FRACTAL.2" # # $Z set Generateur2=$xci/PolyCartesUniversel_2D$X # # # # $Z set _____Generateur3Para="$K_VIDE" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X0_Y2=0" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X2_Y0=0" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X0_Y4=$xTV/FRACTAL.1" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X4_Y0=$xTV/FRACTAL.2" # # $Z set Generateur3=$xci/PolyCartesUniversel_2D$X # # # # $m4 _____include(_____xiirv/.CUBV.11.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # $Z setenv _____ImageT1 $xTV/SECTIONS.2 # # $m4 _____include(_____xiirv/.CUBV.11.2._____U) # # # # $Z $xci/accumule.01$X \ # # $Z A=$_____ImageT1. \ # # $Z premiere=$cPremiere derniere=$cDerniere \ # # $Z R=$_____imagesR.9 \ # # $Z $formatI # # # # :Fin_listG_CUBV_73_9: # # # v $xiirv/CUBV.74.9 p=$xiP/gris_oran.26 v $xiirv/CUBV.74.9 p=$xiP/gris_oran.36 v $xiirv/CUBV.74.9 p=$xiP/random.86 v $xiirv/CUBV.74.9 p=$xiP/random.A5 v $xiirv/CUBV.74.9 p=$xiP/random.B3$Fi v $xiirv/CUBV.74.9 p=$xiP/random.B7$Fi # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CUBV_74_9: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesR=$xiirv/CUBV.74 # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z graine=1789 \ # # $Z iterations=4 \ # # $Z mx=0.25 my=0.25 \ # # $Z renormaliser=VRAI o=-1 e=+1 \ # # $Z R=$xTV/FRACTAL.1 \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z graine=1789 \ # # $Z iterations=4 \ # # $Z mx=0.25 my=0.25 \ # # $Z renormaliser=VRAI o=-1 e=+1 \ # # $Z R=$xTV/FRACTAL.2 \ # # $Z $formatI # # # # $Z set _____Generateur1Para="$K_VIDE" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X0_Y2=0" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X2_Y0=0" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X0_Y1=$xTV/FRACTAL.1" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X1_Y0=$xTV/FRACTAL.2" # # $Z set Generateur1=$xci/PolyCartesUniversel_2D$X # # # # $Z set _____Generateur2Para="$K_VIDE" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X0_Y2=0" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X2_Y0=0" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X0_Y3=$xTV/FRACTAL.1" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X3_Y0=$xTV/FRACTAL.2" # # $Z set Generateur2=$xci/PolyCartesUniversel_2D$X # # # # $Z set _____Generateur3Para="$K_VIDE" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X0_Y2=0" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X2_Y0=0" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X0_Y4=$xTV/FRACTAL.1" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X4_Y0=$xTV/FRACTAL.2" # # $Z set Generateur3=$xci/PolyCartesUniversel_2D$X # # # # $m4 _____include(_____xiirv/.CUBV.11.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # $Z setenv _____ImageT1 $xTV/SECTIONS.2 # # $m4 _____include(_____xiirv/.CUBV.11.2._____U) # # # # $Z $xci/accumule.01$X \ # # $Z A=$_____ImageT1. \ # # $Z premiere=$cPremiere derniere=$cDerniere \ # # $Z R=$_____imagesR.9 \ # # $Z $formatI # # # # :Fin_listG_CUBV_74_9: # # # v $xiirv/CUBV.75.1 v $xiirv/CUBV.75.2 v $xiirv/CUBV.75.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CUBV_75: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesR=$xiirv/CUBV.75 # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z graine=1789 \ # # $Z iterations=5 \ # # $Z mx=0.25 my=0.25 \ # # $Z renormaliser=VRAI o=-1 e=+1 \ # # $Z R=$xTV/FRACTAL.1 \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z graine=1789 \ # # $Z iterations=5 \ # # $Z mx=0.25 my=0.25 \ # # $Z renormaliser=VRAI o=-1 e=+1 \ # # $Z R=$xTV/FRACTAL.2 \ # # $Z $formatI # # # # $Z set _____Generateur1Para="$K_VIDE" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X0_Y2=0" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X2_Y0=0" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X0_Y1=$xTV/FRACTAL.1" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X1_Y0=$xTV/FRACTAL.2" # # $Z set Generateur1=$xci/PolyCartesUniversel_2D$X # # # # $Z set _____Generateur2Para="$K_VIDE" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X0_Y2=0" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X2_Y0=0" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X0_Y3=$xTV/FRACTAL.1" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X3_Y0=$xTV/FRACTAL.2" # # $Z set Generateur2=$xci/PolyCartesUniversel_2D$X # # # # $Z set _____Generateur3Para="$K_VIDE" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X0_Y2=0" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X2_Y0=0" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X0_Y4=$xTV/FRACTAL.1" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X4_Y0=$xTV/FRACTAL.2" # # $Z set Generateur3=$xci/PolyCartesUniversel_2D$X # # # # $m4 _____include(_____xiirv/.CUBV.11.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # $Z setenv _____ImageT1 $xTV/SECTIONS.2 # # $m4 _____include(_____xiirv/.CUBV.11.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # :Fin_listG_CUBV_75: # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 06:35:21 # # # # $xci/accumule.42$X : 01:39:11 # # # v $xiirv/CUBV.75.9 p=$xiP/gris_oran.26 v $xiirv/CUBV.75.9 p=$xiP/gris_oran.36 v $xiirv/CUBV.75.9 p=$xiP/random.86 v $xiirv/CUBV.75.9 p=$xiP/random.A5 v $xiirv/CUBV.75.9 p=$xiP/random.B3$Fi v $xiirv/CUBV.75.9 p=$xiP/random.B7$Fi # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CUBV_75_9: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesR=$xiirv/CUBV.75 # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z graine=1789 \ # # $Z iterations=5 \ # # $Z mx=0.25 my=0.25 \ # # $Z renormaliser=VRAI o=-1 e=+1 \ # # $Z R=$xTV/FRACTAL.1 \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z graine=1789 \ # # $Z iterations=5 \ # # $Z mx=0.25 my=0.25 \ # # $Z renormaliser=VRAI o=-1 e=+1 \ # # $Z R=$xTV/FRACTAL.2 \ # # $Z $formatI # # # # $Z set _____Generateur1Para="$K_VIDE" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X0_Y2=0" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X2_Y0=0" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X0_Y1=$xTV/FRACTAL.1" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X1_Y0=$xTV/FRACTAL.2" # # $Z set Generateur1=$xci/PolyCartesUniversel_2D$X # # # # $Z set _____Generateur2Para="$K_VIDE" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X0_Y2=0" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X2_Y0=0" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X0_Y3=$xTV/FRACTAL.1" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X3_Y0=$xTV/FRACTAL.2" # # $Z set Generateur2=$xci/PolyCartesUniversel_2D$X # # # # $Z set _____Generateur3Para="$K_VIDE" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X0_Y2=0" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X2_Y0=0" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X0_Y4=$xTV/FRACTAL.1" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X4_Y0=$xTV/FRACTAL.2" # # $Z set Generateur3=$xci/PolyCartesUniversel_2D$X # # # # $m4 _____include(_____xiirv/.CUBV.11.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # $Z setenv _____ImageT1 $xTV/SECTIONS.2 # # $m4 _____include(_____xiirv/.CUBV.11.2._____U) # # # # $Z $xci/accumule.01$X \ # # $Z A=$_____ImageT1. \ # # $Z premiere=$cPremiere derniere=$cDerniere \ # # $Z R=$_____imagesR.9 \ # # $Z $formatI # # # # :Fin_listG_CUBV_75_9: # # # v $xiirv/CUBV.81.1 v $xiirv/CUBV.81.2 v $xiirv/CUBV.81.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_CUBV_81: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesR=$xiirv/CUBV.81 # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z graine=1789 \ # # $Z iterations=32 \ # # $Z mx=0.25 my=0.25 \ # # $Z renormaliser=VRAI o=-1 e=+1 \ # # $Z R=$xTV/FRACTAL.1 \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z graine=1789 \ # # $Z iterations=32 \ # # $Z mx=0.25 my=0.25 \ # # $Z renormaliser=VRAI o=-1 e=+1 \ # # $Z R=$xTV/FRACTAL.2 \ # # $Z $formatI # # # # $Z set _____Generateur1Para="$K_VIDE" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X0_Y2=0" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X2_Y0=0" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X0_Y1=$xTV/FRACTAL.1" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X1_Y0=$xTV/FRACTAL.2" # # $Z set Generateur1=$xci/PolyCartesUniversel_2D$X # # # # $Z set _____Generateur2Para="$K_VIDE" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X0_Y2=0" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X2_Y0=0" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X0_Y3=$xTV/FRACTAL.1" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X3_Y0=$xTV/FRACTAL.2" # # $Z set Generateur2=$xci/PolyCartesUniversel_2D$X # # # # $Z set _____Generateur3Para="$K_VIDE" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X0_Y2=0" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X2_Y0=0" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X0_Y4=$xTV/FRACTAL.1" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X4_Y0=$xTV/FRACTAL.2" # # $Z set Generateur3=$xci/PolyCartesUniversel_2D$X # # # # $m4 _____include(_____xiirv/.CUBV.11.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # $Z setenv _____ImageT1 $xTV/SECTIONS.2 # # $m4 _____include(_____xiirv/.CUBV.11.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # :Fin_listG_CUBV_81: # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 07:49:03 # # # # $xci/accumule.42$X : 01:53:19 # # # v $xiirv/CUBV.81.9 p=$xiP/bleu_roug.52 v $xiirv/CUBV.81.9 p=$xiP/gris_oran.26 v $xiirv/CUBV.81.9 p=$xiP/gris_oran.36 v $xiirv/CUBV.81.9 p=$xiP/random.86 v $xiirv/CUBV.81.9 p=$xiP/random.A5 v $xiirv/CUBV.81.9 p=$xiP/random.B3$Fi v $xiirv/CUBV.81.9 p=$xiP/random.B7$Fi # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_CUBV_81_9: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesR=$xiirv/CUBV.81 # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z graine=1789 \ # # $Z iterations=32 \ # # $Z mx=0.25 my=0.25 \ # # $Z renormaliser=VRAI o=-1 e=+1 \ # # $Z R=$xTV/FRACTAL.1 \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z graine=1789 \ # # $Z iterations=32 \ # # $Z mx=0.25 my=0.25 \ # # $Z renormaliser=VRAI o=-1 e=+1 \ # # $Z R=$xTV/FRACTAL.2 \ # # $Z $formatI # # # # $Z set _____Generateur1Para="$K_VIDE" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X0_Y2=0" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X2_Y0=0" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X0_Y1=$xTV/FRACTAL.1" # # $Z set _____Generateur1Para="$_____Generateur1Para"" X1_Y0=$xTV/FRACTAL.2" # # $Z set Generateur1=$xci/PolyCartesUniversel_2D$X # # # # $Z set _____Generateur2Para="$K_VIDE" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X0_Y2=0" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X2_Y0=0" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X0_Y3=$xTV/FRACTAL.1" # # $Z set _____Generateur2Para="$_____Generateur2Para"" X3_Y0=$xTV/FRACTAL.2" # # $Z set Generateur2=$xci/PolyCartesUniversel_2D$X # # # # $Z set _____Generateur3Para="$K_VIDE" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X0_Y2=0" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X2_Y0=0" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X0_Y4=$xTV/FRACTAL.1" # # $Z set _____Generateur3Para="$_____Generateur3Para"" X4_Y0=$xTV/FRACTAL.2" # # $Z set Generateur3=$xci/PolyCartesUniversel_2D$X # # # # $m4 _____include(_____xiirv/.CUBV.11.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z set _____MinX=0 # # $Z set _____MaxX=1 # # $Z set _____MinY=0 # # $Z set _____MaxY=1 # # $Z set _____MinZ=0 # # $Z set _____MaxZ=1 # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # $Z setenv _____ImageT1 $xTV/SECTIONS.2 # # $m4 _____include(_____xiirv/.CUBV.11.2._____U) # # # # $Z $xci/accumule.01$X \ # # $Z A=$_____ImageT1. \ # # $Z premiere=$cPremiere derniere=$cDerniere \ # # $Z R=$_____imagesR.9 \ # # $Z $formatI # # # # :Fin_listG_CUBV_81_9: # # # v $xiirv/DELA.11 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_DELA_11: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/DELA.11 # # $m4 _____include(_____xiirv/.DELA.11.1._____U) # # # # :Fin_listG_DELA_11: # # # # # # Image inspiree des oeuvres de Robert & Sonia Delaunay... # v $xiirv/DELA.11.1 v $xiirv/DELA.11.1$COORD_X p=$xiP/cercle.35 v $xiirv/DELA.11.1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_DELA_11_1: # # # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/DELA.11 # # $Z set _____ImageR=$_____ImageA.1 # # $Z set _____ImageP=$_____ImageR # # $m4 _____include(_____xiirv/.DELA.11.2._____U) # # # # $Z $DELETE $_____ImageR$COORD_X # # $Z $DELETE $_____ImageR$COORD_Y # # # # :Fin_listG_DELA_11_1: # # # v $xiirv/DELA.11.1.1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_DELA_11_1_1: # # # # $Z Squ # # # # $Z set _____ImageA=$xiirv/DELA.11.1 # # $Z set _____ImageR=$_____ImageA.1 # # # # $Z execRVB $xci/spiralise$X \ # # $Z A=$_____ImageA%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_DELA_11_1_1: # # # v $xiirv/DELA.11.1.2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_DELA_11_1_2: # # # # $Z Squ # # # # $Z set _____ImageA=$xiirv/DELA.11.1 # # $Z set _____ImageR=$_____ImageA.2 # # # # $m4 _____include(_____xiirv/.DELA.11.1.2._____U) # # # # :Fin_listG_DELA_11_1_2: # # # # # # Mapping de 'v $xiirv/DELA.11.1' a l'aide d'une courbe de Hilbert d'iteration 11. # v $xiirv/DELA.21 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_DELA_21: # # # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/DELA.11 # # $Z set _____ImageR=$xiirv/DELA.21 # # $m4 _____include(_____xiirv/.DELA.21.1._____U) # # # # :Fin_listG_DELA_21: # # # v $xiirv/DELA.21.1 v $xiirv/DELA.21.1$COORD_X p=$xiP/cercle.35 v $xiirv/DELA.21.1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_DELA_21_1: # # # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/DELA.21 # # $Z set _____ImageR=$_____ImageA.1 # # $Z set _____ImageP=$_____ImageR # # $m4 _____include(_____xiirv/.DELA.11.2._____U) # # # # $Z $DELETE $_____ImageR$COORD_X # # $Z $DELETE $_____ImageR$COORD_Y # # # # :Fin_listG_DELA_21_1: # # # v $xiirv/DEMO.11 # Demonstration utilisant dans l'ordre les images suivantes : # # # # NUCL.LD.2$DROITE$D # # LYAP.33.10000$D # # LORE.17$D # # PAYS.1C.7$Fi$D # # RECU.76.80$ROUGE$D # # UNIV.32$D # # JULI.b1.0057$D # # HYDR.21.86$D # # NCOR.L1.0242$D # # PART.22$D # # PAYS.F2$M$D # # JULI.b1.0051$D # # RDNW.51.0512$D # # MAND.31$D # # FLUI.32 # # ESCA.51$GAUCHE$D # # # # en utilisant la "terminologie" de '$xiMi' et en generant a l'aide de 'MBestOf' en creant # # dans '$xiMh' un faux histogramme contenant la liste precedente ('v $xiMo/serveur.01$Y'). # v $xiirv/DEMO.21 # Demonstration utilisant dans l'ordre les images suivantes : # # # # NUCL.LD.2$DROITE$D # # HY.6d.0020$DROITE$D # # HYDR.21.86$D # # RDNW.51.0512$D # # UNIV.32$D # # MAND.31$D # # PAYS.1C.7$Fi$D # # LYAP.33.10000$D # # NCOR.L1.0242$D # # ESCA.52$GAUCHE$D # # PAYS.F2$M$D # # LORE.17$D # # PART.22$D # # JULI.b1.0051$D # # RECU.76.80$ROUGE$D # # FLUI.32$D # # # # suivant le principe de '$xiirv/DEMO.11'. Cette image est a "lire" dans le sens # # trigonometrique, les petites echelles ('NUCL.LD.2$DROITE$D') rejoignant les grandes # # echelles ('UNIV.32$D'). # # Aux environs du 20031227151752, l'image {$xiirv/DEMO.31$R16,$xiirv/DEMO.31$R64} a change # # de nom (en {$xiav/DEMO.31$R16,$xiav/DEMO.31$R64}) a cause de ce principe contraignant les # # animations a appartenir a un directory de l'arborescence '$xia', ceci etant realise dans # # 'v $xiMo/creation$Z 20031227151752'... # v $xiirv/DENS.11 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_DENS_11: # # # # $Z Pal # # # # $Z $DELETE $xTV/COORDONNEES$COORD_X # # # # $Z echo 0.3 >>! $xTV/COORDONNEES$COORD_X # # $Z echo 0.7 >>! $xTV/COORDONNEES$COORD_X # # $Z echo 0.1 >>! $xTV/COORDONNEES$COORD_X # # $Z echo 0.9 >>! $xTV/COORDONNEES$COORD_X # # # # $Z $DELETE $xTV/COORDONNEES$COORD_Y # # # # $Z echo 0.2 >>! $xTV/COORDONNEES$COORD_Y # # $Z echo 0.4 >>! $xTV/COORDONNEES$COORD_Y # # $Z echo 0.8 >>! $xTV/COORDONNEES$COORD_Y # # $Z echo 0.7 >>! $xTV/COORDONNEES$COORD_Y # # # # $Z $xrv/densite.01$X \ # # $Z ne=0 \ # # $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ # # $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ # # $Z LISTE_Z=0 \ # # $Z Z=0.1 \ # # $Z Ek=1000000 \ # # $Z sphere=0 taxi_multiplication=1 \ # # $Z R=$xTV/DENSITE \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DENSITE \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/arc_ciel.A1 \ # # $Z R=$xTV/TEXTURE \ # # $Z $formatI # # # # $Z set PaRaM="$K_VIDE" # # $Z set PaRaM="$PaRaM"" A=$xTV/DENSITE standard=FAUX zero=FAUX" # # $Z set PaRaM="$PaRaM"" T=$xTV/TEXTURE%s" # # $Z set PaRaM="$PaRaM"" avion=VRAI" # # # # $Z execRVB $xci/montagne.01$X $PaRaM R=$xiirv/DENS.11%s $formatI # # # # :Fin_listG_DENS_11: # # # v $xiirv/DEPT.15$M # Pour avoir plus d'informations sur ces images, voir les commentaires de la sequence video : # # # # xivPdf 2 2 / 004320_004447 # # # # cette image en etant la premiere. Il s'agit d'une visualisation avec effet de profondeur # # de champ (avec premier plan net). # v $xiirv/DEPT.15$M$DROITE v $xiirv/DEPT.15$M$GAUCHE # Ce couple d'images est la version stereo de l'image '$xiirv/DEPT.15$M'. Malheureusement, # # le calcul est effectue en laissant fixe l'observateur et la source lumineuse, et en faisant # # tourner le champ ; les ombres sont donc par endroit incoherentes. La bonne solution serait # # de ne faire tourner que l'observateur, ce qui est difficile, vu le principe de la fonction # # 'Imontagnes(...)' de '$xiii/montagnes$FON'. # v $xiirv/DEPT.25$M v $xiirv/DEPT.45$M # Pour plus d'informations sur cette image, voir les commentaires de la sequence video : # # # # xivPdf 2 2 / 004576_004703 # # # # cette image en etant la premiere. Il s'agit d'une visualisation avec effet de profondeur # # de champ (avec plan central net). # # # # Enfin, '$xiirv/DEPT.45$M' est obtenue en rehaussant la luminance a l'aide de la commande # # '$xci/substitue$Z' avec la palette '$xiP/gris.11'. # v $xiirv/DEPT.25$M$DROITE v $xiirv/DEPT.25$M$GAUCHE # Ce couple d'images est la version stereo de l'image '$xiirv/DEPT.25$M'. Malheureusement, # # le calcul est effectue en laissant fixe l'observateur et la source lumineuse, et en faisant # # tourner le champ ; les ombres sont donc par endroit incoherentes. La bonne solution serait # # de ne faire tourner que l'observateur, ce qui est difficile, vu le principe de la fonction # # 'Imontagnes(...)' de '$xiii/montagnes$FON'. # v $xiirv/DEPT.35$M$STEREO # Version anaglyphique du couple ('$xiirv/DEPT.25$M$DROITE','$xiirv/DEPT.25$M$GAUCHE'). # v $xiirv/DEPT.26$M$DROITE v $xiirv/DEPT.26$M$GAUCHE # Ce couple d'images correspond au couple ($xiirv/DEPT.25$M$DROITE,$xiirv/DEPT.25$M$GAUCHE) # # en placant la source lumineuse pratiquement a la verticale du champ ("sx=1.0 sy=1000.0") ce # # qui permet d'eliminer pratiquement les ombres portees et ainsi resoudre le probleme evoque # # ci-dessus... # v $xiirv/DEPT.36$M$STEREO # Version anaglyphique du couple ('$xiirv/DEPT.26$M$DROITE','$xiirv/DEPT.26$M$GAUCHE'). # v $xiirv/DIAG.11.1 p=$xiP/gris.01 v $xiirv/DIAG.11.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_DIAG_11: # # # # $Z Suh # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/DIAG.11 # # $m4 _____include(_____xiirv/.DIAG.11._____U) # # # # :Fin_listG_DIAG_11: # # # # # # Visualisation du procede diagonal de Georges Cantor destine a montrer que le cardinal de R # # est strictement superieur au cardinal de N. Les conventions de coloriage sont les # # suivantes : # # # # noir : bits 0 (a priori), # # gris : bits 1 (a priori), # # # # rouge : bits 0 de la diagonale, # # blanc : bits 1 de la diagonale. # # # v $xiirv/DISD.11 p=$xiP/fractal.91 d=2 NOIR=VRAI animation=VRAI # Ces images ont ete obtenues a partir de la sequence : # # # # xivPdf 6 2 / 012648_012775 # # # # par accumulation avec '$xci/accumule.01$X'. # v $xiirv/DISD.11$m # Cette image a ete obtenue par : # # # # Std # # $xci/vraies_C$X A=$xiirv/DISD.11 \ # # p=$xiP/fractal.91 \ # # RR=$xT/DISD$ROUGE \ # # RV=$xT/DISD$VERTE \ # # RB=$xT/DISD$BLEUE \ # # $formatI # # $xci/substitue$X A=$xT/DISD.? \ # # substitution=L_SUBSTITUTION_02 \ # # R=$xT/DISD.? \ # # $formatI # # $xci/montagne.01$X A=$xiirv/DISD.11 \ # # T=$xT/DISD.? \ # # avion=VRAI \ # # R=$xiirv/DISD.11$m.? \ # # $formatI # # # v $xiirv/DOMI.11.1 p=$xiP/dominos.01 v $xiirv/DOMI.11.3 p=$xiP/dominos.01 v $xiirv/DOMI.11.5 p=$xiP/dominos.01 v $xiirv/DOMI.11.6 p=$xiP/dominos.01 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_DOMI_11: # # # # $Z Sdu # # # # $Z set _____ImagesR=$xiirv/DOMI.11 # # # # $Z set MeThOdE=1 # # $Z $xrk/dominos.01$X \ # # $Z mode=$MeThOdE \ # # $Z seuil=0.6451 \ # # $Z R=$_____ImagesR.$MeThOdE \ # # $Z $formatI # # # # NombreRectangles.=8186 # # NombreRectanglesH=4086 (49.91%) # # NombreRectanglesV=4100 (50.09%) # # NombreSitesInaccessibles=12 # # # # # # $Z set MeThOdE=3 # # $Z $xrk/dominos.01$X \ # # $Z mode=$MeThOdE \ # # $Z seuil=0.361 \ # # $Z R=$_____ImagesR.$MeThOdE \ # # $Z $formatI # # # # NombreRectangles.=8185 # # NombreRectanglesH=4094 (50.02%) # # NombreRectanglesV=4091 (49.98%) # # NombreSitesInaccessibles=14 # # # # # # $Z set MeThOdE=5 # # $Z $xrk/dominos.01$X \ # # $Z mode=$MeThOdE \ # # $Z seuil=0.759 \ # # $Z R=$_____ImagesR.$MeThOdE \ # # $Z $formatI # # # # NombreRectangles.=8127 # # NombreRectanglesH=4069 (50.07%) # # NombreRectanglesV=4058 (49.93%) # # NombreSitesInaccessibles=130 # # # # # # $Z set MeThOdE=6 # # $Z $xrk/dominos.01$X \ # # $Z mode=$MeThOdE \ # # $Z seuil=0.5 \ # # $Z R=$_____ImagesR.$MeThOdE \ # # $Z $formatI # # # # NombreRectangles.=7445 # # NombreRectanglesH=3725 (50.03%) # # NombreRectanglesV=3720 (49.97%) # # NombreSitesInaccessibles=1494 # # # # :Fin_listG_DOMI_11: # # # # # # Ces images montrent le pavage d'un domaine carre avec des rectangles 1x2. # v $xiirv/DOMI.21.1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_DOMI_21_1: # # # # $Z Sdu # # # # $Z set _____ImageR=$xiirv/DOMI.21 # # # # $Z set _____nH=`GetParam $xrk/dominos.01$X nH` # # $Z set _____nV=`GetParam $xrk/dominos.01$X nV` # # # # $Z set _____Methode=1 # # $Z set _____Seuil=0.60 # # # # $Z set _____Palette=$xiP/random.91$Fi # # # # $Z set nGH=`GetParam $xrk/dominos.01$X nH` # # $Z set nGV=`GetParam $xrk/dominos.01$X nV` # # # # $m4 _____include(_____xiirv/.DOMI.21.1._____U) # # # # :Fin_listG_DOMI_21_1: # # # # # # Ces images montrent le pavage d'un domaine carre avec des rectangles 1x2 avec marquage # # des amas de rectangles verticaux : # # # # NombreRectangles.=8186 # # NombreRectanglesH=3686 (45.03%) # # NombreRectanglesV=4500 (54.97%) # # NombreSitesInaccessibles=12 # # # v $xiirv/DOMI.21.3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_DOMI_21_3: # # # # $Z Sdu # # # # $Z set _____ImageR=$xiirv/DOMI.21 # # # # $Z set _____nH=`GetParam $xrk/dominos.01$X nV` # # $Z set _____nV=`GetParam $xrk/dominos.01$X nH` # # # # $Z set _____Methode=3 # # $Z set _____Seuil=0.40 # # # # $Z set _____Palette=$xiP/random.91$Fi # # # # $Z set nGH=`GetParam $xrk/dominos.01$X nV` # # $Z set nGV=`GetParam $xrk/dominos.01$X nH` # # # # $m4 _____include(_____xiirv/.DOMI.21.1._____U) # # # # :Fin_listG_DOMI_21_3: # # # # # # Ces images montrent le pavage d'un domaine carre avec des rectangles 1x2 avec marquage # # des amas de rectangles horizontaux : # # # # NombreRectangles.=8186 # # NombreRectanglesH=4414 (53.92%) # # NombreRectanglesV=3772 (46.08%) # # NombreSitesInaccessibles=12 # # # v $xiirv/DOMI.31.1 v $xiirv/DOMI.31.1.h v $xiirv/DOMI.31.1.v # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_DOMI_31_1: # # # # $Z Sdu # # # # $Z set _____ImageR=$xiirv/DOMI.31 # # # # $Z set _____nH=`GetParam $xrk/dominos.01$X nH` # # $Z set _____nV=`GetParam $xrk/dominos.01$X nV` # # # # $Z set _____Methode=1 # # $Z set _____Seuil=0.6451 # # # # set _____Palette=$xiP/random.08 # # $Z set _____Palette=$xiP/etching.22 # # $Z set _____Palette1=$xiP/etching.22.1 # # $Z set _____Palette2=$xiP/etching.22.2 # # # # $Z set nGH=`GetParam $xrk/dominos.01$X nH` # # $Z set nGV=`GetParam $xrk/dominos.01$X nV` # # # # $m4 _____include(_____xiirv/.DOMI.31.1._____U) # # # # :Fin_listG_DOMI_31_1: # # # # # # Ces images montrent le pavage d'un domaine carre avec des rectangles 1x2 avec marquage # # des amas de rectangles verticaux et horizontaux : # # # # NombreRectangles.=8186 # # NombreRectanglesH=4086 (49.91%) # # NombreRectanglesV=4100 (50.09%) # # NombreSitesInaccessibles=12 # # # v $xiirv/DOMI.31.1$IdM # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_DOMI_31_1_IdM: # # # # $Z TvB # # # # $Z set _____ImageR=$xiirv/DOMI.31$IdM # # # # $Z set _____nH=`GetParam $xrk/dominos.01$X nH` # # $Z set _____nV=`GetParam $xrk/dominos.01$X nV` # # # # $Z set _____Methode=1 # # $Z set _____Seuil=0.6451 # # # # set _____Palette=$xiP/random.08 # # $Z set _____Palette=$xiP/etching.22 # # $Z set _____Palette1=$xiP/etching.22.1 # # $Z set _____Palette2=$xiP/etching.22.2 # # # # $Z set nGH=`GetParam $xrk/dominos.01$X nH` # # $Z set nGV=`GetParam $xrk/dominos.01$X nV` # # # # $Z set _____DominosParam="$K_VIDE" # # $Z set _____DominosParam="$_____DominosParam"" messages_dimensionnement=FAUX" # # # # $m4 _____include(_____xiirv/.DOMI.31.1._____U) # # # # $Z execRVB $DELETE $xiirv/DOMI.31$IdM.$_____Methode.h%s # # $Z execRVB $DELETE $xiirv/DOMI.31$IdM.$_____Methode.v%s # # # # :Fin_listG_DOMI_31_1_IdM: # # # # # # Ces images montrent le pavage d'un domaine carre avec des rectangles 1x2 avec marquage # # des amas de rectangles verticaux et horizontaux : # # # # NombreRectangles.=11190 # # NombreRectanglesH=5622 (50.24%) # # NombreRectanglesV=5568 (49.76%) # # # v $xiirv/ENIGME.11.aide v $xiirv/ENIGME.11 p=$xiP/masque # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_ENIGME_11: # # # # $Z Std # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/format.01$X \ # # $Z A=$xiio/CADRE$R04 \ # # $Z $formatI \ # # $Z mode=0 \ # # $Z R=$xiirv/ENIGME.11.aide$ROUGE \ # # $Z $formatR_Sdu # # # # $Z Sdu # # # # $Z $xci/dilate.01$X \ # # $Z A=$xiit/DELAHAYE.JEAN_PAUL.CRYPTOGRAPHIE.11 \ # # $Z eroder=VRAI \ # # $Z points=9 \ # # $Z R=$xiirv/ENIGME.11.aide$VERTE \ # # $Z $formatI # # # # $Z $xci/init$X \ # # $Z niveau=$NOIR \ # # $Z R=$xiirv/ENIGME.11.aide$BLEUE \ # # $Z $formatI # # # # $Z $xci/format.01$X \ # # $Z A=$xiit/DELAHAYE.JEAN_PAUL.CRYPTOGRAPHIE.11 \ # # $Z $formatI \ # # $Z mode=0 \ # # $Z R=$xTV/ENIGME.11 \ # # $Z $formatR_Std # # # # $Z Std # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/ENIGME.11 \ # # $Z $formatI \ # # $Z mode=5 \ # # $Z R=$xTV/ENIGME.11.12 \ # # $Z $formatR_Sud # # $Z $xci/format.01$X \ # # $Z A=$xTV/ENIGME.11 \ # # $Z $formatI \ # # $Z mode=6 \ # # $Z R=$xTV/ENIGME.11.11 \ # # $Z $formatR_Sud # # # # $Z Sud # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/ENIGME.11.12 \ # # $Z $formatI \ # # $Z mode=5 \ # # $Z R=$xTV/ENIGME.11.12.12 \ # # $Z $formatR_Suq # # $Z $xci/format.01$X \ # # $Z A=$xTV/ENIGME.11.11 \ # # $Z $formatI \ # # $Z mode=4 \ # # $Z R=$xTV/ENIGME.11.11.22 \ # # $Z $formatR_Suq # # # # $Z Suq # # # # $Z $xci/rotate$X \ # # $Z angle=$pi \ # # $Z A=$xTV/ENIGME.11.12.12 \ # # $Z R=$xTV/ENIGME.11.12.12.pi \ # # $Z $formatI # # $Z $xci/scroll$X \ # # $Z A=$xTV/ENIGME.11.11.22 \ # # $Z trX=0.01 \ # # $Z trY=0.04 \ # # $Z R=$xTV/ENIGME.11.11.22.1 \ # # $Z $formatI # # $Z $xci/eor$X \ # # $Z A1=$xTV/ENIGME.11.12.12.pi \ # # $Z A2=$xTV/ENIGME.11.11.22.1 \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xiirv/ENIGME.11 \ # # $Z $formatI # # # # :Fin_listG_ENIGME_11: # # # # # # Cette image correspond a une enigme proposee par Jean-Paul Delahaye dans son article # # sur la "Cryptographie Visuelle" du numero de juin 2012 de Pour La Science. L'image # # 'v $xiit/DELAHAYE.JEAN_PAUL.CRYPTOGRAPHIE.11 p=$xiP/masque' contient a la fois le masque # # aleatoire de cryptage et le secret ("SRINIVASA", le prenom de Ramanujan). # # # # Ci-dessus, les sous-images sont notees matriciellement : # # # # --------- # # | | | # # | 11 | 12 | # # | | | # # |---------| # # | | | # # | 21 | 22 | # # | | | # # --------- # # # # et ce de facon recursive... # # # # L'image 'v $xiirv/ENIGME.11.aide' est celle qui a permis de decouvrir le secret. En effet, # # apres erosion isotrope de 'v $xiit/DELAHAYE.JEAN_PAUL.CRYPTOGRAPHIE.11 p=$xiP/masque' # # (et donc apres "simplification" independante de l'orientation et de la localisation), # # sur la barre rouge horizontale du milieu, a gauche du centre, on peut voir une forme (1) : # # # # * # # * * # # * * # # * * # # ** * # # * * # # * # # ** # # * # # # # qui se retrouve tournee de 'pi' sur la barre rouge superieure au milieu de sa moitie de # # droite (2). La forme (1) appartient a l'image cryptee a l'aide du "ou exclusif", alors # # que la forme (2) appartient au masque binaire aleatoire de cryptage (ou l'inverse ?)... # v $xiirv/ENPO.H0 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_ENPO_H0: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NDecimales=1000 # # $Z set _____FDecimales=$xrp/Decimales_Base10_E_____100000 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ParticulePara="projection_parallele=VRAI" # # $Z set _____ImageR=$xiirv/ENPO.H0 # # $m4 _____include(_____xiirv/.PIPO.H1.1._____U) # # # # :Fin_listG_ENPO_H0: # # # # # # qui montre les premieres decimales de 'en' sur une helice (vue dans l'axe de l'helice) et # # en projection parallele... # v $xiirv/ENPO.H1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_ENPO_H1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NDecimales=1000 # # $Z set _____FDecimales=$xrp/Decimales_Base10_E_____100000 # # $Z set _____Palette=$xiP/arc_ciel.B2 # # $Z set _____ImageR=$xiirv/ENPO.H1 # # $m4 _____include(_____xiirv/.PIPO.H1.1._____U) # # # # :Fin_listG_ENPO_H1: # # # # # # qui montre les premieres decimales de 'en' sur une helice (vue dans l'axe de l'helice). # v $xiirv/ENPO.H2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_ENPO_H2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NDecimales=1000 # # $Z set _____FDecimales=$xrp/Decimales_Base10_E_____100000 # # $Z set _____RotationY=$pis4 # # $Z set _____Palette=$xiP/arc_ciel.B2 # # $Z set _____ImageR=$xiirv/ENPO.H2 # # $m4 _____include(_____xiirv/.PIPO.H1.1._____U) # # # # :Fin_listG_ENPO_H2: # # # # # # qui montre les premieres decimales de 'en' sur une helice (vue de cote). # v $xiirv/EQUI.11 # Generee (sur '$LACT19') par : # # # # :Debut_listG_EQUI_11: # # # # $Z Pal # # # # $Z $DELETE $xTV/COORDONNEES$COORD_X # # $Z $DELETE $xTV/COORDONNEES$COORD_Y # # $Z $DELETE $xTV/COORDONNEES$COORD_Z # # # # $Z set CoTe=0.8 # # # # $Z set X_0=0.50 # # $Z set Y_0=0.15 # # $Z set Z_0=0.00 # # # # $Z set X_A=`calcul $X_0-($CoTe/2)` # # $Z set Y_A=$Y_0 # # $Z set Z_A=$Z_0 # # # # $Z set X_B=`calcul $X_0+($CoTe/2)` # # $Z set Y_B=$Y_0 # # $Z set Z_B=$Z_0 # # # # $Z set X_C=$X_0 # # $Z set Y_C=`calcul $Y_0+($CoTe*(sqrt(3)/2))` # # $Z set Z_C=$Z_0 # # # # $Z set Npoints=4 # # # # $Z echo $X_A >>! $xTV/COORDONNEES$COORD_X # # $Z echo $Y_A >>! $xTV/COORDONNEES$COORD_Y # # $Z echo $Z_A >>! $xTV/COORDONNEES$COORD_Z # # # # $Z echo $X_B >>! $xTV/COORDONNEES$COORD_X # # $Z echo $Y_B >>! $xTV/COORDONNEES$COORD_Y # # $Z echo $Z_B >>! $xTV/COORDONNEES$COORD_Z # # # # $Z echo $X_C >>! $xTV/COORDONNEES$COORD_X # # $Z echo $Y_C >>! $xTV/COORDONNEES$COORD_Y # # $Z echo $Z_C >>! $xTV/COORDONNEES$COORD_Z # # # # $Z echo $X_A >>! $xTV/COORDONNEES$COORD_X # # $Z echo $Y_A >>! $xTV/COORDONNEES$COORD_Y # # $Z echo $Z_A >>! $xTV/COORDONNEES$COORD_Z # # # # $Z $xrv/particule.10$X np=1 iterations=$Npoints \ # # $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ # # $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ # # $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ # # $Z LISTE_RAYON=0.01 \ # # $Z LISTE_ROUGE=$BLANC \ # # $Z LISTE_VERTE=$BLANC \ # # $Z LISTE_BLEUE=$BLANC \ # # $Z Lz=1000 \ # # $Z zoom_automatique=FAUX ZOOM=1.4 \ # # $Z isoles=FAUX chainer=VRAI equidistance=VRAI \ # # $Z N_au_carre=VRAI \ # # $Z editer_extrema_hors=FAUX \ # # $Z RVB=VRAI \ # # $Z chiffres=0 \ # # $Z R=$xiirv/EQUI.11 \ # # $Z $formatI # # # # :Fin_listG_EQUI_11: # # # v $xiirv/ENSE.11.1 v $xiirv/ENSE.11.2 v $xiirv/ENSE.11.3 v $xiirv/ENSE.11.5 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_ENSE_11: # # # # $Z Pal # # # # $Z set _____gImageR=$xiirv/ENSE.11 # # $Z set _____ImageR=$_____gImageR.4 # # # # $Z execRVB $xci/init$X \ # # $Z n=$NOIR \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # $Z set _____RayonE1=0.15 # # $Z set _____CentreE1Y=0.3 # # $Z set _____RayonE2=0.15 # # $Z set _____CentreE2Y=0.3 # # # # $Z set _____RayonE3=0.15 # # $m4 _____include(_____xiirv/.BIJE.11.1._____U) # # # # $Z set _____Zoom=$_____ZoomB # # $Z set _____Rouge=$GRIS_4 # # $Z set _____Verte=$GRIS_4 # # $Z set _____Bleue=$GRIS_4 # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" AXYZ=`GetParam $xrv/particule.10$X AXYZ`" # # $Z set PaRaMC="$PaRaMC"" BXYZ=`GetParam $xrv/particule.10$X BXYZ`" # # $Z set PaRaMC="$PaRaMC"" fond=VRAI F=$_____ImageR" # # $Z set _____ParticuleParaC="$PaRaMC" # # # # $Z set _____X=$_____CentreE1X # # $Z set _____Y=$_____CentreE1Y # # $Z set _____Rayon=`calcul sqrt(2)*$_____RayonE1` # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CERC.11.1._____U) # # # # $Z set _____X=$_____CentreE2X # # $Z set _____Y=$_____CentreE2Y # # $Z set _____Rayon=`calcul sqrt(2)*$_____RayonE2` # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CERC.11.1._____U) # # # # Trace des enveloppes des deux sous-ensembles 'SE1' et 'SE2'. # # # # $Z set _____ImageR=$_____gImageR.3 # # # # $Z execRVB $xci/init$X \ # # $Z n=$NOIR \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # $Z set _____NPointsE1=4 # # $Z set _____NPointsE2=3 # # # # $m4 _____include(_____xiirv/.BIJE.11.2._____U) # # $m4 _____include(_____xiirv/.BIJE.11.4._____U) # # # # $Z execRVB $xci/or_02$X \ # # $Z A1=$_____gImageR.4%s \ # # $Z A2=$_____gImageR.3%s \ # # $Z R=$_____gImageR.3%s \ # # $Z $formatI # # # # Trace des points et des enveloppes des deux sous-ensembles 'SE1' et 'SE2'. # # # # $Z set _____ImageR=$_____gImageR.1 # # # # $Z execRVB $xci/init$X \ # # $Z n=$NOIR \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # $Z set _____CentreE3X=0.5 # # $Z set _____CentreE3Y=0.7 # # # # $Z set _____NPointsE1=7 # # $Z set _____NPointsE2=9 # # # # $Z set S_____CentreE1X=$_____CentreE1X # # $Z set S_____CentreE1Y=$_____CentreE1Y # # # # $Z set S_____CentreE2X=$_____CentreE2X # # $Z set S_____CentreE2Y=$_____CentreE2Y # # # # $Z set _____CentreE1X=$_____CentreE3X # # $Z set _____CentreE1Y=$_____CentreE3Y # # # # $Z set _____CentreE2X=$_____CentreE3X # # $Z set _____CentreE2Y=$_____CentreE3Y # # # # $Z set _____ImageR=$_____gImageR.1 # # # # $Z execRVB $xci/init$X \ # # $Z n=$NOIR \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.BIJE.11.2._____U) # # $m4 _____include(_____xiirv/.BIJE.11.4._____U) # # # # $Z set _____X=$_____CentreE3X # # $Z set _____Y=$_____CentreE3Y # # $Z set _____Rayon=`calcul sqrt(2)*$_____RayonE3` # # # # $Z set _____ParticuleParaC="$PaRaMC" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" fond=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" F=$_____ImageR" # # # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CERC.11.1._____U) # # # # $Z set _____CentreE1X=$S_____CentreE1X # # $Z set _____CentreE1Y=$S_____CentreE1Y # # # # $Z set _____CentreE2X=$S_____CentreE2X # # $Z set _____CentreE2Y=$S_____CentreE2Y # # # # $Z execRVB $xci/or_02$X \ # # $Z A1=$_____gImageR.1%s \ # # $Z A2=$_____gImageR.3%s \ # # $Z R=$_____gImageR.2%s \ # # $Z $formatI # # # # $Z echo "$_____CentreE3X $_____CentreE1X $_____CentreE3X $_____CentreE2X" | \ # # $Z $AW ' { print $1 "\n" $2 "\n" $3 "\n" $4 } ' \ # # $Z > $Fpoints.E1E2E3$COORD_X # # # # $Z echo "$_____CentreE3Y $_____CentreE1Y $_____CentreE3Y $_____CentreE2Y" | \ # # $Z $AW ' { print $1 "\n" $2 "\n" $3 "\n" $4 } ' \ # # $Z > $Fpoints.E1E2E3$COORD_Y # # # # $Z set Npoints123X=`$CA $Fpoints.E1E2E3$COORD_X | $WCl` # # $Z set Npoints123Y=`$CA $Fpoints.E1E2E3$COORD_Y | $WCl` # # $Z set Npoints123=`$xcg/MIN2.01$X x=$Npoints123X y=$Npoints123Y` # # # # $Z $xrv/particule.10$X \ # # $Z np=1 \ # # $Z iterations=$Npoints123 \ # # $Z LISTE_X=$Fpoints.E1E2E3$COORD_X \ # # $Z LISTE_Y=$Fpoints.E1E2E3$COORD_Y \ # # $Z LISTE_Z=$_____CoordonneeZ \ # # $Z LISTE_RAYON=$_____RayonB \ # # $Z LISTE_ROUGE=$_____RougeB \ # # $Z LISTE_VERTE=$_____VerteB \ # # $Z LISTE_BLEUE=$_____BleueB \ # # $Z ZOOM=$_____ZoomB \ # # $Z isoles=FAUX \ # # $Z Pajuster=VRAI \ # # $Z equidistance=VRAI dm=$_____DistanceMin \ # # $Z Lz=100 \ # # $Z editer_extrema_hors=FAUX \ # # $Z fond=VRAI F=$_____gImageR.2 \ # # $Z $_____ParticuleParaB \ # # $Z chiffres=0 \ # # $Z R=$_____gImageR.2 \ # # $Z $formatI # # # # Trace des points et de l'enveloppe de l'ensemble 'E'. # # # # $Z set LoNgUeUrAB=1.25 # # $Z set LoNgUeUrAC=0.50 # # # # $Z set PoInTAX=`calcul $_____CentreE3X-($LoNgUeUrAB/2)` # # $Z set PoInTBX=`calcul $_____CentreE3X+($LoNgUeUrAB/2)` # # $Z set PoInTCX=$PoInTBX # # $Z set PoInTDX=$PoInTAX # # # # $Z set PoInTAY=`calcul $_____CentreE1Y-($LoNgUeUrAC/2)` # # $Z set PoInTBY=$PoInTAY # # $Z set PoInTCY=`calcul $_____CentreE1Y+($LoNgUeUrAC/2)` # # $Z set PoInTDY=$PoInTCY # # # # $Z echo "$PoInTAX $PoInTBX $PoInTCX $PoInTDX $PoInTAX" | \ # # $Z $AW ' { print $1 "\n" $2 "\n" $3 "\n" $4 "\n" $5 } ' \ # # $Z > $Fpoints.RECTANGLE$COORD_X # # # # $Z echo "$PoInTAY $PoInTBY $PoInTCY $PoInTDY $PoInTAY" | \ # # $Z $AW ' { print $1 "\n" $2 "\n" $3 "\n" $4 "\n" $5 } ' \ # # $Z > $Fpoints.RECTANGLE$COORD_Y # # # # $Z set NpointsRX=`$CA $Fpoints.RECTANGLE$COORD_X | $WCl` # # $Z set NpointsRY=`$CA $Fpoints.RECTANGLE$COORD_Y | $WCl` # # $Z set NpointsR=`$xcg/MIN2.01$X x=$NpointsRX y=$NpointsRY` # # # # $Z set _____ParticuleParaC="$PaRaMC" # # # # $Z $xrv/particule.10$X \ # # $Z np=1 \ # # $Z iterations=$NpointsR \ # # $Z LISTE_X=$Fpoints.RECTANGLE$COORD_X \ # # $Z LISTE_Y=$Fpoints.RECTANGLE$COORD_Y \ # # $Z LISTE_Z=$_____CoordonneeZ \ # # $Z LISTE_RAYON=$_____Epaisseur \ # # $Z LISTE_ROUGE=$_____Rouge \ # # $Z LISTE_VERTE=$_____Verte \ # # $Z LISTE_BLEUE=$_____Bleue \ # # $Z ZOOM=$_____Zoom \ # # $Z isoles=FAUX chainer=VRAI \ # # $Z Pajuster=VRAI \ # # $Z equidistance=VRAI dm=$_____DistanceMin \ # # $Z Lz=100 \ # # $Z editer_extrema_hors=FAUX \ # # $Z fond=VRAI F=$_____gImageR.4 \ # # $Z $_____ParticuleParaC \ # # $Z chiffres=0 \ # # $Z R=$_____gImageR.5 \ # # $Z $formatI # # # # $Z set PoInTs_C=25 # # # # $Z set exec_aR="niveau=$_____RougeP1" # # $Z set exec_aV="niveau=$_____VerteP1" # # $Z set exec_aB="niveau=$_____BleueP1" # # # # $Z execRVB $xci/contours.12$X \ # # $Z A=$_____gImageR.5%s \ # # $Z seuil=$NOIR_PLANCHER \ # # $Z XI=$_____CentreE1X YI=$_____CentreE1Y \ # # $Z R=$xTV/CONTOUR.E1%s \ # # $Z $formatI # # $Z execRVB "$xci/dilate.01$X \ # # $Z A=$xTV/CONTOUR.E1%s \ # # $Z dilater=VRAI \ # # $Z points=$PoInTs_C \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z A=$_____gImageR.5%s \ # # $Z anti_aliasing=VRAI \ # # $Z R=$_____gImageR.5%s \ # # $Z $formatI" # # # # $Z set exec_aR="niveau=$_____RougeP2" # # $Z set exec_aV="niveau=$_____VerteP2" # # $Z set exec_aB="niveau=$_____BleueP2" # # # # $Z execRVB $xci/contours.12$X \ # # $Z A=$_____gImageR.5%s \ # # $Z seuil=$NOIR_PLANCHER \ # # $Z XI=$_____CentreE2X YI=$_____CentreE2Y \ # # $Z R=$xTV/CONTOUR.E2%s \ # # $Z $formatI # # $Z execRVB "$xci/dilate.01$X \ # # $Z A=$xTV/CONTOUR.E2%s \ # # $Z dilater=VRAI \ # # $Z points=$PoInTs_C \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z A=$_____gImageR.5%s \ # # $Z anti_aliasing=VRAI \ # # $Z R=$_____gImageR.5%s \ # # $Z $formatI" # # # # $Z set PaRaMC="$K_VIDE" # # $Z set PaRaMC="$PaRaMC"" AXYZ=`GetParam $xrv/particule.10$X AXYZ`" # # $Z set PaRaMC="$PaRaMC"" BXYZ=`GetParam $xrv/particule.10$X BXYZ`" # # $Z set PaRaMC="$PaRaMC"" fond=VRAI F=$_____gImageR.5" # # $Z set _____ParticuleParaC="$PaRaMC" # # # # $Z set _____X=$_____CentreE1X # # $Z set _____Y=$_____CentreE1Y # # $Z set _____Rayon=`calcul sqrt(2)*$_____RayonE1` # # $Z set _____ImagesR=$_____gImageR.5 # # $m4 _____include(_____xiirv/.CERC.11.1._____U) # # # # $Z set _____X=$_____CentreE2X # # $Z set _____Y=$_____CentreE2Y # # $Z set _____Rayon=`calcul sqrt(2)*$_____RayonE2` # # $Z set _____ImagesR=$_____gImageR.5 # # $m4 _____include(_____xiirv/.CERC.11.1._____U) # # # # Trace de l'ensemble des deux sous-ensembles 'SE1' et 'SE2' et de leur enveloppe. # # # # $Z execRVB $DELETE $_____gImageR.4%s # # # # # # :Fin_listG_ENSE_11: # # # # # # qui montre la notion de sous-ensemble... # v $xiirv/ENTR.11 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_ENTR_11: # # # # $Z set _____NParticule=200 # # $Z set _____ImageR=$xiirv/ENTR.11 # # $m4 _____include(_____xiirv/.ENTR.11.1._____U) # # # # :Fin_listG_ENTR_11: # # # # # # qui montre un entrelacs. # v $xiirv/ENTR.12 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_ENTR_12: # # # # $Z set _____NParticule=100 # # $Z set _____NDuplication=5 # # $Z set _____ImageR=$xiirv/ENTR.12 # # $m4 _____include(_____xiirv/.ENTR.11.1._____U) # # # # :Fin_listG_ENTR_12: # # # # # # qui montre un entrelacs. # v $xiirv/ENTR.21 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_ENTR_21: # # # # $Z set _____NParticule=100 # # $Z set _____NDuplication=5 # # $Z set _____RayonSup=0.04 # # $Z set _____Niveau1R_D=$GRIS_1 # # $Z set _____Niveau1R_A=$GRIS_8 # # $Z set _____Niveau2R_D=$GRIS_1 # # $Z set _____Niveau2R_A=$GRIS_8 # # $Z set _____Niveau3R_D=$GRIS_1 # # $Z set _____Niveau3R_A=$GRIS_8 # # $Z set _____Niveau1V_D=$GRIS_1 # # $Z set _____Niveau1V_A=$GRIS_8 # # $Z set _____Niveau2V_D=$GRIS_1 # # $Z set _____Niveau2V_A=$GRIS_8 # # $Z set _____Niveau3V_D=$GRIS_1 # # $Z set _____Niveau3V_A=$GRIS_8 # # $Z set _____Niveau1B_D=$GRIS_1 # # $Z set _____Niveau1B_A=$GRIS_8 # # $Z set _____Niveau2B_D=$GRIS_1 # # $Z set _____Niveau2B_A=$GRIS_8 # # $Z set _____Niveau3B_D=$GRIS_1 # # $Z set _____Niveau3B_A=$GRIS_8 # # $Z set _____ImageR=$xiirv/ENTR.21 # # $m4 _____include(_____xiirv/.ENTR.11.1._____U) # # # # :Fin_listG_ENTR_21: # # # # # # qui montre un entrelacs. # v $xiirv/ENTR.21.1$m # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_ENTR_21_1_m: # # # # $Z $xci/gauss$X \ # # $Z c=2 \ # # $Z R=$xTV/GAUSS.1 \ # # $Z $formatI # # $Z $xci/gauss$X \ # # $Z c=32 \ # # $Z R=$xTV/GAUSS.2 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/ENTR.21 \ # # $Z R=$xTV/LUMI.11 \ # # $Z $formatI # # # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/LUMI.11 \ # # $Z N=$xTV/GAUSS.2 \ # # $Z seuil=240 \ # # $Z R=$xTV/FILT.11 \ # # $Z $formatI # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/filtre.01$X \ # # $X A=$xiirv/ENTR.21%s \ # # $X N=$xTV/GAUSS.2 \ # # $X seuil=250 \ # # $X R=$xTV/FILT.12%s \ # # $X $formatI' # # # # $Z $xci/complement$X \ # # $Z A=$xTV/FILT.11 \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/gris.01 \ # # $Z RVB=VRAI \ # # $Z R=$xTV/FILT.13 \ # # $Z $formatI # # # # $Z $xci/vitre.53$Z \ # # $Z $xTV/FILT.12 \ # # $Z $xTV/FILT.13 \ # # $Z $xTV/ENTR.11 # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/complement$X \ # # $X A=$xTV/ENTR.11%s \ # # $X R=$xTV/ENTR.13%s \ # # $X $formatI' # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/Sx$X \ # # $X A=$xTV/ENTR.13%s \ # # $X R=$xTV/ENTR.14%s \ # # $X $formatI' # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/minmax$X \ # # $X A1=$xTV/ENTR.13%s \ # # $X A2=$xTV/ENTR.14%s \ # # $X R=$xTV/ENTR.15%s \ # # $X $formatI' # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/Sy$X \ # # $X A=$xTV/ENTR.15%s \ # # $X R=$xTV/ENTR.16%s \ # # $X $formatI' # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/minmax$X \ # # $X A1=$xTV/ENTR.15%s \ # # $X A2=$xTV/ENTR.16%s \ # # $X R=$xTV/ENTR.17%s \ # # $X $formatI' # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/substitue$X \ # # $X A=$xTV/ENTR.17%s \ # # $X substitution=L_SUBSTITUTION_02 \ # # $X R=$xTV/ENTR.19%s \ # # $X $formatI' # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/ENTR.17 \ # # $Z R=$xTV/LUMI.12 \ # # $Z $formatI # # # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/montagne.01$X \ # # $X A=$xTV/LUMI.12 \ # # $X T=$xTV/ENTR.17%s \ # # $X avion=VRAI \ # # $X R=$xTV/LUMI.12%s \ # # $X $formatI' # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/montagne.01$X \ # # $X A=$xTV/LUMI.12 \ # # $X T=$xTV/ENTR.19%s \ # # $X avion=VRAI \ # # $X R=$xTV/ENTR.1a%s \ # # $X $formatI' # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/interpole.02$X \ # # $X A1=$xTV/LUMI.12%s \ # # $X A2=$xTV/ENTR.1a%s \ # # $X P=$xTV/GAUSS.1 \ # # $X R=$xiirv/ENTR.21.1$m%s \ # # $X $formatI' # # # # :Fin_listG_ENTR_21_1_m: # # # # # # qui montre une variation artistique sur l'entrelacs 'v $xiirv/ENTR.21'... # v $xiirv/ENTR.31 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_ENTR_31: # # # # $Z set _____Graine=1235791 # # $Z set _____Increment=135731 # # $Z set _____NParticule=100 # # $Z set _____NDuplication=2 # # $Z set _____FBrownien=2 # # $Z set _____RayonSup=0.02 # # $Z set _____Niveau1R_D=$GRIS_1 # # $Z set _____Niveau1R_A=$GRIS_8 # # $Z set _____Niveau2R_D=$GRIS_1 # # $Z set _____Niveau2R_A=$GRIS_8 # # $Z set _____Niveau3R_D=$GRIS_1 # # $Z set _____Niveau3R_A=$GRIS_8 # # $Z set _____Niveau1V_D=$GRIS_1 # # $Z set _____Niveau1V_A=$GRIS_8 # # $Z set _____Niveau2V_D=$GRIS_1 # # $Z set _____Niveau2V_A=$GRIS_8 # # $Z set _____Niveau3V_D=$GRIS_1 # # $Z set _____Niveau3V_A=$GRIS_8 # # $Z set _____Niveau1B_D=$GRIS_1 # # $Z set _____Niveau1B_A=$GRIS_8 # # $Z set _____Niveau2B_D=$GRIS_1 # # $Z set _____Niveau2B_A=$GRIS_8 # # $Z set _____Niveau3B_D=$GRIS_1 # # $Z set _____Niveau3B_A=$GRIS_8 # # $Z set _____ImageR=$xiirv/ENTR.31 # # $m4 _____include(_____xiirv/.ENTR.11.1._____U) # # # # :Fin_listG_ENTR_31: # # # # # # qui montre un entrelacs obtenu par cumul des coordonnees... # v $xiirv/ENTR.41 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_ENTR_41: # # # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____Aleatoire=$NEXIST # # $Z set _____NParticule=100 # # $Z set _____NDuplication=1 # # $Z set _____FBrownien=2 # # $Z set _____RayonSup=0.02 # # $Z set _____Niveau1R_D=$GRIS_1 # # $Z set _____Niveau1R_A=$GRIS_8 # # $Z set _____Niveau2R_D=$GRIS_1 # # $Z set _____Niveau2R_A=$GRIS_8 # # $Z set _____Niveau3R_D=$GRIS_1 # # $Z set _____Niveau3R_A=$GRIS_8 # # $Z set _____Niveau1V_D=$GRIS_1 # # $Z set _____Niveau1V_A=$GRIS_8 # # $Z set _____Niveau2V_D=$GRIS_1 # # $Z set _____Niveau2V_A=$GRIS_8 # # $Z set _____Niveau3V_D=$GRIS_1 # # $Z set _____Niveau3V_A=$GRIS_8 # # $Z set _____Niveau1B_D=$GRIS_1 # # $Z set _____Niveau1B_A=$GRIS_8 # # $Z set _____Niveau2B_D=$GRIS_1 # # $Z set _____Niveau2B_A=$GRIS_8 # # $Z set _____Niveau3B_D=$GRIS_1 # # $Z set _____Niveau3B_A=$GRIS_8 # # $Z set _____ImageR=$xiirv/ENTR.41 # # $m4 _____include(_____xiirv/.ENTR.11.1._____U) # # # # :Fin_listG_ENTR_41: # # # # # # qui montre un entrelacs obtenu par cumul des coordonnees et un selecteur pseudo-periodique. # v $xiirv/ENTR.51 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_ENTR_51: # # # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____NPoints=10 # # $Z set _____RayonSup=0.02 # # $Z set _____ImageR=$xiirv/ENTR.51 # # $m4 _____include(_____xiirv/.ENTR.51.1._____U) # # # # :Fin_listG_ENTR_51: # # # # # # qui montre un entrelacs... # v $xiirv/ENTR.52 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_ENTR_52: # # # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____NPoints=10 # # $Z set _____NSuperieur=4 # # $Z set _____Grossissement=4 # # $Z set _____RayonSup=0.02 # # $Z set _____ImageR=$xiirv/ENTR.52 # # $m4 _____include(_____xiirv/.ENTR.51.1._____U) # # # # :Fin_listG_ENTR_52: # # # # # # qui montre un entrelacs... # v $xiirv/ENTR.61 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_ENTR_61: # # # # $Z set _____GraineR=1789 # # $Z set _____Seuil=0.00040 # # $Z set _____ImageA=$xTV/RANDOM # # # # $Z $xci/random.02$X \ # # $Z graine=$_____GraineR \ # # $Z seuil=$_____Seuil \ # # $Z R=$_____ImageA \ # # $Z $formatI # # # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____Grossissement=4 # # $Z set _____RayonSup=0.01 # # $Z set _____ImageR=$xiirv/ENTR.61 # # $Z set _____ParticulePara1="compatibilite_20051230=VRAI" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_61: # # # # # # qui montre un entrelacs aleatoire... # # # # Cette image a ete recalculee le 20051203111336 ('v $xiirv/.ENTR.61.1.$U 20051203111009'), # # puis le 20051204125614 ('v $xiirv/.ENTR.61.1.$U 20051204121509'), puis le 20051205095823 # # ('v $xrv/val_alea.01$K 20051205094741'). # v $xiirv/ENTR.71 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_ENTR_71: # # # # $Z set _____ImageA=$xTV/RESEAU # # # # $Z set PasX=100 # # $Z set PasY=100 # # $Z set TraX=`calcul (($dimX-((int)($dimX/$PasX))*$PasX)/2)/$dimX` # # $Z set TraY=`calcul (($dimY-((int)($dimY/$PasY))*$PasY)/2)/$dimY` # # # # $Z $xci/init$X \ # # $Z niveau=$BLANC \ # # $Z px=$PasX py=$PasY \ # # $Z $formatI | \ # # $Z $xci/move$X \ # # $Z xR=$TraX yR=$TraY \ # # $Z R=$_____ImageA \ # # $Z $formatI # # # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____MinZ=0.50 # # $Z set _____MaxZ=0.50 # # $Z set _____Grossissement=2 # # $Z set _____RayonSup=0.01 # # $Z set _____Zoom=0.95 # # $Z set _____ImageR=$xiirv/ENTR.71 # # $Z set _____ParticulePara1="compatibilite_20051230=VRAI" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_71: # # # # # # qui montre un entrelacs tres regulier... # # # # Cette image a ete recalculee le 20051205095823 ('v $xrv/val_alea.01$K 20051205094741'). # v $xiirv/ENTR.72 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_ENTR_72: # # # # $Z set _____ImageA=$xTV/RESEAU # # # # $Z set PasX=100 # # $Z set PasY=100 # # $Z set TraX=`calcul (($dimX-((int)($dimX/$PasX))*$PasX)/2)/$dimX` # # $Z set TraY=`calcul (($dimY-((int)($dimY/$PasY))*$PasY)/2)/$dimY` # # # # $Z $xci/init$X \ # # $Z niveau=$BLANC \ # # $Z px=$PasX py=$PasY \ # # $Z $formatI | \ # # $Z $xci/move$X \ # # $Z xR=$TraX yR=$TraY \ # # $Z R=$_____ImageA \ # # $Z $formatI # # # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____MinZ=0.40 # # $Z set _____MaxZ=0.60 # # $Z set _____Grossissement=2 # # $Z set _____RayonSup=0.01 # # $Z set _____Zoom=0.95 # # $Z set _____ImageR=$xiirv/ENTR.72 # # $Z set _____ParticulePara1="compatibilite_20051230=VRAI" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_72: # # # # # # qui montre un entrelacs un peu moins regulier que 'v $xiirv/ENTR.71'... # # # # Cette image a ete recalculee le 20051205095823 ('v $xrv/val_alea.01$K 20051205094741'). # v $xiirv/ENTR.81 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_ENTR_81: # # # # $Z set _____GraineR=1789 # # $Z set _____Seuil=0.00010 # # $Z set _____ImageA=$xTV/RANDOM # # # # $Z $xci/random.02$X \ # # $Z graine=$_____GraineR \ # # $Z seuil=$_____Seuil \ # # $Z R=$_____ImageA \ # # $Z $formatI # # # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____SelectionV=8 # # $Z set _____Grossissement=1 # # $Z set _____RayonSup=0.01 # # $Z set _____ImageR=$xiirv/ENTR.81 # # $Z set _____ParticulePara1="compatibilite_20051230=VRAI" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_81: # # # # # # qui montre un entrelacs aleatoire... # v $xiirv/ENTR.91 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_ENTR_91: # # # # $Z set _____ImageA=$xTV/RESEAU # # # # $Z set PasX=200 # # $Z set PasY=200 # # $Z set TraX=`calcul (($dimX-((int)($dimX/$PasX))*$PasX)/2)/$dimX` # # $Z set TraY=`calcul (($dimY-((int)($dimY/$PasY))*$PasY)/2)/$dimY` # # # # $Z $xci/init$X \ # # $Z niveau=$BLANC \ # # $Z px=$PasX py=$PasY \ # # $Z $formatI | \ # # $Z $xci/move$X \ # # $Z xR=$TraX yR=$TraY \ # # $Z R=$_____ImageA \ # # $Z $formatI # # # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____MinZ=0.50 # # $Z set _____MaxZ=0.50 # # $Z set _____SelectionV=7 # # $Z set _____Grossissement=1 # # $Z set _____RayonSup=0.01 # # $Z set _____Zoom=0.95 # # $Z set _____ImageR=$xiirv/ENTR.91 # # $Z set _____ParticulePara1="compatibilite_20051230=VRAI" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_91: # # # # # # qui montre un entrelacs tres regulier base sur un reseau carre bidimensionnel... # v $xiirv/ENTR.A1 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_ENTR_A1: # # # # $Z set _____ImageA=$xiia/CONF.B1.2 # # $Z set _____ImageR=$xTV/RESEAU # # $m4 _____include(_____xiirv/.ENTR.A1.1._____U) # # $Z set _____ImageA=$_____ImageR # # # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____MinZ=0.50 # # $Z set _____MaxZ=0.50 # # $Z set _____SelectionV=7 # # $Z set _____Grossissement=1 # # $Z set _____RayonSup=0.01 # # $Z set _____Zoom=0.95 # # $Z set _____ImageR=$xiirv/ENTR.A1 # # $Z set _____ParticulePara1="compatibilite_20051230=VRAI" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_A1: # # # # # # qui montre un entrelacs tres regulier base sur une transformation conforme du plan... # v $xiirv/ENTR.A1.1 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_ENTR_A1_1: # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/filtre.01$X \ # # $X A=$xiirv/ENTR.A1%s \ # # $X N=$xTV/GAUSS \ # # $X seuil=253 \ # # $X R=$xTV/FILTRAGE%s \ # # $X $formatI' # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/FILTRAGE \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/LUMINANCE \ # # $Z p=$xiP/dentscie.04 \ # # $Z RVB=VRAI \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/scale$X \ # # $X A=$xTV/LUMINANCE%s \ # # $X a=0.5 \ # # $X R=$xTV/FOND%s \ # # $X $formatI' # # # # $Z $xci/vitre.53$Z \ # # $Z $xiirv/ENTR.A1 \ # # $Z $xTV/FOND \ # # $Z $xiirv/ENTR.A1.1 # # # # :Fin_listG_ENTR_A1_1: # # # # # # qui montre des variations sur un entrelacs tres regulier... # v $xiirv/ENTR.A2 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_ENTR_A2: # # # # $Z set _____Facteur=0.02 # # $Z set _____ImageA=$xTV/CONFORME # # $Z $xci/gauss$X \ # # $Z $formatI | \ # # $Z $xci/z_carre.01$X \ # # $Z facteur=$_____Facteur \ # # $Z R=$_____ImageA \ # # $Z $formatI # # $Z set _____Seuil=253 # # $Z set _____ImageR=$xTV/RESEAU # # $m4 _____include(_____xiirv/.ENTR.A1.1._____U) # # $Z set _____ImageA=$_____ImageR # # # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____MinZ=0.50 # # $Z set _____MaxZ=0.50 # # $Z set _____SelectionV=17 # # $Z set _____Grossissement=1 # # $Z set _____RayonSup=0.01 # # $Z set _____Zoom=0.95 # # $Z set _____ImageR=$xiirv/ENTR.A2 # # $Z set _____ParticulePara1="compatibilite_20051230=VRAI" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_A2: # # # # # # qui montre un entrelacs tres regulier base sur une transformation conforme du plan... # v $xiirv/ENTR.B1 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_ENTR_B1: # # # # $Z set _____ImageA=$xiia/CONF.B1.2 # # $Z set _____ImageR=$xTV/RESEAU # # $m4 _____include(_____xiirv/.ENTR.A1.1._____U) # # $Z set _____ImageA=$_____ImageR # # # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____MinZ=0.50 # # $Z set _____MaxZ=0.50 # # $Z set _____SelectionV=7 # # $Z set _____Grossissement=1 # # $Z set _____RayonInf=0.04 # # $Z set _____RayonSup=0.04 # # $Z set _____Zoom=0.95 # # $Z set _____ImageR=$xiirv/ENTR.B1 # # $Z set _____ParticulePara1="compatibilite_20051230=VRAI" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_B1: # # # # # # qui montre un entrelacs tres regulier base sur une transformation conforme du plan... # v $xiirv/ENTR.A1.2 v $xiirv/ENTR.B1.1 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_ENTR_B1_1: # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/filtre.01$X \ # # $X A=$xiirv/ENTR.B1%s \ # # $X N=$xTV/GAUSS \ # # $X seuil=253 \ # # $X R=$xTV/FILTRAGE%s \ # # $X $formatI' # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/FILTRAGE \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/LUMINANCE \ # # $Z p=$xiP/dentscie.04 \ # # $Z RVB=VRAI \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/scale$X \ # # $X A=$xTV/LUMINANCE%s \ # # $X a=0.5 \ # # $X R=$xTV/FOND%s \ # # $X $formatI' # # # # $Z $xci/vitre.53$Z \ # # $Z $xiirv/ENTR.A1 \ # # $Z $xTV/FOND \ # # $Z $xiirv/ENTR.A1.2 # # # # $Z $xci/vitre.53$Z \ # # $Z $xiirv/ENTR.B1 \ # # $Z $xTV/FOND \ # # $Z $xiirv/ENTR.B1.1 # # # # :Fin_listG_ENTR_B1_1: # # # # # # qui montre des variations sur un entrelacs tres regulier... # v $xiirv/ENTR.B1.2 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_ENTR_B1_2: # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/Sx$X \ # # $X A=$xiirv/ENTR.B1.1%s \ # # $X $formatI | \ # # $X $xci/minmax$X \ # # $X A2=$xiirv/ENTR.B1.1%s \ # # $X R=$xTV/IMAGE.1%s \ # # $X $formatI' # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/Sy$X \ # # $X A=$xTV/IMAGE.1%s \ # # $X $formatI | \ # # $X $xci/minmax$X \ # # $X A2=$xTV/IMAGE.1%s \ # # $X $formatI | \ # # $X $xci/acces$X \ # # $X renormaliser=VRAI \ # # $X R=$xTV/IMAGE.2%s \ # # $X $formatI' # # # # $Z $xci/detourage.13$Z \ # # $Z $xTV/IMAGE.2 \ # # $Z $xiirv/ENTR.B1.2 \ # # $Z 36 \ # # $Z 80 \ # # $Z $EXIST \ # # $Z $NEXIST # # # # :Fin_listG_ENTR_B1_2: # # # # # # qui montre des variations sur un entrelacs tres regulier... # v $xiirv/ENTR.C1 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_ENTR_C1: # # # # $Z set _____SurfaceA=sphere.11 # # $Z set _____SurfaceParam12="ROTATION_OX=$pis2" # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____SelectionV=12 # # $Z set _____Grossissement=1 # # $Z set _____RayonInf=0.006 # # $Z set _____RayonSup=0.006 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/ENTR.C1 # # $Z set _____ParticulePara1="compatibilite_20051230=VRAI" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_C1: # # # # # # qui montre un entrelacs tres regulier base sur la geometrie de la sphere... # v $xiirv/ENTR.C2 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_ENTR_C2: # # # # $Z set _____SurfaceA=sphere.11 # # # # $Z set Cmu=0.4 # # $Z set Cmv=0.4 # # $Z set _____SurfaceParam12="mu=$Cmu Mu=2.8 mv=$Cmv Mv=5.6" # # # # $Z set _____Pu=1.0 # # $Z set _____Pv=1.0 # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____SelectionV=13 # # $Z set _____Grossissement=1 # # $Z set _____RayonInf=0.006 # # $Z set _____RayonSup=0.006 # # $Z set _____Zoom=1.40 # # $Z set _____ImageR=$xiirv/ENTR.C2 # # $Z set _____ParticulePara1="compatibilite_20051230=VRAI" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_C2: # # # # # # qui montre un entrelacs tres regulier base sur la geometrie de la sphere... # v $xiirv/ENTR.C2.0 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_ENTR_C2_0: # # # # $Z set _____SurfaceA=sphere.11 # # $Z set _____EntrelacsSurface=$EXIST # # $Z set _____RayonSurface=0.006 # # # # $Z set Cmu=0.4 # # $Z set CMu=$pi # # $Z set Cmv=0.4 # # $Z set CMv=`calcul $dpi+$Cmv` # # $Z set _____SurfaceParam1="mu=$Cmu Mu=$CMu mv=$Cmv Mv=$CMv" # # $Z set _____SurfaceParam2="mu=$Cmu Mu=2.8 mv=$Cmv Mv=5.6" # # # # $Z set _____Pu=1.0 # # $Z set _____Pv=1.0 # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____SelectionV=13 # # $Z set _____Grossissement=2 # # $Z set _____RayonInf=0.006 # # $Z set _____RayonSup=0.006 # # $Z set _____Zoom=1.40 # # $Z set _____ImageR=$xiirv/ENTR.C2.0 # # $Z set _____ParticulePara1="compatibilite_20051230=VRAI" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_C2_0: # # # # # # qui montre un entrelacs tres regulier base sur la geometrie de la sphere... # v $xiirv/ENTR.C2.1 v $xiirv/ENTR.C2.2 v $xiirv/ENTR.C2.3 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_ENTR_C2_1: # # # # $Z set _____SurfaceA=sphere.11 # # $Z set _____SurfaceParam12="mu=0.4 Mu=2.8 mv=0.4 Mv=5.6" # # $Z set _____Pu=1.0 # # $Z set _____Pv=1.0 # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____SelectionV=13 # # $Z set _____Grossissement=1 # # $Z set _____RayonInf=0.040 # # $Z set _____RayonSup=0.040 # # $Z set _____Zoom=1.40 # # $Z set _____ImageR=$xTV/ENTRELACS # # $Z set _____ParticulePara1="compatibilite_20051230=VRAI" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/filtre.01$X \ # # $X A=$xTV/ENTRELACS%s \ # # $X N=$xTV/GAUSS \ # # $X seuil=253 \ # # $X R=$xTV/FILTRAGE%s \ # # $X $formatI' # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/FILTRAGE \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/LUMINANCE \ # # $Z p=$xiP/dentscie.04 \ # # $Z RVB=VRAI \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/scale$X \ # # $X A=$xTV/LUMINANCE%s \ # # $X a=0.5 \ # # $X R=$xTV/FOND%s \ # # $X $formatI' # # # # $Z $xci/vitre.53$Z \ # # $Z $xiirv/ENTR.C2 \ # # $Z $xTV/FOND \ # # $Z $xiirv/ENTR.C2.1 # # # # $Z $xci/vitre.53$Z \ # # $Z $xTV/FILTRAGE \ # # $Z $xTV/FOND \ # # $Z $xiirv/ENTR.C2.2 # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/Sx$X \ # # $X A=$xiirv/ENTR.C2.2%s \ # # $X $formatI | \ # # $X $xci/minmax$X \ # # $X A2=$xiirv/ENTR.C2.2%s \ # # $X R=$xTV/IMAGE.1%s \ # # $X $formatI' # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/Sy$X \ # # $X A=$xTV/IMAGE.1%s \ # # $X $formatI | \ # # $X $xci/minmax$X \ # # $X A2=$xTV/IMAGE.1%s \ # # $X $formatI | \ # # $X $xci/acces$X \ # # $X renormaliser=VRAI \ # # $X R=$xTV/IMAGE.2%s \ # # $X $formatI' # # # # $Z $xci/detourage.13$Z \ # # $Z $xTV/IMAGE.2 \ # # $Z $xiirv/ENTR.C2.3 \ # # $Z 60 \ # # $Z 80 \ # # $Z $EXIST \ # # $Z $NEXIST # # # # :Fin_listG_ENTR_C2_1: # # # # # # qui montre une variation artistique sur 'v $xiirv/ENTR.C2'. # v $xiirv/ENTR.D1 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_ENTR_D1: # # # # $Z set _____Pu=0.7 # # $Z set _____Pv=0.7 # # $Z set _____SurfaceA=Mobius2D.11 # # $Z set _____SurfaceParam12="ROTATION_OX=$pis2" # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____SelectionV=7 # # $Z set _____Grossissement=1 # # $Z set _____RayonInf=0.003 # # $Z set _____RayonSup=0.003 # # $Z set _____Zoom=1.90 # # $Z set _____ImageR=$xiirv/ENTR.D1 # # $Z set _____ParticulePara1="compatibilite_20051230=FAUX" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_D1: # # # # # # qui montre un entrelacs tres regulier base sur la geometrie du ruban de Mobius. # # # # Le 20171002123440, cette image a ete recalculee au format 'Pqu' suite a la demande # # de 'v $xamci/20171003124551 Message.Id...CBAA2E97-2678-412B-B1E0-92B8557BAAFA@gmail.com.'. # v $xiirv/ENTR.D1.0 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_ENTR_D1_0: # # # # $Z set _____Pu=0.7 # # $Z set _____Pv=0.7 # # $Z set _____SurfaceA=Mobius2D.11 # # $Z set _____EntrelacsSurface=$EXIST # # $Z set _____RayonSurface=0.005 # # $Z set _____SurfaceParam12="ROTATION_OX=$pis2" # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____SelectionV=7 # # $Z set _____Grossissement=2 # # $Z set _____RayonInf=0.006 # # $Z set _____RayonSup=0.006 # # $Z set _____Zoom=2.30 # # $Z set _____ImageR=$xiirv/ENTR.D1.0 # # $Z set _____ParticulePara1="compatibilite_20051230=FAUX" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_D1_0: # # # # # # qui montre un entrelacs tres regulier base sur la geometrie du ruban de Mobius. # v $xiirv/ENTR.E1 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_ENTR_E1: # # # # $Z set _____Pu=0.9 # # $Z set _____Pv=0.9 # # $Z set _____SurfaceA=escargot.11 # # $Z set _____SurfaceParam12="ROTATION_OX=$pis2" # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____SelectionV=3 # # $Z set _____Derivee=0.5 # # $Z set _____Grossissement=1 # # $Z set _____RayonInf=0.006 # # $Z set _____RayonSup=0.006 # # $Z set _____Zoom=1.10 # # $Z set _____ImageR=$xiirv/ENTR.E1 # # $Z set _____ParticulePara1="compatibilite_20051230=VRAI" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_E1: # # # # # # qui montre un entrelacs tres regulier base sur la geometrie d'un coquillage... # v $xiirv/ENTR.E1.0 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_ENTR_E1_0: # # # # $Z set _____Pu=0.9 # # $Z set _____Pv=0.9 # # $Z set _____SurfaceA=escargot.11 # # $Z set _____EntrelacsSurface=$EXIST # # $Z set _____RayonSurface=0.015 # # $Z set _____SurfaceParam12="ROTATION_OX=$pis2" # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____SelectionV=3 # # $Z set _____Derivee=0.5 # # $Z set _____Grossissement=2 # # $Z set _____RayonInf=0.006 # # $Z set _____RayonSup=0.006 # # $Z set _____Zoom=1.10 # # $Z set _____ImageR=$xiirv/ENTR.E1.0 # # $Z set _____ParticulePara1="compatibilite_20051230=VRAI" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_E1_0: # # # # # # qui montre un entrelacs tres regulier base sur la geometrie d'un coquillage... # v $xiirv/ENTR.F1 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_ENTR_F1: # # # # $Z set _____Pu=0.9 # # $Z set _____Pv=0.9 # # $Z set _____SurfaceA=bKlein.41 # # $Z set _____SurfaceParam12="$K_VIDE" # # $Z set _____SurfaceParam12="$_____SurfaceParam12"" ROTATION_OX=0.8" # # $Z set _____SurfaceParam12="$_____SurfaceParam12"" ROTATION_OZ=-0.3" # # $Z set _____SurfaceParam12="$_____SurfaceParam12"" TRANSLATION_OX=2.0" # # $Z set _____SurfaceParam12="$_____SurfaceParam12"" TRANSLATION_OY=-2.5" # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____SelectionV=3 # # $Z set _____Derivee=0.5 # # $Z set _____Grossissement=1 # # $Z set _____RayonInf=0.006 # # $Z set _____RayonSup=0.006 # # $Z set _____Zoom=0.95 # # $Z set _____ImageR=$xiirv/ENTR.F1 # # $Z set _____ParticulePara1="compatibilite_20051230=VRAI" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_F1: # # # # # # qui montre un entrelacs tres regulier base sur la geometrie de la bouteille de Klein... # v $xiirv/ENTR.F1.0 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_ENTR_F1_0: # # # # $Z set _____Pu=0.9 # # $Z set _____Pv=0.9 # # $Z set _____SurfaceA=bKlein.41 # # $Z set _____EntrelacsSurface=$EXIST # # $Z set _____RayonSurface=0.020 # # $Z set _____SurfaceParam12="$K_VIDE" # # $Z set _____SurfaceParam12="$_____SurfaceParam12"" ROTATION_OX=0.8" # # $Z set _____SurfaceParam12="$_____SurfaceParam12"" ROTATION_OZ=-0.3" # # $Z set _____SurfaceParam12="$_____SurfaceParam12"" TRANSLATION_OX=2.0" # # $Z set _____SurfaceParam12="$_____SurfaceParam12"" TRANSLATION_OY=-2.5" # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____SelectionV=3 # # $Z set _____Derivee=0.5 # # $Z set _____Grossissement=2 # # $Z set _____RayonInf=0.006 # # $Z set _____RayonSup=0.006 # # $Z set _____Zoom=1.05 # # $Z set _____ImageR=$xiirv/ENTR.F1.0 # # $Z set _____ParticulePara1="compatibilite_20051230=VRAI" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_F1_0: # # # # # # qui montre un entrelacs tres regulier base sur la geometrie de la bouteille de Klein... # v $xiirv/ENTR.G1 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_ENTR_G1: # # # # $Z set _____SurfaceA=$xrk/lorenz.11$X # # $Z set _____SurfaceParam12="iterations=300 dct=0.01 ordre=1" # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____SelectionV=3 # # $Z set _____Derivee=1.0 # # $Z set _____Grossissement=2 # # $Z set _____RayonInf=0.006 # # $Z set _____RayonSup=0.006 # # $Z set _____NiveauR_D=200 # # $Z set _____NiveauV_D=100 # # $Z set _____NiveauB_D=0 # # $Z set _____NiveauB_A=0 # # $Z set _____Zoom=1.15 # # $Z set _____ImageR=$xiirv/ENTR.G1 # # $Z set _____ParticulePara1="compatibilite_20051230=VRAI" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_G1: # # # # # # qui montre un entrelacs tres regulier base sur la geometrie de l'attracteur de Lorenz... # v $xiirv/ENTR.G1.0 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_ENTR_G1_0: # # # # $Z set _____SurfaceA=$xrk/lorenz.11$X # # $Z set _____EntrelacsSurface=$EXIST # # $Z set _____RayonSurface=0.60 # # $Z set _____SurfaceParam12="iterations=300 dct=0.01 ordre=1" # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____SelectionV=3 # # $Z set _____Derivee=1.0 # # $Z set _____Grossissement=2 # # $Z set _____RayonInf=0.006 # # $Z set _____RayonSup=0.006 # # $Z set _____NiveauR_D=200 # # $Z set _____NiveauV_D=100 # # $Z set _____NiveauB_D=0 # # $Z set _____NiveauB_A=0 # # $Z set _____Zoom=1.15 # # $Z set _____ImageR=$xiirv/ENTR.G1.0 # # $Z set _____ParticulePara1="compatibilite_20051230=VRAI" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_G1_0: # # # # # # qui montre un entrelacs tres regulier base sur la geometrie de l'attracteur de Lorenz... # v $xiirv/ENTR.H1 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_ENTR_H1: # # # # $Z set _____SurfaceA=disque.11 # # # # $Z set Cmu=0.8 # # $Z set CMu=$pi # # $Z set Cmv=0.0 # # $Z set CMv=$dpi # # $Z set _____SurfaceParam1="mu=$Cmu Mu=$CMu mv=$Cmv Mv=$CMv" # # $Z set _____SurfaceParam2="mu=$Cmu Mu=2.8 mv=$Cmv Mv=5.6" # # # # $Z set _____Pu=1.0 # # $Z set _____Pv=1.0 # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____SelectionV=5 # # $Z set _____Grossissement=1 # # $Z set _____RayonInf=0.006 # # $Z set _____RayonSup=0.006 # # $Z set _____Zoom=`GetParam $xrs/$_____SurfaceA$X ZOOM` # # $Z set _____ImageR=$xiirv/ENTR.H1 # # $Z set _____ParticulePara1="compatibilite_20051230=VRAI" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_H1: # # # # # # qui montre un entrelacs tres regulier base sur la geometrie d'un disque... # # # # On notera le 'GetParam' utilise pour definir '$_____Zoom' et introduit le 20060106145245 # # afin de garantir l'identite des entrelacs de 'v $xiirv/ENTR.H1' et '$xiirv/ENTR.H1.0'. # # Au passage, cela a demande la grosse modification 'v $xig/fonct$vv$FON 20060104160857' # # qui permet, en particulier, a 'GetParam' de donner le rapport de zoom par defaut avec # # la precision maximale... # v $xiirv/ENTR.H1.0 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_ENTR_H1_0: # # # # $Z set _____SurfaceA=disque.11 # # $Z set _____EntrelacsSurface=$EXIST # # $Z set _____RayonSurface=0.016 # # # # $Z set Cmu=0.8 # # $Z set CMu=$pi # # $Z set Cmv=0.0 # # $Z set CMv=$dpi # # $Z set _____SurfaceParam1="mu=$Cmu Mu=$CMu mv=$Cmv Mv=$CMv" # # $Z set _____SurfaceParam2="mu=$Cmu Mu=2.8 mv=$Cmv Mv=5.6" # # # # $Z set _____Pu=1.0 # # $Z set _____Pv=1.0 # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____SelectionV=5 # # $Z set _____Grossissement=2 # # $Z set _____RayonInf=0.006 # # $Z set _____RayonSup=0.006 # # $Z set _____Zoom=`GetParam $xrs/$_____SurfaceA$X ZOOM` # # $Z set _____ImageR=$xiirv/ENTR.H1.0 # # $Z set _____ParticulePara1="compatibilite_20051230=VRAI" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_H1_0: # # # # # # qui montre un entrelacs tres regulier base sur la geometrie d'un disque... # # # # On notera le 'GetParam' utilise pour definir '$_____Zoom' et introduit le 20060106145245 # # afin de garantir l'identite des entrelacs de 'v $xiirv/ENTR.H1' et '$xiirv/ENTR.H1.0'. # # Au passage, cela a demande la grosse modification 'v $xig/fonct$vv$FON 20060104160857' # # qui permet, en particulier, a 'GetParam' de donner le rapport de zoom par defaut avec # # la precision maximale... # v $xiirv/ENTR.I1 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_ENTR_I1: # # # # $Z set _____Pu=0.9 # # $Z set _____Pv=0.9 # # $Z set _____SurfaceA=bKlein.61 # # $Z set _____SurfaceParam12="$K_VIDE" # # $Z set _____SurfaceParam12="$_____SurfaceParam12"" ROTATION_OX=0.8" # # $Z set _____SurfaceParam12="$_____SurfaceParam12"" PARAMETRE_M=4" # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____SelectionV=11 # # $Z set _____Derivee=0.5 # # $Z set _____Grossissement=1 # # $Z set _____RayonInf=0.006 # # $Z set _____RayonSup=0.006 # # $Z set _____Zoom=1.25 # # $Z set _____ImageR=$xiirv/ENTR.I1 # # $Z set _____ParticulePara1="compatibilite_20051230=VRAI" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_I1: # # # # # # qui montre un entrelacs tres regulier base sur la geometrie de la triple bouteille # # de Bonan-Jeener-Klein... # v $xiirv/ENTR.I1.0 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_ENTR_I1_0: # # # # $Z set _____Pu=0.9 # # $Z set _____Pv=0.9 # # $Z set _____SurfaceA=bKlein.61 # # $Z set _____EntrelacsSurface=$EXIST # # $Z set _____RayonSurface=0.020 # # $Z set _____SurfaceParam12="$K_VIDE" # # $Z set _____SurfaceParam12="$_____SurfaceParam12"" ROTATION_OX=0.8" # # $Z set _____SurfaceParam12="$_____SurfaceParam12"" PARAMETRE_M=4" # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____SelectionV=11 # # $Z set _____Derivee=0.5 # # $Z set _____Grossissement=2 # # $Z set _____RayonInf=0.006 # # $Z set _____RayonSup=0.006 # # $Z set _____Zoom=1.25 # # $Z set _____ImageR=$xiirv/ENTR.I1.0 # # $Z set _____ParticulePara1="compatibilite_20051230=VRAI" # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_I1_0: # # # # # # qui montre un entrelacs tres regulier base sur la geometrie de la triple bouteille # # de Bonan-Jeener-Klein... # v $xiirv/ENTR.J1 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_ENTR_J1: # # # # $Z set _____Pu=0.9 # # $Z set _____Pv=0.9 # # $Z set _____SurfaceA=sBoy.11 # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____SelectionV=17 # # $Z set _____Derivee=0.5 # # $Z set _____Grossissement=1 # # $Z set _____RayonInf=0.004 # # $Z set _____RayonSup=0.004 # # $Z set _____Zoom=1.40 # # $Z set _____ImageR=$xiirv/ENTR.J1 # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_J1: # # # # # # qui montre un entrelacs tres regulier base sur la geometrie de la surface de Boy... # v $xiirv/ENTR.J1.0 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_ENTR_J1_0: # # # # $Z set _____Pu=0.9 # # $Z set _____Pv=0.9 # # $Z set _____SurfaceA=sBoy.11 # # $Z set _____EntrelacsSurface=$EXIST # # $Z set _____RayonSurface=0.012 # # $Z set _____Graine=23579131 # # $Z set _____Increment=135731 # # $Z set _____SelectionV=17 # # $Z set _____Derivee=0.5 # # $Z set _____Grossissement=2 # # $Z set _____RayonInf=0.006 # # $Z set _____RayonSup=0.006 # # $Z set _____Zoom=1.40 # # $Z set _____ImageR=$xiirv/ENTR.J1.0 # # $m4 _____include(_____xiirv/.ENTR.61.1._____U) # # # # :Fin_listG_ENTR_J1_0: # # # # # # qui montre un entrelacs tres regulier base sur la geometrie de la surface de Boy... # v $xiirv/ERAT.11 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_ERAT_11: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/ERAT.11 # # $m4 _____include(_____xiirv/.ERAT.11.1._____U) # # # # :Fin_listG_ERAT_11: # # # # # # Cette image presente le crible d'Eratosthene. # v $xiirv/ESMA.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_ESMA_11: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z c=128 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/message$X \ # # $Z A=$NOIR \ # # $Z message="ESMA" \ # # $Z centrer=VRAI \ # # $Z T=18 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=225 \ # # $Z R=$xTV/ESMA.11 \ # # $Z $formatI # # # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/ESMA.11 \ # # $Z N=$xTV/GAUSS \ # # $Z seuil=244 \ # # $Z avertir_non_implicite=FAUX \ # # $Z R=$xTV/ESMA.12 \ # # $Z $formatI # # # # $Z $xci/passe_bande$X \ # # $Z A=$xTV/ESMA.12 \ # # $Z inf=40 sup=$BLANC \ # # $Z $formatI | \ # # $Z $xci/remonte_NOIR$X \ # # $Z NOIR=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/dentscie.08 \ # # $Z R=$xTV/ESMA.13 \ # # $Z $formatI # # # # $Z ext Pal # # # # $Z $xci/vitre.53$Z \ # # $Z $xiirs/BKLN.5B \ # # $Z $xTV/ESMA.13 \ # # $Z $xiirv/ESMA.11 # # # # :Fin_listG_ESMA_11: # # # v $xiirv/ESMA.21.2 # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_ESMA_21_2: # # # # $Z setenv xTV $xTS # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z Sdu # # # # $Z SET cPremiere=512 # # $Z SET cDerniere=1 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z setenv _____ImageT1 $xTV/ESMA.21 # # # # $Z set N0=`$xci/nombres$X A="$K_VIDE" premiere=$cDerniere derniere=$cDerniere` # # # # $Z $xci/message$X \ # # $Z A=$NOIR \ # # $Z message=ESMA \ # # $Z centrer=VRAI \ # # $Z T=16 \ # # $Z R=$_____ImageT1.$N0 \ # # $Z $formatI # # # # $m4 _____include(_____xiirk/.JVIE.51.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/ESMA.21 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_ESMA_21_2: # # # v $xiirv/ETOI.1.11 p=$xiP/cercle.11 v $xiirv/ETOI.2.11 p=$xiP/enfer.03 v $xiirv/ETOI.2.12 p=$xiP/cercle.11 v $xiirv/ETOI.2.12 p=$xiP/dentscie.02 v $xiirv/ETOI.2.12 p=$xiP/enfer.03 v $xiirv/ETOI.2.12 p=$xiP/fractal.11 v $xiirv/ETOI.2.12 p=$xiP/stereo.11 v $xiirv/ETOI.2.13 p=$xiP/enfer.03 # Ces images ont ete obtenues a partir de la sequence : # # # # xivPdf 6 2 / 006025_006152 # # # # par les accumulations suivantes : # # # # Std # # $xci/accumule.01$X A=$xw1/ETOI.1. premiere=1 derniere=128 \ # # renormaliser=VRAI \ # # R=$xiirv/ETOI.1.11 \ # # $formatI # # # # $xci/accumule.02$X A=$xw1/ETOI.1. premiere=1 derniere=128 \ # # seuil=$GRIS_5 \ # # R=$xiirv/ETOI.2.11 \ # # $formatI # # $xci/accumule.02$X A=$xw1/ETOI.1. premiere=1 derniere=128 \ # # seuil=$GRIS_6 \ # # R=$xiirv/ETOI.2.12 \ # # $formatI # # $xci/accumule.02$X A=$xw1/ETOI.1. premiere=1 derniere=128 \ # # seuil=$GRIS_6 trx=0 try=0 \ # # R=$xiirv/ETOI.2.13 \ # # $formatI # # # v $xiirv/ETOI.2.21 p=$xiP/enfer.03 v $xiirv/ETOI.2.22 p=$xiP/enfer.03 v $xiirv/ETOI.2.23 p=$xiP/enfer.03 # Ces images ont ete obtenues a partir des images '$xiirv/ETOI.2.1?' a l'aide de : # # # # Std # # $xci/substitue$X A=$xiio/MIRE \ # # substitution=L_SUBSTITUTION_02 \ # # $formatI | # # $xci/multi_02.01$X A1=$xiirv/ETOI.2.1? \ # # R=$xiirv/ETOI.2.2? \ # # $formatI # # # v $xiirv/ETOI.2.31 p=$xiP/gris.11 v $xiirv/ETOI.2.32 p=$xiP/gris.11 # Ces images ont ete obtenues a partir de la sequence : # # # # xivPdf 6 2 / 006665_006792 # # # # par les accumulations suivantes : # # # # Std # # $xci/accumule.02$X A=$xw1/ETOI.2. premiere=1 derniere=128 \ # # seuil=$GRIS_1 binariser=FAUX \ # # R=$xiirv/ETOI.2.31 \ # # $formatI # # $xci/accumule.02$X A=$xw1/ETOI.2. premiere=1 derniere=128 \ # # seuil=$GRIS_1 binariser=FAUX trx=0 try=0 \ # # R=$xiirv/ETOI.2.32 \ # # $formatI # # # v $xiirv/FLOR.11.1 v $xiirv/FLOR.11.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_FLOR_11: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set NMaximalNoeuds=100 # # $Z set Nc=1 # # # # $Z set PaRaMeTrEs="$K_VIDE" # # $Z set PaRaMeTrEs="$PaRaMeTrEs"" premiere=1 derniere=$NMaximalNoeuds" # # $Z set PaRaMeTrEs="$PaRaMeTrEs"" graine=3001" # # $Z set PaRaMeTrEs="$PaRaMeTrEs"" inf=+0.5 sup=+0.5" # # $Z set PaRaMeTrEs="$PaRaMeTrEs"" entiers=FAUX" # # # # $Z set CoZ=`$xci/valeurs_alea$X $PaRaMeTrEs` # # # # $m4 _____include(_____xiirv/.FLOR.11.1._____U) # # # # $Z set _____ImageR=$xiirv/FLOR.11 # # # # $m4 _____include(_____xiirv/.FLOR.11.2._____U) # # $m4 _____include(_____xiirv/.FLOR.11.3._____U) # # $Z set _____GDerivees=0.5 # # $m4 _____include(_____xiirv/.FLOR.11.4._____U) # # # # :Fin_listG_FLOR_11: # # # # # # Visualisation du graphe relatif aux relations internes du livre de Jean-Francois Devemy # # relatif a la construction du dome octogonal de la cathedrale de Florence, les sommets # # etant places en projection bidimensionnelle comme lui les avaient disposes sur son dessin. # # # # On notera qu'en faisant que la liste '$CoZ' contienne des valeurs toutes egales cela # # permet de generer un graphe bidimensionnel... # # # # Le graphe original correspond plutot aux donnees : # # # # $Z Gnoeud 0001 0.27 0.92 # # $Z Gnoeud 0002 0.43 0.92 # # $Z Gnoeud 0003 0.72 0.95 # # $Z Gnoeud 0004 0.50 0.84 # # $Z Gnoeud 0005 0.28 0.77 # # $Z Gnoeud 0006 0.10 0.76 # # $Z Gnoeud 0007 0.62 0.75 # # $Z Gnoeud 0008 0.83 0.76 # # $Z Gnoeud 0009 0.05 0.60 # # $Z Gnoeud 0010 0.30 0.65 # # $Z Gnoeud 0011 0.62 0.61 # # $Z Gnoeud 0012 0.73 0.62 # # $Z Gnoeud 0013 0.38 0.50 # # $Z Gnoeud 0014 0.62 0.52 # # $Z Gnoeud 0015 0.05 0.42 # # $Z Gnoeud 0016 0.30 0.39 # # $Z Gnoeud 0017 0.46 0.37 # # $Z Gnoeud 0018 0.62 0.44 # # $Z Gnoeud 0019 0.83 0.47 # # $Z Gnoeud 0020 0.16 0.22 # # $Z Gnoeud 0021 0.30 0.23 # # $Z Gnoeud 0022 0.64 0.32 # # $Z Gnoeud 0023 0.97 0.37 # # $Z Gnoeud 0024 0.75 0.23 # # $Z Gnoeud 0025 0.39 0.10 # # $Z Gnoeud 0026 0.66 0.12 # # $Z Gnoeud 0027 0.84 0.12 # # # # les modifications apportees etant destinees a eloigner les noeuds les uns des autres... # v $xiirv/FLOR.12.1 v $xiirv/FLOR.12.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_FLOR_12: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set NMaximalNoeuds=100 # # $Z set Nc=1 # # # # $Z set PaRaMeTrEs="$K_VIDE" # # $Z set PaRaMeTrEs="$PaRaMeTrEs"" premiere=1 derniere=$NMaximalNoeuds" # # $Z set PaRaMeTrEs="$PaRaMeTrEs"" graine=3001" # # $Z set PaRaMeTrEs="$PaRaMeTrEs"" inf=-0.5 sup=+1.5" # # $Z set PaRaMeTrEs="$PaRaMeTrEs"" entiers=FAUX" # # # # $Z set CoZ=`$xci/valeurs_alea$X $PaRaMeTrEs` # # # # $m4 _____include(_____xiirv/.FLOR.11.1._____U) # # # # $Z set _____ImageR=$xiirv/FLOR.12 # # # # $m4 _____include(_____xiirv/.FLOR.11.2._____U) # # $m4 _____include(_____xiirv/.FLOR.11.3._____U) # # $Z set _____GDerivees=0.5 # # $m4 _____include(_____xiirv/.FLOR.11.4._____U) # # # # :Fin_listG_FLOR_12: # # # # # # Visualisation du graphe relatif aux relations internes du livre de Jean-Francois Devemy # # relatif a la construction du dome octogonal de la cathedrale de Florence, les sommets # # etant places en projection bidimensionnelle comme lui les avaient disposes sur son dessin. # v $xiirv/FLOR.21.1 v $xiirv/FLOR.21.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_FLOR_21: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set NNoeuds=27 # # $Z set Nc=1 # # # # $Z set PaRaMeTrEs="$K_VIDE" # # $Z set PaRaMeTrEs="$PaRaMeTrEs"" premiere=1 derniere=$NNoeuds" # # $Z set PaRaMeTrEs="$PaRaMeTrEs"" inf=$GRIS_0 sup=$GRIS_8" # # $Z set PaRaMeTrEs="$PaRaMeTrEs"" entiers=VRAI" # # $Z set PaRaMeTrEs="$PaRaMeTrEs"" mbse=FAUX" # # # # $Z set CoR=`$xci/valeurs_alea$X $PaRaMeTrEs graine=17891` # # $Z set CoV=`$xci/valeurs_alea$X $PaRaMeTrEs graine=17893` # # $Z set CoB=`$xci/valeurs_alea$X $PaRaMeTrEs graine=17895` # # # # $Z set _____NPoints=$NNoeuds # # $Z set _____NVoisins=5 # # $m4 _____include(_____xiirs/.PSPH.21.1._____U) # # $m4 _____include(_____xiirs/.PSPH.21.4._____U) # # $m4 _____include(_____xiirs/.PSPH.21.5._____U) # # # # $Z $DELETE $xTV/COORDONNEES$COORD_X # # $Z $DELETE $xTV/COORDONNEES$COORD_Y # # $Z $DELETE $xTV/COORDONNEES$COORD_Z # # # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier=$xTV/COORDONNEES_01$COORD_X \ # # $Z > $xTV/COORDONNEES$COORD_X # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ # # $Z > $xTV/COORDONNEES$COORD_Y # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier=$xTV/COORDONNEES_01$COORD_Z \ # # $Z > $xTV/COORDONNEES$COORD_Z # # # # $Z set CoX=`$CA $xTV/COORDONNEES$COORD_X` # # $Z set CoY=`$CA $xTV/COORDONNEES$COORD_Y` # # $Z set CoZ=`$CA $xTV/COORDONNEES$COORD_Z` # # # # $Z $DELETE $xTV/COORDONNEES$COORD_Z # # $Z $DELETE $xTV/COORDONNEES$COORD_Y # # $Z $DELETE $xTV/COORDONNEES$COORD_X # # # # $Z set CoN=`$xci/nombres$X premiere=1 derniere=$NNoeuds` # # # # $Z alias Gnoeud 'set NuM=\!:1 ; \\ # # $Z set CoXc=$CoX[$Nc] ; \\ # # $Z set CoYc=$CoY[$Nc] ; \\ # # $Z set CoZc=$CoZ[$Nc] ; \\ # # $Z set CoRc=$CoR[$Nc] ; \\ # # $Z set CoVc=$CoV[$Nc] ; \\ # # $Z set CoBc=$CoB[$Nc] ; \\ # # $Z set SeT="set N_$NuM=($CoXc $CoYc $CoZc $CoRc $CoVc $CoBc)" ; \\ # # $Z eval "$SeT" ; \\ # # $Z @ Nc = $Nc + 1 ; \\ # # $Z unset SeT NuM' # # # # $Z foreach NuMeRo ($CoN) # # $Z Gnoeud $NuMeRo # # $Z end # # # # $Z set _____ImageR=$xiirv/FLOR.21 # # # # $m4 _____include(_____xiirv/.FLOR.11.2._____U) # # $m4 _____include(_____xiirv/.FLOR.11.3._____U) # # $Z set _____GDerivees=0.5 # # $m4 _____include(_____xiirv/.FLOR.11.4._____U) # # # # :Fin_listG_FLOR_21: # # # # # # Visualisation du graphe relatif aux relations internes du livre de Jean-Francois Devemy # # relatif a la construction du dome octogonal de la cathedrale de Florence, les sommets # # etant places sur une "balle de tennis" ('v $xiirs/PSPH.21.27'...). # v $xiirv/FRAN.11.1 v $xiirv/FRAN.11.2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_FRAN_11: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/FRAN.11 # # $m4 _____include(_____xiirv/.FRAN.11.1._____U) # # # # :Fin_listG_FRAN_11: # # # # # # Visualisation d'une carte de France remplie de 1506 chiffres aleatoires... # v $xiirv/FROID_CHAUD.01 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_FROID_CHAUD_01: # # # # $Z Std # # # # $Z set _____ImageA=$xiio/MIRE # # $Z set _____Palette=$xiP/bleu_orange.01 # # $Z set _____ImageR=$xiirv/FROID_CHAUD.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$_____ImageA \ # # $Z p=$_____Palette \ # # $Z R=$xTV/MIRE.11 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/MIRE.11 \ # # $Z R=$xTV/MIRE.21 \ # # $Z $formatI # # # # $Z execRVB "$xci/scroll$X \ # # $Z A=$xTV/MIRE.11%s \ # # $Z toreY=FAUX trY=+0.5 \ # # $Z $formatI | \ # # $Z $xci/scroll$X \ # # $Z toreY=FAUX trY=-0.5 \ # # $Z R=$xTV/MIRE.12%s \ # # $Z $formatI" # # # # $Z $xci/scroll$X \ # # $Z A=$xTV/MIRE.21 \ # # $Z toreY=FAUX trY=-0.5 \ # # $Z $formatI | \ # # $Z $xci/scroll$X \ # # $Z toreY=FAUX trY=+0.5 \ # # $Z R=$xTV/MIRE.22 \ # # $Z $formatI # # # # $Z $xci/coupe$X \ # # $Z A=$_____ImageA \ # # $Z h=VRAI nph=$BLANC \ # # $Z v=FAUX \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z dilater=VRAI \ # # $Z points=25 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=49 \ # # $Z R=$xTV/DIAGONALE \ # # $Z $formatI # # # # $Z execRVB "$xci/or_02$X \ # # $Z A1=$xTV/MIRE.12%s \ # # $Z A2=$xTV/MIRE.22 \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xTV/DIAGONALE \ # # $Z anti_aliasing=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_FROID_CHAUD_01: # # # v $xiirv/FROID_CHAUD.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_FROID_CHAUD_11: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Palette1=$xiP/bleu_orange.02 # # $Z set _____Palette2=$xiP/orange_bleu.02 # # $Z set _____ImageR=$xiirv/FROID_CHAUD.11 # # # # $Z set _____ImagesR=$xTV/FROID_CHAUD.11 # # # # # # $Z $xci/fract_2D.01$X \ # # $Z Frenormaliser=VRAI \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z R=$xTV/TEXTURE \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/TEXTURE \ # # $Z p=$_____Palette1 \ # # $Z R=$_____ImagesR.0001 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/TEXTURE \ # # $Z p=$_____Palette2 \ # # $Z R=$_____ImagesR.0002 \ # # $Z $formatI # # # # $Z set ArGuMeNtS="perspective=0.2 echelle=2 Ty=0.34" # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$_____ImagesR.0001%s \ # # $Z avion=FAUX \ # # $Z $ArGuMeNtS \ # # $Z R=$_____ImagesR.0003%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$_____ImagesR.0002%s \ # # $Z avion=FAUX \ # # $Z $ArGuMeNtS \ # # $Z R=$_____ImagesR.0004%s \ # # $Z $formatI # # # # $Z execRVB $xci/reduction_04$X \ # # $Z A=$_____ImagesR. \ # # $Z postfixe=%s \ # # $Z premiere=1 derniere=4 pas=1 \ # # $Z moyenne=VRAI maximum=FAUX \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_FROID_CHAUD_11: # # # v $xiirv/GAUS.11.ADD2_MUL2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GAUS_11_ADD2_MUL2: # # # # $Z Pal # # # # $Z $xci/gauss$X \ # # $Z arithmetique_etendue_gauss=VRAI \ # # $Z pxADD2_ADD2=1 pxMIN2_ADD2=0 pxMAX2_ADD2=0 \ # # $Z pxMUL2_MUL2=1 pxADD2_MUL2=0 \ # # $Z standard=FAUX Frenormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=FAUX \ # # $Z R=$xiirv/GAUS.11.ADD2_MUL2 \ # # $Z $formatI # # # # :Fin_listG_GAUS_11_ADD2_MUL2: # # # v $xiirv/GAUS.11.MIN2_ADD2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GAUS_11_MIN2_ADD2: # # # # $Z Pal # # # # $Z $xci/gauss$X \ # # $Z arithmetique_etendue_gauss=VRAI \ # # $Z pxADD2_ADD2=0 pxMIN2_ADD2=1 pxMAX2_ADD2=0 \ # # $Z pxMUL2_MUL2=0 pxADD2_MUL2=1 \ # # $Z standard=FAUX Frenormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=FAUX \ # # $Z R=$xiirv/GAUS.11.MIN2_ADD2 \ # # $Z $formatI # # # # :Fin_listG_GAUS_11_MIN2_ADD2: # v $xiirv/GAUS.11.MAX2_ADD2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GAUS_11_MAX2_ADD2: # # # # $Z Pal # # # # $Z $xci/gauss$X \ # # $Z arithmetique_etendue_gauss=VRAI \ # # $Z pxADD2_ADD2=0 pxMIN2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxMUL2_MUL2=0 pxADD2_MUL2=1 \ # # $Z standard=FAUX Frenormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=FAUX \ # # $Z R=$xiirv/GAUS.11.MAX2_ADD2 \ # # $Z $formatI # # # # :Fin_listG_GAUS_11_MAX2_ADD2: # v $xiirv/GAUS.31.1 v $xiirv/GAUS.31.2 v $xiirv/GAUS.31.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_GAUS_31: # # # # $Z Pdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____ImagesR=$xiirv/GAUS.31 # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z set _____ImageT1=$xTV/GAUS.31 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # # # $Z setenv _____Gener_gauss $xci/gauss # # $Z setenv _____Param_gauss "$K_VIDE" # # $m4 _____include(_____xiirv/.GAUS.31.1._____U) # # # # $Z SET _____Facteur=0.01723 # # # # $Z setenv _____Param_un_sur_o "$K_VIDE" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" m2_IJ=1 m2_RJ=1" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" eRho=4" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA1=7 tA1=3" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA2=8 tA2=5" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA3=6 tA3=0" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA4=7 tA4=0" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA5=8 tA5=3" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA6=9 tA6=0" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA7=10 tA7=0" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pnt=VRAI" # # # # Ces parametres sont inspires de ceux de 'v $xiirc/JULJ.U5.21'... # # # # $Z SET _____Seuil=$GRIS_4 # # $m4 _____include(_____xiirf/.MENG.65.5._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirs/.PROK.41.4.2._____U) # # # # $Z execRVB $xci/Sx$X \ # # $Z A=$_____ImagesR.21%s \ # # $Z R=$_____ImagesR.21%s \ # # $Z $formatI # # # # :Fin_listG_GAUS_31: # # # # # # Il s'agit d'une transformation 1/O d'un champ gaussien... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:12:19 # # # # $xci/accumule.42$X : 00:36:05 # # # v $xiirv/GAUS.32.1 v $xiirv/GAUS.32.2 v $xiirv/GAUS.32.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_GAUS_32: # # # # $Z Pdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____ImagesR=$xiirv/GAUS.32 # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z set _____ImageT1=$xTV/GAUS.32 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # # # $Z setenv _____Gener_gauss $xci/gauss # # $Z setenv _____Param_gauss "$K_VIDE" # # $m4 _____include(_____xiirv/.GAUS.31.1._____U) # # # # $Z SET _____Facteur=0.01723 # # # # $Z setenv _____Param_un_sur_o "$K_VIDE" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" m2_IJ=1 m2_RJ=1" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" eRho=4" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA1=7 tA1=3" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA2=8 tA2=5" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA3=6 tA3=0" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA4=7 tA4=0" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA5=8 tA5=3" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA6=9 tA6=0" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA7=10 tA7=0" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pnt=VRAI" # # # # Ces parametres sont inspires de ceux de 'v $xiirc/JULJ.U5.21'... # # # # $Z SET _____Seuil=$GRIS_4 # # $Z SET _____OJ=-200 # # $m4 _____include(_____xiirf/.MENG.65.5._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirs/.PROK.41.4.2._____U) # # # # $Z execRVB $xci/Sx$X \ # # $Z A=$_____ImagesR.21%s \ # # $Z R=$_____ImagesR.21%s \ # # $Z $formatI # # # # :Fin_listG_GAUS_32: # # # # # # Il s'agit d'une transformation 1/O d'un champ gaussien... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:10:07 # # # # $xci/accumule.42$X : 00:31:58 # # # v $xiirv/GAUS.41.1 v $xiirv/GAUS.41.2 v $xiirv/GAUS.41.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_GAUS_41: # # # # $Z Pdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____ImagesR=$xiirv/GAUS.41 # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z set _____ImageT1=$xTV/GAUS.41 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # # # $Z setenv _____Gener_gauss $xci/spiArchimede # # $Z setenv _____Param_gauss "$K_VIDE" # # $Z setenv _____Param_gauss "$_____Param_gauss"" mr=32 mt=4" # # $m4 _____include(_____xiirv/.GAUS.31.1._____U) # # # # $Z SET _____Facteur=0.01 # # # # $Z setenv _____Param_un_sur_o "$K_VIDE" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" m2_IJ=1 m2_RJ=1" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" eRho=4" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA1=7 tA1=3" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA2=8 tA2=5" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA3=6 tA3=0" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA4=7 tA4=0" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA5=8 tA5=3" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA6=9 tA6=0" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA7=10 tA7=0" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pnt=VRAI" # # # # Ces parametres sont inspires de ceux de 'v $xiirc/JULJ.U5.21'... # # # # $Z SET _____Seuil=$GRIS_4 # # $Z SET _____OJ=-10 # # $m4 _____include(_____xiirf/.MENG.65.5._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirs/.PROK.41.4.2._____U) # # # # $Z execRVB $xci/Sx$X \ # # $Z A=$_____ImagesR.21%s \ # # $Z R=$_____ImagesR.21%s \ # # $Z $formatI # # # # :Fin_listG_GAUS_41: # # # # # # Il s'agit d'une transformation 1/O d'un champ "spirale"... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:11:04 # # # # $xci/accumule.42$X : 00:58:34 # # # v $xiirv/GAUS.42.1 v $xiirv/GAUS.42.2 v $xiirv/GAUS.42.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_GAUS_42: # # # # $Z Pdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____ImagesR=$xiirv/GAUS.42 # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z set _____ImageT1=$xTV/GAUS.42 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # # # $Z setenv _____Gener_gauss $xci/spiArchimede # # $Z setenv _____Param_gauss "$K_VIDE" # # $Z setenv _____Param_gauss "$_____Param_gauss"" mr=32 mt=4" # # $m4 _____include(_____xiirv/.GAUS.31.1._____U) # # # # $Z SET _____Facteur=0.001 # # # # $Z setenv _____Param_un_sur_o "$K_VIDE" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" m2_IJ=1 m2_RJ=1" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" eRho=4" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA1=7 tA1=3" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA2=8 tA2=5" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA3=6 tA3=0" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA4=7 tA4=0" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA5=8 tA5=3" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA6=9 tA6=0" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA7=10 tA7=0" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pnt=VRAI" # # # # Ces parametres sont inspires de ceux de 'v $xiirc/JULJ.U5.21'... # # # # $Z SET _____Seuil=$GRIS_4 # # $Z SET _____OJ=-100 # # $m4 _____include(_____xiirf/.MENG.65.5._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirs/.PROK.41.4.2._____U) # # # # $Z execRVB $xci/Sx$X \ # # $Z A=$_____ImagesR.21%s \ # # $Z R=$_____ImagesR.21%s \ # # $Z $formatI # # # # :Fin_listG_GAUS_42: # # # # # # Il s'agit d'une transformation 1/O d'un champ "spirale"... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : ??:??:?? # # # # $xci/accumule.42$X : ??:??:?? # # # v $xiirv/GAUS.42.21.1$m # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_GAUS_42_21_1: # # # # $Z Pdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____ImagesA=$xiirv/GAUS.42.21 # # $Z set _____ImagesR=$_____ImagesA.1 # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/GAUS.42.21%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$xTV/TAPISSERIE.11%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/TAPISSERIE.11 \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/LUMINANCE \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=100 \ # # $Z navap=VRAI \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/LUMINANCE \ # # $Z p=$xiP/random.B7$Fi \ # # $Z R=$xTV/TEXTURE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z R=$_____ImagesR$m%s \ # # $Z $formatI # # # # :Fin_listG_GAUS_42_21_1: # # # v $xiirv/GAUS.51.1 v $xiirv/GAUS.51.2 v $xiirv/GAUS.51.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_GAUS_51: # # # # $Z Pdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____ImagesR=$xiirv/GAUS.51 # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z set _____ImageT1=$xTV/GAUS.51 # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # # # $Z setenv _____Gener_gauss $xci/trefle # # $Z setenv _____Param_gauss "$K_VIDE" # # $m4 _____include(_____xiirv/.GAUS.31.1._____U) # # # # $Z SET _____Facteur=0.02 # # # # $Z setenv _____Param_un_sur_o "$K_VIDE" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" m2_IJ=1 m2_RJ=1" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" eRho=4" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA1=7 tA1=3" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA2=8 tA2=5" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA3=6 tA3=0" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA4=7 tA4=0" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA5=8 tA5=3" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA6=9 tA6=0" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pA7=10 tA7=0" # # $Z setenv _____Param_un_sur_o "$_____Param_un_sur_o"" pnt=VRAI" # # # # Ces parametres sont inspires de ceux de 'v $xiirc/JULJ.U5.21'... # # # # $Z SET _____Seuil=$GRIS_4 # # $Z SET _____OJ=-10 # # $m4 _____include(_____xiirf/.MENG.65.5._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirs/.PROK.41.4.2._____U) # # # # $Z execRVB $xci/Sx$X \ # # $Z A=$_____ImagesR.21%s \ # # $Z R=$_____ImagesR.21%s \ # # $Z $formatI # # # # :Fin_listG_GAUS_51: # # # # # # Il s'agit d'une transformation 1/O d'un champ "spirale"... # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:13:39 # # # # $xci/accumule.42$X : 00:54:55 # # # v $xiirv/GOLD.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GOLD_11: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/GOLD.11 # # $m4 _____include(_____xiirv/.GOLD.11.1._____U) # # # # :Fin_listG_GOLD_11: # # # # # # Visualisation de la conjecture de Goldbach pour les nombres pairs (superieurs a 2) # # dans [0,70]. # v $xiirv/GOLD.11$m v $xiirv/GOLD.11$M v $xiirv/GOLD.11.1$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GOLD_11_mM: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/init$X \ # # $Z niveau=$GRIS_2 \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____Zoom=0.92 # # $Z set _____RotationZ=0.3 # # $Z set _____TranslationY=0.3 # # $Z set _____ParticulePara2="fond=VRAI F=$xTV/FOND" # # $Z set _____ImageR=$xTV/GOLD.11 # # $m4 _____include(_____xiirv/.GOLD.11.1._____U) # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=200 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z set _____ImageT=$_____ImageR # # $Z set _____ImageR=$xiirv/GOLD.11 # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$_____ImageT%s \ # # $Z avion=VRAI \ # # $Z R=$_____ImageR$m%s \ # # $Z $formatI # # # # $Z set ArGuMeNtS="perspective=0.20 Ty=0.91" # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$_____ImageT%s \ # # $Z avion=FAUX \ # # $Z $ArGuMeNtS \ # # $Z R=$_____ImageR$M%s \ # # $Z $formatI # # # # $Z $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$BLANC \ # # $Z avion=FAUX \ # # $Z $ArGuMeNtS \ # # $Z Z-Buffer=VRAI \ # # $Z R=$xTV/MONTAGNE \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/BRUME \ # # $Z $formatI # # # # $Z execRVB $xci/brume.11$X \ # # $Z A=$_____ImageR$M%s \ # # $Z B=$xTV/BRUME \ # # $Z R=$_____ImageR.1$M%s \ # # $Z $formatI # # # # :Fin_listG_GOLD_11_mM: # # # # # # Visualisation tridimensionnelle de la conjecture de Goldbach pour les nombres pairs # # (superieurs a 2) dans [0,70]. # v $xiirv/GOLD.12 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GOLD_12: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____NNombresP=200 # # $Z SET _____VisualiserN=$NEXIST # # $Z set _____RayonP1P2=0.002 # # $Z set _____ImageR=$xiirv/GOLD.12 # # $m4 _____include(_____xiirv/.GOLD.11.1._____U) # # # # :Fin_listG_GOLD_12: # # # # # # Visualisation de la conjecture de Goldbach pour les nombres pairs (superieurs a 2) # # dans [0,1222]. # v $xiirv/GOLD.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GOLD_21: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NNombresP=100 # # $Z SET _____VisualiserN=$NEXIST # # $Z set _____RayonP1P2=0.005 # # $Z set _____RotationX=-1.2 # # $Z set _____RotationY=0 # # $Z set _____RotationZ=$pis4 # # $Z set _____ImageR=$xiirv/GOLD.21 # # $m4 _____include(_____xiirv/.GOLD.11.1._____U) # # # # :Fin_listG_GOLD_21: # # # # # # Visualisation de la conjecture de Goldbach pour les nombres pairs (superieurs a 2) # # dans [0,540]. # # # # On notera que l'image n'occupe que la moitie inferieure de l'espace. Cela vient du fait # # que le centre de rotation par rapport a 'OZ' est au milieu de la ligne horizontale situee # # en position la plus elevee ; cette derniere est en fait, par calcul, orientee a -pi/4 avant # # rotation et passe par le centre de l'espace... # v $xiirv/GOLD.31.1 v $xiirv/GOLD.31.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GOLD_31: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z set _____NNombres=`$xcg/MIN2.01$X x=$dimX y=$dimY signe="$K_VIDE"` # # $Z set _____ImageR=$xiirv/GOLD.31 # # $m4 _____include(_____xiirv/.GOLD.31.1._____U) # # # # :Fin_listG_GOLD_31: # # # v $xiirv/GOLD.41 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GOLD_41: # # # # $Z set _____NNombres=16 # # $Z gFITn FIT1 $_____NNombres $_____NNombres # # $Z FIT1 # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB ITeMpOrAiRe # # # # $Z set _____ImageR=$ITeMpOrAiRe # # $m4 _____include(_____xiirv/.GOLD.31.1._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____Seuil=250 # # $Z set _____NPConvolution=225 # # $Z set _____FNPts_uv=8 # # $Z set _____ImageR=$xiirv/GOLD.41 # # $m4 _____include(_____xiirv/.GOLD.41.1._____U) # # # # $Z FilSTmpE ITeMpOrAiRe # # # # :Fin_listG_GOLD_41: # # # # # # Cette image montre tridimensionnellement la Conjecture de Goldbach pour les entiers # # de 2 a 17... # v $xiirv/GOLD.42 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GOLD_42: # # # # $Z set _____NNombres=32 # # $Z gFITn FIT1 $_____NNombres $_____NNombres # # $Z FIT1 # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB ITeMpOrAiRe # # # # $Z set _____ImageR=$ITeMpOrAiRe # # $m4 _____include(_____xiirv/.GOLD.31.1._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____Seuil=250 # # $Z set _____NPConvolution=49 # # $Z set _____FNPts_uv=4 # # $Z set _____ImageR=$xiirv/GOLD.42 # # $m4 _____include(_____xiirv/.GOLD.41.1._____U) # # # # $Z FilSTmpE ITeMpOrAiRe # # # # :Fin_listG_GOLD_42: # # # # # # Cette image montre tridimensionnellement la Conjecture de Goldbach pour les entiers # # de 2 a 33... # v $xiirv/GOLD.51.1 p=$xiP/cercle.35 v $xiirv/GOLD.51.2 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GOLD_51: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z $xrk/Goldbach.01$X \ # # $Z horizontalement=VRAI \ # # $Z nombres_premiers=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/GOLD.51.1 \ # # $Z $formatI # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/GOLD.51.1 \ # # $Z $formatI \ # # $Z mode=0 \ # # $Z R=$xiirv/GOLD.51.1 \ # # $Z $formatR_Pdu # # # # $Z $xrk/Goldbach.01$X \ # # $Z horizontalement=VRAI \ # # $Z index=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/GOLD.51.2 \ # # $Z $formatI # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/GOLD.51.2 \ # # $Z $formatI \ # # $Z mode=0 \ # # $Z R=$xiirv/GOLD.51.2 \ # # $Z $formatR_Pdu # # # # :Fin_listG_GOLD_51: # # # # # # La figure 'v $xiirv/GOLD.51.2' est aussi appelee "Glacier de Goldbach"... # v $xiirv/GOLD.52.1 p=$xiP/cercle.35 v $xiirv/GOLD.52.2 p=$xiP/cercle.35 v $xiirv/GOLD.52.3 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GOLD_52: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z $xrk/Goldbach.01$X \ # # $Z horizontalement=VRAI \ # # $Z nombres_premiers=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z R=$xiirv/GOLD.52.1 \ # # $Z $formatI # # # # $Z $xrk/Goldbach.01$X \ # # $Z horizontalement=VRAI \ # # $Z index=VRAI \ # # $Z echelle_index=3 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z R=$xiirv/GOLD.52.2 \ # # $Z $formatI # # # # $Z set ArGuMeNtS="$K_VIDE" # # $Z set ArGuMeNtS="$ArGuMeNtS"" normaliser=VRAI" # # $Z set ArGuMeNtS="$ArGuMeNtS"" abscisse=FAUX" # # $Z set ArGuMeNtS="$ArGuMeNtS"" ordonnee=VRAI" # # $Z set ArGuMeNtS="$ArGuMeNtS"" profondeur=FAUX" # # $Z set ArGuMeNtS="$ArGuMeNtS"" niveau=FAUX" # # # # $Z set TrAnY1=`$xci/coordonnees$X $ArGuMeNtS y=1` # # $Z set TrAnY2=`$xci/coordonnees$X $ArGuMeNtS y=2` # # # # $Z $xci/scroll$X \ # # $Z A=$xiirv/GOLD.52.2 \ # # $Z toreX=FAUX toreY=FAUX \ # # $Z trX=0 trY=$TrAnY1 \ # # $Z R=$xTV/GOLD.52.2.1 \ # # $Z $formatI # # # # $Z $xci/scroll$X \ # # $Z A=$xiirv/GOLD.52.2 \ # # $Z toreX=FAUX toreY=FAUX \ # # $Z trX=0 trY=$TrAnY2 \ # # $Z R=$xTV/GOLD.52.2.2 \ # # $Z $formatI # # # # $Z $xci/or_03$X \ # # $Z A1=$xTV/GOLD.52.2.1 \ # # $Z A2=$xTV/GOLD.52.2.2 \ # # $Z A3=$xiirv/GOLD.52.2 \ # # $Z R=$xiirv/GOLD.52.3 \ # # $Z $formatI # # # # :Fin_listG_GOLD_52: # # # # # # La figure 'v $xiirv/GOLD.52.2' est aussi appelee "Glacier de Goldbach"... # v $xiirv/GOLD.61 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GOLD_61: # # # # $Z Pal # # # # $Z $xrk/Goldbach.01$X \ # # $Z horizontalement=VRAI \ # # $Z nombre_decompositions=VRAI \ # # $Z decompositions_histogramme=VRAI \ # # $Z niveau_marquage_decompositions_1=$GRIS_1 \ # # $Z niveau_marquage_decompositions_2=$GRIS_8 \ # # $Z editer_premier_dernier=VRAI \ # # $Z R=$xiirv/GOLD.61 \ # # $Z $formatI # # # # :Fin_listG_GOLD_61: # # # # # # Les nombres pairs sont testes de 6 a 1564. Voir aussi la "Comete de Goldbach" # # ('v $xiirv/GOLD.62 p=$xiP/cercle.35'). # v $xiirv/GOLD.62 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GOLD_62: # # # # $Z Pqu # # # # $Z $xrk/Goldbach.01$X \ # # $Z horizontalement=VRAI \ # # $Z nombre_decompositions=VRAI \ # # $Z echelle_decompositions=10 \ # # $Z decompositions_histogramme=VRAI \ # # $Z niveau_marquage_decompositions_1=$GRIS_1 \ # # $Z niveau_marquage_decompositions_2=$GRIS_8 \ # # $Z editer_premier_dernier=VRAI \ # # $Z R=$xiirv/GOLD.62 \ # # $Z $formatI # # # # :Fin_listG_GOLD_62: # # # # # # Les nombres pairs sont testes de 6 a 6244. Voir aussi la "Comete de Goldbach" # # ('v $xiirv/GOLD.62 p=$xiP/cercle.35'). # v $xiirv/GOLD.71 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GOLD_71: # # # # $Z Pal # # # # $Z $xrk/Goldbach.01$X \ # # $Z horizontalement=VRAI \ # # $Z nombre_decompositions=VRAI \ # # $Z decompositions_histogramme=FAUX \ # # $Z editer_premier_dernier=VRAI \ # # $Z R=$xiirv/GOLD.71 \ # # $Z $formatI # # # # :Fin_listG_GOLD_71: # # # # # # Les nombres pairs sont testes de 6 a 1564. Figure appellee aussi "Comete de Goldbach"... # v $xiirv/GOLD.72 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GOLD_72: # # # # $Z Pqu # # # # $Z $xrk/Goldbach.01$X \ # # $Z horizontalement=VRAI \ # # $Z nombre_decompositions=VRAI \ # # $Z echelle_decompositions=10 \ # # $Z decompositions_histogramme=FAUX \ # # $Z editer_premier_dernier=VRAI \ # # $Z R=$xiirv/GOLD.72 \ # # $Z $formatI # # # # :Fin_listG_GOLD_72: # # # # # # Les nombres pairs sont testes de 6 a 6244. Figure appellee aussi "Comete de Goldbach"... # v $xiirv/GOLD.81 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GOLD_81: # # # # $Z Pal # # # # $Z SET _____Histogramme=VRAI # # $Z set _____ImageR=$xiirv/GOLD.81 # # $m4 _____include(_____xiirv/.GOLD.81.1._____U) # # $m4 _____include(_____xiirv/.GOLD.81.2._____U) # # $m4 _____include(_____xiirv/.GOLD.81.3._____U) # # # # :Fin_listG_GOLD_81: # # # # # # Les nombres pairs sont testes de 6 a 1564. Figure appellee aussi "Comete de Goldbach"... # v $xiirv/GOLD.82 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GOLD_82: # # # # $Z Pqu # # # # $Z SET _____Histogramme=VRAI # # $Z set _____ImageR=$xiirv/GOLD.82 # # $m4 _____include(_____xiirv/.GOLD.81.1._____U) # # $m4 _____include(_____xiirv/.GOLD.81.2._____U) # # $m4 _____include(_____xiirv/.GOLD.81.3._____U) # # # # :Fin_listG_GOLD_82: # # # # # # Les nombres pairs sont testes de 6 a 6244. Figure appellee aussi "Comete de Goldbach"... # v $xiirv/GOLD.91 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GOLD_91: # # # # $Z Pal # # # # $Z SET _____Histogramme=FAUX # # $Z set _____ImageR=$xiirv/GOLD.91 # # $m4 _____include(_____xiirv/.GOLD.81.1._____U) # # $m4 _____include(_____xiirv/.GOLD.81.2._____U) # # $m4 _____include(_____xiirv/.GOLD.81.3._____U) # # # # :Fin_listG_GOLD_91: # # # # # # Les nombres pairs sont testes de 6 a 1564. Figure appellee aussi "Comete de Goldbach"... # v $xiirv/GOLD.92 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GOLD_92: # # # # $Z Pqu # # # # $Z SET _____Histogramme=FAUX # # $Z set _____ImageR=$xiirv/GOLD.92 # # $m4 _____include(_____xiirv/.GOLD.81.1._____U) # # $m4 _____include(_____xiirv/.GOLD.81.2._____U) # # $m4 _____include(_____xiirv/.GOLD.81.3._____U) # # # # :Fin_listG_GOLD_92: # # # # # # Les nombres pairs sont testes de 6 a 6244. Figure appellee aussi "Comete de Goldbach"... # v $xiirv/GOLD.A2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GOLD_A2: # # # # $Z Squ # # # # $Z set _____Nombre=10000 # # $Z SET _____Local=$EXIST # # $Z SET _____Particule=$EXIST # # $Z set _____Palette=$xiP/arc_ciel.G1 # # $Z set _____ImageR=$xiirv/GOLD.A2 # # $m4 _____include(_____xiirv/.GOLD.81.1._____U) # # $m4 _____include(_____xiirv/.GOLD.81.2._____U) # # $m4 _____include(_____xiirv/.GOLD.81.3._____U) # # # # :Fin_listG_GOLD_A2: # # # # # # Les nombres pairs sont testes de 6 a 41518. Figure appellee aussi "Comete de Goldbach"... # v $xiirv/GOLD.A3 # Generee (sur '$CMAP28' -ex "abbesses"-) par : # # # # # # :Debut_listG_GOLD_A3: # # # # $Z Shu # # # # $Z set _____Nombre=20000 # # $Z SET _____Local=$EXIST # # $Z SET _____Particule=$EXIST # # $Z set _____Rayon=0.0006 # # $Z set _____Palette=$xiP/masque # # $Z set _____ImageR=$xiirv/GOLD.A3 # # $m4 _____include(_____xiirv/.GOLD.81.1._____U) # # $m4 _____include(_____xiirv/.GOLD.81.2._____U) # # $m4 _____include(_____xiirv/.GOLD.81.3._____U) # # # # :Fin_listG_GOLD_A3: # # # # # # Les nombres pairs sont testes de 6 a 82612. Figure appellee aussi "Comete de Goldbach"... # v $xiirv/GOLD.A4 # Generee (sur '$CMAP28' -ex "porte-d-auteuil"-) par : # # # # # # :Debut_listG_GOLD_A4: # # # # $Z Shu # # # # $Z set _____Nombre=100000 # # $Z SET _____Local=$EXIST # # $Z SET _____Particule=$EXIST # # $Z set _____Rayon=0.0006 # # $Z set _____Palette=$xiP/masque # # $Z set _____ImageR=$xiirv/GOLD.A4 # # $m4 _____include(_____xiirv/.GOLD.81.1._____U) # # $m4 _____include(_____xiirv/.GOLD.A1.2._____U) # # $m4 _____include(_____xiirv/.GOLD.81.3._____U) # # # # :Fin_listG_GOLD_A4: # # # # # # Les nombres pairs sont testes de 6 a 411678. Figure appellee aussi "Comete de Goldbach"... # v $xiirv/GOLD.A5 # Generee (sur '$CMAP28' -ex "vaugirard"-) par : # # # # # # :Debut_listG_GOLD_A5: # # # # $Z Shu # # # # $Z set _____Nombre=100000 # # $Z SET _____Local=$EXIST # # $Z SET _____Particule=$EXIST # # $Z set _____Rayon=0.0006 # # $Z set _____Palette=$xiP/arc_ciel.J4 # # $Z set _____ImageR=$xiirv/GOLD.A5 # # $m4 _____include(_____xiirv/.GOLD.81.1._____U) # # $m4 _____include(_____xiirv/.GOLD.A1.2._____U) # # $m4 _____include(_____xiirv/.GOLD.81.3._____U) # # # # :Fin_listG_GOLD_A5: # # # # # # Les nombres pairs sont testes de 6 a 411678. Figure appellee aussi "Comete de Goldbach"... # v $xiirv/GOLD.A5$IdM # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_GOLD_A5_IdM: # # # # $Z Shu # # # # $Z set _____ImageA=$xiirv/GOLD.A5 # # $Z set _____ImageR=$_____ImageA$IdM # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImageA%s \ # # $Z $formatI \ # # $Z mode=3 \ # # $Z R=$xTV/GOLD.A5%s \ # # $Z $formatR_TvC # # # # $Z TvC # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$xTV/GOLD.A5%s \ # # $Z $format_TvC \ # # $Z mode=1 \ # # $Z R=$_____ImageR%s \ # # $Z $formatR_TvB # # # # :Fin_listG_GOLD_A5_IdM: # # # # # # Les nombres pairs sont testes de 6 a 411678. Figure appellee aussi "Comete de Goldbach"... # v $xiirv/GOLD.B1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GOLD_B1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____NAuCarre=FAUX # # $Z set _____ImageR=$xiirv/GOLD.B1 # # $m4 _____include(_____xiirv/.GOLD.B1.1._____U) # # # # :Fin_listG_GOLD_B1: # # # # # # Visualisation tridimensionnelle de la conjecture de Goldbach en commencant la liste des # # nombres premiers a 3 (2 etant pair ne doit pas etre ajoute aux autres nombres premiers # # -sauf lui-meme- car, en effet, alors on trouve des nombres impairs...). # v $xiirv/GOLD.B1.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GOLD_B1_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/GOLD.B1 # # $Z set _____ImageR=$_____ImageA.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z cache=VRAI \ # # $Z iterations=2 \ # # $Z anti_aliaser=VRAI \ # # $Z echelle=VRAI a=0.8 \ # # $Z R=$xTV/GOLD.B1%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/GOLD.B1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=1000 \ # # $Z navap=VRAI \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z set FaCtEuR=0.75 # # # # $Z execRVB $xci/scale$X \ # # $Z A=$xTV/GOLD.B1%s \ # # $Z a=$FaCtEuR \ # # $Z b=`calculI $BLANC*(1-$FaCtEuR)` \ # # $Z R=$xTV/TEXTURE%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=FAUX \ # # $Z Ty=0.9 \ # # $Z R=$xTV/MONTAGNE.1%s \ # # $Z $formatI # # # # $Z execRVB $xci/transpose$X \ # # $Z A=$xTV/MONTAGNE.1%s \ # # $Z R=$xTV/MONTAGNE.2%s \ # # $Z $formatI # # # # $Z execRVB "$xci/minmax$X \ # # $Z A1=$xTV/MONTAGNE.1%s \ # # $Z A2=$xTV/MONTAGNE.2%s \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_GOLD_B1_1: # # # v $xiirv/GOLD.C2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GOLD_C2: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/init$X \ # # $Z n=$GRIS_2 \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" fond=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" F=$xTV/FOND" # # # # $Z set _____Nombre=10000 # # $Z SET _____Local=$EXIST # # $Z SET _____Particule=$EXIST # # $Z set _____Palette=$xiP/arc_ciel.G1 # # $Z set _____ImageR=$xiirv/GOLD.C2 # # $m4 _____include(_____xiirv/.GOLD.81.1._____U) # # $m4 _____include(_____xiirv/.GOLD.81.2._____U) # # $m4 _____include(_____xiirv/.GOLD.81.3._____U) # # # # :Fin_listG_GOLD_C2: # # # # # # Les nombres pairs sont testes de 6 a 41518. Figure appellee aussi "Comete de Goldbach"... # v $xiirv/GOLD.D2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GOLD_D2: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/init$X \ # # $Z n=$GRIS_0 \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" fond=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" F=$xTV/FOND" # # # # $Z set _____Nombre=40 # # $Z set _____PremierNombrePair=4 # # $Z set _____Parallele=FAUX # # $Z set _____Decomposition=VRAI # # $Z set _____Commutes=VRAI # # $Z set _____Palette=$xiP/arc_ciel.L1 # # $Z set _____ImageR=$xiirv/GOLD.D2 # # $m4 _____include(_____xiirv/.GOLD.81.1._____U) # # $m4 _____include(_____xiirv/.GOLD.81.2._____U) # # $m4 _____include(_____xiirv/.GOLD.D2.3._____U) # # # # :Fin_listG_GOLD_D2: # # # # # # Cette image montre la conjecture de Golbach suivant des droites d'equations 'X+Y=N' : # # # # NombrePair = NombrePremier1 + NombrePremier2 # # # # NombrePair = X + Y # # # # pour les entiers pairs de N=4 a N=190. # v $xiirv/GOLD.E2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GOLD_E2: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/init$X \ # # $Z n=$GRIS_0 \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" fond=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" F=$xTV/FOND" # # # # $Z set _____Nombre=40 # # $Z set _____PremierNombrePair=4 # # $Z set _____Parallele=FAUX # # $Z set _____Decomposition=VRAI # # $Z set _____Commutes=FAUX # # $Z set _____Produit=VRAI # # $Z set _____Palette=$xiP/arc_ciel.L1 # # $Z set _____ImageR=$xiirv/GOLD.E2 # # $m4 _____include(_____xiirv/.GOLD.81.1._____U) # # $m4 _____include(_____xiirv/.GOLD.81.2._____U) # # $m4 _____include(_____xiirv/.GOLD.E2.3._____U) # # # # :Fin_listG_GOLD_E2: # # # # # # Cette image montre la conjecture de Golbach suivant : # # # # NombrePair = NombrePremier1 + NombrePremier2 # # # # en visualisant les couples de points {NombrePair,NombrePremier1*NombrePremier2} # # pour les entiers pairs de N=4 a N=190. # # # # On notera que sur chaque verticale on retrouve en general plusieurs points P1*P2 puisqu'il # # y a en general plusieurs decompositions N=P1+P2 pour un entier N pair donne. Par contre sur # # chaque horizontale il ne peut y avoir qu'un seul point P1*P2 (N1=P1+P2) et ce a cause de # # l'unicite de la factorisation des entiers : en effet, s'il y avait un second point P3*P4 # # (=P1*P2 donc, avec N2=P3+P4 et N1#N2) cela voudrait dire qu'un meme entier aurait deux # # decompositions P1*P2=P3*P4... # v $xiirv/GOLD.F1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_GOLD_F1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____NNombresP=40 # # $Z set _____MaxNombresP=172 # # $Z set _____ImageR=$xiirv/GOLD.F1 # # $m4 _____include(_____xiirv/.GOLD.F1.1._____U) # # # # :Fin_listG_GOLD_F1: # # # # # # Visualisation de la conjecture de Goldbach pour les nombres pairs (superieurs a 2) # # dans [0,172] comme 'v $xiirv/GOLD.11'... # # # # Ici donc, les droites inclinees a -pi/4 donnent les entiers et donc tous les points # # qu'elles contiennent possedent la meme couleur puisqu'encore une fois, elles correspondent # # chacune a un unique entier... # v $xiirv/GOLD.F2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_GOLD_F2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____NNombresP=1000 # # $Z set _____MaxNombresP=172 # # $Z SET _____Index=VRAI # # $Z SET _____VisualiserN=$NEXIST # # $Z set _____RayonMin=0.005 # # $Z set _____RayonMax=0.016 # # $Z set _____Palette=$xiP/trou_noir.G4 # # $Z set _____ImageR=$xiirv/GOLD.F2 # # $m4 _____include(_____xiirv/.GOLD.F1.1._____U) # # # # :Fin_listG_GOLD_F2: # # # # # # Visualisation de la conjecture de Goldbach pour les nombres pairs (superieurs a 2) # # dans [0,334] comme une sorte de table d'addition (des nombres premiers)... # # # # On notera qu'ici, les droites inclinees a -pi/4 ne correspondent plus a rien et en # # particulier pas a ce que montre 'v $xiirv/GOLD.F1'. Il est donc logique qu'elles soient # # porteuses, en general, de points de diverses couleurs... # v $xiirv/GPS2.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GPS2_11: # # # # $Z Sdu # # # # $Z set _____ImagesR=$xiirv/GPS2.11 # # $m4 _____include(_____xiirv/.GPS2.11.1._____U) # # # # :Fin_listG_GPS2_11: # # # # # # Il s'agit d'une visualisation du principe du 'GPS' bidimensionnel... # v $xiirv/GPS2.11.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GPS2_11_1: # # # # $Z Sdu # # # # $Z SET _____TracerTriangle_ABC=$EXIST # # $Z SET _____TracerCercles__ABC=$NEXIST # # $Z SET _____TracerSegments_ABC=$NEXIST # # $Z set _____ImagesR=$xiirv/GPS2.11.1 # # $m4 _____include(_____xiirv/.GPS2.11.1._____U) # # # # :Fin_listG_GPS2_11_1: # # # # # # Il s'agit d'une visualisation du principe du 'GPS' bidimensionnel (points {P,A,B,C}). # v $xiirv/GPS2.11.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GPS2_11_2: # # # # $Z Sdu # # # # $Z SET _____TracerTriangle_ABC=$EXIST # # $Z SET _____TracerCercles__ABC=$NEXIST # # $Z SET _____TracerSegments_ABC=$EXIST # # $Z set _____ImagesR=$xiirv/GPS2.11.2 # # $m4 _____include(_____xiirv/.GPS2.11.1._____U) # # # # :Fin_listG_GPS2_11_2: # # # # # # Il s'agit d'une visualisation du principe du 'GPS' bidimensionnel (points {P,A,B,C}). # v $xiirv/GPS3.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GPS3_11: # # # # $Z Sdu # # # # $Z set _____ImagesR=$xiirv/GPS3.11 # # $m4 _____include(_____xiirv/.GPS3.11.1._____U) # # # # :Fin_listG_GPS3_11: # # # # # # Il s'agit d'une visualisation du principe du 'GPS' tridimensionnel (segments {PA,PB,PC}). # v $xiirv/GPS3.12 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_GPS3_12: # # # # $Z Sdu # # # # $Z SET _____Rotations=$EXIST # # $Z set _____ImagesR=$xiirv/GPS3.12 # # $m4 _____include(_____xiirv/.GPS3.11.1._____U) # # # # :Fin_listG_GPS3_12: # # # # # # Il s'agit d'une visualisation du principe du 'GPS' tridimensionnel... # v $xiirv/GR.20031219.11 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_GR_20031219_11: # # # # $Z $xiMo/graphes$vv$Z $xiirv/GR.20031219.11 # # # # :Fin_listG_GR_20031219_11: # # # # # # qui montre l'etat du site 'WWW' le 19/12/2003. Mais ATTENTION, ce graphe est tres # # incomplet a cause de l'erreur 'v $xiMo/graphes$vv$Z 20040309152753'... # v $xiirv/GR.20031220.12 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_GR_20031220_12: # # # # $Z $xiMo/graphes$vv$Z $xiirv/GR.20031220.12 \ # # $Z $EXIST $EXIST # # $Z $EXIST # # $Z 0.9 1.0 \ # # $Z 0.1 0.9 # # $Z $EXIST \ # # $Z FAUX \ # # # # :Fin_listG_GR_20031220_12: # # # # # # qui montre l'etat du site 'WWW' le 20/12/2003. Mais ATTENTION, ce graphe est tres # # incomplet a cause de l'erreur 'v $xiMo/graphes$vv$Z 20040309152753'... # v $xiirv/GR.20040309.21 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_GR_20040309_21: # # # # $Z $xiMo/graphes$vv$Z $xiirv/GR.20040309.21 \ # # $Z $EXIST $NEXIST # # $Z $EXIST # # $Z 0.9 1.0 \ # # $Z 0.1 0.9 \ # # $Z $EXIST \ # # $Z FAUX \ # # # # :Fin_listG_GR_20040309_21: # # # # # # qui montre l'etat du site 'WWW' le 09/03/2004 en ce qui concerne les 505 pages de '$xiMd' # # (a cette date...). # v $xiirv/GR.20040312.31 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_GR_20040312_31: # # # # $Z $xiMo/graphes$vv$Z $xiirv/GR.20040312.31 \ # # $Z $EXIST $NEXIST \ # # $Z $NEXIST # # $Z 0 0 \ # # $Z 0 0 \ # # $Z $EXIST \ # # $Z FAUX \ # # # # :Fin_listG_GR_20040312_31: # # # # # # qui montre l'etat du site 'WWW' le 12/03/2004 en ce qui concerne les 505 pages de '$xiMd' # # (a cette date...) en representation logarithmique, les axes 'OX' et 'OY' representant # # respectivement le logarithme des nombres de liens 'IN' et 'OUT'. # v $xiirv/GROT.11 p=$xiP/gris.01 # Pour avoir plus d'informations sur ces images, voir les commentaires de la sequence video : # # # # xivPdf 2 2 / 005088_005215 # # # # cette image correspondant a l'accumulation suivante : # # # # Std # # $xci/accumule.01$X A=$xw1/NUAGES.5 premiere=0 derniere=127 \ # # renormaliser=VRAI \ # # R=$xiirv/GROT.11 \ # # $formatI # # # Std ; $xci/display$X A=$xiirv/GROT.11$DROITE p=$xiP/gris.01 xc=1.0 $formatI & v $xiirv/GROT.11$GAUCHE p=$xiP/gris.01 # Pour avoir plus d'informations sur ces images, voir les commentaires de la sequence video : # # # # xivPdf 2 2 / 005088_005215 # # # # ces images etant les vues oeil droit et oeil gauche obtenues par l'accumulation suivante : # # # # Std # # $xci/accumule.01$X A=$xw1/NUAGES.5 premiere=0 derniere=127 \ # # translation_quelconque=VRAI try=0 trx=+5.0e-4 \ # # renormaliser=VRAI \ # # R=$xiirv/GROT.11$DROITE \ # # $formatI # # # # et : # # # # Std # # $xci/accumule.01$X A=$xw1/NUAGES.5 premiere=0 derniere=127 \ # # translation_quelconque=VRAI try=0 trx=-5.0e-4 \ # # renormaliser=VRAI \ # # R=$xiirv/GROT.11$GAUCHE \ # # $formatI # # # v $xiirv/GROT.11$STEREO # Ceci etant la presentation anaglyphique des deux images precedentes : # # # # $VERTE <==> $DROITE # # $ROUGE <==> $GAUCHE # # # Std ; $xci/display$X A=$xiirv/GROT.12$DROITE p=$xiP/gris.01 xc=1.0 $formatI & v $xiirv/GROT.12$GAUCHE p=$xiP/gris.01 # Pour avoir plus d'informations sur ces images, voir les commentaires de la sequence video : # # # # xivPdf 2 2 / 005088_005215 # # # # ces images etant les vues oeil droit et oeil gauche obtenues par l'accumulation suivante : # # # # Std # # $xci/accumule.01$X A=$xw1/NUAGES.5 premiere=0 derniere=127 \ # # translation_quelconque=VRAI try=0 trx=+1.0e-3 \ # # renormaliser=VRAI \ # # R=$xiirv/GROT.12$DROITE \ # # $formatI # # # # et : # # # # Std # # $xci/accumule.01$X A=$xw1/NUAGES.5 premiere=0 derniere=127 \ # # translation_quelconque=VRAI try=0 trx=-1.0e-3 \ # # renormaliser=VRAI \ # # R=$xiirv/GROT.12$GAUCHE \ # # $formatI # # # v $xiirv/GROT.12$STEREO # Ceci etant la presentation anaglyphique des deux images precedentes : # # # # $VERTE <==> $DROITE # # $ROUGE <==> $GAUCHE # # # Std ; $xci/display$X A=$xiirv/GROT.21$DROITE p=$xiP/gris.01 xc=1.0 $formatI & v $xiirv/GROT.21$GAUCHE p=$xiP/gris.01 # Pour avoir plus d'informations sur ces images, voir les commentaires de la sequence video : # # # # xivPdf 2 2 / 004960_005087 # # # # ces images etant les vues oeil droit et oeil gauche obtenues par l'accumulation suivante : # # # # Std # # $xci/accumule.02$X A=$xw1/NUAGES.4 premiere=0 derniere=127 \ # # seuil=200 \ # # translation_quelconque=VRAI try=0 trx=+5.0e-4 \ # # R=$xiirv/GROT.21$DROITE \ # # $formatI # # # # et : # # # # Std # # $xci/accumule.02$X A=$xw1/NUAGES.4 premiere=0 derniere=127 \ # # seuil=200 \ # # translation_quelconque=VRAI try=0 trx=-5.0e-4 \ # # R=$xiirv/GROT.21$GAUCHE \ # # $formatI # # # v $xiirv/GROT.21$STEREO # Ceci etant la presentation anaglyphique des deux images precedentes : # # # # $VERTE <==> $DROITE # # $ROUGE <==> $GAUCHE # # # Std ; $xci/display$X A=$xiirv/GROT.22$DROITE p=$xiP/gris.01 xc=1.0 $formatI & v $xiirv/GROT.22$GAUCHE p=$xiP/gris.01 v $xiirv/GROT.22 # Pour avoir plus d'informations sur ces images, voir les commentaires de la sequence video : # # # # xivPdf 2 2 / 005088_005215 # # # # ces images etant les vues oeil droit et oeil gauche obtenues par le meme procede que les # # images '$xiirv/GROT.21'. # v $xiirv/HCUB.11 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_HCUB_11: # # # # $Z Pal # # # # $Z set _____Argument="ROTATION_OX=0.3 ROTATION_OY=0.5" # # $Z set _____ImageR=$xiirv/HCUB.11 # # $m4 _____include(_____xiirv/.HCUB.11.1._____U) # # # # :Fin_listG_HCUB_11: # # # # # # qui montre un hyper-cube. # v $xiirv/HCUB.11$STEREO # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HCUB_11_STEREO: # # # # $Z Pal # # # # $Z set StErEo=0.05 # # $Z set ArGuMeNtXY="ROTATION_OX=0.3 ROTATION_OY=0.5" # # # # $Z set _____Argument="$ArGuMeNtXY stereo=-$StErEo" # # $Z set _____ImageR=$xTV/HCUB.11$GAUCHE # # $m4 _____include(_____xiirv/.HCUB.11.1._____U) # # # # $Z set _____Argument="$ArGuMeNtXY stereo=+$StErEo" # # $Z set _____ImageR=$xTV/HCUB.11$DROITE # # $m4 _____include(_____xiirv/.HCUB.11.1._____U) # # # # $Z $xci/anaglyphe.31$Z $xTV/HCUB.11$GAUCHE $xTV/HCUB.11$DROITE \ # # $Z $xiirv/HCUB.11$STEREO # # # # :Fin_listG_HCUB_11_STEREO: # # # # # # qui montre l'anaglyphe d'un hyper-cube. # v $xiirv/HCUB.12 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_HCUB_12: # # # # $Z Pal # # # # $Z set _____BorneInf=$GRIS_2 # # $Z set _____BorneSup=$GRIS_8 # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" ROTATION_OX=0.3" # # $Z set _____Argument="$_____Argument"" ROTATION_OY=0.5" # # $Z set _____Argument="$_____Argument"" cubique=VRAI" # # $Z set _____Argument="$_____Argument"" LISTE_dX=0.1" # # $Z set _____Argument="$_____Argument"" LISTE_dY=0.2" # # $Z set _____Argument="$_____Argument"" LISTE_dZ=0.3" # # $Z set _____Argument="$_____Argument"" grossissement=2" # # $Z set _____ImageR=$xiirv/HCUB.12 # # $m4 _____include(_____xiirv/.HCUB.11.1._____U) # # # # :Fin_listG_HCUB_12: # # # # # # qui montre un hyper-cube "psychedelique". # v $xiirv/HCUB.21 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_HCUB_21: # # # # $Z Pal # # # # $Z set _____BorneInf=$GRIS_2 # # $Z set _____BorneSup=$GRIS_8 # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" ROTATION_OX=0.1" # # $Z set _____Argument="$_____Argument"" ROTATION_OY=0.5" # # $Z set _____Argument="$_____Argument"" cubique=VRAI" # # $Z set _____Argument="$_____Argument"" LISTE_dX=1.1" # # $Z set _____Argument="$_____Argument"" LISTE_dY=1.2" # # $Z set _____Argument="$_____Argument"" LISTE_dZ=1.3" # # $Z set _____Argument="$_____Argument"" Ar=4" # # $Z set _____Argument="$_____Argument"" grossissement=4" # # $Z set _____ImageR=$xiirv/HCUB.21 # # $m4 _____include(_____xiirv/.HCUB.11.1._____U) # # $m4 _____include(_____xiirv/.HCUB.21.1._____U) # # # # :Fin_listG_HCUB_21: # # # # # # qui montre un hyper-cube "psychedelique". # v $xiirv/HELI.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HELI_11: # # # # $Z Shu # # # # $Z set _____Rho=0.2 # # $Z set _____CodeC=12 # # $Z set _____CodeG=40 # # $Z set _____CodeA=80 # # $Z set _____CodeT=216 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____DepthCueing=0.1 # # $Z set _____ParticulePara2="ROTATION_OX=$pis2" # # $Z set _____ImageR=$xiirv/HELI.11 # # $m4 _____include(_____xiirv/.HELI.11.1._____U) # # $m4 _____include(_____xiirv/.HELI.11.2._____U) # # $m4 _____include(_____xiirv/.HELI.11.3._____U) # # # # $Z execRVB "$xci/acces$X \ # # $Z A=$_____ImageR%s \ # # $Z renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=49 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImageR%s \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$_____ImageR%s \ # # $Z $formatR_Sdu # # # # :Fin_listG_HELI_11: # # # # # # qui montre un morceau de la double helice d'ADN. On notera le calcul au format 'Shu' # # destine a pouvoir ensuite faire de l'anti-aliasing par convolution ; ceci est rendu # # necessaire par le fait que la structure est generee en deux fois : d'abord les liaisons # # (grises) puis les boules (en couleur) representant les quatre bases {C,G,A,T}... # v $xiirv/HELI.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HELI_21: # # # # $Z Shu # # # # $Z set _____Rho=0.2 # # $Z set _____CodeC=12 # # $Z set _____CodeG=40 # # $Z set _____CodeA=80 # # $Z set _____CodeT=216 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____DepthCueing=0.1 # # $Z set _____ParticulePara2="ROTATION_OX=$pis2" # # $Z set _____ImageR=$xiirv/HELI.21 # # $m4 _____include(_____xiirv/.HELI.11.1._____U) # # $m4 _____include(_____xiirv/.HELI.21.2._____U) # # $m4 _____include(_____xiirv/.HELI.11.3._____U) # # # # $Z execRVB "$xci/acces$X \ # # $Z A=$_____ImageR%s \ # # $Z renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=49 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImageR%s \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$_____ImageR%s \ # # $Z $formatR_Sdu # # # # :Fin_listG_HELI_21: # # # # # # qui montre un morceau de la double helice d'ADN. On notera le calcul au format 'Shu' # # destine a pouvoir ensuite faire de l'anti-aliasing par convolution ; ceci est rendu # # necessaire par le fait que la structure est generee en deux fois : d'abord les liaisons # # (grises) puis les boules (en couleur) representant les quatre bases {C,G,A,T}... # v $xiirv/HELI.21$m v $xiirv/HELI.21$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HELI_21_m_M: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/HELI.21 \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z c=64 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/LUMINANCE \ # # $Z N=$xTV/GAUSS \ # # $Z seuil=250 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=1000 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/LUMINANCE \ # # $Z p=$xiP/arc_ciel.A1 \ # # $Z R=$xTV/TEXTURE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/TEXTURE%s \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z avion=VRAI \ # # $Z R=$xiirv/HELI.21$m%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/TEXTURE%s \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z avion=FAUX \ # # $Z Ty=0.76 perspective=0.24 \ # # $Z depth_cueing=VRAI min_depth_cueing=0.4 \ # # $Z R=$xiirv/HELI.21$M%s \ # # $Z $formatI # # # # :Fin_listG_HELI_21_m_M: # # # v $xiirv/HELI.31 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HELI_31: # # # # $Z Sdu # # # # $Z setenv xTV $xT # # # # $Z execRVB $xci/init$X \ # # $Z n=$GRIS_2 \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____ImageR=$xiirv/HELI.31 # # $m4 _____include(_____xiirv/.HELI.31.1._____U) # # # # :Fin_listG_HELI_31: # # # # # # qui montre un morceau de la double helice d'ADN etiquette avec 'e' et 'pi'... # v $xiirv/HELI.32 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HELI_32: # # # # $Z ext Sdu # # # # $m4 _____include(_____xiirv/.HELI.32.1._____U) # # # # $Z set _____NPaires=480 # # # # $Z set _____Theta01=-$pis8 # # $Z set _____ThetaN1=`calcul $_____Theta01-8*$dpi` # # $Z set _____Y01=-0.90 # # $Z set _____YN1=+8.0 # # # # $Z set _____DepthCueing=0 # # # # $Z set _____Zoom=1.85 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" ROTATION_OX=-1.28" # # $Z set _____ImageR=$xiirv/HELI.32 # # $m4 _____include(_____xiirv/.HELI.31.1._____U) # # # # :Fin_listG_HELI_32: # # # # # # qui montre un morceau de la double helice d'ADN etiquette avec 'e' et 'pi'... # v $xiirv/HELI.41 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HELI_41: # # # # $Z Sdu # # # # $Z setenv xTV $xT # # # # $Z execRVB $xci/init$X \ # # $Z n=$GRIS_2 \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____FDecimalesE=$xrp/Decimales_Base10_UnSurPi_____10000 # # # # $Z set _____ARayon=1.80 # # # # $Z set _____ImageR=$xiirv/HELI.41 # # $m4 _____include(_____xiirv/.HELI.31.1._____U) # # # # :Fin_listG_HELI_41: # # # # # # qui montre un morceau de la double helice d'ADN etiquette avec 'pi' et '1/pi'... # v $xiirv/HELI.42 v $xiirv/HELI.52 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HELI_42_52: # # :Debut_listG_HELI_42: # # :Debut_listG_HELI_52: # # # # $Z ext Shu # # # # $m4 _____include(_____xiirv/.HELI.32.1._____U) # # # # $Z set _____FDecimalesE=$xrp/Decimales_Base10_UnSurPi_____10000 # # # # $Z set _____ARayon=1.80 # # # # $Z set _____NPaires=480 # # # # $Z set _____Theta01=-$pis8 # # $Z set _____ThetaN1=`calcul $_____Theta01-8*$dpi` # # $Z set _____Y01=-0.90 # # $Z set _____YN1=+8.0 # # # # $Z set _____DepthCueing=0 # # # # $Z set _____Zoom=1.85 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" ROTATION_OX=-1.28" # # # # $Z set _____ImageR=$xiirv/HELI.42 # # $m4 _____include(_____xiirv/.HELI.31.1._____U) # # # # $Z set _____Legende_P="pi" # # $Z set _____Legende_E="|/pi" # # $Z set _____ImageRL=$xiirv/HELI.52 # # $m4 _____include(_____xiirv/.HELI.52.1._____U) # # # # :Fin_listG_HELI_52: # # :Fin_listG_HELI_42: # # :Fin_listG_HELI_42_52: # # # # # # qui montre un morceau de la double helice d'ADN etiquette avec 'pi' et '1/pi'... # v $xiirv/HELI.61 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HELI_61: # # # # $Z Sdu # # # # $Z setenv xTV $xT # # # # $Z execRVB $xci/init$X \ # # $Z n=$GRIS_2 \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____FDecimalesE=$xrp/Decimales_Base10_UnSurPi_____10000 # # # # $Z set _____Rho2=0.1 # # # # $Z set _____ARayon=1.80 # # # # $Z set _____ImageR=$xiirv/HELI.61 # # $m4 _____include(_____xiirv/.HELI.31.1._____U) # # # # :Fin_listG_HELI_61: # # # # # # qui montre un morceau de la double helice d'ADN etiquette avec 'pi' et '1/pi'... # v $xiirv/HELI.62 v $xiirv/HELI.72 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HELI_62_72: # # :Debut_listG_HELI_62: # # :Debut_listG_HELI_72: # # # # $Z ext Sdu # # # # $Z setenv xTV $xT # # # # $m4 _____include(_____xiirv/.HELI.32.1._____U) # # # # $Z set _____FDecimalesE=$xrp/Decimales_Base10_UnSurPi_____10000 # # # # $Z set _____ARayon=1.80 # # # # $Z set _____NPaires=480 # # # # $Z set _____Theta01=-$pis8 # # $Z set _____ThetaN1=`calcul $_____Theta01-8*$dpi` # # $Z set _____Y01=-0.90 # # $Z set _____YN1=+8.00 # # # # $Z set _____Rho2=0.1 # # # # $Z set _____DepthCueing=0 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" ROTATION_OX=-1.28" # # # # $Z set _____ImageR=$xiirv/HELI.62 # # $m4 _____include(_____xiirv/.HELI.31.1._____U) # # # # $Z set _____Legende_P="pi" # # $Z set _____Legende_E="|/pi" # # $Z set _____ImageRL=$xiirv/HELI.72 # # $m4 _____include(_____xiirv/.HELI.52.1._____U) # # # # :Fin_listG_HELI_72: # # :Fin_listG_HELI_62: # # :Fin_listG_HELI_62_72: # # # # # # qui montre un morceau de la double helice d'ADN etiquette avec 'pi' et '1/pi'... # v $xiirv/HELI.82 v $xiirv/HELI.92 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HELI_82_92: # # :Debut_listG_HELI_82: # # :Debut_listG_HELI_92: # # # # $Z ext Shu # # # # $Z setenv xTV $xT # # # # $m4 _____include(_____xiirv/.HELI.32.1._____U) # # # # $Z set _____FDecimalesE=$xrp/Decimales_Base10_UnSurPi_____10000 # # # # $Z set _____ARayon=1.80 # # # # $Z set _____NPaires=480 # # # # $Z set _____Rho1=0.3 # # $Z set _____Theta01=0 # # $Z set _____ThetaN1=`calcul $_____Theta01-8*$dpi` # # $Z set _____Y01=-0.90 # # $Z set _____YN1=+12.0 # # # # $Z set _____Rho2=0 # # # # $Z set _____Rho3=0.4 # # $Z set _____Theta03=+$pis8 # # $Z set _____ThetaN3=`calcul $_____Theta03-4*$dpi` # # # # $Z set _____Zoom=1.29 # # # # $Z set _____DepthCueing=0 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" ROTATION_OX=-1.28" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OX=-0.12" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OY=-0.05" # # # # $Z set _____KChiffres=0.0012 # # $Z set _____RChiffres=0.0015 # # # # $Z set _____ArgsGenere="$K_VIDE" # # $Z set _____ArgsGenere="$_____ArgsGenere"" ajuster_points=VRAI" # # $Z set _____ArgsGenere="$_____ArgsGenere"" equidistance=VRAI" # # $Z set _____ArgsGenere="$_____ArgsGenere"" distance_minimale=0.002" # # $Z set _____ArgsGenere="$_____ArgsGenere"" couronne=0.6" # # # # $Z set _____LPondE1=0.65 # # $Z set _____LPondE2=`calcul 1-$_____LPondE1` # # # # $Z set _____LPondP1=0.40 # # $Z set _____LPondP2=`calcul 1-$_____LPondP1` # # # # $Z set _____ImageR=$xiirv/HELI.82 # # $m4 _____include(_____xiirv/.HELI.31.1._____U) # # # # $Z set _____Legende_P="pi" # # $Z set _____Legende_E="|/pi" # # $Z set _____ImageRL=$xiirv/HELI.92 # # $m4 _____include(_____xiirv/.HELI.52.1._____U) # # # # :Fin_listG_HELI_92: # # :Fin_listG_HELI_82: # # :Fin_listG_HELI_82_92: # # # # # # qui montre un morceau de la double helice d'ADN etiquette avec 'pi' et '1/pi'... # v $xiirv/HELI.83 v $xiirv/HELI.93 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HELI_83_93: # # :Debut_listG_HELI_83: # # :Debut_listG_HELI_93: # # # # $Z ext Sdu # # # # $Z setenv xTV $xT # # # # $m4 _____include(_____xiirv/.HELI.32.1._____U) # # # # $Z set _____FDecimalesE=$xrp/Decimales_Base10_UnSurPi_____10000 # # # # $Z set _____Supprimer="2" # # # # $Z set _____ARayon=1.80 # # $Z set _____ARayonE=0.00100 # # $Z set _____ARayonP=$_____ARayonE # # # # $Z set _____KChiffres=0.0020 # # $Z set _____ZChiffresAuto=$EXIST # # # # $Z set _____NPaires=100 # # # # $Z set _____Rho1=0.3 # # $Z set _____Theta01=0 # # $Z set _____ThetaN1=`calcul $_____Theta01-8*$dpi` # # $Z set _____Y01=-0.90 # # $Z set _____YN1=+12.0 # # # # $Z set _____Rho2=0 # # # # $Z set _____Rho3=0.4 # # $Z set _____Theta03=+$pis8 # # $Z set _____ThetaN3=`calcul $_____Theta03-4*$dpi` # # # # $Z set _____Zoom=1.20 # # # # $Z set _____DepthCueing=0 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" ROTATION_OX=-1.18" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OX=-0.12" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OY=-0.05" # # # # $Z set _____LPondE1=0.87 # # $Z set _____LPondE2=`calcul 1-$_____LPondE1` # # # # $Z set _____LPondP1=0.70 # # $Z set _____LPondP2=`calcul 1-$_____LPondP1` # # # # $Z set _____ImageR=$xiirv/HELI.83 # # $m4 _____include(_____xiirv/.HELI.31.1._____U) # # # # $Z set _____Legende_P="pi" # # $Z set _____Legende_E="|/pi" # # $Z set _____ImageRL=$xiirv/HELI.93 # # $m4 _____include(_____xiirv/.HELI.52.1._____U) # # # # :Fin_listG_HELI_93: # # :Fin_listG_HELI_83: # # :Fin_listG_HELI_83_93: # # # # # # qui montre un morceau de la double helice d'ADN etiquette avec 'pi' et '1/pi'... # v $xiirv/HELI.A2 v $xiirv/HELI.B2 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HELI_A2_B2: # # :Debut_listG_HELI_A2: # # :Debut_listG_HELI_B2: # # # # $Z ext Shu # # # # $Z setenv xTV $xT # # # # $m4 _____include(_____xiirv/.HELI.32.1._____U) # # # # $Z set _____FDecimalesE=$xrp/Decimales_Base10_E_____100000 # # # # $Z set _____ARayon=1.80 # # # # $Z set _____NPaires=480 # # # # $Z set _____Rho1=0.3 # # $Z set _____Theta01=0 # # $Z set _____ThetaN1=`calcul $_____Theta01-8*$dpi` # # $Z set _____Y01=-0.90 # # $Z set _____YN1=+12.0 # # # # $Z set _____Rho2=0 # # # # $Z set _____Rho3=0.4 # # $Z set _____Theta03=+$pis8 # # $Z set _____ThetaN3=`calcul $_____Theta03-4*$dpi` # # # # $Z set _____Zoom=1.29 # # # # $Z set _____DepthCueing=0 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" ROTATION_OX=-1.28" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OX=-0.12" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OY=-0.05" # # # # $Z set _____KChiffres=0.0012 # # $Z set _____RChiffres=0.0015 # # # # $Z set _____ArgsGenere="$K_VIDE" # # $Z set _____ArgsGenere="$_____ArgsGenere"" ajuster_points=VRAI" # # $Z set _____ArgsGenere="$_____ArgsGenere"" equidistance=VRAI" # # $Z set _____ArgsGenere="$_____ArgsGenere"" distance_minimale=0.002" # # $Z set _____ArgsGenere="$_____ArgsGenere"" couronne=0.6" # # # # $Z set _____LPondE1=0.65 # # $Z set _____LPondE2=`calcul 1-$_____LPondE1` # # # # $Z set _____LPondP1=0.40 # # $Z set _____LPondP2=`calcul 1-$_____LPondP1` # # # # $Z set _____ImageR=$xiirv/HELI.A2 # # $m4 _____include(_____xiirv/.HELI.31.1._____U) # # # # $Z set _____Legende_P="pi" # # $Z set _____Legende_E="e" # # $Z set _____ImageRL=$xiirv/HELI.B2 # # $m4 _____include(_____xiirv/.HELI.52.1._____U) # # # # :Fin_listG_HELI_B2: # # :Fin_listG_HELI_A2: # # :Fin_listG_HELI_A2_B2: # # # # # # qui montre un morceau de la double helice d'ADN etiquette avec 'e' et 'pi'... # v $xiirv/HELI.A3 v $xiirv/HELI.B3 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HELI_A3_B3: # # :Debut_listG_HELI_A3: # # :Debut_listG_HELI_B3: # # # # $Z ext Sdu # # # # $Z setenv xTV $xT # # # # $m4 _____include(_____xiirv/.HELI.32.1._____U) # # # # $Z set _____FDecimalesE=$xrp/Decimales_Base10_E_____100000 # # # # $Z set _____Supprimer="2" # # # # $Z set _____ARayon=1.80 # # $Z set _____ARayonE=0.00100 # # $Z set _____ARayonP=$_____ARayonE # # # # $Z set _____KChiffres=0.0020 # # $Z set _____ZChiffresAuto=$EXIST # # # # $Z set _____NPaires=100 # # # # $Z set _____Rho1=0.3 # # $Z set _____Theta01=0 # # $Z set _____ThetaN1=`calcul $_____Theta01-8*$dpi` # # $Z set _____Y01=-0.90 # # $Z set _____YN1=+12.0 # # # # $Z set _____Rho2=0 # # # # $Z set _____Rho3=0.4 # # $Z set _____Theta03=+$pis8 # # $Z set _____ThetaN3=`calcul $_____Theta03-4*$dpi` # # # # $Z set _____Zoom=1.20 # # # # $Z set _____DepthCueing=0 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" ROTATION_OX=-1.18" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OX=-0.12" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OY=-0.05" # # # # $Z set _____LPondE1=0.87 # # $Z set _____LPondE2=`calcul 1-$_____LPondE1` # # # # $Z set _____LPondP1=0.70 # # $Z set _____LPondP2=`calcul 1-$_____LPondP1` # # # # $Z set _____ImageR=$xiirv/HELI.A3 # # $m4 _____include(_____xiirv/.HELI.31.1._____U) # # # # $Z set _____Legende_P="pi" # # $Z set _____Legende_E="e" # # $Z set _____ImageRL=$xiirv/HELI.B3 # # $m4 _____include(_____xiirv/.HELI.52.1._____U) # # # # :Fin_listG_HELI_B3: # # :Fin_listG_HELI_A3: # # :Fin_listG_HELI_A3_B3: # # # # # # qui montre un morceau de la double helice d'ADN etiquette avec 'e' et 'pi'... # v $xiirv/HELI.C2 v $xiirv/HELI.D2 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HELI_C2_D2: # # :Debut_listG_HELI_C2: # # :Debut_listG_HELI_D2: # # # # $Z ext Shu # # # # $Z setenv xTV $xT # # # # $m4 _____include(_____xiirv/.HELI.32.1._____U) # # # # $Z set _____FDecimalesE=$xrp/Decimales_Base10_DeuxPi_____10000 # # # # $Z set _____ARayon=1.80 # # # # $Z set _____NPaires=480 # # # # $Z set _____Rho1=0.3 # # $Z set _____Theta01=0 # # $Z set _____ThetaN1=`calcul $_____Theta01-8*$dpi` # # $Z set _____Y01=-0.90 # # $Z set _____YN1=+12.0 # # # # $Z set _____Rho2=0 # # # # $Z set _____Rho3=0.4 # # $Z set _____Theta03=+$pis8 # # $Z set _____ThetaN3=`calcul $_____Theta03-4*$dpi` # # # # $Z set _____Zoom=1.29 # # # # $Z set _____DepthCueing=0 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" ROTATION_OX=-1.28" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OX=-0.12" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OY=-0.05" # # # # $Z set _____KChiffres=0.0012 # # $Z set _____RChiffres=0.0015 # # # # $Z set _____ArgsGenere="$K_VIDE" # # $Z set _____ArgsGenere="$_____ArgsGenere"" ajuster_points=VRAI" # # $Z set _____ArgsGenere="$_____ArgsGenere"" equidistance=VRAI" # # $Z set _____ArgsGenere="$_____ArgsGenere"" distance_minimale=0.002" # # $Z set _____ArgsGenere="$_____ArgsGenere"" couronne=0.6" # # # # $Z set _____LPondE1=0.65 # # $Z set _____LPondE2=`calcul 1-$_____LPondE1` # # # # $Z set _____LPondP1=0.40 # # $Z set _____LPondP2=`calcul 1-$_____LPondP1` # # # # $Z set _____ImageR=$xiirv/HELI.C2 # # $m4 _____include(_____xiirv/.HELI.31.1._____U) # # # # $Z set _____Legende_P="pi" # # $Z set _____Legende_E="2.pi" # # $Z set _____ImageRL=$xiirv/HELI.D2 # # $m4 _____include(_____xiirv/.HELI.52.1._____U) # # # # :Fin_listG_HELI_D2: # # :Fin_listG_HELI_C2: # # :Fin_listG_HELI_C2_D2: # # # # # # qui montre un morceau de la double helice d'ADN etiquette avec 'pi' et '2.pi'... # v $xiirv/HELI.C3 v $xiirv/HELI.D3 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HELI_C3_D3: # # :Debut_listG_HELI_C3: # # :Debut_listG_HELI_D3: # # # # $Z ext Sdu # # # # $Z setenv xTV $xT # # # # $m4 _____include(_____xiirv/.HELI.32.1._____U) # # # # $Z set _____FDecimalesE=$xrp/Decimales_Base10_DeuxPi_____10000 # # # # $Z set _____Supprimer="2" # # # # $Z set _____ARayon=1.80 # # $Z set _____ARayonE=0.00100 # # $Z set _____ARayonP=$_____ARayonE # # # # $Z set _____KChiffres=0.0020 # # $Z set _____ZChiffresAuto=$EXIST # # # # $Z set _____NPaires=100 # # # # $Z set _____Rho1=0.3 # # $Z set _____Theta01=0 # # $Z set _____ThetaN1=`calcul $_____Theta01-8*$dpi` # # $Z set _____Y01=-0.90 # # $Z set _____YN1=+12.0 # # # # $Z set _____Rho2=0 # # # # $Z set _____Rho3=0.4 # # $Z set _____Theta03=+$pis8 # # $Z set _____ThetaN3=`calcul $_____Theta03-4*$dpi` # # # # $Z set _____Zoom=1.20 # # # # $Z set _____DepthCueing=0 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" ROTATION_OX=-1.18" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OX=-0.12" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OY=-0.05" # # # # $Z set _____LPondE1=0.80 # # $Z set _____LPondE2=`calcul 1-$_____LPondE1` # # # # $Z set _____LPondP1=0.70 # # $Z set _____LPondP2=`calcul 1-$_____LPondP1` # # # # $Z set _____ImageR=$xiirv/HELI.C3 # # $m4 _____include(_____xiirv/.HELI.31.1._____U) # # # # $Z set _____Legende_P="pi" # # $Z set _____Legende_E="2.pi" # # $Z set _____ImageRL=$xiirv/HELI.D3 # # $m4 _____include(_____xiirv/.HELI.52.1._____U) # # # # :Fin_listG_HELI_D3: # # :Fin_listG_HELI_C3: # # :Fin_listG_HELI_C3_D3: # # # # # # qui montre un morceau de la double helice d'ADN etiquette avec 'pi' et '2.pi'... # v $xiirv/HELI.E2 v $xiirv/HELI.F2 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HELI_E2_F2: # # :Debut_listG_HELI_E2: # # :Debut_listG_HELI_F2: # # # # $Z ext Shu # # # # $Z setenv xTV $xT # # # # $Z set _____Fond=$xiirf/CIEL.11.0017 # # $m4 _____include(_____xiirv/.HELI.32.1._____U) # # # # $Z set _____FDecimalesE=$xrp/Decimales_Base10_DeuxPi_____10000 # # # # $Z set _____ARayon=1.80 # # # # $Z set _____NPaires=480 # # # # $Z set _____Rho1=0.3 # # $Z set _____Theta01=0 # # $Z set _____ThetaN1=`calcul $_____Theta01-8*$dpi` # # $Z set _____Y01=-0.90 # # $Z set _____YN1=+12.0 # # # # $Z set _____Rho2=0 # # # # $Z set _____Rho3=0.4 # # $Z set _____Theta03=+$pis8 # # $Z set _____ThetaN3=`calcul $_____Theta03-4*$dpi` # # # # $Z set _____Zoom=1.29 # # # # $Z set _____DepthCueing=0 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" ROTATION_OX=-1.28" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OX=-0.12" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OY=-0.05" # # # # $Z set _____KChiffres=0.0012 # # $Z set _____RChiffres=0.0015 # # # # $Z set _____ArgsGenere="$K_VIDE" # # $Z set _____ArgsGenere="$_____ArgsGenere"" ajuster_points=VRAI" # # $Z set _____ArgsGenere="$_____ArgsGenere"" equidistance=VRAI" # # $Z set _____ArgsGenere="$_____ArgsGenere"" distance_minimale=0.002" # # $Z set _____ArgsGenere="$_____ArgsGenere"" couronne=0.6" # # # # $Z set _____LPondE1=0.65 # # $Z set _____LPondE2=`calcul 1-$_____LPondE1` # # # # $Z set _____LPondP1=0.40 # # $Z set _____LPondP2=`calcul 1-$_____LPondP1` # # # # $Z set _____ImageR=$xiirv/HELI.E2 # # $m4 _____include(_____xiirv/.HELI.31.1._____U) # # # # $Z set _____Legende_P="pi" # # $Z set _____Legende_E="2.pi" # # $Z set _____ImageRL=$xiirv/HELI.F2 # # $m4 _____include(_____xiirv/.HELI.52.1._____U) # # # # :Fin_listG_HELI_F2: # # :Fin_listG_HELI_E2: # # :Fin_listG_HELI_E2_F2: # # # # # # qui montre un morceau de la double helice d'ADN etiquette avec 'pi' et '2.pi'... # v $xiirv/HELI.E3 v $xiirv/HELI.F3 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HELI_E3_F3: # # :Debut_listG_HELI_E3: # # :Debut_listG_HELI_F3: # # # # $Z ext Sdu # # # # $Z setenv xTV $xT # # # # $Z set _____Fond=$xiirf/CIEL.11.0017 # # $m4 _____include(_____xiirv/.HELI.32.1._____U) # # # # $Z set _____FDecimalesE=$xrp/Decimales_Base10_DeuxPi_____10000 # # # # $Z set _____Supprimer="2" # # # # $Z set _____ARayon=1.80 # # $Z set _____ARayonE=0.00100 # # $Z set _____ARayonP=$_____ARayonE # # # # $Z set _____KChiffres=0.0020 # # $Z set _____ZChiffresAuto=$EXIST # # # # $Z set _____NPaires=100 # # # # $Z set _____Rho1=0.3 # # $Z set _____Theta01=0 # # $Z set _____ThetaN1=`calcul $_____Theta01-8*$dpi` # # $Z set _____Y01=-0.90 # # $Z set _____YN1=+12.0 # # # # $Z set _____Rho2=0 # # # # $Z set _____Rho3=0.4 # # $Z set _____Theta03=+$pis8 # # $Z set _____ThetaN3=`calcul $_____Theta03-4*$dpi` # # # # $Z set _____Zoom=1.20 # # # # $Z set _____DepthCueing=0 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" ROTATION_OX=-1.18" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OX=-0.12" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OY=-0.05" # # # # $Z set _____LPondE1=0.80 # # $Z set _____LPondE2=`calcul 1-$_____LPondE1` # # # # $Z set _____LPondP1=0.70 # # $Z set _____LPondP2=`calcul 1-$_____LPondP1` # # # # $Z set _____ImageR=$xiirv/HELI.E3 # # $m4 _____include(_____xiirv/.HELI.31.1._____U) # # # # $Z set _____Legende_P="pi" # # $Z set _____Legende_E="2.pi" # # $Z set _____ImageRL=$xiirv/HELI.F3 # # $m4 _____include(_____xiirv/.HELI.52.1._____U) # # # # :Fin_listG_HELI_F3: # # :Fin_listG_HELI_E3: # # :Fin_listG_HELI_E3_F3: # # # # # # qui montre un morceau de la double helice d'ADN etiquette avec 'pi' et '2.pi'... # v $xiirv/HELI.G2 v $xiirv/HELI.H2 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HELI_G2_H2: # # :Debut_listG_HELI_G2: # # :Debut_listG_HELI_H2: # # # # $Z ext Shu # # # # $Z setenv xTV $xT # # # # $Z set _____Fond=$xiirf/CIEL.31.0017 # # $m4 _____include(_____xiirv/.HELI.32.1._____U) # # # # $Z set _____FDecimalesE=$xrp/Decimales_Base10_DeuxPi_____10000 # # # # $Z set _____ARayon=1.80 # # # # $Z set _____NPaires=480 # # # # $Z set _____Rho1=0.3 # # $Z set _____Theta01=0 # # $Z set _____ThetaN1=`calcul $_____Theta01-8*$dpi` # # $Z set _____Y01=-0.90 # # $Z set _____YN1=+12.0 # # # # $Z set _____Rho2=0 # # # # $Z set _____Rho3=0.4 # # $Z set _____Theta03=+$pis8 # # $Z set _____ThetaN3=`calcul $_____Theta03-4*$dpi` # # # # $Z set _____Zoom=1.29 # # # # $Z set _____DepthCueing=0 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" ROTATION_OX=-1.28" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OX=-0.12" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OY=-0.05" # # # # $Z set _____KChiffres=0.0012 # # $Z set _____RChiffres=0.0015 # # # # $Z set _____ArgsGenere="$K_VIDE" # # $Z set _____ArgsGenere="$_____ArgsGenere"" ajuster_points=VRAI" # # $Z set _____ArgsGenere="$_____ArgsGenere"" equidistance=VRAI" # # $Z set _____ArgsGenere="$_____ArgsGenere"" distance_minimale=0.002" # # $Z set _____ArgsGenere="$_____ArgsGenere"" couronne=0.6" # # # # $Z set _____LPondE1=0.65 # # $Z set _____LPondE2=`calcul 1-$_____LPondE1` # # # # $Z set _____LPondP1=0.40 # # $Z set _____LPondP2=`calcul 1-$_____LPondP1` # # # # $Z set _____ImageR=$xiirv/HELI.G2 # # $m4 _____include(_____xiirv/.HELI.31.1._____U) # # # # $Z set _____Legende_P="pi" # # $Z set _____Legende_E="2.pi" # # $Z set _____ImageRL=$xiirv/HELI.H2 # # $m4 _____include(_____xiirv/.HELI.52.1._____U) # # # # :Fin_listG_HELI_H2: # # :Fin_listG_HELI_G2: # # :Fin_listG_HELI_G2_H2: # # # # # # qui montre un morceau de la double helice d'ADN etiquette avec 'pi' et '2.pi'... # v $xiirv/HELI.G3 v $xiirv/HELI.H3 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HELI_G3_H3: # # :Debut_listG_HELI_G3: # # :Debut_listG_HELI_H3: # # # # $Z ext Sdu # # # # $Z setenv xTV $xT # # # # $Z set _____Fond=$xiirf/CIEL.31.0017 # # $m4 _____include(_____xiirv/.HELI.32.1._____U) # # # # $Z set _____FDecimalesE=$xrp/Decimales_Base10_DeuxPi_____10000 # # # # $Z set _____Supprimer="2" # # # # $Z set _____ARayon=1.80 # # $Z set _____ARayonE=0.00100 # # $Z set _____ARayonP=$_____ARayonE # # # # $Z set _____KChiffres=0.0020 # # $Z set _____ZChiffresAuto=$EXIST # # # # $Z set _____NPaires=100 # # # # $Z set _____Rho1=0.3 # # $Z set _____Theta01=0 # # $Z set _____ThetaN1=`calcul $_____Theta01-8*$dpi` # # $Z set _____Y01=-0.90 # # $Z set _____YN1=+12.0 # # # # $Z set _____Rho2=0 # # # # $Z set _____Rho3=0.4 # # $Z set _____Theta03=+$pis8 # # $Z set _____ThetaN3=`calcul $_____Theta03-4*$dpi` # # # # $Z set _____Zoom=1.20 # # # # $Z set _____DepthCueing=0 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" ROTATION_OX=-1.18" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OX=-0.12" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OY=-0.05" # # # # $Z set _____LPondE1=0.80 # # $Z set _____LPondE2=`calcul 1-$_____LPondE1` # # # # $Z set _____LPondP1=0.70 # # $Z set _____LPondP2=`calcul 1-$_____LPondP1` # # # # $Z set _____ImageR=$xiirv/HELI.G3 # # $m4 _____include(_____xiirv/.HELI.31.1._____U) # # # # $Z set _____Legende_P="pi" # # $Z set _____Legende_E="2.pi" # # $Z set _____ImageRL=$xiirv/HELI.H3 # # $m4 _____include(_____xiirv/.HELI.52.1._____U) # # # # :Fin_listG_HELI_H3: # # :Fin_listG_HELI_G3: # # :Fin_listG_HELI_G3_H3: # # # # # # qui montre un morceau de la double helice d'ADN etiquette avec 'pi' et '2.pi'... # v $xiirv/HELI.I2.pi_2pi v $xiirv/HELI.J2.pi_2pi # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HELI_I2_J2: # # # # $Z ext Ssu # # # # $Z set _____Mire=$xiio/MIRE # # $Z set _____Fond=$xiirf/CIEL.31.0017 # # $m4 _____include(_____xiirv/.HELI.32.1._____U) # # # # $Z set _____FDecimalesE=$xrp/Decimales_Base10_DeuxPi_____10000 # # # # $Z set _____ARayon=1.80 # # # # $Z set _____NPaires=480 # # # # $Z set _____Rho1=0.3 # # $Z set _____Theta01=0 # # $Z set _____ThetaN1=`calcul $_____Theta01-8*$dpi` # # $Z set _____Y01=-0.90 # # $Z set _____YN1=+12.0 # # # # $Z set _____Rho2=0 # # # # $Z set _____Rho3=0.4 # # $Z set _____Theta03=+$pis8 # # $Z set _____ThetaN3=`calcul $_____Theta03-4*$dpi` # # # # $Z set _____Zoom=0.50 # # # # $Z set _____DepthCueing=0 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" ROTATION_OX=-1.28" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OX=-0.05" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OY=-1.08" # # # # $Z set _____KChiffres=0.0006 # # $Z set _____RChiffres=0.0007 # # # # $Z set _____ArgsGenere="$K_VIDE" # # $Z set _____ArgsGenere="$_____ArgsGenere"" ajuster_points=VRAI" # # $Z set _____ArgsGenere="$_____ArgsGenere"" equidistance=VRAI" # # $Z set _____ArgsGenere="$_____ArgsGenere"" distance_minimale=0.002" # # $Z set _____ArgsGenere="$_____ArgsGenere"" couronne=0.6" # # # # $Z set _____LPondE1=0.65 # # $Z set _____LPondE2=`calcul 1-$_____LPondE1` # # # # $Z set _____LPondP1=0.40 # # $Z set _____LPondP2=`calcul 1-$_____LPondP1` # # # # $Z set _____ImageR=$xiirv/HELI.I2.pi_2pi # # $m4 _____include(_____xiirv/.HELI.31.1._____U) # # # # $Z set _____LDimension=0.0008 # # $Z set _____LRayon=0.0008 # # $Z set _____Legende_P="pi" # # $Z set _____Legende_E="2.pi" # # $Z set _____ImageRL=$xiirv/HELI.J2.pi_2pi # # $m4 _____include(_____xiirv/.HELI.52.1._____U) # # # # :Fin_listG_HELI_I2_J2: # # # # # # qui montre un morceau de la double helice d'ADN etiquette avec 'pi' et '2.pi'... # # # # Image faite pour le volume 2 du livre de Jean-Paul Delahaye sur 'pi' (Le Monde). # v $xiirv/HELI.I3.pi_2pi v $xiirv/HELI.J3.pi_2pi # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HELI_I3_J3: # # # # $Z ext Ssu # # # # $Z set _____Mire=$xTV/MIRE # # $Z $xci/substitue$X \ # # $Z A=$xiio/MIRE \ # # $Z p=$xiP/gris.02 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____Mire \ # # $Z $formatI # # $Z set _____Fond=$xiirf/CIEL.31.0017 # # $m4 _____include(_____xiirv/.HELI.32.1._____U) # # # # $Z set _____FDecimalesE=$xrp/Decimales_Base10_DeuxPi_____10000 # # # # $Z set _____ARayon=1.80 # # # # $Z set _____NPaires=480 # # # # $Z set _____Rho1=0.3 # # $Z set _____Theta01=0 # # $Z set _____ThetaN1=`calcul $_____Theta01-8*$dpi` # # $Z set _____Y01=-0.90 # # $Z set _____YN1=+12.0 # # # # $Z set _____Rho2=0 # # # # $Z set _____Rho3=0.4 # # $Z set _____Theta03=+$pis8 # # $Z set _____ThetaN3=`calcul $_____Theta03-4*$dpi` # # # # $Z set _____Zoom=0.60 # # # # $Z set _____DepthCueing=0 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" ROTATION_OX=-1.40" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OX=-0.05" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OY=-0.80" # # # # $Z set _____KChiffres=0.0006 # # $Z set _____RChiffres=0.0007 # # # # $Z set _____ArgsGenere="$K_VIDE" # # $Z set _____ArgsGenere="$_____ArgsGenere"" ajuster_points=VRAI" # # $Z set _____ArgsGenere="$_____ArgsGenere"" equidistance=VRAI" # # $Z set _____ArgsGenere="$_____ArgsGenere"" distance_minimale=0.002" # # $Z set _____ArgsGenere="$_____ArgsGenere"" couronne=0.6" # # # # $Z set _____LPondE1=0.65 # # $Z set _____LPondE2=`calcul 1-$_____LPondE1` # # # # $Z set _____LPondP1=0.40 # # $Z set _____LPondP2=`calcul 1-$_____LPondP1` # # # # $Z set _____ImageR=$xiirv/HELI.I3.pi_2pi # # $m4 _____include(_____xiirv/.HELI.31.1._____U) # # # # $Z set _____LDimension=0.0008 # # $Z set _____LRayon=0.0008 # # $Z set _____Legende_P="pi" # # $Z set _____Legende_E="2.pi" # # $Z set _____ImageRL=$xiirv/HELI.J3.pi_2pi # # $m4 _____include(_____xiirv/.HELI.52.1._____U) # # # # :Fin_listG_HELI_I3_J3: # # # # # # qui montre un morceau de la double helice d'ADN etiquette avec 'pi' et '2.pi'... # # # # Image faite pour le volume 2 du livre de Jean-Paul Delahaye sur 'pi' (Le Monde). # v $xiirv/HELI.I4.pi_2pi v $xiirv/HELI.J4.pi_2pi # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HELI_I4_J4: # # # # $Z ext Ssu # # # # $Z set _____Mire=$xTV/MIRE # # $Z $xci/neutre$X \ # # $Z A=$xiio/MIRE \ # # $Z R=$_____Mire \ # # $Z $formatI # # $Z set _____Fond=$xiirf/CIEL.31.0017 # # $m4 _____include(_____xiirv/.HELI.32.1._____U) # # # # $Z $xci/neutre$X \ # # $Z A=$xTV/FOND$ROUGE \ # # $Z R=$xTV/FOND.1$ROUGE \ # # $Z $formatI # # # # $Z $xci/neutre$X \ # # $Z A=$xTV/FOND$VERTE \ # # $Z R=$xTV/FOND.1$VERTE \ # # $Z $formatI # # # # $Z $xci/substitue$X \ # # $Z A=$xTV/FOND$BLEUE \ # # $Z p=$xiP/gris.31 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/FOND.1$BLEUE \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xTV/FOND%s \ # # $Z A2=$xTV/FOND.1%s \ # # $Z P=$_____Mire \ # # $Z methode_basique=VRAI \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____FDecimalesE=$xrp/Decimales_Base10_DeuxPi_____10000 # # # # $Z set _____ARayon=1.80 # # # # $Z set _____NPaires=480 # # # # $Z set _____Rho1=0.3 # # $Z set _____Theta01=0 # # $Z set _____ThetaN1=`calcul $_____Theta01-8*$dpi` # # $Z set _____Y01=-0.90 # # $Z set _____YN1=+12.0 # # # # $Z set _____Rho2=0 # # # # $Z set _____Rho3=0.4 # # $Z set _____Theta03=+$pis8 # # $Z set _____ThetaN3=`calcul $_____Theta03-4*$dpi` # # # # $Z set _____Zoom=0.72 # # # # $Z set _____DepthCueing=0 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" ROTATION_OX=-1.43" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OX=-0.05" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OY=-0.65" # # # # $Z set _____KChiffres=0.0006 # # $Z set _____RChiffres=0.0007 # # # # $Z set _____ArgsGenere="$K_VIDE" # # $Z set _____ArgsGenere="$_____ArgsGenere"" ajuster_points=VRAI" # # $Z set _____ArgsGenere="$_____ArgsGenere"" equidistance=VRAI" # # $Z set _____ArgsGenere="$_____ArgsGenere"" distance_minimale=0.002" # # $Z set _____ArgsGenere="$_____ArgsGenere"" couronne=0.6" # # # # $Z set _____LPondE1=0.65 # # $Z set _____LPondE2=`calcul 1-$_____LPondE1` # # # # $Z set _____LPondP1=0.40 # # $Z set _____LPondP2=`calcul 1-$_____LPondP1` # # # # $Z set _____ImageR=$xiirv/HELI.I4.pi_2pi # # $m4 _____include(_____xiirv/.HELI.31.1._____U) # # # # $Z set _____LDimension=0.0008 # # $Z set _____LRayon=0.0008 # # $Z set _____Legende_P="pi" # # $Z set _____Legende_E="2.pi" # # $Z set _____ImageRL=$xiirv/HELI.J4.pi_2pi # # $m4 _____include(_____xiirv/.HELI.52.1._____U) # # # # :Fin_listG_HELI_I4_J4: # # # # # # qui montre un morceau de la double helice d'ADN etiquette avec 'pi' et '2.pi'... # # # # Image faite pour le volume 2 du livre de Jean-Paul Delahaye sur 'pi' (Le Monde). # v $xiirv/HELI.I5.pi_2pi # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HELI_I5: # # # # $Z ext Ssu # # # # $Z set _____Mire=$xTV/MIRE # # $Z $xci/neutre$X \ # # $Z A=$xiio/MIRE \ # # $Z R=$_____Mire \ # # $Z $formatI # # $Z set _____Fond=$xiirf/CIEL.31.0017 # # $m4 _____include(_____xiirv/.HELI.I5.1._____U) # # # # $Z $xci/substitue$X \ # # $Z A=$xTV/FOND$ROUGE \ # # $Z p=$xiP/gris.31 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/FOND.1$ROUGE \ # # $Z $formatI # # # # $Z $xci/neutre$X \ # # $Z A=$xTV/FOND$VERTE \ # # $Z R=$xTV/FOND.1$VERTE \ # # $Z $formatI # # # # $Z $xci/neutre$X \ # # $Z A=$xTV/FOND$BLEUE \ # # $Z R=$xTV/FOND.1$BLEUE \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xTV/FOND%s \ # # $Z A2=$xTV/FOND.1%s \ # # $Z P=$_____Mire \ # # $Z methode_basique=VRAI \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____FDecimalesE=$xrp/Decimales_Base10_DeuxPi_____10000 # # # # $Z set _____ARayon=1.80 # # # # $Z set _____NPaires=480 # # # # $Z set _____Rho1=0.3 # # $Z set _____Theta01=0 # # $Z set _____ThetaN1=`calcul $_____Theta01-8*$dpi` # # $Z set _____Y01=-0.90 # # $Z set _____YN1=+12.0 # # # # $Z set _____Rho2=0 # # # # $Z set _____Rho3=0.4 # # $Z set _____Theta03=+$pis8 # # $Z set _____ThetaN3=`calcul $_____Theta03-4*$dpi` # # # # $Z set _____Zoom=0.72 # # # # $Z set _____DepthCueing=0 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" ROTATION_OX=-1.43" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OX=-0.05" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OY=-0.65" # # # # $Z set _____KChiffres=0.0006 # # $Z set _____RChiffres=0.0007 # # # # $Z set _____ArgsGenere="$K_VIDE" # # $Z set _____ArgsGenere="$_____ArgsGenere"" ajuster_points=VRAI" # # $Z set _____ArgsGenere="$_____ArgsGenere"" equidistance=VRAI" # # $Z set _____ArgsGenere="$_____ArgsGenere"" distance_minimale=0.002" # # $Z set _____ArgsGenere="$_____ArgsGenere"" couronne=0.6" # # # # $Z set _____LPondE1=0.65 # # $Z set _____LPondE2=`calcul 1-$_____LPondE1` # # # # $Z set _____LPondP1=0.40 # # $Z set _____LPondP2=`calcul 1-$_____LPondP1` # # # # $Z set _____ImageR=$xiirv/HELI.I5.pi_2pi # # $m4 _____include(_____xiirv/.HELI.31.1._____U) # # # # :Fin_listG_HELI_I5: # # # # # # qui montre un morceau de la double helice d'ADN... # # # # Image faite pour le volume 2 du livre de Jean-Paul Delahaye sur 'pi' (Le Monde). # v $xiirv/HELI.K1.pi_2pi # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HELI_K1: # # # # $Z ext Ssu # # # # $Z set _____Mire=$xTV/MIRE # # $Z $xci/neutre$X \ # # $Z A=$xiio/MIRE \ # # $Z R=$_____Mire \ # # $Z $formatI # # # # $Z set _____Fond=$xTV/PAYU.H1$M # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiirf/PAYU.H1$M \ # # $Z p=$xiP/marron.06 \ # # $Z R=$_____Fond \ # # $Z $formatI # # # # $Z set _____Renormaliser=FAUX # # $m4 _____include(_____xiirv/.HELI.I5.1._____U) # # # # $Z execRVB $xci/substitue$X \ # # $Z A=$xTV/FOND%s \ # # $Z p=$xiP/gris.31 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____FDecimalesE=$xrp/Decimales_Base10_DeuxPi_____10000 # # # # $Z set _____ARayon=1.80 # # # # $Z set _____NPaires=480 # # # # $Z set _____Rho1=0.3 # # $Z set _____Theta01=0 # # $Z set _____ThetaN1=`calcul $_____Theta01-8*$dpi` # # $Z set _____Y01=-0.90 # # $Z set _____YN1=+12.0 # # # # $Z set _____Rho2=0 # # # # $Z set _____Rho3=0.4 # # $Z set _____Theta03=+$pis8 # # $Z set _____ThetaN3=`calcul $_____Theta03-4*$dpi` # # # # $Z set _____Zoom=0.72 # # # # $Z set _____DepthCueing=0 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" ROTATION_OX=-1.43" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OX=-0.05" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OY=-0.65" # # # # $Z set _____KChiffres=0.0006 # # $Z set _____RChiffres=0.0007 # # # # $Z set _____ArgsGenere="$K_VIDE" # # $Z set _____ArgsGenere="$_____ArgsGenere"" ajuster_points=VRAI" # # $Z set _____ArgsGenere="$_____ArgsGenere"" equidistance=VRAI" # # $Z set _____ArgsGenere="$_____ArgsGenere"" distance_minimale=0.002" # # $Z set _____ArgsGenere="$_____ArgsGenere"" couronne=0.6" # # # # $Z set _____LPondE1=0.65 # # $Z set _____LPondE2=`calcul 1-$_____LPondE1` # # # # $Z set _____LPondP1=0.40 # # $Z set _____LPondP2=`calcul 1-$_____LPondP1` # # # # $Z set _____ImageR=$xiirv/HELI.K1.pi_2pi # # $m4 _____include(_____xiirv/.HELI.31.1._____U) # # # # :Fin_listG_HELI_K1: # # # # # # qui montre un morceau de la double helice d'ADN... # # # # Image faite pour le volume 2 du livre de Jean-Paul Delahaye sur 'pi' (Le Monde). # v $xiirv/HELI.L1.pi_2pi v $xiirv/HELI.L1.pi_2pi.FOND # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HELI_L1: # # # # $Z ext Ssu # # # # $Z set _____ImageR=$xiirv/HELI.L1.pi_2pi # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$xiirf/CIEL.31.0017%s \ # # $Z R=$_____ImageR.FOND%s \ # # $Z $formatI # # # # $Z execRVB $xci/init$X \ # # $Z n=$BLANC \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____FDecimalesE=$xrp/Decimales_Base10_DeuxPi_____10000 # # # # $Z set _____ARayon=1.80 # # # # $Z set _____NPaires=480 # # # # $Z set _____Rho1=0.3 # # $Z set _____Theta01=0 # # $Z set _____ThetaN1=`calcul $_____Theta01-8*$dpi` # # $Z set _____Y01=-0.90 # # $Z set _____YN1=+12.0 # # # # $Z set _____Rho2=0 # # # # $Z set _____Rho3=0.4 # # $Z set _____Theta03=+$pis8 # # $Z set _____ThetaN3=`calcul $_____Theta03-4*$dpi` # # # # $Z set _____Zoom=0.72 # # # # $Z set _____DepthCueing=1 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" ROTATION_OX=-1.43" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OX=-0.05" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OY=-0.65" # # # # $Z set _____KChiffres=0.0006 # # $Z set _____RChiffres=0.0007 # # # # $Z set _____ArgsGenere="$K_VIDE" # # $Z set _____ArgsGenere="$_____ArgsGenere"" ajuster_points=VRAI" # # $Z set _____ArgsGenere="$_____ArgsGenere"" equidistance=VRAI" # # $Z set _____ArgsGenere="$_____ArgsGenere"" distance_minimale=0.002" # # $Z set _____ArgsGenere="$_____ArgsGenere"" couronne=0.6" # # # # $Z set _____LPondE1=0.65 # # $Z set _____LPondE2=`calcul 1-$_____LPondE1` # # # # $Z set _____LPondP1=0.40 # # $Z set _____LPondP2=`calcul 1-$_____LPondP1` # # # # $m4 _____include(_____xiirv/.HELI.31.1._____U) # # # # :Fin_listG_HELI_L1: # # # # # # qui montre un morceau de la double helice d'ADN... # # # # Image faite pour le volume 2 du livre de Jean-Paul Delahaye sur 'pi' (Le Monde). # v $xiirv/HEXA.11.00998 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HEXA_11_00998: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Graine=00998 # # $Z set _____ImageR=$xiirv/HEXA.11.$_____Graine # # $m4 _____include(_____xiirv/.HEXA.11.1._____U) # # # # :Fin_listG_HEXA_11_00998: # # # # # # qui montre la solution "998' du probleme 'v $xtc/HexagonesPremiers.01$vv$c'... # v $xiirv/HEXA.11.03295 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HEXA_11_03295: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Graine=03295 # # $Z set _____ImageR=$xiirv/HEXA.11.$_____Graine # # $m4 _____include(_____xiirv/.HEXA.11.1._____U) # # # # :Fin_listG_HEXA_11_03295: # # # # # # qui montre la solution "3295' du probleme 'v $xtc/HexagonesPremiers.01$vv$c'... # v $xiirv/HEXA.11.04226 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HEXA_11_04226: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Graine=04226 # # $Z set _____ImageR=$xiirv/HEXA.11.$_____Graine # # $m4 _____include(_____xiirv/.HEXA.11.1._____U) # # # # :Fin_listG_HEXA_11_04226: # # # # # # qui montre la solution "4226' du probleme 'v $xtc/HexagonesPremiers.01$vv$c'... # v $xiirv/HEXA.11.11193 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HEXA_11_11193: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Graine=11193 # # $Z set _____ImageR=$xiirv/HEXA.11.$_____Graine # # $m4 _____include(_____xiirv/.HEXA.11.1._____U) # # # # :Fin_listG_HEXA_11_11193: # # # # # # qui montre la solution "11193' du probleme 'v $xtc/HexagonesPremiers.01$vv$c'... # v $xiirv/HEXA.11.12733 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HEXA_11_12733: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Graine=12733 # # $Z set _____ImageR=$xiirv/HEXA.11.$_____Graine # # $m4 _____include(_____xiirv/.HEXA.11.1._____U) # # # # :Fin_listG_HEXA_11_12733: # # # # # # qui montre la solution "12733' du probleme 'v $xtc/HexagonesPremiers.01$vv$c'... # v $xiirv/HEXA.11.19239 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HEXA_11_19239: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Graine=19239 # # $Z set _____ImageR=$xiirv/HEXA.11.$_____Graine # # $m4 _____include(_____xiirv/.HEXA.11.1._____U) # # # # :Fin_listG_HEXA_11_19239: # # # # # # qui montre la solution "19239' du probleme 'v $xtc/HexagonesPremiers.01$vv$c'... # v $xiirv/HEXA.12.hexagones v $xiirv/HEXA.12.hexagones.sommets v $xiirv/HEXA.12.00998 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HEXA_12_00998: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Graine=00998 # # $Z set _____Rayon21=0.010 # # $Z set _____Rayon22=0.020 # # $Z set _____Zoom=0.60 # # $Z SET _____Hexagones=$xiirv/HEXA.12.hexagones # # $Z SET _____Nombres=$EXIST # # $Z set _____Palette=$xiP/rouge_orang # # $Z set _____ImageR=$xiirv/HEXA.12.$_____Graine # # $m4 _____include(_____xiirv/.HEXA.11.1._____U) # # # # :Fin_listG_HEXA_12_00998: # # # # # # qui montre la solution "998' du probleme 'v $xtc/HexagonesPremiers.01$vv$c'... # v $xiirv/HEXA.13.00998 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HEXA_13_00998: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Graine=00998 # # $Z set _____Rayon21=0.008 # # $Z set _____Rayon22=0.016 # # $Z set _____Zoom=0.60 # # # # $Z SET _____Tordre=$EXIST # # # # $Z set _____GraineX=1001 # # $Z SET _____BinfX=-2.0 # # $Z SET _____BsupX=+2.0 # # $Z set Vrai_BinfX=+0.8 # # $Z set Vrai_BsupX=$_____BsupX # # $Z set _____ExclusionAX=`calcul ($Vrai_BsupX-$Vrai_BinfX)/$Vrai_BsupX` # # $Z set _____ExclusionBX=$Vrai_BinfX # # # # $Z set _____GraineY=1 # # $Z SET _____BinfY=-2.0 # # $Z SET _____BsupY=+2.0 # # $Z set Vrai_BinfY=+0.8 # # $Z set Vrai_BsupY=$_____BsupY # # $Z set _____ExclusionAY=`calcul ($Vrai_BsupY-$Vrai_BinfY)/$Vrai_BsupY` # # $Z set _____ExclusionBY=$Vrai_BinfY # # # # A priori, les nombres aleatoires {dX,dY} sont en valeur absolue dans [0,1], ce qui fait # # qu'il y en a qui sont proches de 0 et donc sans interet pour faire de "belles" courbures. # # La manipulation qui est faite grace a ce qui precede, les ramene (toujours en valeur # # absolue) dans [0.4,1]. Elle utilise la demi-droite d'equation : # # # # y = a.x + b # # # # avec : # # # # b = Vrai_BinfX # # # # Vrai_BsupX - Vrai_BinfX # # a = ------------------------- # # Vrai_BsupX # # # # ceci etant pour la demi-droite du demi-plan X>0. Pour le demi-plan X<0, il faut changer # # le signe de l'ordonnee a l'origine 'b'... # # # # # # | # # +Vrai_BsupX *. . . . . . . . . # # | .+. # # | +. . # # | + . . # # | + . . # # +Vrai_BinfX * . . # # | . . # # | . . # # -Vrai_BsupX |. . # # ---*----------------O----------------*-- # # . .| +Vrai_BsupX # # . . | # # . . | # # . . * -Vrai_BinfX # # . . + | # # . . + | # # . .+ | # # .+. | # # . . . . . . . . .* -Vrai_BsupX # # | # # # # $Z SET _____Nombres=$EXIST # # $Z set _____Palette=$xiP/rouge_orang # # $Z set _____ImageR=$xiirv/HEXA.13.$_____Graine # # $m4 _____include(_____xiirv/.HEXA.11.1._____U) # # # # :Fin_listG_HEXA_13_00998: # # # # # # qui montre la solution "998' du probleme 'v $xtc/HexagonesPremiers.01$vv$c'... # # # # Voir 'v $xamci/20190415102303 sebastien.kernivinen@gmail.com' pour une possible explication # # de l'origine de ce mysterieux probleme... # v $xiirv/HILB.12 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HILB_12: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=2 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Zoom=0.65 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/HILB.12 # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_HILB_12: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 1). # v $xiirv/HILB.13 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HILB_13: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=3 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Zoom=0.65 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/HILB.13 # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_HILB_13: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 2). # v $xiirv/HILB.14 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HILB_14: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=4 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Zoom=0.65 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/HILB.14 # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_HILB_14: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 3). # v $xiirv/HILB.14.0001 v $xiirv/HILB.14.0002 v $xiirv/HILB.14.0003 v $xiirv/HILB.14.0004 v $xiirv/HILB.14.0005 v $xiirv/HILB.14.0006 v $xiirv/HILB.14.0007 v $xiirv/HILB.14.0008 v $xiirv/HILB.14.0009 v $xiirv/HILB.14.0010 v $xiirv/HILB.14.0011 v $xiirv/HILB.14.0012 v $xiirv/HILB.14.0013 v $xiirv/HILB.14.0014 v $xiirv/HILB.14.0015 v $xiirv/HILB.14.0016 Pal ; anim3 A=$xiirv/HILB.14. premiere=1 derniere=16 # Correspond aux images de la sequence : # # # # 'v $xiaf/HILB.14$R16' # # # v $xiirv/HILB.14$STEREO # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HILB_14_STEREO: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=4 # # $Z set _____Palette=$xiP/blanc # # $Z set _____Rayon=0.02 # # $Z set _____Zoom=0.65 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # # # $Z set StErEo=0.05 # # # # $Z set _____ParticulePara1="stereo=-$StErEo" # # $Z set _____ImageR=$xTV/HILB.14$GAUCHE # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z set _____ParticulePara1="stereo=+$StErEo" # # $Z set _____ImageR=$xTV/HILB.14$DROITE # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z $xci/anaglyphe.31$Z $xTV/HILB.14$GAUCHE $xTV/HILB.14$DROITE \ # # $Z $xiirv/HILB.14$STEREO # # # # :Fin_listG_HILB_14_STEREO: # # # v $xiirv/HILB.15 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HILB_15: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Zoom=0.65 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/HILB.15 # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_HILB_15: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 4). # v $xiirv/HILB.15.0001 v $xiirv/HILB.15.0002 v $xiirv/HILB.15.0003 v $xiirv/HILB.15.0004 v $xiirv/HILB.15.0005 v $xiirv/HILB.15.0006 v $xiirv/HILB.15.0007 v $xiirv/HILB.15.0008 v $xiirv/HILB.15.0009 v $xiirv/HILB.15.0010 v $xiirv/HILB.15.0011 v $xiirv/HILB.15.0012 v $xiirv/HILB.15.0013 v $xiirv/HILB.15.0014 v $xiirv/HILB.15.0015 v $xiirv/HILB.15.0016 Pal ; anim3 A=$xiirv/HILB.15. premiere=1 derniere=16 # Correspond aux images de la sequence : # # # # 'v $xiaf/HILB.15$R16' # # # v $xiirv/HILB.15$STEREO # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HILB_15_STEREO: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # $Z set _____Palette=$xiP/blanc # # $Z set _____Rayon=0.02 # # $Z set _____Zoom=0.65 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # # # $Z set StErEo=0.05 # # # # $Z set _____ParticulePara1="stereo=-$StErEo" # # $Z set _____ImageR=$xTV/HILB.15$GAUCHE # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z set _____ParticulePara1="stereo=+$StErEo" # # $Z set _____ImageR=$xTV/HILB.15$DROITE # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z $xci/anaglyphe.31$Z $xTV/HILB.15$GAUCHE $xTV/HILB.15$DROITE \ # # $Z $xiirv/HILB.15$STEREO # # # # :Fin_listG_HILB_15_STEREO: # # # v $xiirv/HILB.22 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HILB_22: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=2 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/HILB.22 # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_22: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 1). # v $xiirv/HILB.23 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HILB_23: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=3 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/HILB.23 # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_23: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 2). # v $xiirv/HILB.24 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HILB_24: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=4 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/HILB.24 # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_24: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 3). # v $xiirv/HILB.25 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HILB_25: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/HILB.25 # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_25: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 4). # v $xiirv/HILB.26 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HILB_26: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=6 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/HILB.26 # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_26: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 5). # v $xiirv/HILB.2A.1 v $xiirv/HILB.2A.2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_2A: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$xiit/JFC.12%s \ # # $Z mode=1 \ # # $Z $format_Std \ # # $Z R=$xTV/JFC.12%s \ # # $Z $formatR_Squ # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$xTV/JFC.12%s \ # # $Z mode=7 \ # # $Z $format_Squ \ # # $Z R=$xTV/JFC.12%s \ # # $Z $formatR_Sdu # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/JFC.12 \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/JFC.12 \ # # $Z $formatI # # # # $Z set _____ImageA=$xTV/JFC.12 # # # # $Z set _____Profondeur=7 # # $Z set _____Dm=0.004 # # $Z set _____ImageR=$xiirv/HILB.2A # # $m4 _____include(_____xiirv/.HILB.2A._____U) # # # # :Fin_listG_HILB_2A: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 5). # v $xiirv/HILB.34.2 # Generee (sur '$CMAP28' -ex "abbesses"-) par : # # # # # # :Debut_listG_HILB_34: # # # # $Z Sdu # # # # $Z setenv xTV $xTS # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/HILB.34 # # # # $Z set _____Profondeur=4 # # $m4 _____include(_____xiirv/.HILB.31._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/HILB.34 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_HILB_34: # # # # # # qui montre une courbe de Hilbert tridimensionnelle. On notera le format carre 'Sdu' # # destine a faciliter la conservation des proportions et du centrage lors de l'utilisation de # # 'v $xrv/store_album$K 20120417134518' (sans utiliser la modification faite a cette date). # v $xiirv/HILB.35.2 # Generee (sur '$CMAP28' -ex "robespierre"-) par : # # # # # # :Debut_listG_HILB_35: # # # # $Z Sdu # # # # $Z setenv xTV $xTS # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/HILB.35 # # # # $Z set _____Profondeur=5 # # $m4 _____include(_____xiirv/.HILB.31._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/HILB.35 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_HILB_35: # # # # # # qui montre une courbe de Hilbert tridimensionnelle. On notera le format carre 'Sdu' # # destine a faciliter la conservation des proportions et du centrage lors de l'utilisation de # # 'v $xrv/store_album$K 20120417134518' (sans utiliser la modification faite a cette date). # v $xiirv/HILB.44 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HILB_44: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=4 # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeZ=2.0 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/HILB.44 # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_44: # # # # # # qui montre une courbe de Hilbert bidimensionnelle proche de 'v $xiirv/HILB.24' avec une # # petite "excursion" tridimensionnelle... # v $xiirv/HILB.45 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HILB_45: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeZ=2.0 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/HILB.45 # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_45: # # # # # # qui montre une courbe de Hilbert bidimensionnelle proche de 'v $xiirv/HILB.25' avec une # # petite "excursion" tridimensionnelle... # v $xiirv/HILB.54 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HILB_54: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=4 # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=0.2 # # $Z set _____DeriveeY=0.2 # # $Z set _____DeriveeZ=0.2 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Zoom=0.65 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/HILB.54 # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_HILB_54: # # # # # # qui montre une courbe de Hilbert tridimensionnelle proche de 'v $xiirv/HILB.14' avec des # # perturbations tridimensionnelles... # v $xiirv/HILB.55 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HILB_55: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=0.2 # # $Z set _____DeriveeY=0.2 # # $Z set _____DeriveeZ=0.2 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Zoom=0.65 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/HILB.55 # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_HILB_55: # # # # # # qui montre une courbe de Hilbert tridimensionnelle proche de 'v $xiirv/HILB.15' avec des # # perturbations tridimensionnelles... # v $xiirv/HILB.64.2 # Generee (sur '$CMAP28' -ex "abbesses"-) par : # # # # # # :Debut_listG_HILB_64: # # # # $Z Sdu # # # # $Z setenv xTV $xTS # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/HILB.64 # # # # $Z set _____Profondeur=4 # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=0.2 # # $Z set _____DeriveeY=0.2 # # $Z set _____DeriveeZ=0.2 # # $m4 _____include(_____xiirv/.HILB.31._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/HILB.64 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_HILB_64: # # # # # # qui montre une courbe de Hilbert tridimensionnelle proche de 'v $xiirv/HILB.34.2' avec des # # perturbations tridimensionnelles... # v $xiirv/HILB.65.2 # Generee (sur '$CMAP28' -ex "robespierre"-) par : # # # # # # :Debut_listG_HILB_65: # # # # $Z Sdu # # # # $Z setenv xTV $xTS # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/HILB.65 # # # # $Z set _____Profondeur=5 # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=0.2 # # $Z set _____DeriveeY=0.2 # # $Z set _____DeriveeZ=0.2 # # $m4 _____include(_____xiirv/.HILB.31._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/HILB.65 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_HILB_65: # # # # # # qui montre une courbe de Hilbert tridimensionnelle proche de 'v $xiirv/HILB.35.2' avec des # # perturbations tridimensionnelles... # v $xiirv/HILB.74.2 # Generee (sur '$CMAP28' -ex "abbesses"-) par : # # # # # # :Debut_listG_HILB_74: # # # # $Z Std # # # # $Z setenv xTV $xTS # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/HILB.74 # # # # $Z set _____Profondeur=4 # # $Z set _____DemiPaveX=1 # # $Z set _____DemiPaveY=1 # # $Z set _____DemiPaveZ=1 # # $m4 _____include(_____xiirv/.HILB.31._____U) # # # # $Z set _____ImageTW=$_____ImageT1 # # $Z set _____ImageT1=$xTV/HILB.74.1 # # $Z set _____Listes=VRAI # # $Z set _____ListesMortes__="000010001110000011100010000" # # $Z set _____ListesVivantes="111111100011111110000111111" # # $Z set _____NGenerations=4 # # $m4 _____include(_____xiirk/.JWIE.11.2._____U) # # # # $Z set execRVB_Para=VRAI # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/HILB.74 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_HILB_74: # # # # # # qui montre une courbe de Hilbert tridimensionnelle identique a 'v $xiirv/HILB.34.2' # # "attaquee" par le jeu de la vie tridimensionnel. # v $xiirv/HILB.75.2 # Generee (sur '$CMAP28' -ex "robespierre"-) par : # # # # # # :Debut_listG_HILB_75: # # # # $Z Std # # # # $Z setenv xTV $xTS # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/HILB.75 # # # # $Z set _____Profondeur=5 # # $Z set _____DemiPaveX=1 # # $Z set _____DemiPaveY=1 # # $Z set _____DemiPaveZ=1 # # $m4 _____include(_____xiirv/.HILB.31._____U) # # # # $Z set _____ImageTW=$_____ImageT1 # # $Z set _____ImageT1=$xTV/HILB.75.1 # # $Z set _____Listes=VRAI # # $Z set _____ListesMortes__="000010001110000011100010000" # # $Z set _____ListesVivantes="111111100011111110000111111" # # $Z set _____NGenerations=4 # # $m4 _____include(_____xiirk/.JWIE.11.2._____U) # # # # $Z set execRVB_Para=VRAI # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/HILB.75 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_HILB_75: # # # # # # qui montre une courbe de Hilbert tridimensionnelle identique a 'v $xiirv/HILB.35.2' # # "attaquee" par le jeu de la vie tridimensionnel. # v $xiirv/HILB.84.2 # Generee (sur '$CMAP28' -ex "abbesses"-) par : # # # # # # :Debut_listG_HILB_84: # # # # $Z Std # # # # $Z setenv xTV $xTS # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/HILB.84 # # # # $Z set _____Profondeur=4 # # $Z set _____DemiPaveX=1 # # $Z set _____DemiPaveY=1 # # $Z set _____DemiPaveZ=1 # # $m4 _____include(_____xiirv/.HILB.31._____U) # # # # $Z set _____ImageTW=$_____ImageT1 # # $Z set _____ImageT1=$xTV/HILB.84.1 # # $Z set _____Listes=VRAI # # $Z set _____ListesMortes__="000010001110000011100010000" # # $Z set _____ListesVivantes="111111100000111000000111111" # # $Z set _____NGenerations=4 # # $m4 _____include(_____xiirk/.JWIE.11.2._____U) # # # # $Z set execRVB_Para=VRAI # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/HILB.84 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_HILB_84: # # # # # # qui montre une courbe de Hilbert tridimensionnelle identique a 'v $xiirv/HILB.34.2' # # "attaquee" par le jeu de la vie tridimensionnel. # v $xiirv/HILB.85.2 # Generee (sur '$CMAP28' -ex "robespierre"-) par : # # # # # # :Debut_listG_HILB_85: # # # # $Z Std # # # # $Z setenv xTV $xTS # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/HILB.85 # # # # $Z set _____Profondeur=5 # # $Z set _____DemiPaveX=1 # # $Z set _____DemiPaveY=1 # # $Z set _____DemiPaveZ=1 # # $m4 _____include(_____xiirv/.HILB.31._____U) # # # # $Z set _____ImageTW=$_____ImageT1 # # $Z set _____ImageT1=$xTV/HILB.85.1 # # $Z set _____Listes=VRAI # # $Z set _____ListesMortes__="000010001110000011100010000" # # $Z set _____ListesVivantes="111111100000111000000111111" # # $Z set _____NGenerations=4 # # $m4 _____include(_____xiirk/.JWIE.11.2._____U) # # # # $Z set execRVB_Para=VRAI # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/HILB.85 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_HILB_85: # # # # # # qui montre une courbe de Hilbert tridimensionnelle identique a 'v $xiirv/HILB.35.2' # # "attaquee" par le jeu de la vie tridimensionnel. # v $xiirv/HILB.94.2 # Generee (sur '$CMAP28' -ex "porte-de-versailles"-) par : # # # # # # :Debut_listG_HILB_94: # # # # $Z Std # # # # $Z setenv xTV $xTS # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/HILB.94 # # # # $Z set _____Profondeur=4 # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=0.2 # # $Z set _____DeriveeY=0.2 # # $Z set _____DeriveeZ=0.2 # # $Z set _____DemiPaveX=1 # # $Z set _____DemiPaveY=1 # # $Z set _____DemiPaveZ=1 # # $m4 _____include(_____xiirv/.HILB.31._____U) # # # # $Z set _____ImageTW=$_____ImageT1 # # $Z set _____ImageT1=$xTV/HILB.94.1 # # $Z set _____Listes=VRAI # # $Z set _____ListesMortes__="000010001110000011100010000" # # $Z set _____ListesVivantes="111111100000111000000111111" # # $Z set _____NGenerations=4 # # $m4 _____include(_____xiirk/.JWIE.11.2._____U) # # # # $Z set execRVB_Para=VRAI # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/HILB.94 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_HILB_94: # # # # # # qui montre une courbe de Hilbert tridimensionnelle identique a 'v $xiirv/HILB.64.2' # # "attaquee" par le jeu de la vie tridimensionnel. # v $xiirv/HILB.95.2 # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_HILB_95: # # # # $Z Std # # # # $Z setenv xTV $xTS # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/HILB.95 # # # # $Z set _____Profondeur=5 # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=0.2 # # $Z set _____DeriveeY=0.2 # # $Z set _____DeriveeZ=0.2 # # $Z set _____DemiPaveX=1 # # $Z set _____DemiPaveY=1 # # $Z set _____DemiPaveZ=1 # # $m4 _____include(_____xiirv/.HILB.31._____U) # # # # $Z set _____ImageTW=$_____ImageT1 # # $Z set _____ImageT1=$xTV/HILB.95.1 # # $Z set _____Listes=VRAI # # $Z set _____ListesMortes__="000010001110000011100010000" # # $Z set _____ListesVivantes="111111100000111000000111111" # # $Z set _____NGenerations=4 # # $m4 _____include(_____xiirk/.JWIE.11.2._____U) # # # # $Z set execRVB_Para=VRAI # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/HILB.95 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_HILB_95: # # # # # # qui montre une courbe de Hilbert tridimensionnelle identique a 'v $xiirv/HILB.65.2' # # "attaquee" par le jeu de la vie tridimensionnel. # v $xiirv/HILB.A3.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HILB_A3: # # # # $Z Std # # # # $Z setenv xTV $xTS # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/HILB.A3 # # # # $Z set _____Profondeur=3 # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=0.8 # # $Z set _____DeriveeY=0.8 # # $Z set _____DeriveeZ=0.8 # # $Z set _____MinX=0.25 # # $Z set _____MaxX=0.85 # # $Z set _____MinY=0.1 # # $Z set _____MaxY=0.75 # # $Z set _____MinZ=0.0 # # $Z set _____MaxZ=1.0 # # $Z set _____DemiPaveX=0 # # $Z set _____DemiPaveY=0 # # $Z set _____DemiPaveZ=0 # # $m4 _____include(_____xiirv/.HILB.31._____U) # # # # $Z set _____ImageTW=$_____ImageT1 # # $Z set _____ImageT1=$xTV/HILB.A3.1 # # $Z set _____Listes=VRAI # # $Z set _____ListesMortes__="000111011111000111110111000" # # $Z set _____ListesVivantes="111111100011111110000111111" # # $Z set _____NGenerations=20 # # $m4 _____include(_____xiirk/.JWIE.11.2._____U) # # # # $Z set execRVB_Para=VRAI # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/HILB.A3 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_HILB_A3: # # # # # # qui montre une courbe de Hilbert tridimensionnelle identique a 'v $xiirv/HILB.13' # # "attaquee" par le jeu de la vie tridimensionnel. # v $xiirv/HILB.B5 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HILB_B5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # $Z set _____Segments_AB=FAUX # # # # $Z set _____Eval="$K_VIDE" # # $Z set _____Eval="$_____Eval"'$xci/valeurs_prem$X' # # $Z set _____Eval="$_____Eval"' premiere=1 derniere=$Npart' # # $Z set _____Eval="$_____Eval"' > $FiLeTmP_HILBERT.P1' # # $Z set _____Eval="$_____Eval"' ; ' # # $Z set _____Eval="$_____Eval"'$xrv/AXPB.01$X' # # $Z set _____Eval="$_____Eval"' ne=$Npart' # # $Z set _____Eval="$_____Eval"' fichier=$FiLeTmP_HILBERT.P1' # # $Z set _____Eval="$_____Eval"' a=0.002 b=0' # # $Z set _____Eval="$_____Eval"' > $FiLeTmP_HILBERT.P2' # # # # $Z set _____Palette=$xiP/blanc # # $Z set _____Zoom=1.30 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" isoles=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" dernier_premier=FAUX" # # $Z set _____ParticulePara1="$_____ParticulePara1"' LISTE_RAYON=$FiLeTmP_HILBERT.P2' # # # # $Z set _____Fond="fond=VRAI F=$xiirv/HILB.25" # # $Z set _____ImageR=$xiirv/HILB.B5 # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_B5: # # # # # # qui montre une courbe de Hilbert bidimensionnelle avec la visualisation du nombre de # # diviseurs de la coordonnee curviligne (un peu comme 'v $xiirv/PRIM.F1'...) de 1 a 510, # # marques chacun par une boule blanche de rayon proportionnel au nombre de diviseurs. # # # # Evidemment, cela n'a que peu d'interet puisque lorsque l'on change '$_____Profondeur', # # les points ne gardent pas leurs positions relatives (il suffit, pour s'en convaincre, # # de comparer 'v $xiirv/HILB.22' et 'v $xiirv/HILB.23' par exemple...). # v $xiirv/HILB.C5 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HILB_C5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # $Z set _____Segments_AB=FAUX # # # # $Z set _____Eval="$K_VIDE" # # $Z set _____Eval="$_____Eval"'$xci/valeurs_prem$X' # # $Z set _____Eval="$_____Eval"' premiere=1 derniere=$Npart' # # $Z set _____Eval="$_____Eval"' > $FiLeTmP_HILBERT.P1' # # $Z set _____Eval="$_____Eval"' ; ' # # $Z set _____Eval="$_____Eval"'$xrv/passe_ban.01$X' # # $Z set _____Eval="$_____Eval"' ne=$Npart' # # $Z set _____Eval="$_____Eval"' fichier=$FiLeTmP_HILBERT.P1' # # $Z set _____Eval="$_____Eval"' minimum=2 maximum=2' # # $Z set _____Eval="$_____Eval"' marquer_bande=VRAI' # # $Z set _____Eval="$_____Eval"' valeur_bande=12' # # $Z set _____Eval="$_____Eval"' marquer_hors_bande=VRAI' # # $Z set _____Eval="$_____Eval"' valeur_inferieure=6' # # $Z set _____Eval="$_____Eval"' valeur_superieure=6' # # $Z set _____Eval="$_____Eval"' > $FiLeTmP_HILBERT.P2' # # $Z set _____Eval="$_____Eval"' ; ' # # $Z set _____Eval="$_____Eval"'$xrv/AXPB.01$X' # # $Z set _____Eval="$_____Eval"' ne=$Npart' # # $Z set _____Eval="$_____Eval"' fichier=$FiLeTmP_HILBERT.P2' # # $Z set _____Eval="$_____Eval"' a=0.002 b=0' # # $Z set _____Eval="$_____Eval"' > $FiLeTmP_HILBERT.P3' # # # # $Z set _____Palette=$xiP/blanc # # $Z set _____Zoom=1.30 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" isoles=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" dernier_premier=FAUX" # # $Z set _____ParticulePara1="$_____ParticulePara1"' LISTE_RAYON=$FiLeTmP_HILBERT.P3' # # # # $Z set _____Fond="fond=VRAI F=$xiirv/HILB.25" # # $Z set _____ImageR=$xiirv/HILB.C5 # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_C5: # # # # # # qui montre une courbe de Hilbert bidimensionnelle avec la visualisation des nombres # # premiers (marques chacun par une grosse boule blanche) de 1 a 510. # # # # Evidemment, cela n'a que peu d'interet puisque lorsque l'on change '$_____Profondeur', # # les points ne gardent pas leurs positions relatives (il suffit, pour s'en convaincre, # # de comparer 'v $xiirv/HILB.22' et 'v $xiirv/HILB.23' par exemple...). # v $xiirv/HILB.D6 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HILB_D6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z $xci/cache.41$Z $xiirv/HILB.23 $xiirv/HILB.22 $xTV/HILB.C1 9 # # $Z $xci/cache.41$Z $xiirv/HILB.24 $xTV/HILB.C1 $xTV/HILB.C2 9 # # $Z $xci/cache.41$Z $xiirv/HILB.25 $xTV/HILB.C2 $xTV/HILB.C3 9 # # $Z $xci/cache.41$Z $xiirv/HILB.26 $xTV/HILB.C3 $xiirv/HILB.D6 9 # # # # :Fin_listG_HILB_D6: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iterations 1 a 5). # v $xiirv/HILB.E4 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HILB_E4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=(2 3 4) # # $Z set _____Rayon=(0.06 0.03 0.01) # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Noir_=($NOIR $NOIR $NOIR) # # $Z set _____Blanc=($BLANC $BLANC $BLANC) # # $Z set _____Zoom=0.65 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/HILB.E4 # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_HILB_E4: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iterations 1 a 3). # v $xiirv/HILB.E4$IdM # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HILB_E4_IdM: # # # # $Z TvB # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=(2 3 4) # # $Z set _____Rayon=(0.06 0.03 0.01) # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Noir_=($NOIR $NOIR $NOIR) # # $Z set _____Blanc=($BLANC $BLANC $BLANC) # # $Z set _____Zoom=0.70 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/HILB.E4$IdM # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_HILB_E4_IdM: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iterations 1 a 3). # v $xiirv/HILB.F4 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HILB_F4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=(2 3 4) # # $Z set _____Rayon=(0.06 0.03 0.01) # # $Z set _____Palette=$xiP/trou_noir.74 # # $Z set _____Noir_=($GRIS_2 $GRIS_4 $GRIS_6) # # $Z set _____Blanc=($GRIS_2 $GRIS_4 $GRIS_6) # # $Z set _____Zoom=0.65 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/HILB.F4 # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_HILB_F4: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iterations 1 a 3). # v $xiirv/HILB.G6 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HILB_G6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=(2 3 4 5 6) # # $Z set _____Rayon=(0.04 0.03 0.02 0.01 0.006 0.004) # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Noir_=($NOIR $NOIR $NOIR $NOIR $NOIR) # # $Z set _____Blanc=($BLANC $BLANC $BLANC $BLANC $BLANC) # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/HILB.G6 # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_G6: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iterations 1 a 5). # v $xiirv/HILB.G6$IdM # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HILB_G6_IdM: # # # # $Z TvB # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=(2 3 4 5 6) # # $Z set _____Rayon=(0.04 0.03 0.02 0.01 0.006 0.004) # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Noir_=($NOIR $NOIR $NOIR $NOIR $NOIR) # # $Z set _____Blanc=($BLANC $BLANC $BLANC $BLANC $BLANC) # # $Z set _____Zoom=1.30 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=2" # # # # $Z set _____ImageR=$xiirv/HILB.G6$IdM # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_G6_IdM: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iterations 1 a 5). # v $xiirv/HILB.H6 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HILB_H6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=(2 3 4 5 6) # # $Z set _____Rayon=(0.04 0.03 0.02 0.01 0.006 0.004) # # $Z set _____Palette=$xiP/trou_noir.74 # # $Z set _____Noir_=($GRIS_1 $GRIS_3 $GRIS_4 $GRIS_6 $GRIS_8) # # $Z set _____Blanc=($GRIS_1 $GRIS_3 $GRIS_4 $GRIS_6 $GRIS_8) # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/HILB.H6 # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_H6: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iterations 1 a 5). # v $xiirv/HILB.I2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_I2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____Profondeur=2 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/HILB.I2 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.012) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_HILB_I2: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 1) dans son cube. # v $xiirv/HILB.I3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_I3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____Profondeur=3 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/HILB.I3 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.012) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_HILB_I3: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 2) dans son cube. # v $xiirv/HILB.I4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_I4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____Profondeur=4 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/HILB.I4 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.012) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_HILB_I4: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 3) dans son cube. # v $xiirv/HILB.I5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_I5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/HILB.I5 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.012) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_HILB_I5: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 4) dans son cube. # v $xiirv/HILB.J2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_J2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____Profondeur=2 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/HILB.J2 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_J2: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 1) dans son carre. # v $xiirv/HILB.J3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_J3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____Profondeur=3 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/HILB.J3 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_J3: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 2) dans son carre. # v $xiirv/HILB.J4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_J4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____Profondeur=4 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/HILB.J4 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_J4: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 3) dans son carre. # v $xiirv/HILB.J5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_J5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/HILB.J5 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_J5: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 4) dans son carre. # v $xiirv/HILB.J6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_J6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____Profondeur=6 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/HILB.J6 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_J6: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 5) dans son carre. # v $xiirv/HILB.J7 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_J7: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____Profondeur=7 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/HILB.J7 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_J7: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 6) dans son carre. # v $xiirv/HILB.J8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_J8: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____Profondeur=8 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/HILB.J8 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_J8: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 7) dans son carre. # v $xiirv/HILB.K2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_K2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Profondeur=2 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/HILB.K2 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_K2: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 1). # v $xiirv/HILB.K3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_K3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Profondeur=3 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/HILB.K3 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_K3: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 2). # v $xiirv/HILB.K4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_K4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Profondeur=4 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/HILB.K4 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_K4: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 3). # v $xiirv/HILB.K5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_K5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Profondeur=5 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/HILB.K5 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_K5: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 4). # v $xiirv/HILB.K6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_K6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Profondeur=6 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/HILB.K6 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_K6: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 5). # v $xiirv/HILB.K7 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HILB_K7: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Profondeur=7 # # $Z set _____Rayon=(0.002) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/HILB.K7 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_K7: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 6). # v $xiirv/HILB.K8 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HILB_K8: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Profondeur=8 # # $Z set _____Rayon=(0.001) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/HILB.K8 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_HILB_K8: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 7). # v $xiirv/HILB.L2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_L2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=2 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/HILB.L2 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_HILB_L2: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 1). # v $xiirv/HILB.L3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_L3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=3 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/HILB.L3 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_HILB_L3: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 2). # v $xiirv/HILB.L4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_L4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=4 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/HILB.L4 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_HILB_L4: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 3). # v $xiirv/HILB.L5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_L5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/HILB.L5 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_HILB_L5: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 4). # v $xiirv/HILB.M5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_M5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xTG/HILB.M5 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" yx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=$pi" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=+$pi" # # $Z set _____Renormalisation_v="m=0 M=+$dpi" # # $Z set _____Renormalisation_w="m=0 M=+$pi" # # # # $Z set _____ImageR=$xiirv/HILB.M5 # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_M5: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 4) dans une hyper-sphere # # ('v $xiirs/HYSP.11'). # v $xiirv/HILB.N5.1 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HILB_N5_1: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Profondeur=5 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/HILB.N5.1 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z set _____Surface=$xrs/sphere.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.012" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.5" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=1" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$pi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set NPoInTs_XY=`$CA $FLiStE_PoInTs | $WCl` # # # # $Z $xci/valeurs_trig$X premiere=1 derniere=$NPoInTs_XY \ # # $Z a=1 b=0 \ # # $Z tD=0 tA=1000 \ # # $Z rD=0.020 rA=0.020 \ # # $Z T=0.028 \ # # $Z > $FLiStE_PoInTs$RAYON # # # # $Z set _____ImageR=$xiirv/HILB.N5.1 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_N5_1: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 4) sur une sphere (voir # # 'v $xiirs/SPHE.53'), la courbe etant module par une cosinusoide... # v $xiirv/HILB.N6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_N6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Profondeur=6 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/HILB.N6 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z set _____Surface=$xrs/sphere.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.012" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.5" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=1" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$pi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/HILB.N6 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_N6: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 5) sur une sphere (voir # # 'v $xiirs/SPHE.53'). # v $xiirv/HILB.N8$IdM # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HILB_N8_IdM: # # # # $Z TvB # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Profondeur=8 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/HILB.N8 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z set _____Surface=$xrs/sphere.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.004" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.5" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=1" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$pi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/HILB.N8$IdM # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_N8_IdM: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 7) sur une sphere (voir # # 'v $xiirs/SPHE.53'). # v $xiirv/HILB.O6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_O6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Profondeur=6 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.002 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/HILB.O6 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z set _____Surface=$xrs/tore.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.020" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.40" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=+1.1" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/HILB.O6 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_O6: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 5) sur un tore (voir # # 'v $xiirs/TORE.12'). # v $xiirv/HILB.O8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_O8: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Profondeur=8 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/HILB.O8 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z set _____Surface=$xrs/tore.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.006" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.40" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=+1.1" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/HILB.O8 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_O8: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 7) sur un tore (voir # # 'v $xiirs/TORE.12'). # v $xiirv/HILB.P6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_P6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Profondeur=6 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.002 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/HILB.P6 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z set _____Surface=$xrs/bKlein.61$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.080" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.20" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=0.8" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/HILB.P6 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_P6: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 5) sur une double bouteille # # de Bonan-Jeener ('v $xiirs/BKLN.P2'). # v $xiirv/HILB.P8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_P8: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Profondeur=8 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/HILB.P8 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z set _____Surface=$xrs/bKlein.61$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.040" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.20" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=0.8" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/HILB.P8 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_P8: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 7) sur une double bouteille # # de Bonan-Jeener ('v $xiirs/BKLN.P2'). # v $xiirv/HILB.Q6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_Q6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Profondeur=6 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.002 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/HILB.Q6 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z set _____Surface=$xrs/Mobius2D.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.005" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.80" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=1.0" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=1" # # # # $Z set _____ImageR=$xiirv/HILB.Q6 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_Q6: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 5) sur un ruban de Mobius # # ('v $xiirs/MOB2.12'). # v $xiirv/HILB.Q8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_Q8: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Profondeur=8 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/HILB.Q8 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z set _____Surface=$xrs/Mobius2D.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.003" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.80" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=1.0" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=1" # # # # $Z set _____ImageR=$xiirv/HILB.Q8 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_Q8: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 7) sur un ruban de Mobius # # ('v $xiirs/MOB2.12'). # v $xiirv/HILB.R6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_R6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Profondeur=6 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.002 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/HILB.R6 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z set _____Surface=$xrs/bKlein.41$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.120" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.10" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=+0.8" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OZ=-0.3" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OX=+2.00" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OY=-2.50" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/HILB.R6 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_R6: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 5) sur une bouteille de Klein # # ('v $xiirs/BKLN.43'). # v $xiirv/HILB.R8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_R8: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Profondeur=8 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/HILB.R8 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z set _____Surface=$xrs/bKlein.41$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.120" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.10" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=+0.8" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OZ=-0.3" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OX=+2.00" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OY=-2.50" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/HILB.R8 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_R8: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 7) sur une bouteille de Klein # # ('v $xiirs/BKLN.43'). # v $xiirv/HILB.R8$IdM # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HILB_R8_IdM: # # # # $Z TvB # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Profondeur=8 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/HILB.R8 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z set _____Surface=$xrs/bKlein.41$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.120" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.10" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=+0.8" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OZ=-0.3" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OX=+2.00" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OY=-2.50" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/HILB.R8$IdM # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_R8_IdM: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 7) sur une bouteille de Klein # # ('v $xiirs/BKLN.43'). # v $xiirv/HILB.R8.1.1 v $xiirv/HILB.R8.1.2 v $xiirv/HILB.R8.1.21 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_R8_1_21: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Profondeur=8 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTV/HILB.R8.1 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z set _____Surface=$xrs/bKlein.41$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.120" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.10" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z FilSTmpB FLiStE_PoInTs_S # # # # $Z set _____Redirection=">> $FLiStE_PoInTs_S" # # # # $Z set _____SurfacePara1="$K_VIDE" # # $Z set _____SurfacePara1="$_____SurfacePara1"" lister_les_points=VRAI" # # $Z set _____SurfacePara1="$_____SurfacePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____ImageR=$xTV/HILB.R8.1 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z $DELETE $FLiStE_PoInTs # # $Z $DELETE $FLiStE_PoInTs$COORD_X # # $Z $DELETE $FLiStE_PoInTs$COORD_Y # # $Z $DELETE $FLiStE_PoInTs$COORD_Z # # # # $Z $MV $FLiStE_PoInTs_S $FLiStE_PoInTs # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/HILB.R8 # # # # $Z set _____MinX=0.1 # # $Z set _____MaxX=0.9 # # $Z set _____MinY=0.1 # # $Z set _____MaxY=0.9 # # $Z set _____MinZ=0.1 # # $Z set _____MaxZ=0.9 # # # # $Z set _____DemiPaveX=2 # # $Z set _____DemiPaveY=2 # # $Z set _____DemiPaveZ=2 # # # # $m4 _____include(_____xiirv/.HILB.R8.1._____U) # # # # $Z FilSTmpE FLiStE_PoInTs_S # # $Z FilSTmpE FLiStE_PoInTs # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/HILB.R8.1 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_HILB_R8_1_21: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 7) sur une bouteille de Klein # # ('v $xiirs/BKLN.43'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:06:01 # # # # $xci/accumule.42$X : 00:05:34 # # # v $xiirv/HILB.R8.1.21$M # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_R8_1_21_M: # # # # $Z Pdu # # # # $Z set _____imagesA=$xiirv/HILB.R8.1 # # $Z set _____imagesR=$_____imagesA.21$M # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____imagesA.1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z navap=VRAI \ # # $Z passes=1000 \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z execRVB "$xci/convol.01$X \ # # $Z A=$_____imagesA.21%s \ # # $Z points=49 \ # # $Z $formatI | \ # # $Z $xci/montagne.01$X \ # # $Z echelle=0.1 \ # # $Z A=$xTV/LUMINANCE \ # # $Z standard=FAUX zero=FAUX \ # # $Z avion=FAUX \ # # $Z Ty=0.95 \ # # $Z R=$_____imagesR%s \ # # $Z $formatI" # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR \ # # $Z $_____imagesR \ # # $Z RBV # # # # :Fin_listG_HILB_R8_1_21_M: # # # v $xiirv/HILB.X5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_X5: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.004 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.X5 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z set _____Variete=$xrs/Mobius3D.31$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.025" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" pxu=1 pxx=0" # # $Z set _____ArgVariete="$_____ArgVariete"" pyv=1 pyy=0" # # $Z set _____ArgVariete="$_____ArgVariete"" pzw=1 pzz=0" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OY=$tpis4" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=$pis2" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=1.5" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____Renormalisation_u="m=-$pis8 M=+$pis8" # # $Z set _____Renormalisation_v="m=-$pi M=+$pi" # # $Z set _____Renormalisation_w="m=-$pis8 M=+$pis8" # # # # $Z set _____ImageR=$xiirv/HILB.X5 # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_X5: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 4) dans un ruban de Mobius # # tridimensionnel ('v $xiirs/MOB3.31'). # v $xiirv/HILB.X5.1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_X5_1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.004 # # $Z set _____Zoom=1.5 # # # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # # # Ces rotations (qui ne commutent pas !) font que le cube [0,1]x[0,1]x[0,1] n'est pas # # visite en entier... # # # # $Z set _____ImageR=$xTG/HILB.X5.1 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z set _____Variete=$xrs/Mobius3D.31$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" pxu=1 pxx=0" # # $Z set _____ArgVariete="$_____ArgVariete"" pyv=1 pyy=0" # # $Z set _____ArgVariete="$_____ArgVariete"" pzw=1 pzz=0" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.2" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____Renormalisation_u="m=-$pis8 M=+$pis8" # # $Z set _____Renormalisation_v="m=-$pi M=+$pi" # # $Z set _____Renormalisation_w="m=-$pis8 M=+$pis8" # # # # $Z set _____ImageR=$xiirv/HILB.X5.1 # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_X5_1: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 4) dans un ruban de Mobius # # tridimensionnel ('v $xiirs/MOB3.31'). # v $xiirv/HILB.Y5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_Y5: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.002 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.Y5 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z set _____Variete=$xrs/hyper_tore.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.010" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____Renormalisation_u="m=-0.25 M=+0.25" # # $Z set _____Renormalisation_v="m=0 M=+$dpi" # # $Z set _____Renormalisation_w="m=+0.5 M=+1.0" # # # # $Z set _____ImageR=$xiirv/HILB.Y5 # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_Y5: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 4) dans un hyper-tore # # parallelepipedique ('v $xiirs/HTOR.11'). # v $xiirv/HILB.Z5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_Z5: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.0025 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.Z5 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z set _____Variete=$xrs/Mobius3D.21$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.020" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=$pi" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=1.15" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____Renormalisation_u="m=-$pis8 M=+$pis8" # # $Z set _____Renormalisation_v="m=-$pi M=+$pi" # # $Z set _____Renormalisation_w="m=-$pis8 M=+$pis8" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.Z5 # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_Z5: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 4) dans un ruban de Mobius # # tridimensionnel ('v $xiirs/HILB.I4' et 'v $xiirs/MOB3.21'). # v $xiirv/HILB.Z6.1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_Z6_1: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=1 # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.92 \ # # $Z $NoEuDTrEfLe # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_01=0.001" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.56 # # $Z set _____ImageR=$xTG/HILB.Z6.$_____NIteration # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # $Z set _____Variete=$xrs/Mobius3D.21$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.030" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=$pi" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=1.15" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____Renormalisation_u="m=-$pis8 M=+$pis8" # # $Z set _____Renormalisation_v="m=-$pi M=+$pi" # # $Z set _____Renormalisation_w="m=-$pis8 M=+$pis8" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.Z6.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # # # On notera plusieurs defauts sur l'image 'v $xiirv/HILB.Z6.1.defauts' (ainsi que les trois # # autres qui etaient du meme "type" mais qui ont ete elles-aussi recalculees). En particulier # # on peut voir, quasiment au centre, sur un arc cyan, une sphere sur-lumineuse par rapport # # aux autres. La comprehension de ce defaut a necessite de choisir une valeur faible pour le # # parametre "pas_01" : # # # # pas_01=0.0125 (a la place de 0.0000125) # # # # ci-dessus (voir '$_____Arguments') afin d'avoir peu de points generes par l'appel a # # 'v $xci/valeurs_TransformationPeano3D$K' et d'introduire les instructions : # # # # | \ # # "$HEA" -$LiGnE_N | \ # # "$TAI" +$LiGnE_M \ # # # # (la mise entre '$K_QD's est lie a l'utilisation de ce 'v $xiirv/$Fnota' par 'glistN') # # apres les 3 lignes 'v $xiirv/.HILB.M5.$U .'____Renormalisation_.', en partant de : # # # # LiGnE_M=1 # # LiGnE_N=9779 # # # # (9779 correspondant a la valeur de 'v $xiirv/.HILB.M5.$U NPoInTs_SuRfAcE'). Puis, par # # contraction progressive du segment [$LiGnE_M,$LiGnE_N] je suis arrive a : # # # # LiGnE_M=3770 # # LiGnE_N=3785 # # # # Enfin, en introduisant les deux parametres : # # # # lister_les_points=VRAI lister_les_points_apres=VRAI # # # # lors de l'appel a 'v $xiirv/.HILB.M5.$U ._____Variete', cela a donne les coordonnees de # # cette sphere sur-lumineuse et de ses 15 voisines. Soit : # # # # # # point=1 X=+0.474722156923623739 Y=+0.601918921030005882 Z=-0.0138317896458381995 # # point=2 X=+0.475031020267498438 Y=+0.60189444996665753 Z=-0.0138355046322755637 # # point=3 X=+0.475339839746559023 Y=+0.601869617943387447 Z=-0.0138387098223995975 # # point=4 X=+0.475648614158006355 Y=+0.601844425174184461 Z=-0.0138414050969769553 # # point=5 X=+0.475957342299170694 Y=+0.60181887187509775 Z=-0.0138435903377447933 # # point=6 X=+0.476266022967516356 Y=+0.601792958264236955 Z=-0.0138452654274106024 # # point=7 X=+0.476574654960645716 Y=+0.60176668456177107 Z=-0.0138464302496528191 # # point=8 X=+0.476883237076303201 Y=+0.60174005098992811 Z=-0.01384708468912077 # # # # point=9 X=+0.477191768112379566 Y=+0.601713057772993665 Z=-0.0138472286314352266 # # # # point=10 X=+0.477500246866916556 Y=+0.6016857051373109 Z=-0.0138468619631882395 # # point=11 X=+0.477808672138110624 Y=+0.601657993311279671 Z=-0.0138459845719435259 # # point=12 X=+0.478117042724317431 Y=+0.601629922525355854 Z=-0.0138445963462368593 # # point=13 X=+0.478425357424056008 Y=+0.601601493012050348 Z=-0.013842697175575791 # # point=14 X=+0.478733615036012805 Y=+0.601572705005928077 Z=-0.01384028695044065 # # point=15 X=+0.479041814359046025 Y=+0.601543558743608431 Z=-0.013837365562283932 # # point=16 X=+0.479349954192190342 Y=+0.601514054463763159 Z=-0.013833932903531021 # # # # # # Comme on peut le voir, cette sphere sur-lumineuse correspond au point 9 qui a la # # particularite de presenter un extremum de la coordonnee 'Z'. Ainsi, malheureusement, # # cette sphere est visualisee entierement, n'etant recouverte (partiellement) par aucune # # autre... # # # # Que faire ? A la date du 20230131132523, je ne sais pas... Finalement, j'ai remplace # # l'usage de la palette '$xiP/NoeudTrefle.01' par 'v $xrs/NoeudTrefle.11$Z', augmente # # le rayon de visualisation "Vrayon=", reduit legerement le parametre "couronne=",... # # # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_Z6_1: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 1) dans un ruban de Mobius # # tridimensionnel ('v $xiirv/PEAN.71' et 'v $xiirs/MOB3.21'). # v $xiirv/HILB.Z6.2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_Z6_2: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=2 # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.92 \ # # $Z $NoEuDTrEfLe # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_02=0.0002" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.Z6.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # $Z set _____Variete=$xrs/Mobius3D.21$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.030" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=$pi" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=1.15" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____Renormalisation_u="m=-$pis8 M=+$pis8" # # $Z set _____Renormalisation_v="m=-$pi M=+$pi" # # $Z set _____Renormalisation_w="m=-$pis8 M=+$pis8" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.Z6.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_Z6_2: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 2) dans un ruban de Mobius # # tridimensionnel ('v $xiirv/PEAN.72' et 'v $xiirs/MOB3.21'). # v $xiirv/HILB.Z6.3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_Z6_3: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=3 # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.92 \ # # $Z $NoEuDTrEfLe # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_03=0.00005" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.Z6.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # $Z set _____Variete=$xrs/Mobius3D.21$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.030" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=$pi" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=1.15" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____Renormalisation_u="m=-$pis8 M=+$pis8" # # $Z set _____Renormalisation_v="m=-$pi M=+$pi" # # $Z set _____Renormalisation_w="m=-$pis8 M=+$pis8" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.Z6.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_Z6_3: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 3) dans un ruban de Mobius # # tridimensionnel ('v $xiirv/PEAN.73' et 'v $xiirs/MOB3.21'). # v $xiirv/HILB.Z6.4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_Z6_4: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=4 # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.92 \ # # $Z $NoEuDTrEfLe # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_04=0.0000125" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.Z6.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____NAuCarre=FAUX # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # $Z set _____Variete=$xrs/Mobius3D.21$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.030" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=$pi" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=1.15" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set _____Renormalisation_u="m=-$pis8 M=+$pis8" # # $Z set _____Renormalisation_v="m=-$pi M=+$pi" # # $Z set _____Renormalisation_w="m=-$pis8 M=+$pis8" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.Z6.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_Z6_4: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 4) dans un ruban de Mobius # # tridimensionnel ('v $xiirv/PEAN.74' et 'v $xiirs/MOB3.21'). # v $xiirv/HILB.a6.1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_a6_1: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=1 # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.92 \ # # $Z $NoEuDTrEfLe # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_01=0.001" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.a6.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # $Z set _____Variete=$xrs/hyper_tore.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____Renormalisation_u="m=-0.25 M=+0.25" # # $Z set _____Renormalisation_v="m=0 M=+$dpi" # # $Z set _____Renormalisation_w="m=+0.5 M=+1.0" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.a6.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_a6_1: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 1) dans un hyper-tore # # parallelepipedique ('v $xiirv/PEAN.71' et 'v $xiirs/HTOR.11'). # v $xiirv/HILB.a6.2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_a6_2: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=2 # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.92 \ # # $Z $NoEuDTrEfLe # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_02=0.0002" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.a6.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # $Z set _____Variete=$xrs/hyper_tore.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____Renormalisation_u="m=-0.25 M=+0.25" # # $Z set _____Renormalisation_v="m=0 M=+$dpi" # # $Z set _____Renormalisation_w="m=+0.5 M=+1.0" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.a6.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_a6_2: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 2) dans un hyper-tore # # parallelepipedique ('v $xiirv/PEAN.72' et 'v $xiirs/HTOR.11'). # v $xiirv/HILB.a6.3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_a6_3: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=3 # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.92 \ # # $Z $NoEuDTrEfLe # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_03=0.00005" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.a6.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # $Z set _____Variete=$xrs/hyper_tore.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____Renormalisation_u="m=-0.25 M=+0.25" # # $Z set _____Renormalisation_v="m=0 M=+$dpi" # # $Z set _____Renormalisation_w="m=+0.5 M=+1.0" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.a6.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_a6_3: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 3) dans un hyper-tore # # parallelepipedique ('v $xiirv/PEAN.73' et 'v $xiirs/HTOR.11'). # v $xiirv/HILB.a6.4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_a6_4: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=4 # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.92 \ # # $Z $NoEuDTrEfLe # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_04=0.0000125" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.a6.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____NAuCarre=FAUX # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # $Z set _____Variete=$xrs/hyper_tore.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set _____Renormalisation_u="m=-0.25 M=+0.25" # # $Z set _____Renormalisation_v="m=0 M=+$dpi" # # $Z set _____Renormalisation_w="m=+0.5 M=+1.0" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.a6.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_a6_4: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 4) dans un hyper-tore # # parallelepipedique ('v $xiirv/PEAN.74' et 'v $xiirs/HTOR.11'). # v $xiirv/HILB.a7.G.2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_a7_G_2: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB DiVeRs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=2 # # # # $Z set _____Lettre="G" # # $Z set _____FacteurDerivees=0 # # $m4 _____include(_____xiirv/.PEAN.Q2.1._____U) # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$DiVeRs$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_02=0.0000300" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.a7.$_____Lettre.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____NAuCarre=FAUX # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE DiVeRs # # # # $Z set _____Variete=$xrs/hyper_tore.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set _____Renormalisation_u="m=-0.25 M=+0.25" # # $Z set _____Renormalisation_v="m=0 M=+$dpi" # # $Z set _____Renormalisation_w="m=+0.5 M=+1.0" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.a7.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_a7_G_2: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 2) dans un hyper-tore # # parallelepipedique ('v $xiirv/PEAN.Q2.G.2' et 'v $xiirs/HTOR.11'). # v $xiirv/HILB.a7.G.4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_a7_G_4: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB DiVeRs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=4 # # # # $Z set _____Lettre="G" # # $Z set _____FacteurDerivees=0 # # $m4 _____include(_____xiirv/.PEAN.Q2.1._____U) # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$DiVeRs$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_04=0.0000125" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.a7.$_____Lettre.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____NAuCarre=FAUX # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE DiVeRs # # # # $Z set _____Variete=$xrs/hyper_tore.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set _____Renormalisation_u="m=-0.25 M=+0.25" # # $Z set _____Renormalisation_v="m=0 M=+$dpi" # # $Z set _____Renormalisation_w="m=+0.5 M=+1.0" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.a7.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_a7_G_4: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 4) dans un hyper-tore # # parallelepipedique ('v $xiirv/PEAN.Q2.G.4' et 'v $xiirs/HTOR.11'). # v $xiirv/HILB.b5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_b5: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Profondeur=5 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.50 # # $Z set _____ImageR=$xTG/HILB.b5 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z set _____Palette=$xiP/trou_noir.C4 # # $m4 _____include(_____xiirs/.CAYA.11.2._____U) # # # # $Z set _____Surface=$xrs/CalabiYau.12$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" PARAMETRE_N1=5" # # $Z set _____ArgSurface="$_____ArgSurface"" PARAMETRE_N2=5" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.012" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=$_____Zoom" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=1" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OY=4" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OX=0.4" # # $Z set _____ArgSurface="$_____ArgSurface"" TR=$xTV/TEXTURE$ROUGE" # # $Z set _____ArgSurface="$_____ArgSurface"" TV=$xTV/TEXTURE$VERTE" # # $Z set _____ArgSurface="$_____ArgSurface"" TB=$xTV/TEXTURE$BLEUE" # # $Z set _____ArgSurface="$_____ArgSurface"" DepthCueingMinimal=0.1" # # $Z set _____ArgSurface="$_____ArgSurface"" DepthCueingMaximal=1.0" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # # # En toute logique, il faudrait definir ici : # # # # _____Renormalisation_u="m=0 M=$pis2" # # # # mais la variete de Calabi-Yau etant fait de 5x5 morceaux, il ne faut pas qu'ils se # # touchent car dans le cas contraire il y aurai des morceaux des courbes de Hilbert # # appartenant a des morceaux voisins qui se recouvriraient en tout ou partie de facon # # incoherente. Il convient donc de reduire le segment de definition de 'u' : # # # # $Z set _____Renormalisation_u="m=0.0550 M=1.5450" # # $Z set _____Renormalisation_v="m=-1 M=+1" # # # # $Z set _____ImageR=$xiirv/HILB.b5 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_b5: # # # # # # qui montre 5x5 courbes de Hilbert bidimensionnelles (iteration 4) sur une variete de # # Calabi-Yau ('v $xiirs/CAYA.A1.0129'). # v $xiirv/HILB.b5.1.1 v $xiirv/HILB.b5.1.2 v $xiirv/HILB.b5.1.21 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_b5_1: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Profondeur=5 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.00 # # $Z set _____ImageR=$xTG/HILB.b5.1 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z set _____Palette=$xiP/trou_noir.C4 # # $m4 _____include(_____xiirs/.CAYA.11.2._____U) # # # # $Z set _____Surface=$xrs/CalabiYau.12$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" PARAMETRE_N1=5" # # $Z set _____ArgSurface="$_____ArgSurface"" PARAMETRE_N2=5" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.012" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=$_____Zoom" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=1" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OY=4" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OX=0.4" # # $Z set _____ArgSurface="$_____ArgSurface"" TR=$xTV/TEXTURE$ROUGE" # # $Z set _____ArgSurface="$_____ArgSurface"" TV=$xTV/TEXTURE$VERTE" # # $Z set _____ArgSurface="$_____ArgSurface"" TB=$xTV/TEXTURE$BLEUE" # # $Z set _____ArgSurface="$_____ArgSurface"" DepthCueingMinimal=0.1" # # $Z set _____ArgSurface="$_____ArgSurface"" DepthCueingMaximal=1.0" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # # # En toute logique, il faudrait definir ici : # # # # _____Renormalisation_u="m=0 M=$pis2" # # # # mais la variete de Calabi-Yau etant fait de 5x5 morceaux, il ne faut pas qu'ils se # # touchent car dans le cas contraire il y aurai des morceaux des courbes de Hilbert # # appartenant a des morceaux voisins qui se recouvriraient en tout ou partie de facon # # incoherente. Il convient donc de reduire le segment de definition de 'u' : # # # # $Z set _____Renormalisation_u="m=0.0550 M=1.5450" # # $Z set _____Renormalisation_v="m=-1 M=+1" # # # # $Z FilSTmpB FLiStE_PoInTs_S # # # # $Z set _____Redirection=">> $FLiStE_PoInTs_S" # # # # $Z set _____SurfacePara1="$K_VIDE" # # $Z set _____SurfacePara1="$_____SurfacePara1"" lister_les_points=VRAI" # # $Z set _____SurfacePara1="$_____SurfacePara1"" lister_les_points_apres=VRAI" # # # # # # $Z set _____ImageR=$xTV/HILB.b5.1 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z $DELETE $FLiStE_PoInTs # # $Z $DELETE $FLiStE_PoInTs$COORD_X # # $Z $DELETE $FLiStE_PoInTs$COORD_Y # # $Z $DELETE $FLiStE_PoInTs$COORD_Z # # # # $Z $MV $FLiStE_PoInTs_S $FLiStE_PoInTs # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/HILB.b5 # # # # $Z set _____MinX=0.0 # # $Z set _____MaxX=1.0 # # $Z set _____MinY=0.0 # # $Z set _____MaxY=1.0 # # $Z set _____MinZ=0.1 # # $Z set _____MaxZ=0.9 # # # # $Z set _____DemiPaveX=2 # # $Z set _____DemiPaveY=2 # # $Z set _____DemiPaveZ=2 # # # # $m4 _____include(_____xiirv/.HILB.R8.1._____U) # # # # $Z FilSTmpE FLiStE_PoInTs_S # # $Z FilSTmpE FLiStE_PoInTs # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/HILB.b5.1 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_HILB_b5_1: # # # # # # qui montre 5x5 courbes de Hilbert bidimensionnelles (iteration 4) sur une variete de # # Calabi-Yau ('v $xiirs/CAYA.A1.0129'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xrv/store_album$X : 00:00:03 # # # # $xci/ombrage.11$X : 00:04:24 # # # # $xci/accumule.42$X : 00:05:29 # # # v $xiirv/HILB.b6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_b6: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Profondeur=6 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.50 # # $Z set _____Dm=0.0020 # # $Z set _____ImageR=$xTG/HILB.b6 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z set _____Palette=$xiP/trou_noir.C4 # # $m4 _____include(_____xiirs/.CAYA.11.2._____U) # # # # $Z set _____Surface=$xrs/CalabiYau.12$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" PARAMETRE_N1=5" # # $Z set _____ArgSurface="$_____ArgSurface"" PARAMETRE_N2=5" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.012" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=$_____Zoom" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=1" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OY=4" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OX=0.4" # # $Z set _____ArgSurface="$_____ArgSurface"" TR=$xTV/TEXTURE$ROUGE" # # $Z set _____ArgSurface="$_____ArgSurface"" TV=$xTV/TEXTURE$VERTE" # # $Z set _____ArgSurface="$_____ArgSurface"" TB=$xTV/TEXTURE$BLEUE" # # $Z set _____ArgSurface="$_____ArgSurface"" DepthCueingMinimal=0.1" # # $Z set _____ArgSurface="$_____ArgSurface"" DepthCueingMaximal=1.0" # # $Z set _____ArgSurface="$_____ArgSurface"" couronne=1.5" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # # # En toute logique, il faudrait definir ici : # # # # _____Renormalisation_u="m=0 M=$pis2" # # # # mais la variete de Calabi-Yau etant fait de 5x5 morceaux, il ne faut pas qu'ils se # # touchent car dans le cas contraire il y aurai des morceaux des courbes de Hilbert # # appartenant a des morceaux voisins qui se recouvriraient en tout ou partie de facon # # incoherente. Il convient donc de reduire le segment de definition de 'u' : # # # # $Z set _____Renormalisation_u="m=0.0550 M=1.5450" # # $Z set _____Renormalisation_v="m=-1 M=+1" # # # # $Z set _____ImageR=$xiirv/HILB.b6 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$_____ImageR%s \ # # $Z points=5 \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_HILB_b6: # # # # # # qui montre 5x5 courbes de Hilbert bidimensionnelles (iteration 5) sur une variete de # # Calabi-Yau ('v $xiirs/CAYA.A1.0129'). # v $xiirv/HILB.b6.1.1 v $xiirv/HILB.b6.1.2 v $xiirv/HILB.b6.1.21 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_b6_1: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Profondeur=6 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.00 # # $Z set _____ImageR=$xTG/HILB.b6.1 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z set _____Palette=$xiP/trou_noir.C4 # # $m4 _____include(_____xiirs/.CAYA.11.2._____U) # # # # $Z set _____Surface=$xrs/CalabiYau.12$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" PARAMETRE_N1=5" # # $Z set _____ArgSurface="$_____ArgSurface"" PARAMETRE_N2=5" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.012" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=$_____Zoom" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=1" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OY=4" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OX=0.4" # # $Z set _____ArgSurface="$_____ArgSurface"" TR=$xTV/TEXTURE$ROUGE" # # $Z set _____ArgSurface="$_____ArgSurface"" TV=$xTV/TEXTURE$VERTE" # # $Z set _____ArgSurface="$_____ArgSurface"" TB=$xTV/TEXTURE$BLEUE" # # $Z set _____ArgSurface="$_____ArgSurface"" DepthCueingMinimal=0.1" # # $Z set _____ArgSurface="$_____ArgSurface"" DepthCueingMaximal=1.0" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # # # En toute logique, il faudrait definir ici : # # # # _____Renormalisation_u="m=0 M=$pis2" # # # # mais la variete de Calabi-Yau etant fait de 5x5 morceaux, il ne faut pas qu'ils se # # touchent car dans le cas contraire il y aurai des morceaux des courbes de Hilbert # # appartenant a des morceaux voisins qui se recouvriraient en tout ou partie de facon # # incoherente. Il convient donc de reduire le segment de definition de 'u' : # # # # $Z set _____Renormalisation_u="m=0.0550 M=1.5450" # # $Z set _____Renormalisation_v="m=-1 M=+1" # # # # $Z FilSTmpB FLiStE_PoInTs_S # # # # $Z set _____Redirection=">> $FLiStE_PoInTs_S" # # # # $Z set _____SurfacePara1="$K_VIDE" # # $Z set _____SurfacePara1="$_____SurfacePara1"" lister_les_points=VRAI" # # $Z set _____SurfacePara1="$_____SurfacePara1"" lister_les_points_apres=VRAI" # # # # # # $Z set _____ImageR=$xTV/HILB.b6.1 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z $DELETE $FLiStE_PoInTs # # $Z $DELETE $FLiStE_PoInTs$COORD_X # # $Z $DELETE $FLiStE_PoInTs$COORD_Y # # $Z $DELETE $FLiStE_PoInTs$COORD_Z # # # # $Z $MV $FLiStE_PoInTs_S $FLiStE_PoInTs # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/HILB.b6 # # # # $Z set _____MinX=0.0 # # $Z set _____MaxX=1.0 # # $Z set _____MinY=0.0 # # $Z set _____MaxY=1.0 # # $Z set _____MinZ=0.1 # # $Z set _____MaxZ=0.9 # # # # $Z set _____DemiPaveX=2 # # $Z set _____DemiPaveY=2 # # $Z set _____DemiPaveZ=2 # # # # $m4 _____include(_____xiirv/.HILB.R8.1._____U) # # # # $Z FilSTmpE FLiStE_PoInTs_S # # $Z FilSTmpE FLiStE_PoInTs # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/HILB.b6.1 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_HILB_b6_1: # # # # # # qui montre 5x5 courbes de Hilbert bidimensionnelles (iteration 5) sur une variete de # # Calabi-Yau ('v $xiirs/CAYA.A1.0129'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xrv/store_album$X : 00:00:04 # # # # $xci/ombrage.11$X : 00:05:33 # # # # $xci/accumule.42$X : 00:05:44 # # # v $xiirv/HILB.b6.2.1 v $xiirv/HILB.b6.2.2 v $xiirv/HILB.b6.2.21 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_b6_2: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Profondeur=6 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.00 # # $Z set _____Dm=0.0020 # # $Z set _____ImageR=$xTG/HILB.b6.2 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z set _____Palette=$xiP/trou_noir.C4 # # $m4 _____include(_____xiirs/.CAYA.11.2._____U) # # # # $Z set _____Surface=$xrs/CalabiYau.12$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" PARAMETRE_N1=5" # # $Z set _____ArgSurface="$_____ArgSurface"" PARAMETRE_N2=5" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.012" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=$_____Zoom" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=1" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OY=4" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OX=0.4" # # $Z set _____ArgSurface="$_____ArgSurface"" TR=$xTV/TEXTURE$ROUGE" # # $Z set _____ArgSurface="$_____ArgSurface"" TV=$xTV/TEXTURE$VERTE" # # $Z set _____ArgSurface="$_____ArgSurface"" TB=$xTV/TEXTURE$BLEUE" # # $Z set _____ArgSurface="$_____ArgSurface"" DepthCueingMinimal=0.1" # # $Z set _____ArgSurface="$_____ArgSurface"" DepthCueingMaximal=1.0" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____ArgSurface="$_____ArgSurface"" N_au_carre=FAUX" # # # # En toute logique, il faudrait definir ici : # # # # _____Renormalisation_u="m=0 M=$pis2" # # # # mais la variete de Calabi-Yau etant fait de 5x5 morceaux, il ne faut pas qu'ils se # # touchent car dans le cas contraire il y aurai des morceaux des courbes de Hilbert # # appartenant a des morceaux voisins qui se recouvriraient en tout ou partie de facon # # incoherente. Il convient donc de reduire le segment de definition de 'u' : # # # # $Z set _____Renormalisation_u="m=0.0550 M=1.5450" # # $Z set _____Renormalisation_v="m=-1 M=+1" # # # # $Z FilSTmpB FLiStE_PoInTs_S # # # # $Z set _____Redirection=">> $FLiStE_PoInTs_S" # # # # $Z set _____SurfacePara1="$K_VIDE" # # $Z set _____SurfacePara1="$_____SurfacePara1"" lister_les_points=VRAI" # # $Z set _____SurfacePara1="$_____SurfacePara1"" lister_les_points_apres=VRAI" # # # # # # $Z set _____ImageR=$xTV/HILB.b6.2 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z $DELETE $FLiStE_PoInTs # # $Z $DELETE $FLiStE_PoInTs$COORD_X # # $Z $DELETE $FLiStE_PoInTs$COORD_Y # # $Z $DELETE $FLiStE_PoInTs$COORD_Z # # # # $Z $MV $FLiStE_PoInTs_S $FLiStE_PoInTs # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/HILB.b6 # # # # $Z set _____MinX=0.0 # # $Z set _____MaxX=1.0 # # $Z set _____MinY=0.0 # # $Z set _____MaxY=1.0 # # $Z set _____MinZ=0.1 # # $Z set _____MaxZ=0.9 # # # # $Z set _____DemiPaveX=1 # # $Z set _____DemiPaveY=1 # # $Z set _____DemiPaveZ=1 # # # # $m4 _____include(_____xiirv/.HILB.R8.1._____U) # # # # $Z FilSTmpE FLiStE_PoInTs_S # # $Z FilSTmpE FLiStE_PoInTs # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/HILB.b6.2 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$_____imagesR.21%s \ # # $Z points=25 \ # # $Z R=$_____imagesR.21%s \ # # $Z $formatI # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # :Fin_listG_HILB_b6_2: # # # # # # qui montre 5x5 courbes de Hilbert bidimensionnelles (iteration 5) sur une variete de # # Calabi-Yau ('v $xiirs/CAYA.A1.0129'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xrv/store_album$X : 00:00:14 # # # # $xci/ombrage.11$X : 00:14:08 # # # # $xci/accumule.42$X : 00:22:28 # # # v $xiirv/HILB.c8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_c8: # # # # $Z Sdu # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Profondeur=8 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTV/HILB.c8 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z set _____Rayon=1 # # # # $Z set _____Surface=$xrs/project2D.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" aFx=$_____Rayon Fx=$xTV/Fx" # # $Z set _____ArgSurface="$_____ArgSurface"" aFy=$_____Rayon Fy=$xTV/Fy" # # $Z set _____ArgSurface="$_____ArgSurface"" aFz=$_____Rayon Fz=$xTV/Fz" # # $Z set _____ArgSurface="$_____ArgSurface"" bilineaire=VRAI" # # $Z set _____ArgSurface="$_____ArgSurface"" Fx_lineaire=VRAI" # # $Z set _____ArgSurface="$_____ArgSurface"" Fy_lineaire=VRAI" # # $Z set _____ArgSurface="$_____ArgSurface"" Fz_lineaire=VRAI" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.012" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=1" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=0.77" # # $Z set _____ArgSurface="$_____ArgSurface"" DepthCueingMinimal=0.3" # # $Z set _____ArgSurface="$_____ArgSurface"" DepthCueingMaximal=1.0" # # $Z set _____ArgSurface="$_____ArgSurface"" couronne=2" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=0.5" # # $Z set _____Renormalisation_v="m=0 M=1.0" # # # # $Z set _____Palette=$xiP/gris.52 # # $Z SET _____PerturbationPositive=$NEXIST # # $m4 _____include(_____xiirs/.PROJ.21.2._____U) # # # # $Z set _____ImageR=$xiirv/HILB.c8 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____ImageR $_____ImageR \ # # $Z RBV # # # # $Z $xci/acces_RVB.14$Z \ # # $Z $_____ImageR $_____ImageR # # # # :Fin_listG_HILB_c8: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 7) sur une shere cabossee # # ('v $xiirs/PROJ.22'). # v $xiirv/HILB.d8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_d8: # # # # $Z Pdu # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Profondeur=8 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTV/HILB.d8 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z set _____Surface=$xrs/project2D.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" aFx=1.6 Fx=$xTV/PROK$COORD_X" # # $Z set _____ArgSurface="$_____ArgSurface"" aFy=2.2 Fy=$xTV/PROK$COORD_Y" # # $Z set _____ArgSurface="$_____ArgSurface"" aFz=1.0 Fz=$xTV/PROK$COORD_Z" # # $Z set _____ArgSurface="$_____ArgSurface"" bilineaire=VRAI" # # $Z set _____ArgSurface="$_____ArgSurface"" Fx_lineaire=VRAI" # # $Z set _____ArgSurface="$_____ArgSurface"" Fy_lineaire=VRAI" # # $Z set _____ArgSurface="$_____ArgSurface"" Fz_lineaire=VRAI" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.012" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OX=-0.2" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OY=+0.2" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=-1.5" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=0.80" # # $Z set _____ArgSurface="$_____ArgSurface"" DepthCueingMinimal=0.3" # # $Z set _____ArgSurface="$_____ArgSurface"" DepthCueingMaximal=1.0" # # $Z set _____ArgSurface="$_____ArgSurface"" couronne=2" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=1.0" # # $Z set _____Renormalisation_v="m=0 M=1.0" # # # # $Z set _____Palette=$xiP/gris.52 # # $Z SET _____PerturbationPositive=$NEXIST # # $m4 _____include(_____xiirs/.PROK.W1.2._____U) # # # # $Z set _____ImageR=$xiirv/HILB.d8 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_d8: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 7) sur une montagne fractale # # ('v $xiirs/PROK.W1'). # v $xiirv/HILB.e8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_e8: # # # # $Z Sdu # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Profondeur=8 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z SET _____GenereRVB=$EXIST # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Dm=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTV/HILB.e8 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z set _____Rayon=1 # # # # $Z set _____Surface=$xrs/project2D.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" aFx=$_____Rayon Fx=$xTV/Fx" # # $Z set _____ArgSurface="$_____ArgSurface"" aFy=$_____Rayon Fy=$xTV/Fy" # # $Z set _____ArgSurface="$_____ArgSurface"" aFz=$_____Rayon Fz=$xTV/Fz" # # $Z set _____ArgSurface="$_____ArgSurface"" bilineaire=VRAI" # # $Z set _____ArgSurface="$_____ArgSurface"" Fx_lineaire=VRAI" # # $Z set _____ArgSurface="$_____ArgSurface"" Fy_lineaire=VRAI" # # $Z set _____ArgSurface="$_____ArgSurface"" Fz_lineaire=VRAI" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.012" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=1" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=0.77" # # $Z set _____ArgSurface="$_____ArgSurface"" DepthCueingMinimal=0.3" # # $Z set _____ArgSurface="$_____ArgSurface"" DepthCueingMaximal=1.0" # # $Z set _____ArgSurface="$_____ArgSurface"" couronne=2" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=0.5" # # $Z set _____Renormalisation_v="m=0 M=1.0" # # # # $Z set _____Palette=$xiP/gris.52 # # $Z SET _____PerturbationPositive=$NEXIST # # $m4 _____include(_____xiirs/.PROJ.21.2._____U) # # # # $Z set _____ImageR=$xiirv/HILB.e8 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_e8: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 7) sur une shere cabossee # # ('v $xiirs/PROJ.22'). # v $xiirv/HILB.f8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_f8: # # # # $Z Pdu # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Profondeur=8 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z SET _____GenereRVB=$EXIST # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Dm=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTV/HILB.f8 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z set _____Surface=$xrs/project2D.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" aFx=1.6 Fx=$xTV/PROK$COORD_X" # # $Z set _____ArgSurface="$_____ArgSurface"" aFy=2.2 Fy=$xTV/PROK$COORD_Y" # # $Z set _____ArgSurface="$_____ArgSurface"" aFz=1.0 Fz=$xTV/PROK$COORD_Z" # # $Z set _____ArgSurface="$_____ArgSurface"" bilineaire=VRAI" # # $Z set _____ArgSurface="$_____ArgSurface"" Fx_lineaire=VRAI" # # $Z set _____ArgSurface="$_____ArgSurface"" Fy_lineaire=VRAI" # # $Z set _____ArgSurface="$_____ArgSurface"" Fz_lineaire=VRAI" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.012" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OX=-0.2" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OY=+0.2" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=-1.5" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=0.80" # # $Z set _____ArgSurface="$_____ArgSurface"" DepthCueingMinimal=0.3" # # $Z set _____ArgSurface="$_____ArgSurface"" DepthCueingMaximal=1.0" # # $Z set _____ArgSurface="$_____ArgSurface"" couronne=2" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=1.0" # # $Z set _____Renormalisation_v="m=0 M=1.0" # # # # $Z set _____Palette=$xiP/gris.52 # # $Z SET _____PerturbationPositive=$NEXIST # # $m4 _____include(_____xiirs/.PROK.W1.2._____U) # # # # $Z set _____ImageR=$xiirv/HILB.f8 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_f8: # # # # # # qui montre une courbe de Hilbert bidimensionnelle (iteration 7) sur une montagne fractale # # ('v $xiirs/PROK.W1'). # v $xiirv/HILB.g8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_g8: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB EMaNdElBrOt # # # # $Z $xigP/Mandelbrot.01$Z \ # # $Z $EMaNdElBrOt # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$EMaNdElBrOt$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$EMaNdElBrOt$COORD_Y" # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NIteration=6 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/HILB.g8 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z set _____Surface=$xrs/bKlein.41$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.120" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.10" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=+0.8" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OZ=-0.3" # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OX=+2.00" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OY=-2.50" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/HILB.g8 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # $Z FilSTmpE EMaNdElBrOt # # # # :Fin_listG_HILB_g8: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 6 iterations pour 'T' (T E [0,0.99999218750193]) basee sur un morceau de la frontiere de # # l'ensemble de Mandelbrot sur une bouteille de Klein ('v $xiirs/BKLN.43'). # v $xiirv/HILB.h8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_h8: # # # # $Z Pdu # # # # $Z FilSTmpB EMaNdElBrOt # # # # $Z $xigP/Mandelbrot.01$Z \ # # $Z $EMaNdElBrOt # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$EMaNdElBrOt$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$EMaNdElBrOt$COORD_Y" # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NIteration=6 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z SET _____GenereRVB=$EXIST # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Dm=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/HILB.g8 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z set _____Surface=$xrs/project2D.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" aFx=1.6 Fx=$xTV/PROK$COORD_X" # # $Z set _____ArgSurface="$_____ArgSurface"" aFy=2.2 Fy=$xTV/PROK$COORD_Y" # # $Z set _____ArgSurface="$_____ArgSurface"" aFz=1.0 Fz=$xTV/PROK$COORD_Z" # # $Z set _____ArgSurface="$_____ArgSurface"" bilineaire=VRAI" # # $Z set _____ArgSurface="$_____ArgSurface"" Fx_lineaire=VRAI" # # $Z set _____ArgSurface="$_____ArgSurface"" Fy_lineaire=VRAI" # # $Z set _____ArgSurface="$_____ArgSurface"" Fz_lineaire=VRAI" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.012" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OX=-0.2" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OY=+0.2" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=-1.5" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=0.80" # # $Z set _____ArgSurface="$_____ArgSurface"" DepthCueingMinimal=0.3" # # $Z set _____ArgSurface="$_____ArgSurface"" DepthCueingMaximal=1.0" # # $Z set _____ArgSurface="$_____ArgSurface"" couronne=2" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=1.0" # # $Z set _____Renormalisation_v="m=0 M=1.0" # # # # $Z set _____Palette=$xiP/gris.52 # # $Z SET _____PerturbationPositive=$NEXIST # # $m4 _____include(_____xiirs/.PROK.W1.2._____U) # # # # $Z set _____ImageR=$xiirv/HILB.h8 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # $Z FilSTmpE EMaNdElBrOt # # # # :Fin_listG_HILB_h8: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 6 iterations pour 'T' (T E [0,0.99999218750193]) basee sur un morceau de la frontiere de # # l'ensemble de Mandelbrot sur une montagne fractale ('v $xiirs/PROK.W1'). # v $xiirv/HILB.i8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_i8: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB DiVeRs # # # # $Z $xigP/Divers.02$Z \ # # $Z $DiVeRs \ # # $Z D \ # # $Z 10 \ # # $Z 0 1 \ # # $Z 0 0.93 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_05=1.125e-05" # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NIteration=5 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/HILB.i8 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z set _____Surface=$xrs/bKlein.41$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.120" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.10" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=+0.8" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OZ=-0.3" # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OX=+2.00" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OY=-2.50" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/HILB.i8 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_HILB_i8: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 5 iterations pour 'T' (T E [0,0.99999000000112]) basee sur une sorte de "zig-zag" sur une # # une bouteille de Klein ('v $xiirs/BKLN.43'). # v $xiirv/HILB.j8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_j8: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB DiVeRs # # # # $Z $xigP/Divers.02$Z \ # # $Z $DiVeRs \ # # $Z C \ # # $Z 10 \ # # $Z 0 1 \ # # $Z 0 0.93 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_05=0.612e-05" # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NIteration=5 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/HILB.j8 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z set _____Surface=$xrs/bKlein.41$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.120" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.10" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=+0.8" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OZ=-0.3" # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OX=+2.00" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OY=-2.50" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/HILB.j8 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_HILB_j8: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 5 iterations pour 'T' (T E [0,0.99999000000112]) basee sur une sorte de "spirale carree" # # sur une bouteille de Klein ('v $xiirs/BKLN.43'). # v $xiirv/HILB.k8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_k8: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB VoNKoCh # # # # $Z $xigP/Mandelbrot.01$Z \ # # $Z $VoNKoCh 5 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$VoNKoCh$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$VoNKoCh$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_06=0.00001" # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NIteration=6 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.0002 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/HILB.k8 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z set _____Surface=$xrs/bKlein.41$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.120" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.10" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=+0.8" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OZ=-0.3" # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OX=+2.00" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OY=-2.50" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____ArgSurface="$_____ArgSurface"" N_au_carre=FAUX" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/HILB.k8 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # $Z FilSTmpE VoNKoCh # # # # :Fin_listG_HILB_k8: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 6 iterations pour 'T' (T E [0,0.99999999999808]) basee sur une courbe de von Koch sur # # une bouteille de Klein ('v $xiirs/BKLN.43'). # v $xiirv/HILB.k9 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_k9: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB VoNKoCh # # # # $Z $xigP/Mandelbrot.01$Z \ # # $Z $VoNKoCh 5 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$VoNKoCh$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$VoNKoCh$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_07=0.000004" # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NIteration=7 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.0002 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/HILB.k9 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____ParticulePara1="$_____ParticulePara1"" N_au_carre=FAUX" # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z set _____Surface=$xrs/bKlein.41$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.100" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.10" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=+0.8" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OZ=-0.3" # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OX=+2.00" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OY=-2.50" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____ArgSurface="$_____ArgSurface"" N_au_carre=FAUX" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/HILB.k9 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # $Z FilSTmpE VoNKoCh # # # # :Fin_listG_HILB_k9: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 6 iterations pour 'T' (T E [0,0.99999600000092]) basee sur une courbe de von Koch sur # # une bouteille de Klein ('v $xiirs/BKLN.43'). # v $xiirv/HILB.l7.G.1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_l7_G_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB DiVeRs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=1 # # # # $Z set _____Lettre="G" # # $Z set _____FacteurDerivees=0 # # $m4 _____include(_____xiirv/.PEAN.Q2.1._____U) # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$DiVeRs$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_01=0.0000300" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.l7.$_____Lettre.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____NAuCarre=FAUX # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE DiVeRs # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set _____Renormalisation_u="m=0 M=$pi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # $Z set _____Renormalisation_w="m=0 M=1" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.l7.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_l7_G_1: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 1) dans une hyper-sphere # # ('v $xiirv/PEAN.Q2.G.1' et 'v $xiirs/HYSP.11'). # v $xiirv/HILB.l7.G.2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_l7_G_2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB DiVeRs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=2 # # # # $Z set _____Lettre="G" # # $Z set _____FacteurDerivees=0 # # $m4 _____include(_____xiirv/.PEAN.Q2.1._____U) # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$DiVeRs$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_02=0.0000300" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.l7.$_____Lettre.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____NAuCarre=FAUX # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE DiVeRs # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set _____Renormalisation_u="m=0 M=$pi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # $Z set _____Renormalisation_w="m=0 M=1" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.l7.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_l7_G_2: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 2) dans une hyper-sphere # # ('v $xiirv/PEAN.Q2.G.2' et 'v $xiirs/HYSP.11'). # v $xiirv/HILB.l7.G.3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_l7_G_3: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB DiVeRs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=3 # # # # $Z set _____Lettre="G" # # $Z set _____FacteurDerivees=0 # # $m4 _____include(_____xiirv/.PEAN.Q2.1._____U) # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$DiVeRs$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_04=0.0000125" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.l7.$_____Lettre.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____NAuCarre=FAUX # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE DiVeRs # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set _____Renormalisation_u="m=0 M=$pi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # $Z set _____Renormalisation_w="m=0 M=1" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.l7.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_l7_G_3: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 3) dans une hyper-sphere # # ('v $xiirv/PEAN.Q2.G.3' et 'v $xiirs/HYSP.11'). # v $xiirv/HILB.l7.G.4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_l7_G_4: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB DiVeRs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=4 # # # # $Z set _____Lettre="G" # # $Z set _____FacteurDerivees=0 # # $m4 _____include(_____xiirv/.PEAN.Q2.1._____U) # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$DiVeRs$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_04=0.0000125" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.l7.$_____Lettre.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____NAuCarre=FAUX # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE DiVeRs # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set _____Renormalisation_u="m=0 M=$pi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # $Z set _____Renormalisation_w="m=0 M=1" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.l7.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_l7_G_4: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 4) dans une hyper-sphere # # ('v $xiirv/PEAN.Q2.G.4' et 'v $xiirs/HYSP.11'). # v $xiirv/HILB.l8.3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_l8_3: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=3 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.002 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.l8.3 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set _____Renormalisation_u="m=0 M=$pi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # $Z set _____Renormalisation_w="m=0 M=1" # # # # $Z set _____ImageR=$xiirv/HILB.l8.3 # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z $xci/acces_RVB.14$Z \ # # $Z $_____ImageR $_____ImageR # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_l8_3: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 3) dans une hyper-sphere # # ('v $xiirs/HYSP.11'). # v $xiirv/HILB.l8.4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_l8_4: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=4 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.002 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.l8.4 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set _____Renormalisation_u="m=0 M=$pi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # $Z set _____Renormalisation_w="m=0 M=1" # # # # $Z set _____ImageR=$xiirv/HILB.l8.4 # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z $xci/acces_RVB.14$Z \ # # $Z $_____ImageR $_____ImageR # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_l8_4: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 4) dans une hyper-sphere # # ('v $xiirs/HYSP.11'). # v $xiirv/HILB.l8.5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_l8_5: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.002 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.l8.5 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set _____Renormalisation_u="m=0 M=$pi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # $Z set _____Renormalisation_w="m=0 M=1" # # # # $Z set _____ImageR=$xiirv/HILB.l8.5 # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z $xci/acces_RVB.14$Z \ # # $Z $_____ImageR $_____ImageR # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_l8_5: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 5) dans une hyper-sphere # # ('v $xiirs/HYSP.11'). # v $xiirv/HILB.l8.6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_l8_6: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=6 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.002 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.l8.6 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set _____Renormalisation_u="m=0 M=$pi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # $Z set _____Renormalisation_w="m=0 M=1" # # # # $Z set _____ImageR=$xiirv/HILB.l8.6 # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z $xci/acces_RVB.14$Z \ # # $Z $_____ImageR $_____ImageR # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_l8_6: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 6) dans une hyper-sphere # # ('v $xiirs/HYSP.11'). # v $xiirv/HILB.l9.2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_l9_2: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=2 # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.92 \ # # $Z $NoEuDTrEfLe # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_02=0.0000125" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.l9.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____NAuCarre=FAUX # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set _____Renormalisation_u="m=0 M=$pi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # $Z set _____Renormalisation_w="m=0 M=1" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.l9.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_l9_2: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 2) dans une hyper-sphere # # ('v $xiirv/PEAN.72' et 'v $xiirs/HYSP.11'). # v $xiirv/HILB.l9.3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_l9_3: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=3 # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.92 \ # # $Z $NoEuDTrEfLe # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_03=0.0000125" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.l9.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____NAuCarre=FAUX # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set _____Renormalisation_u="m=0 M=$pi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # $Z set _____Renormalisation_w="m=0 M=1" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.l9.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_l9_3: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 3) dans une hyper-sphere # # ('v $xiirv/PEAN.72' et 'v $xiirs/HYSP.11'). # v $xiirv/HILB.l9.4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_l9_4: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=4 # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.92 \ # # $Z $NoEuDTrEfLe # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_04=0.0000125" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.l9.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____NAuCarre=FAUX # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set _____Renormalisation_u="m=0 M=$pi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # $Z set _____Renormalisation_w="m=0 M=1" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.l9.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_l9_4: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 4) dans une hyper-sphere # # ('v $xiirv/PEAN.72' et 'v $xiirs/HYSP.11'). # v $xiirv/HILB.lA.F.1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_lA_F_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB DiVeRs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=1 # # # # $Z set _____Lettre="F" # # $Z set _____FacteurDerivees=0 # # $m4 _____include(_____xiirv/.PEAN.Q2.1._____U) # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$DiVeRs$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_01=0.0000300" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.lA.$_____Lettre.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____NAuCarre=FAUX # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE DiVeRs # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set _____Renormalisation_u="m=0 M=$pi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # $Z set _____Renormalisation_w="m=0 M=1" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.lA.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_lA_F_1: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 1) dans une hyper-sphere # # ('v $xiirv/PEAN.Q1.F.1' et 'v $xiirs/HYSP.11'). # v $xiirv/HILB.lA.F.2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_lA_F_2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB DiVeRs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=2 # # # # $Z set _____Lettre="F" # # $Z set _____FacteurDerivees=0 # # $m4 _____include(_____xiirv/.PEAN.Q2.1._____U) # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$DiVeRs$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_02=0.0000300" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.lA.$_____Lettre.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____NAuCarre=FAUX # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE DiVeRs # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set _____Renormalisation_u="m=0 M=$pi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # $Z set _____Renormalisation_w="m=0 M=1" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.lA.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_lA_F_2: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 2) dans une hyper-sphere # # ('v $xiirv/PEAN.Q1.F.2' et 'v $xiirs/HYSP.11'). # v $xiirv/HILB.lA.F.3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_lA_F_3: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB DiVeRs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=3 # # # # $Z set _____Lettre="F" # # $Z set _____FacteurDerivees=0 # # $m4 _____include(_____xiirv/.PEAN.Q2.1._____U) # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$DiVeRs$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_04=0.0000125" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.lA.$_____Lettre.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____NAuCarre=FAUX # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE DiVeRs # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set _____Renormalisation_u="m=0 M=$pi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # $Z set _____Renormalisation_w="m=0 M=1" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.lA.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_lA_F_3: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 3) dans une hyper-sphere # # ('v $xiirv/PEAN.Q1.F.3' et 'v $xiirs/HYSP.11'). # v $xiirv/HILB.lA.F.4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_lA_F_4: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB DiVeRs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=4 # # # # $Z set _____Lettre="F" # # $Z set _____FacteurDerivees=0 # # $m4 _____include(_____xiirv/.PEAN.Q2.1._____U) # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$DiVeRs$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_04=0.0000125" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.lA.$_____Lettre.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____NAuCarre=FAUX # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE DiVeRs # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set _____Renormalisation_u="m=0 M=$pi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # $Z set _____Renormalisation_w="m=0 M=1" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.lA.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_lA_F_4: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 4) dans une hyper-sphere # # ('v $xiirv/PEAN.Q1.F.4' et 'v $xiirs/HYSP.11'). # v $xiirv/HILB.lB.3 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HILB_lB_3: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=3 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.002 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.lB.3 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set EpSiLoN_u=0.2 # # $Z set EpSiLoN_v=0.2 # # $Z set EpSiLoN_w=0.2 # # $Z set _____Renormalisation_u="m=`calcul 0+$EpSiLoN_u` M=`calcul $pi-$EpSiLoN_u`" # # $Z set _____Renormalisation_v="m=`calcul 0+$EpSiLoN_v` M=`calcul $dpi-$EpSiLoN_v`" # # $Z set _____Renormalisation_w="m=$EpSiLoN_w M=1" # # # # $Z set _____ImageR=$xiirv/HILB.lB.3 # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z $xci/acces_RVB.14$Z \ # # $Z $_____ImageR $_____ImageR # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_lB_3: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 3) dans une hyper-sphere # # ('v $xiirs/HYSP.11'). # v $xiirv/HILB.lB.4 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HILB_lB_4: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=4 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.002 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.lB.4 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set EpSiLoN_u=0.2 # # $Z set EpSiLoN_v=0.2 # # $Z set EpSiLoN_w=0.2 # # $Z set _____Renormalisation_u="m=`calcul 0+$EpSiLoN_u` M=`calcul $pi-$EpSiLoN_u`" # # $Z set _____Renormalisation_v="m=`calcul 0+$EpSiLoN_v` M=`calcul $dpi-$EpSiLoN_v`" # # $Z set _____Renormalisation_w="m=$EpSiLoN_w M=1" # # # # $Z set _____ImageR=$xiirv/HILB.lB.4 # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z $xci/acces_RVB.14$Z \ # # $Z $_____ImageR $_____ImageR # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_lB_4: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 4) dans une hyper-sphere # # ('v $xiirs/HYSP.11'). # v $xiirv/HILB.lB.5 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HILB_lB_5: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.002 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.lB.5 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set EpSiLoN_u=0.2 # # $Z set EpSiLoN_v=0.2 # # $Z set EpSiLoN_w=0.2 # # $Z set _____Renormalisation_u="m=`calcul 0+$EpSiLoN_u` M=`calcul $pi-$EpSiLoN_u`" # # $Z set _____Renormalisation_v="m=`calcul 0+$EpSiLoN_v` M=`calcul $dpi-$EpSiLoN_v`" # # $Z set _____Renormalisation_w="m=$EpSiLoN_w M=1" # # # # $Z set _____ImageR=$xiirv/HILB.lB.5 # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z $xci/acces_RVB.14$Z \ # # $Z $_____ImageR $_____ImageR # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_lB_5: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 5) dans une hyper-sphere # # ('v $xiirs/HYSP.11'). # v $xiirv/HILB.lB.5$IdM # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HILB_lB_5_IdM: # # # # $Z TvB # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.002 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.lB.5 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.2" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set EpSiLoN_u=0.2 # # $Z set EpSiLoN_v=0.2 # # $Z set EpSiLoN_w=0.2 # # $Z set _____Renormalisation_u="m=`calcul 0+$EpSiLoN_u` M=`calcul $pi-$EpSiLoN_u`" # # $Z set _____Renormalisation_v="m=`calcul 0+$EpSiLoN_v` M=`calcul $dpi-$EpSiLoN_v`" # # $Z set _____Renormalisation_w="m=$EpSiLoN_w M=1" # # # # $Z set _____ImageR=$xiirv/HILB.lB.5$IdM # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z $xci/acces_RVB.14$Z \ # # $Z $_____ImageR $_____ImageR # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_lB_5_IdM: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 5) dans une hyper-sphere # # ('v $xiirs/HYSP.11'). # v $xiirv/HILB.lB.6 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HILB_lB_6: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=6 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.002 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.lB.6 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set EpSiLoN_u=0.2 # # $Z set EpSiLoN_v=0.2 # # $Z set EpSiLoN_w=0.2 # # $Z set _____Renormalisation_u="m=`calcul 0+$EpSiLoN_u` M=`calcul $pi-$EpSiLoN_u`" # # $Z set _____Renormalisation_v="m=`calcul 0+$EpSiLoN_v` M=`calcul $dpi-$EpSiLoN_v`" # # $Z set _____Renormalisation_w="m=$EpSiLoN_w M=1" # # # # $Z set _____ImageR=$xiirv/HILB.lB.6 # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z $xci/acces_RVB.14$Z \ # # $Z $_____ImageR $_____ImageR # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_lB_6: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 6) dans une hyper-sphere # # ('v $xiirs/HYSP.11'). # v $xiirv/HILB.lC.2 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HILB_lC_2: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=2 # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.92 \ # # $Z $NoEuDTrEfLe # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_02=0.0000125" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.lC.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____NAuCarre=FAUX # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set EpSiLoN_u=0.2 # # $Z set EpSiLoN_v=0.2 # # $Z set EpSiLoN_w=0.2 # # $Z set _____Renormalisation_u="m=`calcul 0+$EpSiLoN_u` M=`calcul $pi-$EpSiLoN_u`" # # $Z set _____Renormalisation_v="m=`calcul 0+$EpSiLoN_v` M=`calcul $dpi-$EpSiLoN_v`" # # $Z set _____Renormalisation_w="m=$EpSiLoN_w M=1" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.lC.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_lC_2: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 2) dans une hyper-sphere # # ('v $xiirv/PEAN.72' et 'v $xiirs/HYSP.11'). # v $xiirv/HILB.lC.3 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HILB_lC_3: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=3 # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.92 \ # # $Z $NoEuDTrEfLe # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_03=0.0000125" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.lC.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____NAuCarre=FAUX # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set EpSiLoN_u=0.2 # # $Z set EpSiLoN_v=0.2 # # $Z set EpSiLoN_w=0.2 # # $Z set _____Renormalisation_u="m=`calcul 0+$EpSiLoN_u` M=`calcul $pi-$EpSiLoN_u`" # # $Z set _____Renormalisation_v="m=`calcul 0+$EpSiLoN_v` M=`calcul $dpi-$EpSiLoN_v`" # # $Z set _____Renormalisation_w="m=$EpSiLoN_w M=1" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.lC.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_lC_3: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 3) dans une hyper-sphere # # ('v $xiirv/PEAN.72' et 'v $xiirs/HYSP.11'). # v $xiirv/HILB.lC.4 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HILB_lC_4: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=4 # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.92 \ # # $Z $NoEuDTrEfLe # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_04=0.0000125" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.lC.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____NAuCarre=FAUX # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set EpSiLoN_u=0.2 # # $Z set EpSiLoN_v=0.2 # # $Z set EpSiLoN_w=0.2 # # $Z set _____Renormalisation_u="m=`calcul 0+$EpSiLoN_u` M=`calcul $pi-$EpSiLoN_u`" # # $Z set _____Renormalisation_v="m=`calcul 0+$EpSiLoN_v` M=`calcul $dpi-$EpSiLoN_v`" # # $Z set _____Renormalisation_w="m=$EpSiLoN_w M=1" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.lC.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_lC_4: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 4) dans une hyper-sphere # # ('v $xiirv/PEAN.72' et 'v $xiirs/HYSP.11'). # v $xiirv/HILB.lD.F.1 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HILB_lD_F_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB DiVeRs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=1 # # # # $Z set _____Lettre="F" # # $Z set _____FacteurDerivees=0 # # $m4 _____include(_____xiirv/.PEAN.Q2.1._____U) # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$DiVeRs$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_01=0.0000300" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.lD.$_____Lettre.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____NAuCarre=FAUX # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE DiVeRs # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set EpSiLoN_u=0.2 # # $Z set EpSiLoN_v=0.2 # # $Z set EpSiLoN_w=0.2 # # $Z set _____Renormalisation_u="m=`calcul 0+$EpSiLoN_u` M=`calcul $pi-$EpSiLoN_u`" # # $Z set _____Renormalisation_v="m=`calcul 0+$EpSiLoN_v` M=`calcul $dpi-$EpSiLoN_v`" # # $Z set _____Renormalisation_w="m=$EpSiLoN_w M=1" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.lD.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_lD_F_1: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 1) dans une hyper-sphere # # ('v $xiirv/PEAN.Q1.F.1' et 'v $xiirs/HYSP.11'). # v $xiirv/HILB.lD.F.2 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HILB_lD_F_2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB DiVeRs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=2 # # # # $Z set _____Lettre="F" # # $Z set _____FacteurDerivees=0 # # $m4 _____include(_____xiirv/.PEAN.Q2.1._____U) # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$DiVeRs$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_02=0.0000300" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.lD.$_____Lettre.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____NAuCarre=FAUX # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE DiVeRs # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set EpSiLoN_u=0.2 # # $Z set EpSiLoN_v=0.2 # # $Z set EpSiLoN_w=0.2 # # $Z set _____Renormalisation_u="m=`calcul 0+$EpSiLoN_u` M=`calcul $pi-$EpSiLoN_u`" # # $Z set _____Renormalisation_v="m=`calcul 0+$EpSiLoN_v` M=`calcul $dpi-$EpSiLoN_v`" # # $Z set _____Renormalisation_w="m=$EpSiLoN_w M=1" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.lD.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_lD_F_2: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 2) dans une hyper-sphere # # ('v $xiirv/PEAN.Q1.F.2' et 'v $xiirs/HYSP.11'). # v $xiirv/HILB.lD.F.3 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HILB_lD_F_3: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB DiVeRs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=3 # # # # $Z set _____Lettre="F" # # $Z set _____FacteurDerivees=0 # # $m4 _____include(_____xiirv/.PEAN.Q2.1._____U) # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$DiVeRs$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_04=0.0000125" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.lD.$_____Lettre.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____NAuCarre=FAUX # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE DiVeRs # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set EpSiLoN_u=0.2 # # $Z set EpSiLoN_v=0.2 # # $Z set EpSiLoN_w=0.2 # # $Z set _____Renormalisation_u="m=`calcul 0+$EpSiLoN_u` M=`calcul $pi-$EpSiLoN_u`" # # $Z set _____Renormalisation_v="m=`calcul 0+$EpSiLoN_v` M=`calcul $dpi-$EpSiLoN_v`" # # $Z set _____Renormalisation_w="m=$EpSiLoN_w M=1" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.lD.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_lD_F_3: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 3) dans une hyper-sphere # # ('v $xiirv/PEAN.Q1.F.3' et 'v $xiirs/HYSP.11'). # v $xiirv/HILB.lD.F.4 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HILB_lD_F_4: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z FilSTmpB DiVeRs # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____NIteration=4 # # # # $Z set _____Lettre="F" # # $Z set _____FacteurDerivees=0 # # $m4 _____include(_____xiirv/.PEAN.Q2.1._____U) # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$DiVeRs$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_04=0.0000125" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.5 # # $Z set _____ImageR=$xTG/HILB.lD.$_____Lettre.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.001) # # # # $Z SET _____FEnTete=1 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____NAuCarre=FAUX # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE DiVeRs # # # # $Z set _____Variete=$xrs/hyper_sphere.11$X # # $Z set _____ArgVariete="$K_VIDE" # # $Z set _____ArgVariete="$_____ArgVariete"" xx4=0 yx4=0 zx4=0" # # $Z set _____ArgVariete="$_____ArgVariete"" Vrayon=0.015" # # $Z set _____ArgVariete="$_____ArgVariete"" couronne=3" # # $Z set _____ArgVariete="$_____ArgVariete"" ROTATION_OX=1" # # $Z set _____ArgVariete="$_____ArgVariete"" ZOOM=2.0" # # $Z set _____ArgVariete="$_____ArgVariete"" Lz=100" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMinimal=0.1" # # $Z set _____ArgVariete="$_____ArgVariete"" DepthCueingMaximal=1.0" # # $Z set _____ArgVariete="$_____ArgVariete"" N_log_N=VRAI" # # $Z set EpSiLoN_u=0.2 # # $Z set EpSiLoN_v=0.2 # # $Z set EpSiLoN_w=0.2 # # $Z set _____Renormalisation_u="m=`calcul 0+$EpSiLoN_u` M=`calcul $pi-$EpSiLoN_u`" # # $Z set _____Renormalisation_v="m=`calcul 0+$EpSiLoN_v` M=`calcul $dpi-$EpSiLoN_v`" # # $Z set _____Renormalisation_w="m=$EpSiLoN_w M=1" # # # # $Z SET _____PaletteD=$xiP/arc_ciel.L1 # # # # $Z set _____ImageR=$xiirv/HILB.lD.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.M5._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_HILB_lD_F_4: # # # # # # qui montre une courbe de Hilbert tridimensionnelle (iteration 4) dans une hyper-sphere # # ('v $xiirv/PEAN.Q1.F.4' et 'v $xiirs/HYSP.11'). # v $xiirv/HILB.m8.AI332HJ.5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_m8_AI332HJ_5: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB DiVeRs # # # # $Z set _____Lettre="AI332HJ" # # # # $Z $xigP/Divers.02$Z \ # # $Z $DiVeRs \ # # $Z $_____Lettre \ # # $Z 10 \ # # $Z 0 1 \ # # $Z 0 1 \ # # $Z Std 3 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=FAUX" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_05=0.612e-05" # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NIteration=5 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/HILB.m8.$_____Lettre.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z set _____Surface=$xrs/bKlein.41$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.080" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.10" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=+0.8" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OZ=-0.3" # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OX=+2.00" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OY=-2.50" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/HILB.m8.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_HILB_m8_AI332HJ_5: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 5 iterations pour 'T' (T E [0,0.99999575999973]) basee sur un motif carre paradoxal # # sur une bouteille de Klein ('v $xiirs/BKLN.43'). # v $xiirv/HILB.m8.AI332HJ.5.1.1 v $xiirv/HILB.m8.AI332HJ.5.1.2 v $xiirv/HILB.m8.AI332HJ.5.1.21 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_m8_AI332HJ_5_1: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB DiVeRs # # # # $Z set _____Lettre="AI332HJ" # # # # $Z $xigP/Divers.02$Z \ # # $Z $DiVeRs \ # # $Z $_____Lettre \ # # $Z 10 \ # # $Z 0 1 \ # # $Z 0 1 \ # # $Z Std 3 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=FAUX" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_05=0.612e-05" # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NIteration=5 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/HILB.m8.$_____Lettre.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z set _____Surface=$xrs/bKlein.41$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.080" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.10" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z FilSTmpB FLiStE_PoInTs_S # # # # $Z set _____Redirection=">> $FLiStE_PoInTs_S" # # # # $Z set _____SurfacePara1="$K_VIDE" # # $Z set _____SurfacePara1="$_____SurfacePara1"" lister_les_points=VRAI" # # $Z set _____SurfacePara1="$_____SurfacePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____ImageR=$xTV/HILB.m8.1 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z $DELETE $FLiStE_PoInTs # # $Z $DELETE $FLiStE_PoInTs$COORD_X # # $Z $DELETE $FLiStE_PoInTs$COORD_Y # # $Z $DELETE $FLiStE_PoInTs$COORD_Z # # # # $Z $MV $FLiStE_PoInTs_S $FLiStE_PoInTs # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/HILB.m8 # # # # $Z set _____MinX=0.1 # # $Z set _____MaxX=0.9 # # $Z set _____MinY=0.1 # # $Z set _____MaxY=0.9 # # $Z set _____MinZ=0.1 # # $Z set _____MaxZ=0.9 # # # # $Z set _____DemiPaveX=2 # # $Z set _____DemiPaveY=2 # # $Z set _____DemiPaveZ=2 # # # # $m4 _____include(_____xiirv/.HILB.R8.1._____U) # # # # $Z FilSTmpE FLiStE_PoInTs_S # # $Z FilSTmpE FLiStE_PoInTs # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/HILB.m8.$_____Lettre.$_____NIteration.1 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_HILB_m8_AI332HJ_5_1: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 5 iterations pour 'T' (T E [0,0.99999575999973]) basee sur un motif carre paradoxal # # sur une bouteille de Klein ('v $xiirs/BKLN.43'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xrv/store_album$X : 00:00:04 # # # # $xci/ombrage.11$X : 00:06:10 # # # # $xci/accumule.42$X : 00:05:34 # # # v $xiirv/HILB.m8.AI332HJ.5.1.21$M # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_m8_AI332HJ_5_1_M: # # # # $Z Pdu # # # # $Z set _____imagesA=$xiirv/HILB.m8.AI332HJ.5.1 # # $Z set _____imagesR=$_____imagesA.21$M # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____imagesA.1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z navap=VRAI \ # # $Z passes=1000 \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z execRVB "$xci/convol.01$X \ # # $Z A=$_____imagesA.21%s \ # # $Z points=49 \ # # $Z $formatI | \ # # $Z $xci/montagne.01$X \ # # $Z echelle=0.1 \ # # $Z A=$xTV/LUMINANCE \ # # $Z standard=FAUX zero=FAUX \ # # $Z avion=FAUX \ # # $Z Ty=0.95 \ # # $Z R=$_____imagesR%s \ # # $Z $formatI" # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR \ # # $Z $_____imagesR \ # # $Z RBV # # # # :Fin_listG_HILB_m8_AI332HJ_5_1_M: # # # v $xiirv/HILB.n8.AJ332DC.5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_HILB_n8_AJ332DC_5: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB DiVeRs # # # # $Z set _____Lettre="AJ332DC" # # # # $Z $xigP/Divers.02$Z \ # # $Z $DiVeRs \ # # $Z $_____Lettre \ # # $Z 10 \ # # $Z 0 1 \ # # $Z 0 1 \ # # $Z Std 4 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=FAUX" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_05=0.612e-05" # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NIteration=5 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/HILB.n8.$_____Lettre.$_____NIteration # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z set _____Surface=$xrs/bKlein.41$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.080" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.10" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=+0.8" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OZ=-0.3" # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OX=+2.00" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OY=-2.50" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/HILB.n8.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_HILB_n8_AJ332DC_5: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 5 iterations pour 'T' (T E [0,0.99999575999973]) basee sur un motif carre "labyrinthique" # # sur une bouteille de Klein ('v $xiirs/BKLN.43'). # v $xiirv/HORN.11.1 v $xiirv/HORN.11.2 v $xiirv/HORN.11 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HORN_11: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/HORN.11 # # # # $Z set _____ImageA1=$_____ImageR.1 # # $Z set _____ImageA2=$_____ImageR.2 # # # # $Z $xci/trefle$X \ # # $Z ct=11 \ # # $Z R=$_____ImageA1 \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z mr=16 mt=2 \ # # $Z R=$_____ImageA2 \ # # $Z $formatI # # $m4 _____include(_____xiirv/.HORN.11.1._____U) # # $m4 _____include(_____xiirv/.HORN.11.2._____U) # # $m4 _____include(_____xiirv/.HORN.11.3._____U) # # $m4 _____include(_____xiirv/.HORN.11.4._____U) # # # # :Fin_listG_HORN_11: # # # # # # qui montre un effet de 'v $xci/ProduitHorner_2_04.01$K'... # v $xiirv/HORN.21.1 v $xiirv/HORN.21.2 v $xiirv/HORN.21 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HORN_21: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/HORN.21 # # # # $Z set _____ImageA1=$_____ImageR.1 # # $Z set _____ImageA2=$_____ImageR.2 # # # # $Z $xci/spiArchimede$X \ # # $Z mr=16 mt=3 \ # # $Z R=$_____ImageA1 \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z mr=16 mt=7 \ # # $Z R=$_____ImageA2 \ # # $Z $formatI # # $m4 _____include(_____xiirv/.HORN.21.1._____U) # # $m4 _____include(_____xiirv/.HORN.11.2._____U) # # $m4 _____include(_____xiirv/.HORN.21.3._____U) # # $m4 _____include(_____xiirv/.HORN.11.4._____U) # # # # :Fin_listG_HORN_21: # # # # # # qui montre un effet de 'v $xci/ProduitHorner_2_04.01$K'... # v $xiirv/HORN.21$m # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HORN_21_m: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/HORN.21 # # $Z set _____ImageR=$_____ImageA$m # # # # $Z $xci/tapisserie$X \ # # $Z A=$_____ImageA \ # # $Z cache=VRAI \ # # $Z iterations=4 \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xTV/HORN.21.1 \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/HORN.21.1 \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z normaliser_avant_apres=VRAI \ # # $Z passes=100 \ # # $Z R=$xTV/HORN.21.2 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/HORN.21.1 \ # # $Z p=$xiP/random.B7$Fi \ # # $Z R=$xTV/HORN.21.3 \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/HORN.21.2 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/HORN.21.3%s \ # # $Z avion=VRAI \ # # $Z Sy=40 \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_HORN_21_m: # # # v $xiirv/HORN.31.1 v $xiirv/HORN.31.2 v $xiirv/HORN.31 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HORN_31: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/HORN.31 # # # # $Z set _____ImageA1=$_____ImageR.1 # # $Z set _____ImageA2=$_____ImageR.2 # # # # $Z $xci/trefle$X \ # # $Z ct=3 \ # # $Z R=$_____ImageA1 \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z ct=7 \ # # $Z R=$_____ImageA2 \ # # $Z $formatI # # $m4 _____include(_____xiirv/.HORN.31.1._____U) # # $m4 _____include(_____xiirv/.HORN.11.2._____U) # # $m4 _____include(_____xiirv/.HORN.31.3._____U) # # $m4 _____include(_____xiirv/.HORN.11.4._____U) # # # # :Fin_listG_HORN_31: # # # # # # qui montre un effet de 'v $xci/ProduitHorner_2_04.01$K'... # v $xiirv/HYCO.11$R04 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HYCO_11: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set NiVeAu_1=$GRIS_2 # # $Z set NiVeAu_2=$GRIS_4 # # $Z set NiVeAu_3=$GRIS_6 # # $Z set NiVeAu_4=$GRIS_8 # # # # $Z @ DX_GD = 200 # # $Z @ XGauche = $Xmax / 2 - $DX_GD # # $Z @ XGauche = $XGauche / 2 * 2 # # $Z @ XGauche = $XGauche + 2 # # $Z @ X_Droite = $Xmax / 2 + $DX_GD # # $Z @ X_Droite = $X_Droite / 2 * 2 # # $Z @ X_Droite = $X_Droite + 2 # # $Z @ DY_BH = 0 # # $Z @ Ymilieu = $Ymax / 2 + $DY_BH # # $Z @ Ymilieu = $Ymilieu / 2 * 2 # # # # On notera que l'on rend '$XGauche', '$X_Droite' et '$Ymilieu' pairs afin que les points ici # # generes dans l'image '$_____imagesT.0001' soient sur une grille compatible avec les # # grilles obtenues ci-apres avec {trx=,try=} ensuite. Cela permet a la fin au 'ext Sdu' # # de fonctionner correctement et de produire des points carres ayant tous la meme taille... # # # # Les "+2"s sur '$XGauche' et '$X_Droite' ont ete introduits le 20171025152914 afin que # # '$_____imagesT.0001' soit centrees horizontalement comme les autres '$_____imagesT.000?'... # # # # $Z set _____imagesT=$xTV/HYCO.11 # # $Z set _____imagesR=$xiirv/HYCO.11$R04 # # # # $Z $xci/S_point$X \ # # $Z A=$NOIR \ # # $Z x=$XGauche y=$Ymilieu \ # # $Z niveau=$NiVeAu_1 \ # # $Z $formatI | \ # # $Z $xci/S_point$X \ # # $Z x=$X_Droite y=$Ymilieu \ # # $Z niveau=$NiVeAu_1 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z dilater=VRAI \ # # $Z ncarre=VRAI \ # # $Z points=2025 \ # # $Z R=$_____imagesT.0001 \ # # $Z $formatI # # # # $Z set TrAnS_2=`calcul 1/4` # # $Z set TrAnS_3=`calcul 1/8` # # $Z set TrAnS_4=`calcul 1/512` # # # # $Z $xci/init$X \ # # $Z niveau=$NiVeAu_2 \ # # $Z px=`calcul $dimX/2` py=`calcul $dimY/2` \ # # $Z $formatI | \ # # $Z $xci/scroll$X \ # # $Z trx=$TrAnS_2 torex=FAUX try=$TrAnS_2 torey=FAUX \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z dilater=VRAI \ # # $Z ncarre=VRAI \ # # $Z points=961 \ # # $Z R=$_____imagesT.0002 \ # # $Z $formatI # # # # $Z $xci/init$X \ # # $Z niveau=$NiVeAu_3 \ # # $Z px=`calcul $dimX/4` py=`calcul $dimY/4` \ # # $Z $formatI | \ # # $Z $xci/scroll$X \ # # $Z trx=$TrAnS_3 torex=FAUX try=$TrAnS_3 torey=FAUX \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z dilater=VRAI \ # # $Z ncarre=VRAI \ # # $Z points=225 \ # # $Z R=$_____imagesT.0003 \ # # $Z $formatI # # # # $Z $xci/init$X \ # # $Z niveau=$NiVeAu_4 \ # # $Z px=`calcul $dimX/256` py=`calcul $dimY/256` \ # # $Z $formatI | \ # # $Z $xci/scroll$X \ # # $Z trx=$TrAnS_4 torex=FAUX try=$TrAnS_4 torey=FAUX \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z dilater=VRAI \ # # $Z ncarre=VRAI \ # # $Z points=9 \ # # $Z R=$_____imagesT.0004 \ # # $Z $formatI # # # # $Z ext Squ 0 # # # # $Z $xci/reduction_04$X \ # # $Z A=$_____imagesT. \ # # $Z premiere=1 derniere=4 pas=1 \ # # $Z moyenne=FAUX maximum=VRAI \ # # $Z R=$_____imagesR \ # # $Z $formatI # # # # $Z ext Sdu 0 # # # # $Z $xci/neutre$X \ # # $Z A=$_____imagesR \ # # $Z R=$_____imagesR \ # # $Z $formatI # # # # :Fin_listG_HYCO_11: # # # # # # Generation des quatre premiers ensembles des parties d'un ensemble ayant un seul element. # # Ces quatre ensembles ont respectivement 2 (=2^1), 4 (2^2), 16 (=2^4) et 65536 (=2^16) # # elements... # v $xiirv/HYCO.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HYCO_21: # # # # $Z Pal # # # # $Z set _____Palette=$xiP/rougB_jaunB # # $Z set _____ImagesR=$xiirv/HYCO.21 # # $m4 _____include(_____xiirv/.HYCO.21.1._____U) # # # # :Fin_listG_HYCO_21: # # # # # # Il s'agit d'une tentative de visualisation de l'Hypothese du Continu via l'echelle # # infinie des cardinaux infinis... # v $xiirv/HYCO.22 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HYCO_22: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiirf/NUAG.11.0033 \ # # $Z p=$xiP/nuages.02 \ # # $Z R=$xTV/NUAGES \ # # $Z $formatI # # # # $Z set _____Palette=$xiP/rougB_jaunB # # $Z set _____ParticuleParaC="fond=VRAI F=$xTV/NUAGES" # # $Z set _____ImagesR=$xiirv/HYCO.22 # # $m4 _____include(_____xiirv/.HYCO.21.1._____U) # # # # :Fin_listG_HYCO_22: # # # # # # Il s'agit d'une tentative de visualisation de l'Hypothese du Continu via l'echelle # # infinie des cardinaux infinis... # v $xiirv/HYCO.23 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HYCO_23: # # # # $Z Pqu # # # # $Z set _____Palette=$xiP/rougB_jaunB # # $Z set _____ParticuleParaC="fond=VRAI F=$xiirf/NUAG.B2$N" # # $Z set _____ImagesR=$xiirv/HYCO.23 # # $m4 _____include(_____xiirv/.HYCO.21.1._____U) # # # # :Fin_listG_HYCO_23: # # # # # # Il s'agit d'une tentative de visualisation de l'Hypothese du Continu via l'echelle # # infinie des cardinaux infinis... # v $xiirv/HYCO.24 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HYCO_24: # # # # $Z Pqu # # # # $Z set _____Palette=$xiP/rougB_jaunB # # $Z set _____ParticuleParaC="fond=VRAI F=$xiirf/CIEL.31.0017" # # $Z set _____ImagesR=$xiirv/HYCO.24 # # $m4 _____include(_____xiirv/.HYCO.21.1._____U) # # # # :Fin_listG_HYCO_24: # # # # # # Il s'agit d'une tentative de visualisation de l'Hypothese du Continu via l'echelle # # infinie des cardinaux infinis... # v $xiirv/HYCO.25 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_HYCO_25: # # # # $Z ext Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____Palette=$xiP/rougB_jaunB # # $Z set _____ParticuleParaC="fond=VRAI F=$xiirf/PAYU.K2$M" # # $Z set _____ImagesR=$xiirv/HYCO.25 # # $m4 _____include(_____xiirv/.HYCO.21.1._____U) # # # # :Fin_listG_HYCO_25: # # # # # # Il s'agit d'une tentative de visualisation de l'Hypothese du Continu via l'echelle # # infinie des cardinaux infinis... # v $xiirv/HYCO.31 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HYCO_31: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Fond=$xiirv/IMPO.61.1 # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____Fond%s \ # # $Z $format_Sdu \ # # $Z mode=2 \ # # $Z R=$xTV/IMPOSSIBLE%s \ # # $Z $formatR_Pdu # # # # $Z $xci/fract_2D.01$X \ # # $Z mx=0.05 my=0.05 \ # # $Z iterations=2 \ # # $Z Frenormaliser=VRAI \ # # $Z o=-8 e=+8 \ # # $Z standard=FAUX \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # # # Les parametres "o=-8 e=+8" sont des valeurs approchees des extrema du 'Z-Buffer' # # de 'v $xiirv/.HYCO.21.1.$U .xrv.particule.10.X' obtenues en activant alors l'option # # "editer_extrema_Z_Buffer=VRAI"... # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/IMPOSSIBLE \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z o=-10 e=+10 \ # # $Z $formatI | \ # # $Z $xci/minimum$X \ # # $Z A1=$xTV/FRACTAL \ # # $Z standard=FAUX \ # # $Z R=$xTV/FOND \ # # $Z $formatI # # # # Les parametres "o=-10 e=+10" sont des valeurs approchees des extrema du 'Z-Buffer' # # de 'v $xiirv/.HYCO.21.1.$U .xrv.particule.10.X' obtenues en activant alors l'option # # "editer_extrema_Z_Buffer=VRAI"... # # # # $Z set _____ParticuleParaC="$K_VIDE" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" fond=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" F=$xTV/IMPOSSIBLE" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" Zfond=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" ZF=$xTV/FOND" # # # # $Z set _____Palette=$xiP/rougB_jaunB # # $Z set _____ImagesR=$xiirv/HYCO.31 # # $m4 _____include(_____xiirv/.HYCO.21.1._____U) # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$_____ImagesR%s \ # # $Z R=$_____ImagesR%s \ # # $Z $formatI # # # # :Fin_listG_HYCO_31: # # # # # # Il s'agit d'une tentative de visualisation de l'Hypothese du Continu via l'echelle # # infinie des cardinaux infinis et d'une structure paradoxale illustrant les paradoxes... # v $xiirv/HYCO.41 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HYCO_41: # # # # $Z Pal # # $Z set _____CoordonneeY=-0.5 # # $Z set _____ITrapezeX=0.1 # # $Z set _____ITrapezeZ=0.1 # # $Z set _____RotationOX=0.2 # # # # $Z set _____Palette=$xiP/rougB_jaunB # # $Z set _____ImagesR=$xiirv/HYCO.41 # # $m4 _____include(_____xiirv/.HYCO.41.1._____U) # # # # :Fin_listG_HYCO_41: # # # # # # Il s'agit d'une tentative de visualisation de l'Hypothese du Continu via l'echelle # # infinie des cardinaux infinis... # v $xiirv/HYCO.42 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_HYCO_42: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.00005" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # # # $Z set _____NMarches=32 # # $Z set _____Palette=$xiP/NOIR_PLANCHER # # $Z set _____ImagesR=$xiirv/HYCO.42 # # $m4 _____include(_____xiirv/.HYCO.41.1._____U) # # # # $Z set _____OptimiserIncrement=VRAI # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____AttenuationA=1.00 # # $Z set _____PaletteC=$xiP/vert_orange # # $Z FileTmpB FPaletteC # # # # $Z $xciP/S_NIVEAU$X \ # # $Z paletteA=$_____PaletteC \ # # $Z niveau=$NOIR \ # # $Z ROUGE=VRAI nR=$NOIR \ # # $Z VERTE=VRAI nV=$NOIR \ # # $Z BLEUE=VRAI nB=$NOIR \ # # $Z paletteR=$FPaletteC # # # # $Z $xciP/S_NIVEAU$X \ # # $Z paletteA=$FPaletteC \ # # $Z niveau=$NOIR_PLANCHER \ # # $Z ROUGE=VRAI nR=$NOIR \ # # $Z VERTE=VRAI nV=$NOIR \ # # $Z BLEUE=VRAI nB=$NOIR \ # # $Z paletteR=$FPaletteC # # $Z set _____PaletteC=$FPaletteC # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # # # $Z FileTmpE FPaletteC # # # # $Z set _____PRayon=0.0076 # # $Z unset _____DistanceMini # # $Z set _____DistanceMini=0.010 # # $Z set _____Palette=$xiP/rougB_jaunB # # $Z set _____ParticuleParaC="$_____ParticulePara1" # # $m4 _____include(_____xiirv/.HYCO.41.1._____U) # # # # :Fin_listG_HYCO_42: # # # # # # qui est inspire de 'v $xiirv/TROR.46'... # v $xiirv/HYCO.51 v $xiirv/HYCO.51.1 # Generee (sur '$LACT1a') par : # # # # # # :Debut_listG_HYCO_51: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____NMarches=40 # # $Z set _____LRectangle=0.05 # # $Z set _____HRectangle=0.040 # # $Z set _____CoordonneeY=-0.5 # # $Z set _____ITrapezeX=0.01 # # $Z set _____dITrapezeX=0.003 # # $Z set _____ITrapezeZ=0.05 # # $Z set _____dITrapezeZ=0 # # $Z set _____PRayon=0.0025 # # $Z set _____Couronne=1.5 # # $Z set _____DistanceMini=0.0040 # # $Z set _____RotationOX=0.2 # # # # $Z set _____Palette=$xiP/rougB_jaunB # # $Z set _____ImagesR=$xiirv/HYCO.51 # # $m4 _____include(_____xiirv/.HYCO.41.1._____U) # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=0 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z puissance_image=VRAI exposant=2 \ # # $Z R=$xTV/NOYAU \ # # $Z $formatI # # # # $Z execRVB $xci/convol.02$X \ # # $Z A=$_____ImagesR%s \ # # $Z facteur_points=2 \ # # $Z N=$xTV/NOYAU \ # # $Z V=$BLANC F=$BLANC \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____ImagesR.1%s \ # # $Z $formatI # # # # :Fin_listG_HYCO_51: # # # # # # Il s'agit d'une tentative de visualisation de l'Hypothese du Continu via l'echelle # # infinie des cardinaux infinis... # v $xiirv/HYCO.61 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_HYCO_61: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Fond=$xiirv/IMPO.61.1 # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____Fond%s \ # # $Z $format_Sdu \ # # $Z mode=2 \ # # $Z R=$xTV/IMPOSSIBLE%s \ # # $Z $formatR_Pdu # # # # $Z $xci/fract_2D.01$X \ # # $Z mx=0.10 my=0.10 \ # # $Z iterations=2 \ # # $Z Frenormaliser=VRAI \ # # $Z o=-8 e=+8 \ # # $Z standard=FAUX \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # # # Les parametres "o=-8 e=+8" sont des valeurs approchees des extrema du 'Z-Buffer' # # de 'v $xiirv/.HYCO.21.1.$U .xrv.particule.10.X' obtenues en activant alors l'option # # "editer_extrema_Z_Buffer=VRAI"... # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/IMPOSSIBLE \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z o=-10 e=+10 \ # # $Z $formatI | \ # # $Z $xci/minimum$X \ # # $Z A1=$xTV/FRACTAL \ # # $Z standard=FAUX \ # # $Z R=$xTV/FOND \ # # $Z $formatI # # # # Les parametres "o=-10 e=+10" sont des valeurs approchees des extrema du 'Z-Buffer' # # de 'v $xiirv/.HYCO.21.1.$U .xrv.particule.10.X' obtenues en activant alors l'option # # "editer_extrema_Z_Buffer=VRAI"... # # # # $Z set _____ParticuleParaC="$K_VIDE" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" fond=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" F=$xTV/IMPOSSIBLE" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" Zfond=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" ZF=$xTV/FOND" # # # # $Z set _____NMarches=40 # # $Z set _____LRectangle=0.05 # # $Z set _____HRectangle=0.040 # # $Z set _____CoordonneeY=-0.5 # # $Z set _____ITrapezeX=0.01 # # $Z set _____dITrapezeX=0.003 # # $Z set _____ITrapezeZ=0.05 # # $Z set _____dITrapezeZ=0 # # $Z set _____PRayon=0.0050 # # $Z set _____Couronne=1.5 # # $Z set _____DistanceMini=0.0040 # # $Z set _____RotationOX=0.2 # # # # $Z set _____Palette=$xiP/rougB_jaunB # # $Z set _____ImagesR=$xiirv/HYCO.61 # # $m4 _____include(_____xiirv/.HYCO.41.1._____U) # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$_____ImagesR%s \ # # $Z R=$_____ImagesR%s \ # # $Z $formatI # # # # :Fin_listG_HYCO_61: # # # # # # Il s'agit d'une tentative de visualisation de l'Hypothese du Continu via l'echelle # # infinie des cardinaux infinis et d'une structure paradoxale illustrant les paradoxes... # v $xiirv/HYCO.62 # Generee (sur '$LACT1a') par : # # # # # # :Debut_listG_HYCO_62: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____NMarches=40 # # $Z set _____LRectangle=0.05 # # $Z set _____HRectangle=0.040 # # $Z set _____CoordonneeY=-0.5 # # $Z set _____ITrapezeX=0.01 # # $Z set _____dITrapezeX=0.003 # # $Z set _____ITrapezeZ=0.05 # # $Z set _____dITrapezeZ=0 # # $Z set _____PRayon=0.0025 # # $Z set _____Couronne=1.5 # # $Z set _____DistanceMini=0.0040 # # $Z set _____RotationOX=0.2 # # # # $Z set _____ParticuleParaC="$K_VIDE" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" fond=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" F=$xiirf/PAYU.J1$M" # # # # $Z set _____Palette=$xiP/gris.02 # # $Z set _____ImagesR=$xiirv/HYCO.62 # # $m4 _____include(_____xiirv/.HYCO.41.1._____U) # # # # :Fin_listG_HYCO_62: # # # # # # Il s'agit d'une tentative de visualisation de l'Hypothese du Continu via l'echelle # # infinie des cardinaux infinis... # v $xiirv/ILLU.11.01 p=$xiP/gris.01 v $xiirv/ILLU.11.02 p=$xiP/gris.01 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_ILLU_11: # # # # $Z set _____images1=$xiirv/ILLU.11.01 # # $Z set _____images2=$xiirv/ILLU.11.02 # # $m4 _____include(_____xiirv/.ILLU.11._____U) # # # # :Fin_listG_ILLU_11: # # # # # # Ces deux images montrent une illusion classique sur des alignements de points... # v $xiirv/ILLU.21 p=$xiP/gris.02 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_ILLU_21: # # # # $Z set _____images=$xiirv/ILLU.21 # # $m4 _____include(_____xiirv/.ILLU.21._____U) # # # # :Fin_listG_ILLU_21: # # # # # # Cette image montre l'illusion classique du contraste simultane... # v $xiirv/ILLU.31 p=$xiP/gris.01 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_ILLU_31: # # # # $Z set _____images=$xiirv/ILLU.31 # # $m4 _____include(_____xiirv/.ILLU.31._____U) # # # # :Fin_listG_ILLU_31: # # # # # # Cette image montre l'illusion classique de Zollner... # v $xiirv/ILLU.41 p=$xiP/gris.01 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_ILLU_41: # # # # $Z Sdu # # # # $Z set _____imageR=$xiirv/ILLU.41 # # $Z $xci/sinus$X \ # # $Z cY=0 \ # # $Z cX=`calcul 60*$dpi` \ # # $Z $formatI | \ # # $Z $xci/spiralise$X \ # # $Z R=$_____imageR \ # # $Z $formatI # # # # :Fin_listG_ILLU_41: # # # # # # Cette image montre deux zones orthogonales (en forme de sablier) qui semblent bouger l'une # # par rapport a l'autre... # v $xiirv/IMPO.03.01 p=$xiP/gris.01 v $xiirv/IMPO.03.02 p=$xiP/gris.01 v $xiirv/IMPO.03.11 p=$xiP/gris.01 v $xiirv/IMPO.03.12 p=$xiP/gris.01 v $xiirv/IMPO.04.04 p=$xiP/gris.01 v $xiirv/IMPO.04.15 p=$xiP/gris.01 v $xiirv/IMPO.04.16 p=$xiP/gris.01 # Ces images ont ete generees par : # # # # # # :Debut_listG_IMPO_03: # # # # $Z alias genere 'set ImAgE=\!:1 ; set MeSsAgE="\!:2*" ; \\ # # $Z $xci/message$X \\ # # $Z A=$NOIR \\ # # $Z centrer=FAUX $XY_TrAnSlAtIoN \\ # # $Z message="$MeSsAgE" \\ # # $Z taille=12 anti_aliasing=VRAI \\ # # $Z bibliotheque=03 \\ # # $Z R=$xiirv/IMPO.$ImAgE \\ # # $Z $formatI ; \\ # # $Z unset ImAgE MeSsAgE' # # # # $Z Std # # # # $Z set XY_TrAnSlAtIoN="X=0.005 Y=0.005" # # # # $Z set SPaRaDoXaLe="$K_VIDE" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""A1B1C1D33333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""1E1F1G3333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""H1I1J1K33333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""1L1M1N3333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""O1P1Q1R33333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""1S1T1U3333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""V1W1X1Y33333332" # # $Z genere 03.01 $SPaRaDoXaLe # # # # $Z set SPaRaDoXaLe="$K_VIDE" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""A1H1J1I33333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""1B1K1Y133333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""M1V1X1O33333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""1E1F1T133333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""G1W1D1N33333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""1C1L1Q133333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""P1U1S1R33333332" # # $Z genere 03.02 $SPaRaDoXaLe # # # # $Z set XY_TrAnSlAtIoN="X=0 Y=0" # # # # $Z set SPaRaDoXaLe="$K_VIDE" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""BKBKBKBK333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""KBKBKBKB333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""BKBKBKBK333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""KBKBKBKB333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""BKBKBKBK333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""KBKBKBKB333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""BKBKBKBK333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""KBKBKBKB333333332" # # $Z genere 03.11 $SPaRaDoXaLe # # # # $Z set SPaRaDoXaLe="$K_VIDE" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""AJAJAJAJ333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""IHIHIHIH333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""AJAJAJAJ333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""IHIHIHIH333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""AJAJAJAJ333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""IHIHIHIH333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""AJAJAJAJ333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""IHIHIHIH333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""AJAJAJAJ333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""IHIHIHIH333333332" # # $Z genere 03.12 $SPaRaDoXaLe # # # # $Z set SPaRaDoXaLe="$K_VIDE" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z genere 04.04 $SPaRaDoXaLe # # # # $Z set SPaRaDoXaLe="$K_VIDE" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""FSUTFSUT333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""UTFSUTFS333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""FSUTFSUT333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""UTFSUTFS333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""FSUTFSUT333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""UTFSUTFS333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""FSUTFSUT333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""UTFSUTFS333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""FSUTFSUT333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""UTFSUTFS333333332" # # $Z genere 04.15 $SPaRaDoXaLe # # # # $Z set SPaRaDoXaLe="$K_VIDE" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""OIRKOIKLECDA3333333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""ECDAOIRKOIBL3333333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""OIBLECDAOIRK3333333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""OIRKOIKLECDA3333333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""ECDAOIRKOIBL3333333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""OIBLECDAOIRK3333333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""OIRKOIKLECDA3333333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""ECDAOIRKOIBL3333333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""OIBLECDAOIRK3333333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""OIRKOIKLECDA3333333333332" # # $Z genere 04.16 $SPaRaDoXaLe # # # # :Fin_listG_IMPO_03: # # # # # # ou l'image '$xiirv/IMPO.03.01' donne un catalogue de 25 formes paradoxales, et les images # # '$xiirv/IMPO.03.11' et '$xiirv/IMPO.03.12' deux exemples de structures periodiques. # # # # Elles ont ete regenerees le 20110420141145 sur '$LACT18' afin de beneficier de # # ('v $xiii/vecteurs$FON 20110420120752'), puis ont subies un 'retouche (...) 19980512115500' # # afin de ne pas les rajeunir sur '$WWW'... # # # # Les images 'v $xiirv/IMPO.04.04', 'v $xiirv/IMPO.04.15' et 'v $xiirv/IMPO.04.16' sont # # respectivement les images de numero 04, 15 et 16 (en numerotant de gauche a droite et # # de haut en bas) de la "vieille" mage 'v $xiHi/OLDIES_BUT_GOLDIES_NB.12$JPEG' refaites # # pour Jean-Paul Delahaye... # v $xiirv/IMPO.03.02.sA p=$xiP/gris.01 v $xiirv/IMPO.03.02.sB p=$xiP/gris.01 v $xiirv/IMPO.03.02.sC p=$xiP/gris.01 v $xiirv/IMPO.03.02.sD p=$xiP/gris.01 v $xiirv/IMPO.03.02.sE p=$xiP/gris.01 v $xiirv/IMPO.03.02.sF p=$xiP/gris.01 v $xiirv/IMPO.03.02.sG p=$xiP/gris.01 v $xiirv/IMPO.03.02.sH p=$xiP/gris.01 v $xiirv/IMPO.03.02.sI p=$xiP/gris.01 v $xiirv/IMPO.03.02.sJ p=$xiP/gris.01 v $xiirv/IMPO.03.02.sK p=$xiP/gris.01 v $xiirv/IMPO.03.02.sL p=$xiP/gris.01 v $xiirv/IMPO.03.02.sM p=$xiP/gris.01 v $xiirv/IMPO.03.02.sN p=$xiP/gris.01 v $xiirv/IMPO.03.02.sO p=$xiP/gris.01 v $xiirv/IMPO.03.02.sP p=$xiP/gris.01 v $xiirv/IMPO.03.02.sQ p=$xiP/gris.01 v $xiirv/IMPO.03.02.sR p=$xiP/gris.01 v $xiirv/IMPO.03.02.sS p=$xiP/gris.01 v $xiirv/IMPO.03.02.sT p=$xiP/gris.01 v $xiirv/IMPO.03.02.sU p=$xiP/gris.01 v $xiirv/IMPO.03.02.sV p=$xiP/gris.01 v $xiirv/IMPO.03.02.sW p=$xiP/gris.01 v $xiirv/IMPO.03.02.sX p=$xiP/gris.01 v $xiirv/IMPO.03.02.sY p=$xiP/gris.01 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_IMPO_03_02_s: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/IMPO.03.02.s # # # # $Z source $xrd/graph.01$vv$Y # # # # $Z set BMoTiF=3 # # # # $Z alias genere 'set MoTiF=\!:1 ; \\ # # $Z $xci/message$X \\ # # $Z A=$NOIR \\ # # $Z message="=""$MoTiF""." \\ # # $Z niveau_fond=$NOIR \\ # # $Z niveau_message=$BLANC \\ # # $Z bibliotheque=$BMoTiF \\ # # $Z centrer=VRAI \\ # # $Z anti_aliasing=VRAI \\ # # $Z taille=86 \\ # # $Z $formatI | \\ # # $Z $xci/dilate.01$X \\ # # $Z dilater=VRAI \\ # # $Z R=$_____ImageR$MoTiF \\ # # $Z $formatI ; \\ # # $Z unset MoTiF' # # # # $Z genere A # # $Z genere B # # $Z genere C # # $Z genere D # # $Z genere E # # $Z genere F # # $Z genere G # # $Z genere H # # $Z genere I # # $Z genere J # # $Z genere K # # $Z genere L # # $Z genere M # # $Z genere N # # $Z genere O # # $Z genere P # # $Z genere Q # # $Z genere R # # $Z genere S # # $Z genere T # # $Z genere U # # $Z genere V # # $Z genere W # # $Z genere X # # $Z genere Y # # # # :Fin_listG_IMPO_03_02_s: # # # v $xiirv/IMPO.05.11 p=$xiP/gris.01 # Ces images ont ete generees par : # # # # # # :Debut_listG_IMPO_05: # # # # $Z alias genere 'set ImAgE=\!:1 ; set MeSsAgE="\!:2*" ; \\ # # $Z $xci/message$X \\ # # $Z A=$NOIR \\ # # $Z centrer=FAUX $XY_TrAnSlAtIoN \\ # # $Z message="$MeSsAgE" \\ # # $Z taille=12 anti_aliasing=VRAI \\ # # $Z bibliotheque=03 \\ # # $Z R=$xiirv/IMPO.$ImAgE \\ # # $Z $formatI ; \\ # # $Z unset ImAgE MeSsAgE' # # # # $Z Std # # # # $Z set XY_TrAnSlAtIoN="X=0 Y=0" # # # # $Z set SPaRaD="$K_VIDE" # # $Z set SPaRaD="$SPaRaD""KPJOBLRYHIGNUQVYOEDSC3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""OEDSCKPJOBLRYHIGNUQVY3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""NUQVYOEDSCKPJOBLRYHIG3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""RYHIGNUQVYOEDSCKPJOBL3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""PJOBLRYHIGNUQVYOEDSCK3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""EDSCKPJOBLRYHIGNUQVYO3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""UQVYOEDSCKPJOBLRYHIGN3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""YHIGNUQVYOEDSCKPJOBLR3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""JOBLRYHIGNUQVYOEDSCKP3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""DSCKPJOBLRYHIGNUQVYOE3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""QVYOEDSCKPJOBLRYHIGNU3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""HIGNUQVYOEDSCKPJOBLRY3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""OBLRYHIGNUQVYOEDSCKPJ3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""SCKPJOBLRYHIGNUQVYOED3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""VYOEDSCKPJOBLRYHIGNUQ3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""IGNUQVYOEDSCKPJOBLRYH3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""BLRYHIGNUQVYOEDSCKPJO3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""CKPJOBLRYHIGNUQVYOEDS3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""YOEDSCKPJOBLRYHIGNUQV3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""GNUQVYOEDSCKPJOBLRYHI3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""LRYHIGNUQVYOEDSCKPJOB3333333333333333333332" # # $Z genere 05.11 $SPaRaD # # # # :Fin_listG_IMPO_05: # # # v $xiirv/IMPO.21 p=$xiP/gris.01 v $xiirv/IMPO.21.$CHAMP p=$xiP/gris.01 v $xiirv/IMPO.21$m p=$xiP/montagnes.91 # Ces images ont ete generees par : # # # # # # :Debut_listG_IMPO_21: # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z alias genere 'set ImAgE=\!:1 ; set MeSsAgE="\!:2*" ; \\ # # $Z $xci/message$X \\ # # $Z A=$NOIR \\ # # $Z centrer=FAUX $XY_TrAnSlAtIoN \\ # # $Z message="$MeSsAgE" \\ # # $Z taille=$TailLe \\ # # $Z anti_aliasing=VRAI \\ # # $Z bibliotheque=03 \\ # # $Z homothetique=FAUX \\ # # $Z R=$xTV/RESEAU.$ImAgE \\ # # $Z $formatI ; \\ # # $Z unset ImAgE MeSsAgE' # # # # $Z set FaCtEuR=4 # # $Z set NBaNdEs=8 # # $Z set TailLe=`calcul $FaCtEuR*12` # # $Z set DiMXY=`calculINS $FaCtEuR*($NBaNdEs*6*12)` # # # # $Z gFITn FIT1 $DiMXY $DiMXY # # $Z FIT1 # # # # $Z set XY_TrAnSlAtIoN="X=0 Y=0" # # # # $Z set SPaRaDoXaLe="$K_VIDE" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaaaa33333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaaaa33333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaaaa33333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaaaa33333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaaaa33333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaaaa33333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaaaa33333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaaaa33333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaaaa33333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaaaa33333333332" # # # # $Z genere 1 $SPaRaDoXaLe # # # # $Z $xci/gauss$X \ # # $Z c=32 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/dilate.01$X \ # # $Z A=$xTV/RESEAU.1 \ # # $Z points=81 \ # # $Z R=$xTV/RESEAU.2 \ # # $Z $formatI # # # # $Z $xci/convol.01$X \ # # $Z A=$xTV/RESEAU.2 \ # # $Z points=25 \ # # $Z R=$xTV/RESEAU.3 \ # # $Z $formatI # # # # $Z $xci/stereogra.01$X \ # # $Z A=$xTV/RESEAU.3 \ # # $Z facteur=0.02 \ # # $Z C=$xTV/GAUSS \ # # $Z pf=`calcul (1/$NBaNdEs)-0.0001` \ # # $Z EpsilonAxes=0.5 \ # # $Z R=$xTV/STEREOGRAMME \ # # $Z $formatI # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/RESEAU.3 \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xiirv/IMPO.21.$CHAMP \ # # $Z $formatR_Std # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/STEREOGRAMME \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xiirv/IMPO.21 \ # # $Z $formatR_Std # # # # $Z Std # # # # $Z $xci/gauss$X \ # # $Z c=32 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/montagne.01$X \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$BLANC \ # # $Z avion=VRAI \ # # $Z R=$xiirv/IMPO.21$m \ # # $Z $formatI # # # # :Fin_listG_IMPO_21: # # # # # # Cette image est un autostereogramme utilisant comme trame un reseau impossible et comme # # champ de cote une "bosse gaussienne"... # v $xiirv/IMPO.21.1 p=$xiP/nuages.02 v $xiirv/IMPO.21.1.$CHAMP p=$xiP/nuages.02 v $xiirv/IMPO.21.1$m p=$xiP/montagnes.91 v $xiirv/IMPO.21.2 # Cette image a ete generee par : # # # # # # :Debut_listG_IMPO_21_12: # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set NBaNdEs=8 # # $Z set DiMX=`calculINS $dimXStd/$NBaNdEs` # # $Z set MaIlLeX=`calcul 1/$NBaNdEs` # # $Z set MaIlLeY=`calcul $MaIlLeX/5` # # # # $Z gFITn FIT1 $DiMX $dimYStd # # $Z FIT1 # # # # $Z $xci/fract_2D.01$X \ # # $Z mX=$MaIlLeX mY=$MaIlLeY \ # # $Z OX=0 EX=1 \ # # $Z valider=FAUX \ # # $Z R=$xT/NUAGES.1 \ # # $Z $formatI # # # # $Z $xci/regroupe.02$Z \ # # $Z $xT/NUAGES.1 \ # # $Z $xiirv/IMPO.21.1.$CHAMP \ # # $Z 0 1 \ # # $Z $NBaNdEs 1 \ # # $Z "$K_VIDE" \ # # $Z "$formatR_Std" \ # # $Z 0 \ # # $Z FAUX # # # # $Z Std # # # # $Z $xci/gauss$X \ # # $Z c=32 \ # # $Z standard=FAUX \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/stereogra.01$X \ # # $Z A=$xiirv/IMPO.21.1.$CHAMP \ # # $Z facteur=0.04 \ # # $Z C=$xTV/GAUSS \ # # $Z standard=FAUX \ # # $Z pf=`calcul (1/$NBaNdEs)-0.0001` \ # # $Z EpsilonAxes=0.5 \ # # $Z R=$xiirv/IMPO.21.1 \ # # $Z $formatI # # $Z $xci/vraies_C$X \ # # $Z A=$xiirv/IMPO.21.1 \ # # $Z p=$xiP/nuages.02 \ # # $Z R=$xTV/NUAGES \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiirv/IMPO.21 \ # # $Z p=$xiP/gris.01 \ # # $Z R=$xTV/RESEAU \ # # $Z $formatI # # # # $Z execRVB $xci/scale$X \ # # $Z A=$xTV/RESEAU%s \ # # $Z a=0.75 \ # # $Z R=$xTV/RESEAU%s \ # # $Z $formatI # # # # $Z execRVB $xci/maximum$X \ # # $Z A1=$xTV/NUAGES%s \ # # $Z A2=$xTV/RESEAU%s \ # # $Z R=$xiirv/IMPO.21.2%s \ # # $Z $formatI # # # # $Z $xci/montagne.01$X \ # # $Z A=$xTV/GAUSS \ # # $Z standard=FAUX zero=FAUX \ # # $Z echelle=2 \ # # $Z T=$BLANC \ # # $Z avion=VRAI \ # # $Z R=$xiirv/IMPO.21.1$m \ # # $Z $formatI # # # # :Fin_listG_IMPO_21_12: # # # # # # Cette image est un double autostereogramme utilisant comme trame d'une part un reseau # # impossible periodique et d'autre part un champ de nuages peridiodiques. Dans les deux # # cas le champ de cote est une "bosse gaussienne" mais de deux amplitudes differentes # # (0.02 et 0.04 respectivement). # v $xiirv/IMPO.21.3 v $xiirv/IMPO.21.3.$CHAMP v $xiirv/IMPO.21.3$m p=$xiP/montagnes.91 v $xiirv/IMPO.21.4 # Cette image a ete generee par : # # # # # # :Debut_listG_IMPO_21_34: # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set NBaNdEs=8 # # $Z set DiMX=`calculINS $dimXStd/$NBaNdEs` # # $Z set MaIlLeX=`calcul 1/$NBaNdEs` # # $Z set MaIlLeY=`calcul $MaIlLeX/5` # # # # $Z gFITn FIT1 $DiMX $dimYStd # # $Z FIT1 # # # # $Z $xci/fract_2D.01$X \ # # $Z graine=1789 \ # # $Z mX=$MaIlLeX mY=$MaIlLeY \ # # $Z OX=0 EX=1 \ # # $Z valider=FAUX \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/enfer.04 \ # # $Z R=$xT/NUAGES.11 \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z graine=1947 \ # # $Z mX=$MaIlLeX mY=$MaIlLeY \ # # $Z OX=0 EX=1 \ # # $Z valider=FAUX \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/nuages.02 \ # # $Z R=$xT/NUAGES.12 \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z graine=1515 \ # # $Z mX=$MaIlLeX mY=$MaIlLeY \ # # $Z OX=0 EX=1 \ # # $Z valider=FAUX \ # # $Z R=$xT/NUAGES.13 \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xT/NUAGES.11%s \ # # $Z A2=$xT/NUAGES.12%s \ # # $Z P=$xT/NUAGES.13 \ # # $Z R=$xT/NUAGES.1%s \ # # $Z $formatI # # # # $Z execRVB $xci/regroupe.02$Z \ # # $Z $xT/NUAGES.1%s \ # # $Z $xiirv/IMPO.21.3.$CHAMP%s \ # # $Z 0 1 \ # # $Z $NBaNdEs 1 \ # # $Z '"$K_QD$K_VIDE$K_QD"' \ # # $Z '$K_QD$formatR_Std$K_QD' \ # # $Z 0 \ # # $Z FAUX # # # # $Z Std # # # # $Z $xci/gauss$X \ # # $Z c=32 \ # # $Z standard=FAUX \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z execRVB $xci/stereogra.01$X \ # # $Z A=$xiirv/IMPO.21.3.$CHAMP%s \ # # $Z facteur=0.04 \ # # $Z C=$xTV/GAUSS \ # # $Z standard=FAUX \ # # $Z pf=`calcul (1/$NBaNdEs)-0.0001` \ # # $Z EpsilonAxes=0.5 \ # # $Z R=$xiirv/IMPO.21.3%s \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiirv/IMPO.21 \ # # $Z p=$xiP/gris.01 \ # # $Z R=$xTV/RESEAU \ # # $Z $formatI # # # # $Z execRVB $xci/scale$X \ # # $Z A=$xTV/RESEAU%s \ # # $Z a=0.75 \ # # $Z R=$xTV/RESEAU%s \ # # $Z $formatI # # # # $Z execRVB $xci/maximum$X \ # # $Z A1=$xiirv/IMPO.21.3%s \ # # $Z A2=$xTV/RESEAU%s \ # # $Z R=$xiirv/IMPO.21.4%s \ # # $Z $formatI # # # # $Z $xci/montagne.01$X \ # # $Z A=$xTV/GAUSS \ # # $Z standard=FAUX zero=FAUX \ # # $Z echelle=2 \ # # $Z T=$BLANC \ # # $Z avion=VRAI \ # # $Z R=$xiirv/IMPO.21.3$m \ # # $Z $formatI # # # # :Fin_listG_IMPO_21_34: # # # # # # Cette image est un double autostereogramme utilisant comme trame d'une part un reseau # # impossible periodique et d'autre part un champ de nuages peridiodiques. Dans les deux # # cas le champ de cote est une "bosse gaussienne" mais de deux amplitudes differentes # # (0.02 et 0.04 respectivement). # v $xiirv/IMPO.31 p=$xiP/anaglyphe.11 v $xiirv/IMPO.31 p=$xiP/dentscie.01 v $xiirv/IMPO.31 p=$xiP/dentscie.02 v $xiirv/IMPO.31 p=$xiP/dentscie.04 v $xiirv/IMPO.31 p=$xiP/dentscie.08 # Cette image a ete generee (sur '$LACT19') par : # # # # # # :Debut_listG_IMPO_31: # # # # $Z setenv xTV $xTG # # # # $Z Std # # # # $Z set MoItIe=0.5 # # $Z set QuArT=0.25 # # # # $Z $xci/module$X \ # # $Z ariec=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z TRANSLATION_OX=-$MoItIe TRANSLATION_OY=-$MoItIe \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z standard=FAUX \ # # $Z R=$xTV/IMPOSSIBLE.21 \ # # $Z $formatI # # # # $Z set DiViSeUr=8 # # $Z set LaRgEuR=`calcul 1.7*(1/(2*$DiViSeUr))` # # $Z set NiVeAu_1=`calcul 1/$DiViSeUr` # # $Z set NiVeAu_2=`calcul 5/$DiViSeUr` # # $Z set NiVeAu_11=`calcul $NiVeAu_1-$LaRgEuR` # # $Z set NiVeAu_12=`calcul $NiVeAu_1+$LaRgEuR` # # $Z set NiVeAu_21=`calcul $NiVeAu_2-$LaRgEuR` # # $Z set NiVeAu_22=`calcul $NiVeAu_2+$LaRgEuR` # # # # $Z $xci/passe_bande$X \ # # $Z A=$xTV/IMPOSSIBLE.21 \ # # $Z standard=FAUX \ # # $Z Fsinf=$NiVeAu_11 Fninf=$NiVeAu_11 \ # # $Z Fssup=$NiVeAu_12 Fnsup=$NiVeAu_11 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/IMPOSSIBLE.21.1 \ # # $Z $formatI # # $Z $xci/passe_bande$X \ # # $Z A=$xTV/IMPOSSIBLE.21 \ # # $Z standard=FAUX \ # # $Z Fsinf=$NiVeAu_21 Fninf=$NiVeAu_21 \ # # $Z Fssup=$NiVeAu_22 Fnsup=$NiVeAu_21 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/IMPOSSIBLE.21.2 \ # # $Z $formatI # # # # $Z $xci/maximum$X \ # # $Z A1=$xTV/IMPOSSIBLE.21.1 \ # # $Z A2=$xTV/IMPOSSIBLE.21.2 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=FAUX \ # # $Z R=$xTV/IMPOSSIBLE.23 \ # # $Z $formatI # # # # $Z $xci/scroll$X \ # # $Z A=$xTV/IMPOSSIBLE.23 \ # # $Z trX=+$QuArT toreX=FAUX \ # # $Z trY=+$QuArT toreY=FAUX \ # # $Z R=$xTV/IMPOSSIBLE.24.1 \ # # $Z $formatI # # $Z $xci/Sx$X \ # # $Z A=$xTV/IMPOSSIBLE.23 \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z A=$xTV/IMPOSSIBLE.23 \ # # $Z R=$xTV/IMPOSSIBLE.24.3 \ # # $Z $formatI # # # # $Z $xci/Sx$X \ # # $Z A=$xTV/IMPOSSIBLE.24.1 \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xTV/IMPOSSIBLE.24.3 \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z A=$xTV/IMPOSSIBLE.24.1 \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z moyenne=FAUX \ # # $Z $formatI | \ # # $Z $xci/scroll$X \ # # $Z trX=0 toreX=VRAI \ # # $Z trY=+$MoItIe toreY=VRAI \ # # $Z R=$xTV/IMPOSSIBLE.24.8 \ # # $Z $formatI # # # # $Z $xci/Sy$X \ # # $Z A=$xTV/IMPOSSIBLE.24.1 \ # # $Z R=$xTV/IMPOSSIBLE.34.2 \ # # $Z $formatI # # # # $Z $xci/Sx$X \ # # $Z A=$xTV/IMPOSSIBLE.23 \ # # $Z R=$xTV/IMPOSSIBLE.34.4 \ # # $Z $formatI # # # # $Z $xci/Sx$X \ # # $Z A=$xTV/IMPOSSIBLE.23 \ # # $Z $formatI | \ # # $Z $xci/scroll$X \ # # $Z trX=+$QuArT toreX=FAUX \ # # $Z trY=-$QuArT toreY=FAUX \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z A=$xTV/IMPOSSIBLE.34.2 \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z A=$xTV/IMPOSSIBLE.34.4 \ # # $Z R=$xTV/IMPOSSIBLE.34.5 \ # # $Z $formatI # # # # $Z $xci/Sy$X \ # # $Z A=$xTV/IMPOSSIBLE.23 \ # # $Z R=$xTV/IMPOSSIBLE.34.6 \ # # $Z $formatI # # # # $Z $xci/cache$X \ # # $Z M=$xTV/IMPOSSIBLE.34.5 \ # # $Z A=$xTV/IMPOSSIBLE.34.6 \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z moyenne=FAUX \ # # $Z R=$xTV/IMPOSSIBLE.34.8 \ # # $Z $formatI # # # # $Z $xci/neutre$X \ # # $Z A=$xTV/IMPOSSIBLE.24.8 \ # # $Z R=$xTV/IMPOSSIBLE.41.0001 \ # # $Z $formatI # # $Z $xci/neutre$X \ # # $Z A=$xTV/IMPOSSIBLE.34.8 \ # # $Z R=$xTV/IMPOSSIBLE.41.0002 \ # # $Z $formatI # # $Z $xci/neutre$X \ # # $Z A=$xTV/IMPOSSIBLE.34.8 \ # # $Z R=$xTV/IMPOSSIBLE.41.0003 \ # # $Z $formatI # # $Z $xci/neutre$X \ # # $Z A=$xTV/IMPOSSIBLE.24.8 \ # # $Z R=$xTV/IMPOSSIBLE.41.0004 \ # # $Z $formatI # # # # $Z $xci/reduction_04$X \ # # $Z A=$xTV/IMPOSSIBLE.41. \ # # $Z premiere=1 derniere=4 pas=1 \ # # $Z moyenne=FAUX \ # # $Z R=$xiirv/IMPO.31 \ # # $Z $formatI # # # # :Fin_listG_IMPO_31: # # # # # # Cette image est inspiree de 'v $xiiS/ABSTRAIT.71 p=$xiP/gris.01'. Cela a repose sur # # son etude. Cette derniere repose principalement sur le motif '$xTV/IMPOSSIBLE.23' # # qui est ensuite translate, symetrise, superpose a lui-meme et a ses differentes # # transformations. A ce propos, l'etude des sous-images '$xTV/IMPOSSIBLE.11.00.00' et # # '$xTV/IMPOSSIBLE.11.01.00' a ete fondamentale : # # # # # # :Debut_listG_ABSTRAIT_71_Reconstruction: # # # # $Z setenv xTV $xTG # # # # $Z Std # # # # $Z $xci/format.01$X \ # # $Z A=$xiiS/ABSTRAIT.71 \ # # $Z $format_Std \ # # $Z mode=3 \ # # $Z R=$xTV/IMPOSSIBLE.11.00 \ # # $Z $formatR_Sud # # # # $Z $xci/format.01$X \ # # $Z A=$xiiS/ABSTRAIT.71 \ # # $Z $format_Std \ # # $Z mode=6 \ # # $Z R=$xTV/IMPOSSIBLE.11.01 \ # # $Z $formatR_Sud # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/IMPOSSIBLE.11.00 \ # # $Z $format_Sud \ # # $Z mode=3 \ # # $Z R=$xTV/IMPOSSIBLE.11.00.00 \ # # $Z $formatR_Suq # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/IMPOSSIBLE.11.01 \ # # $Z $format_Sud \ # # $Z mode=4 \ # # $Z R=$xTV/IMPOSSIBLE.11.01.00 \ # # $Z $formatR_Suq # # # # :Fin_listG_ABSTRAIT_71_Reconstruction: # # # v $xiirv/IMPO.41 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_IMPO_41: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/IMPO.41 # # # # $Z set SPaRaDoXaLe="$K_VIDE" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # # # $Z set APaRaDoXaLe="$K_VIDE" # # $Z set APaRaDoXaLe="$APaRaDoXaLe"" LISTE_RAYON=0.002" # # $Z set APaRaDoXaLe="$APaRaDoXaLe"" ZOOM=1.2" # # $Z set APaRaDoXaLe="$APaRaDoXaLe"" equidistance=VRAI" # # $Z set APaRaDoXaLe="$APaRaDoXaLe"" distance_minimale=0.009" # # $Z set APaRaDoXaLe="$APaRaDoXaLe"" Rpoints=1" # # # # $Z source $xrd/graph.01$vv$Y # # # # $Z set BPaRaDoXaLe=3 # # # # $Z G_Dessin $SPaRaDoXaLe $BPaRaDoXaLe $_____ImageR $APaRaDoXaLe # # # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____AttenuationA=1.00 # # $Z set _____PaletteC=$xiP/Mondrian.02 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$xTV/CARREAUX%s \ # # $Z points=9 \ # # $Z R=$xTV/CARREAUX%s \ # # $Z $formatI # # # # $Z set APaRaDoXaLe="$APaRaDoXaLe"" $_____ParticulePara1" # # $Z set APaRaDoXaLe="$APaRaDoXaLe"" LISTE_RAYON=0.003" # # $Z set APaRaDoXaLe="$APaRaDoXaLe"" LISTE_ROUGE=$NOIR_PLANCHER" # # $Z set APaRaDoXaLe="$APaRaDoXaLe"" LISTE_VERTE=$NOIR_PLANCHER" # # $Z set APaRaDoXaLe="$APaRaDoXaLe"" LISTE_BLEUE=$NOIR_PLANCHER" # # # # $Z G_Dessin $SPaRaDoXaLe $BPaRaDoXaLe $_____ImageR $APaRaDoXaLe # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$_____ImageR%s \ # # $Z points=9 \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImageR%s \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$_____ImageR%s \ # # $Z $formatR_Sdu # # # # :Fin_listG_IMPO_41: # # # # # # qui montre l'image 'v $xiirv/IMPO.04$R04' a "la Mondrian"... # v $xiirv/IMPO.51 p=$xiP/random.91$Fi v $xiirv/IMPO.51 p=$xiP/random.96 v $xiirv/IMPO.51 p=$xiP/bleu_roug.11 v $xiirv/IMPO.51 p=$xiP/trou_noir.94 v $xiirv/IMPO.51 p=$xiP/rouge_orang.01 v $xiirv/IMPO.51.1 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_IMPO_51: # # # # $Z setenv xTV $xTG # # # # $Z Sdu # # # # $Z alias genere 'set ImAgE=\!:1 ; set MeSsAgE="\!:2*" ; \\ # # $Z $xci/message$X \\ # # $Z A=$NOIR \\ # # $Z centrer=FAUX $XY_TrAnSlAtIoN \\ # # $Z message="$MeSsAgE" \\ # # $Z taille=12 anti_aliasing=VRAI \\ # # $Z bibliotheque=03 \\ # # $Z R=$_____ImageR$ImAgE \\ # # $Z $formatI ; \\ # # $Z unset ImAgE MeSsAgE' # # # # $Z set _____Palette=$xiP/rouge_orang.01 # # $Z set _____ImageR=$xiirv/IMPO.51 # # # # $Z set XY_TrAnSlAtIoN="X=0 Y=0" # # # # $Z set MoTiF1="AJAJAJAJ" # # $Z set MoTiF2="IHIHIHIH" # # $Z set MoTiF0="333333332" # # # # $Z set LMoTiF1=`echo "$MoTiF1" | $WCc` # # $Z set LMoTiF1=`calculINS $LMoTiF1-2` # # # # $Z set LMoTiF2=`echo "$MoTiF2" | $WCc` # # $Z set LMoTiF2=`calculINS $LMoTiF2-2` # # # # La soustraction de 2=1+1 inclue 1 pour le '$K_NL' de "echo" et 1 pour le probleme des # # piquets et des intervalles (il y a 8 motifs et donc 7 intervalles...). # # # # $Z set LMoTiF=`$xcg/MIN2.01$X x=$LMoTiF1 y=$LMoTiF2 signe="$K_VIDE"` # # # # $Z set SPaRaDoXaLe="$K_VIDE" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF1$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF2$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF1$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF2$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF1$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF2$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF1$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF2$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF1$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF2$MoTiF0" # # $Z genere "$K_VIDE" $SPaRaDoXaLe # # # # $Z set NGrIlLe=$GRIS_3 # # $Z set TXGrIlLe=`calculINS $dimX/$LMoTiF` # # $Z set TYGrIlLe=`calculINS $dimY/$LMoTiF` # # $Z set DGrIlLe="ox=0 oy=0 mx=$TXGrIlLe my=$TYGrIlLe" # # # # Le nombre de carres sur l'horizontale et sur la verticale est egal a 7. Les grilles que # # l'on va ainsi generer vont donc permettre de reperer (un peu artisanalement...) les grands # # carres. # # # # $Z $xci/grille.01$X \ # # $Z A=$NGrIlLe \ # # $Z $DGrIlLe \ # # $Z barres_verticales=VRAI barres_horizontales=FAUX \ # # $Z R=$xTV/GRILLE_V \ # # $Z $formatI # # # # $Z $xci/grille.01$X \ # # $Z A=$NGrIlLe \ # # $Z $DGrIlLe \ # # $Z barres_verticales=FAUX barres_horizontales=VRAI \ # # $Z R=$xTV/GRILLE_H \ # # $Z $formatI # # # # $Z $xci/somme_02$X \ # # $Z A1=$xTV/GRILLE_V \ # # $Z A2=$xTV/GRILLE_H \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z seuil=`calculINS $NGrIlLe+$NGrIlLe` \ # # $Z R=$xTV/MARQUEURS \ # # $Z $formatI # # # # $Z $xci/contours.22$X \ # # $Z A=$_____ImageR \ # # $Z M=$xTV/MARQUEURS \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/CARRES \ # # $Z $formatI # # # # $Z $xci/contours.22$X \ # # $Z A=$_____ImageR \ # # $Z optimiser_increment=VRAI \ # # $Z R=$xTV/REMPLISSAGE \ # # $Z $formatI # # # # $Z $xci/and$X \ # # $Z A1=$xTV/REMPLISSAGE \ # # $Z A2=$xTV/CARRES \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # $Z $xci/seuil$X \ # # $Z A=$xTV/REMPLISSAGE \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/BORDURES \ # # $Z $formatI # # # # $Z $xci/dilate.01$X \ # # $Z A=$xTV/BORDURES \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/ANTI_BORDURES \ # # $Z $formatI # # # # $Z $xci/dilate.01$X \ # # $Z A=$_____ImageR \ # # $Z eroder=VRAI \ # # $Z $formatI | \ # # $Z $xci/and$X \ # # $Z A2=$xTV/ANTI_BORDURES \ # # $Z R=$xTV/FACETTES \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/FACETTES \ # # $Z p=$_____Palette \ # # $Z R=$xTV/FACETTES \ # # $Z $formatI # # # # $Z $xci/scale$X \ # # $Z A=$xTV/BORDURES \ # # $Z a=0.5 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z R=$xTV/BORDURES \ # # $Z $formatI # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$xTV/FACETTES%s \ # # $Z R=$xTV/FACETTES%s \ # # $Z $formatI # # # # $Z execRVB $xci/cache$X \ # # $Z A=$xTV/FACETTES%s \ # # $Z M=$xTV/BORDURES \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI # # # # :Fin_listG_IMPO_51: # # # v $xiirv/IMPO.52 p=$xiP/random.91$Fi v $xiirv/IMPO.52 p=$xiP/random.96 v $xiirv/IMPO.52 p=$xiP/bleu_roug.11 v $xiirv/IMPO.52 p=$xiP/trou_noir.94 v $xiirv/IMPO.52 p=$xiP/rouge_orang.01 v $xiirv/IMPO.52.1 v $xiirv/IMPO.52.1.1 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_IMPO_52: # # # # $Z setenv xTV $xTG # # # # $Z Sdu # # # # $Z alias genere 'set ImAgE=\!:1 ; set MeSsAgE="\!:2*" ; \\ # # $Z $xci/message$X \\ # # $Z A=$NOIR \\ # # $Z centrer=FAUX $XY_TrAnSlAtIoN \\ # # $Z message="$MeSsAgE" \\ # # $Z taille=12 anti_aliasing=VRAI \\ # # $Z bibliotheque=03 \\ # # $Z R=$_____ImageR$ImAgE \\ # # $Z $formatI ; \\ # # $Z unset ImAgE MeSsAgE' # # # # $Z set _____Palette=$xiP/random.96 # # $Z set _____ImageR=$xiirv/IMPO.52 # # # # $Z set XY_TrAnSlAtIoN="X=0 Y=0" # # # # $Z set MoTiF1="SUPRSUPR" # # $Z set MoTiF2="QTFEQTFE" # # $Z set MoTiF0="333333332" # # # # $Z set LMoTiF1=`echo "$MoTiF1" | $WCc` # # $Z set LMoTiF1=`calculINS $LMoTiF1-2` # # # # $Z set LMoTiF2=`echo "$MoTiF2" | $WCc` # # $Z set LMoTiF2=`calculINS $LMoTiF2-2` # # # # La soustraction de 2=1+1 inclue 1 pour le '$K_NL' de "echo" et 1 pour le probleme des # # piquets et des intervalles (il y a 8 motifs et donc 7 intervalles...). # # # # $Z set LMoTiF=`$xcg/MIN2.01$X x=$LMoTiF1 y=$LMoTiF2 signe="$K_VIDE"` # # # # $Z set SPaRaDoXaLe="$K_VIDE" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF1$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF2$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF1$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF2$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF1$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF2$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF1$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF2$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF1$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF2$MoTiF0" # # $Z genere "$K_VIDE" $SPaRaDoXaLe # # # # $Z set NGrIlLe=$GRIS_3 # # $Z set TXGrIlLe=`calculINS $dimX/$LMoTiF` # # $Z set TYGrIlLe=`calculINS $dimY/$LMoTiF` # # $Z set DGrIlLe="ox=0 oy=0 mx=$TXGrIlLe my=$TYGrIlLe" # # # # Le nombre de carres sur l'horizontale et sur la verticale est egal a 7. Les grilles que # # l'on va ainsi generer vont donc permettre de reperer (un peu artisanalement...) les grands # # carres. # # # # $Z $xci/grille.01$X \ # # $Z A=$NGrIlLe \ # # $Z $DGrIlLe \ # # $Z barres_verticales=VRAI barres_horizontales=FAUX \ # # $Z R=$xTV/GRILLE_V \ # # $Z $formatI # # # # $Z $xci/grille.01$X \ # # $Z A=$NGrIlLe \ # # $Z $DGrIlLe \ # # $Z barres_verticales=FAUX barres_horizontales=VRAI \ # # $Z R=$xTV/GRILLE_H \ # # $Z $formatI # # # # $Z $xci/somme_02$X \ # # $Z A1=$xTV/GRILLE_V \ # # $Z A2=$xTV/GRILLE_H \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z seuil=`calculINS $NGrIlLe+$NGrIlLe` \ # # $Z R=$xTV/MARQUEURS \ # # $Z $formatI # # # # $Z $xci/contours.22$X \ # # $Z A=$_____ImageR \ # # $Z M=$xTV/MARQUEURS \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/CARRES \ # # $Z $formatI # # # # $Z $xci/contours.22$X \ # # $Z A=$_____ImageR \ # # $Z optimiser_increment=VRAI \ # # $Z R=$xTV/REMPLISSAGE \ # # $Z $formatI # # # # $Z $xci/and$X \ # # $Z A1=$xTV/REMPLISSAGE \ # # $Z A2=$xTV/CARRES \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # $Z $xci/seuil$X \ # # $Z A=$xTV/REMPLISSAGE \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/BORDURES \ # # $Z $formatI # # # # $Z $xci/dilate.01$X \ # # $Z A=$xTV/BORDURES \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/ANTI_BORDURES \ # # $Z $formatI # # # # $Z $xci/dilate.01$X \ # # $Z A=$_____ImageR \ # # $Z eroder=VRAI \ # # $Z $formatI | \ # # $Z $xci/and$X \ # # $Z A2=$xTV/ANTI_BORDURES \ # # $Z R=$xTV/FACETTES \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/FACETTES \ # # $Z p=$_____Palette \ # # $Z R=$xTV/FACETTES \ # # $Z $formatI # # # # $Z $xci/scale$X \ # # $Z A=$xTV/BORDURES \ # # $Z a=0.3 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z R=$xTV/BORDURES \ # # $Z $formatI # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$xTV/FACETTES%s \ # # $Z R=$xTV/FACETTES%s \ # # $Z $formatI # # # # $Z execRVB $xci/cache$X \ # # $Z A=$xTV/FACETTES%s \ # # $Z M=$xTV/BORDURES \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$_____ImageR.1%s \ # # $Z cache=VRAI \ # # $Z iterations=3 \ # # $Z echelle=VRAI a=0.5 \ # # $Z anti_aliaser=FAUX \ # # $Z R=$_____ImageR.1.1%s \ # # $Z $formatI" # # # # :Fin_listG_IMPO_52: # # # v $xiirv/IMPO.52.1.1$m # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_IMPO_52_1_1_m: # # # # $Z setenv xTV $xTG # # # # $Z Sdu # # # # $Z set _____ImageA=$xiirv/IMPO.52.1.1 # # $Z set _____ImageR=$_____ImageA$m # # # # $Z $xci/gauss$X \ # # $Z cx2=0.04 cy2=100 \ # # $Z ROTATION_OZ=0.1 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # Ces parametres viennent de 'v $xiirv/SOUL.11$m'... # # # # $Z execRVB $xci/filtre.01$X \ # # $Z A=$_____ImageA%s \ # # $Z N=$xTV/GAUSS \ # # $Z R=$xTV/IMPO.52%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/IMPO.52 \ # # $Z R=$xTV/IMPO.52.1 \ # # $Z $formatI # # # # $Z $xci/transpose$X \ # # $Z A=$xTV/IMPO.52.1 \ # # $Z R=$xTV/IMPO.52.2 \ # # $Z $formatI # # # # $Z $xci/minmax$X \ # # $Z A1=$xTV/IMPO.52.1 \ # # $Z A2=$xTV/IMPO.52.2 \ # # $Z R=$xTV/IMPO.52.3 \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/IMPO.52.3 \ # # $Z T=$xTV/IMPO.52%s \ # # $Z avion=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_IMPO_52_1_1_m: # # # v $xiirv/IMPO.61 p=$xiP/gris.11 v $xiirv/IMPO.61 p=$xiP/gris.M1 v $xiirv/IMPO.61 p=$xiP/gris.64 v $xiirv/IMPO.61 p=$xiP/random.91$Fi v $xiirv/IMPO.61 p=$xiP/random.96 v $xiirv/IMPO.61 p=$xiP/bleu_roug.11 v $xiirv/IMPO.61 p=$xiP/trou_noir.94 v $xiirv/IMPO.61 p=$xiP/rouge_orang.01 v $xiirv/IMPO.61.1 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_IMPO_61: # # # # $Z setenv xTV $xTG # # # # $Z Sdu # # # # $Z alias genere 'set ImAgE=\!:1 ; set MeSsAgE="\!:2*" ; \\ # # $Z $xci/message$X \\ # # $Z A=$NOIR \\ # # $Z centrer=FAUX $XY_TrAnSlAtIoN \\ # # $Z message="$MeSsAgE" \\ # # $Z taille=6 anti_aliasing=VRAI \\ # # $Z bibliotheque=03 \\ # # $Z R=$_____ImageR$ImAgE \\ # # $Z $formatI ; \\ # # $Z unset ImAgE MeSsAgE' # # # # $Z set _____Palette=$xiP/gris.M1 # # $Z set _____ImageR=$xiirv/IMPO.61 # # # # $Z set XY_TrAnSlAtIoN="X=0 Y=0" # # # # $Z set MoTiF1="AJAJAJAJAJAJAJAJ" # # $Z set MoTiF2="IHIHIHIHIHIHIHIH" # # $Z set MoTiF0="33333333333333332" # # # # $Z set LMoTiF1=`echo "$MoTiF1" | $WCc` # # $Z set LMoTiF1=`calculINS $LMoTiF1-3` # # # # $Z set LMoTiF2=`echo "$MoTiF2" | $WCc` # # $Z set LMoTiF2=`calculINS $LMoTiF2-3` # # # # $Z set LMoTiF=`$xcg/MIN2.01$X x=$LMoTiF1 y=$LMoTiF2 signe="$K_VIDE"` # # # # $Z set SPaRaDoXaLe="$K_VIDE" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF1$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF2$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF1$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF2$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF1$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF2$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF1$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF2$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF1$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF2$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF1$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF2$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF1$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF2$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF1$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF2$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF1$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF2$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF1$MoTiF0" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""$MoTiF2$MoTiF0" # # $Z genere "$K_VIDE" $SPaRaDoXaLe # # # # $Z set NGrIlLe=$GRIS_3 # # $Z set TXGrIlLe=`calculINS $dimX/$LMoTiF` # # $Z set TYGrIlLe=`calculINS $dimY/$LMoTiF` # # $Z set DGrIlLe="ox=0 oy=0 mx=$TXGrIlLe my=$TYGrIlLe" # # # # Le nombre de carres sur l'horizontale et sur la verticale est egal a 7. Les grilles que # # l'on va ainsi generer vont donc permettre de reperer (un peu artisanalement...) les grands # # carres. # # # # $Z $xci/grille.01$X \ # # $Z A=$NGrIlLe \ # # $Z $DGrIlLe \ # # $Z barres_verticales=VRAI barres_horizontales=FAUX \ # # $Z R=$xTV/GRILLE_V \ # # $Z $formatI # # # # $Z $xci/grille.01$X \ # # $Z A=$NGrIlLe \ # # $Z $DGrIlLe \ # # $Z barres_verticales=FAUX barres_horizontales=VRAI \ # # $Z R=$xTV/GRILLE_H \ # # $Z $formatI # # # # $Z $xci/somme_02$X \ # # $Z A1=$xTV/GRILLE_V \ # # $Z A2=$xTV/GRILLE_H \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z seuil=`calculINS $NGrIlLe+$NGrIlLe` \ # # $Z R=$xTV/MARQUEURS \ # # $Z $formatI # # # # $Z $xci/contours.22$X \ # # $Z A=$_____ImageR \ # # $Z M=$xTV/MARQUEURS \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/CARRES \ # # $Z $formatI # # # # $Z $xci/contours.22$X \ # # $Z A=$_____ImageR \ # # $Z optimiser_increment=VRAI \ # # $Z R=$xTV/REMPLISSAGE \ # # $Z $formatI # # # # $Z $xci/and$X \ # # $Z A1=$xTV/REMPLISSAGE \ # # $Z A2=$xTV/CARRES \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # $Z $xci/seuil$X \ # # $Z A=$xTV/REMPLISSAGE \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/BORDURES \ # # $Z $formatI # # # # $Z $xci/dilate.01$X \ # # $Z A=$xTV/BORDURES \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/ANTI_BORDURES \ # # $Z $formatI # # # # $Z $xci/dilate.01$X \ # # $Z A=$_____ImageR \ # # $Z eroder=VRAI \ # # $Z $formatI | \ # # $Z $xci/and$X \ # # $Z A2=$xTV/ANTI_BORDURES \ # # $Z R=$xTV/FACETTES \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/FACETTES \ # # $Z p=$_____Palette \ # # $Z R=$xTV/FACETTES \ # # $Z $formatI # # # # $Z $xci/scale$X \ # # $Z A=$xTV/BORDURES \ # # $Z a=0.3 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z R=$xTV/BORDURES \ # # $Z $formatI # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$xTV/FACETTES%s \ # # $Z R=$xTV/FACETTES%s \ # # $Z $formatI # # # # $Z execRVB $xci/cache$X \ # # $Z A=$xTV/FACETTES%s \ # # $Z M=$xTV/BORDURES \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI # # # # :Fin_listG_IMPO_61: # # # v $xiirv/INFI.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_INFI_11: # # # # $Z Pal # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set XGaUcHe__R=+0.35 # # $Z set XDrOiTe__R=+0.65 # # $Z set Y________R=+0.50 # # $Z set ZAvAnT___R=+1.70 # # $Z set ZArRiErE_R=-50.0 # # $Z set R________R=0.02 # # $Z set RoUgE____R=$GRIS_8 # # $Z set VeRtE____R=$GRIS_8 # # $Z set BlEuE____R=$GRIS_8 # # # # $Z set NTrAvErSeS=100 # # $Z set R________T=0.03 # # $Z set XDeLtA___T=0.08 # # $Z set YDeLtA___T=0.05 # # $Z set ZDeLtA___T=0.30 # # $Z set XGaUcHe__T=`calcul $XGaUcHe__R-$XDeLtA___T` # # $Z set XDrOiTe__T=`calcul $XDrOiTe__R+$XDeLtA___T` # # $Z set Y________T=`calcul $Y________R-$YDeLtA___T` # # $Z set ZAvAnT___T=`calcul $ZAvAnT___R-$ZDeLtA___T` # # $Z set ZPaS_____T=0.5 # # $Z set RoUgE____T=$GRIS_4 # # $Z set VeRtE____T=$GRIS_2 # # $Z set BlEuE____T=$GRIS_1 # # # # $Z echo "$XGaUcHe__R\n$XGaUcHe__R\n$XDrOiTe__R\n$XDrOiTe__R" \ # # $Z >>! $LiStEPoInTs$COORD_X # # $Z echo "$Y________R\n$Y________R\n$Y________R\n$Y________R" \ # # $Z >>! $LiStEPoInTs$COORD_Y # # $Z echo "$ZArRiErE_R\n$ZAvAnT___R\n$ZArRiErE_R\n$ZAvAnT___R" \ # # $Z >>! $LiStEPoInTs$COORD_Z # # $Z echo "$R________R\n$R________R\n$R________R\n$R________R" \ # # $Z >>! $LiStEPoInTs$RAYON # # $Z echo "$RoUgE____R\n$RoUgE____R\n$RoUgE____R\n$RoUgE____R" \ # # $Z >>! $LiStEPoInTs$ROUGE # # $Z echo "$VeRtE____R\n$VeRtE____R\n$VeRtE____R\n$VeRtE____R" \ # # $Z >>! $LiStEPoInTs$VERTE # # $Z echo "$BlEuE____R\n$BlEuE____R\n$BlEuE____R\n$BlEuE____R" \ # # $Z >>! $LiStEPoInTs$BLEUE # # # # $Z set CoMptEuR=0 # # # # $Z while ($CoMptEuR < $NTrAvErSeS) # # $Z echo "$XGaUcHe__T\n$XDrOiTe__T" \ # # $Z >>! $LiStEPoInTs$COORD_X # # $Z echo "$Y________T\n$Y________T" \ # # $Z >>! $LiStEPoInTs$COORD_Y # # $Z echo "$ZAvAnT___T\n$ZAvAnT___T" \ # # $Z >>! $LiStEPoInTs$COORD_Z # # $Z echo "$R________T\n$R________T" \ # # $Z >>! $LiStEPoInTs$RAYON # # $Z echo "$RoUgE____T\n$RoUgE____T" \ # # $Z >>! $LiStEPoInTs$ROUGE # # $Z echo "$VeRtE____T\n$VeRtE____T" \ # # $Z >>! $LiStEPoInTs$VERTE # # $Z echo "$BlEuE____T\n$BlEuE____T" \ # # $Z >>! $LiStEPoInTs$BLEUE # # # # $Z set ZAvAnT___T=`calcul $ZAvAnT___T-$ZPaS_____T` # # $Z @ CoMptEuR = $CoMptEuR + 1 # # $Z end # # # # $Z set NPoInTsX=`$CA $LiStEPoInTs$COORD_X | $WCl` # # $Z set NPoInTsY=`$CA $LiStEPoInTs$COORD_Y | $WCl` # # $Z set NPoInTsZ=`$CA $LiStEPoInTs$COORD_Z | $WCl` # # $Z set NPoInTs_=`$xcg/MIN3.01$X x=$NPoInTsX y=$NPoInTsY z=$NPoInTsZ` # # # # $Z set _____ImageR=$xiirv/INFI.11 # # # # $Z $xrv/particule.10$X npoints=$NPoInTs_ \ # # $Z LISTE_X=$LiStEPoInTs$COORD_X \ # # $Z LISTE_Y=$LiStEPoInTs$COORD_Y \ # # $Z LISTE_Z=$LiStEPoInTs$COORD_Z \ # # $Z LISTE_RAYON=$LiStEPoInTs$RAYON \ # # $Z LISTE_ROUGE=$LiStEPoInTs$ROUGE \ # # $Z LISTE_VERTE=$LiStEPoInTs$VERTE \ # # $Z LISTE_BLEUE=$LiStEPoInTs$BLEUE \ # # $Z ZOOM=1.25 \ # # $Z chainer=FAUX isoles=FAUX \ # # $Z ajuster_points=VRAI \ # # $Z equidistance=VRAI distance_minimale=0.01 \ # # $Z editer_extrema_hors=FAUX \ # # $Z DepthCueingMinimal=0.40 \ # # $Z DepthCueingMaximal=1.00 \ # # $Z Lz=1000 \ # # $Z ROTATION_OX=0.1 \ # # $Z chiffres=0 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # $Z FilSTmpE LiStEPoInTs # # # # :Fin_listG_INFI_11: # # # v $xiirv/IXEO.71 # Generee (sur '$LACT29') par : # # # # $Z SET _____R_2000=255 # # $Z SET _____V_2000=110 # # $Z SET _____B_2000=000 # # $Z SET _____Rayon_2000=0.05 # # $Z SET _____R_Sphere_D=255 # # $Z SET _____V_Sphere_D=230 # # $Z SET _____B_Sphere_D=000 # # $Z SET _____R_Sphere_A=255 # # $Z SET _____V_Sphere_A=230 # # $Z SET _____B_Sphere_A=000 # # $Z SET _____RayonB_Sphere=0.035 # # $Z SET _____RayonS_Sphere=1.0 # # $Z SET _____TmoveY=0.17 # # $Z set _____images=$xiirv/IXEO.71 # # $m4 _____include(_____xiirv/.IXEO.7.11._____U) # # $m4 _____include(_____xiirv/.IXEO.7.21._____U) # # $m4 _____include(_____xiirv/.IXEO.7.22._____U) # # $m4 _____include(_____xiirv/.IXEO.7.23._____U) # # $m4 _____include(_____xiirv/.IXEO.7.24._____U) # # $m4 _____include(_____xiirv/.IXEO.7.25._____U) # # $m4 _____include(_____xiirv/.IXEO.7.12._____U) # # $m4 _____include(_____xiirv/.IXEO.71._____U) # # $m4 _____include(_____xiirv/.IXEO.7.13._____U) # # # v $xiirv/IXEO.72 # Generee (sur '$LACT29') par : # # # # $Z SET _____R_2000=255 # # $Z SET _____V_2000=255 # # $Z SET _____B_2000=255 # # $Z SET _____Rayon_2000=0.06 # # $Z SET _____R_Sphere_D=255 # # $Z SET _____V_Sphere_D=230 # # $Z SET _____B_Sphere_D=000 # # $Z SET _____R_Sphere_A=255 # # $Z SET _____V_Sphere_A=230 # # $Z SET _____B_Sphere_A=000 # # $Z SET _____RayonB_Sphere=0.032 # # $Z SET _____RayonS_Sphere=0.7 # # $Z SET _____TmoveY=0.40 # # $Z set _____images=$xiirv/IXEO.72 # # $m4 _____include(_____xiirv/.IXEO.7.11._____U) # # $m4 _____include(_____xiirv/.IXEO.7.21._____U) # # $m4 _____include(_____xiirv/.IXEO.7.22._____U) # # $m4 _____include(_____xiirv/.IXEO.7.23._____U) # # $m4 _____include(_____xiirv/.IXEO.7.24._____U) # # $m4 _____include(_____xiirv/.IXEO.7.25._____U) # # $m4 _____include(_____xiirv/.IXEO.7.12._____U) # # $m4 _____include(_____xiirv/.IXEO.72._____U) # # $m4 _____include(_____xiirv/.IXEO.7.13._____U) # # # v $xiirv/IXEO.73 # Generee (sur '$LACT29') par : # # # # $Z SET _____R_2000=255 # # $Z SET _____V_2000=255 # # $Z SET _____B_2000=255 # # $Z SET _____Rayon_2000=0.06 # # $Z SET _____Z_2000=3.2 # # $Z SET _____R_Sphere_D=255 # # $Z SET _____V_Sphere_D=255 # # $Z SET _____B_Sphere_D=000 # # $Z SET _____R_Sphere_A=255 # # $Z SET _____V_Sphere_A=000 # # $Z SET _____B_Sphere_A=000 # # $Z SET _____RayonB_Sphere=0.025 # # $Z SET _____RayonS_Sphere=0.60 # # $Z SET _____NConnexions=64 # # $Z SET _____TmoveY=0.27 # # $Z set _____images=$xiirv/IXEO.73 # # $m4 _____include(_____xiirv/.IXEO.7.11._____U) # # $m4 _____include(_____xiirv/.IXEO.7.21._____U) # # $m4 _____include(_____xiirv/.IXEO.7.22._____U) # # $m4 _____include(_____xiirv/.IXEO.7.23._____U) # # $m4 _____include(_____xiirv/.IXEO.7.24._____U) # # $m4 _____include(_____xiirv/.IXEO.7.25._____U) # # $m4 _____include(_____xiirv/.IXEO.7.12._____U) # # $m4 _____include(_____xiirv/.IXEO.72._____U) # # $m4 _____include(_____xiirv/.IXEO.7.13._____U) # # # v $xiirv/IXEO.74 # Generee (sur '$LACT29') par : # # # # $Z SET _____R_2000=255 # # $Z SET _____V_2000=255 # # $Z SET _____B_2000=255 # # $Z SET _____Rayon_2000=0.03 # # $Z SET _____Z_2000=2.2 # # $Z SET _____R_Sphere_D=255 # # $Z SET _____V_Sphere_D=255 # # $Z SET _____B_Sphere_D=000 # # $Z SET _____R_Sphere_A=255 # # $Z SET _____V_Sphere_A=000 # # $Z SET _____B_Sphere_A=000 # # $Z SET _____RayonB_Sphere=0.025 # # $Z SET _____RayonS_Sphere=0.60 # # $Z SET _____NConnexions=32 # # $Z SET _____Cubique_2000="VRAI" # # $Z SET _____TmoveY=0.27 # # $Z set _____images=$xiirv/IXEO.74 # # $m4 _____include(_____xiirv/.IXEO.7.11._____U) # # $m4 _____include(_____xiirv/.IXEO.7.21._____U) # # $m4 _____include(_____xiirv/.IXEO.7.22._____U) # # $m4 _____include(_____xiirv/.IXEO.7.23._____U) # # $m4 _____include(_____xiirv/.IXEO.7.24._____U) # # $m4 _____include(_____xiirv/.IXEO.7.25._____U) # # $m4 _____include(_____xiirv/.IXEO.7.12._____U) # # $m4 _____include(_____xiirv/.IXEO.72._____U) # # $m4 _____include(_____xiirv/.IXEO.7.13._____U) # # # v $xiirv/IXEO.75 # Generee (sur '$LACT29') par : # # # # $Z SET _____R_2000=255 # # $Z SET _____V_2000=255 # # $Z SET _____B_2000=255 # # $Z SET _____Rayon_2000=0.02 # # $Z SET _____Z_2000=3.2 # # $Z SET _____R_Sphere_D=255 # # $Z SET _____V_Sphere_D=255 # # $Z SET _____B_Sphere_D=000 # # $Z SET _____R_Sphere_A=255 # # $Z SET _____V_Sphere_A=000 # # $Z SET _____B_Sphere_A=000 # # $Z SET _____RayonB_Sphere=0.025 # # $Z SET _____RayonS_Sphere=0.60 # # $Z SET _____NConnexions=32 # # $Z SET _____TmoveY=0.27 # # $Z set _____images=$xiirv/IXEO.75 # # $m4 _____include(_____xiirv/.IXEO.7.11._____U) # # $m4 _____include(_____xiirv/.IXEO.7.21._____U) # # $m4 _____include(_____xiirv/.IXEO.7.22._____U) # # $m4 _____include(_____xiirv/.IXEO.7.23._____U) # # $m4 _____include(_____xiirv/.IXEO.7.24._____U) # # $m4 _____include(_____xiirv/.IXEO.7.25._____U) # # $m4 _____include(_____xiirv/.IXEO.7.12._____U) # # $m4 _____include(_____xiirv/.IXEO.72._____U) # # $m4 _____include(_____xiirv/.IXEO.7.13._____U) # # # v $xiirv/IXEO.76 # Generee (sur '$LACT29') par : # # # # $Z SET _____R_2000=255 # # $Z SET _____V_2000=255 # # $Z SET _____B_2000=255 # # $Z SET _____Rayon_2000=0.03 # # $Z SET _____Z_2000=2.2 # # $Z SET _____R_Sphere_D=255 # # $Z SET _____V_Sphere_D=255 # # $Z SET _____B_Sphere_D=000 # # $Z SET _____R_Sphere_A=255 # # $Z SET _____V_Sphere_A=000 # # $Z SET _____B_Sphere_A=000 # # $Z SET _____RayonB_Sphere=0.025 # # $Z SET _____RayonS_Sphere=0.60 # # $Z SET _____NConnexions=32 # # $Z SET _____Cubique_2000="VRAI" # # $Z SET _____dn=-0.4 # # $Z SET _____dp=+0.4 # # $Z SET _____TmoveY=0.27 # # $Z set _____images=$xiirv/IXEO.76 # # $m4 _____include(_____xiirv/.IXEO.7.11._____U) # # $m4 _____include(_____xiirv/.IXEO.7.21._____U) # # $m4 _____include(_____xiirv/.IXEO.7.22._____U) # # $m4 _____include(_____xiirv/.IXEO.7.23._____U) # # $m4 _____include(_____xiirv/.IXEO.7.24._____U) # # $m4 _____include(_____xiirv/.IXEO.7.25._____U) # # $m4 _____include(_____xiirv/.IXEO.7.12._____U) # # $m4 _____include(_____xiirv/.IXEO.72._____U) # # $m4 _____include(_____xiirv/.IXEO.7.13._____U) # # # # # # ATTENTION, jusqu'au 19990407164800, l'image 'v $xiirv/IXEO.76' etait definie par erreur # # par : # # # # SET _____dn=-0.4 # # SET _____dn=+0.4 # # # # ou '$_____dn' a ete defini deux fois, alors que '$_____dp' ne l'etait pas... # v $xiirv/IXEO.77 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_IXEO_77: # # # # $Z SET _____R_2000=255 # # $Z SET _____V_2000=255 # # $Z SET _____B_2000=255 # # $Z SET _____Rayon_2000=0.03 # # $Z SET _____Z_2000=2.2 # # $Z SET _____R_Sphere_D=255 # # $Z SET _____V_Sphere_D=255 # # $Z SET _____B_Sphere_D=000 # # $Z SET _____R_Sphere_A=255 # # $Z SET _____V_Sphere_A=000 # # $Z SET _____B_Sphere_A=000 # # $Z SET _____RayonB_Sphere=0.025 # # $Z SET _____RayonS_Sphere=0.60 # # $Z SET _____NConnexions=32 # # $Z SET _____Cubique_2000="VRAI" # # $Z SET _____TmoveY=0.27 # # $Z set _____images=$xiirv/IXEO.77 # # $m4 _____include(_____xiirv/.IXEO.7.11._____U) # # $m4 _____include(_____xiirv/.IXEO.D.21._____U) # # $m4 _____include(_____xiirv/.IXEO.7.22._____U) # # $m4 _____include(_____xiirv/.IXEO.7.23._____U) # # $m4 _____include(_____xiirv/.IXEO.7.24._____U) # # $m4 _____include(_____xiirv/.IXEO.7.25._____U) # # $m4 _____include(_____xiirv/.IXEO.7.12._____U) # # $m4 _____include(_____xiirv/.IXEO.72._____U) # # $m4 _____include(_____xiirv/.IXEO.7.13._____U) # # # # :Fin_listG_IXEO_77: # # # v $xiirv/IXEO.77 p=$xiP/altit.01$Fi v $xiirv/IXEO.77 p=$xiP/inter.02.12 v $xiirv/IXEO.77 p=$xiP/roug2_jaun2 # Image generee par l'accumulation suivante : # # # # $Z Pal # # # # $Z $xci/accumule.01$X A=$xiim_LACT27/IXEO.1. \ # # $Z premiere=1 derniere=128 \ # # $Z inverser=VRAI \ # # $Z postfixe=$ROUGE \ # # $Z attenuation=0.99 \ # # $Z maximum=VRAI \ # # $Z R=$xiirv/IXEO.77 \ # # $Z $formatI # # # # qui correspond a la sequence : # # # # xivPdf 6 1 / 003681_003808 # # # v $xiirv/IXEO.78 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_IXEO_78: # # # # $Z SET _____R_2000=255 # # $Z SET _____V_2000=255 # # $Z SET _____B_2000=255 # # $Z SET _____Rayon_2000=0.04 # # $Z SET _____Z_2000=3.2 # # $Z SET _____R_Sphere_D=255 # # $Z SET _____V_Sphere_D=255 # # $Z SET _____B_Sphere_D=000 # # $Z SET _____R_Sphere_A=255 # # $Z SET _____V_Sphere_A=000 # # $Z SET _____B_Sphere_A=000 # # $Z SET _____RayonB_Sphere=0.025 # # $Z SET _____RayonS_Sphere=0.60 # # $Z SET _____NConnexions=32 # # $Z SET _____Cubique_2000="VRAI" # # $Z SET _____TmoveY=0.27 # # $Z set _____images=$xiirv/IXEO.78 # # $m4 _____include(_____xiirv/.IXEO.7.11._____U) # # $m4 _____include(_____xiirv/.IXEO.D.21._____U) # # $m4 _____include(_____xiirv/.IXEO.7.22._____U) # # $m4 _____include(_____xiirv/.IXEO.7.23._____U) # # $m4 _____include(_____xiirv/.IXEO.7.24._____U) # # $m4 _____include(_____xiirv/.IXEO.7.25._____U) # # $m4 _____include(_____xiirv/.IXEO.7.12._____U) # # $m4 _____include(_____xiirv/.IXEO.72._____U) # # $m4 _____include(_____xiirv/.IXEO.7.13._____U) # # # # :Fin_listG_IXEO_78: # # # v $xiirv/IXEO.79 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_IXEO_79: # # # # $Z set _____images=$xiirv/IXEO.79 # # $m4 _____include(_____xiirv/.IXEO.79.11._____U) # # # # :Fin_listG_IXEO_79: # # # v $xiirv/IXEO.81 # Generee (sur '$LACT29') par : # # # # $Z SET _____R_2000=255 # # $Z SET _____V_2000=255 # # $Z SET _____B_2000=255 # # $Z SET _____Rayon_2000=0.06 # # $Z SET _____R_Sphere_D=255 # # $Z SET _____V_Sphere_D=230 # # $Z SET _____B_Sphere_D=000 # # $Z SET _____R_Sphere_A=255 # # $Z SET _____V_Sphere_A=230 # # $Z SET _____B_Sphere_A=000 # # $Z SET _____RayonB_Sphere=0.032 # # $Z SET _____RayonS_Sphere=0.7 # # $Z set _____images=$xiirv/IXEO.81 # # $m4 _____include(_____xiirv/.IXEO.7.11._____U) # # $m4 _____include(_____xiirv/.IXEO.7.21._____U) # # $m4 _____include(_____xiirv/.IXEO.7.22._____U) # # $m4 _____include(_____xiirv/.IXEO.7.23._____U) # # $m4 _____include(_____xiirv/.IXEO.7.24._____U) # # $m4 _____include(_____xiirv/.IXEO.7.25._____U) # # $m4 _____include(_____xiirv/.IXEO.81._____U) # # $m4 _____include(_____xiirv/.IXEO.8.11._____U) # # $m4 _____include(_____xiirv/.IXEO.7.13._____U) # # # v $xiirv/IXEO.82 # Generee (sur '$LACT29') par : # # # # $Z SET _____R_2000=255 # # $Z SET _____V_2000=255 # # $Z SET _____B_2000=255 # # $Z SET _____Rayon_2000=0.06 # # $Z SET _____R_Sphere_D=255 # # $Z SET _____V_Sphere_D=230 # # $Z SET _____B_Sphere_D=000 # # $Z SET _____R_Sphere_A=255 # # $Z SET _____V_Sphere_A=230 # # $Z SET _____B_Sphere_A=000 # # $Z SET _____RayonB_Sphere=0.036 # # $Z SET _____RayonS_Sphere=1.0 # # $Z set _____images=$xiirv/IXEO.82 # # $m4 _____include(_____xiirv/.IXEO.7.11._____U) # # $m4 _____include(_____xiirv/.IXEO.7.21._____U) # # $m4 _____include(_____xiirv/.IXEO.7.22._____U) # # $m4 _____include(_____xiirv/.IXEO.7.23._____U) # # $m4 _____include(_____xiirv/.IXEO.7.24._____U) # # $m4 _____include(_____xiirv/.IXEO.7.25._____U) # # $m4 _____include(_____xiirv/.IXEO.82._____U) # # $m4 _____include(_____xiirv/.IXEO.8.11._____U) # # $m4 _____include(_____xiirv/.IXEO.7.13._____U) # # # v $xiirv/IXEO.91 # Generee (sur '$LACT29') par : # # # # $Z SET _____R_2000=255 # # $Z SET _____V_2000=255 # # $Z SET _____B_2000=255 # # $Z SET _____Rayon_2000=0.06 # # $Z SET _____Z_2000=0.9 # # $Z SET _____R_Sphere_D=255 # # $Z SET _____V_Sphere_D=255 # # $Z SET _____B_Sphere_D=000 # # $Z SET _____R_Sphere_A=255 # # $Z SET _____V_Sphere_A=000 # # $Z SET _____B_Sphere_A=000 # # $Z SET _____RayonB_Sphere=0.040 # # $Z SET _____RayonS_Sphere=1.0 # # $Z set _____images=$xiirv/IXEO.91 # # $m4 _____include(_____xiirv/.IXEO.7.11._____U) # # $m4 _____include(_____xiirv/.IXEO.7.21._____U) # # $m4 _____include(_____xiirv/.IXEO.7.22._____U) # # $m4 _____include(_____xiirv/.IXEO.7.23._____U) # # $m4 _____include(_____xiirv/.IXEO.7.24._____U) # # $m4 _____include(_____xiirv/.IXEO.7.25._____U) # # $m4 _____include(_____xiirv/.IXEO.81._____U) # # $m4 _____include(_____xiirv/.IXEO.8.11._____U) # # $m4 _____include(_____xiirv/.IXEO.7.13._____U) # # # v $xiirv/IXEO.92 # Generee (sur '$LACT29') par : # # # # $Z SET _____R_2000=255 # # $Z SET _____V_2000=255 # # $Z SET _____B_2000=255 # # $Z SET _____Rayon_2000=0.06 # # $Z SET _____R_Sphere_D=255 # # $Z SET _____V_Sphere_D=255 # # $Z SET _____B_Sphere_D=000 # # $Z SET _____R_Sphere_A=255 # # $Z SET _____V_Sphere_A=000 # # $Z SET _____B_Sphere_A=000 # # $Z SET _____RayonB_Sphere=0.032 # # $Z SET _____RayonS_Sphere=0.9 # # $Z set _____images=$xiirv/IXEO.92 # # $m4 _____include(_____xiirv/.IXEO.7.11._____U) # # $m4 _____include(_____xiirv/.IXEO.7.21._____U) # # $m4 _____include(_____xiirv/.IXEO.7.22._____U) # # $m4 _____include(_____xiirv/.IXEO.7.23._____U) # # $m4 _____include(_____xiirv/.IXEO.7.24._____U) # # $m4 _____include(_____xiirv/.IXEO.7.25._____U) # # $m4 _____include(_____xiirv/.IXEO.82._____U) # # $m4 _____include(_____xiirv/.IXEO.8.11._____U) # # $m4 _____include(_____xiirv/.IXEO.7.13._____U) # # # v $xiirv/IXEO.A1 # Generee (sur '$LACT29') par : # # # # $Z SET _____R_2000=255 # # $Z SET _____V_2000=255 # # $Z SET _____B_2000=255 # # $Z SET _____Rayon_2000=0.06 # # $Z SET _____Z_2000=0.9 # # $Z SET _____R_Sphere_D=255 # # $Z SET _____V_Sphere_D=255 # # $Z SET _____B_Sphere_D=000 # # $Z SET _____R_Sphere_A=255 # # $Z SET _____V_Sphere_A=000 # # $Z SET _____B_Sphere_A=000 # # $Z SET _____RayonB_Sphere=0.032 # # $Z SET _____RayonS_Sphere=0.7 # # $Z set _____images=$xiirv/IXEO.A1 # # $m4 _____include(_____xiirv/.IXEO.7.11._____U) # # $m4 _____include(_____xiirv/.IXEO.7.21._____U) # # $m4 _____include(_____xiirv/.IXEO.7.22._____U) # # $m4 _____include(_____xiirv/.IXEO.7.23._____U) # # $m4 _____include(_____xiirv/.IXEO.7.24._____U) # # $m4 _____include(_____xiirv/.IXEO.7.25._____U) # # $m4 _____include(_____xiirv/.IXEO.81._____U) # # $m4 _____include(_____xiirv/.IXEO.8.11._____U) # # $m4 _____include(_____xiirv/.IXEO.7.13._____U) # # # v $xiirv/IXEO.A2 # Generee (sur '$LACT29') par : # # # # $Z SET _____R_2000=255 # # $Z SET _____V_2000=255 # # $Z SET _____B_2000=255 # # $Z SET _____Rayon_2000=0.06 # # $Z SET _____R_Sphere_D=255 # # $Z SET _____V_Sphere_D=255 # # $Z SET _____B_Sphere_D=000 # # $Z SET _____R_Sphere_A=255 # # $Z SET _____V_Sphere_A=000 # # $Z SET _____B_Sphere_A=000 # # $Z SET _____RayonB_Sphere=0.032 # # $Z SET _____RayonS_Sphere=0.7 # # $Z set _____images=$xiirv/IXEO.A2 # # $m4 _____include(_____xiirv/.IXEO.7.11._____U) # # $m4 _____include(_____xiirv/.IXEO.7.21._____U) # # $m4 _____include(_____xiirv/.IXEO.7.22._____U) # # $m4 _____include(_____xiirv/.IXEO.7.23._____U) # # $m4 _____include(_____xiirv/.IXEO.7.24._____U) # # $m4 _____include(_____xiirv/.IXEO.7.25._____U) # # $m4 _____include(_____xiirv/.IXEO.82._____U) # # $m4 _____include(_____xiirv/.IXEO.8.11._____U) # # $m4 _____include(_____xiirv/.IXEO.7.13._____U) # # # v $xiirv/IXEO.B1 # Generee (sur '$LACT29') par : # # # # $Z SET _____TmoveX=0.025 # # $Z set _____images=$xiirv/IXEO.B1 # # $m4 _____include(_____xiirv/.Y2K.11.1._____U) # # $m4 _____include(_____xiirv/.IXEO.B1._____U) # # $m4 _____include(_____xiirv/.IXEO.B1.11._____U) # # $m4 _____include(_____xiirv/.Y2K.11.2._____U) # # # v $xiirv/IXEO.B2.1 v $xiirv/IXEO.B2.2 # Generee (sur '$LACT29') par : # # # # :Debut_listG_IXEO_B2: # # # # $Z SET _____TmoveX=0.025 # # $Z set _____images=$xiirv/IXEO.B2.1 # # $Z set _____Palette=$xiP/roug9_jaun9 # # $m4 _____include(_____xiirv/.Y2K.11.1._____U) # # $m4 _____include(_____xiirv/.IXEO.B2.11._____U) # # $m4 _____include(_____xiirv/.IXEO.B1.11._____U) # # $m4 _____include(_____xiirv/.Y2K.11.2._____U) # # $Z set _____images=$xiirv/IXEO.B2.2 # # $Z set _____Palette=$xiP/rouge_jaune # # $m4 _____include(_____xiirv/.IXEO.B2.12._____U) # # $m4 _____include(_____xiirv/.Y2K.11.2._____U) # # # # :Fin_listG_IXEO_B2: # # # v $xiirv/IXEO.B3.1 v $xiirv/IXEO.B3.2 # Generee (sur '$LACT29') par : # # # # :Debut_listG_IXEO_B3: # # # # $Z SET _____TmoveX=0.025 # # $Z set _____images1=$xiirv/IXEO.B3.1 # # $Z set _____images2=$xiirv/IXEO.B3.2 # # $m4 _____include(_____xiirv/.IXEO.B3.11._____U) # # # # :Fin_listG_IXEO_B3: # # # # # # Projet pour la carte de voeux 2000 de l'Ecole Polytechnique. # v $xiirv/IXEO.C2 # Generee (sur '$LACT29') par : # # # # $Z SET _____R_2000=255 # # $Z SET _____V_2000=255 # # $Z SET _____B_2000=255 # # $Z SET _____Rayon_2000=0.06 # # $Z SET _____R_Sphere_D=255 # # $Z SET _____V_Sphere_D=255 # # $Z SET _____B_Sphere_D=000 # # $Z SET _____R_Sphere_A=255 # # $Z SET _____V_Sphere_A=000 # # $Z SET _____B_Sphere_A=000 # # $Z SET _____RayonB_Sphere=0.032 # # $Z SET _____RayonS_Sphere=0.7 # # $Z set _____images=$xiirv/IXEO.C2 # # $m4 _____include(_____xiirv/.IXEO.7.11._____U) # # $m4 _____include(_____xiirv/.IXEO.7.21._____U) # # $m4 _____include(_____xiirv/.IXEO.7.22._____U) # # $m4 _____include(_____xiirv/.IXEO.7.23._____U) # # $m4 _____include(_____xiirv/.IXEO.7.24._____U) # # $m4 _____include(_____xiirv/.IXEO.7.25._____U) # # $m4 _____include(_____xiirv/.IXEO.C2._____U) # # $m4 _____include(_____xiirv/.IXEO.8.11._____U) # # $m4 _____include(_____xiirv/.IXEO.7.13._____U) # # # v $xiirv/IXEO.D1 # Generee (sur '$LACT27') par : # # # # # # :Debut_listG_IXEO_D1: # # # # $Z SET _____R_2000=255 # # $Z SET _____V_2000=255 # # $Z SET _____B_2000=255 # # $Z SET _____Rayon_2000=0.04 # # $Z SET _____NConnexions=16 # # $Z SET _____Cubique_2000="VRAI" # # $Z SET _____Z_2000=0.5 # # $Z SET _____R_Sphere_D=255 # # $Z SET _____V_Sphere_D=255 # # $Z SET _____B_Sphere_D=000 # # $Z SET _____R_Sphere_A=255 # # $Z SET _____V_Sphere_A=000 # # $Z SET _____B_Sphere_A=000 # # $Z SET _____RayonB_Sphere=0.032 # # $Z SET _____RayonS_Sphere=0.9 # # $Z set _____images=$xiirv/IXEO.D1 # # $m4 _____include(_____xiirv/.IXEO.7.11._____U) # # $m4 _____include(_____xiirv/.IXEO.D.21._____U) # # $m4 _____include(_____xiirv/.IXEO.7.22._____U) # # $m4 _____include(_____xiirv/.IXEO.7.23._____U) # # $m4 _____include(_____xiirv/.IXEO.7.24._____U) # # $m4 _____include(_____xiirv/.IXEO.7.25._____U) # # $m4 _____include(_____xiirv/.IXEO.81._____U) # # $m4 _____include(_____xiirv/.IXEO.8.11._____U) # # $m4 _____include(_____xiirv/.IXEO.7.13._____U) # # # # :Fin_listG_IXEO_D1: # # # # # # Projet pour la carte de voeux 2000 de l'Ecole Polytechnique. # v $xiirv/IXEO.D2 # Generee (sur '$LACT27') par : # # # # # # :Debut_listG_IXEO_D2: # # # # $Z SET _____R_2000=255 # # $Z SET _____V_2000=255 # # $Z SET _____B_2000=255 # # $Z SET _____Rayon_2000=0.04 # # $Z SET _____NConnexions=16 # # $Z SET _____Cubique_2000="VRAI" # # $Z SET _____Z_2000=0.5 # # $Z SET _____R_Sphere_D=255 # # $Z SET _____V_Sphere_D=255 # # $Z SET _____B_Sphere_D=000 # # $Z SET _____R_Sphere_A=255 # # $Z SET _____V_Sphere_A=000 # # $Z SET _____B_Sphere_A=000 # # $Z SET _____RayonB_Sphere=0.032 # # $Z SET _____RayonS_Sphere=0.9 # # $Z set _____images=$xiirv/IXEO.D2 # # $m4 _____include(_____xiirv/.IXEO.7.11._____U) # # $m4 _____include(_____xiirv/.IXEO.D.21._____U) # # $m4 _____include(_____xiirv/.IXEO.7.22._____U) # # $m4 _____include(_____xiirv/.IXEO.7.23._____U) # # $m4 _____include(_____xiirv/.IXEO.7.24._____U) # # $m4 _____include(_____xiirv/.IXEO.7.25._____U) # # $m4 _____include(_____xiirv/.IXEO.82._____U) # # $m4 _____include(_____xiirv/.IXEO.8.11._____U) # # $m4 _____include(_____xiirv/.IXEO.7.13._____U) # # # # :Fin_listG_IXEO_D2: # # # # # # Projet pour la carte de voeux 2000 de l'Ecole Polytechnique. # v $xiirv/IXEO.E1 # Generee (sur '$LACT27') par : # # # # # # :Debut_listG_IXEO_E1: # # # # $Z set _____images=$xiirv/IXEO.E1 # # $m4 _____include(_____xiirv/.IXEO.E.12._____U) # # $m4 _____include(_____xiirv/.IXEO.E.31._____U) # # $m4 _____include(_____xiirv/.IXEO.E.32._____U) # # # # :Fin_listG_IXEO_E1: # # # v $xiirv/IXEO.F8 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_IXEO_F8: # # # # $Z SET _____R_2000=255 # # $Z SET _____V_2000=255 # # $Z SET _____B_2000=255 # # $Z SET _____Rayon_2000=0.04 # # $Z SET _____Z_2000=3.2 # # $Z SET _____R_Sphere_D=255 # # $Z SET _____V_Sphere_D=255 # # $Z SET _____B_Sphere_D=000 # # $Z SET _____R_Sphere_A=255 # # $Z SET _____V_Sphere_A=000 # # $Z SET _____B_Sphere_A=000 # # $Z SET _____RayonB_Sphere=0.025 # # $Z SET _____RayonS_Sphere=0.60 # # $Z SET _____NConnexions=32 # # $Z SET _____Cubique_2000="VRAI" # # $Z SET _____TmoveY=0.27 # # $Z set _____images=$xiirv/IXEO.F8 # # $m4 _____include(_____xiirv/.IXEO.7.11._____U) # # $m4 _____include(_____xiirv/.IXEO.D.21._____U) # # $m4 _____include(_____xiirv/.IXEO.7.22._____U) # # $m4 _____include(_____xiirv/.IXEO.7.23._____U) # # $m4 _____include(_____xiirv/.IXEO.7.24._____U) # # $m4 _____include(_____xiirv/.IXEO.7.25._____U) # # $m4 _____include(_____xiirv/.IXEO.F.12._____U) # # $m4 _____include(_____xiirv/.IXEO.72._____U) # # $m4 _____include(_____xiirv/.IXEO.7.13._____U) # # # # :Fin_listG_IXEO_F8: # # # # # # Projet pour la carte de voeux 2000 de l'Ecole Polytechnique. # v $xiirv/JFC.81 # Cette image a ete generee par : # # # # alias genere '$xrv/champs_5.10$X \\ # # cRAYON=$xiit/JFC.13\!:1 facteurR=4 \\ # # Lz=1000 \\ # # ROUGE=\!:2 VERTE=\!:3 BLEUE=\!:4 \\ # # R=$xiirv/JFC.81. \\ # # $formatI' # # # # Std # # # # genere $ROUGE VRAI FAUX FAUX # # genere $VERTE FAUX VRAI FAUX # # genere $BLEUE FAUX FAUX VRAI # # # # Image tres penible a regarder car, aux interstices entre les spheres, on voit apparaitre # # des taches fantomatiques... # v $xiirv/JFC.82 # Cette image a ete generee par : # # # # alias genere '$xrv/champs_5.10$X \\ # # cRAYON=$xiit/JFC.13\!:1 facteurR=4 \\ # # ZOOM=1.0 \\ # # Lz=1000 \\ # # ROUGE=\!:2 VERTE=\!:3 BLEUE=\!:4 \\ # # R=$xiirv/JFC.82. \\ # # $formatI' # # # # Std # # # # genere $ROUGE VRAI FAUX FAUX # # genere $VERTE FAUX VRAI FAUX # # genere $BLEUE FAUX FAUX VRAI # # # # Image tres penible a regarder car, aux interstices entre les spheres, on voit apparaitre # # des taches fantomatiques... # v $xiirv/JFC.91$M v $xiirv/JFC.91$m # Image generee (sur '$LACT27') par (ou on notera le seuil de '144' qui donne a l'image # # '$xT/TEXTURE' approximativement 80% de '$NOIR' et 20% de '$BLANC' ce qui correspond aux # # proportions des parties emergees et immergees d'un iceberg ; on notera de plus que pour # # la montagne on utilise la texture seuillee, alors que pour l'eau, on utilise la texture # # non seuillee, ce qui permet de siumler l'assombrissement de l'eau avec sa profondeur) : # # # # Pal # # # # $xci/fract_2D.01$X \ # # R=$xT/MONTAGNE \ # # $formatI # # $xci/seuil$X A=$xT/MONTAGNE \ # # seuil=144 \ # # R=$xT/TEXTURE \ # # $formatI # # # # $CP $xT/TEXTURE $xT/TEXTURE.12$ROUGE # # $CP $xT/TEXTURE $xT/TEXTURE.12$VERTE # # $CP $xT/TEXTURE $xT/TEXTURE.12$BLEUE # # # # $xci/complement$X \ # # A=$xT/TEXTURE \ # # R=$xT/TEXTURE \ # # $formatI # # # # $xci/init$X \ # # niveau=$NOIR \ # # R=$xT/TEXTURE.11$ROUGE \ # # $formatI # # $xci/scale$X \ # # A=$xT/TEXTURE \ # # a=0.7 \ # # R=$xT/TEXTURE.11$VERTE \ # # $formatI # # $CP $xT/TEXTURE $xT/TEXTURE.11$BLEUE # # # # # # $xci/or_02$X \ # # A1=$xT/TEXTURE.11.? \ # # A2=$xT/TEXTURE.12.? \ # # $formatI | # # $xci/montagne.01$X \ # # A=$xT/MONTAGNE \ # # avion=FAUX \ # # Ty=0.65 \ # # R=$xiirv/JFC.91$M.? \ # # $formatI # # # # $xci/init$X \ # # niveau=$NOIR \ # # R=$xT/TEXTURE.11$ROUGE \ # # $formatI # # $xci/and$X \ # # A1=$xT/TEXTURE \ # # A2=$xT/MONTAGNE \ # # $formatI | # # $xci/acces$X \ # # renormaliser=VRAI \ # # R=$xT/TEXTURE.11$BLEUE \ # # $formatI # # $xci/scale$X \ # # A=$xT/TEXTURE.11$BLEUE \ # # a=0.7 \ # # R=$xT/TEXTURE.11$VERTE \ # # $formatI # # # # # # $xci/or_02$X \ # # A1=$xT/TEXTURE.11.? \ # # A2=$xT/TEXTURE.12.? \ # # $formatI | # # $xci/montagne.01$X \ # # A=$xT/MONTAGNE \ # # avion=VRAI \ # # R=$xiirv/JFC.91$m.? \ # # $formatI # # # v $xiirv/JFC.M1.1 v $xiirv/JFC.M1.2 # Generee (sur '$CMAP28' -ex "picpus"-) par : # # # # # # :Debut_listG_JFC_M1: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$xiit/JFC.12%s \ # # $Z $formatI \ # # $Z mode=7 \ # # $Z R=$xTV/JFC.11%s \ # # $Z $formatR_Suq # # # # $Z Suq # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/JFC.11 \ # # $Z R=$xTV/JFC.12 \ # # $Z $formatI # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/JFC.12 \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xTV/JFC.13 \ # # $Z $formatR_Sdu # # # # $Z Sdu # # # # $Z SET cPremiere=$GRIS_0 # # $Z SET cDerniere=$GRIS_8 # # # # $Z set _____ImageT1=$xTV/JFC.M1 # # # # $c #include <stdio.h> # # $c # # $c #define COND(c,v,f) ((c) ? (v) : (f)) # # $c #define MIN2(a,b) COND(((a)<=(b)),(a),(b)) # # $c #define MAX2(a,b) COND(((a)>=(b)),(a),(b)) # # $c # # $c #define N0 cPremiere # # $c #define N cDerniere # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n=n+1) # # $c { # # $c printf("$xci/passe_bande$X # # $c A=$xTV/JFC.13 # # $c forcer_niveau_intermediaire=VRAI # # $c niveau_intermediaire=$BLANC # # $c niveau_inferieur=$NOIR # # $c niveau_superieur=$NOIR # # $c seuil_inferieur=%d # # $c seuil_superieur=%d # # $c R=$_____ImageT1.%04d # # $c $formatI\n" # # $c ,MAX2(n-1,N0) # # $c ,MIN2(n+2,N) # # $c ,n # # $c ); # # $c } # # $c } # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z SET _____Detruire_21=$EXIST # # $Z set _____imagesR=$xiirv/JFC.M1 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_JFC_M1: # # # v $xiirv/JFC.M2.1 v $xiirv/JFC.M2.2 # Generee (sur '$CMAP28' -ex "picpus"-) par : # # # # # # :Debut_listG_JFC_M2: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$xiit/JFC.12%s \ # # $Z $formatI \ # # $Z mode=7 \ # # $Z R=$xTV/JFC.11%s \ # # $Z $formatR_Suq # # # # $Z Suq # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/JFC.11 \ # # $Z R=$xTV/JFC.12 \ # # $Z $formatI # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/JFC.12 \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xTV/JFC.13 \ # # $Z $formatR_Sdu # # # # $Z Sdu # # # # $Z SET cPremiere=$GRIS_0 # # $Z SET cDerniere=$GRIS_8 # # # # $Z set _____ImageT1=$xTV/JFC.M2 # # # # $c #include <stdio.h> # # $c # # $c #define COND(c,v,f) ((c) ? (v) : (f)) # # $c #define MIN2(a,b) COND(((a)<=(b)),(a),(b)) # # $c #define MAX2(a,b) COND(((a)>=(b)),(a),(b)) # # $c # # $c #define N0 cPremiere # # $c #define N cDerniere # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n=n+1) # # $c { # # $c printf("$xci/passe_bande$X # # $c A=$xTV/JFC.13 # # $c forcer_niveau_intermediaire=VRAI # # $c niveau_intermediaire=$BLANC # # $c niveau_inferieur=$NOIR # # $c niveau_superieur=$NOIR # # $c seuil_inferieur=%d # # $c seuil_superieur=%d # # $c R=$_____ImageT1.%04d # # $c $formatI\n" # # $c ,N-MIN2(n+2,N) # # $c ,N-MAX2(n-1,N0) # # $c ,n # # $c ); # # $c } # # $c } # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z SET _____Detruire_21=$EXIST # # $Z set _____imagesR=$xiirv/JFC.M2 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_JFC_M2: # # # v $xiirv/JULK.I2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_JULK_I2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=2 # # # # $Z set _____Part0=1 # # $Z set _____Segments_AB=FAUX # # # # Et ce afin de n'avoir chaque noeud qu'en un seul exemplaire... # # # # $Z set _____Palette=$xiP/arc_ciel.A3 # # $Z set _____ImageR=$xTV/HILB.K2 # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.JULK.I2.1._____U) # # # # $Z set _____Segments_AB=VRAI # # # # $Z set _____Fond="fond=VRAI F=$_____ImageR" # # # # $Z set _____NiveauFond=$GRIS_0 # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Rayon=(0.004) # # $Z set _____Grossissement=2.0 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1 # # $Z set _____Z0=0.5 # # $Z set _____ImageR=$xiirv/JULK.I2 # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # On notera que l'on ne peut pas utiliser 'v $xiirv/HILB.K2' car, en effet, cette image a # # ete calculee avec '_____Zoom=1.30' et '_____Z0=0' ce qui la rend incomaptible avec des # # traitements dans le plan image {X,Y} comme ci-apres. Il faut donc la recalculer avec # # '_____Zoom=1' et '_____Z0=0.5' ('v $xrv/particule.10$K Note.sur.le.plan.image')... # # # # # # :Fin_listG_JULK_I2: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre des ensembles de Julia dans le carre # # [-1,-1]x[+1,+1] et dont les parametres generateurs sont les noeuds (exprimes en complexes) # # d'une courbe de Hilbert bidimensionnelle (iteration 1)... # v $xiirv/JULK.I3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_JULK_I3: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=3 # # # # $Z set _____Part0=1 # # $Z set _____Segments_AB=FAUX # # # # Et ce afin de n'avoir chaque noeud qu'en un seul exemplaire... # # # # $Z set _____Palette=$xiP/arc_ciel.A3 # # $Z set _____ImageR=$xTV/HILB.K3 # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.JULK.I2.1._____U) # # # # $Z set _____Segments_AB=VRAI # # # # $Z set _____Fond="fond=VRAI F=$_____ImageR" # # # # $Z set _____NiveauFond=$GRIS_0 # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Rayon=(0.004) # # $Z set _____Grossissement=2.0 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1 # # $Z set _____Z0=0.5 # # $Z set _____ImageR=$xiirv/JULK.I3 # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_JULK_I3: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J3' montre des ensembles de Julia dans le carre # # [-1,-1]x[+1,+1] et dont les parametres generateurs sont les noeuds (exprimes en complexes) # # d'une courbe de Hilbert bidimensionnelle (iteration 2)... # v $xiirv/JULK.I4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_JULK_I4: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=4 # # # # $Z set _____Part0=1 # # $Z set _____Segments_AB=FAUX # # # # Et ce afin de n'avoir chaque noeud qu'en un seul exemplaire... # # # # $Z set _____Palette=$xiP/arc_ciel.A3 # # $Z set _____ImageR=$xTV/HILB.K4 # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.JULK.I2.1._____U) # # # # $Z set _____Segments_AB=VRAI # # # # $Z set _____Fond="fond=VRAI F=$_____ImageR" # # # # $Z set _____NiveauFond=$GRIS_0 # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Rayon=(0.004) # # $Z set _____Grossissement=2.0 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1 # # $Z set _____Z0=0.5 # # $Z set _____ImageR=$xiirv/JULK.I4 # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_JULK_I4: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J4' montre des ensembles de Julia dans le carre # # [-1,-1]x[+1,+1] et dont les parametres generateurs sont les noeuds (exprimes en complexes) # # d'une courbe de Hilbert bidimensionnelle (iteration 3)... # v $xiirv/JULK.I5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_JULK_I5: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # # # $Z set _____Part0=1 # # $Z set _____Segments_AB=FAUX # # # # Et ce afin de n'avoir chaque noeud qu'en un seul exemplaire... # # # # $Z set _____Palette=$xiP/arc_ciel.A3 # # $Z set _____ImageR=$xTV/HILB.K5 # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.JULK.I2.1._____U) # # # # $Z set _____Segments_AB=VRAI # # # # $Z set _____Fond="fond=VRAI F=$_____ImageR" # # # # $Z set _____NiveauFond=$GRIS_0 # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Rayon=(0.004) # # $Z set _____Grossissement=2.0 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1 # # $Z set _____Z0=0.5 # # $Z set _____ImageR=$xiirv/JULK.I5 # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.HILB.22._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_JULK_I5: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J5' montre des ensembles de Julia dans le carre # # [-1,-1]x[+1,+1] et dont les parametres generateurs sont les noeuds (exprimes en complexes) # # d'une courbe de Hilbert bidimensionnelle (iteration 4)... # v $xiirv/KLEI.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_KLEI_11: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirf/FRB3.g5 # # $Z set _____ImageR=$xiirv/KLEI.11 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA.1 \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/trou_bleu.94 \ # # $Z R=$xTV/KLEI.11 \ # # $Z $formatI # # # # # # $Z $xci/cache.41$Z \ # # $Z $_____ImageA.21 \ # # $Z $xTV/KLEI.11 \ # # $Z $_____ImageR \ # # $Z 9 # # # # :Fin_listG_KLEI_11: # # # # # # qui montre un "arbre eponge" a la "Yves Klein"... # v $xiirv/KNOT.11.3.1 # Generee (sur '$LACT15', puis sur $LACT19 aux environs du 20120517121442) : # # # # # # :Debut_listG_KNOT_11_3_1: # # # # $Z Pal # # # # $Z set _____SurfaceA=tore.11 # # $Z set Q_pi=`calcul 2*$dpi` # # $Z set PaS_uv1=`calcul $Q_pi/20` # # $Z set PaS_uv2=`calcul $Q_pi/40` # # $Z set _____Aduv=+1 # # $Z set _____Bduv=`calcul -3/2` # # $Z set _____Cduv=0 # # $Z set _____SurfaceParam12="PARAMETRE_R2=0.5" # # $Z set _____SurfaceParam1="pu=$PaS_uv1 pv=$PaS_uv1" # # $Z set _____SurfaceParam2="Mu=$Q_pi Mv=$Q_pi pu=$PaS_uv2 pv=$PaS_uv2" # # $Z set _____RotationOX=0.0 # # $Z set _____Zoom=0.9 # # $Z set _____ImageR=$xiirv/KNOT.11.3.1 # # $m4 _____include(_____xiirv/.KNOT.11.1._____U) # # # # :Fin_listG_KNOT_11_3_1: # # # # # # qui montre un noeud "en trefle a trois feuilles" sur son tore... # v $xiirv/KNOT.11.5.1 # Generee (sur '$LACT15', puis sur $LACT19 aux environs du 20120517121442) : # # # # # # :Debut_listG_KNOT_11_5_1: # # # # $Z Pal # # # # $Z set _____SurfaceA=tore.11 # # $Z set Q_pi=`calcul 2*$dpi` # # $Z set PaS_uv1=`calcul $Q_pi/20` # # $Z set PaS_uv2=`calcul $Q_pi/40` # # $Z set _____Aduv=+1 # # $Z set _____Bduv=`calcul -5/2` # # $Z set _____Cduv=0 # # $Z set _____SurfaceParam12="PARAMETRE_R2=0.5" # # $Z set _____SurfaceParam1="pu=$PaS_uv1 pv=$PaS_uv1" # # $Z set _____SurfaceParam2="Mu=$Q_pi Mv=$Q_pi pu=$PaS_uv2 pv=$PaS_uv2" # # $Z set _____RotationOX=0.0 # # $Z set _____Zoom=0.9 # # $Z set _____ImageR=$xiirv/KNOT.11.5.1 # # $m4 _____include(_____xiirv/.KNOT.11.1._____U) # # # # :Fin_listG_KNOT_11_5_1: # # # # # # qui montre un noeud "en trefle a cinq feuilles" sur son tore... # v $xiirv/KNOT.11.7.1 # Generee (sur '$LACT15', puis sur $LACT19 aux environs du 20120517121442) : # # # # # # :Debut_listG_KNOT_11_7_1: # # # # $Z Pal # # # # $Z set _____SurfaceA=tore.11 # # $Z set Q_pi=`calcul 2*$dpi` # # $Z set PaS_uv1=`calcul $Q_pi/20` # # $Z set PaS_uv2=`calcul $Q_pi/40` # # $Z set _____Aduv=+1 # # $Z set _____Bduv=`calcul -7/2` # # $Z set _____Cduv=0 # # $Z set _____SurfaceParam12="PARAMETRE_R2=0.5" # # $Z set _____SurfaceParam1="pu=$PaS_uv1 pv=$PaS_uv1" # # $Z set _____SurfaceParam2="Mu=$Q_pi Mv=$Q_pi pu=$PaS_uv2 pv=$PaS_uv2" # # $Z set _____RotationOX=0.0 # # $Z set _____Zoom=0.9 # # $Z set _____ImageR=$xiirv/KNOT.11.7.1 # # $m4 _____include(_____xiirv/.KNOT.11.1._____U) # # # # :Fin_listG_KNOT_11_7_1: # # # # # # qui montre un noeud "en trefle a sept feuilles" sur son tore... # v $xiirv/KNOT.21.3.1 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_KNOT_21_3_1: # # # # $Z Pal # # # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/KNOT.21.3.1 # # $m4 _____include(_____xiirv/.KNOT.21.1._____U) # # $m4 _____include(_____xiirv/.KNOT.21.2._____U) # # $m4 _____include(_____xiirv/.KNOT.21.3._____U) # # # # :Fin_listG_KNOT_21_3_1: # # # # # # qui montre un noeud "en trefle". # v $xiirv/KNOT.31.3.1 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_KNOT_31_3_1: # # # # $Z Pal # # # # $Z set _____SurfaceA=tore.11 # # $Z set Q_pi=`calcul 2*$dpi` # # $Z set PaS_uv=`calcul $Q_pi/40` # # $Z set _____Aduv=+1 # # $Z set _____Bduv=`calcul -3/2` # # $Z set _____Cduv=0 # # $Z set _____SurfaceParam1="PARAMETRE_R2=0.5" # # $Z set _____SurfaceParam2="Mu=$Q_pi Mv=$Q_pi pu=$PaS_uv pv=$PaS_uv" # # $Z set _____Zoom=0.8 # # $Z set _____ImageR=$xiirv/KNOT.31.3.1 # # $m4 _____include(_____xiirv/.KNOT.31.1._____U) # # # # :Fin_listG_KNOT_31_3_1: # # # # # # qui montre une tapisserie faite de noeuds "en trefle a trois feuilles"... # v $xiirv/KNOT.31.3.2 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_KNOT_31_3_2: # # # # $Z Pal # # # # $Z $xci/color_NB.01$Z \ # # $Z $xiirv/KNOT.31.3.1 \ # # $Z $xiirv/KNOT.31.3.2 \ # # $Z $xiP/trou_noir.94 \ # # $Z $xiP/gris.01 \ # # $Z FAUX \ # # $Z $xci/gauss$X \ # # $Z "c=8" # # # # :Fin_listG_KNOT_31_3_2: # # # # # # qui montre une tapisserie faite de noeuds "en trefle a trois feuilles"... # v $xiirv/KNOT.31.3.3 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_KNOT_31_3_3: # # # # $Z Pal # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/KNOT.31.3.2%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/KNOT.1%s \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Ct=3 \ # # $Z Ex=1.2 Ey=1.2 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/TREFLE \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=4 mt=4 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SPIRALE \ # # $Z $formatI # # # # $Z execRVB $xci/deformi.01$X \ # # $Z A=$xTV/KNOT.1%s \ # # $Z DX=$xTV/TREFLE \ # # $Z DY=$xTV/SPIRALE \ # # $Z bilineaire=VRAI \ # # $Z R=$xTV/KNOT.2%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xTV/KNOT.2%s \ # # $Z standard=FAUX brutal=VRAI \ # # $Z R=$xiirv/KNOT.31.3.3%s \ # # $Z $formatI # # # # :Fin_listG_KNOT_31_3_3: # # # # # # qui montre une tapisserie "courbe" faite de noeuds "en trefle a trois feuilles"... # v $xiirv/KNOT.31.5.1 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_KNOT_31_5_1: # # # # $Z Pal # # # # $Z set _____SurfaceA=tore.11 # # $Z set Q_pi=`calcul 2*$dpi` # # $Z set PaS_uv=`calcul $Q_pi/40` # # $Z set _____Aduv=+1 # # $Z set _____Bduv=`calcul -5/2` # # $Z set _____Cduv=0 # # $Z set _____SurfaceParam1="PARAMETRE_R2=0.5" # # $Z set _____SurfaceParam2="Mu=$Q_pi Mv=$Q_pi pu=$PaS_uv pv=$PaS_uv" # # $Z set _____Zoom=0.8 # # $Z set _____ImageR=$xiirv/KNOT.31.5.1 # # $m4 _____include(_____xiirv/.KNOT.31.1._____U) # # # # :Fin_listG_KNOT_31_5_1: # # # # # # qui montre une tapisserie faite de noeuds "en trefle a cinq feuilles"... # v $xiirv/KNOT.31.5.2 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_KNOT_31_5_2: # # # # $Z Pal # # # # $Z $xci/color_NB.01$Z \ # # $Z $xiirv/KNOT.31.5.1 \ # # $Z $xiirv/KNOT.31.5.2 \ # # $Z $xiP/trou_noir.94 \ # # $Z $xiP/gris.01 \ # # $Z FAUX \ # # $Z $xci/gauss$X \ # # $Z "c=8" # # # # :Fin_listG_KNOT_31_5_2: # # # # # # qui montre une tapisserie faite de noeuds "en trefle a cinq feuilles"... # v $xiirv/KNOT.31.5.3 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_KNOT_31_5_3: # # # # $Z Pal # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/KNOT.31.5.2%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/KNOT.1%s \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Ct=3 \ # # $Z Ex=1.2 Ey=1.2 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/TREFLE \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=4 mt=4 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SPIRALE \ # # $Z $formatI # # # # $Z execRVB $xci/deformi.01$X \ # # $Z A=$xTV/KNOT.1%s \ # # $Z DX=$xTV/TREFLE \ # # $Z DY=$xTV/SPIRALE \ # # $Z bilineaire=VRAI \ # # $Z R=$xTV/KNOT.2%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xTV/KNOT.2%s \ # # $Z standard=FAUX brutal=VRAI \ # # $Z R=$xiirv/KNOT.31.5.3%s \ # # $Z $formatI # # # # :Fin_listG_KNOT_31_5_3: # # # # # # qui montre une tapisserie "courbe" faite de noeuds "en trefle a cinq feuilles"... # v $xiirv/KNOT.31.7.1 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_KNOT_31_7_1: # # # # $Z Pal # # # # $Z set _____SurfaceA=tore.11 # # $Z set Q_pi=`calcul 2*$dpi` # # $Z set PaS_uv=`calcul $Q_pi/40` # # $Z set _____Aduv=+1 # # $Z set _____Bduv=`calcul -7/2` # # $Z set _____Cduv=0 # # $Z set _____SurfaceParam1="PARAMETRE_R2=0.5" # # $Z set _____SurfaceParam2="Mu=$Q_pi Mv=$Q_pi pu=$PaS_uv pv=$PaS_uv" # # $Z set _____Zoom=0.8 # # $Z set _____ImageR=$xiirv/KNOT.31.7.1 # # $m4 _____include(_____xiirv/.KNOT.31.1._____U) # # # # :Fin_listG_KNOT_31_7_1: # # # # # # qui montre une tapisserie faite de noeuds "en trefle a sept feuilles"... # v $xiirv/KNOT.31.7.2 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_KNOT_31_7_2: # # # # $Z Pal # # # # $Z $xci/color_NB.01$Z \ # # $Z $xiirv/KNOT.31.7.1 \ # # $Z $xiirv/KNOT.31.7.2 \ # # $Z $xiP/trou_noir.94 \ # # $Z $xiP/gris.01 \ # # $Z FAUX \ # # $Z $xci/gauss$X \ # # $Z "c=8" # # # # :Fin_listG_KNOT_31_7_2: # # # # # # qui montre une tapisserie faite de noeuds "en trefle a sept feuilles"... # v $xiirv/KNOT.31.7.3 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_KNOT_31_7_3: # # # # $Z Pal # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/KNOT.31.7.2%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/KNOT.1%s \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Ct=3 \ # # $Z Ex=1.2 Ey=1.2 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/TREFLE \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=4 mt=4 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SPIRALE \ # # $Z $formatI # # # # $Z execRVB $xci/deformi.01$X \ # # $Z A=$xTV/KNOT.1%s \ # # $Z DX=$xTV/TREFLE \ # # $Z DY=$xTV/SPIRALE \ # # $Z bilineaire=VRAI \ # # $Z R=$xTV/KNOT.2%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xTV/KNOT.2%s \ # # $Z standard=FAUX brutal=VRAI \ # # $Z R=$xiirv/KNOT.31.7.3%s \ # # $Z $formatI # # # # :Fin_listG_KNOT_31_7_3: # # # # # # qui montre une tapisserie "courbe" faite de noeuds "en trefle a sept feuilles"... # v $xiirv/KNOT.41.3.5 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_KNOT_41_3_5: # # # # $Z Pal # # # # $Z $xci/random.01$X \ # # $Z graine=2 \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z seuil=$GRIS \ # # $Z R=$xTV/PONDERATEUR \ # # $Z $formatI # # # # $Z set PaRaM="$K_VIDE" # # $Z set PaRaM="$PaRaM"" A1=$xiirv/KNOT.31.3.1%s" # # $Z set PaRaM="$PaRaM"" A2=$xiirv/KNOT.31.5.1%s" # # $Z set PaRaM="$PaRaM"" P=$xTV/PONDERATEUR" # # # # $Z execRVB $xci/interpole.03$X $PaRaM R=$xTV/INTERPOLE%s $formatI # # # # $Z $xci/detourage.21$Z $xTV/INTERPOLE $xiirv/KNOT.41.3.5 36 # # # # :Fin_listG_KNOT_41_3_5: # # # # # # qui montre une interpolation de Fourier aleatoire entre les images 'v $xiirv/KNOT.31.3.1' # # et 'v $xiirv/KNOT.31.5.1'... # v $xiirv/KNOT.51.3.7 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_KNOT_51_3_7: # # # # $Z Pal # # # # $Z set PaRaM="$K_VIDE" # # $Z set PaRaM="$PaRaM"" facteur=0.005" # # # # $Z execRVB $xci/z_carre.01$X A=$xiirv/KNOT.31.3.1%s $PaRaM R=$xTV/KNOT.3%s $formatI # # $Z execRVB $xci/z_carre.01$X A=$xiirv/KNOT.31.7.1%s $PaRaM R=$xTV/KNOT.7%s $formatI # # # # $Z $xci/format.01$X \ # # $Z A=$xiio/MIRE \ # # $Z $format_Std \ # # $Z mode=0 \ # # $Z R=$xTV/MIRE \ # # $Z $formatR_Pal # # # # $Z set PaRaM="$K_VIDE" # # $Z set PaRaM="$PaRaM"" A1=$xTV/KNOT.3%s" # # $Z set PaRaM="$PaRaM"" A2=$xTV/KNOT.7%s" # # $Z set PaRaM="$PaRaM"" P=$xTV/MIRE" # # # # $Z execRVB $xci/interpole.02$X $PaRaM R=$xTV/INTERPOLE%s $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/INTERPOLE \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z c=16 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z set PaRaM="$K_VIDE" # # $Z set PaRaM="$PaRaM"" A1=$xTV/LUMINANCE" # # $Z set PaRaM="$PaRaM"" A2=$xTV/INTERPOLE%s" # # $Z set PaRaM="$PaRaM"" P=$xTV/GAUSS" # # # # $Z execRVB $xci/interpole.02$X $PaRaM R=$xiirv/KNOT.51.3.7%s $formatI # # # # :Fin_listG_KNOT_51_3_7: # # # v $xiirv/KNOT.61.1.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_KNOT_61_1_1: # # # # $Z Pal # # # # $Z set _____SurfaceA=tore.11 # # $Z set _____NombreTours=2 # # $Z set Q_pi=`calcul $_____NombreTours*$dpi` # # $Z set PaS_uv1=`calcul $Q_pi/20` # # $Z set PaS_uv2=`calcul $Q_pi/40` # # $Z set _____Aduv=+1 # # $Z set _____Bduv=`calcul -1/2` # # $Z set _____Cduv=0 # # $Z set _____SurfaceParam12="PARAMETRE_R2=0.5" # # $Z set _____SurfaceParam1="pu=$PaS_uv1 pv=$PaS_uv1" # # $Z set _____SurfaceParam2="Mu=$Q_pi Mv=$Q_pi pu=$PaS_uv2 pv=$PaS_uv2" # # $Z set _____RotationOX=0.7 # # $Z set _____Zoom=0.9 # # $Z set _____ImageR=$xiirv/KNOT.61.1.1 # # $m4 _____include(_____xiirv/.KNOT.61.1._____U) # # # # :Fin_listG_KNOT_61_1_1: # # # # # # qui montre un noeud "en trefle a une feuille" sur son tore avec un Ruban de Mobius. # v $xiirv/KNOT.61.1.1.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_KNOT_61_1_1_1: # # # # $Z Pal # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/KNOT.61.1.1%s \ # # $Z cache=VRAI \ # # $Z iterations=6 \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xiirv/KNOT.61.1.1.1%s \ # # $Z $formatI" # # # # :Fin_listG_KNOT_61_1_1_1: # # # v $xiirv/KNOT.61.3.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_KNOT_61_3_1: # # # # $Z Pal # # # # $Z set _____SurfaceA=tore.11 # # $Z set _____NombreTours=2 # # $Z set Q_pi=`calcul $_____NombreTours*$dpi` # # $Z set PaS_uv1=`calcul $Q_pi/20` # # $Z set PaS_uv2=`calcul $Q_pi/40` # # $Z set _____Aduv=+1 # # $Z set _____Bduv=`calcul -3/2` # # $Z set _____Cduv=0 # # $Z set _____SurfaceParam12="PARAMETRE_R2=0.5" # # $Z set _____SurfaceParam1="pu=$PaS_uv1 pv=$PaS_uv1" # # $Z set _____SurfaceParam2="Mu=$Q_pi Mv=$Q_pi pu=$PaS_uv2 pv=$PaS_uv2" # # $Z set _____RotationOX=0.7 # # $Z set _____Zoom=0.9 # # $Z set _____ImageR=$xiirv/KNOT.61.3.1 # # $m4 _____include(_____xiirv/.KNOT.61.1._____U) # # # # :Fin_listG_KNOT_61_3_1: # # # # # # qui montre un noeud "en trefle a trois feuilles" sur son tore avec un "super" Ruban de # # Mobius. # v $xiirv/KNOT.61.3.1$IdM # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_KNOT_61_3_1_IdM: # # # # $Z TvB # # # # $Z set _____SurfaceA=tore.11 # # $Z set _____NombreTours=2 # # $Z set Q_pi=`calcul $_____NombreTours*$dpi` # # $Z set PaS_uv1=`calcul $Q_pi/20` # # $Z set PaS_uv2=`calcul $Q_pi/40` # # $Z set _____Aduv=+1 # # $Z set _____Bduv=`calcul -3/2` # # $Z set _____Cduv=0 # # $Z set _____SurfaceParam12="PARAMETRE_R2=0.5" # # $Z set _____SurfaceParam1="pu=$PaS_uv1 pv=$PaS_uv1" # # $Z set _____SurfaceParam2="Mu=$Q_pi Mv=$Q_pi pu=$PaS_uv2 pv=$PaS_uv2" # # $Z set _____RotationOX=0.7 # # $Z set _____Zoom=1.18 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" TRANSLATION_OY=-0.03" # # # # $Z set _____ImageR=$xiirv/KNOT.61.3.1$IdM # # $m4 _____include(_____xiirv/.KNOT.61.1._____U) # # # # :Fin_listG_KNOT_61_3_1_IdM: # # # # # # qui montre un noeud "en trefle a trois feuilles" sur son tore avec un "super" Ruban de # # Mobius. # v $xiirv/KNOT.61.3.1.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_KNOT_61_3_1_1: # # # # $Z Pal # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/KNOT.61.3.1%s \ # # $Z cache=VRAI \ # # $Z iterations=6 \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xiirv/KNOT.61.3.1.1%s \ # # $Z $formatI" # # # # :Fin_listG_KNOT_61_3_1_1: # # # v $xiirv/KNOT.61.5.1 # Generee (sur '$LACT19', puis sur '$LACT1B') par : # # # # # # :Debut_listG_KNOT_61_5_1: # # # # $Z Pal # # # # $Z set _____SurfaceA=tore.11 # # $Z set _____NombreTours=2 # # $Z set Q_pi=`calcul $_____NombreTours*$dpi` # # $Z set PaS_uv1=`calcul $Q_pi/20` # # $Z set PaS_uv2=`calcul $Q_pi/40` # # $Z set _____Aduv=+1 # # $Z set _____Bduv=`calcul -5/2` # # $Z set _____Cduv=0 # # $Z set _____SurfaceParam12="PARAMETRE_R2=0.5" # # $Z set _____SurfaceParam1="pu=$PaS_uv1 pv=$PaS_uv1" # # $Z set _____SurfaceParam2="Mu=$Q_pi Mv=$Q_pi pu=$PaS_uv2 pv=$PaS_uv2" # # # # $Z set _____PasMobius=7 # # # # Par defaut, '$_____PasMobius' vaut 8. Mais pour le noeud "-5/2' cela ne convient pas car, # # en effet, le fichier 'v $xiirv/.KNOT.61.1.$U $FiLeTmP_TORE.2' contient 3192 lignes, or ce # # nombre est egal a 8x3x7x19. Ce nombre est divise par '$_____PasMobius' et si ce dernier # # vaut 8, alors le resultat vaut '$NMobius=399' qui est impair et n'est donc pas divisible # # par 2 ce qui "contrarie" la valeur de '$NMobius12'... # # # # Par contre avec '$_____PasMobius' egal a 7, on a : 3192/7=8x3x19 qui est pair et donc # # divisible par 2 (ceci a ete corrige le 20220518111523)... # # # # $Z set _____RotationOX=0.7 # # $Z set _____Zoom=0.9 # # $Z set _____ImageR=$xiirv/KNOT.61.5.1 # # $m4 _____include(_____xiirv/.KNOT.61.1._____U) # # # # :Fin_listG_KNOT_61_5_1: # # # # # # qui montre un noeud "en trefle a cinq feuilles" sur son tore avec un "super" Ruban de # # Mobius. # v $xiirv/KNOT.61.5.1$IdM # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_KNOT_61_5_1_IdM: # # # # $Z TvB # # # # $Z set _____SurfaceA=tore.11 # # $Z set _____NombreTours=2 # # $Z set Q_pi=`calcul $_____NombreTours*$dpi` # # $Z set PaS_uv1=`calcul $Q_pi/20` # # $Z set PaS_uv2=`calcul $Q_pi/40` # # $Z set _____Aduv=+1 # # $Z set _____Bduv=`calcul -5/2` # # $Z set _____Cduv=0 # # $Z set _____SurfaceParam12="PARAMETRE_R2=0.5" # # $Z set _____SurfaceParam1="pu=$PaS_uv1 pv=$PaS_uv1" # # $Z set _____SurfaceParam2="Mu=$Q_pi Mv=$Q_pi pu=$PaS_uv2 pv=$PaS_uv2" # # $Z set _____PasMobius=7 # # $Z set _____RotationOX=0.7 # # $Z set _____Zoom=1.18 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" TRANSLATION_OY=-0.03" # # # # $Z set _____ImageR=$xiirv/KNOT.61.5.1$IdM # # $m4 _____include(_____xiirv/.KNOT.61.1._____U) # # # # :Fin_listG_KNOT_61_5_1_IdM: # # # # # # qui montre un noeud "en trefle a cinq feuilles" sur son tore avec un "super" Ruban de # # Mobius. # v $xiirv/KNOT.61.5.1.1 # Generee (sur '$LACT19', puis sur '$LACT1B') par : # # # # # # :Debut_listG_KNOT_61_5_1_1: # # # # $Z Pal # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/KNOT.61.5.1%s \ # # $Z cache=VRAI \ # # $Z iterations=6 \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xiirv/KNOT.61.5.1.1%s \ # # $Z $formatI" # # # # :Fin_listG_KNOT_61_5_1_1: # # # v $xiirv/KNOT.61.7.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_KNOT_61_7_1: # # # # $Z Pal # # # # $Z set _____SurfaceA=tore.11 # # $Z set _____NombreTours=2 # # $Z set Q_pi=`calcul $_____NombreTours*$dpi` # # $Z set PaS_uv1=`calcul $Q_pi/20` # # $Z set PaS_uv2=`calcul $Q_pi/40` # # $Z set _____Aduv=+1 # # $Z set _____Bduv=`calcul -7/2` # # $Z set _____Cduv=0 # # $Z set _____SurfaceParam12="PARAMETRE_R2=0.5" # # $Z set _____SurfaceParam1="pu=$PaS_uv1 pv=$PaS_uv1" # # $Z set _____SurfaceParam2="Mu=$Q_pi Mv=$Q_pi pu=$PaS_uv2 pv=$PaS_uv2" # # $Z set _____RotationOX=0.7 # # $Z set _____Zoom=0.9 # # $Z set _____ImageR=$xiirv/KNOT.61.7.1 # # $m4 _____include(_____xiirv/.KNOT.61.1._____U) # # # # :Fin_listG_KNOT_61_7_1: # # # # # # qui montre un noeud "en trefle a sept feuilles" sur son tore avec un "super" Ruban de # # Mobius. # v $xiirv/KNOT.61.7.1$IdM # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_KNOT_61_7_1_IdM: # # # # $Z TvB # # # # $Z set _____SurfaceA=tore.11 # # $Z set _____NombreTours=2 # # $Z set Q_pi=`calcul $_____NombreTours*$dpi` # # $Z set PaS_uv1=`calcul $Q_pi/20` # # $Z set PaS_uv2=`calcul $Q_pi/40` # # $Z set _____Aduv=+1 # # $Z set _____Bduv=`calcul -7/2` # # $Z set _____Cduv=0 # # $Z set _____SurfaceParam12="PARAMETRE_R2=0.5" # # $Z set _____SurfaceParam1="pu=$PaS_uv1 pv=$PaS_uv1" # # $Z set _____SurfaceParam2="Mu=$Q_pi Mv=$Q_pi pu=$PaS_uv2 pv=$PaS_uv2" # # $Z set _____RotationOX=0.7 # # $Z set _____Zoom=1.18 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" TRANSLATION_OY=-0.03" # # # # $Z set _____ImageR=$xiirv/KNOT.61.7.1$IdM # # $m4 _____include(_____xiirv/.KNOT.61.1._____U) # # # # :Fin_listG_KNOT_61_7_1_IdM: # # # # # # qui montre un noeud "en trefle a sept feuilles" sur son tore avec un "super" Ruban de # # Mobius. # v $xiirv/KNOT.61.7.1.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_KNOT_61_7_1_1: # # # # $Z Pal # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/KNOT.61.7.1%s \ # # $Z cache=VRAI \ # # $Z iterations=6 \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xiirv/KNOT.61.7.1.1%s \ # # $Z $formatI" # # # # :Fin_listG_KNOT_61_7_1_1: # # # v $xiirv/KNOT.71 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_KNOT_71: # # # # $Z Pal # # # # $Z set _____ImageR=$xiirv/KNOT.71 # # $m4 _____include(_____xiirv/.KNOT.71.1._____U) # # # # :Fin_listG_KNOT_71: # # # # # # qui montre un noeud "ouvert"... # v $xiirv/KNOT.72 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_KNOT_72: # # # # $Z Pal # # # # $Z set _____Co_X1=0.25 # # $Z set _____Co_X3=0.75 # # $Z set _____Co_Y2=0.25 # # $Z set _____Co_Y3=$_____Co_Y2 # # $Z set _____Co_Y5=0.75 # # $Z set _____Co_Y6=$_____Co_Y5 # # $Z set _____De_X1=-0.9 # # $Z set _____De_X3=+0.9 # # $Z set _____De_Y1=-0.9 # # $Z set _____De_Y3=+0.9 # # $Z set _____ImageR=$xiirv/KNOT.72 # # $m4 _____include(_____xiirv/.KNOT.71.1._____U) # # # # :Fin_listG_KNOT_72: # # # # # # qui montre un noeud "ouvert"... # v $xiirv/KNOT.81.3.1 v $xiirv/KNOT.81.3.2 v $xiirv/KNOT.81.3.21 # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_KNOT_81_3: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET _____SurfaceA=$xrs/tore.11$X # # $Z set Q_pi=`calcul 2*$dpi` # # $Z set PaS_uv=`calcul $Q_pi/40` # # $Z set _____Pu=0.5 # # $Z set _____Pv=0.5 # # $Z set _____Aduv=+1 # # $Z set _____Bduv=`calcul -3/2` # # $Z set _____Cduv=0 # # $Z set _____SurfaceParam1="PARAMETRE_R2=0.5" # # $Z set _____SurfaceParam2="Mu=$Q_pi Mv=$Q_pi pu=$PaS_uv pv=$PaS_uv" # # # # $Z FilSTmpB LiStEPoInTs2 # # # # $Z set _____ImageR=$xTV/KNOT.81.3 # # $m4 _____include(_____xiirv/.KNOT.81.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/KNOT.81.3 # # # # $Z set _____MinX=0.1 # # $Z set _____MaxX=0.9 # # $Z set _____MinY=0.1 # # $Z set _____MaxY=0.9 # # $Z set _____MinZ=0.1 # # $Z set _____MaxZ=0.9 # # $Z set _____DemiPaveX=32 # # $Z set _____DemiPaveY=32 # # $Z set _____DemiPaveZ=32 # # $m4 _____include(_____xiirv/.CARB.D2.1._____U) # # # # $Z FilSTmpE LiStEPoInTs2 # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/KNOT.81.3 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_KNOT_81_3: # # # # # # qui montre un noeud "en trefle a trois feuilles". Cette image, a priori sans interet, # # a ete faite pour verifier les ombres portees d'un objet sur lui-meme... # v $xiirv/KNOT.82.3.1 v $xiirv/KNOT.82.3.2 v $xiirv/KNOT.82.3.21 # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_KNOT_82_3: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET _____SurfaceA=$xrs/tore.11$X # # $Z set Q_pi=`calcul 2*$dpi` # # $Z set PaS_uv=`calcul $Q_pi/40` # # $Z set _____Pu=0.5 # # $Z set _____Pv=0.5 # # $Z set _____Aduv=+1 # # $Z set _____Bduv=`calcul -3/2` # # $Z set _____Cduv=0 # # $Z set _____SurfaceParam1="PARAMETRE_R2=0.5" # # $Z set _____SurfaceParam2="Mu=$Q_pi Mv=$Q_pi pu=$PaS_uv pv=$PaS_uv" # # # # $Z FilSTmpB LiStEPoInTs2 # # # # $Z set _____ImageR=$xTV/KNOT.82.3 # # $m4 _____include(_____xiirv/.KNOT.81.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/KNOT.82.3 # # # # $Z set _____MinX=0.1 # # $Z set _____MaxX=0.9 # # $Z set _____MinY=0.1 # # $Z set _____MaxY=0.9 # # $Z set _____MinZ=0.1 # # $Z set _____MaxZ=0.9 # # $Z set _____DemiPaveX=32 # # $Z set _____DemiPaveY=32 # # $Z set _____DemiPaveZ=32 # # $m4 _____include(_____xiirv/.CARB.D2.1._____U) # # # # $Z FilSTmpE LiStEPoInTs2 # # # # $m4 _____include(_____xiirv/.KNOT.81.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/KNOT.82.3 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_KNOT_82_3: # # # # # # qui montre un noeud "en trefle a trois feuilles". Cette image, a priori sans interet, # # a ete faite pour verifier les ombres portees d'un objet sur lui-meme et sur un # # arriere-plan... # v $xiirv/KNOT.82.3.21.1 p=$xiP/random.15$Fi v $xiirv/KNOT.82.3.21.1 p=$xiP/random.A5 v $xiirv/KNOT.82.3.21.1 p=$xiP/random.B3$Fi v $xiirv/KNOT.82.3.21.1 p=$xiP/random.B7$Fi # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_KNOT_82_3_21_1: # # # # $Z Squ # # # # $Z set _____imagesR=$xiirv/KNOT.82.3.21 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____imagesR \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=225 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____imagesR.1 \ # # $Z $formatI # # # # :Fin_listG_KNOT_82_3_21_1: # # # v $xiirv/KNOT.92.3.1 v $xiirv/KNOT.92.3.2 v $xiirv/KNOT.92.3.21 # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_KNOT_92_3: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET _____SurfaceA=$xrs/tore.11$X # # $Z set Q_pi=`calcul 2*$dpi` # # $Z set PaS_uv=`calcul $Q_pi/40` # # $Z set _____Pu=0.5 # # $Z set _____Pv=0.5 # # $Z set _____Aduv=+1 # # $Z set _____Bduv=`calcul -3/2` # # $Z set _____Cduv=0 # # $Z set _____SurfaceParam1="PARAMETRE_R2=0.5" # # $Z set _____SurfaceParam2="Mu=$Q_pi Mv=$Q_pi pu=$PaS_uv pv=$PaS_uv" # # # # $Z FilSTmpB LiStEPoInTs2 # # # # $Z set _____ImageR=$xTV/KNOT.92.3 # # $m4 _____include(_____xiirv/.KNOT.81.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/KNOT.92.3 # # # # $Z set _____MinX=0.1 # # $Z set _____MaxX=0.9 # # $Z set _____MinY=0.1 # # $Z set _____MaxY=0.9 # # $Z set _____MinZ=0.1 # # $Z set _____MaxZ=0.9 # # $Z set _____DemiPaveX=32 # # $Z set _____DemiPaveY=32 # # $Z set _____DemiPaveZ=32 # # $Z set _____InverserZ=VRAI # # $m4 _____include(_____xiirv/.CARB.D2.1._____U) # # # # $Z FilSTmpE LiStEPoInTs2 # # # # $m4 _____include(_____xiirv/.KNOT.81.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/KNOT.92.3 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_KNOT_92_3: # # # # # # qui montre un noeud "en trefle a trois feuilles". Cette image, a priori sans interet, # # a ete faite pour verifier les ombres portees d'un objet sur lui-meme et sur un # # arriere-plan... # v $xiirv/KNOT.92.3.21.1 p=$xiP/random.15$Fi v $xiirv/KNOT.92.3.21.1 p=$xiP/random.A5 v $xiirv/KNOT.92.3.21.1 p=$xiP/random.B3$Fi v $xiirv/KNOT.92.3.21.1 p=$xiP/random.B7$Fi # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_KNOT_92_3_21_1: # # # # $Z Squ # # # # $Z set _____imagesR=$xiirv/KNOT.92.3.21 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____imagesR \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=225 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____imagesR.1 \ # # $Z $formatI # # # # :Fin_listG_KNOT_92_3_21_1: # # # v $xiirv/KNOT.92.4.1 v $xiirv/KNOT.92.4.2 v $xiirv/KNOT.92.4.21 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_KNOT_92_4: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z SET _____SurfaceA=$xrs/tore.11$X # # $Z set Q_pi=`calcul 2*$dpi` # # $Z set PaS_uv=`calcul $Q_pi/40` # # $Z set _____Pu=0.5 # # $Z set _____Pv=0.5 # # $Z set _____Aduv=+1 # # $Z set _____Bduv=`calcul -3/2` # # $Z set _____Cduv=0 # # $Z set _____SurfaceParam1="PARAMETRE_R2=0.5" # # $Z set _____SurfaceParam2="Mu=$Q_pi Mv=$Q_pi pu=$PaS_uv pv=$PaS_uv" # # # # $Z FilSTmpB LiStEPoInTs2 # # # # $Z set _____ImageR=$xTV/KNOT.92.4 # # $m4 _____include(_____xiirv/.KNOT.81.1._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/KNOT.92.4 # # # # $Z set _____MinX=0.1 # # $Z set _____MaxX=0.9 # # $Z set _____MinY=0.1 # # $Z set _____MaxY=0.9 # # $Z set _____MinZ=0.1 # # $Z set _____MaxZ=0.9 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $Z set _____InverserZ=VRAI # # $m4 _____include(_____xiirv/.CARB.D2.1._____U) # # # # $Z FilSTmpE LiStEPoInTs2 # # # # $m4 _____include(_____xiirv/.KNOT.81.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.3 # # $Z set _____imagesR=$xiirv/KNOT.92.4 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_KNOT_92_4: # # # # # # qui montre un noeud "en trefle a trois feuilles". Cette image, a priori sans interet, # # a ete faite pour verifier les ombres portees d'un objet sur lui-meme et sur un # # arriere-plan... # # # # On notera que 'v $xiirv/KNOT.92.3.21' ne subit pas de rotation, alors que cette image # # ('v $xiirv/KNOT.92.4.21') en subit une ($_____RotationX=+0.3). # # # # L'arriere-plan est coupe tres certainement parce que lors de la rotation, il sort en # # partie de la "boite cubique" qui definit l'espace... # v $xiirv/KNOT.A1 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_KNOT_A1: # # # # $Z Sdu # # # # $Z set _____ImagesR=$xiirv/KNOT.A1 # # $m4 _____include(_____xiirv/.KNOT.A1.1._____U) # # # # :Fin_listG_KNOT_A1: # # # # # # Il s'agit d'une visualisation d'un noeud aleatoire... # v $xiirv/KNOT.A1.1.1 v $xiirv/KNOT.A1.1.2 v $xiirv/KNOT.A1.1.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_KNOT_A1_1: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z FileTmpB FLiStEP # # # # $Z set _____ParticuleParaC="$K_VIDE" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" centrer_coordonnees=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" centre_des_spheres=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" lister_les_points=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $FLiStEP" # # # # $Z set _____Zoom=0.5 # # $Z set _____ImagesR=$xTV/KNOT.A1.1 # # $m4 _____include(_____xiirv/.KNOT.A1.1._____U) # # # # $Z SET _____NormaliserX=$EXIST # # $Z SET _____MinNormaliserX=+0.05 # # $Z SET _____MaxNormaliserX=+0.90 # # $Z SET _____NormaliserY=$EXIST # # $Z SET _____MinNormaliserY=+0.05 # # $Z SET _____MaxNormaliserY=+0.95 # # $Z SET _____NormaliserZ=$EXIST # # $Z SET _____MinNormaliserZ=+0.20 # # $Z SET _____MaxNormaliserZ=+0.80 # # $Z set _____DemiPave=32 # # $Z set _____ImageT1=$xTV/KNOT.A1 # # $m4 _____include(_____xiirv/.NDIM.43.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/KNOT.A1.1 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # :Fin_listG_KNOT_A1_1: # # # # # # Il s'agit d'une visualisation d'un noeud aleatoire... # # # # # # Pour information, voici les durees intermediaires : # # # # $xrv/store_album$X : 00:00:23 # # # # $xci/ombrage.11$X : 00:14:45 # # # # $xci/accumule.42$X : 00:13:33 # # # v $xiirv/KNOT.A1.2.1 v $xiirv/KNOT.A1.2.2 v $xiirv/KNOT.A1.2.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_KNOT_A1_2: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$MdimXY # # # # $Z FileTmpB FLiStEP # # # # $Z set _____ParticuleParaC="$K_VIDE" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" centrer_coordonnees=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" centre_des_spheres=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" lister_les_points=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" lister_les_points_apres=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >>! $FLiStEP" # # # # $Z set _____Zoom=0.5 # # $Z set _____ImagesR=$xTV/KNOT.A1.2 # # $m4 _____include(_____xiirv/.KNOT.A1.1._____U) # # # # $Z SET _____NormaliserX=$EXIST # # $Z SET _____MinNormaliserX=+0.05 # # $Z SET _____MaxNormaliserX=+0.90 # # $Z SET _____NormaliserY=$EXIST # # $Z SET _____MinNormaliserY=+0.05 # # $Z SET _____MaxNormaliserY=+0.95 # # $Z SET _____NormaliserZ=$EXIST # # $Z SET _____MinNormaliserZ=+0.20 # # $Z SET _____MaxNormaliserZ=+0.80 # # $Z set _____DemiPave=8 # # $Z set _____ImageT1=$xTV/KNOT.A1 # # $m4 _____include(_____xiirv/.NDIM.43.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/KNOT.A1.2 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # :Fin_listG_KNOT_A1_2: # # # # # # Il s'agit d'une visualisation d'un noeud aleatoire... # # # # # # Pour information, voici les durees intermediaires : # # # # $xrv/store_album$X : 00:00:07 # # # # $xci/ombrage.11$X : 00:04:37 # # # # $xci/accumule.42$X : 00:08:16 # # # v $xiirv/KNOT.B1.7.1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_KNOT_B1_7_1: # # # # $Z Pal # # # # $Z set _____SurfaceA=tore.11 # # $Z set Q_pi=`calcul 2*$dpi` # # $Z set PaS_uv=`calcul $Q_pi/40` # # $Z set _____Aduv=+1 # # $Z set _____Bduv=`calcul -7/2` # # $Z set _____Cduv=0 # # $Z set _____SurfaceParam1="PARAMETRE_R2=0.5" # # $Z set _____SurfaceParam2="Mu=$Q_pi Mv=$Q_pi pu=$PaS_uv pv=$PaS_uv" # # $Z set _____RayonDroite=0.100 # # $Z set _____Zoom=0.8 # # $Z set _____ImageR=$xiirv/KNOT.B1.7.1 # # $m4 _____include(_____xiirv/.KNOT.31.1._____U) # # # # :Fin_listG_KNOT_B1_7_1: # # # # # # qui montre une tapisserie faite de noeuds "en trefle a sept feuilles"... # v $xiirv/KNOT.B1.7.2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_KNOT_B1_7_2: # # # # $Z Pal # # # # $Z $xci/color_NB.01$Z \ # # $Z $xiirv/KNOT.B1.7.1 \ # # $Z $xiirv/KNOT.B1.7.2 \ # # $Z $xiP/roug0_jaun0 \ # # $Z $xiP/gris.01 \ # # $Z FAUX \ # # $Z $xci/gauss$X \ # # $Z "c=4" # # # # :Fin_listG_KNOT_B1_7_2: # # # # # # qui montre une tapisserie faite de noeuds "en trefle a sept feuilles"... # v $xiirv/KSOL.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_KSOL_11: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/KSOL.11 # # $m4 _____include(_____xiirv/.KSOL.11.1._____U) # # # # :Fin_listG_KSOL_11: # # # # # v $xiirv/KSOL.12 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_KSOL_12: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Zmin=0 # # $Z set _____Zmax=0.2 # # $Z set _____DZmin=-1 # # $Z set _____DZmax=+1 # # $Z set _____Zoom=1.0 # # $Z set _____Rmin=0.010 # # $Z set _____Rmax=0.040 # # $Z set _____Palette=$xiP/enfer.13 # # # # $Z set _____ImageR=$xiirv/KSOL.12 # # $m4 _____include(_____xiirv/.KSOL.11.1._____U) # # # # :Fin_listG_KSOL_12: # # # # # v $xiirv/KSOL.12$m # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_KSOL_12_m: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesA=$xiirv/KSOL.12 # # $Z set _____imagesR=$_____imagesA$m # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____imagesA \ # # $Z R=$xTV/KSOL.12$LUMIN \ # # $Z $formatI # # # # $Z set TrAnSlAtIoNs=`$xci/extremaXY$X A=$xTV/KSOL.12$LUMIN $formatI Prme=VRAI` # # # # $Z execRVB $xci/scroll$X \ # # $Z A=$_____imagesA%s \ # # $Z toreX=FAUX \ # # $Z $TrAnSlAtIoNs \ # # $Z R=$xTV/KSOL.12.1%s \ # # $Z $formatI # # # # $Z set NPoInTs=9 # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$xTV/KSOL.12.1%s \ # # $Z points=`calcul $NPoInTs*$NPoInTs` \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$xTV/KSOL.12.2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/KSOL.12.2 \ # # $Z R=$xTV/KSOL.12.9 \ # # $Z $formatI # # # # $Z $xci/tapisserie$X \ # # $Z A=$xTV/KSOL.12.9 \ # # $Z iterations=8 \ # # $Z cache=VRAI \ # # $Z anti_aliaser=FAUX \ # # $Z echelle=VRAI a=0.6 \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xTV/KSOL.12.3.1 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/KSOL.12.3.1 \ # # $Z p=$xiP/enfer.03 \ # # $Z R=$xTV/KSOL.12.3.2 \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/KSOL.12.3.1 \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z navap=VRAI \ # # $Z passes=4 \ # # $Z R=$xTV/KSOL.12.3.3 \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/KSOL.12.3.3 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/KSOL.12.3.2%s \ # # $Z avion=VRAI \ # # $Z Sy=20 \ # # $Z R=$_____imagesR%s \ # # $Z $formatI" # # # # :Fin_listG_KSOL_12_m: # # # v $xiirv/KSOL.12$m.1 v $xiirv/KSOL.12$m.1$COORD_X p=$xiP/cercle.35 v $xiirv/KSOL.12$m.1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT1B) par : # # # # # # :Debut_listG_KSOL_12_m_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____imagesA=$xiirv/KSOL.12$m # # $Z set _____imagesR=$_____imagesA.1 # # # # $Z set _____Ct=3 # # $Z set _____m=0.4 # # # # $Z execRVB $xci/acces$X \ # # $Z A=$_____imagesA%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ct=$_____Ct \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ct=$_____Ct \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=$_____m mxy=0 mxz=0 \ # # $Z myx=0 myy=$_____m myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/transpose$X \ # # $Z R=$_____imagesR%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX zero=FAUX \ # # $Z R=$_____imagesR$COORD_X \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX zero=FAUX \ # # $Z R=$_____imagesR$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_KSOL_12_m_1: # # # # # # Cette "rosace" pour Notre-Dame est inspiree de la deformation du fond paradoxal utilise # # dans l'image 'v $xiirs/BKLN.5B'... # v $xiirv/LABY.01 p=$xiP/gris.01 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_LABY_01: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z set LaByRiNtHe="$K_VIDE" # # $Z set LaByRiNtHe="$LaByRiNtHe""=1111L1G11,2" # # $Z set LaByRiNtHe="$LaByRiNtHe""=1111K1F11,2" # # $Z set LaByRiNtHe="$LaByRiNtHe""=11C1J1E11,2" # # $Z set LaByRiNtHe="$LaByRiNtHe""=H1B1I1D1A,2" # # $Z set _____ImageR=$xiirv/LABY.01 # # # # $Z $xci/message$X \ # # $Z A=$NOIR \ # # $Z message="$LaByRiNtHe" \ # # $Z bibliotheque=04 \ # # $Z taille=10 \ # # $Z centrer=VRAI \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_LABY_01: # # # # # # qui montre le generateur de labyrinthes... # v $xiirv/LABY.11 p=$xiP/gris.01 v $xiirv/LABY.11.1 v $xiirv/LABY.11.1.narrow v $xiirv/LABY.11.1.wide # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_LABY_11: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Liste=(A B C D E F G A B C D E F G A B C D E F G) # # $Z set _____ImageR=$xiirv/LABY.11 # # $m4 _____include(_____xiirv/.LABY.11.1._____U) # # # # :Fin_listG_LABY_11: # # # # # # qui montre un labyrinthe dont les zones connexes sont coloriees de la meme couleur... # # # # On notera que '$xci/passe_bande$X sinf=12 ssup=18' applique au resultat du remplissage # # des contours par '$xci/contours.22$X' donne un beau sous-labyrinthe connexe qui percole # # de bas en haut (ou de haut en bas...). # v $xiirv/LABY.12 p=$xiP/gris.01 v $xiirv/LABY.12.1 v $xiirv/LABY.12.1.narrow v $xiirv/LABY.12.1.wide v $xiirv/LABY.12.1$m v $xiirv/LABY.12.1$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_LABY_12: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Liste=(A B C D E F G) # # $Z set _____Taille=18 # # $Z set _____Dilatation=49 # # $Z set _____ImageR=$xiirv/LABY.12 # # $m4 _____include(_____xiirv/.LABY.11.1._____U) # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR.1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z normaliser_avant_apres=VRAI \ # # $Z passes=0 \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$_____ImageR.1%s \ # # $Z avion=VRAI \ # # $Z Sy=50 \ # # $Z R=$_____ImageR.1$m%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$_____ImageR.1%s \ # # $Z avion=FAUX \ # # $Z Sy=5 \ # # $Z echelle=0.1 \ # # $Z Ty=0.94 \ # # $Z R=$_____ImageR.1$M%s \ # # $Z $formatI # # # # :Fin_listG_LABY_12: # # # # # # qui montre un labyrinthe dont les zones connexes sont coloriees de la meme couleur... # v $xiirv/LABY.21 p=$xiP/gris.01 v $xiirv/LABY.21.1 v $xiirv/LABY.21.1.narrow v $xiirv/LABY.21.1.wide # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_LABY_21: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Liste=(A B C D E F G I J K L A B C D E F G I J K L) # # $Z set _____Taille=5 # # $Z set _____ImageR=$xiirv/LABY.21 # # $m4 _____include(_____xiirv/.LABY.11.1._____U) # # # # :Fin_listG_LABY_21: # # # # # # qui montre un labyrinthe dont les zones connexes sont coloriees de la meme couleur... # v $xiirv/LABY.31 p=$xiP/gris.01 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_LABY_31: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z set LaByRiNtHe="$K_VIDE" # # $Z set LaByRiNtHe="$LaByRiNtHe""=LBBBBBBBI," # # $Z set LaByRiNtHe="$LaByRiNtHe""=CLBBBBBIC," # # $Z set LaByRiNtHe="$LaByRiNtHe""=CCLBBBICC," # # $Z set LaByRiNtHe="$LaByRiNtHe""=CCCHBICCC," # # $Z set LaByRiNtHe="$LaByRiNtHe""=CCKBBJCCC," # # $Z set LaByRiNtHe="$LaByRiNtHe""=CKBBBBJCC," # # $Z set LaByRiNtHe="$LaByRiNtHe""=CBBBBBBJC," # # # # $Z set _____ImageR=$xiirv/LABY.31 # # # # $Z $xci/message$X \ # # $Z A=$NOIR \ # # $Z message="$LaByRiNtHe" \ # # $Z bibliotheque=04 \ # # $Z taille=15 \ # # $Z centrer=VRAI \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_LABY_31: # # # # # # qui montre un labyrinthe "spirale"... # v $xiirv/LABY.43.01 p=$xiP/gris.01 v $xiirv/LABY.43.02 p=$xiP/gris.01 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_LABY_43: # # # # $Z alias genere 'set ImAgE=\!:1 ; set MeSsAgE="\!:2*" ; \\ # # $Z $xci/message$X \\ # # $Z A=$NOIR \\ # # $Z message="$MeSsAgE" \\ # # $Z niveau_message1=$BLANC \\ # # $Z niveau_message2=$BLANC \\ # # $Z niveau_fond=$NOIR \\ # # $Z niveau_message=$BLANC \\ # # $Z bibliotheque=04 \\ # # $Z taille=14 anti_aliasing=VRAI \\ # # $Z centrer=FAUX $XY_TrAnSlAtIoN \\ # # $Z R=$xiirv/LABY.$ImAgE \\ # # $Z $formatI ; \\ # # $Z unset ImAgE MeSsAgE' # # # # $Z Std # # # # $Z set XY_TrAnSlAtIoN="X=0.020 Y=0.085" # # # # $Z set SPaRaDoXaLe="$K_VIDE" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""A1B1C1D33333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""1E1F1G3333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""H1I1J1K33333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""1L1M1N3333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""O1P1Q1R33333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""111S113333332" # # $Z genere 43.01 $SPaRaDoXaLe # # # # $Z set SPaRaDoXaLe="$K_VIDE" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""E1F1G1D33333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""1B1H1C3333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""I1J1K1L33333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""1A1R1S3333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""O1P1M1N33333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""111Q113333332" # # $Z genere 43.02 $SPaRaDoXaLe # # # # :Fin_listG_LABY_43: # # # # # # ou l'image '$xiirv/LABY.43.01' donne un catalogue de 19 formes labyrinthiques. # v $xiirv/LABY.43.02.sA p=$xiP/gris.01 v $xiirv/LABY.43.02.sB p=$xiP/gris.01 v $xiirv/LABY.43.02.sC p=$xiP/gris.01 v $xiirv/LABY.43.02.sD p=$xiP/gris.01 v $xiirv/LABY.43.02.sE p=$xiP/gris.01 v $xiirv/LABY.43.02.sF p=$xiP/gris.01 v $xiirv/LABY.43.02.sG p=$xiP/gris.01 v $xiirv/LABY.43.02.sH p=$xiP/gris.01 v $xiirv/LABY.43.02.sI p=$xiP/gris.01 v $xiirv/LABY.43.02.sJ p=$xiP/gris.01 v $xiirv/LABY.43.02.sK p=$xiP/gris.01 v $xiirv/LABY.43.02.sL p=$xiP/gris.01 v $xiirv/LABY.43.02.sM p=$xiP/gris.01 v $xiirv/LABY.43.02.sN p=$xiP/gris.01 v $xiirv/LABY.43.02.sO p=$xiP/gris.01 v $xiirv/LABY.43.02.sP p=$xiP/gris.01 v $xiirv/LABY.43.02.sQ p=$xiP/gris.01 v $xiirv/LABY.43.02.sR p=$xiP/gris.01 v $xiirv/LABY.43.02.sS p=$xiP/gris.01 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_LABY_43_02_s: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/LABY.43.02.s # # # # $Z source $xrd/graph.01$vv$Y # # # # $Z set BMoTiF=4 # # # # $Z alias genere 'set MoTiF=\!:1 ; \\ # # $Z $xci/message$X \\ # # $Z A=$NOIR \\ # # $Z message="=""$MoTiF""." \\ # # $Z niveau_message1=$BLANC \\ # # $Z niveau_message2=$BLANC \\ # # $Z niveau_fond=$NOIR \\ # # $Z niveau_message=$BLANC \\ # # $Z bibliotheque=$BMoTiF \\ # # $Z centrer=VRAI \\ # # $Z anti_aliasing=VRAI \\ # # $Z taille=102 \\ # # $Z $formatI | \\ # # $Z $xci/dilate.01$X \\ # # $Z dilater=VRAI \\ # # $Z R=$_____ImageR$MoTiF \\ # # $Z $formatI ; \\ # # $Z unset MoTiF' # # # # $Z genere A # # $Z genere B # # $Z genere C # # $Z genere D # # $Z genere E # # $Z genere F # # $Z genere G # # $Z genere H # # $Z genere I # # $Z genere J # # $Z genere K # # $Z genere L # # $Z genere M # # $Z genere N # # $Z genere O # # $Z genere P # # $Z genere Q # # $Z genere R # # $Z genere S # # # # :Fin_listG_LABY_43_02_s: # # # v $xiirv/LARS.11 v $xiirv/LARS.11$COORD_X p=$xiP/cercle.35 v $xiirv/LARS.11$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_LARS_11: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=1 B=0 C=0 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=0 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.52%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z SET AnGlE=0.1 # # $Z SET CoSiNuS=`calculNS cos($AnGlE)` # # $Z SET SiNuS=`calculNS sin($AnGlE)` # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z transformation=VRAI \ # # $Z mxx=+$CoSiNuS mxy=-$SiNuS \ # # $Z myx=+$SiNuS myy=+$CoSiNuS \ # # $Z iterations=100 \ # # $Z ponderationA=1 ponderationR=1 \ # # $Z periodiser_X2D=FAUX \ # # $Z periodiser_Y2D=FAUX \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/LARS.11 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/LARS.11$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/LARS.11$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_LARS_11: # # # # # # Il s'agit de la premiere experience d'effet Larsen... # v $xiirv/LARS.21 v $xiirv/LARS.21$COORD_X p=$xiP/cercle.35 v $xiirv/LARS.21$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_LARS_21: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=1 B=0 C=0 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=0 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.71%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z SET AnGlE=0.1 # # $Z SET RaPpOrT=0.9 # # $Z SET CoSiNuS=`calculNS cos($AnGlE)/$RaPpOrT` # # $Z SET SiNuS=`calculNS sin($AnGlE)/$RaPpOrT` # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z transformation=VRAI \ # # $Z mxx=+$CoSiNuS mxy=-$SiNuS \ # # $Z myx=+$SiNuS myy=+$CoSiNuS \ # # $Z iterations=50 \ # # $Z ponderationA=1 ponderationR=0.9 \ # # $Z periodiser_X2D=FAUX \ # # $Z periodiser_Y2D=FAUX \ # # $Z arithmetique_etendue_interpolation=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/LARS.21 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/LARS.21$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/LARS.21$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_LARS_21: # # # # # # On notera que : # # # # iterations 50 # # ponderationR = 0.9 = 0.005 ~ 1/COULEURS # # # # ce qui garantit l'utilisation de toutes les iterations au niveau de 'v $xiirv/LARS.21'... # v $xiirv/LARS.31 v $xiirv/LARS.31$COORD_X p=$xiP/cercle.35 v $xiirv/LARS.31$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_LARS_31: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=1 B=0 C=0 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=0 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.H1%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z SET AnGlE=0.1 # # $Z SET RaPpOrT=0.9 # # $Z SET CoSiNuS=`calculNS cos($AnGlE)/$RaPpOrT` # # $Z SET SiNuS=`calculNS sin($AnGlE)/$RaPpOrT` # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z transformation=VRAI \ # # $Z mxx=+$CoSiNuS mxy=-$SiNuS \ # # $Z myx=+$SiNuS myy=+$CoSiNuS \ # # $Z iterations=50 \ # # $Z ponderationA=1 ponderationR=0.9 \ # # $Z periodiser_X2D=FAUX \ # # $Z periodiser_Y2D=FAUX \ # # $Z arithmetique_etendue_interpolation=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/LARS.31%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/LARS.31$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/LARS.31$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_LARS_31: # # # # # # On notera que : # # # # iterations 50 # # ponderationR = 0.9 = 0.005 ~ 1/COULEURS # # # # ce qui garantit l'utilisation de toutes les iterations au niveau de 'v $xiirv/LARS.31'... # v $xiirv/LARS.41 v $xiirv/LARS.41$COORD_X p=$xiP/cercle.35 v $xiirv/LARS.41$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_LARS_41: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=1 B=0 C=0 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=0 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirs/PROJ.82.11.4%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z SET AnGlE=0.1 # # $Z SET RaPpOrT=0.9 # # $Z SET CoSiNuS=`calculNS cos($AnGlE)/$RaPpOrT` # # $Z SET SiNuS=`calculNS sin($AnGlE)/$RaPpOrT` # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z transformation=VRAI \ # # $Z mxx=+$CoSiNuS mxy=-$SiNuS \ # # $Z myx=+$SiNuS myy=+$CoSiNuS \ # # $Z iterations=50 \ # # $Z ponderationA=1 ponderationR=0.9 \ # # $Z periodiser_X2D=FAUX \ # # $Z periodiser_Y2D=FAUX \ # # $Z arithmetique_etendue_interpolation=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/LARS.41%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/LARS.41$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/LARS.41$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_LARS_41: # # # # # # On notera que : # # # # iterations 50 # # ponderationR = 0.9 = 0.005 ~ 1/COULEURS # # # # ce qui garantit l'utilisation de toutes les iterations au niveau de 'v $xiirv/LARS.41'... # v $xiirv/LARS.41$m # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_LARS_41_m: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z execRVB $xci/filtre.01$X \ # # $Z A=$xiirv/LARS.41%s \ # # $Z N=$xTV/GAUSS \ # # $Z seuil=240 \ # # $Z R=$xTV/LARS.41$Fi%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/LARS.41$Fi \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=100 \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/LARS.41$Fi%s \ # # $Z avion=VRAI \ # # $Z R=$xiirv/LARS.41$m%s \ # # $Z $formatI # # # # :Fin_listG_LARS_41_m: # # # v $xiirv/LEGE.11 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_LEGE_11: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/LEGE.11 # # $m4 _____include(_____xiirv/.LEGE.11.1._____U) # # # # :Fin_listG_LEGE_11: # # # # # # Visualisation de la conjecture de Legendre pour n E [1,50] et donc dans [1,2601]. # v $xiirv/LEGE.11.1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_LEGE_11_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Alignement_n_=( 4 5 6 7 8 9 10) # # $Z set _____Alignement_np=(23 31 41 53 67 83 101) # # $Z set _____Palette=$xiP/arc_ciel.M5 # # $Z set _____ImageR=$xiirv/LEGE.11.1 # # $m4 _____include(_____xiirv/.LEGE.11.1._____U) # # # # :Fin_listG_LEGE_11_1: # # # # # # Visualisation de la conjecture de Legendre pour n E [1,50] et donc dans [1,2601] avec # # visualisation d'un alignement... # v $xiirv/LEGE.11.2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_LEGE_11_2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Alignement_n_=( 6 7 8 9 10 11 12 13 14 15 16) # # $Z set _____Alignement_np=(47 59 73 89 107 127 149 173 199 227 257) # # $Z set _____Palette=$xiP/arc_ciel.M5 # # $Z set _____ImageR=$xiirv/LEGE.11.2 # # $m4 _____include(_____xiirv/.LEGE.11.1._____U) # # # # :Fin_listG_LEGE_11_2: # # # # # # Visualisation de la conjecture de Legendre pour n E [1,50] et donc dans [1,2601] avec # # visualisation d'un alignement... # v $xiirv/LEGE.11.3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_LEGE_11_3: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Alignement_n_=($K_VIDE) # # $Z set _____Alignement_n_=($_____Alignement_n_ 14 15 16 17 18 19 20 21) # # $Z set _____Alignement_n_=($_____Alignement_n_ 22 23 24 25 26 27 28 29) # # $Z set _____Alignement_n_=($_____Alignement_n_ 30 31 32 33 34 35 36 37 38 39 40) # # # # $Z set _____Alignement_np=($K_VIDE) # # $Z set _____Alignement_np=($ _____Alignement_np 223 251 281 313 347 383 421 461) # # $Z set _____Alignement_np=($ _____Alignement_np 503 547 593 641 691 743 797 853) # # $Z set _____Alignement_np=($ _____Alignement_np 911 971 1033 1097 1163 1231 1301) # # $Z set _____Alignement_np=($ _____Alignement_np 1373 1447 1523 1601) # # # # $Z set _____Palette=$xiP/arc_ciel.M5 # # $Z set _____ImageR=$xiirv/LEGE.11.3 # # $m4 _____include(_____xiirv/.LEGE.11.1._____U) # # # # :Fin_listG_LEGE_11_3: # # # # # # Visualisation de la conjecture de Legendre pour n E [1,50] et donc dans [1,2601] avec # # visualisation d'un alignement... # v $xiirv/LEGE.12 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_LEGE_12: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____NombreNombresPremiers=5000 # # $Z set _____NombreIntervalles=200 # # $Z set _____Rayon1=0.002 # # $Z set _____Rayon2=0.004 # # $Z set _____ImageR=$xiirv/LEGE.12 # # $m4 _____include(_____xiirv/.LEGE.11.1._____U) # # # # :Fin_listG_LEGE_12: # # # # # # Visualisation de la conjecture de Legendre pour n E [1,200] et donc dans [1,40401]. # v $xiirv/LIBE.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_LIBE_11: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/LIBE.11 # # # # $Z $xci/random.02$X \ # # $Z graine=1947 \ # # $Z seuil=0.0001 \ # # $Z R=$xTV/RANDOM \ # # $Z $formatI # # # # $Z $xci/distance.02$X \ # # $Z A1=$NOIR \ # # $Z A2=$xTV/RANDOM \ # # $Z points=$tailleI \ # # $Z circulaire=VRAI \ # # $Z different=VRAI \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z $formatI | \ # # $Z $xci/scale$X \ # # $Z a=0.8 \ # # $Z R=$_____ImageR$ROUGE \ # # $Z $formatI # # # # $Z $xci/dilate.01$X \ # # $Z A=$xTV/RANDOM \ # # $Z points=81 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=25 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____ImageR$VERTE \ # # $Z $formatI # # # # $Z $xci/neutre$X \ # # $Z A=$_____ImageR$VERTE \ # # $Z R=$_____ImageR$BLEUE \ # # $Z $formatI # # # # :Fin_listG_LIBE_11: # # # v $xiirv/LUMI.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_LUMI_11: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z set _____Palette=$xiP/cercle.K3 # # $Z set _____ImageR=$xiirv/LUMI.11 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiio/MIRE \ # # $Z p=$_____Palette \ # # $Z R=$xTV/MIRE.1 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/MIRE.1 \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/gris.01 \ # # $Z R=$xTV/MIRE.2 \ # # $Z $formatI # # # # $Z execRVB "$xci/scroll$X \ # # $Z A=$xTV/MIRE.1%s \ # # $Z trY=+0.5 \ # # $Z toreY=FAUX \ # # $Z $formatI | \ # # $Z $xci/scroll$X \ # # $Z trY=-0.5 \ # # $Z toreY=FAUX \ # # $Z R=$xTV/MIRE.1%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/scroll$X \ # # $Z A=$xTV/MIRE.2%s \ # # $Z trY=-0.5 \ # # $Z toreY=FAUX \ # # $Z $formatI | \ # # $Z $xci/scroll$X \ # # $Z trY=+0.5 \ # # $Z toreY=FAUX \ # # $Z R=$xTV/MIRE.2%s \ # # $Z $formatI" # # # # $Z execRVB $xci/or_02$X \ # # $Z A1=$xTV/MIRE.1%s \ # # $Z A2=$xTV/MIRE.2%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_LUMI_11: # # # v $xiirv/LUMI.21 v $xiirv/LUMI.21$LUMIN p=$xiP/gris.01 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_LUMI_21: # # # # $Z Std # # # # $Z set _____ImagesR=$xiirv/LUMI.21 # # # # $Z $xci/vraies_C_aleatoires$X \ # # $Z A=$xiio/MIRE \ # # $Z selection_aleatoire_index=FAUX \ # # $Z R=$_____ImagesR \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImagesR \ # # $Z R=$_____ImagesR$LUMIN \ # # $Z $formatI # # # # :Fin_listG_LUMI_21: # # # # # # Image montrant le passage de la luminance aux vraies couleurs... # v $xiirv/LUMI.22 v $xiirv/LUMI.22$LUMIN p=$xiP/gris.01 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_LUMI_22: # # # # $Z Std # # # # $Z set _____ImagesR=$xiirv/LUMI.22 # # # # $Z $xci/vraies_C_aleatoires$X \ # # $Z A=$xiio/MIRE \ # # $Z selection_aleatoire_index=VRAI \ # # $Z R=$_____ImagesR \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImagesR \ # # $Z R=$_____ImagesR$LUMIN \ # # $Z $formatI # # # # :Fin_listG_LUMI_22: # # # # # # Image montrant le passage de la luminance aux vraies couleurs... # v $xiirv/LUMI.31 v $xiirv/LUMI.31$LUMIN p=$xiP/gris.01 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_LUMI_31: # # # # $Z Pal # # # # $Z set _____ImagesA=$xiit/JFC.F1.F2 # # $Z set _____ImagesR=$xiirv/LUMI.31 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImagesA \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/marches.07 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z $formatI | \ # # $Z $xci/vraies_C_aleatoires$X \ # # $Z selection_aleatoire_index=FAUX \ # # $Z repetitions=5000 \ # # $Z R=$_____ImagesR \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImagesR \ # # $Z R=$_____ImagesR$LUMIN \ # # $Z $formatI # # # # :Fin_listG_LUMI_31: # # # # # # Image montrant le passage de la luminance aux vraies couleurs... # v $xiirv/LUNETTES.11$STEREO # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_LUNETTES_11_STEREO: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/LUNETTES.11 # # # # $Z source $xci/anaglyphe.31$Y # # # # $Z $xci/gauss$X \ # # $Z TRANSLATION_OX=+0.30 \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z seuil=$GRIS_5 \ # # $Z R=$xTV/OEIL$GAUCHE \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z TRANSLATION_OX=-0.30 \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z seuil=$GRIS_5 \ # # $Z R=$xTV/OEIL$DROITE \ # # $Z $formatI # # # # $Z $xci/init$X \ # # $Z niveau=$NiveauGR \ # # $Z $formatI | \ # # $Z $xci/and$X \ # # $Z A2=$xTV/OEIL$GAUCHE \ # # $Z R=$xTV/OEIL$GAUCHE$ROUGE \ # # $Z $formatI # # # # $Z $xci/init$X \ # # $Z niveau=$NiveauGV \ # # $Z $formatI | \ # # $Z $xci/and$X \ # # $Z A2=$xTV/OEIL$GAUCHE \ # # $Z R=$xTV/OEIL$GAUCHE$VERTE \ # # $Z $formatI # # # # $Z $xci/init$X \ # # $Z niveau=$NiveauGB \ # # $Z $formatI | \ # # $Z $xci/and$X \ # # $Z A2=$xTV/OEIL$GAUCHE \ # # $Z R=$xTV/OEIL$GAUCHE$BLEUE \ # # $Z $formatI # # # # $Z $xci/init$X \ # # $Z niveau=$NiveauDR \ # # $Z $formatI | \ # # $Z $xci/and$X \ # # $Z A2=$xTV/OEIL$DROITE \ # # $Z R=$xTV/OEIL$DROITE$ROUGE \ # # $Z $formatI # # # # $Z $xci/init$X \ # # $Z niveau=$NiveauDV \ # # $Z $formatI | \ # # $Z $xci/and$X \ # # $Z A2=$xTV/OEIL$DROITE \ # # $Z R=$xTV/OEIL$DROITE$VERTE \ # # $Z $formatI # # # # $Z $xci/init$X \ # # $Z niveau=$NiveauDB \ # # $Z $formatI | \ # # $Z $xci/and$X \ # # $Z A2=$xTV/OEIL$DROITE \ # # $Z R=$xTV/OEIL$DROITE$BLEUE \ # # $Z $formatI # # # # $Z execRVB $xci/or_02$X \ # # $Z A1=$xTV/OEIL$GAUCHE%s \ # # $Z A2=$xTV/OEIL$DROITE%s \ # # $Z R=$_____ImageR$STEREO%s \ # # $Z $formatI # # # # :Fin_listG_LUNETTES_11_STEREO: # # # # # # Cette image montre ce qu'est une paire de lunette anaglyphique. # v $xiirv/LYAP.11 # Pour plus d'informations sur cette image, voir les commentaires de la sequence video : # # # # xivPdf 2 1 / 008728_008855 # # # # cette image en etant la premiere. # v $xiirv/LYAP.21 # Pour plus d'informations sur cette image, voir les commentaires de la sequence video : # # # # xivPdf 2 1 / 010104_010231 # # # # cette image en etant la premiere. # v $xiirv/LYAP.22 v $xiirv/LYAP.32 # Cette image a ete generee par : # # # # alias accum '$xci/accumule.01$X A=$xw1/LYAP.1 postfixe=\!* \\ # # premiere=1 derniere=128 pas=1 \\ # # $formatI | \\ # # $xci/acces$X R=$xiirv/LYAP.22\!* renormaliser=VRAI $formatI ; \\ # # ro $xiirv/LYAP.22\!*' # # # # Std # # # # accum $ROUGE # # accum $VERTE # # accum $BLEUE # # # # sachant que la generation de la sequence '$xw1/LYAP.1' est decrit lors de la generation # # de la sequence video : # # # # xivPdf 2 1 / 010104_010231 # # # # Enfin '$xiirv/LYAP.32' est la version rehaussee de '$xiirv/LYAP.22' par '$xci/substitue$Z' # # et '$xiP/gris.11'... # v $xiirv/MA.11.0001 v $xiirv/MA.11.0064 v $xiirv/MA.11.0112 v $xiirv/MA.12.0064 v $xiirv/MA.12.0112 # Pour avoir plus d'informations sur ces images, voir les commentaires de la sequence video : # # # # xivPdf 2 1 / 011256_011383 # # # # ces images en etant extraites... # # # # Les images '$xiirv/MA.12*' sont les versions rehaussees par '$xci/substitue$Z' et la # # palette '$xiP/gris.11' des images '$xiirv/MA.11*'. # v $xiirv/MA.11.0001$DROITE v $xiirv/MA.11.0008$DROITE v $xiirv/MA.11.0014$DROITE # Pour avoir plus d'informations sur ces images, voir les commentaires de la sequence video : # # # # xivPdf 2 1 / 011384_011399 # # # # ces images en etant extraites... # v $xiirv/MA.11.0001$GAUCHE v $xiirv/MA.11.0008$GAUCHE v $xiirv/MA.11.0014$GAUCHE # Pour avoir plus d'informations sur ces images, voir les commentaires de la sequence video : # # # # xivPdf 2 1 / 011400_011415 # # # # ces images en etant extraites... # v $xiirv/MA.11.ac.01 # Generee par : # # # # Std # # $xci/vraies_C$X A=$xiia/MAND.11 \ # # p=$xiP/arc_ciel.01 \ # # RR=$xT/MAND$ROUGE \ # # RV=$xT/MAND$VERTE \ # # RB=$xT/MAND$BLEUE \ # # $formatI # # $xrv/champs_5.10$X cZ=$xiia/MAND.11 \ # # cRAYON=$xiio/BLANC \ # # cROUGE=$xT/MAND$ROUGE \ # # cVERTE=$xT/MAND$VERTE \ # # cBLEUE=$xT/MAND$BLEUE \ # # np=1 px=16 py=16 facteurR=16 brume=FAUX \ # # R=$xiirv/MA.11.ac.01 \ # # $formatI # # # v $xiirv/MA.11.ce.22 # Generee par : # # # # Std # # $xci/vraies_C$X A=$xiia/MAND.11 \ # # p=$xiP/cercle.22 \ # # RR=$xT/MAND$ROUGE \ # # RV=$xT/MAND$VERTE \ # # RB=$xT/MAND$BLEUE \ # # $formatI # # $xrv/champs_5.10$X cZ=$xiia/MAND.11 \ # # cRAYON=$xiio/BLANC \ # # cROUGE=$xT/MAND$ROUGE \ # # cVERTE=$xT/MAND$VERTE \ # # cBLEUE=$xT/MAND$BLEUE \ # # np=1 px=16 py=16 facteurR=16 brume=FAUX \ # # R=$xiirv/MA.11.ce.22 \ # # $formatI # # # v $xiirv/MA.11.ra.13 # Generee par : # # # # Std # # $xci/vraies_C$X A=$xiia/MAND.11 \ # # p=$xiP/random.13 \ # # RR=$xT/MAND$ROUGE \ # # RV=$xT/MAND$VERTE \ # # RB=$xT/MAND$BLEUE \ # # $formatI # # $xrv/champs_5.10$X cZ=$xiia/MAND.11 \ # # cRAYON=$xiio/BLANC \ # # cROUGE=$xT/MAND$ROUGE \ # # cVERTE=$xT/MAND$VERTE \ # # cBLEUE=$xT/MAND$BLEUE \ # # np=1 px=16 py=16 facteurR=16 brume=FAUX \ # # R=$xiirv/MA.11.ra.13 \ # # $formatI # # # v $xiirv/MAI2.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_11: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____Zoom=1.00 # # $Z set _____ImageR=$xiirv/MAI2.11 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_11: # # # # # # Image montrant le maillage rectangulaire periodique d'un carre. # v $xiirv/MAI2.12 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_12: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z set _____Zoom=1.00 # # $Z set _____ImageR=$xiirv/MAI2.12 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_12: # # # # # # Image montrant le maillage rectangulaire aleatoire d'un carre. # v $xiirv/MAI2.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_21: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____Zoom=1.00 # # $Z set _____ImageR=$xiirv/MAI2.21 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_21: # # # # # # Image montrant le maillage rectangulaire periodique d'un carre. # v $xiirv/MAI2.22 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_22: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $Z set _____Origine=-0.05 # # $Z set _____Extremite=+0.05 # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z set _____Zoom=1.00 # # $Z set _____ImageR=$xiirv/MAI2.22 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_22: # # # # # # Image montrant le maillage rectangulaire aleatoire d'un carre. # v $xiirv/MAI2.23 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_23: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____MaillageTri=VRAI # # $Z set _____MaillageTriAlea=VRAI # # $Z set _____Zoom=1.00 # # $Z set _____ImageR=$xiirv/MAI2.23 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_23: # # # # # # Image montrant le maillage triangulaire (aleatoire) periodique d'un carre. # v $xiirv/MAI2.24 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_24: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $Z set _____Origine=-0.05 # # $Z set _____Extremite=+0.05 # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z set _____MaillageTri=VRAI # # $Z set _____MaillageTriAlea=VRAI # # $Z set _____Zoom=1.00 # # $Z set _____ImageR=$xiirv/MAI2.24 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_24: # # # # # # Image montrant le maillage triangulaire (aleatoire) aleatoire d'un carre. # v $xiirv/MAI2.31 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_31: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____Zoom=0.90 # # $Z set _____RotationX=1.00 # # $Z set _____ImageR=$xiirv/MAI2.31 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_31: # # # # # # Image montrant le maillage rectangulaire regulier de la surface d'une sphere. # v $xiirv/MAI2.32 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_32: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $Z set _____Origine=-0.05 # # $Z set _____Extremite=+0.05 # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____Zoom=0.90 # # $Z set _____RotationX=1.00 # # $Z set _____ImageR=$xiirv/MAI2.32 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_32: # # # # # # Image montrant le maillage rectangulaire aleatoire de la surface d'une sphere. # v $xiirv/MAI2.41 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_41: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____Zoom=0.90 # # $Z set _____RotationX=1.00 # # $Z set _____ImageR=$xiirv/MAI2.41 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_41: # # # # # # Image montrant le maillage rectangulaire regulier de la surface d'une sphere. # v $xiirv/MAI2.42 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_42: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $Z set _____Origine=-0.05 # # $Z set _____Extremite=+0.05 # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____Zoom=0.90 # # $Z set _____RotationX=1.00 # # $Z set _____ImageR=$xiirv/MAI2.42 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_42: # # # # # # Image montrant le maillage rectangulaire aleatoire de la surface d'une sphere. # v $xiirv/MAI2.43 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_43: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____MaillageTri=VRAI # # $Z set _____MaillageTriAlea=VRAI # # $Z SET _____Spherique=$EXIST # # $Z set _____Zoom=0.90 # # $Z set _____RotationX=1.00 # # $Z set _____ImageR=$xiirv/MAI2.43 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_43: # # # # # # Image montrant le maillage triangulaire (aleatoire) regulier de la surface d'une sphere. # v $xiirv/MAI2.44 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_44: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $Z set _____Origine=-0.05 # # $Z set _____Extremite=+0.05 # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z set _____MaillageTri=VRAI # # $Z set _____MaillageTriAlea=VRAI # # $Z SET _____Spherique=$EXIST # # $Z set _____Zoom=0.90 # # $Z set _____RotationX=1.00 # # $Z set _____ImageR=$xiirv/MAI2.44 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_44: # # # # # # Image montrant le maillage triangulaire (aleatoire) aleatoire de la surface d'une sphere. # v $xiirv/MAI2.51 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_51: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=3 # # $Z set _____ONormaliseX=-1 # # $Z set _____ENormaliseX=+1 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI2.51 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_51: # # # # # # Image montrant le maillage rectangulaire regulier de la surface d'un cylindre. # v $xiirv/MAI2.52 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_52: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $Z set _____Origine=-0.05 # # $Z set _____Extremite=+0.05 # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=3 # # $Z set _____ONormaliseX=-1 # # $Z set _____ENormaliseX=+1 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI2.52 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_52: # # # # # # Image montrant le maillage rectangulaire aleatoire de la surface d'un cylindre. # v $xiirv/MAI2.61 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_61: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=3 # # $Z set _____ONormaliseX=-1 # # $Z set _____ENormaliseX=+1 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI2.61 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_61: # # # # # # Image montrant le maillage rectangulaire regulier de la surface d'un cylindre. # v $xiirv/MAI2.62 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_62: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $Z set _____Origine=-0.05 # # $Z set _____Extremite=+0.05 # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=3 # # $Z set _____ONormaliseX=-1 # # $Z set _____ENormaliseX=+1 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI2.62 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_62: # # # # # # Image montrant le maillage rectangulaire aleatoire de la surface d'un cylindre. # v $xiirv/MAI2.63 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_63: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____MaillageTri=VRAI # # $Z set _____MaillageTriAlea=VRAI # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=3 # # $Z set _____ONormaliseX=-1 # # $Z set _____ENormaliseX=+1 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI2.63 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_63: # # # # # # Image montrant le maillage triangulaire (aleatoire) regulier de la surface d'un cylindre. # v $xiirv/MAI2.64 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_64: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $Z set _____Origine=-0.05 # # $Z set _____Extremite=+0.05 # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z set _____MaillageTri=VRAI # # $Z set _____MaillageTriAlea=VRAI # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=3 # # $Z set _____ONormaliseX=-1 # # $Z set _____ENormaliseX=+1 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI2.64 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_64: # # # # # # Image montrant le maillage triangulaire (aleatoire) aleatoire de la surface d'un cylindre. # v $xiirv/MAI2.71 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_71: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=4 # # $Z set _____SpheriqueP01=1.0 # # $Z set _____ENormaliseX=$dpi # # $Z set _____ENormaliseZ=0.4 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI2.71 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_71: # # # # # # Image montrant le maillage rectangulaire regulier de la surface d'un tore. # v $xiirv/MAI2.72 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_72: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=4 # # $Z set _____SpheriqueP01=1.0 # # $Z set _____ENormaliseX=$dpi # # $Z set _____ENormaliseZ=0.4 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI2.72 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_72: # # # # # # Image montrant le maillage rectangulaire aleatoire de la surface d'un tore. # v $xiirv/MAI2.81 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_81: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=4 # # $Z set _____SpheriqueP01=1.0 # # $Z set _____ENormaliseX=$dpi # # $Z set _____ENormaliseZ=0.4 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI2.81 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_81: # # # # # # Image montrant le maillage rectangulaire regulier de la surface d'un tore. # v $xiirv/MAI2.82 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_82: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=4 # # $Z set _____SpheriqueP01=1.0 # # $Z set _____ENormaliseX=$dpi # # $Z set _____ENormaliseZ=0.4 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI2.82 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_82: # # # # # # Image montrant le maillage rectangulaire aleatoire de la surface d'un tore. # v $xiirv/MAI2.83 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_83: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____MaillageTri=VRAI # # $Z set _____MaillageTriAlea=VRAI # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=4 # # $Z set _____SpheriqueP01=1.0 # # $Z set _____ENormaliseX=$dpi # # $Z set _____ENormaliseZ=0.4 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI2.83 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_83: # # # # # # Image montrant le maillage triangulaire (aleatoire) regulier de la surface d'un tore. # v $xiirv/MAI2.84 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_84: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z set _____MaillageTri=VRAI # # $Z set _____MaillageTriAlea=VRAI # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=4 # # $Z set _____SpheriqueP01=1.0 # # $Z set _____ENormaliseX=$dpi # # $Z set _____ENormaliseZ=0.4 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI2.84 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_84: # # # # # # Image montrant le maillage triangulaire (aleatoire) aleatoire de la surface d'un tore. # v $xiirv/MAI2.X1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_X1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.MAIL.X1.1._____U) # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=6 # # $Z set _____ENormaliseZ=1.0 # # $Z set _____Zoom=0.90 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____NAuCarre=VRAI # # $Z set _____ImageR=$xiirv/MAI2.X1 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_X1: # # # # # # Image montrant le maillage rectangulaire regulier de la surface d'une sphere obtenue # # via un projecteur bidimensionnel... # # # # On notera le "_____NAuCarre=VRAI" destine a eviter un probleme de coloriage d'une # # arete orange a droite du "pole sud"... # v $xiirv/MAI2.X2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_X2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.MAIL.X1.1._____U) # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=6 # # $Z set _____ENormaliseZ=1.0 # # $Z set _____Zoom=0.90 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____NAuCarre=VRAI # # $Z set _____ImageR=$xiirv/MAI2.X2 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_X2: # # # # # # Image montrant le maillage rectangulaire aleatoire de la surface d'une sphere obtenue # # via un projecteur bidimensionnel... # v $xiirv/MAI2.Y1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_Y1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.MAIL.Y1.1._____U) # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=6 # # $Z set _____ENormaliseX=$dpi # # $Z set _____ENormaliseZ=1.0 # # $Z set _____Zoom=0.80 # # $Z set _____RotationX=0.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI2.Y1 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_Y1: # # # # # # Image montrant le maillage rectangulaire regulier de la bouteille de Klein obtenue # # via un projecteur bidimensionnel... # # # # Malheureusement, on ne peut pas faire la version '$xiirv/MAI3.Y1' car, en effet, n'ayant # # pas d'interieur, elle ne peut etre remplie d'un maillage... # v $xiirv/MAI2.Y2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_Y2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.MAIL.Y1.1._____U) # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=6 # # $Z set _____ENormaliseX=$dpi # # $Z set _____ENormaliseZ=1.0 # # $Z set _____Zoom=0.80 # # $Z set _____RotationX=0.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI2.Y2 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_Y2: # # # # # # Image montrant le maillage rectangulaire aleatoire de la bouteille de Klein obtenue # # via un projecteur bidimensionnel... # # # # Malheureusement, on ne peut pas faire la version '$xiirv/MAI3.Y2' car, en effet, n'ayant # # pas d'interieur, elle ne peut etre remplie d'un maillage... # v $xiirv/MAI2.Z1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_Z1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____PseudoProjections=$NEXIST # # $m4 _____include(_____xiirv/.MAIL.Z1.1._____U) # # $m4 _____include(_____xiirs/.PROJ.V1.2._____U) # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=6 # # $Z set _____SpheriqueP01=1.0 # # $Z set _____ENormaliseX=$dpi # # $Z set _____ENormaliseZ=0.4 # # $Z set _____Zoom=1.30 # # $Z set _____VRayon=0.004 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI2.Z1 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_Z1: # # # # # # Image montrant le maillage rectangulaire regulier de la surface d'un tore fractal obtenu # # via un projecteur bidimensionnel... # # # # Malheureusement, on ne peut pas faire la version '$xiirv/MAI3.Z1' car, en effet, elle a # # un trou qui est alors rempli par le maillage... # v $xiirv/MAI2.Z2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_Z2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____PseudoProjections=$NEXIST # # $m4 _____include(_____xiirv/.MAIL.Z1.1._____U) # # $m4 _____include(_____xiirs/.PROJ.V1.2._____U) # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=6 # # $Z set _____SpheriqueP01=1.0 # # $Z set _____ENormaliseX=$dpi # # $Z set _____ENormaliseZ=0.4 # # $Z set _____Zoom=1.30 # # $Z set _____VRayon=0.004 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI2.Z2 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_Z2: # # # # # # Image montrant le maillage rectangulaire aleatoire de la surface d'un tore fractal obtenu # # via un projecteur bidimensionnel... # v $xiirv/MAI2.Z3 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_Z3: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____PseudoProjections=$NEXIST # # $m4 _____include(_____xiirv/.MAIL.Z1.1._____U) # # $m4 _____include(_____xiirs/.PROJ.V1.2._____U) # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____MaillageTri=VRAI # # $Z set _____MaillageTriAlea=VRAI # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=6 # # $Z set _____SpheriqueP01=1.0 # # $Z set _____ENormaliseX=$dpi # # $Z set _____ENormaliseZ=0.4 # # $Z set _____Zoom=1.30 # # $Z set _____VRayon=0.004 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI2.Z3 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_Z3: # # # # # # Image montrant le maillage triangulaire regulier de la surface d'un tore fractal obtenu # # via un projecteur bidimensionnel... # v $xiirv/MAI2.Z4 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI2_Z4: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____PseudoProjections=$NEXIST # # $m4 _____include(_____xiirv/.MAIL.Z1.1._____U) # # $m4 _____include(_____xiirs/.PROJ.V1.2._____U) # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=1 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z set _____MaillageTri=VRAI # # $Z set _____MaillageTriAlea=VRAI # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=6 # # $Z set _____SpheriqueP01=1.0 # # $Z set _____ENormaliseX=$dpi # # $Z set _____ENormaliseZ=0.4 # # $Z set _____Zoom=1.30 # # $Z set _____VRayon=0.004 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI2.Z4 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI2_Z4: # # # # # # Image montrant le maillage triangulaire (aleatoire) aleatoire de la surface d'un tore # # fractal obtenu via un projecteur bidimensionnel... # v $xiirv/MAI3.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_11: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=7 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____Zoom=0.65 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.11 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_11: # # # # # # Image montrant le maillage cubique periodique d'un cube. # v $xiirv/MAI3.12 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_12: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=7 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z set _____Zoom=0.65 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.12 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_12: # # # # # # Image montrant le maillage cubique aleatoire d'un cube. # v $xiirv/MAI3.13 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_13: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=7 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____MaillageTri=VRAI # # $Z set _____MaillageTriAlea=VRAI # # $Z set _____Zoom=0.65 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.13 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_13: # # # # # # Image montrant le maillage tetraedrique (aleatoire) regulier d'un cube. # v $xiirv/MAI3.14 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_14: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=7 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z set _____MaillageTri=VRAI # # $Z set _____MaillageTriAlea=VRAI # # $Z set _____Zoom=0.65 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.14 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_14: # # # # # # Image montrant le maillage tetraedrique (aleatoire) aleatoire d'un cube. # v $xiirv/MAI3.15 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_15: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=7 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____Zoom=0.65 # # $Z set _____ParamValeurs="$K_VIDE" # # $Z set _____ParamValeurs="$_____ParamValeurs"" aleatoire=VRAI" # # $Z set _____ParamValeurs="$_____ParamValeurs"" smc=0.4" # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.15 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_15: # # # # # # Image montrant le maillage cubique periodique incomplet d'un cube. # v $xiirv/MAI3.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_21: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=17 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____Zoom=0.65 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.21 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_21: # # # # # # Image montrant le maillage cubique periodique d'un cube. # v $xiirv/MAI3.22 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_22: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=17 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z set _____Zoom=0.65 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.22 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_22: # # # # # # Image montrant le maillage cubique aleatoire d'un cube. # v $xiirv/MAI3.31 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_31: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=7 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____Zoom=0.90 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.31 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_31: # # # # # # Image montrant le maillage cubique regulier du volume d'une sphere. # v $xiirv/MAI3.32 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_32: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=7 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____Zoom=0.90 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.32 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_32: # # # # # # Image montrant le maillage cubique aleatoire du volume d'une sphere. # v $xiirv/MAI3.33 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_33: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=7 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____MaillageTri=VRAI # # $Z set _____MaillageTriAlea=VRAI # # $Z SET _____Spherique=$EXIST # # $Z set _____Zoom=0.90 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.33 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_33: # # # # # # Image montrant le maillage tetraedrique (aleatoire) regulier du volume d'une sphere. # v $xiirv/MAI3.34 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_34: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=7 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z set _____MaillageTri=VRAI # # $Z set _____MaillageTriAlea=VRAI # # $Z SET _____Spherique=$EXIST # # $Z set _____Zoom=0.90 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.34 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_34: # # # # # # Image montrant le maillage tetraedrique (aleatoire) aleatoire du volume d'une sphere. # v $xiirv/MAI3.41 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_41: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=17 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____Zoom=0.90 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.41 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_41: # # # # # # Image montrant le maillage cubique regulier du volume d'une sphere. # v $xiirv/MAI3.42 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_42: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=17 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____Zoom=0.90 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.42 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_42: # # # # # # Image montrant le maillage cubique aleatoire du volume d'une sphere. # v $xiirv/MAI3.51 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_51: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=7 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=3 # # $Z set _____ONormaliseX=-1 # # $Z set _____ENormaliseX=+1 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.51 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_51: # # # # # # Image montrant le maillage cubique regulier du volume d'un cylindre. # v $xiirv/MAI3.52 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_52: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=7 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $Z set _____Origine=-0.05 # # $Z set _____Extremite=+0.05 # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=3 # # $Z set _____ONormaliseX=-1 # # $Z set _____ENormaliseX=+1 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.52 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_52: # # # # # # Image montrant le maillage cubique aleatoire du volume d'un cylindre. # v $xiirv/MAI3.53 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_53: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=7 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____MaillageTri=VRAI # # $Z set _____MaillageTriAlea=VRAI # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=3 # # $Z set _____ONormaliseX=-1 # # $Z set _____ENormaliseX=+1 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.53 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_53: # # # # # # Image montrant le maillage tetraedrique (aleatoire) regulier du volume d'un cylindre. # v $xiirv/MAI3.54 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_54: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=7 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $Z set _____Origine=-0.05 # # $Z set _____Extremite=+0.05 # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z set _____MaillageTri=VRAI # # $Z set _____MaillageTriAlea=VRAI # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=3 # # $Z set _____ONormaliseX=-1 # # $Z set _____ENormaliseX=+1 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.54 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_54: # # # # # # Image montrant le maillage tetraedrique (aleatoire) aleatoire du volume d'un cylindre. # v $xiirv/MAI3.61 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_61: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=17 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=3 # # $Z set _____ONormaliseX=-1 # # $Z set _____ENormaliseX=+1 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.61 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_61: # # # # # # Image montrant le maillage cubique regulier du volume d'un cylindre. # v $xiirv/MAI3.62 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_62: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=17 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $Z set _____Origine=-0.05 # # $Z set _____Extremite=+0.05 # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=3 # # $Z set _____ONormaliseX=-1 # # $Z set _____ENormaliseX=+1 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.62 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_62: # # # # # # Image montrant le maillage cubique aleatoire du volume d'un cylindre. # v $xiirv/MAI3.71 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_71: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=7 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=4 # # $Z set _____SpheriqueP01=1.0 # # $Z set _____ENormaliseX=$dpi # # $Z set _____ENormaliseZ=0.4 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.71 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_71: # # # # # # Image montrant le maillage cubique regulier du volume d'un tore. # v $xiirv/MAI3.72 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_72: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=7 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=4 # # $Z set _____SpheriqueP01=1.0 # # $Z set _____ENormaliseX=$dpi # # $Z set _____ENormaliseZ=0.4 # # $Z SET _____Periodise=$EXIST # # $Z set _____AlphaX=1 # # $Z set _____BetaX=0 # # $Z set _____AlphaY=1 # # $Z set _____BetaY=0 # # $Z set _____AlphaZ=1 # # $Z set _____BetaZ=0 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.72 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_72: # # # # # # Image montrant le maillage cubique aleatoire du volume d'un tore. # v $xiirv/MAI3.73 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_73: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=7 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____MaillageTri=VRAI # # $Z set _____MaillageTriAlea=VRAI # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=4 # # $Z set _____SpheriqueP01=1.0 # # $Z set _____ENormaliseX=$dpi # # $Z set _____ENormaliseZ=0.4 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.73 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_73: # # # # # # Image montrant le maillage tetraedrique (aleatoire) regulier du volume d'un tore. # v $xiirv/MAI3.74 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_74: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=7 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z set _____MaillageTri=VRAI # # $Z set _____MaillageTriAlea=VRAI # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=4 # # $Z set _____SpheriqueP01=1.0 # # $Z set _____ENormaliseX=$dpi # # $Z set _____ENormaliseZ=0.4 # # $Z SET _____Periodise=$EXIST # # $Z set _____AlphaX=1 # # $Z set _____BetaX=0 # # $Z set _____AlphaY=1 # # $Z set _____BetaY=0 # # $Z set _____AlphaZ=1 # # $Z set _____BetaZ=0 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.74 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_74: # # # # # # Image montrant le maillage tetraedrique (aleatoire) aleatoire du volume d'un tore. # v $xiirv/MAI3.81 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_81: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=17 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=4 # # $Z set _____SpheriqueP01=1.0 # # $Z set _____ENormaliseX=$dpi # # $Z set _____ENormaliseZ=0.4 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.81 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_81: # # # # # # Image montrant le maillage cubique regulier du volume d'un tore. # v $xiirv/MAI3.82 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_82: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=17 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=4 # # $Z set _____SpheriqueP01=1.0 # # $Z set _____ENormaliseX=$dpi # # $Z set _____ENormaliseZ=0.4 # # $Z SET _____Periodise=$EXIST # # $Z set _____AlphaX=1 # # $Z set _____BetaX=0 # # $Z set _____AlphaY=1 # # $Z set _____BetaY=0 # # $Z set _____AlphaZ=1 # # $Z set _____BetaZ=0 # # $Z set _____Zoom=0.65 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.82 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_82: # # # # # # Image montrant le maillage cubique aleatoire du volume d'un tore. # v $xiirv/MAI3.X1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_X1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.MAIL.X1.1._____U) # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=7 # # $Z set _____MailleY=7 # # $Z set _____MailleZ=7 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=6 # # $Z set _____ENormaliseZ=1.0 # # $Z set _____Zoom=0.90 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.X1 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_X1: # # # # # # Image montrant le maillage cubique regulier du volume d'une sphere obtenue via un # # projecteur bidimensionnel... # v $xiirv/MAI3.Y1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_Y1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____PseudoProjections=$NEXIST # # $m4 _____include(_____xiirv/.MAIL.X1.1._____U) # # $m4 _____include(_____xiirs/.PROJ.21.2._____U) # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=7 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=6 # # $Z set _____ENormaliseZ=1.0 # # $Z set _____Zoom=0.70 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.Y1 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_Y1: # # # # # # Image montrant le maillage cubique regulier du volume d'une sphere fractale obtenue via un # # projecteur bidimensionnel... # v $xiirv/MAI3.Y2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_Y2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____PseudoProjections=$NEXIST # # $m4 _____include(_____xiirv/.MAIL.X1.1._____U) # # $m4 _____include(_____xiirs/.PROJ.21.2._____U) # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=7 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=6 # # $Z set _____ENormaliseZ=1.0 # # $Z set _____Zoom=0.70 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.Y2 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_Y2: # # # # # # Image montrant le maillage cubique aleatoire du volume d'une sphere fractale obtenue via un # # projecteur bidimensionnel... # v $xiirv/MAI3.Y3 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_Y3: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____PseudoProjections=$NEXIST # # $m4 _____include(_____xiirv/.MAIL.X1.1._____U) # # $m4 _____include(_____xiirs/.PROJ.21.2._____U) # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=7 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____MaillageTri=VRAI # # $Z set _____MaillageTriAlea=VRAI # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=6 # # $Z set _____ENormaliseZ=1.0 # # $Z set _____Zoom=0.70 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.Y3 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_Y3: # # # # # # Image montrant le maillage tetraedrique (aleatoire) regulier du volume d'une sphere # # fractale obtenue via un projecteur bidimensionnel... # v $xiirv/MAI3.Y4 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MAI3_Y4: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____PseudoProjections=$NEXIST # # $m4 _____include(_____xiirv/.MAIL.X1.1._____U) # # $m4 _____include(_____xiirs/.PROJ.21.2._____U) # # # # $Z SET _____Dimension=3 # # $Z set _____MailleX=17 # # $Z set _____MailleY=17 # # $Z set _____MailleZ=7 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.12.2._____U) # # # # $Z set _____MaillageTri=VRAI # # $Z set _____MaillageTriAlea=VRAI # # $Z SET _____Spherique=$EXIST # # $Z set _____SpheriqueEtendue=VRAI # # $Z set _____NExtension=6 # # $Z set _____ENormaliseZ=1.0 # # $Z set _____Zoom=0.70 # # $Z set _____RotationX=1.00 # # $Z set _____DepthCueing=0.2 # # $Z set _____ImageR=$xiirv/MAI3.Y4 # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # :Fin_listG_MAI3_Y4: # # # # # # Image montrant le maillage tetraedrique (aleatoire) aleatoire du volume d'une sphere # # fractale obtenue via un projecteur bidimensionnel... # v $xiirv/MAPN.12.C1 v $xiirv/MAPn.12.C1 # Generee par : # # # # $Z Pal # # # # $Z $DELETE $xT/CUBE2 # # $Z $DELETE $xT/CUBEn # # # # $Z set Xm=0.0 # # $Z set XM=1.0 # # # # $Z set Ra=0.01875 # # # # $Z echo "X0001=$Xm RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z $xrv/map_ND_2D.11$Z Fichier3DA=$xT/CUBEn \ # # $Z Fichier2DR=$xT/CUBE2 \ # # $Z Isoles=FAUX \ # # $Z Axes=VRAI \ # # $Z Couleurs=VRAI # # $Z $xrv/pts_3D.11$Z Fichier3DA=$xT/CUBE2 \ # # $Z imageR=$xiirv/MAPn.12.C1 \ # # $Z Isoles=FAUX \ # # $Z Rotation_OX=+1.2 \ # # $Z Rotation_OY=0.0 \ # # $Z Rotation_OZ=0.0 \ # # $Z Zoom=0.8 \ # # $Z RayonCorrectZ=VRAI RayonCorrect1=VRAI # # # # $Z $DELETE $xT/CUBE2 # # $Z $DELETE $xT/CUBEn # # # # # # qui montre les 2 sommets d'un 1-cube (coordonnees dans [0,+1]). # v $xiirv/MAPN.12.C2 v $xiirv/MAPn.12.C2 # Generee par : # # # # $Z Pal # # # # $Z $DELETE $xT/CUBE2 # # $Z $DELETE $xT/CUBEn # # # # $Z set Xm=0.0 # # $Z set XM=1.0 # # # # $Z set Ym=0.0 # # $Z set YM=1.0 # # # # $Z set Ra=0.01875 # # # # $Z echo "X0001=$Xm X0002=$Ym RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$Ym RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$YM RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$YM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z $xrv/map_ND_2D.11$Z Fichier3DA=$xT/CUBEn \ # # $Z Fichier2DR=$xT/CUBE2 \ # # $Z Isoles=FAUX \ # # $Z Axes=VRAI \ # # $Z Couleurs=VRAI # # $Z $xrv/pts_3D.11$Z Fichier3DA=$xT/CUBE2 \ # # $Z imageR=$xiirv/MAPn.12.C2 \ # # $Z Isoles=FAUX \ # # $Z Rotation_OX=+1.2 \ # # $Z Rotation_OY=+0.2 \ # # $Z Rotation_OZ=0.0 \ # # $Z Zoom=0.8 \ # # $Z RayonCorrectZ=VRAI RayonCorrect1=VRAI # # # # $Z $DELETE $xT/CUBE2 # # $Z $DELETE $xT/CUBEn # # # # # # qui montre les 4 sommets d'un 2-cube (coordonnees dans [0,+1]). # v $xiirv/MAPN.11.C3 v $xiirv/MAPn.11.C3 v $xiirv/MAPN.12.C3 v $xiirv/MAPn.12.C3 # Generee par : # # # # $Z Pal # # # # $Z $DELETE $xT/CUBE2 # # $Z $DELETE $xT/CUBEn # # # # $Z set Xm=0.0 # # $Z set XM=1.0 # # # # $Z set Ym=0.0 # # $Z set YM=1.0 # # # # $Z set Zm=0.0 # # $Z set ZM=1.0 # # # # $Z set Ra=0.01875 # # # # $Z echo "X0001=$Xm X0002=$Ym X0003=$Zm RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$Ym X0003=$Zm RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$YM X0003=$Zm RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$YM X0003=$Zm RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$Ym X0003=$ZM RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$Ym X0003=$ZM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$YM X0003=$ZM RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$YM X0003=$ZM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z $xrv/pts_3D.11$Z Fichier3DA=$xT/CUBEn \ # # $Z imageR=$xiirv/MAPn.11.C3 \ # # $Z Isoles=VRAI \ # # $Z Rotation_OX=0.0 \ # # $Z Rotation_OY=0.0 \ # # $Z Rotation_OZ=0.0 \ # # $Z Zoom=0.7 \ # # $Z RayonCorrectZ=VRAI RayonCorrect1=VRAI # # # # $Z $xrv/map_ND_2D.11$Z Fichier3DA=$xT/CUBEn \ # # $Z Fichier2DR=$xT/CUBE2 \ # # $Z Isoles=FAUX \ # # $Z Axes=VRAI \ # # $Z Couleurs=VRAI # # $Z $xrv/pts_3D.11$Z Fichier3DA=$xT/CUBE2 \ # # $Z imageR=$xiirv/MAPn.12.C3 \ # # $Z Isoles=FAUX \ # # $Z Rotation_OX=+1.2 \ # # $Z Rotation_OY=0.0 \ # # $Z Rotation_OZ=0.0 \ # # $Z Zoom=0.8 \ # # $Z RayonCorrectZ=VRAI RayonCorrect1=VRAI # # # # $Z $DELETE $xT/CUBE2 # # $Z $DELETE $xT/CUBEn # # # # # # qui montre les 8 sommets d'un 3-cube (coordonnees dans [0,+1]). # # # # Ainsi, '$xiirv/MAPN.11.C3" donne l'image traditionnelle des 8 sommets d'un cube, alors que # # '$xiirv/MAPN.12' donne l'image obtenue apres mapping par '$xrv/map_ND_2D.11$Z'... # v $xiirv/MAPN.12.C4 v $xiirv/MAPn.12.C4 # Generee par : # # # # $Z Pal # # # # $Z $DELETE $xT/CUBE2 # # $Z $DELETE $xT/CUBEn # # # # $Z set Xm=0.0 # # $Z set XM=1.0 # # # # $Z set Ym=0.0 # # $Z set YM=1.0 # # # # $Z set Zm=0.0 # # $Z set ZM=1.0 # # # # $Z set Tm=0.0 # # $Z set TM=1.0 # # # # $Z set Ra=0.01875 # # # # $Z echo "X0001=$Xm X0002=$Ym X0003=$Zm X0004=$Tm RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$Ym X0003=$Zm X0004=$Tm RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$YM X0003=$Zm X0004=$Tm RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$YM X0003=$Zm X0004=$Tm RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$Ym X0003=$ZM X0004=$Tm RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$Ym X0003=$ZM X0004=$Tm RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$YM X0003=$ZM X0004=$Tm RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$YM X0003=$ZM X0004=$Tm RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$Ym X0003=$Zm X0004=$TM RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$Ym X0003=$Zm X0004=$TM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$YM X0003=$Zm X0004=$TM RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$YM X0003=$Zm X0004=$TM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$Ym X0003=$ZM X0004=$TM RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$Ym X0003=$ZM X0004=$TM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$YM X0003=$ZM X0004=$TM RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$YM X0003=$ZM X0004=$TM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z $xrv/map_ND_2D.11$Z Fichier3DA=$xT/CUBEn \ # # $Z Fichier2DR=$xT/CUBE2 \ # # $Z Isoles=FAUX \ # # $Z Axes=VRAI \ # # $Z Couleurs=VRAI # # $Z $xrv/pts_3D.11$Z Fichier3DA=$xT/CUBE2 \ # # $Z imageR=$xiirv/MAPn.12.C4 \ # # $Z Isoles=FAUX \ # # $Z Rotation_OX=+1.2 \ # # $Z Rotation_OY=+0.2 \ # # $Z Rotation_OZ=0.0 \ # # $Z Zoom=0.8 \ # # $Z RayonCorrectZ=VRAI RayonCorrect1=VRAI # # # # $Z $DELETE $xT/CUBE2 # # $Z $DELETE $xT/CUBEn # # # # # # qui montre les 16 sommets d'un 4-cube (coordonnees dans [0,+1]). # v $xiirv/MAPN.12.C5 v $xiirv/MAPn.12.C5 # Generee par : # # # # # # :Debut_listG_MAPN_12_C5: # # # # $Z Pal # # # # $Z $DELETE $xT/CUBE2 # # $Z $DELETE $xT/CUBEn # # # # $Z set Xm=0.0 # # $Z set XM=1.0 # # # # $Z set Ym=0.0 # # $Z set YM=1.0 # # # # $Z set Zm=0.0 # # $Z set ZM=1.0 # # # # $Z set Tm=0.0 # # $Z set TM=1.0 # # # # $Z set Um=0.0 # # $Z set UM=1.0 # # # # $Z set Ra=0.01500 # # # # $Z echo "X0001=$Xm X0002=$Ym X0003=$Zm X0004=$Tm X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$Ym X0003=$Zm X0004=$Tm X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$YM X0003=$Zm X0004=$Tm X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$YM X0003=$Zm X0004=$Tm X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$Ym X0003=$ZM X0004=$Tm X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$Ym X0003=$ZM X0004=$Tm X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$YM X0003=$ZM X0004=$Tm X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$YM X0003=$ZM X0004=$Tm X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$Ym X0003=$Zm X0004=$TM X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$Ym X0003=$Zm X0004=$TM X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$YM X0003=$Zm X0004=$TM X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$YM X0003=$Zm X0004=$TM X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$Ym X0003=$ZM X0004=$TM X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$Ym X0003=$ZM X0004=$TM X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$YM X0003=$ZM X0004=$TM X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$YM X0003=$ZM X0004=$TM X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$Ym X0003=$Zm X0004=$Tm X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$Ym X0003=$Zm X0004=$Tm X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$YM X0003=$Zm X0004=$Tm X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$YM X0003=$Zm X0004=$Tm X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$Ym X0003=$ZM X0004=$Tm X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$Ym X0003=$ZM X0004=$Tm X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$YM X0003=$ZM X0004=$Tm X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$YM X0003=$ZM X0004=$Tm X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$Ym X0003=$Zm X0004=$TM X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$Ym X0003=$Zm X0004=$TM X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$YM X0003=$Zm X0004=$TM X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$YM X0003=$Zm X0004=$TM X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$Ym X0003=$ZM X0004=$TM X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$Ym X0003=$ZM X0004=$TM X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$YM X0003=$ZM X0004=$TM X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$YM X0003=$ZM X0004=$TM X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z $xrv/map_ND_2D.11$Z Fichier3DA=$xT/CUBEn \ # # $Z Fichier2DR=$xT/CUBE2 \ # # $Z Isoles=FAUX \ # # $Z Axes=VRAI \ # # $Z Couleurs=VRAI \ # # $Z RayonA=0.010 # # $Z $xrv/pts_3D.11$Z Fichier3DA=$xT/CUBE2 \ # # $Z imageR=$xiirv/MAPn.12.C5 \ # # $Z Isoles=FAUX \ # # $Z Rotation_OX=+1.2 \ # # $Z Rotation_OY=0.0 \ # # $Z Rotation_OZ=0.0 \ # # $Z Zoom=0.8 \ # # $Z RayonCorrectZ=VRAI RayonCorrect1=VRAI # # # # $Z $DELETE $xT/CUBE2 # # $Z $DELETE $xT/CUBEn # # # # # # :Fin_listG_MAPN_12_C5: # # # # # # qui montre les 32 sommets d'un 5-cube (coordonnees dans [0,+1]). # v $xiirv/MAPN.21 v $xiirv/MAPN.22 # Generee par : # # # # le fichier '$xT/SOLAIRE3' est obtenu a l'aide du programme '$xrr/N_corps.11$X' tel qu'il # # est parametre pour la sequence : # # # # xivPdf 11 1 / 000001_002048 # # # # avec les parametres : # # # # np=1 # # lister_les_points=VRAI # # # # lineaire=FAUX exposant=0.4 # # # # ce qui lui donne le contenu suivant (les "double-lignes" etant a concatener) : # # # # # # X=+0.5 Y=+0.5 Z=+0 # # RAYON=0.03500000000000003 ROUGE=+255 VERTE=+255 BLEUE=+0 # # # # X=+0.5615659420941247 Y=+0.5034256733743163 Z=+0.01086614051774326 # # RAYON=0.02111471774500484 ROUGE=+255 VERTE=+192 BLEUE=+64 # # # # X=+0.5164650796045542 Y=+0.4630325570604812 Z=+0.1042760753657025 # # RAYON=0.0221551247279333 ROUGE=+255 VERTE=+128 BLEUE=+0 # # # # X=+0.4869561919891381 Y=+0.4578590979631929 Z=+0.119207115368435 # # RAYON=0.02233100749327194 ROUGE=+0 VERTE=+192 BLEUE=+255 # # # # X=+0.4044345454146818 Y=+0.4654758031170124 Z=+0.08271903132363223 # # RAYON=0.02190602247984313 ROUGE=+255 VERTE=+128 BLEUE=+64 # # # # X=+0.6199947415930895 Y=+0.5642325397861692 Z=-0.1736022028565729 # # RAYON=0.02576368386377426 ROUGE=+255 VERTE=+192 BLEUE=+0 # # # # X=+0.2774881131104128 Y=+0.4607199404808278 Z=+0.07979052277428778 # # RAYON=0.02916348485109443 ROUGE=+255 VERTE=+224 BLEUE=+0 # # # # X=+0.4836920278629034 Y=+0.3607840356943238 Z=+0.3928069817866793 # # RAYON=0.03048793731973287 ROUGE=+128 VERTE=+255 BLEUE=+255 # # # # X=+0.1422761072495436 Y=+0.5312461848116613 Z=-0.1305302001101604 # # RAYON=0.02299896992657824 ROUGE=+0 VERTE=+224 BLEUE=+255 # # # # X=+0.2116713902445496 Y=+0.3066903459238942 Z=+0.3207917416566884 # # RAYON=0.02501178742500754 ROUGE=+224 VERTE=+224 BLEUE=+255 # # # # # # en notant bien le "lineaire=FAUX", puis : # # # # # # $Z $xrv/pts_3D.11$Z Fichier3DA=$xT/SOLAIRE3 \ # # $Z imageR=$xiirv/MAPN.21 \ # # $Z Isoles=VRAI \ # # $Z Rotation_OX=0.0 \ # # $Z Rotation_OY=0.0 \ # # $Z Rotation_OZ=0.0 \ # # $Z Zoom=1.5 \ # # $Z RayonCorrectZ=VRAI RayonCorrect1=VRAI # # # # $Z $xrv/map_ND_2D.11$Z Fichier3DA=$xT/SOLAIRE3 \ # # $Z Fichier2DR=$xT/SOLAIRE2 \ # # $Z Isoles=FAUX \ # # $Z Axes=VRAI \ # # $Z Couleurs=FAUX # # $Z $xrv/pts_3D.11$Z Fichier3DA=$xT/SOLAIRE2 \ # # $Z imageR=$xiirv/MAPN.22 \ # # $Z Isoles=FAUX \ # # $Z Rotation_OX=+1.0 \ # # $Z Rotation_OY=0.0 \ # # $Z Rotation_OZ=0.0 \ # # $Z Zoom=0.8 \ # # $Z RayonCorrectZ=VRAI RayonCorrect1=VRAI # # # # $Z $DELETE $xT/SOLAIRE2 # # $Z $DELETE $xT/SOLAIRE3 # # # # # # qui montre le Soleil et son cortege de 9 planetes (en n'oubliant pas le "lineaire=FAUX"). # v $xiirv/MAPN.32.C5 v $xiirv/MAPn.32.C5 # Generee par : # # # # $Z Pal # # # # $Z $DELETE $xT/CUBE2 # # $Z $DELETE $xT/CUBEn # # # # $Z $DELETE $xT/CUBEX # # $Z $DELETE $xT/CUBEY # # $Z $DELETE $xT/CUBEZ # # $Z $DELETE $xT/CUBET # # $Z $DELETE $xT/CUBEU # # # # $Z set Xm=0.0 # # $Z set XM=1.0 # # # # $Z set Ym=0.0 # # $Z set YM=1.0 # # # # $Z set Zm=0.0 # # $Z set ZM=1.0 # # # # $Z set Tm=0.0 # # $Z set TM=1.0 # # # # $Z set Um=0.0 # # $Z set UM=1.0 # # # # $Z set Ra=0.01500 # # # # $Z set Npoints=16 # # # # $Z $xci/valeurs_inte$X premiere=1 derniere=$Npoints \ # # $Z vD=$XM vA=$Xm \ # # $Z cubique=FAUX \ # # $Z | $SE -e "s/^/X0001=/" \ # # $Z >>! $xT/CUBEX # # $Z $xci/valeurs_inte$X premiere=1 derniere=$Npoints \ # # $Z vD=$Ym vA=$YM \ # # $Z cubique=FAUX \ # # $Z | $SE -e "s/^/X0002=/" \ # # $Z >>! $xT/CUBEY # # $Z $xci/valeurs_inte$X premiere=1 derniere=$Npoints \ # # $Z vD=$Zm vA=$ZM \ # # $Z cubique=FAUX \ # # $Z | $SE -e "s/^/X0003=/" \ # # $Z >>! $xT/CUBEZ # # $Z $xci/valeurs_inte$X premiere=1 derniere=$Npoints \ # # $Z vD=$Tm vA=$TM \ # # $Z cubique=FAUX \ # # $Z | $SE -e "s/^/X0004=/" \ # # $Z >>! $xT/CUBET # # $Z $xci/valeurs_inte$X premiere=1 derniere=$Npoints \ # # $Z vD=$Um vA=$UM \ # # $Z cubique=FAUX \ # # $Z | $SE -e "s/^/X0005=/" \ # # $Z >>! $xT/CUBEU # # # # $Z $PAST $xT/CUBEX $xT/CUBEY $xT/CUBEZ $xT/CUBET $xT/CUBEU \ # # $Z | $R "$K_TAB" "$K_BLANC" \ # # $Z | $SE -e 's/$'"/ RAYON=$Ra/" \ # # $Z >>! $xT/CUBEn # # # # $Z $xrv/map_ND_2D.11$Z Fichier3DA=$xT/CUBEn \ # # $Z Fichier2DR=$xT/CUBE2 \ # # $Z Isoles=FAUX \ # # $Z Axes=VRAI \ # # $Z Couleurs=VRAI \ # # $Z RayonA=0.010 # # $Z $xrv/pts_3D.11$Z Fichier3DA=$xT/CUBE2 \ # # $Z imageR=$xiirv/MAPn.32.C5 \ # # $Z Isoles=FAUX \ # # $Z Rotation_OX=+1.2 \ # # $Z Rotation_OY=0.0 \ # # $Z Rotation_OZ=0.0 \ # # $Z Zoom=0.8 \ # # $Z RayonCorrectZ=VRAI RayonCorrect1=VRAI # # # # $Z $DELETE $xT/CUBE2 # # $Z $DELETE $xT/CUBEn # # # # $Z $DELETE $xT/CUBEX # # $Z $DELETE $xT/CUBEY # # $Z $DELETE $xT/CUBEZ # # $Z $DELETE $xT/CUBET # # $Z $DELETE $xT/CUBEU # # # # # # Ceci visualise la diagonale {100...000} --> {011...111} d'un 5-cube a l'aide de 16 points # # (les 2 extremites plus 14 points intermediaires). # v $xiirv/MAPN.42.S2 v $xiirv/MAPn.42.S2 # Generee par : # # # # $Z Pal # # # # $Z $DELETE $xT/CERC2 # # $Z $DELETE $xT/CERCn # # # # $Z $DELETE $xT/CERCX # # $Z $DELETE $xT/CERCY # # # # $Z set XC=0.5 # # $Z set YC=0.5 # # # # $Z set RC=0.5 # # # # $Z set Ra=0.01500 # # # # $Z set Npoints=32 # # # # $Z $xci/valeurs_trig$X premiere=1 derniere=$Npoints \ # # $Z aD=0 aA=$dpi \ # # $Z rD=$RC rA=$RC \ # # $Z alpha=1 beta=0 gamma=0 facteur=0 \ # # $Z translation=$XC \ # # $Z cubique=FAUX \ # # $Z | $SE -e "s/^/X0001=/" \ # # $Z >>! $xT/CERCX # # $Z $xci/valeurs_trig$X premiere=1 derniere=$Npoints \ # # $Z aD=0 aA=$dpi \ # # $Z rD=$RC rA=$RC \ # # $Z alpha=0 beta=1 gamma=0 facteur=0 \ # # $Z translation=$YC \ # # $Z cubique=FAUX \ # # $Z | $SE -e "s/^/X0002=/" \ # # $Z >>! $xT/CERCY # # # # $Z $PAST $xT/CERCX $xT/CERCY \ # # $Z | $R "$K_TAB" "$K_BLANC" \ # # $Z | $SE -e 's/$'"/ RAYON=$Ra/" \ # # $Z >>! $xT/CERCn # # # # $Z $xrv/map_ND_2D.11$Z Fichier3DA=$xT/CERCn \ # # $Z Fichier2DR=$xT/CERC2 \ # # $Z Isoles=FAUX \ # # $Z Axes=VRAI \ # # $Z Couleurs=VRAI \ # # $Z RayonA=0.010 # # $Z $xrv/pts_3D.11$Z Fichier3DA=$xT/CERC2 \ # # $Z imageR=$xiirv/MAPn.42.S2 \ # # $Z Isoles=FAUX \ # # $Z Rotation_OX=+1.2 \ # # $Z Rotation_OY=0.0 \ # # $Z Rotation_OZ=0.5 \ # # $Z Zoom=0.8 \ # # $Z RayonCorrectZ=VRAI RayonCorrect1=VRAI # # # # $Z $DELETE $xT/CERC2 # # $Z $DELETE $xT/CERCn # # # # $Z $DELETE $xT/CERCX # # $Z $DELETE $xT/CERCY # # # # # # Ceci visualise un cercle de centre {1/2,1/2} et de rayon 1/2 a l'aide de 32 points # # repartis uniformement sur la circonference. On retrouve sur cette image, en projection # # sur les deux plans {X0001,Numero} et {X0002,Numero} (ou 'Numero' est le troisieme axe # # porteur des numeros de points) deux sinusoides dephasees de pi/2 (ce qui est logique...). # v $xiirv/MAPN.42.S3 v $xiirv/MAPn.42.S3 # Generee par : # # # # $Z Pal # # # # $Z $DELETE $xT/CERC2 # # $Z $DELETE $xT/CERCn # # # # $Z set Ra=0.01500 # # # # $Z $xrs/sphere.11$X np=1 \ # # $Z pu=0.4487989505128276 pv=0.8975979010256552 \ # # $Z R=$xTV/SPHE. \ # # $Z lister_les_points=VRAI \ # # $Z $formatI \ # # $Z |& $SE -f $xrv/supATTENTION$sed \ # # $Z -e "s/^periode=[^ ][^ ]* *//" \ # # $Z -e "s/^point=[^ ][^ ]* *//" \ # # $Z -e "s/ *RAYON=[^ ][^ ]*//" \ # # $Z -e "s/ *ROUGE=[^ ][^ ]*//" \ # # $Z -e "s/ *VERTE=[^ ][^ ]*//" \ # # $Z -e "s/ *BLEUE=[^ ][^ ]*//" \ # # $Z -e 's/$'"/ RAYON=$Ra/" \ # # $Z >>! $xT/CERCn # # # # $Z $xrv/map_ND_2D.11$Z Fichier3DA=$xT/CERCn \ # # $Z Fichier2DR=$xT/CERC2 \ # # $Z Z1=0.0 ZN=1.0 \ # # $Z Isoles=FAUX \ # # $Z Axes=VRAI \ # # $Z Couleurs=VRAI \ # # $Z RayonA=0.010 # # $Z $xrv/pts_3D.11$Z Fichier3DA=$xT/CERC2 \ # # $Z imageR=$xiirv/MAPn.42.S3 \ # # $Z Isoles=FAUX \ # # $Z Rotation_OX=+1.2 \ # # $Z Rotation_OY=0.0 \ # # $Z Rotation_OZ=0.0 \ # # $Z Zoom=0.8 \ # # $Z RayonCorrectZ=VRAI RayonCorrect1=VRAI \ # # $Z Brume=FAUX # # # # $Z $DELETE $xT/CERC2 # # $Z $DELETE $xT/CERCn # # # # # # Ceci visualise une sphere de centre {1/2,1/2,0} et de rayon 0.4 echantillonnee par 64 # # points repartis uniformement. # v $xiirv/MAPN.52.S2 v $xiirv/MAPn.52.S2 # Generee par : # # # # $Z Pal # # # # $Z $DELETE $xT/CERC2 # # $Z $DELETE $xT/CERCn # # # # $Z $DELETE $xT/CERCX # # $Z $DELETE $xT/CERCY # # # # $Z set XC=0.0 # # $Z set YC=0.0 # # # # $Z set RC=1.0 # # # # $Z set Ra=0.01500 # # # # $Z set Npoints=32 # # # # $Z $xci/valeurs_trig$X premiere=1 derniere=$Npoints \ # # $Z aD=0 aA=$dpi \ # # $Z rD=$RC rA=$RC \ # # $Z alpha=1 beta=0 gamma=0 facteur=0 \ # # $Z translation=$XC \ # # $Z cubique=FAUX \ # # $Z | $SE -e "s/^/X0001=/" \ # # $Z >>! $xT/CERCX # # $Z $xci/valeurs_trig$X premiere=1 derniere=$Npoints \ # # $Z aD=0 aA=$dpi \ # # $Z rD=$RC rA=$RC \ # # $Z alpha=0 beta=1 gamma=0 facteur=0 \ # # $Z translation=$YC \ # # $Z cubique=FAUX \ # # $Z | $SE -e "s/^/X0002=/" \ # # $Z >>! $xT/CERCY # # # # $Z $PAST $xT/CERCX $xT/CERCY \ # # $Z | $R "$K_TAB" "$K_BLANC" \ # # $Z | $SE -e 's/$'"/ RAYON=$Ra/" \ # # $Z >>! $xT/CERCn # # # # $Z $xrv/map_ND_2D.11$Z Fichier3DA=$xT/CERCn \ # # $Z Fichier2DR=$xT/CERC2 \ # # $Z Z1=0.0 ZN=1.0 \ # # $Z Isoles=FAUX \ # # $Z Axes=VRAI \ # # $Z Couleurs=VRAI \ # # $Z RayonA=0.010 # # $Z $xrv/pts_3D.11$Z Fichier3DA=$xT/CERC2 \ # # $Z imageR=$xiirv/MAPn.52.S2 \ # # $Z Isoles=FAUX \ # # $Z Rotation_OX=+1.2 \ # # $Z Rotation_OY=0.0 \ # # $Z Rotation_OZ=0.5 \ # # $Z Zoom=0.8 \ # # $Z RayonCorrectZ=VRAI RayonCorrect1=VRAI \ # # $Z Brume=VRAI # # # # $Z $DELETE $xT/CERC2 # # $Z $DELETE $xT/CERCn # # # # $Z $DELETE $xT/CERCX # # $Z $DELETE $xT/CERCY # # # # # # Ceci visualise un cercle trigonometrique (centre {0,0} et de rayon 1) a l'aide de 32 points # # repartis uniformement sur la circonference. # v $xiirv/MAPN.52.S3 v $xiirv/MAPn.52.S3 # Generee par : # # # # $Z Pal # # # # $Z $DELETE $xT/CERC2 # # $Z $DELETE $xT/CERCn # # # # $Z set Ra=0.01500 # # # # $Z $xrs/sphere.11$X np=1 \ # # $Z pu=0.4487989505128276 pv=0.8975979010256552 \ # # $Z PARAMETRE_R=1.0 \ # # $Z ZOOM=1.0 \ # # $Z R=$xTV/SPHE. \ # # $Z lister_les_points=VRAI \ # # $Z EXliste=2.0 TXliste=-1.0 \ # # $Z EYliste=2.0 TYliste=-1.0 \ # # $Z EZliste=2.0 TZliste=0.0 \ # # $Z $formatI \ # # $Z |& $SE -f $xrv/supATTENTION$sed \ # # $Z -e "s/^periode=[^ ][^ ]* *//" \ # # $Z -e "s/^point=[^ ][^ ]* *//" \ # # $Z -e "s/ *RAYON=[^ ][^ ]*//" \ # # $Z -e "s/ *ROUGE=[^ ][^ ]*//" \ # # $Z -e "s/ *VERTE=[^ ][^ ]*//" \ # # $Z -e "s/ *BLEUE=[^ ][^ ]*//" \ # # $Z -e 's/$'"/ RAYON=$Ra/" \ # # $Z -e "/^ *minimum/d" \ # # $Z -e "/^ *maximum/d" \ # # $Z >>! $xT/CERCn # # # # $Z $xrv/map_ND_2D.11$Z Fichier3DA=$xT/CERCn \ # # $Z Fichier2DR=$xT/CERC2 \ # # $Z Z1=0.0 ZN=1.0 \ # # $Z Isoles=FAUX \ # # $Z Axes=VRAI \ # # $Z Couleurs=VRAI \ # # $Z RayonA=0.010 # # $Z $xrv/pts_3D.11$Z Fichier3DA=$xT/CERC2 \ # # $Z imageR=$xiirv/MAPn.52.S3 \ # # $Z Isoles=FAUX \ # # $Z Rotation_OX=+1.2 \ # # $Z Rotation_OY=0.0 \ # # $Z Rotation_OZ=0.0 \ # # $Z Zoom=0.8 \ # # $Z RayonCorrectZ=VRAI RayonCorrect1=VRAI \ # # $Z Brume=VRAI # # # # $Z $DELETE $xT/CERC2 # # $Z $DELETE $xT/CERCn # # # # # # Ceci visualise une sphere de centre {0,0,0} et de rayon 1.0 echantillonnee par 64 # # points repartis uniformement. # v $xiirv/M.62.0052.C5 # Image '0052' de la sequence video : # # # # xivPdf 6 1 / 002145_002272 # # # v $xiirv/M.64.0001.C5 # Image '0001' de la sequence video : # # # # xivPdf 6 1 / 002401_002528 # # # v $xiirv/MAPN.72.C5 v $xiirv/MAPn.72.C5 # Generee par : # # # # # # :Debut_listG_MAPN_72_C5: # # # # $Z Pal # # # # $Z $DELETE $xT/CUBE2 # # $Z $DELETE $xT/CUBEn # # # # $Z set Xm=-1.0 # # $Z set XM=+1.0 # # # # $Z set Ym=-1.0 # # $Z set YM=+1.0 # # # # $Z set Zm=-1.0 # # $Z set ZM=+1.0 # # # # $Z set Tm=-1.0 # # $Z set TM=+1.0 # # # # $Z set Um=-1.0 # # $Z set UM=+1.0 # # # # $Z set Ra=0.00675 # # # # $Z echo "X0001=$Xm X0002=$Ym X0003=$Zm X0004=$Tm X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$Ym X0003=$Zm X0004=$Tm X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$YM X0003=$Zm X0004=$Tm X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$YM X0003=$Zm X0004=$Tm X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$Ym X0003=$ZM X0004=$Tm X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$Ym X0003=$ZM X0004=$Tm X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$YM X0003=$ZM X0004=$Tm X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$YM X0003=$ZM X0004=$Tm X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$Ym X0003=$Zm X0004=$TM X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$Ym X0003=$Zm X0004=$TM X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$YM X0003=$Zm X0004=$TM X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$YM X0003=$Zm X0004=$TM X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$Ym X0003=$ZM X0004=$TM X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$Ym X0003=$ZM X0004=$TM X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$YM X0003=$ZM X0004=$TM X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$YM X0003=$ZM X0004=$TM X0005=$Um RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$Ym X0003=$Zm X0004=$Tm X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$Ym X0003=$Zm X0004=$Tm X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$YM X0003=$Zm X0004=$Tm X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$YM X0003=$Zm X0004=$Tm X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$Ym X0003=$ZM X0004=$Tm X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$Ym X0003=$ZM X0004=$Tm X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$YM X0003=$ZM X0004=$Tm X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$YM X0003=$ZM X0004=$Tm X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$Ym X0003=$Zm X0004=$TM X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$Ym X0003=$Zm X0004=$TM X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$YM X0003=$Zm X0004=$TM X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$YM X0003=$Zm X0004=$TM X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$Ym X0003=$ZM X0004=$TM X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$Ym X0003=$ZM X0004=$TM X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z echo "X0001=$Xm X0002=$YM X0003=$ZM X0004=$TM X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # $Z echo "X0001=$XM X0002=$YM X0003=$ZM X0004=$TM X0005=$UM RAYON=$Ra" >>! $xT/CUBEn # # # # $Z $xrv/map_ND_2D.11$Z Fichier3DA=$xT/CUBEn \ # # $Z Fichier2DR=$xT/CUBE2 \ # # $Z Z1=0.0 ZN=1.0 \ # # $Z Isoles=FAUX \ # # $Z Axes=VRAI \ # # $Z Couleurs=VRAI \ # # $Z RayonA=0.010 # # $Z $xrv/pts_3D.11$Z Fichier3DA=$xT/CUBE2 \ # # $Z imageR=$xiirv/MAPn.72.C5 \ # # $Z Isoles=FAUX Grossissement=2.0 \ # # $Z Rotation_OX=+1.2 \ # # $Z Rotation_OY=0.0 \ # # $Z Rotation_OZ=0.0 \ # # $Z Zoom=0.8 \ # # $Z RayonCorrectZ=VRAI RayonCorrect1=VRAI # # # # $Z $DELETE $xT/CUBE2 # # $Z $DELETE $xT/CUBEn # # # # :Fin_listG_MAPN_72_C5: # # # # # # qui montre les 32 sommets d'un 5-cube (coordonnees dans [-1,+1]). # v $xiirv/MATH.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MATH_11: # # # # $Z Pal # # # # $Z set _____ImagesR=$xiirv/MATH.11 # # $m4 _____include(_____xiirv/.MATH.11.1._____U) # # # # :Fin_listG_MATH_11: # # # # # # Il s'agit d'une visualisation de la progression des Mathematiques... # v $xiirv/MDCH.11.0 v $xiirv/MDCH.11.1 v $xiirv/MDCH.11.2 v $xiirv/MDCH.11.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_MDCH_11: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/MDCH.11.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Champernowne_____113894 # # $Z set _____NIterations=113894 # # $Z set _____Zoom=0.085 # # $Z set _____ImageR=$xiirv/MDCH.11 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $Z set execRVB_Para=FAUX # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____CercleInscrit=VRAI # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_MDCH_11: # # # # # # Le nombre de Champernowne... # # # # Conversion du nombre decimal 0.123456789101112131... de 113.894 chiffres -base 10- # # en 0423555555... de 146.363 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # ATTENTION : ces decimales sont vues en fait comme un grand nombre entier "1234567891011..." # # ce qui n'est pas du tout la meme chose que "0.1234567891011..." puisque dans le premier # # cas, les premiers chiffres obtenus en changeant de base dependent evidemment du nombre # # total de chiffres convertis, ce qui n'est pas le cas avec la partie decimale. Dans ce # # dernier cas, on peut donc augmenter le nombre de chiffres et obtenir ainsi des figures # # qui recouvrent celles obtenues avec moins de chiffres. Ce n'est donc pas le cas ici en # # faisant comme s'il s'agissait d'un grand nombre entier... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.1906,+0.7091]x[-0.0542,+0.6326]x[-0.1122,+0.4284] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # On notera le "_____Zoom=0.085" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/MDCH.11.0'... # v $xiirv/MDCH.K5 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_MDCH_K5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NDecimales=50 # # # # $Z set _____FDecimales=($xrp/Decimales_Base10_Champernowne_____113894 "HELICE") # # $Z set _____Palette=($xiP/cercle.C5 $xiP/orange) # # $Z set _____VRayonD=(0.024 0.004) # # $Z set _____VRayonA=(0.010 0.004) # # # # Pour des raisons de "visibilite", il est important que les rayons 'D' et 'A' des decimales # # soient superieurs aux rayons 'D' et 'A' de l'"HELICE"... # # # # $Z SET _____VraieHelice=$EXIST # # $Z SET _____Etiquettage=$EXIST # # $Z set _____Grossissement=1 # # $Z set _____RotationY=$pis4 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" DepthCueingMaximal=1" # # $Z set _____ParticulePara="$_____ParticulePara"" DepthCueingMinimal=0" # # # # $Z set _____ImageR=$xiirv/MDCH.K5 # # $m4 _____include(_____xiirv/.PIPO.H1.1._____U) # # # # :Fin_listG_MDCH_K5: # # # # # # qui montre les premieres decimales du nombre de Champernowne sur une vraie helice (vue # # de cote) avec indication des decimales... # v $xiirv/MDCH.21.0 v $xiirv/MDCH.21.1 v $xiirv/MDCH.21.2 v $xiirv/MDCH.21.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_MDCH_21: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/MDCH.21.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base16_Champernowne_____130643 # # $Z SET _____FDecimalesDejaOBase=$EXIST # # $Z set _____NIterations=130643 # # # # $Z set _____Zoom=0.0038 # # # # $Z set _____MinZ=0.50 # # $Z set _____MaxZ=0.51 # # Ce petit intervalle [$_____MinZ,$_____MaxZ] est destine a compenser sur l'axe 'OZ' le # # tres faible facteur de zoom ('$_____Zoom'). En effet les valeurs par defaut de cet # # intervalle (a savoir [0.1,0.9]) avait donc pour effet de disperser les points dans la # # troisieme dimension et faisait ainsi perdre le connexite de la courbe. On notera de # # plus que j'ai utilise un temps [0.10,0.11] mais cela faisait perdre l'origine de la # # courbe (car certainement trop proche du "bord vertical avant" de l'espace), d'ou le # # [0.50,0.51] actuel (qui est au milieu...). # # # # $Z set _____ImageR=$xiirv/MDCH.21 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ParamStoreAlbum="epaississement_spherique=VRAI" # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $Z set execRVB_Para=FAUX # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____CercleInscrit=VRAI # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_MDCH_21: # # # # # # Le nombre de Champernowne en n'utilisant que les entiers de 0 a 5 (et non pas de 0 a 9) : # # # # Conversion du nombre decimal 0.1234510111213141520... de 130.643 chiffres -base 6- # # en 1234510111... de 130.643 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-0.2091,+0.5]x[+0.5,+1.0909]x[+0,+0.1013] --> [0.1,0.9]x[0.1,0.9]x[0.10,0.11] # # # # On notera le "_____Zoom=0.0038" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/MDCH.21.0'... # v $xiirv/MDCH.31.0 v $xiirv/MDCH.31.1 v $xiirv/MDCH.31.2 v $xiirv/MDCH.31.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_MDCH_31: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesUG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/MDCH.31.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_ChampernownePrime_____168982 # # $Z set _____NIterations=168982 # # $Z set _____Zoom=0.048 # # $Z set _____ImageR=$xiirv/MDCH.31 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____CercleInscrit=VRAI # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_MDCH_31: # # # # # # Le nombre de Champernowne en n'utilisant que les nombres premiers : # # # # Conversion du nombre decimal 0.235711131719232931... de 168.982 chiffres -base 10- # # en 1225252010... de 217.156 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # ATTENTION : ces decimales sont vues en fait comme un grand nombre entier "1234567891011..." # # ce qui n'est pas du tout la meme chose que "0.1234567891011..." puisque dans le premier # # cas, les premiers chiffres obtenus en changeant de base dependent evidemment du nombre # # total de chiffres convertis, ce qui n'est pas le cas avec la partie decimale. Dans ce # # dernier cas, on peut donc augmenter le nombre de chiffres et obtenir ainsi des figures # # qui recouvrent celles obtenues avec moins de chiffres. Ce n'est donc pas le cas ici en # # faisant comme s'il s'agissait d'un grand nombre entier... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.3339,+0.6920]x[+0.4644,+1.1134]x[-0.0931,+0.3148] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # On notera le "_____Zoom=0.048" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/MDCH.31.0'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:04:12 # # # # $xci/accumule.42$X : 00:12:43 # # # # On notera que contraiement aux images du meme type ('v $xiirv/MDCH.11.21' par exemple), # # celle-ci n'utilise pas '$xci/densite_3D.11$X'... # v $xiirv/MDEN.11.0 v $xiirv/MDEN.11.1 v $xiirv/MDEN.11.2 v $xiirv/MDEN.11.21 # Generee (sur '$CMAP28' -ex "picpus.polytechnique.fr"-) par : # # # # # # :Debut_listG_MDEN_11: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/MDEN.11.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_E_____100000 # # $Z set _____NIterations=100000 # # $Z set _____Zoom=0.085 # # $Z set _____ImageR=$xiirv/MDEN.11 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $Z set execRVB_Para=FAUX # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____CercleInscrit=VRAI # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_MDEN_11: # # # # # # La base 'e' des logarithmes neperien : # # # # Conversion du nombre decimal 2.718281828459045235... de 100.000 chiffres -base 10- # # en 4150520535... de 128.508 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.347,+0.8587]x[+0.3130,+0.6853]x[-0.0323,+0.6188] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # On notera le "_____Zoom=0.085" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/MDEN.11.0'... # v $xiirv/MDEN.K5 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_MDEN_K5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NDecimales=50 # # # # $Z set _____FDecimales=($xrp/Decimales_Base10_E_____100000 "HELICE") # # $Z set _____Palette=($xiP/cercle.C5 $xiP/orange) # # $Z set _____VRayonD=(0.024 0.004) # # $Z set _____VRayonA=(0.010 0.004) # # # # Pour des raisons de "visibilite", il est important que les rayons 'D' et 'A' des decimales # # soient superieurs aux rayons 'D' et 'A' de l'"HELICE"... # # # # $Z SET _____VraieHelice=$EXIST # # $Z SET _____Etiquettage=$EXIST # # $Z set _____Grossissement=1 # # $Z set _____RotationY=$pis4 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" DepthCueingMaximal=1" # # $Z set _____ParticulePara="$_____ParticulePara"" DepthCueingMinimal=0" # # # # $Z set _____ImageR=$xiirv/MDEN.K5 # # $m4 _____include(_____xiirv/.PIPO.H1.1._____U) # # # # :Fin_listG_MDEN_K5: # # # # # # qui montre les premieres decimales de 'e' sur une vraie helice (vue de cote) avec # # indication des decimales... # v $xiirv/MDEP.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MDEP_11: # # # # $Z Sdu # # # # $Z set _____FDecimales_P1=$xrp/Decimales_Base10_E_____100000 # # $Z set _____FDecimales_P2=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NIterations=40 # # $Z set _____Zoom=0.92 # # $Z set _____Grossissement=1.2 # # $Z set _____ImageR=$xiirv/MDEP.11 # # $m4 _____include(_____xiirv/.MDEP.11.1._____U) # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_MDEP_11: # # # # # # qui montre les 9030 premieres decimales en base 2 de 'e' et de 'pi' comme une marche # # aleatoire bidimensionnelle, 'e' definissant le deplacement sur 'OX' et 'pi' le deplacement # # sur 'OY'. # v $xiirv/MDPH.11.0 v $xiirv/MDPH.11.1 v $xiirv/MDPH.11.2 v $xiirv/MDPH.11.21 # Generee (sur '$CMAP28' -ex "picpus.polytechnique.fr"-) par : # # # # # # :Debut_listG_MDPH_11: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/MDPH.11.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Phi_____100000 # # $Z set _____NIterations=100000 # # $Z set _____Zoom=0.085 # # $Z set _____ImageR=$xiirv/MDPH.11 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $Z set execRVB_Para=FAUX # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____CercleInscrit=VRAI # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_MDPH_11: # # # # # # Le nombre d'or 'phi' : # # # # Conversion du nombre decimal 1.618033988749894848... de 100.000 chiffres -base 10- # # en 3412545543... de 128.508 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.4711,+0.9692]x[+0.3351,+0.7448]x[-0.1054,+0.4352] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # On notera le "_____Zoom=0.085" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/MDPH.11.0'... # v $xiirv/MDPH.K5 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_MDPH_K5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NDecimales=50 # # # # $Z set _____FDecimales=($xrp/Decimales_Base10_Phi_____100000 "HELICE") # # $Z set _____Palette=($xiP/cercle.C5 $xiP/orange) # # $Z set _____VRayonD=(0.024 0.004) # # $Z set _____VRayonA=(0.010 0.004) # # # # Pour des raisons de "visibilite", il est important que les rayons 'D' et 'A' des decimales # # soient superieurs aux rayons 'D' et 'A' de l'"HELICE"... # # # # $Z SET _____VraieHelice=$EXIST # # $Z SET _____Etiquettage=$EXIST # # $Z set _____Grossissement=1 # # $Z set _____RotationY=$pis4 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" DepthCueingMaximal=1" # # $Z set _____ParticulePara="$_____ParticulePara"" DepthCueingMinimal=0" # # # # $Z set _____ImageR=$xiirv/MDPH.K5 # # $m4 _____include(_____xiirv/.PIPO.H1.1._____U) # # # # :Fin_listG_MDPH_K5: # # # # # # qui montre les premieres decimales de 'phi' sur une vraie helice (vue de cote) avec # # indication des decimales... # v $xiirv/MDPI.11.0 v $xiirv/MDPI.11.1 v $xiirv/MDPI.11.2 v $xiirv/MDPI.11.21 # Generee (sur '$CMAP28' -ex "abbesses.polytechnique.fr"-) par : # # # # # # :Debut_listG_MDPI_11: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/MDPI.11.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NIterations=100000 # # $Z set _____Zoom=0.085 # # $Z set _____ImageR=$xiirv/MDPI.11 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $Z set execRVB_Para=FAUX # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____CercleInscrit=VRAI # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_MDPI_11: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre decimal 3.141592653589793238... de 100.000 chiffres -base 10- # # en 0503300514... de 128.508 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.4014,+0.7686]x[-0.1035,+0.6258]x[-0.0986,+0.6664] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # On notera le "_____Zoom=0.085" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/MDPI.11.0'... # v $xiirv/MDR2.11.0 v $xiirv/MDR2.11.1 v $xiirv/MDR2.11.2 v $xiirv/MDR2.11.21 # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_MDR2_11: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/MDR2.11.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Sqrt2_____100000 # # $Z set _____NIterations=100000 # # $Z set _____Zoom=0.085 # # $Z set _____ImageR=$xiirv/MDR2.11 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $Z set execRVB_Para=FAUX # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____CercleInscrit=VRAI # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_MDR2_11: # # # # # # La racine de 2 : # # # # Conversion du nombre decimal 1.414213562373095048... de 100.000 chiffres -base 10- # # en 2252453142... de 128.508 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # ATTENTION : ces decimales sont vues en fait comme un grand nombre entier "414213562373..." # # ce qui n'est pas du tout la meme chose que "0.414213562373..." puisque dans le premier # # cas, les premiers chiffres obtenus en changeant de base dependent evidemment du nombre # # total de chiffres convertis, ce qui n'est pas le cas avec la partie decimale. Dans ce # # dernier cas, on peut donc augmenter le nombre de chiffres et obtenir ainsi des figures # # qui recouvrent celles obtenues avec moins de chiffres. Ce n'est donc pas le cas ici en # # faisant comme s'il s'agissait d'un grand nombre entier... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.2399,+0.5748]x[+0.1889,+0.7601]x[-0.0578,+0.3230] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # On notera le "_____Zoom=0.085" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/MDR2.11.0'... # v $xiirv/MDR2.K5 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_MDR2_K5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NDecimales=50 # # # # $Z set _____FDecimales=($xrp/Decimales_Base10_Sqrt2_____100000 "HELICE") # # $Z set _____Palette=($xiP/cercle.C5 $xiP/orange) # # $Z set _____VRayonD=(0.024 0.004) # # $Z set _____VRayonA=(0.010 0.004) # # # # Pour des raisons de "visibilite", il est important que les rayons 'D' et 'A' des decimales # # soient superieurs aux rayons 'D' et 'A' de l'"HELICE"... # # # # $Z SET _____VraieHelice=$EXIST # # $Z SET _____Etiquettage=$EXIST # # $Z set _____Grossissement=1 # # $Z set _____RotationY=$pis4 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" DepthCueingMaximal=1" # # $Z set _____ParticulePara="$_____ParticulePara"" DepthCueingMinimal=0" # # # # $Z set _____ImageR=$xiirv/MDR2.K5 # # $m4 _____include(_____xiirv/.PIPO.H1.1._____U) # # # # :Fin_listG_MDR2_K5: # # # # # # qui montre les premieres decimales de 'racine(2)' sur une vraie helice (vue de cote) avec # # indication des decimales... # v $xiirv/MDRD.11.0 v $xiirv/MDRD.11.1 v $xiirv/MDRD.11.2 v $xiirv/MDRD.11.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_MDRD_11: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesUG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/MDRD.11.T # # # # $Z FilSTmpB DeCiMaLeS_RDN # # # # $Z set _____FDecimales=$DeCiMaLeS_RDN # # $Z SET _____FDecimalesDejaOBase=$EXIST # # $Z set _____NIterations=130643 # # $Z # # $Z $xci/valeurs_alea$X \ # # $Z premiere=1 derniere=$_____NIterations \ # # $Z inferieur=0 superieur=5 \ # # $Z entiers=VRAI message_borne_superieure_entiere=FAUX \ # # $Z signe="$K_VIDE" \ # # $Z >> $DeCiMaLeS_RDN # # # # $Z set _____Zoom=0.090 # # # # $Z set _____ImageR=$xiirv/MDRD.11 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z FilSTmpE DeCiMaLeS_RDN # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ParamStoreAlbum="epaississement_spherique=VRAI" # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____CercleInscrit=VRAI # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_MDRD_11: # # # # # # Des decimales {0,1,2,3,4,5} aleatoires : # # # # Conversion du nombre entier 145350213240515455533... de 130.643 chiffres -base 6- # # en 1453502132... de 130.643 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # Voici la distribution des chiffres de "0" a "5" : # # # # 21825 "0" # # 21626 "1" # # 21956 "2" # # 21861 "3" # # 21650 "4" # # 21725 "5" # # # # Il y a donc une bonne equirepartition... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.347,+0.9752]x[+0.4874,+0.7016]x[-0.3132,+0.1386] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # --------------- # # # # On notera que les coordonnees 'Y' sont tres "ramassees" : leur intervalle [+0.4874,+0.7016] # # a comme amplitude 0.7016-0.4874=0.2142, alors que pour 'X' c'est 0.9752-0.347=0.6282 (et # # pour 'Z', c'est 0.1386+0.3132=0.4518, meme si cela a peu d'importance pour le phenomene # # ici evoque...). Ainsi, 'Y' est 0.6282/0.2142=3 (approximativement...) plus "ramasse" que # # 'X' et c'est ce qui explique cet allongement vertical apparent de la trajectoire car, en # # effet, les trois coordonnees sont toutes renormalisees de la meme facon dans [0.1,0.9]... # # # # On notera le "_____Zoom=0.090" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/MDRD.11.0'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:00:26 # # # # $xci/accumule.42$X : 00:03:02 # # # v $xiirv/MDSO.11.0 v $xiirv/MDSO.11.1 v $xiirv/MDSO.11.2 v $xiirv/MDSO.11.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_MDSO_11: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesUG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/MDSO.11.T # # # # $Z FilSTmpB DeCiMaLeS_SOURCE # # # # $Z set _____FSource=$xiii/di_album$FON # # Il s'agit de la version du 20190209102839... # # # # $Z set _____FDecimales=$DeCiMaLeS_SOURCE # # $Z SET _____FDecimalesDejaOBase=$EXIST # # # # $Z $CA $_____FSource | \ # # $Z $GRE -v '^ */\*' | \ # # $Z $GRE -v '^___________*$' | \ # # $Z $GRE -v '^ *$' | \ # # $Z $SE -e "s/ */ /g" \ # # $Z -e "s/^ //" \ # # $Z >> $DeCiMaLeS_SOURCE # # ATTENTION : les commentaires sont elimines... # # # # $Z set _____NIterations=`$CA $DeCiMaLeS_SOURCE | $WCc` # # # # $Z $xci/substitue$X \ # # $Z A=$DeCiMaLeS_SOURCE \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z p=$xiP/RandomWalk_3D.10 \ # # $Z R=$DeCiMaLeS_SOURCE \ # # $Z Xmin=1 Xmax=$_____NIterations \ # # $Z Ymin=$Ymin Ymax=$Ymin \ # # $Z ValiderAxes=FAUX # # # # $Z $CA $DeCiMaLeS_SOURCE | \ # # $Z $SE -e "s/\(.\)/\1\n/g" | \ # # $Z $SOR | \ # # $Z $UNI -c # # # # $Z set _____Zoom=0.0021 # # # # $Z set _____MinZ=0.50 # # $Z set _____MaxZ=0.51 # # Ce petit intervalle [$_____MinZ,$_____MaxZ] est destine a compenser sur l'axe 'OZ' le # # tres faible facteur de zoom ('$_____Zoom'). En effet les valeurs par defaut de cet # # intervalle (a savoir [0.1,0.9]) avait donc pour effet de disperser les points dans la # # troisieme dimension et faisait ainsi perdre le connexite de la courbe. On notera de # # plus que j'ai utilise un temps [0.10,0.11] mais cela faisait perdre l'origine de la # # courbe (car certainement trop proche du "bord vertical avant" de l'espace), d'ou le # # [0.50,0.51] actuel (qui est au milieu...). # # # # $Z set _____ImageR=$xiirv/MDSO.11 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z FilSTmpE DeCiMaLeS_SOURCE # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ParamStoreAlbum="epaississement_spherique=VRAI" # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____CercleInscrit=VRAI # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_MDSO_11: # # # # # # qui montre les 260102 premieres decimales d'un nombre dont les decimales {0,1,2,3,4,5} # # sont obtenues a partir d'un fichier '$FON' SANS commentaires et considerees comme une # # marche aleatoire en coordonnees cartesiennes tridimensionnelles. # # # # Voici la distribution des chiffres de "0" a "5" : # # # # 29178 "0" # # 38530 "1" # # 47728 "2" # # 43357 "3" # # 35245 "4" # # 66064 "5" # # # # Il n'y a donc pas equirepartition : le "5" l'emporte, d'ou une direction privilegiee... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.1059,+0.5000]x[+0.4858,+0.6836]x[-1.294,+0.0005] --> [0.1,0.9]x[0.1,0.9]x[0.50,0.51] # # # # On notera le "_____Zoom=0.0021" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/MDRD.11.0'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:01:32 # # # # $xci/accumule.42$X : 00:12:21 # # # v $xiirv/MDSO.12.0 v $xiirv/MDSO.12.1 v $xiirv/MDSO.12.2 v $xiirv/MDSO.12.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_MDSO_12: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesUG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/MDSO.12.T # # # # $Z FilSTmpB DeCiMaLeS_SOURCE # # # # $Z set _____FSource=$xiii/di_image$FON # # Il s'agit de la version du 20190208145139... # # # # $Z set _____FDecimales=$DeCiMaLeS_SOURCE # # $Z SET _____FDecimalesDejaOBase=$EXIST # # # # $Z $CA $_____FSource | \ # # $Z $GRE -v '^ */\*' | \ # # $Z $GRE -v '^___________*$' | \ # # $Z $GRE -v '^ *$' | \ # # $Z $SE -e "s/ */ /g" \ # # $Z -e "s/^ //" \ # # $Z >> $DeCiMaLeS_SOURCE # # ATTENTION : les commentaires sont elimines... # # # # $Z set _____NIterations=`$CA $DeCiMaLeS_SOURCE | $WCc` # # # # $Z $xci/substitue$X \ # # $Z A=$DeCiMaLeS_SOURCE \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z p=$xiP/RandomWalk_3D.10 \ # # $Z R=$DeCiMaLeS_SOURCE \ # # $Z Xmin=1 Xmax=$_____NIterations \ # # $Z Ymin=$Ymin Ymax=$Ymin \ # # $Z ValiderAxes=FAUX # # # # $Z $CA $DeCiMaLeS_SOURCE | \ # # $Z $SE -e "s/\(.\)/\1\n/g" | \ # # $Z $SOR | \ # # $Z $UNI -c # # # # $Z set _____Zoom=0.0011 # # # # $Z set _____MinZ=0.50 # # $Z set _____MaxZ=0.51 # # Ce petit intervalle [$_____MinZ,$_____MaxZ] est destine a compenser sur l'axe 'OZ' le # # tres faible facteur de zoom ('$_____Zoom'). En effet les valeurs par defaut de cet # # intervalle (a savoir [0.1,0.9]) avait donc pour effet de disperser les points dans la # # troisieme dimension et faisait ainsi perdre le connexite de la courbe. On notera de # # plus que j'ai utilise un temps [0.10,0.11] mais cela faisait perdre l'origine de la # # courbe (car certainement trop proche du "bord vertical avant" de l'espace), d'ou le # # [0.50,0.51] actuel (qui est au milieu...). # # # # $Z set _____ImageR=$xiirv/MDSO.12 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z FilSTmpE DeCiMaLeS_SOURCE # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ParamStoreAlbum="epaississement_spherique=VRAI" # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____CercleInscrit=VRAI # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_MDSO_12: # # # # # # qui montre les 430375 premieres decimales d'un nombre dont les decimales {0,1,2,3,4,5} # # sont obtenues a partir d'un fichier '$FON' SANS commentaires et considerees comme une # # marche aleatoire en coordonnees cartesiennes tridimensionnelles. # # # # Voici la distribution des chiffres de "0" a "5" : # # # # 45422 "0" # # 68584 "1" # # 76510 "2" # # 72392 "3" # # 64165 "4" # # 103302 "5" # # # # Il n'y a donc pas equirepartition : le "5" l'emporte, d'ou une direction privilegiee... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-0.0097,+0.500]x[+0.4998,+0.5924]x[-0.8611,+0.0002] --> [0.1,0.9]x[0.1,0.9]x[0.50,0.51] # # # # On notera le "_____Zoom=0.0011" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/MDRD.12.0'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:00:26 # # # # $xci/accumule.42$X : 00:02:59 # # # v $xiirv/MDSO.21.0 v $xiirv/MDSO.21.1 v $xiirv/MDSO.21.2 v $xiirv/MDSO.21.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_MDSO_21: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesUG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/MDSO.21.T # # # # $Z FilSTmpB DeCiMaLeS_SOURCE # # # # $Z set _____FSource=$xtc/HexagonesPremiers.01$vv$c # # Il s'agit de la version du 20180704093618... # # # # $Z set _____FDecimales=$DeCiMaLeS_SOURCE # # $Z SET _____FDecimalesDejaOBase=$EXIST # # # # $Z $CA $_____FSource | \ # # $Z $GRE -v '^ *$' | \ # # $Z $SE -e "s/ */ /g" \ # # $Z -e "s/^ //" \ # # $Z >> $DeCiMaLeS_SOURCE # # ATTENTION : les commentaires sont conserves... # # # # $Z set _____NIterations=`$CA $DeCiMaLeS_SOURCE | $WCc` # # # # $Z $xci/substitue$X \ # # $Z A=$DeCiMaLeS_SOURCE \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z p=$xiP/RandomWalk_3D.10 \ # # $Z R=$DeCiMaLeS_SOURCE \ # # $Z Xmin=1 Xmax=$_____NIterations \ # # $Z Ymin=$Ymin Ymax=$Ymin \ # # $Z ValiderAxes=FAUX # # # # $Z $CA $DeCiMaLeS_SOURCE | \ # # $Z $SE -e "s/\(.\)/\1\n/g" | \ # # $Z $SOR | \ # # $Z $UNI -c # # # # $Z set _____Zoom=0.0065 # # # # $Z set _____MinZ=0.50 # # $Z set _____MaxZ=0.51 # # Ce petit intervalle [$_____MinZ,$_____MaxZ] est destine a compenser sur l'axe 'OZ' le # # tres faible facteur de zoom ('$_____Zoom'). En effet les valeurs par defaut de cet # # intervalle (a savoir [0.1,0.9]) avait donc pour effet de disperser les points dans la # # troisieme dimension et faisait ainsi perdre le connexite de la courbe. On notera de # # plus que j'ai utilise un temps [0.10,0.11] mais cela faisait perdre l'origine de la # # courbe (car certainement trop proche du "bord vertical avant" de l'espace), d'ou le # # [0.50,0.51] actuel (qui est au milieu...). # # # # $Z set _____ImageR=$xiirv/MDSO.21 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z FilSTmpE DeCiMaLeS_SOURCE # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ParamStoreAlbum="epaississement_spherique=VRAI" # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____CercleInscrit=VRAI # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_MDSO_21: # # # # # # qui montre les 46678 premieres decimales d'un nombre dont les decimales {0,1,2,3,4,5} # # sont obtenues a partir d'un fichier '$c' AVEC commentaires et considerees comme une # # marche aleatoire en coordonnees cartesiennes tridimensionnelles. # # # # Voici la distribution des chiffres de "0" a "5" : # # # # 7210 "0" # # 7028 "1" # # 10850 "2" # # 6531 "3" # # 5445 "4" # # 9614 "5" # # # # Il n'y a donc pas equirepartition : le "2" l'emporte, d'ou une direction privilegiee... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.5,+0.57475]x[+0.5,+1.0616]x[-0.54236,+0] --> [0.1,0.9]x[0.1,0.9]x[0.50,0.51] # # # # On notera le "_____Zoom=0.0065" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/MDRD.21.0'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:00:29 # # # # $xci/accumule.42$X : 00:03:01 # # # v $xiirv/MDSO.22.0 v $xiirv/MDSO.22.1 v $xiirv/MDSO.22.2 v $xiirv/MDSO.22.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_MDSO_22: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesUG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/MDSO.22.T # # # # $Z FilSTmpB DeCiMaLeS_SOURCE # # # # $Z set _____FSource=$xcpp/beau_cpp$c # # Il s'agit de la version du 20190122175806... # # # # $Z set _____FDecimales=$DeCiMaLeS_SOURCE # # $Z SET _____FDecimalesDejaOBase=$EXIST # # # # $Z $CA $_____FSource | \ # # $Z $GRE -v '^ *$' | \ # # $Z $SE -e "s/ */ /g" \ # # $Z -e "s/^ //" \ # # $Z >> $DeCiMaLeS_SOURCE # # ATTENTION : les commentaires sont conserves... # # # # $Z set _____NIterations=`$CA $DeCiMaLeS_SOURCE | $WCc` # # # # $Z $xci/substitue$X \ # # $Z A=$DeCiMaLeS_SOURCE \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z p=$xiP/RandomWalk_3D.10 \ # # $Z R=$DeCiMaLeS_SOURCE \ # # $Z Xmin=1 Xmax=$_____NIterations \ # # $Z Ymin=$Ymin Ymax=$Ymin \ # # $Z ValiderAxes=FAUX # # # # $Z $CA $DeCiMaLeS_SOURCE | \ # # $Z $SE -e "s/\(.\)/\1\n/g" | \ # # $Z $SOR | \ # # $Z $UNI -c # # # # $Z set _____Zoom=0.0050 # # # # $Z set _____MinZ=0.50 # # $Z set _____MaxZ=0.51 # # Ce petit intervalle [$_____MinZ,$_____MaxZ] est destine a compenser sur l'axe 'OZ' le # # tres faible facteur de zoom ('$_____Zoom'). En effet les valeurs par defaut de cet # # intervalle (a savoir [0.1,0.9]) avait donc pour effet de disperser les points dans la # # troisieme dimension et faisait ainsi perdre le connexite de la courbe. On notera de # # plus que j'ai utilise un temps [0.10,0.11] mais cela faisait perdre l'origine de la # # courbe (car certainement trop proche du "bord vertical avant" de l'espace), d'ou le # # [0.50,0.51] actuel (qui est au milieu...). # # # # $Z set _____ImageR=$xiirv/MDSO.22 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z FilSTmpE DeCiMaLeS_SOURCE # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ParamStoreAlbum="epaississement_spherique=VRAI" # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____CercleInscrit=VRAI # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_MDSO_22: # # # # # # qui montre les 86846 premieres decimales d'un nombre dont les decimales {0,1,2,3,4,5} # # sont obtenues a partir d'un fichier '$c' AVEC commentaires et considerees comme une # # marche aleatoire en coordonnees cartesiennes tridimensionnelles. # # # # Voici la distribution des chiffres de "0" a "5" : # # # # 12554 "0" # # 12469 "1" # # 20343 "2" # # 13429 "3" # # 13131 "4" # # 14920 "5" # # # # Il n'y a donc pas equirepartition : le "2" l'emporte, d'ou une direction privilegiee... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.4794,+0.5600]x[+0.5,+1.1915]x[-0.1818,0] --> [0.1,0.9]x[0.1,0.9]x[0.50,0.51] # # # # On notera le "_____Zoom=0.0050" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/MDRD.22.0'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:00:31 # # # # $xci/accumule.42$X : 00:02:59 # # # v $xiirv/MDSO.31.0 v $xiirv/MDSO.31.1 v $xiirv/MDSO.31.2 v $xiirv/MDSO.31.21 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_MDSO_31: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesUG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/MDSO.31.T # # # # $Z FilSTmpB DeCiMaLeS_SOURCE # # # # $Z set _____FSource=$xiii/di_album$FON # # Il s'agit de la version du 20190209102839... # # # # $Z set _____FDecimales=$DeCiMaLeS_SOURCE # # $Z SET _____FDecimalesDejaOBase=$EXIST # # # # $Z $CA $_____FSource | \ # # $Z $GRE -v '^ */\*' | \ # # $Z $GRE -v '^___________*$' | \ # # $Z $GRE -v '^ *$' | \ # # $Z $SE -e "s/ */ /g" \ # # $Z -e "s/^ //" \ # # $Z >> $DeCiMaLeS_SOURCE # # ATTENTION : les commentaires sont elimines... # # # # $Z set _____NIterations=`$CA $DeCiMaLeS_SOURCE | $WCc` # # # # $Z $xci/substitue$X \ # # $Z A=$DeCiMaLeS_SOURCE \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z p=$xiP/RandomWalk_3D.11 \ # # $Z R=$DeCiMaLeS_SOURCE \ # # $Z Xmin=1 Xmax=$_____NIterations \ # # $Z Ymin=$Ymin Ymax=$Ymin \ # # $Z ValiderAxes=FAUX # # # # $Z set _____Zoom=0.0018 # # # # $Z set _____MinZ=0.50 # # $Z set _____MaxZ=0.51 # # Ce petit intervalle [$_____MinZ,$_____MaxZ] est destine a compenser sur l'axe 'OZ' le # # tres faible facteur de zoom ('$_____Zoom'). En effet les valeurs par defaut de cet # # intervalle (a savoir [0.1,0.9]) avait donc pour effet de disperser les points dans la # # troisieme dimension et faisait ainsi perdre le connexite de la courbe. On notera de # # plus que j'ai utilise un temps [0.10,0.11] mais cela faisait perdre l'origine de la # # courbe (car certainement trop proche du "bord vertical avant" de l'espace), d'ou le # # [0.50,0.51] actuel (qui est au milieu...). # # # # $Z set _____ImageR=$xiirv/MDSO.31 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z FilSTmpE DeCiMaLeS_SOURCE # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ParamStoreAlbum="epaississement_spherique=VRAI" # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____CercleInscrit=VRAI # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_MDSO_31: # # # # # # qui montre les 260102 premieres decimales d'un nombre dont les decimales {0,1,2,3,4,5} # # sont obtenues a partir d'un fichier '$FON' SANS commentaires et considerees comme une # # marche aleatoire en coordonnees cartesiennes tridimensionnelles. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.4872,+0.5396]x[+0.499,+1.1776]x[-0.0561,+0.0983] --> [0.1,0.9]x[0.1,0.9]x[0.50,0.51] # # # # On notera le "_____Zoom=0.0018" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/MDRD.31.0'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:00:33 # # # # $xci/accumule.42$X : 00:03:56 # # # v $xiirv/MDSO.32.0 v $xiirv/MDSO.32.1 v $xiirv/MDSO.32.2 v $xiirv/MDSO.32.21 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_MDSO_32: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesUG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/MDSO.32.T # # # # $Z FilSTmpB DeCiMaLeS_SOURCE # # # # $Z set _____FSource=$xiii/di_image$FON # # Il s'agit de la version du 20190208145139... # # # # $Z set _____FDecimales=$DeCiMaLeS_SOURCE # # $Z SET _____FDecimalesDejaOBase=$EXIST # # # # $Z $CA $_____FSource | \ # # $Z $GRE -v '^ */\*' | \ # # $Z $GRE -v '^___________*$' | \ # # $Z $GRE -v '^ *$' | \ # # $Z $SE -e "s/ */ /g" \ # # $Z -e "s/^ //" \ # # $Z >> $DeCiMaLeS_SOURCE # # ATTENTION : les commentaires sont elimines... # # # # $Z set _____NIterations=`$CA $DeCiMaLeS_SOURCE | $WCc` # # # # $Z $xci/substitue$X \ # # $Z A=$DeCiMaLeS_SOURCE \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z p=$xiP/RandomWalk_3D.11 \ # # $Z R=$DeCiMaLeS_SOURCE \ # # $Z Xmin=1 Xmax=$_____NIterations \ # # $Z Ymin=$Ymin Ymax=$Ymin \ # # $Z ValiderAxes=FAUX # # # # $Z set _____Zoom=0.0009 # # # # $Z set _____MinZ=0.50 # # $Z set _____MaxZ=0.51 # # Ce petit intervalle [$_____MinZ,$_____MaxZ] est destine a compenser sur l'axe 'OZ' le # # tres faible facteur de zoom ('$_____Zoom'). En effet les valeurs par defaut de cet # # intervalle (a savoir [0.1,0.9]) avait donc pour effet de disperser les points dans la # # troisieme dimension et faisait ainsi perdre le connexite de la courbe. On notera de # # plus que j'ai utilise un temps [0.10,0.11] mais cela faisait perdre l'origine de la # # courbe (car certainement trop proche du "bord vertical avant" de l'espace), d'ou le # # [0.50,0.51] actuel (qui est au milieu...). # # # # $Z set _____ImageR=$xiirv/MDSO.32 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z FilSTmpE DeCiMaLeS_SOURCE # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ParamStoreAlbum="epaississement_spherique=VRAI" # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____CercleInscrit=VRAI # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_MDSO_32: # # # # # # qui montre les 430375 premieres decimales d'un nombre dont les decimales {0,1,2,3,4,5} # # sont obtenues a partir d'un fichier '$FON' SANS commentaires et considerees comme une # # marche aleatoire en coordonnees cartesiennes tridimensionnelles. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.4951,+0.5873]x[+0.499,+1.1193]x[-0.0033,+0.1141] --> [0.1,0.9]x[0.1,0.9]x[0.50,0.51] # # # # On notera le "_____Zoom=0.0009" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/MDRD.32.0'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:00:26 # # # # $xci/accumule.42$X : 00:03:53 # # # v $xiirv/MDSO.41.0 v $xiirv/MDSO.41.1 v $xiirv/MDSO.41.2 v $xiirv/MDSO.41.21 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_MDSO_41: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesUG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/MDSO.41.T # # # # $Z FilSTmpB DeCiMaLeS_SOURCE # # # # $Z set _____FSource=$xtc/HexagonesPremiers.01$vv$c # # Il s'agit de la version du 20180704093618... # # # # $Z set _____FDecimales=$DeCiMaLeS_SOURCE # # $Z SET _____FDecimalesDejaOBase=$EXIST # # # # $Z $CA $_____FSource | \ # # $Z $GRE -v '^ *$' | \ # # $Z $SE -e "s/ */ /g" \ # # $Z -e "s/^ //" \ # # $Z >> $DeCiMaLeS_SOURCE # # ATTENTION : les commentaires sont conserves... # # # # $Z set _____NIterations=`$CA $DeCiMaLeS_SOURCE | $WCc` # # # # $Z $xci/substitue$X \ # # $Z A=$DeCiMaLeS_SOURCE \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z p=$xiP/RandomWalk_3D.11 \ # # $Z R=$DeCiMaLeS_SOURCE \ # # $Z Xmin=1 Xmax=$_____NIterations \ # # $Z Ymin=$Ymin Ymax=$Ymin \ # # $Z ValiderAxes=FAUX # # # # $Z set _____Zoom=0.0100 # # # # $Z set _____MinZ=0.50 # # $Z set _____MaxZ=0.51 # # Ce petit intervalle [$_____MinZ,$_____MaxZ] est destine a compenser sur l'axe 'OZ' le # # tres faible facteur de zoom ('$_____Zoom'). En effet les valeurs par defaut de cet # # intervalle (a savoir [0.1,0.9]) avait donc pour effet de disperser les points dans la # # troisieme dimension et faisait ainsi perdre le connexite de la courbe. On notera de # # plus que j'ai utilise un temps [0.10,0.11] mais cela faisait perdre l'origine de la # # courbe (car certainement trop proche du "bord vertical avant" de l'espace), d'ou le # # [0.50,0.51] actuel (qui est au milieu...). # # # # $Z set _____ImageR=$xiirv/MDSO.41 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z FilSTmpE DeCiMaLeS_SOURCE # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ParamStoreAlbum="epaississement_spherique=VRAI" # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____CercleInscrit=VRAI # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_MDSO_41: # # # # # # qui montre les 46678 premieres decimales d'un nombre dont les decimales {0,1,2,3,4,5} # # sont obtenues a partir d'un fichier '$c' AVEC commentaires et considerees comme une # # marche aleatoire en coordonnees cartesiennes tridimensionnelles. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.4982,+0.9172]x[+0.4418,+0.7918]x[-0.0012,+1.230] --> [0.1,0.9]x[0.1,0.9]x[0.50,0.51] # # # # On notera le "_____Zoom=0.0100" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/MDRD.41.0'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:00:26 # # # # $xci/accumule.42$X : 00:03:55 # # # v $xiirv/MDSO.42.0 v $xiirv/MDSO.42.1 v $xiirv/MDSO.42.2 v $xiirv/MDSO.42.21 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_MDSO_42: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesUG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/MDSO.42.T # # # # $Z FilSTmpB DeCiMaLeS_SOURCE # # # # $Z set _____FSource=$xcpp/beau_cpp$c # # Il s'agit de la version du 20190122175806... # # # # $Z set _____FDecimales=$DeCiMaLeS_SOURCE # # $Z SET _____FDecimalesDejaOBase=$EXIST # # # # $Z $CA $_____FSource | \ # # $Z $GRE -v '^ *$' | \ # # $Z $SE -e "s/ */ /g" \ # # $Z -e "s/^ //" \ # # $Z >> $DeCiMaLeS_SOURCE # # ATTENTION : les commentaires sont conserves... # # # # $Z set _____NIterations=`$CA $DeCiMaLeS_SOURCE | $WCc` # # # # $Z $xci/substitue$X \ # # $Z A=$DeCiMaLeS_SOURCE \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z p=$xiP/RandomWalk_3D.11 \ # # $Z R=$DeCiMaLeS_SOURCE \ # # $Z Xmin=1 Xmax=$_____NIterations \ # # $Z Ymin=$Ymin Ymax=$Ymin \ # # $Z ValiderAxes=FAUX # # # # $Z set _____Zoom=0.0090 # # # # $Z set _____MinZ=0.50 # # $Z set _____MaxZ=0.51 # # Ce petit intervalle [$_____MinZ,$_____MaxZ] est destine a compenser sur l'axe 'OZ' le # # tres faible facteur de zoom ('$_____Zoom'). En effet les valeurs par defaut de cet # # intervalle (a savoir [0.1,0.9]) avait donc pour effet de disperser les points dans la # # troisieme dimension et faisait ainsi perdre le connexite de la courbe. On notera de # # plus que j'ai utilise un temps [0.10,0.11] mais cela faisait perdre l'origine de la # # courbe (car certainement trop proche du "bord vertical avant" de l'espace), d'ou le # # [0.50,0.51] actuel (qui est au milieu...). # # # # $Z set _____ImageR=$xiirv/MDSO.42 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z FilSTmpE DeCiMaLeS_SOURCE # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ParamStoreAlbum="epaississement_spherique=VRAI" # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____CercleInscrit=VRAI # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_MDSO_42: # # # # # # qui montre les 86846 premieres decimales d'un nombre dont les decimales {0,1,2,3,4,5} # # sont obtenues a partir d'un fichier '$c' AVEC commentaires et considerees comme une # # marche aleatoire en coordonnees cartesiennes tridimensionnelles. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.4967,+0.5943]x[+0.4375,+0.8254]x[-0.0011,+1.739] --> [0.1,0.9]x[0.1,0.9]x[0.50,0.51] # # # # On notera le "_____Zoom=0.0090" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/MDRD.42.0'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:00:41 # # # # $xci/accumule.42$X : 00:03:56 # # # v $xiirv/MODE.11 p=$xiP/cercle.35 v $xiirv/MODE.11$R04 v $xiirv/MODE.11$M$R04 # Cette demonstration utilise le champ fractal '$xiirv/MODE.11' genere sur '$LACT27'. # # Ensuite, '$xiirv/MODE.11$R04' montre ce champ avec les 4 palettes suivantes : # # # # 01 : $xiP/plan.04 # # 02 : $xiP/turbul.07 # # 03 : $xiP/marron # # 04 : $xiP/binaireJB.01 # # # # puis, '$xiirv/MODE.11$M$R04' le presente en montagne avec : # # # # 01 : avion=VRAI $xiP/montagnes.01 # # 02 : avion=FAUX Ty=0.65 depth=FAUX $xiP/montagnes.01 # # 03 : avion=FAUX Ty=0.65 depth=VRAI min=0.2 $xiP/enfer.03 # # 04 : avion=FAUX Ty=0.65 depth=FAUX $xiP/fractal.11 # # # v $xiirv/MODE.21$R04 # Cette demonstration utilise montre 4 visualisations differentes d'un ensemble de Julia # # dans les Quaternions : # # # # 01 : $xiirc/JULI.N1.0102$DROITE $xiP/fractal.91 # # 02 : $xiirc/JULI.V2.0004 RVB # # 03 : $xiirc/JULI.Z1.0001 RVB # # 04 : $xiirc/JULI.h2.1.1 RVB # # # v $xiirv/MODE.31 # Cette demonstration montre : # # # # gauche : $xifc/MAND.2.0015 $xiP/cercle.35 # # droite : $xifc/MAND.2.0015 $xiP/gris.05 # # # # ce qui peut cacher des details importants... # v $xiirv/MONT.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MONT_11: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____AngleD=$pis2 # # $Z set _____EpaisseurD=0.006 # # $Z set _____AngleA=`calcul -($pi)` # # $Z set _____EpaisseurA=0.060 # # $Z set _____ImageR=$xiirv/MONT.11 # # $m4 _____include(_____xiirv/.MONT.11.1._____U) # # # # :Fin_listG_MONT_11: # # # v $xiirv/MONT.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MONT_21: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____AngleD=0 # # $Z set _____EpaisseurD=0.006 # # $Z set _____AngleA=`calcul +(3*$dpi)/4` # # $Z set _____EpaisseurA=0.060 # # $Z set _____ImageR=$xiirv/MONT.21 # # $m4 _____include(_____xiirv/.MONT.11.1._____U) # # # # :Fin_listG_MONT_21: # # # v $xiirv/MORL.11.100615 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_MORL_11_100615: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z set _____ParamsOnd="$K_VIDE" # # $Z set _____ParamsOnd="$_____ParamsOnd"" dilatation=0.10" # # $Z set _____ParamsOnd="$_____ParamsOnd"" angle=$pis2" # # $Z set _____ParamsOnd="$_____ParamsOnd"" nombre_periodes=6" # # # # $Z set _____ImageR=$xiirv/MORL.11.100615 # # # # $Z $xci/morlet.01$X \ # # $Z standard=VRAI \ # # $Z $_____ParamsOnd \ # # $Z RR=$_____ImageR$ROUGE \ # # $Z RI=$_____ImageR$VERTE \ # # $Z $formatI # # # # $Z $xci/init$X \ # # $Z niveau=$NOIR \ # # $Z R=$_____ImageR$BLEUE \ # # $Z $formatI # # # # :Fin_listG_MORL_11_100615: # # # # # # Montre une ondelette de Morlet complexe, les parties Reelle et Imaginaire etant '$ROUGE' # # et '$VERTE' respectivement. Son nom suit les conventions 'v $xiio/$Fnota 100615'... # v $xiirv/NBOR.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_NBOR_11: # # # # $Z Std # # # # $Z set _____ImageR=$xiirv/NBOR.11 # # $m4 _____include(_____xiirv/.NBOR.11.1._____U) # # # # :Fin_listG_NBOR_11: # # # # # # qui montre une famille de rectangles en notant le format 'Std' afin de garantir un # # rectangle proche du rectangle d'or... # v $xiirv/NBOR.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_NBOR_21: # # # # $Z Pal # # # # $Z set _____ImageR=$xiirv/NBOR.21 # # $m4 _____include(_____xiirv/.NBOR.21.1._____U) # # # # :Fin_listG_NBOR_21: # # # # # # qui montre la definition du rectangle d'or. # v $xiirv/NDIM.11 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_NDIM_11: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument ROTATION_OX=0.4" # # $Z set _____Argument="$_____Argument ZOOM=0.85" # # $Z set _____Argument="$_____Argument cubique=VRAI" # # $Z set _____Argument="$_____Argument LISTE_dX=1.1" # # $Z set _____Argument="$_____Argument LISTE_dY=1.2" # # $Z set _____Argument="$_____Argument LISTE_dZ=1.3" # # $Z set _____Argument="$_____Argument grossissement=2" # # $Z set _____ImageR=$xiirv/NDIM.11 # # $m4 _____include(_____xiirv/.NDIM.11.1._____U) # # $m4 _____include(_____xiirv/.NDIM.11.2._____U) # # $m4 _____include(_____xiirv/.NDIM.11.3._____U) # # $m4 _____include(_____xiirv/.NDIM.11.4._____U) # # # # :Fin_listG_NDIM_11: # # # # # # qui montre une structure N-dimensionnelle. # v $xiirv/NDIM.12 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_NDIM_12: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Npoints=64 # # $Z set _____ConnInf=2 # # $Z set _____ConnSup=4 # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument ROTATION_OX=0.4" # # $Z set _____Argument="$_____Argument ZOOM=0.85" # # $Z set _____Argument="$_____Argument cubique=VRAI" # # $Z set _____Argument="$_____Argument LISTE_dX=1.1" # # $Z set _____Argument="$_____Argument LISTE_dY=1.2" # # $Z set _____Argument="$_____Argument LISTE_dZ=1.3" # # $Z set _____Argument="$_____Argument grossissement=2" # # $Z set _____ImageR=$xiirv/NDIM.12 # # $m4 _____include(_____xiirv/.NDIM.11.1._____U) # # $m4 _____include(_____xiirv/.NDIM.11.2._____U) # # $m4 _____include(_____xiirv/.NDIM.11.3._____U) # # $m4 _____include(_____xiirv/.NDIM.11.4._____U) # # # # :Fin_listG_NDIM_12: # # # # # # qui montre une structure N-dimensionnelle. # v $xiirv/NDIM.13 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_NDIM_13: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Npoints=64 # # $Z set _____ConnInf=1.0 # # $Z set _____ConnSup=2.4 # # $Z set _____Rpoints=8 # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument ROTATION_OX=1.0" # # $Z set _____Argument="$_____Argument ZOOM=0.70" # # $Z set _____Argument="$_____Argument cubique=VRAI" # # $Z set _____Argument="$_____Argument LISTE_dX=2.0" # # $Z set _____Argument="$_____Argument LISTE_dY=2.0" # # $Z set _____Argument="$_____Argument LISTE_dZ=2.0" # # $Z set _____Argument="$_____Argument grossissement=2" # # $Z set _____ImageR=$xiirv/NDIM.13 # # $m4 _____include(_____xiirv/.NDIM.11.1._____U) # # $m4 _____include(_____xiirv/.NDIM.11.2._____U) # # $m4 _____include(_____xiirv/.NDIM.11.3._____U) # # $m4 _____include(_____xiirv/.NDIM.11.4._____U) # # # # :Fin_listG_NDIM_13: # # # # # # qui montre une structure N-dimensionnelle. # v $xiirv/NDIM.21 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_NDIM_21: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Npoints=64 # # $Z set _____ConnInf=3 # # $Z set _____ConnSup=3 # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument ROTATION_OX=1.0" # # $Z set _____Argument="$_____Argument ZOOM=0.70" # # $Z set _____Argument="$_____Argument grossissement=2" # # $Z set _____ImageR=$xiirv/NDIM.21 # # $m4 _____include(_____xiirv/.NDIM.11.1._____U) # # $m4 _____include(_____xiirv/.NDIM.11.2._____U) # # $m4 _____include(_____xiirv/.NDIM.21.3._____U) # # $m4 _____include(_____xiirv/.NDIM.11.4._____U) # # # # :Fin_listG_NDIM_21: # # # # # # qui montre une structure N-dimensionnelle. # v $xiirv/NDIM.31 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_NDIM_31: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Npoints=4 # # $Z set _____ConnInf=3 # # $Z set _____ConnSup=3 # # $Z set _____GraineS=0 # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument ROTATION_OX=1.0" # # $Z set _____Argument="$_____Argument ZOOM=0.70" # # $Z set _____Argument="$_____Argument grossissement=2" # # $Z set _____ImageR=$xiirv/NDIM.31 # # $m4 _____include(_____xiirv/.NDIM.11.1._____U) # # $m4 _____include(_____xiirv/.NDIM.11.2._____U) # # $m4 _____include(_____xiirv/.NDIM.21.3._____U) # # $m4 _____include(_____xiirv/.NDIM.11.4._____U) # # # # :Fin_listG_NDIM_31: # # # # # # qui montre une structure N-dimensionnelle. # v $xiirv/NDIM.43.2 # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_NDIM_43: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Npoints=64 # # $Z set _____ConnInf=1.0 # # $Z set _____ConnSup=2.4 # # $Z set _____Rpoints=8 # # # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument ROTATION_OX=0.0" # # $Z set _____Argument="$_____Argument ZOOM=0.80" # # $Z set _____Argument="$_____Argument cubique=VRAI" # # $Z set _____Argument="$_____Argument LISTE_dX=2.0" # # $Z set _____Argument="$_____Argument LISTE_dY=2.0" # # $Z set _____Argument="$_____Argument LISTE_dZ=2.0" # # $Z set _____Argument="$_____Argument lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument lister_les_points_apres=VRAI" # # # # $Z FilSTmpB FLiStEP # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $FLiStEP" # # # # $Z set _____ImageR=$xTV/NDIM.43 # # # # $m4 _____include(_____xiirv/.NDIM.11.1._____U) # # $m4 _____include(_____xiirv/.NDIM.11.2._____U) # # $m4 _____include(_____xiirv/.NDIM.11.3._____U) # # $m4 _____include(_____xiirv/.NDIM.11.4._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____DemiPave=2 # # $m4 _____include(_____xiirv/.NDIM.43.1._____U) # # # # $Z FilSTmpE FLiStEP # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $Z set _____SourceZ=0.75 # # $Z set _____AttenuationOmbre=0.5 # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.0 # # $Z set _____imagesR=$xiirv/NDIM.43 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_NDIM_43: # # # # # # qui montre une structure N-dimensionnelle. # v $xiirv/NDIM.44.2 # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_NDIM_44: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Npoints=64 # # $Z set _____ConnInf=1.0 # # $Z set _____ConnSup=2.4 # # $Z set _____Rpoints=8 # # # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument ROTATION_OX=0.0" # # $Z set _____Argument="$_____Argument ZOOM=0.80" # # $Z set _____Argument="$_____Argument cubique=VRAI" # # $Z set _____Argument="$_____Argument LISTE_dX=2.0" # # $Z set _____Argument="$_____Argument LISTE_dY=2.0" # # $Z set _____Argument="$_____Argument LISTE_dZ=2.0" # # $Z set _____Argument="$_____Argument lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument lister_les_points_apres=VRAI" # # # # $Z FilSTmpB FLiStEP # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $FLiStEP" # # # # $Z set _____ImageR=$xTV/NDIM.44 # # # # $m4 _____include(_____xiirv/.NDIM.11.1._____U) # # $m4 _____include(_____xiirv/.NDIM.11.2._____U) # # $m4 _____include(_____xiirv/.NDIM.11.3._____U) # # $m4 _____include(_____xiirv/.NDIM.11.4._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____DemiPave=20 # # $m4 _____include(_____xiirv/.NDIM.43.1._____U) # # # # $Z FilSTmpE FLiStEP # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $Z set _____SourceZ=0.75 # # $Z set _____AttenuationOmbre=0.5 # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.0 # # $Z set _____imagesR=$xiirv/NDIM.44 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_NDIM_44: # # # # # # qui montre une structure N-dimensionnelle. # v $xiirv/NFRI.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_NFRI_11: # # # # $Z Squ # # # # $Z set _____ImageR=$xiirv/NFRI.11 # # $m4 _____include(_____xiirv/.NFRI.11.1._____U) # # # # :Fin_listG_NFRI_11: # # # # # # qui montre la "friabilite" des nombres entiers dans [2,130]... # v $xiirv/NFRI.12 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_NFRI_12: # # # # $Z Squ # # # # $Z set _____Nombre=522 # # $Z set _____RayonG=0.00080 # # $Z set _____RayonL=0.00650 # # $Z set _____ARayon=0.00400 # # $Z set _____NAuCarre=FAUX # # $Z set _____ImageR=$xiirv/NFRI.12 # # $m4 _____include(_____xiirv/.NFRI.11.1._____U) # # # # :Fin_listG_NFRI_12: # # # # # # qui montre la "friabilite" des nombres entiers dans [2,522]... # v $xiirv/NFRI.21 p=$xiP/cercle.G5 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_NFRI_21: # # # # $Z Sdu # # # # $Z set _____Nombre=`calcul $dimX+1` # # $Z set _____ImageR=$xiirv/NFRI.21 # # $m4 _____include(_____xiirv/.NFRI.21.1._____U) # # # # :Fin_listG_NFRI_21: # # # # # # qui montre la "friabilite" des nombres entiers dans [2,1025] par marquage des diviseurs # # premiers... # v $xiirv/NFRI.22 p=$xiP/cercle.G5 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_NFRI_22: # # # # $Z Sdu # # # # $Z set _____Nombre=`calcul 50*($dimX+1)` # # $Z set _____ImageR=$xiirv/NFRI.22 # # $m4 _____include(_____xiirv/.NFRI.21.1._____U) # # # # :Fin_listG_NFRI_22: # # # # # # qui montre la "friabilite" des nombres entiers dans [2,39050] par marquage des diviseurs # # premiers... # v $xiirv/NFRI.31 p=$xiP/cercle.M6 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_NFRI_31: # # # # $Z Sdu # # # # $Z set _____Nombre=`calcul $dimX+1` # # $Z set _____ImageR=$xiirv/NFRI.31 # # $m4 _____include(_____xiirv/.NFRI.31.1._____U) # # # # :Fin_listG_NFRI_31: # # # # # # qui montre la "friabilite" des nombres entiers dans [2,1025] via la somme des diviseurs # # premiers (en ignorant leur multiplicite) de chaque nombre entier (par exemple, pour le # # nombre 8, cette somme vaut 2)... # v $xiirv/NFRI.32 p=$xiP/cercle.M6 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_NFRI_32: # # # # $Z Sdu # # # # $Z Snoglob # # # # $Z set _____Nombre=`calcul $dimX+1` # # $Z set _____Operateur="*" # # $Z set _____ImageR=$xiirv/NFRI.32 # # $m4 _____include(_____xiirv/.NFRI.31.1._____U) # # # # $Z Rnoglob # # # # :Fin_listG_NFRI_32: # # # # # # qui montre la "friabilite" des nombres entiers dans [2,1025] via le produit des diviseurs # # premiers (en ignorant leur multiplicite) de chaque nombre entier (par exemple, pour le # # nombre 8, ce produit vaut 2)... # v $xiirv/NFRI.41 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_NFRI_41: # # # # $Z Sdu # # # # $Z set _____Nombre=`calcul $dimX+1` # # $Z set _____Fonction=$xrv/LOGX.01$X # # $Z set _____ImageR=$xiirv/NFRI.41 # # $m4 _____include(_____xiirv/.NFRI.31.1._____U) # # # # :Fin_listG_NFRI_41: # # # # # # qui montre la "friabilite" des nombres entiers dans [2,1025] via la somme des diviseurs # # premiers (en ignorant leur multiplicite) de chaque nombre entier (par exemple, pour le # # nombre 8, cette somme vaut 2)... # v $xiirv/NFRI.42 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_NFRI_42: # # # # $Z Sdu # # # # $Z Snoglob # # # # $Z set _____Nombre=`calcul $dimX+1` # # $Z set _____Operateur="*" # # $Z set _____Fonction=$xrv/LOGX.01$X # # $Z set _____ImageR=$xiirv/NFRI.42 # # $m4 _____include(_____xiirv/.NFRI.31.1._____U) # # # # $Z Rnoglob # # # # :Fin_listG_NFRI_42: # # # # # # qui montre la "friabilite" des nombres entiers dans [2,1025] via le produit des diviseurs # # premiers (en ignorant leur multiplicite) de chaque nombre entier (par exemple, pour le # # nombre 8, ce produit vaut 2)... # v $xiirv/NFRI.51 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_NFRI_51: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____RVB=$EXIST # # $Z set _____Nombre=`calcul $dimX+1` # # $Z set _____ImageR=$xiirv/NFRI.51 # # $m4 _____include(_____xiirv/.NFRI.31.1._____U) # # # # :Fin_listG_NFRI_51: # # # # # # qui montre la "friabilite" des nombres entiers dans [2,1025] via la somme des diviseurs # # premiers (en ignorant leur multiplicite) de chaque nombre entier (par exemple, pour le # # nombre 8, cette somme vaut 2)... # v $xiirv/NFRI.52 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_NFRI_52: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z Snoglob # # # # $Z set _____RVB=$EXIST # # $Z set _____Nombre=`calcul $dimX+1` # # $Z set _____Operateur="*" # # $Z set _____ImageR=$xiirv/NFRI.52 # # $m4 _____include(_____xiirv/.NFRI.31.1._____U) # # # # $Z Rnoglob # # # # :Fin_listG_NFRI_52: # # # # # # qui montre la "friabilite" des nombres entiers dans [2,1025] via le produit des diviseurs # # premiers (en ignorant leur multiplicite) de chaque nombre entier (par exemple, pour le # # nombre 8, ce produit vaut 2)... # v $xiirv/NFRI.62 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_NFRI_62: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____RVB=$EXIST # # $Z set _____Nombre=`calcul $dimX-1` # # $Z set _____ImageR=$xiirv/NFRI.62 # # $m4 _____include(_____xiirv/.NFRI.61.1._____U) # # # # :Fin_listG_NFRI_62: # # # # # # qui montre les nombres 2-friables dans [2,1023]. # v $xiirv/NFRI.63 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_NFRI_63: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____RVB=$EXIST # # $Z set _____K=3 # # $Z set _____Nombre=`calcul $dimX-1` # # $Z set _____ImageR=$xiirv/NFRI.63 # # $m4 _____include(_____xiirv/.NFRI.61.1._____U) # # # # :Fin_listG_NFRI_63: # # # # # # qui montre les nombres 3-friables dans [2,1023]. # v $xiirv/NFRI.65 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_NFRI_65: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____RVB=$EXIST # # $Z set _____K=5 # # $Z set _____Nombre=`calcul $dimX-1` # # $Z set _____ImageR=$xiirv/NFRI.65 # # $m4 _____include(_____xiirv/.NFRI.61.1._____U) # # # # :Fin_listG_NFRI_65: # # # # # # qui montre les nombres 5-friables dans [2,1023]. # v $xiirv/NFRI.67 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_NFRI_67: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____RVB=$EXIST # # $Z set _____K=7 # # $Z set _____Nombre=`calcul $dimX-1` # # $Z set _____ImageR=$xiirv/NFRI.67 # # $m4 _____include(_____xiirv/.NFRI.61.1._____U) # # # # :Fin_listG_NFRI_67: # # # # # # qui montre les nombres 7-friables dans [2,1023]. # v $xiirv/NFRI.62357 p=$xiP/cercle.N5 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_NFRI_62357: # # # # $Z Shu # # # # $Z setenv xTV $xTG # # # # # # $Z set _____ImageA=$xiirv/NFRI.6 # # $Z set _____ImageR=$xiirv/NFRI.62357 # # # # $Z set index=1 # # $Z set LiStE=(2 3 5 7) # # $Z set FaCtEuR_B_=`calcul ($GRIS_1/$GRIS_8)/4` # # # # $Z set FaCtEuRs="$K_VIDE" # # $Z set FaCtEuRs="$FaCtEuRs"" `calcul $GRIS_2/$GRIS_8`" # # $Z set FaCtEuRs="$FaCtEuRs"" `calcul $GRIS_4/$GRIS_8`" # # $Z set FaCtEuRs="$FaCtEuRs"" `calcul $GRIS_7/$GRIS_8`" # # $Z set FaCtEuRs="$FaCtEuRs"" `calcul $GRIS_8/$GRIS_8`" # # $Z set FaCtEuRs=($FaCtEuRs) # # # # $Z set NuMeRo=`$xci/nombres$X p=1 d=$#LiStE` # # # # $Z foreach ImAgE ($LiStE) # # $Z $xci/scale$X a=$FaCtEuRs[$index] \ # # $Z A=$_____ImageA$ImAgE$VERTE \ # # $Z R=$xTV/NFRI.1.$NuMeRo[$index] \ # # $Z $formatI # # # # $Z $xci/scale$X a=$FaCtEuR_B_ \ # # $Z A=$_____ImageA$ImAgE$BLEUE \ # # $Z R=$xTV/NFRI.2.$NuMeRo[$index] \ # # $Z $formatI # # # # $Z @ index = $index + 1 # # $Z end # # # # $Z $xci/accumule.01$X A=$xTV/NFRI.1. \ # # $Z premiere=1 derniere=$#LiStE \ # # $Z maximum=VRAI \ # # $Z depart=1 arrivee=1 \ # # $Z R=$xTV/NFRI.1 \ # # $Z $formatI # # # # $Z $xci/accumule.01$X A=$xTV/NFRI.2. \ # # $Z premiere=1 derniere=$#LiStE \ # # $Z maximum=VRAI \ # # $Z depart=1 arrivee=1 \ # # $Z R=$xTV/NFRI.2 \ # # $Z $formatI # # # # $Z $xci/cache$X A=$xTV/NFRI.2 \ # # $Z M=$xTV/NFRI.1 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_NFRI_62357: # # # # # # qui montre les nombres 2/3/5/7-friables dans [2,1023]. # # # # Avec la palette 'v $xiio/MIRE p=$xiP/cercle.35', on a le coloriage suivant pour les # # nombres K-friables : # # # # K=2 --> ROUGE # # K=3 --> VERTE # # K=5 --> JAUNE # # K=7 --> BLANC # # # # ??? --> BLEUE # # # v $xiirv/NFRI.71 # Generee (sur '$LACT19') par : # # # # :Debut_listG_NFRI_71: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____K=7 # # # # $Z set _____Substitut="$K_VIDE" # # $Z set _____Substitut="$_____Substitut"" -e $K_QS"'s/^0$'"/$GRIS_1/$K_QS" # # $Z set _____Substitut="$_____Substitut"" -e $K_QS"'s/^2$'"/$GRIS_2/$K_QS" # # $Z set _____Substitut="$_____Substitut"" -e $K_QS"'s/^3$'"/$GRIS_4/$K_QS" # # $Z set _____Substitut="$_____Substitut"" -e $K_QS"'s/^5$'"/$GRIS_7/$K_QS" # # $Z set _____Substitut="$_____Substitut"" -e $K_QS"'s/^7$'"/$GRIS_8/$K_QS" # # # # $Z SET _____VisualiserSpirale=$EXIST # # $Z SET _____RayonSpirale=1.5 # # $Z set _____Part0=2 # # $Z set _____PartN=`(calcul (31*31)+1) | $SE -e "s/+//"` # # $Z set _____Rayon=15000 # # $Z set _____FacteurP=0 # # $Z set _____Palette=$xiP/cercle.N5 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.3" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0010" # # $Z set _____images=$xiirv/NFRI.71 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.NFRI.71.1._____U) # # $m4 _____include(_____xiirv/.PRIM.41._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_NFRI_71: # # # # # # Cette image inspiree de 'v $xiirv/PRIM.51.1000.1' visualise les nombres 2/3/5/7-friables # # dans [2,962] sur une spirale... # v $xiirv/NFRI.72 # Generee (sur '$LACT19') par : # # # # :Debut_listG_NFRI_72: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____K=7 # # # # $Z set _____Substitut="$K_VIDE" # # $Z set _____Substitut="$_____Substitut"" -e $K_QS"'s/^0$'"/$GRIS_1/$K_QS" # # $Z set _____Substitut="$_____Substitut"" -e $K_QS"'s/^2$'"/$GRIS_2/$K_QS" # # $Z set _____Substitut="$_____Substitut"" -e $K_QS"'s/^3$'"/$GRIS_4/$K_QS" # # $Z set _____Substitut="$_____Substitut"" -e $K_QS"'s/^5$'"/$GRIS_7/$K_QS" # # $Z set _____Substitut="$_____Substitut"" -e $K_QS"'s/^7$'"/$GRIS_8/$K_QS" # # # # $Z SET _____VisualiserSpirale=$EXIST # # $Z SET _____RayonSpirale=2.5 # # $Z set _____Part0=2 # # $Z set _____PartN=`(calcul (127*127)+1) | $SE -e "s/+//"` # # $Z set _____Rayon=25000 # # $Z set _____FacteurP=0 # # $Z set _____Palette=$xiP/cercle.N5 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.3" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0010" # # $Z set _____images=$xiirv/NFRI.72 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.NFRI.71.1._____U) # # $m4 _____include(_____xiirv/.PRIM.41._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_NFRI_72: # # # # # # Cette image inspiree de 'v $xiirv/PRIM.51.1000.1' visualise les nombres 2/3/5/7-friables # # dans [2,16130] sur une spirale... # v $xiirv/NFRI.82 # Generee (sur '$LACT19') par : # # # # :Debut_listG_NFRI_82: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____K=17 # # # # $Z set _____Substitut="$K_VIDE" # # $Z set _____Substitut="$_____Substitut"" -e $K_QS"'s/^0$'"/$GRIS_1/$K_QS" # # $Z set _____Substitut="$_____Substitut"" -e $K_QS"'s/^2$'"/$GRIS_2/$K_QS" # # $Z set _____Substitut="$_____Substitut"" -e $K_QS"'s/^3$'"/$GRIS_3/$K_QS" # # $Z set _____Substitut="$_____Substitut"" -e $K_QS"'s/^5$'"/$GRIS_4/$K_QS" # # $Z set _____Substitut="$_____Substitut"" -e $K_QS"'s/^7$'"/$GRIS_5/$K_QS" # # $Z set _____Substitut="$_____Substitut"" -e $K_QS"'s/^11$'"/$GRIS_6/$K_QS" # # $Z set _____Substitut="$_____Substitut"" -e $K_QS"'s/^13$'"/$GRIS_7/$K_QS" # # $Z set _____Substitut="$_____Substitut"" -e $K_QS"'s/^17$'"/$GRIS_8/$K_QS" # # # # $Z SET _____VisualiserSpirale=$EXIST # # $Z SET _____RayonSpirale=2.5 # # $Z set _____Part0=2 # # $Z set _____PartN=`(calcul (127*127)+1) | $SE -e "s/+//"` # # $Z set _____Rayon=25000 # # $Z set _____FacteurP=0 # # $Z set _____Palette=$xiP/cercle.N5 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.3" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0010" # # $Z set _____images=$xiirv/NFRI.82 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.NFRI.71.1._____U) # # $m4 _____include(_____xiirv/.PRIM.41._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_NFRI_82: # # # # # # Cette image inspiree de 'v $xiirv/PRIM.51.1000.1' visualise les nombres 2/3/5/7-friables # # dans [2,16130] sur une spirale... # v $xiirv/NFRI.93 # Generee (sur '$LACT19') par : # # # # :Debut_listG_NFRI_93: # # # # $Z Shu # # # # $Z setenv xTV $xTG # # # # $Z SET _____VisualiserSpirale=$NEXIST # # $Z SET _____RayonSpirale=2.5 # # $Z set _____Part0=2 # # $Z set _____PartN=`(calcul (511*511)+1) | $SE -e "s/+//"` # # $Z set _____Rayon=6000 # # $Z set _____ExposantR=`calcul +1/5` # # $Z set _____FacteurP=0 # # $Z set _____Palette=$xiP/cercle.O2 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.3" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0010" # # $Z set _____images=$xiirv/NFRI.93 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.NFRI.91.1._____U) # # $m4 _____include(_____xiirv/.PRIM.41._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_NFRI_93: # # # # # # Cette image inspiree de 'v $xiirv/PRIM.51.1000.1' visualise la K-friabilite des nombres # # dans [2,261122] sur une spirale... # v $xiirv/NFRI.A1 # Generee (sur '$LACT19') par : # # # # :Debut_listG_NFRI_A1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____VisualiserSpirale=$NEXIST # # $Z SET _____RayonSpirale=2.5 # # $Z set _____Part0=2 # # $Z set _____PartN=`(calcul (127*127)+1) | $SE -e "s/+//"` # # $Z set _____Rayon=8000 # # $Z set _____Fonction=$xrv/LOGX.01$X # # $Z set _____ExposantR=`calcul +1/2` # # $Z set _____FacteurP=0 # # $Z set _____Palette=$xiP/cercle.O2 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.3" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0010" # # $Z set _____images=$xiirv/NFRI.A1 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.NFRI.91.1._____U) # # $m4 _____include(_____xiirv/.PRIM.41._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_NFRI_A1: # # # # # # Cette image inspiree de 'v $xiirv/PRIM.51.1000.1' visualise la K-friabilite des nombres # # dans [2,16130] sur une spirale... # v $xiirv/NFRI.A2 # Generee (sur '$LACT19') par : # # # # :Debut_listG_NFRI_A2: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET _____VisualiserSpirale=$NEXIST # # $Z SET _____RayonSpirale=2.5 # # $Z set _____Part0=2 # # $Z set _____PartN=`(calcul (255*255)+1) | $SE -e "s/+//"` # # $Z set _____Rayon=16000 # # $Z set _____Fonction=$xrv/LOGX.01$X # # $Z set _____ExposantR=`calcul +1/2` # # $Z set _____FacteurP=0 # # $Z set _____Palette=$xiP/cercle.O2 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.3" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0010" # # $Z set _____images=$xiirv/NFRI.A2 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.NFRI.91.1._____U) # # $m4 _____include(_____xiirv/.PRIM.41._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_NFRI_A2: # # # # # # Cette image inspiree de 'v $xiirv/PRIM.51.1000.1' visualise la K-friabilite des nombres # # dans [2,65026] sur une spirale... # v $xiirv/NFRI.A3 # Generee (sur '$LACT19') par : # # # # :Debut_listG_NFRI_A3: # # # # $Z Shu # # # # $Z setenv xTV $xTG # # # # $Z SET _____VisualiserSpirale=$NEXIST # # $Z SET _____RayonSpirale=2.5 # # $Z set _____Part0=2 # # $Z set _____PartN=`(calcul (511*511)+1) | $SE -e "s/+//"` # # $Z set _____Rayon=28000 # # $Z set _____Fonction=$xrv/LOGX.01$X # # $Z set _____ExposantR=`calcul +1/2` # # $Z set _____FacteurP=0 # # $Z set _____Palette=$xiP/cercle.O2 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.3" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0010" # # $Z set _____images=$xiirv/NFRI.A3 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.NFRI.91.1._____U) # # $m4 _____include(_____xiirv/.PRIM.41._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_NFRI_A3: # # # # # # Cette image inspiree de 'v $xiirv/PRIM.51.1000.1' visualise la K-friabilite des nombres # # dans [2,261122] sur une spirale... # v $xiirv/NFRI.B1 # Generee (sur '$LACT19') par : # # # # :Debut_listG_NFRI_B1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____VisualiserSpirale=$NEXIST # # $Z SET _____RayonSpirale=2.5 # # $Z set _____Part0=2 # # $Z set _____PartN=`(calcul (127*127)+1) | $SE -e "s/+//"` # # $Z set _____Rayon=500 # # $Z set _____Fonction=$xrv/LOGX.01$X # # $Z set _____ExposantR=`calcul -1/5` # # $Z set _____FacteurP=0 # # $Z set _____Palette=$xiP/cercle.O2 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.3" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0010" # # $Z set _____images=$xiirv/NFRI.B1 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.NFRI.91.1._____U) # # $m4 _____include(_____xiirv/.PRIM.41._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_NFRI_B1: # # # # # # Cette image inspiree de 'v $xiirv/PRIM.51.1000.1' visualise la K-friabilite des nombres # # dans [2,16130] sur une spirale... # v $xiirv/NFRI.B2 # Generee (sur '$LACT19') par : # # # # :Debut_listG_NFRI_B2: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET _____VisualiserSpirale=$NEXIST # # $Z SET _____RayonSpirale=2.5 # # $Z set _____Part0=2 # # $Z set _____PartN=`(calcul (255*255)+1) | $SE -e "s/+//"` # # $Z set _____Rayon=1000 # # $Z set _____Fonction=$xrv/LOGX.01$X # # $Z set _____ExposantR=`calcul -1/5` # # $Z set _____FacteurP=0 # # $Z set _____Palette=$xiP/cercle.O2 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.3" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0010" # # $Z set _____images=$xiirv/NFRI.B2 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.NFRI.91.1._____U) # # $m4 _____include(_____xiirv/.PRIM.41._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_NFRI_B2: # # # # # # Cette image inspiree de 'v $xiirv/PRIM.51.1000.1' visualise la K-friabilite des nombres # # dans [2,65026] sur une spirale... # v $xiirv/NFRI.B3 # Generee (sur '$LACT19') par : # # # # :Debut_listG_NFRI_B3: # # # # $Z Shu # # # # $Z setenv xTV $xTG # # # # $Z SET _____VisualiserSpirale=$NEXIST # # $Z SET _____RayonSpirale=2.5 # # $Z set _____Part0=2 # # $Z set _____PartN=`(calcul (511*511)+1) | $SE -e "s/+//"` # # $Z set _____Rayon=2000 # # $Z set _____Fonction=$xrv/LOGX.01$X # # $Z set _____ExposantR=`calcul -1/5` # # $Z set _____FacteurP=0 # # $Z set _____Palette=$xiP/cercle.O2 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.3" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0010" # # $Z set _____images=$xiirv/NFRI.B3 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.NFRI.91.1._____U) # # $m4 _____include(_____xiirv/.PRIM.41._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_NFRI_B3: # # # # # # Cette image inspiree de 'v $xiirv/PRIM.51.1000.1' visualise la K-friabilite des nombres # # dans [2,261122] sur une spirale... # v $xiirv/NFRI.C2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_NFRI_C2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K2" # # # # # # $Z set _____Profondeur=2 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/NFRI.C2 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.NFRI.C2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_NFRI_C2: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre la friabilite des nombres entiers dans # # [2,5] sur une courbe de Hilbert bidimensionnelle (iteration 1)... # v $xiirv/NFRI.C3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_NFRI_C3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K3" # # # # $Z set _____Profondeur=3 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/NFRI.C3 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.NFRI.C2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_NFRI_C3: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J3' montre la friabilite des nombres entiers dans # # [2,17] sur une courbe de Hilbert bidimensionnelle (iteration 2)... # v $xiirv/NFRI.C4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_NFRI_C4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K4" # # # # $Z set _____Profondeur=4 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/NFRI.C4 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.NFRI.C2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_NFRI_C4: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J4' montre la friabilite des nombres entiers dans # # [2,65] sur une courbe de Hilbert bidimensionnelle (iteration 3)... # v $xiirv/NFRI.C5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_NFRI_C5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K5" # # # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/NFRI.C5 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.NFRI.C2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_NFRI_C5: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre la friabilite des nombres entiers dans # # [2,257] sur une courbe de Hilbert bidimensionnelle (iteration 4)... # v $xiirv/NFRI.C6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_NFRI_C6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K6" # # # # $Z set _____Profondeur=6 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/NFRI.C6 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.NFRI.C2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_NFRI_C6: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J6' montre la friabilite des nombres entiers dans # # [2,1025] sur une courbe de Hilbert bidimensionnelle (iteration 5)... # v $xiirv/NFRI.D2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_NFRI_D2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $m4 _____include(_____xiirv/.NFRI.D2._____U) # # # # $Z set _____Profondeur=2 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/NFRI.D2 # # $Z set _____FRayon=1000 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.NFRI.C2.1._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_NFRI_D2: # # # # # # Cette image inspiree de 'v $xiirv/HILB.I2' montre la friabilite des nombres entiers dans # # [2,9] sur une courbe de Hilbert tridimensionnelle (iteration 1)... # v $xiirv/NFRI.D3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_NFRI_D3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $m4 _____include(_____xiirv/.NFRI.D2._____U) # # # # $Z set _____Profondeur=3 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/NFRI.D3 # # $Z set _____FRayon=1000 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.NFRI.C2.1._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_NFRI_D3: # # # # # # Cette image inspiree de 'v $xiirv/HILB.I3' montre la friabilite des nombres entiers dans # # [2,65] sur une courbe de Hilbert tridimensionnelle (iteration 2)... # v $xiirv/NFRI.D4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_NFRI_D4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $m4 _____include(_____xiirv/.NFRI.D2._____U) # # # # $Z set _____Profondeur=4 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/NFRI.D4 # # $Z set _____FRayon=1000 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.NFRI.C2.1._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_NFRI_D4: # # # # # # Cette image inspiree de 'v $xiirv/HILB.I4' montre la friabilite des nombres entiers dans # # [2,513] sur une courbe de Hilbert tridimensionnelle (iteration 3)... # v $xiirv/NFRI.D5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_NFRI_D5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $m4 _____include(_____xiirv/.NFRI.D2._____U) # # # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/NFRI.D5 # # $Z set _____FRayon=1000 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.NFRI.C2.1._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $m4 _____include(_____xiirv/.HILB.15._____U) # # # # :Fin_listG_NFRI_D5: # # # # # # Cette image inspiree de 'v $xiirv/HILB.I5' montre la friabilite des nombres entiers dans # # [2,4097] sur une courbe de Hilbert tridimensionnelle (iteration 4)... # v $xiirv/NFRI.E2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_NFRI_E2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=2 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/NFRI.E2 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=2 # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____FRayon=1000 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $m4 _____include(_____xiirv/.NFRI.C2.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_NFRI_E2: # # # # # # Cette image inspiree de 'v $xiirv/HILB.I2' montre la friabilite des nombres entiers dans # # [2,9] sur une courbe de Hilbert tridimensionnelle (iteration 1)... # v $xiirv/NFRI.E3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_NFRI_E3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=3 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/NFRI.E3 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=2 # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____FRayon=1000 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $m4 _____include(_____xiirv/.NFRI.C2.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_NFRI_E3: # # # # # # Cette image inspiree de 'v $xiirv/HILB.I3' montre la friabilite des nombres entiers dans # # [2,65] sur une courbe de Hilbert tridimensionnelle (iteration 2)... # v $xiirv/NFRI.E4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_NFRI_E4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=4 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/NFRI.E4 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=2 # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____FRayon=1000 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $m4 _____include(_____xiirv/.NFRI.C2.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_NFRI_E4: # # # # # # Cette image inspiree de 'v $xiirv/HILB.I4' montre la friabilite des nombres entiers dans # # [2,513] sur une courbe de Hilbert tridimensionnelle (iteration 3)... # v $xiirv/NFRI.E5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_NFRI_E5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/NFRI.E5 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=2 # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____FRayon=1000 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $m4 _____include(_____xiirv/.NFRI.C2.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_NFRI_E5: # # # # # # Cette image inspiree de 'v $xiirv/HILB.I5' montre la friabilite des nombres entiers dans # # [2,4097] sur une courbe de Hilbert tridimensionnelle (iteration 4)... # v $xiirv/NFRI.F1 # Generee (sur '$LACT1B') par : # # # # :Debut_listG_NFRI_F1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____K=7 # # # # $Z set _____Substitut="-e 's/$UNDEF/$UNDEF/'" # # # # Afin que '$_____Substitut' ne soit pas vide ('v $xiirv/.NFRI.71.1.$U _____Substitut')... # # # # $Z set _____Part0=2 # # $Z set _____PartN=`(calcul (31*31)+1) | $SE -e "s/+//"` # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.NFRI.71.1._____U) # # $m4 _____include(_____xiirv/.PRIM.41._____U) # # # # $Z set _____Palette=$xiP/mire.03 # # $m4 _____include(_____xiirv/.NFRI.F1.1._____U) # # # # $Z set _____Hauteur=0.4 # # # # $Z set _____Fz_prolonger_u=VRAI # # $Z set _____Fz_periodiser_u=FAUX # # $Z set _____Fz_prolonger_v=VRAI # # $Z set _____Fz_periodiser_v=FAUX # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" nombre_paralleles=100" # # $Z set _____Arguments="$_____Arguments"" npp=12" # # $Z set _____Arguments="$_____Arguments"" nombre_meridiens=100" # # $Z set _____Arguments="$_____Arguments"" npm=12" # # $Z set _____Arguments="$_____Arguments"" faciliter_parametrage_u_v=VRAI" # # # # $Z set _____Arguments="$_____Arguments"" cdts=VRAI" # # $Z set _____Arguments="$_____Arguments"" ROUGE_T=1" # # $Z set _____Arguments="$_____Arguments"" imageTR=$xTV/TEXTURE$ROUGE" # # $Z set _____Arguments="$_____Arguments"" VERTE_T=1" # # $Z set _____Arguments="$_____Arguments"" imageTV=$xTV/TEXTURE$VERTE" # # $Z set _____Arguments="$_____Arguments"" BLEUE_T=1" # # $Z set _____Arguments="$_____Arguments"" imageTB=$xTV/TEXTURE$BLEUE" # # $Z set _____Arguments="$_____Arguments"" textures_standard=VRAI" # # $Z set _____Arguments="$_____Arguments"" N_au_carre=FAUX" # # $Z set _____Arguments="$_____Arguments"" edc=VRAI rd=FAUX" # # # # $Z set _____Zoom=0.8 # # $Z set _____RotationX=-0.8 # # $Z set _____Rayon=0.015 # # # # $Z set _____imagesR=$xiirv/NFRI.F1 # # $m4 _____include(_____xiirs/.PROJ.51.1._____U) # # # # :Fin_listG_NFRI_F1: # # # # # # Cette image inspiree de 'v $xiirv/NFRI.71' visualise les nombres 2/3/5/7-friables # # dans [2,962] sur une spirale representee tridimensionnellement... # # # # On notera que cette image a force la modification 'v $xrk/attractor.1D$I 20221005143106' # # afin d'avoir un sol de luminance correct... # v $xiirv/NODE.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_NODE_11: # # # # $Z Pal # # # # $Z set _____ImagesR=$xiirv/NODE.11 # # $m4 _____include(_____xiirv/.NODE.11.1._____U) # # # # :Fin_listG_NODE_11: # # # # # # Il s'agit d'une visualisation du "Node" de "The Garden of Rama" d'Arthur C. Clarke et # # Gentry Lee. # v $xiirv/NODE.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_NODE_21: # # # # $Z Pal # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OY=-0.25" # # # # $Z set _____RotationOZ=`calcul $pis6+$pi` # # $Z set _____Palette=$xiP/random.A5 # # $Z set _____ImagesR=$xiirv/NODE.21 # # $m4 _____include(_____xiirv/.NODE.11.1._____U) # # # # :Fin_listG_NODE_21: # # # # # # Il s'agit d'une visualisation du "Node" de "The Garden of Rama" d'Arthur C. Clarke et # # Gentry Lee. # v $xiirv/NODE.21$m # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_NODE_21_m: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____ImagesA=$xiirv/NODE.21 # # $Z set _____ImagesR=$_____ImagesA$m # # # # $Z $xci/luminance.01$X A=$_____ImagesA \ # # $Z $formatI | \ # # $Z $xci/acces$X convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X passes=2000 \ # # $Z standard=FAUX \ # # $Z navap=VRAI \ # # $Z R=$xTV/NODE.21 \ # # $Z $formatI # # # # $Z $xci/random.01$X \ # # $Z borne_inferieure=$GRIS_1 \ # # $Z borne_superieure=$GRIS_8 \ # # $Z R=$xTV/ETOILES.1 \ # # $Z $formatI # # # # $Z $xci/random.02$X \ # # $Z seuil=0.001 \ # # $Z R=$xTV/ETOILES.2 \ # # $Z $formatI # # $Z # # $Z $xci/and$X \ # # $Z A1=$xTV/ETOILES.1 \ # # $Z A2=$xTV/ETOILES.2 \ # # $Z R=$xTV/ETOILES \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X A=$xTV/NODE.21 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$_____ImagesA%s \ # # $Z avion=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/cache$X A=$xTV/ETOILES \ # # $Z R=$_____ImagesR%s \ # # $Z $formatI" # # # # :Fin_listG_NODE_21_m: # # # # # # Il s'agit d'une visualisation du "Node" de "The Garden of Rama" d'Arthur C. Clarke et # # Gentry Lee. # v $xiirv/NODE.31 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_NODE_31: # # # # $Z Pal # # # # $Z set _____RayonSpheres=0.10 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" TRANSLATION_OY=-0.25" # # # # $Z set _____Zoom=0.9 # # $Z set _____Zobservateur=1.2 # # $Z set _____RotationOZ=`calcul $pis6+$pi` # # $Z set _____Palette=$xiP/rouge_orang.32 # # $Z set _____ImagesR=$xiirv/NODE.31 # # $m4 _____include(_____xiirv/.NODE.11.1._____U) # # # # :Fin_listG_NODE_31: # # # # # # Il s'agit d'une visualisation du "Node" de "The Garden of Rama" d'Arthur C. Clarke et # # Gentry Lee. # v $xiirv/NODE.31$m # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_NODE_31_m: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____ImagesA=$xiirv/NODE.31 # # $Z set _____ImagesR=$_____ImagesA$m # # # # $Z $xci/luminance.01$X A=$_____ImagesA \ # # $Z $formatI | \ # # $Z $xci/acces$X convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X passes=2000 \ # # $Z standard=FAUX \ # # $Z navap=VRAI \ # # $Z R=$xTV/NODE.31 \ # # $Z $formatI # # # # $Z $xci/random.01$X \ # # $Z graine=2001 \ # # $Z borne_inferieure=$GRIS_1 \ # # $Z borne_superieure=$GRIS_8 \ # # $Z R=$xTV/ETOILES.1 \ # # $Z $formatI # # # # $Z $xci/random.02$X \ # # $Z graine=1947 \ # # $Z seuil=0.001 \ # # $Z R=$xTV/ETOILES.2 \ # # $Z $formatI # # $Z # # $Z $xci/and$X \ # # $Z A1=$xTV/ETOILES.1 \ # # $Z A2=$xTV/ETOILES.2 \ # # $Z R=$xTV/ETOILES \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X A=$xTV/NODE.31 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$_____ImagesA%s \ # # $Z avion=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/cache$X A=$xTV/ETOILES \ # # $Z R=$_____ImagesR%s \ # # $Z $formatI" # # # # :Fin_listG_NODE_31_m: # # # # # # Il s'agit d'une visualisation du "Node" de "The Garden of Rama" d'Arthur C. Clarke et # # Gentry Lee. # v $xiirv/OCTO.11 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_OCTO_11: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X ct=1 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.11 \ # # $Z $formatI # # $Z $xci/trefle$X ct=2 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.12 \ # # $Z $formatI # # $Z $xci/trefle$X ct=3 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.13 \ # # $Z $formatI # # $Z $xci/trefle$X ct=4 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.14 \ # # $Z $formatI # # $Z $xci/trefle$X ct=5 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.15 \ # # $Z $formatI # # $Z $xci/trefle$X ct=6 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.16 \ # # $Z $formatI # # $Z $xci/trefle$X ct=7 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.17 \ # # $Z $formatI # # $Z $xci/trefle$X ct=8 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.18 \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcI=1 \ # # $Z pcS=1 \ # # $Z AR1=$xTV/OCTO.11 \ # # $Z AI1=$xTV/OCTO.12 \ # # $Z AJ1=$xTV/OCTO.13 \ # # $Z AK1=$xTV/OCTO.14 \ # # $Z AS1=$xTV/OCTO.15 \ # # $Z AT1=$xTV/OCTO.16 \ # # $Z AU1=$xTV/OCTO.17 \ # # $Z AV1=$xTV/OCTO.18 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$xTV/OCTO.18 \ # # $Z AI2=$xTV/OCTO.17 \ # # $Z AJ2=$xTV/OCTO.16 \ # # $Z AK2=$xTV/OCTO.15 \ # # $Z AS2=$xTV/OCTO.14 \ # # $Z AT2=$xTV/OCTO.13 \ # # $Z AU2=$xTV/OCTO.12 \ # # $Z AV2=$xTV/OCTO.11 \ # # $Z R=$xTV/OCTO.11$ROUGE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcJ=1 \ # # $Z pcU=1 \ # # $Z AR1=$xTV/OCTO.11 \ # # $Z AI1=$xTV/OCTO.12 \ # # $Z AJ1=$xTV/OCTO.13 \ # # $Z AK1=$xTV/OCTO.14 \ # # $Z AS1=$xTV/OCTO.15 \ # # $Z AT1=$xTV/OCTO.16 \ # # $Z AU1=$xTV/OCTO.17 \ # # $Z AV1=$xTV/OCTO.18 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$xTV/OCTO.18 \ # # $Z AI2=$xTV/OCTO.17 \ # # $Z AJ2=$xTV/OCTO.16 \ # # $Z AK2=$xTV/OCTO.15 \ # # $Z AS2=$xTV/OCTO.14 \ # # $Z AT2=$xTV/OCTO.13 \ # # $Z AU2=$xTV/OCTO.12 \ # # $Z AV2=$xTV/OCTO.11 \ # # $Z R=$xTV/OCTO.11$VERTE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcK=1 \ # # $Z pcV=1 \ # # $Z AR1=$xTV/OCTO.11 \ # # $Z AI1=$xTV/OCTO.12 \ # # $Z AJ1=$xTV/OCTO.13 \ # # $Z AK1=$xTV/OCTO.14 \ # # $Z AS1=$xTV/OCTO.15 \ # # $Z AT1=$xTV/OCTO.16 \ # # $Z AU1=$xTV/OCTO.17 \ # # $Z AV1=$xTV/OCTO.18 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$xTV/OCTO.18 \ # # $Z AI2=$xTV/OCTO.17 \ # # $Z AJ2=$xTV/OCTO.16 \ # # $Z AK2=$xTV/OCTO.15 \ # # $Z AS2=$xTV/OCTO.14 \ # # $Z AT2=$xTV/OCTO.13 \ # # $Z AU2=$xTV/OCTO.12 \ # # $Z AV2=$xTV/OCTO.11 \ # # $Z R=$xTV/OCTO.11$BLEUE \ # # $Z $formatI # # # # $Z execRVB "$xci/acces$X \ # # $Z A=$xTV/OCTO.11%s \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xiirv/OCTO.11%s \ # # $Z $formatI" # # # # :Fin_listG_OCTO_11: # # # # # # Voir 'v $xiirv/OCTO.51' pour la version "compatibilite_20110929=FAUX". # v $xiirv/OCTO.12 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_OCTO_12: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/spiArchimede$X mr=1 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.11 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=2 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.12 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=4 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.13 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=8 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.14 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=16 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.15 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=32 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.16 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=64 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.17 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=128 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.18 \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcI=1 \ # # $Z pcS=1 \ # # $Z AR1=$xTV/OCTO.11 \ # # $Z AI1=$xTV/OCTO.12 \ # # $Z AJ1=$xTV/OCTO.13 \ # # $Z AK1=$xTV/OCTO.14 \ # # $Z AS1=$xTV/OCTO.15 \ # # $Z AT1=$xTV/OCTO.16 \ # # $Z AU1=$xTV/OCTO.17 \ # # $Z AV1=$xTV/OCTO.18 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$xTV/OCTO.18 \ # # $Z AI2=$xTV/OCTO.17 \ # # $Z AJ2=$xTV/OCTO.16 \ # # $Z AK2=$xTV/OCTO.15 \ # # $Z AS2=$xTV/OCTO.14 \ # # $Z AT2=$xTV/OCTO.13 \ # # $Z AU2=$xTV/OCTO.12 \ # # $Z AV2=$xTV/OCTO.11 \ # # $Z R=$xTV/OCTO.12$ROUGE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcJ=1 \ # # $Z pcU=1 \ # # $Z AR1=$xTV/OCTO.11 \ # # $Z AI1=$xTV/OCTO.12 \ # # $Z AJ1=$xTV/OCTO.13 \ # # $Z AK1=$xTV/OCTO.14 \ # # $Z AS1=$xTV/OCTO.15 \ # # $Z AT1=$xTV/OCTO.16 \ # # $Z AU1=$xTV/OCTO.17 \ # # $Z AV1=$xTV/OCTO.18 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$xTV/OCTO.18 \ # # $Z AI2=$xTV/OCTO.17 \ # # $Z AJ2=$xTV/OCTO.16 \ # # $Z AK2=$xTV/OCTO.15 \ # # $Z AS2=$xTV/OCTO.14 \ # # $Z AT2=$xTV/OCTO.13 \ # # $Z AU2=$xTV/OCTO.12 \ # # $Z AV2=$xTV/OCTO.11 \ # # $Z R=$xTV/OCTO.12$VERTE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcK=1 \ # # $Z pcV=1 \ # # $Z AR1=$xTV/OCTO.11 \ # # $Z AI1=$xTV/OCTO.12 \ # # $Z AJ1=$xTV/OCTO.13 \ # # $Z AK1=$xTV/OCTO.14 \ # # $Z AS1=$xTV/OCTO.15 \ # # $Z AT1=$xTV/OCTO.16 \ # # $Z AU1=$xTV/OCTO.17 \ # # $Z AV1=$xTV/OCTO.18 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$xTV/OCTO.18 \ # # $Z AI2=$xTV/OCTO.17 \ # # $Z AJ2=$xTV/OCTO.16 \ # # $Z AK2=$xTV/OCTO.15 \ # # $Z AS2=$xTV/OCTO.14 \ # # $Z AT2=$xTV/OCTO.13 \ # # $Z AU2=$xTV/OCTO.12 \ # # $Z AV2=$xTV/OCTO.11 \ # # $Z R=$xTV/OCTO.12$BLEUE \ # # $Z $formatI # # # # $Z execRVB "$xci/acces$X \ # # $Z A=$xTV/OCTO.12%s \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xiirv/OCTO.12%s \ # # $Z $formatI" # # # # :Fin_listG_OCTO_12: # # # # # # Voir 'v $xiirv/OCTO.52' pour la version "compatibilite_20110929=FAUX". # v $xiirv/OCTO.13 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_OCTO_13: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X c=1 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.11 \ # # $Z $formatI # # $Z $xci/gauss$X c=2 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.12 \ # # $Z $formatI # # $Z $xci/gauss$X c=4 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.13 \ # # $Z $formatI # # $Z $xci/gauss$X c=8 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.14 \ # # $Z $formatI # # $Z $xci/gauss$X c=16 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.15 \ # # $Z $formatI # # $Z $xci/gauss$X c=32 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.16 \ # # $Z $formatI # # $Z $xci/gauss$X c=64 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.17 \ # # $Z $formatI # # $Z $xci/gauss$X c=128 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.18 \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcI=1 \ # # $Z pcS=1 \ # # $Z AR1=$xTV/OCTO.11 \ # # $Z AI1=$xTV/OCTO.12 \ # # $Z AJ1=$xTV/OCTO.13 \ # # $Z AK1=$xTV/OCTO.14 \ # # $Z AS1=$xTV/OCTO.15 \ # # $Z AT1=$xTV/OCTO.16 \ # # $Z AU1=$xTV/OCTO.17 \ # # $Z AV1=$xTV/OCTO.18 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$xTV/OCTO.18 \ # # $Z AI2=$xTV/OCTO.17 \ # # $Z AJ2=$xTV/OCTO.16 \ # # $Z AK2=$xTV/OCTO.15 \ # # $Z AS2=$xTV/OCTO.14 \ # # $Z AT2=$xTV/OCTO.13 \ # # $Z AU2=$xTV/OCTO.12 \ # # $Z AV2=$xTV/OCTO.11 \ # # $Z R=$xTV/OCTO.13$ROUGE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcJ=1 \ # # $Z pcU=1 \ # # $Z AR1=$xTV/OCTO.11 \ # # $Z AI1=$xTV/OCTO.12 \ # # $Z AJ1=$xTV/OCTO.13 \ # # $Z AK1=$xTV/OCTO.14 \ # # $Z AS1=$xTV/OCTO.15 \ # # $Z AT1=$xTV/OCTO.16 \ # # $Z AU1=$xTV/OCTO.17 \ # # $Z AV1=$xTV/OCTO.18 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$xTV/OCTO.18 \ # # $Z AI2=$xTV/OCTO.17 \ # # $Z AJ2=$xTV/OCTO.16 \ # # $Z AK2=$xTV/OCTO.15 \ # # $Z AS2=$xTV/OCTO.14 \ # # $Z AT2=$xTV/OCTO.13 \ # # $Z AU2=$xTV/OCTO.12 \ # # $Z AV2=$xTV/OCTO.11 \ # # $Z R=$xTV/OCTO.13$VERTE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcK=1 \ # # $Z pcV=1 \ # # $Z AR1=$xTV/OCTO.11 \ # # $Z AI1=$xTV/OCTO.12 \ # # $Z AJ1=$xTV/OCTO.13 \ # # $Z AK1=$xTV/OCTO.14 \ # # $Z AS1=$xTV/OCTO.15 \ # # $Z AT1=$xTV/OCTO.16 \ # # $Z AU1=$xTV/OCTO.17 \ # # $Z AV1=$xTV/OCTO.18 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$xTV/OCTO.18 \ # # $Z AI2=$xTV/OCTO.17 \ # # $Z AJ2=$xTV/OCTO.16 \ # # $Z AK2=$xTV/OCTO.15 \ # # $Z AS2=$xTV/OCTO.14 \ # # $Z AT2=$xTV/OCTO.13 \ # # $Z AU2=$xTV/OCTO.12 \ # # $Z AV2=$xTV/OCTO.11 \ # # $Z R=$xTV/OCTO.13$BLEUE \ # # $Z $formatI # # # # $Z execRVB "$xci/acces$X \ # # $Z A=$xTV/OCTO.13%s \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xiirv/OCTO.13%s \ # # $Z $formatI" # # # # :Fin_listG_OCTO_13: # # # v $xiirv/OCTO.21 v $xiirv/OCTO.21$m v $xiirv/OCTO.21$M # Generee (sur '$CMAP28' -ex "courcelle"-) par : # # # # # # :Debut_listG_OCTO_21: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z setenv _____imagesF $xTV/OCTO.2 # # # # $Z FilSTmpB FFrAcTaL # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define OZ 0.0 # # $c #define EZ 1.0 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double Z=((EZ*(n-N0))+(OZ*(N-n)))/(N-N0); # # $c # # $c printf("echo %c$xci/fract_3D.01$X # # $c mx=0.5 my=0.5 mz=0.5 # # $c profondeur=32 # # $c Z=%.16f # # $c standard=FAUX # # $c R=$_____imagesF.%04d # # $c $formatI%c # # $c >> $FFrAcTaL\n" # # $c ,'\'' # # $c ,Z # # $c ,n # # $c ,'\'' # # $c ); # # $c } # # $c } # # # # $Z ro $FFrAcTaL # # $Z $xcg/parallele.1N$X commande="$xcs/Linda$vv$Z $FFrAcTaL" # # # # $Z FilSTmpE FFrAcTaL # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcI=1 \ # # $Z pcS=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.21$ROUGE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcJ=1 \ # # $Z pcU=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.21$VERTE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcK=1 \ # # $Z pcV=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.21$BLEUE \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xTV/OCTO.21%s \ # # $Z standard=FAUX zero=FAUX \ # # $Z R=$xiirv/OCTO.21%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/OCTO.21 \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/OCTO.21%s \ # # $Z avion=VRAI \ # # $Z R=$xiirv/OCTO.21$m%s \ # # $Z $formatI # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/OCTO.21%s \ # # $Z avion=FAUX \ # # $Z R=$xiirv/OCTO.21$M%s \ # # $Z $formatI # # # # :Fin_listG_OCTO_21: # # # # # # Voir 'v $xiirv/OCTO.61' pour la version "compatibilite_20110929=FAUX". # v $xiirv/OCTO.21$m.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_OCTO_21_m_1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # # # $Z $xci/gauss$X \ # # $Z cx2=100 cy2=0 \ # # $Z R=$xTV/GAUSS$COORD_X \ # # $Z $formatI # # # # $Z execRVB $xci/filtre.01$X \ # # $Z A=$xiirv/OCTO.21$m%s \ # # $Z N=$xTV/GAUSS$COORD_X \ # # $Z avertir_non_implicite=FAUX \ # # $Z seuil=100 \ # # $Z R=$xTV/OCTO.21$m$COORD_X%s \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z cx2=0 cy2=100 \ # # $Z R=$xTV/GAUSS$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/filtre.01$X \ # # $Z A=$xiirv/OCTO.21$m%s \ # # $Z N=$xTV/GAUSS$COORD_Y \ # # $Z avertir_non_implicite=FAUX \ # # $Z seuil=100 \ # # $Z R=$xTV/OCTO.21$m$COORD_Y%s \ # # $Z $formatI # # # # $Z execRVB "$xci/minmax$X \ # # $Z A1=$xTV/OCTO.21$m$COORD_X%s \ # # $Z A2=$xTV/OCTO.21$m$COORD_Y%s \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xiirv/OCTO.21$m.1%s \ # # $Z $formatI" # # # # :Fin_listG_OCTO_21_m_1: # # # v $xiirv/OCTO.22 v $xiirv/OCTO.22$m v $xiirv/OCTO.22$M # Generee (sur '$CMAP28' -ex "courcelle"-) par : # # # # # # :Debut_listG_OCTO_22: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z setenv _____imagesF $xTV/OCTO.2 # # # # $Z FilSTmpB FFrAcTaL # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define OZ 0.0 # # $c #define EZ 1.0 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double Z=((EZ*(n-N0))+(OZ*(N-n)))/(N-N0); # # $c # # $c printf("echo %c$xci/fract_3D.01$X # # $c mx=0.5 my=0.5 mz=0.5 # # $c profondeur=32 # # $c Z=%.16f # # $c standard=FAUX # # $c R=$_____imagesF.%04d # # $c $formatI%c # # $c >> $FFrAcTaL\n" # # $c ,'\'' # # $c ,Z # # $c ,n # # $c ,'\'' # # $c ); # # $c } # # $c } # # # # $Z ro $FFrAcTaL # # $Z $xcg/parallele.1N$X commande="$xcs/Linda$vv$Z $FFrAcTaL" # # # # $Z FilSTmpE FFrAcTaL # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcA2=1 \ # # $Z pcA3=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.22$ROUGE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcA4=1 \ # # $Z pcA5=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.22$VERTE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcA6=1 \ # # $Z pcA7=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.22$BLEUE \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xTV/OCTO.22%s \ # # $Z standard=FAUX zero=FAUX \ # # $Z R=$xiirv/OCTO.22%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/OCTO.22 \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/OCTO.22%s \ # # $Z avion=VRAI \ # # $Z R=$xiirv/OCTO.22$m%s \ # # $Z $formatI # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/OCTO.22%s \ # # $Z avion=FAUX \ # # $Z R=$xiirv/OCTO.22$M%s \ # # $Z $formatI # # # # :Fin_listG_OCTO_22: # # # # # # Voir 'v $xiirv/OCTO.62' pour la version "compatibilite_20110929=FAUX". # v $xiirv/OCTO.31 v $xiirv/OCTO.31$m v $xiirv/OCTO.31$M # Generee (sur '$CMAP28' -ex "courcelle"-) par : # # # # # # :Debut_listG_OCTO_31: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z setenv _____imagesF $xTV/OCTO.3 # # # # $Z FilSTmpB FFrAcTaL # # # # $c #include <stdio.h> # # $c # # $c extern double pow(); # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define OZ 0.0 # # $c #define EZ 1.0 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c if (n <= (N/2)) # # $c { # # $c double Z=((EZ*(n-N0))+(OZ*((N/2)-n)))/((N/2)-N0); # # $c # # $c printf("echo %c$xci/fract_3D.01$X # # $c mx=0.5 my=0.5 mz=0.5 # # $c profondeur=32 # # $c Z=%.16f # # $c standard=FAUX # # $c R=$_____imagesF.%04d # # $c $formatI%c # # $c >> $FFrAcTaL\n" # # $c ,'\'' # # $c ,Z # # $c ,n # # $c ,'\'' # # $c ); # # $c } # # $c else # # $c { # # $c double mr=pow(2.0,(double)((n-N0)-(N/2))); # # $c # # $c printf("$xci/spiArchimede$X # # $c mr=%d # # $c mt=3 # # $c standard=FAUX # # $c R=$_____imagesF.%04d # # $c $formatI\n" # # $c ,(int)mr # # $c ,n # # $c ); # # $c } # # $c } # # $c } # # # # $Z ro $FFrAcTaL # # $Z $xcg/parallele.1N$X commande="$xcs/Linda$vv$Z $FFrAcTaL" # # # # $Z FilSTmpE FFrAcTaL # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcI=1 \ # # $Z pcS=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.31$ROUGE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcJ=1 \ # # $Z pcU=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.31$VERTE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcK=1 \ # # $Z pcV=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.31$BLEUE \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xTV/OCTO.31%s \ # # $Z standard=FAUX zero=FAUX \ # # $Z R=$xiirv/OCTO.31%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/OCTO.31 \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/OCTO.31%s \ # # $Z avion=VRAI \ # # $Z R=$xiirv/OCTO.31$m%s \ # # $Z $formatI # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/OCTO.31%s \ # # $Z avion=FAUX \ # # $Z R=$xiirv/OCTO.31$M%s \ # # $Z $formatI # # # # :Fin_listG_OCTO_31: # # # # # # Voir 'v $xiirv/OCTO.71' pour la version "compatibilite_20110929=FAUX". # v $xiirv/OCTO.31$m.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_OCTO_31_m_1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # # # $Z $xci/gauss$X \ # # $Z cx2=100 cy2=0 \ # # $Z R=$xTV/GAUSS$COORD_X \ # # $Z $formatI # # # # $Z execRVB $xci/filtre.01$X \ # # $Z A=$xiirv/OCTO.31$m%s \ # # $Z N=$xTV/GAUSS$COORD_X \ # # $Z avertir_non_implicite=FAUX \ # # $Z seuil=100 \ # # $Z R=$xTV/OCTO.31$m$COORD_X%s \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z cx2=0 cy2=100 \ # # $Z R=$xTV/GAUSS$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/filtre.01$X \ # # $Z A=$xiirv/OCTO.31$m%s \ # # $Z N=$xTV/GAUSS$COORD_Y \ # # $Z avertir_non_implicite=FAUX \ # # $Z seuil=100 \ # # $Z R=$xTV/OCTO.31$m$COORD_Y%s \ # # $Z $formatI # # # # $Z execRVB "$xci/minmax$X \ # # $Z A1=$xTV/OCTO.31$m$COORD_X%s \ # # $Z A2=$xTV/OCTO.31$m$COORD_Y%s \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xiirv/OCTO.31$m.1%s \ # # $Z $formatI" # # # # :Fin_listG_OCTO_31_m_1: # # # v $xiirv/OCTO.41 v $xiirv/OCTO.41$m v $xiirv/OCTO.41$M v $xiirv/OCTO.41.1$M # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_OCTO_41: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z setenv _____imagesF $xTV/OCTO.4 # # # # $Z $xci/trefle$X ct=1 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0001 \ # # $Z $formatI # # $Z $xci/trefle$X ct=2 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0002 \ # # $Z $formatI # # $Z $xci/trefle$X ct=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0003 \ # # $Z $formatI # # $Z $xci/trefle$X ct=4 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0004 \ # # $Z $formatI # # $Z $xci/trefle$X ct=5 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0005 \ # # $Z $formatI # # $Z $xci/trefle$X ct=6 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0006 \ # # $Z $formatI # # $Z $xci/trefle$X ct=7 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0007 \ # # $Z $formatI # # $Z $xci/trefle$X ct=8 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0008 \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X mr=1 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0009 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=2 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0010 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=4 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0011 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=8 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0012 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=16 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0013 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=32 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0014 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=64 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0015 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=128 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0016 \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcA2=1 \ # # $Z pcA3=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.41$ROUGE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcA4=1 \ # # $Z pcA5=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.41$VERTE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcA6=1 \ # # $Z pcA7=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.41$BLEUE \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xTV/OCTO.41%s \ # # $Z standard=FAUX zero=FAUX \ # # $Z R=$xiirv/OCTO.41%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/OCTO.41 \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/OCTO.41%s \ # # $Z avion=VRAI \ # # $Z R=$xiirv/OCTO.41$m%s \ # # $Z $formatI # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/OCTO.41%s \ # # $Z avion=FAUX \ # # $Z depth=VRAI minimum=0.1 \ # # $Z R=$xiirv/OCTO.41$M%s \ # # $Z $formatI # # # # $Z $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$BLANC \ # # $Z avion=FAUX \ # # $Z Z-Buffer=VRAI \ # # $Z R=$xTV/MONTAGNE \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/BRUME \ # # $Z $formatI # # # # $Z execRVB $xci/brume.11$X \ # # $Z A=$xiirv/OCTO.41$M%s \ # # $Z B=$xTV/BRUME \ # # $Z R=$xiirv/OCTO.41.1$M%s \ # # $Z $formatI # # # # :Fin_listG_OCTO_41: # # # # # # Voir 'v $xiirv/OCTO.81' pour la version "compatibilite_20110929=FAUX". # v $xiirv/OCTO.41$HauteDef v $xiirv/OCTO.41$HauteDef$m v $xiirv/OCTO.41$HauteDef$M v $xiirv/OCTO.41$HauteDef.1$M # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_OCTO_41_HauteDef: # # # # $Z Phu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z setenv _____imagesF $xTV/OCTO.4 # # # # $Z $xci/trefle$X ct=1 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0001 \ # # $Z $formatI # # $Z $xci/trefle$X ct=2 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0002 \ # # $Z $formatI # # $Z $xci/trefle$X ct=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0003 \ # # $Z $formatI # # $Z $xci/trefle$X ct=4 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0004 \ # # $Z $formatI # # $Z $xci/trefle$X ct=5 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0005 \ # # $Z $formatI # # $Z $xci/trefle$X ct=6 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0006 \ # # $Z $formatI # # $Z $xci/trefle$X ct=7 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0007 \ # # $Z $formatI # # $Z $xci/trefle$X ct=8 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0008 \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X mr=1 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0009 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=2 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0010 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=4 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0011 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=8 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0012 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=16 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0013 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=32 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0014 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=64 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0015 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=128 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0016 \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcA2=1 \ # # $Z pcA3=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.41$HauteDef$ROUGE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcA4=1 \ # # $Z pcA5=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.41$HauteDef$VERTE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcA6=1 \ # # $Z pcA7=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.41$HauteDef$BLEUE \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xTV/OCTO.41$HauteDef%s \ # # $Z standard=FAUX zero=FAUX \ # # $Z R=$xiirv/OCTO.41$HauteDef%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/OCTO.41$HauteDef \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/OCTO.41$HauteDef%s \ # # $Z avion=VRAI \ # # $Z R=$xiirv/OCTO.41$HauteDef$m%s \ # # $Z $formatI # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/OCTO.41$HauteDef%s \ # # $Z avion=FAUX \ # # $Z depth=VRAI minimum=0.1 \ # # $Z R=$xiirv/OCTO.41$HauteDef$M%s \ # # $Z $formatI # # # # $Z $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$BLANC \ # # $Z avion=FAUX \ # # $Z Z-Buffer=VRAI \ # # $Z R=$xTV/MONTAGNE \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/BRUME \ # # $Z $formatI # # # # $Z execRVB $xci/brume.11$X \ # # $Z A=$xiirv/OCTO.41$HauteDef$M%s \ # # $Z B=$xTV/BRUME \ # # $Z R=$xiirv/OCTO.41$HauteDef.1$M%s \ # # $Z $formatI # # # # :Fin_listG_OCTO_41_HauteDef: # # # # # # Elle est identique a 'v $xiirv/OCTO.41' mais en mode '$HauteDef' pour le livre de # # Tom Mikulic ('v $Dcourrier_in/20150504091726 From.tmikulic@gmail.com..Thu.Apr.30.18:15'). # v $xiirv/OCTO.41.1$M.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_OCTO_41_1_M_1: # # # # $Z Pal # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$xiirv/OCTO.41.1$M%s \ # # $Z iterations=1 \ # # $Z R=$xiirv/OCTO.41.1$M.1%s \ # # $Z $formatI # # # # :Fin_listG_OCTO_41_1_M_1: # # # v $xiirv/OCTO.41$HauteDef.1$M.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_OCTO_41_HauteDef_1_M_1: # # # # $Z Phu # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$xiirv/OCTO.41$HauteDef.1$M%s \ # # $Z iterations=1 \ # # $Z R=$xiirv/OCTO.41$HauteDef.1$M.1%s \ # # $Z $formatI # # # # :Fin_listG_OCTO_41_HauteDef_1_M_1: # # # # # # Elle est identique a 'v $xiirv/OCTO.41.1$M.1' mais en mode '$HauteDef' pour le livre de # # Tom Mikulic ('v $Dcourrier_in/20150504091726 From.tmikulic@gmail.com..Thu.Apr.30.18:15'). # v $xiirv/OCTO.51 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_OCTO_51: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X ct=1 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.11 \ # # $Z $formatI # # $Z $xci/trefle$X ct=2 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.12 \ # # $Z $formatI # # $Z $xci/trefle$X ct=3 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.13 \ # # $Z $formatI # # $Z $xci/trefle$X ct=4 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.14 \ # # $Z $formatI # # $Z $xci/trefle$X ct=5 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.15 \ # # $Z $formatI # # $Z $xci/trefle$X ct=6 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.16 \ # # $Z $formatI # # $Z $xci/trefle$X ct=7 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.17 \ # # $Z $formatI # # $Z $xci/trefle$X ct=8 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.18 \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcI=1 \ # # $Z pcS=1 \ # # $Z AR1=$xTV/OCTO.11 \ # # $Z AI1=$xTV/OCTO.12 \ # # $Z AJ1=$xTV/OCTO.13 \ # # $Z AK1=$xTV/OCTO.14 \ # # $Z AS1=$xTV/OCTO.15 \ # # $Z AT1=$xTV/OCTO.16 \ # # $Z AU1=$xTV/OCTO.17 \ # # $Z AV1=$xTV/OCTO.18 \ # # $Z AR2=$xTV/OCTO.18 \ # # $Z AI2=$xTV/OCTO.17 \ # # $Z AJ2=$xTV/OCTO.16 \ # # $Z AK2=$xTV/OCTO.15 \ # # $Z AS2=$xTV/OCTO.14 \ # # $Z AT2=$xTV/OCTO.13 \ # # $Z AU2=$xTV/OCTO.12 \ # # $Z AV2=$xTV/OCTO.11 \ # # $Z R=$xTV/OCTO.51$ROUGE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcJ=1 \ # # $Z pcU=1 \ # # $Z AR1=$xTV/OCTO.11 \ # # $Z AI1=$xTV/OCTO.12 \ # # $Z AJ1=$xTV/OCTO.13 \ # # $Z AK1=$xTV/OCTO.14 \ # # $Z AS1=$xTV/OCTO.15 \ # # $Z AT1=$xTV/OCTO.16 \ # # $Z AU1=$xTV/OCTO.17 \ # # $Z AV1=$xTV/OCTO.18 \ # # $Z AR2=$xTV/OCTO.18 \ # # $Z AI2=$xTV/OCTO.17 \ # # $Z AJ2=$xTV/OCTO.16 \ # # $Z AK2=$xTV/OCTO.15 \ # # $Z AS2=$xTV/OCTO.14 \ # # $Z AT2=$xTV/OCTO.13 \ # # $Z AU2=$xTV/OCTO.12 \ # # $Z AV2=$xTV/OCTO.11 \ # # $Z R=$xTV/OCTO.51$VERTE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcK=1 \ # # $Z pcV=1 \ # # $Z AR1=$xTV/OCTO.11 \ # # $Z AI1=$xTV/OCTO.12 \ # # $Z AJ1=$xTV/OCTO.13 \ # # $Z AK1=$xTV/OCTO.14 \ # # $Z AS1=$xTV/OCTO.15 \ # # $Z AT1=$xTV/OCTO.16 \ # # $Z AU1=$xTV/OCTO.17 \ # # $Z AV1=$xTV/OCTO.18 \ # # $Z AR2=$xTV/OCTO.18 \ # # $Z AI2=$xTV/OCTO.17 \ # # $Z AJ2=$xTV/OCTO.16 \ # # $Z AK2=$xTV/OCTO.15 \ # # $Z AS2=$xTV/OCTO.14 \ # # $Z AT2=$xTV/OCTO.13 \ # # $Z AU2=$xTV/OCTO.12 \ # # $Z AV2=$xTV/OCTO.11 \ # # $Z R=$xTV/OCTO.51$BLEUE \ # # $Z $formatI # # # # $Z execRVB "$xci/acces$X \ # # $Z A=$xTV/OCTO.51%s \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xiirv/OCTO.51%s \ # # $Z $formatI" # # # # :Fin_listG_OCTO_51: # # # # # # Version "compatibilite_20110929=FAUX" de 'v $xiirv/OCTO.11'. # v $xiirv/OCTO.52 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_OCTO_52: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/spiArchimede$X mr=1 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.11 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=2 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.12 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=4 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.13 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=8 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.14 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=16 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.15 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=32 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.16 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=64 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.17 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=128 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$xTV/OCTO.18 \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcI=1 \ # # $Z pcS=1 \ # # $Z AR1=$xTV/OCTO.11 \ # # $Z AI1=$xTV/OCTO.12 \ # # $Z AJ1=$xTV/OCTO.13 \ # # $Z AK1=$xTV/OCTO.14 \ # # $Z AS1=$xTV/OCTO.15 \ # # $Z AT1=$xTV/OCTO.16 \ # # $Z AU1=$xTV/OCTO.17 \ # # $Z AV1=$xTV/OCTO.18 \ # # $Z AR2=$xTV/OCTO.18 \ # # $Z AI2=$xTV/OCTO.17 \ # # $Z AJ2=$xTV/OCTO.16 \ # # $Z AK2=$xTV/OCTO.15 \ # # $Z AS2=$xTV/OCTO.14 \ # # $Z AT2=$xTV/OCTO.13 \ # # $Z AU2=$xTV/OCTO.12 \ # # $Z AV2=$xTV/OCTO.11 \ # # $Z R=$xTV/OCTO.52$ROUGE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcJ=1 \ # # $Z pcU=1 \ # # $Z AR1=$xTV/OCTO.11 \ # # $Z AI1=$xTV/OCTO.12 \ # # $Z AJ1=$xTV/OCTO.13 \ # # $Z AK1=$xTV/OCTO.14 \ # # $Z AS1=$xTV/OCTO.15 \ # # $Z AT1=$xTV/OCTO.16 \ # # $Z AU1=$xTV/OCTO.17 \ # # $Z AV1=$xTV/OCTO.18 \ # # $Z AR2=$xTV/OCTO.18 \ # # $Z AI2=$xTV/OCTO.17 \ # # $Z AJ2=$xTV/OCTO.16 \ # # $Z AK2=$xTV/OCTO.15 \ # # $Z AS2=$xTV/OCTO.14 \ # # $Z AT2=$xTV/OCTO.13 \ # # $Z AU2=$xTV/OCTO.12 \ # # $Z AV2=$xTV/OCTO.11 \ # # $Z R=$xTV/OCTO.52$VERTE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcK=1 \ # # $Z pcV=1 \ # # $Z AR1=$xTV/OCTO.11 \ # # $Z AI1=$xTV/OCTO.12 \ # # $Z AJ1=$xTV/OCTO.13 \ # # $Z AK1=$xTV/OCTO.14 \ # # $Z AS1=$xTV/OCTO.15 \ # # $Z AT1=$xTV/OCTO.16 \ # # $Z AU1=$xTV/OCTO.17 \ # # $Z AV1=$xTV/OCTO.18 \ # # $Z AR2=$xTV/OCTO.18 \ # # $Z AI2=$xTV/OCTO.17 \ # # $Z AJ2=$xTV/OCTO.16 \ # # $Z AK2=$xTV/OCTO.15 \ # # $Z AS2=$xTV/OCTO.14 \ # # $Z AT2=$xTV/OCTO.13 \ # # $Z AU2=$xTV/OCTO.12 \ # # $Z AV2=$xTV/OCTO.11 \ # # $Z R=$xTV/OCTO.52$BLEUE \ # # $Z $formatI # # # # $Z execRVB "$xci/acces$X \ # # $Z A=$xTV/OCTO.52%s \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xiirv/OCTO.52%s \ # # $Z $formatI" # # # # :Fin_listG_OCTO_52: # # # # # # Version "compatibilite_20110929=FAUX" de 'v $xiirv/OCTO.12'. # v $xiirv/OCTO.61 v $xiirv/OCTO.61$m v $xiirv/OCTO.61$M # Generee (sur '$CMAP28' -ex "courcelle"-) par : # # # # # # :Debut_listG_OCTO_61: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z setenv _____imagesF $xTV/OCTO.2 # # # # $Z FilSTmpB FFrAcTaL # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define OZ 0.0 # # $c #define EZ 1.0 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double Z=((EZ*(n-N0))+(OZ*(N-n)))/(N-N0); # # $c # # $c printf("echo %c$xci/fract_3D.01$X # # $c mx=0.5 my=0.5 mz=0.5 # # $c profondeur=32 # # $c Z=%.16f # # $c standard=FAUX # # $c R=$_____imagesF.%04d # # $c $formatI%c # # $c >> $FFrAcTaL\n" # # $c ,'\'' # # $c ,Z # # $c ,n # # $c ,'\'' # # $c ); # # $c } # # $c } # # # # $Z ro $FFrAcTaL # # $Z $xcg/parallele.1N$X commande="$xcs/Linda$vv$Z $FFrAcTaL" # # # # $Z FilSTmpE FFrAcTaL # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcI=1 \ # # $Z pcS=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.61$ROUGE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcJ=1 \ # # $Z pcU=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.61$VERTE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcK=1 \ # # $Z pcV=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.61$BLEUE \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xTV/OCTO.61%s \ # # $Z standard=FAUX zero=FAUX \ # # $Z R=$xiirv/OCTO.61%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/OCTO.61 \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/OCTO.61%s \ # # $Z avion=VRAI \ # # $Z R=$xiirv/OCTO.61$m%s \ # # $Z $formatI # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/OCTO.61%s \ # # $Z avion=FAUX \ # # $Z R=$xiirv/OCTO.61$M%s \ # # $Z $formatI # # # # :Fin_listG_OCTO_61: # # # # # # Version "compatibilite_20110929=FAUX" de 'v $xiirv/OCTO.21'. # v $xiirv/OCTO.62 v $xiirv/OCTO.62$m v $xiirv/OCTO.62$M # Generee (sur '$CMAP28' -ex "courcelle"-) par : # # # # # # :Debut_listG_OCTO_62: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z setenv _____imagesF $xTV/OCTO.2 # # # # $Z FilSTmpB FFrAcTaL # # # # $c #include <stdio.h> # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define OZ 0.0 # # $c #define EZ 1.0 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double Z=((EZ*(n-N0))+(OZ*(N-n)))/(N-N0); # # $c # # $c printf("echo %c$xci/fract_3D.01$X # # $c mx=0.5 my=0.5 mz=0.5 # # $c profondeur=32 # # $c Z=%.16f # # $c standard=FAUX # # $c R=$_____imagesF.%04d # # $c $formatI%c # # $c >> $FFrAcTaL\n" # # $c ,'\'' # # $c ,Z # # $c ,n # # $c ,'\'' # # $c ); # # $c } # # $c } # # # # $Z ro $FFrAcTaL # # $Z $xcg/parallele.1N$X commande="$xcs/Linda$vv$Z $FFrAcTaL" # # # # $Z FilSTmpE FFrAcTaL # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcA2=1 \ # # $Z pcA3=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.62$ROUGE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcA4=1 \ # # $Z pcA5=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.62$VERTE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcA6=1 \ # # $Z pcA7=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.62$BLEUE \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xTV/OCTO.62%s \ # # $Z standard=FAUX zero=FAUX \ # # $Z R=$xiirv/OCTO.62%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/OCTO.62 \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/OCTO.62%s \ # # $Z avion=VRAI \ # # $Z R=$xiirv/OCTO.62$m%s \ # # $Z $formatI # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/OCTO.62%s \ # # $Z avion=FAUX \ # # $Z R=$xiirv/OCTO.62$M%s \ # # $Z $formatI # # # # :Fin_listG_OCTO_62: # # # # # # Version "compatibilite_20110929=FAUX" de 'v $xiirv/OCTO.22'. # v $xiirv/OCTO.71 v $xiirv/OCTO.71$m v $xiirv/OCTO.71$M # Generee (sur '$CMAP28' -ex "courcelle"-) par : # # # # # # :Debut_listG_OCTO_71: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z setenv _____imagesF $xTV/OCTO.3 # # # # $Z FilSTmpB FFrAcTaL # # # # $c #include <stdio.h> # # $c # # $c extern double pow(); # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define OZ 0.0 # # $c #define EZ 1.0 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c if (n <= (N/2)) # # $c { # # $c double Z=((EZ*(n-N0))+(OZ*((N/2)-n)))/((N/2)-N0); # # $c # # $c printf("echo %c$xci/fract_3D.01$X # # $c mx=0.5 my=0.5 mz=0.5 # # $c profondeur=32 # # $c Z=%.16f # # $c standard=FAUX # # $c R=$_____imagesF.%04d # # $c $formatI%c # # $c >> $FFrAcTaL\n" # # $c ,'\'' # # $c ,Z # # $c ,n # # $c ,'\'' # # $c ); # # $c } # # $c else # # $c { # # $c double mr=pow(2.0,(double)((n-N0)-(N/2))); # # $c # # $c printf("$xci/spiArchimede$X # # $c mr=%d # # $c mt=3 # # $c standard=FAUX # # $c R=$_____imagesF.%04d # # $c $formatI\n" # # $c ,(int)mr # # $c ,n # # $c ); # # $c } # # $c } # # $c } # # # # $Z ro $FFrAcTaL # # $Z $xcg/parallele.1N$X commande="$xcs/Linda$vv$Z $FFrAcTaL" # # # # $Z FilSTmpE FFrAcTaL # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcI=1 \ # # $Z pcS=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.71$ROUGE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcJ=1 \ # # $Z pcU=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.71$VERTE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcK=1 \ # # $Z pcV=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.71$BLEUE \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xTV/OCTO.71%s \ # # $Z standard=FAUX zero=FAUX \ # # $Z R=$xiirv/OCTO.71%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/OCTO.71 \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/OCTO.71%s \ # # $Z avion=VRAI \ # # $Z R=$xiirv/OCTO.71$m%s \ # # $Z $formatI # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/OCTO.71%s \ # # $Z avion=FAUX \ # # $Z R=$xiirv/OCTO.71$M%s \ # # $Z $formatI # # # # :Fin_listG_OCTO_71: # # # # # # Version "compatibilite_20110929=FAUX" de 'v $xiirv/OCTO.31'. # v $xiirv/OCTO.81 v $xiirv/OCTO.81$m v $xiirv/OCTO.81$M v $xiirv/OCTO.81.1$M # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_OCTO_81: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z setenv _____imagesF $xTV/OCTO.4 # # # # $Z $xci/trefle$X ct=1 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0001 \ # # $Z $formatI # # $Z $xci/trefle$X ct=2 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0002 \ # # $Z $formatI # # $Z $xci/trefle$X ct=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0003 \ # # $Z $formatI # # $Z $xci/trefle$X ct=4 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0004 \ # # $Z $formatI # # $Z $xci/trefle$X ct=5 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0005 \ # # $Z $formatI # # $Z $xci/trefle$X ct=6 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0006 \ # # $Z $formatI # # $Z $xci/trefle$X ct=7 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0007 \ # # $Z $formatI # # $Z $xci/trefle$X ct=8 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0008 \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X mr=1 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0009 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=2 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0010 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=4 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0011 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=8 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0012 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=16 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0013 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=32 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0014 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=64 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0015 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=128 mt=3 \ # # $Z standard=FAUX \ # # $Z R=$_____imagesF.0016 \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcA2=1 \ # # $Z pcA3=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.81$ROUGE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcA4=1 \ # # $Z pcA5=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.81$VERTE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcA6=1 \ # # $Z pcA7=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.81$BLEUE \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xTV/OCTO.81%s \ # # $Z standard=FAUX zero=FAUX \ # # $Z R=$xiirv/OCTO.81%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/OCTO.81 \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/OCTO.81%s \ # # $Z avion=VRAI \ # # $Z R=$xiirv/OCTO.81$m%s \ # # $Z $formatI # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/OCTO.81%s \ # # $Z avion=FAUX \ # # $Z depth=VRAI minimum=0.1 \ # # $Z R=$xiirv/OCTO.81$M%s \ # # $Z $formatI # # # # $Z $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$BLANC \ # # $Z avion=FAUX \ # # $Z Z-Buffer=VRAI \ # # $Z R=$xTV/MONTAGNE \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/BRUME \ # # $Z $formatI # # # # $Z execRVB $xci/brume.11$X \ # # $Z A=$xiirv/OCTO.81$M%s \ # # $Z B=$xTV/BRUME \ # # $Z R=$xiirv/OCTO.81.1$M%s \ # # $Z $formatI # # # # :Fin_listG_OCTO_81: # # # # # # Version "compatibilite_20110929=FAUX" de 'v $xiirv/OCTO.41'. # v $xiirv/OCTO.91 v $xiirv/OCTO.91$m v $xiirv/OCTO.91$M # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_OCTO_91: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SET Premiere=1 # # $Z SET Derniere=16 # # # # $Z setenv _____imagesF $xTV/OCTO.9 # # # # $c #include <stdio.h> # # $c # # $c extern double pow(); # # $c # # $c #define N0 Premiere # # $c #define N Derniere # # $c # # $c #define OCX 0.3 # # $c #define ECX 1.3 # # $c # # $c #define OCY 1.5 # # $c #define ECY 0.5 # # $c # # $c #define FACTEUR 10.0 # # $c #define EXPOSANT 3.0 # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n++) # # $c { # # $c double CX=((ECX*(n-N0))+(OCX*(N-n)))/(N-N0); # # $c double CY=((ECY*(n-N0))+(OCY*(N-n)))/(N-N0); # # $c # # $c printf("$xci/sinus$X # # $c standard=FAUX # # $c cX=%f cY=%f # # $c $formatI | # # $c $xci/normalise.01$X # # $c R=$_____imagesF.%04d # # $c $formatI\n" # # $c ,FACTEUR*pow(CX,EXPOSANT) # # $c ,FACTEUR*pow(CY,EXPOSANT) # # $c ,n # # $c ); # # $c } # # $c } # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcI=1 \ # # $Z pcS=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.91$ROUGE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcJ=1 \ # # $Z pcU=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.91$VERTE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcK=1 \ # # $Z pcV=1 \ # # $Z AR1=$_____imagesF.0001 \ # # $Z AI1=$_____imagesF.0002 \ # # $Z AJ1=$_____imagesF.0003 \ # # $Z AK1=$_____imagesF.0004 \ # # $Z AS1=$_____imagesF.0005 \ # # $Z AT1=$_____imagesF.0006 \ # # $Z AU1=$_____imagesF.0007 \ # # $Z AV1=$_____imagesF.0008 \ # # $Z AR2=$_____imagesF.0009 \ # # $Z AI2=$_____imagesF.0010 \ # # $Z AJ2=$_____imagesF.0011 \ # # $Z AK2=$_____imagesF.0012 \ # # $Z AS2=$_____imagesF.0013 \ # # $Z AT2=$_____imagesF.0014 \ # # $Z AU2=$_____imagesF.0015 \ # # $Z AV2=$_____imagesF.0016 \ # # $Z R=$xTV/OCTO.91$BLEUE \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xTV/OCTO.91%s \ # # $Z standard=FAUX zero=FAUX \ # # $Z R=$xiirv/OCTO.91%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/OCTO.91 \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/OCTO.91%s \ # # $Z avion=VRAI \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xiirv/OCTO.91$m%s \ # # $Z $formatI" # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/OCTO.91%s \ # # $Z avion=FAUX \ # # $Z R=$xiirv/OCTO.91$M%s \ # # $Z $formatI # # # # :Fin_listG_OCTO_91: # # # v $xiirv/OCTO.A1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_OCTO_A1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X c=16 \ # # $Z standard=FAUX \ # # $Z Frenormaliser=VRAI \ # # $Z R=$xTV/OCTO.11 \ # # $Z $formatI # # $Z $xci/trefle$X ct=3 \ # # $Z standard=FAUX \ # # $Z Frenormaliser=VRAI \ # # $Z R=$xTV/OCTO.12 \ # # $Z $formatI # # $Z $xci/gauss$X c=64 \ # # $Z standard=FAUX \ # # $Z Frenormaliser=VRAI \ # # $Z R=$xTV/OCTO.13 \ # # $Z $formatI # # $Z $xci/trefle$X ct=7 \ # # $Z standard=FAUX \ # # $Z Frenormaliser=VRAI \ # # $Z R=$xTV/OCTO.14 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=2 mt=5 \ # # $Z standard=FAUX \ # # $Z Frenormaliser=VRAI \ # # $Z R=$xTV/OCTO.15 \ # # $Z $formatI # # $Z $xci/chapeau_mexi$X d=1 \ # # $Z standard=FAUX \ # # $Z Frenormaliser=VRAI \ # # $Z R=$xTV/OCTO.16 \ # # $Z $formatI # # $Z $xci/spiArchimede$X mr=8 mt=5 \ # # $Z standard=FAUX \ # # $Z Frenormaliser=VRAI \ # # $Z R=$xTV/OCTO.17 \ # # $Z $formatI # # $Z $xci/chapeau_mexi$X d=4 \ # # $Z standard=FAUX \ # # $Z Frenormaliser=VRAI \ # # $Z R=$xTV/OCTO.18 \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcI=1 \ # # $Z pcS=1 \ # # $Z AR1=$xTV/OCTO.11 \ # # $Z AI1=$xTV/OCTO.12 \ # # $Z AJ1=$xTV/OCTO.13 \ # # $Z AK1=$xTV/OCTO.14 \ # # $Z AS1=$xTV/OCTO.15 \ # # $Z AT1=$xTV/OCTO.16 \ # # $Z AU1=$xTV/OCTO.17 \ # # $Z AV1=$xTV/OCTO.18 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$xTV/OCTO.18 \ # # $Z AI2=$xTV/OCTO.17 \ # # $Z AJ2=$xTV/OCTO.16 \ # # $Z AK2=$xTV/OCTO.15 \ # # $Z AS2=$xTV/OCTO.14 \ # # $Z AT2=$xTV/OCTO.13 \ # # $Z AU2=$xTV/OCTO.12 \ # # $Z AV2=$xTV/OCTO.11 \ # # $Z R=$xTV/OCTO.A1$ROUGE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcJ=1 \ # # $Z pcU=1 \ # # $Z AR1=$xTV/OCTO.11 \ # # $Z AI1=$xTV/OCTO.12 \ # # $Z AJ1=$xTV/OCTO.13 \ # # $Z AK1=$xTV/OCTO.14 \ # # $Z AS1=$xTV/OCTO.15 \ # # $Z AT1=$xTV/OCTO.16 \ # # $Z AU1=$xTV/OCTO.17 \ # # $Z AV1=$xTV/OCTO.18 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$xTV/OCTO.18 \ # # $Z AI2=$xTV/OCTO.17 \ # # $Z AJ2=$xTV/OCTO.16 \ # # $Z AK2=$xTV/OCTO.15 \ # # $Z AS2=$xTV/OCTO.14 \ # # $Z AT2=$xTV/OCTO.13 \ # # $Z AU2=$xTV/OCTO.12 \ # # $Z AV2=$xTV/OCTO.11 \ # # $Z R=$xTV/OCTO.A1$VERTE \ # # $Z $formatI # # # # $Z $xci/multHHC_02.01$X \ # # $Z standardA=FAUX standardR=FAUX \ # # $Z arithmetique_etendue_HHC=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z pxADD2_MUL2=1 pxMUL2_MUL2=0 \ # # $Z pcK=1 \ # # $Z pcV=1 \ # # $Z AR1=$xTV/OCTO.11 \ # # $Z AI1=$xTV/OCTO.12 \ # # $Z AJ1=$xTV/OCTO.13 \ # # $Z AK1=$xTV/OCTO.14 \ # # $Z AS1=$xTV/OCTO.15 \ # # $Z AT1=$xTV/OCTO.16 \ # # $Z AU1=$xTV/OCTO.17 \ # # $Z AV1=$xTV/OCTO.18 \ # # $Z compatibilite_20110929=VRAI \ # # $Z AR2=$xTV/OCTO.18 \ # # $Z AI2=$xTV/OCTO.17 \ # # $Z AJ2=$xTV/OCTO.16 \ # # $Z AK2=$xTV/OCTO.15 \ # # $Z AS2=$xTV/OCTO.14 \ # # $Z AT2=$xTV/OCTO.13 \ # # $Z AU2=$xTV/OCTO.12 \ # # $Z AV2=$xTV/OCTO.11 \ # # $Z R=$xTV/OCTO.A1$BLEUE \ # # $Z $formatI # # # # $Z execRVB "$xci/acces$X \ # # $Z A=$xTV/OCTO.A1%s \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xiirv/OCTO.A1%s \ # # $Z $formatI" # # # # :Fin_listG_OCTO_A1: # # # v $xiirv/OMBR.11 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_OMBR_11: # # # # $Z Pal # # # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # $Z set _____OmbresPortees="$_____OmbresPortees"" seuil_ombrage=0.010" # # # # $Z set _____ImageR=$xiirv/OMBR.11 # # $m4 _____include(_____xiirv/.OMBR.11._____U) # # # # :Fin_listG_OMBR_11: # # # # # # Il s'agit d'un test des ombres portees... # v $xiirv/OMBR.12 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_OMBR_12: # # # # $Z Pal # # # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # $Z set _____OmbresPortees="$_____OmbresPortees"" seuil_ombrage=0.020" # # # # $Z set _____ImageR=$xiirv/OMBR.12 # # $m4 _____include(_____xiirv/.OMBR.11._____U) # # # # :Fin_listG_OMBR_12: # # # # # # Il s'agit d'un test des ombres portees... # v $xiirv/OMBR.13 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_OMBR_13: # # # # $Z Pal # # # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # $Z set _____OmbresPortees="$_____OmbresPortees"" seuil_ombrage=0.030" # # # # $Z set _____ImageR=$xiirv/OMBR.13 # # $m4 _____include(_____xiirv/.OMBR.11._____U) # # # # :Fin_listG_OMBR_13: # # # # # # Il s'agit d'un test des ombres portees... # v $xiirv/ONDE.11 v $xiirv/ONDE.11$m v $xiirv/ONDE.11$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_ONDE_11: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xTV/ONDE.11.1 # # # # $Z $xci/fract_2D.01$X \ # # $Z OX=0 EX=1 mX=0.50 \ # # $Z OY=0 EY=1 mY=0.50 \ # # $Z graine=1947 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$_____ImageA \ # # $Z $formatI # # # # $Z set _____ParamsOnd="$K_VIDE" # # $Z set _____ParamsOnd="$_____ParamsOnd"" dilatation=0.10" # # $Z set _____ParamsOnd="$_____ParamsOnd"" angle=$pis2" # # $Z set _____ParamsOnd="$_____ParamsOnd"" nombre_periodes=6" # # # # $Z set _____ParamsMont="$K_VIDE" # # $Z set _____ParamsMont="$_____ParamsMont"" Ty=0.54" # # # # $Z set _____ImageR=$xiirv/ONDE.11 # # $m4 _____include(_____xiirv/.ONDE.11.1._____U) # # # # :Fin_listG_ONDE_11: # # # # # # Montre le module (en couleur) et les lignes de phase nulle (en blanc) d'un champ fractal # # periodique (et ce a cause des Transformees de Fourier...) bidimensionnel, mappes sur une # # representation tridimensionnelle de ce meme champ... # v $xiirv/ONDE.21 v $xiirv/ONDE.21$m v $xiirv/ONDE.21$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_ONDE_21: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xTV/ONDE.21.1 # # # # $Z $xci/fract_2D.01$X \ # # $Z OX=0 EX=1 mX=0.50 \ # # $Z OY=0 EY=1 mY=0.50 \ # # $Z graine=1947 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.52 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z standard=FAUX \ # # $Z lissage=VRAI passes=100 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$_____ImageA \ # # $Z $formatI # # # # $Z set _____ParamsOnd="$K_VIDE" # # $Z set _____ParamsOnd="$_____ParamsOnd"" dilatation=0.10" # # $Z set _____ParamsOnd="$_____ParamsOnd"" angle=$pis2" # # $Z set _____ParamsOnd="$_____ParamsOnd"" nombre_periodes=6" # # # # $Z set _____ParamsMont="$K_VIDE" # # $Z set _____ParamsMont="$_____ParamsMont"" Ty=0.50" # # # # $Z set _____ImageR=$xiirv/ONDE.21 # # $m4 _____include(_____xiirv/.ONDE.11.1._____U) # # # # :Fin_listG_ONDE_21: # # # # # # Montre le module (en couleur) et les lignes de phase nulle (en blanc) d'un champ fractal # # periodique (et ce a cause des Transformees de Fourier...) bidimensionnel, mappes sur une # # representation tridimensionnelle de ce meme champ... # v $xiirv/ONDE.22 v $xiirv/ONDE.22$m v $xiirv/ONDE.22$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_ONDE_22: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xTV/ONDE.22 # # # # $Z $xci/fract_2D.01$X \ # # $Z OX=0 EX=1 mX=0.50 \ # # $Z OY=0 EY=1 mY=0.50 \ # # $Z graine=1947 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.52 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z standard=FAUX \ # # $Z lissage=VRAI passes=100 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$_____ImageA \ # # $Z $formatI # # # # $Z $xci/gaussg$X \ # # $Z ex=2 ey=2 \ # # $Z arithmetique_etendue_gaussien_generalise=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z standard=FAUX \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/GAUSS \ # # $Z A2=$_____ImageA \ # # $Z standard=FAUX \ # # $Z R=$_____ImageA \ # # $Z $formatI # # # # $Z set _____ParamsOnd="$K_VIDE" # # $Z set _____ParamsOnd="$_____ParamsOnd"" dilatation=0.10" # # $Z set _____ParamsOnd="$_____ParamsOnd"" angle=$pis2" # # $Z set _____ParamsOnd="$_____ParamsOnd"" nombre_periodes=6" # # # # $Z set _____ParamsMont="$K_VIDE" # # $Z set _____ParamsMont="$_____ParamsMont"" perspective=0.30" # # $Z set _____ParamsMont="$_____ParamsMont"" Ty=0.88" # # # # $Z set exec_aR="ZBuffer=VRAI Z=$xTV/BRUME" # # $Z set exec_aV="$K_VIDE" # # $Z set exec_aB="$K_VIDE" # # # # $Z set _____ImageR=$xiirv/ONDE.22 # # $m4 _____include(_____xiirv/.ONDE.11.1._____U) # # # # $Z $xci/complement$X \ # # $Z A=$xTV/BRUME \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.08 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/BRUME \ # # $Z $formatI # # # # $Z execRVB $xci/brume.11$X \ # # $Z A=$_____ImageR$M%s \ # # $Z B=$xTV/BRUME \ # # $Z R=$_____ImageR$M%s \ # # $Z $formatI # # # # :Fin_listG_ONDE_22: # # # # # # Montre le module (en couleur) et les lignes de phase nulle (en blanc) d'un champ fractal # # periodique (et ce a cause des Transformees de Fourier...) bidimensionnel, mappes sur une # # representation tridimensionnelle de ce meme champ... # v $xiirv/PAIX.11$m # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PAIX_11_m: # # # # $Z Sdu # # # # $Z $xrd/Salomon.01$X \ # # $Z echelle=0.55 \ # # $Z R=$xTG/PAIX.1.11 \ # # $Z $formatI # # $Z $xrd/Salomon.01$X \ # # $Z echelle=2.475 \ # # $Z R=$xTG/PAIX.1.13 \ # # $Z $formatI # # $Z $xrd/Salomon.01$X \ # # $Z echelle=10.3125 \ # # $Z R=$xTG/PAIX.1.15 \ # # $Z $formatI # # # # $Z $xrd/David.01$X \ # # $Z echelle=0.06875 \ # # $Z R=$xTG/PAIX.1.12 \ # # $Z $formatI # # $Z $xrd/David.01$X \ # # $Z echelle=0.275 \ # # $Z R=$xTG/PAIX.1.14 \ # # $Z $formatI # # $Z $xrd/David.01$X \ # # $Z echelle=1.1 \ # # $Z R=$xTG/PAIX.1.16 \ # # $Z $formatI # # # # $Z set _____ImageR=$xiirv/PAIX.11 # # $m4 _____include(_____xiirv/.PAIX.11.1._____U) # # $m4 _____include(_____xiirv/.PAIX.11.2._____U) # # # # :Fin_listG_PAIX_11_m: # # # # # # Visualisation du conflit israelo-palestinien... # v $xiirv/PAIX.12$m # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PAIX_12_m: # # # # $Z Sdu # # # # $Z $xrd/Salomon.01$X \ # # $Z echelle=2.0 \ # # $Z R=$xTG/PAIX.1.11 \ # # $Z $formatI # # $Z $xrd/Salomon.01$X \ # # $Z echelle=6.0 \ # # $Z R=$xTG/PAIX.1.13 \ # # $Z $formatI # # $Z $xrd/Salomon.01$X \ # # $Z echelle=20.0 \ # # $Z R=$xTG/PAIX.1.15 \ # # $Z $formatI # # # # $Z $xrd/David.01$X \ # # $Z echelle=0.06 \ # # $Z R=$xTG/PAIX.1.12 \ # # $Z $formatI # # $Z $xrd/David.01$X \ # # $Z echelle=0.20 \ # # $Z R=$xTG/PAIX.1.14 \ # # $Z $formatI # # $Z $xrd/David.01$X \ # # $Z echelle=0.70 \ # # $Z R=$xTG/PAIX.1.16 \ # # $Z $formatI # # # # $Z set _____ImageR=$xiirv/PAIX.12 # # $m4 _____include(_____xiirv/.PAIX.11.1._____U) # # $m4 _____include(_____xiirv/.PAIX.11.2._____U) # # # # :Fin_listG_PAIX_12_m: # # # # # # Visualisation du conflit israelo-palestinien... # v $xiirv/PARADOXE.11 # Generee (sur '$LACT12') par : # # # # # # :Debut_listG_PARADOXE_11: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiio/MIRE_PARADOXE \ # # $Z p=$xiP/dentscie.01 \ # # $Z R=$xTV/MIRE.0001 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiio/MIRE_PARADOXE \ # # $Z p=$xiP/dentscie.04 \ # # $Z R=$xTV/MIRE.0002 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiio/MIRE_PARADOXE \ # # $Z p=$xiP/dentscie.12 \ # # $Z R=$xTV/MIRE.0003 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiio/MIRE_PARADOXE \ # # $Z p=$xiP/cercle.22 \ # # $Z R=$xTV/MIRE.0004 \ # # $Z $formatI # # # # $Z $xci/scale$X \ # # $Z A=$xiio/CADRE.04 \ # # $Z a=`calcul $GRIS_4/$GRIS_8` \ # # $Z R=$xTV/CADRE.04 \ # # $Z $formatI # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/MIRE. \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z postfixe=%s \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xTV/CADRE.04 \ # # $Z R=$xiirv/PARADOXE.11%s \ # # $Z $formatI" # # # # :Fin_listG_PARADOXE_11: # # # # # # Image montrant une mire paradoxale utilisant les palettes : # # # # sous-image 0001 : $xiP/dentscie.01 # # sous-image 0002 : $xiP/dentscie.04 # # sous-image 0003 : $xiP/dentscie.12 # # sous-image 0004 : $xiP/cercle.22 # # # v $xiirv/PARADOXE.11$IdM # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PARADOXE_11_IdM: # # # # $Z ext TvB 0 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiio/MIRE_PARADOXE \ # # $Z p=$xiP/dentscie.01 \ # # $Z R=$xTV/MIRE.0001 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiio/MIRE_PARADOXE \ # # $Z p=$xiP/dentscie.04 \ # # $Z R=$xTV/MIRE.0002 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiio/MIRE_PARADOXE \ # # $Z p=$xiP/dentscie.12 \ # # $Z R=$xTV/MIRE.0003 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiio/MIRE_PARADOXE \ # # $Z p=$xiP/cercle.22 \ # # $Z R=$xTV/MIRE.0004 \ # # $Z $formatI # # # # $Z $xci/scale$X \ # # $Z A=$xiio/CADRE.04 \ # # $Z a=`calcul $GRIS_4/$GRIS_8` \ # # $Z R=$xTV/CADRE.04 \ # # $Z $formatI # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/MIRE. \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z postfixe=%s \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xTV/CADRE.04 \ # # $Z R=$xiirv/PARADOXE.11$IdM%s \ # # $Z $formatI" # # # # :Fin_listG_PARADOXE_11_IdM: # # # # # # Image montrant une mire paradoxale utilisant les palettes : # # # # sous-image 0001 : $xiP/dentscie.01 # # sous-image 0002 : $xiP/dentscie.04 # # sous-image 0003 : $xiP/dentscie.12 # # sous-image 0004 : $xiP/cercle.22 # # # v $xiirv/PARADOXE.12 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PARADOXE_12: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiio/MIRE_PARADOXE \ # # $Z p=$xiP/dentscie.01 \ # # $Z R=$xTV/MIRE.0001 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiio/MIRE_PARADOXE \ # # $Z p=$xiP/dentscie.04 \ # # $Z R=$xTV/MIRE.0002 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiio/MIRE_PARADOXE \ # # $Z p=$xiP/dentscie.12 \ # # $Z R=$xTV/MIRE.0003 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiio/MIRE_PARADOXE \ # # $Z p=$xiP/cercle.22 \ # # $Z R=$xTV/MIRE.0004 \ # # $Z $formatI # # # # $Z $xci/scale$X \ # # $Z A=$xiio/CADRE.04 \ # # $Z a=`calcul $GRIS_4/$GRIS_8` \ # # $Z R=$xTV/CADRE.04 \ # # $Z $formatI # # # # $Z S # # # # $Z oGProfilP $xiP/dentscie.01 $xTV/MIRE.0001 # # $Z oGProfilP $xiP/dentscie.04 $xTV/MIRE.0002 # # $Z oGProfilP $xiP/dentscie.12 $xTV/MIRE.0003 # # $Z oGProfilP $xiP/cercle.22 $xTV/MIRE.0004 # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/MIRE. \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z postfixe=%s \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xTV/CADRE.04 \ # # $Z R=$xiirv/PARADOXE.12%s \ # # $Z $formatI" # # # # :Fin_listG_PARADOXE_12: # # # # L'image '$xiirv/PARADOXE.12' donnant le profil des 4 palettes genere par 'oGprofil' de # # '$Fdivers' puis par '$xci/reduction_04$X' (avec "moyenne=VRAI"). Notons au passage que # # l'image '$xiirv/PARADOXE.12' donne dans la mire de '$xiP/cercle.22' un tres bon exemple # # des defauts induits par la compression '$JPEG' lorsqu'elle est regardee sur 'WWW'... # # # # Aux environs du 20161014141235, les deux images 'v $xiirv/PARADOXE.11' et # # 'v $xiirv/PARADOXE.12' avaient ete refaites, en particulier, avec la carte de France # # ('v $xiirv/PARADOXE.23') pour faciliter la comprehension du probleme... # v $xiirv/PARADOXE.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PARADOXE_21: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z set _____ImagesM=$xiio/MIRE_PARADOXE # # $Z set _____ImageR=$xiirv/PARADOXE.21 # # # # $m4 _____include(_____xiirv/.PARADOXE.21.1._____U) # # # # :Fin_listG_PARADOXE_21: # # # # # # Image montrant une mire paradoxale... # v $xiirv/PARADOXE.22 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PARADOXE_22: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z set _____ImagesM=$xiio/MIRE_PARADOXE # # $Z SET _____Profile=$EXIST # # $Z set _____ImageR=$xiirv/PARADOXE.22 # # # # $m4 _____include(_____xiirv/.PARADOXE.21.1._____U) # # # # :Fin_listG_PARADOXE_22: # # # # # # Image montrant une mire paradoxale avec les profils des palettes. # v $xiirv/PARADOXE.23 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PARADOXE_23: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z set _____ImagesM=$xTV/MIRE # # $Z set _____ImageR=$xiirv/PARADOXE.23 # # $Z $xrv/particule.10$X npoints=24 \ # # $Z LISTE_X=$xie/FranceT.12$COORD_X \ # # $Z LISTE_Y=$xie/FranceT.12$COORD_Y \ # # $Z LISTE_Z=0.5 \ # # $Z Vrayon=0.01 \ # # $Z ZOOM=0.9 \ # # $Z chainer=VRAI isoles=FAUX \ # # $Z ajuster_points=VRAI equidistance=VRAI \ # # $Z editer_extrema_hors=FAUX \ # # $Z Lz=1000 \ # # $Z chiffres=0 \ # # $Z R=$xTV/FRANCE \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/FRANCE \ # # $Z $formatI | \ # # $Z $xci/contours.12$X \ # # $Z x=0.5 y=0.5 \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z $formatI | \ # # $Z $xci/and$X \ # # $Z A2=$xiio/MIRE_PARADOXE \ # # $Z R=$_____ImagesM \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PARADOXE.21.1._____U) # # # # :Fin_listG_PARADOXE_23: # # # # # # Image montrant une mire paradoxale utilisant la carte de France... # v $xiirv/PARS.11 p=$xiP/ParadoxeSimpson.21.02 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PARS_11: # # # # $Z set _____ImageR=$xiirv/PARS.11 # # $Z $DELETE $_____ImageR # # $m4 _____include(_____xiirv/.PARS.11.1._____U) # # # # $Z set DiM=`calculINS pow(5,4)-1` # # # # $Z $xci/format.01$X \ # # $Z A=$_____ImageR \ # # $Z Xmax=$DiM Ymax=$DiM \ # # $Z mode=3 \ # # $Z niveau=$BLANC \ # # $Z R=$_____ImageR \ # # $Z $formatR_Sdu # # # # :Fin_listG_PARS_11: # # # # # # qui montre le paradoxe de Simpson ('v $xtc/ParadoxeSimpson.21$vv$c'). Voici les codes de # # couleur utilises : # # # # ROUGE 022 (cas paradoxal) # # VERTE 200 (cas paradoxal) # # CYAN fonce 000 001 010 100 110 011 101 # # MAGENTA fonce 222 221 212 122 112 211 121 # # CYAN clair 111 # # NOIR autres cas... # # # # # # Pour le "double paradoxe de Simpson", voir 'v $Dcourrier_ou/20130321181304' et # # 'v $xtc/ParadoxeSimpson.15$vv$c'... # XYmaxNe 647 647 ; $xci/display$X A=$xiirv/PARS.21.1_3 p=$xiP/ParadoxeSimpson.21.12 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PARS_21_1_3: # # # # $Z set _____BorneSuperieure=3 # # # # $Z set _____ImageR=$xiirv/PARS.21.1_3 # # $Z $DELETE $_____ImageR # # $m4 _____include(_____xiirv/.PARS.11.1._____U) # # # # $Z set RaPpOrT=8 # # $m4 _____include(_____xiirv/.PARS.21.1._____U) # # # # :Fin_listG_PARS_21_1_3: # # # # # # Pour le "double paradoxe de Simpson", voir 'v $Dcourrier_ou/20130321181304' et # # 'v $xtc/ParadoxeSimpson.15$vv$c'... # XYmaxNe 1023 1023 ; $xci/display$X A=$xiirv/PARS.21.1_4 p=$xiP/ParadoxeSimpson.21.12 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PARS_21_1_4: # # # # $Z set _____BorneSuperieure=4 # # # # $Z set _____ImageR=$xiirv/PARS.21.1_4 # # $Z $DELETE $_____ImageR # # $m4 _____include(_____xiirv/.PARS.11.1._____U) # # # # $Z set RaPpOrT=4 # # $m4 _____include(_____xiirv/.PARS.21.1._____U) # # # # :Fin_listG_PARS_21_1_4: # # # # # # Pour le "double paradoxe de Simpson", voir 'v $Dcourrier_ou/20130321181304' et # # 'v $xtc/ParadoxeSimpson.15$vv$c'... # XYmaxNe 2499 2499 ; $xci/display$X A=$xiirv/PARS.21.1_5 p=$xiP/ParadoxeSimpson.21.12 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PARS_21_1_5: # # # # $Z set _____BorneSuperieure=5 # # # # $Z set _____ImageR=$xiirv/PARS.21.1_5 # # $Z $DELETE $_____ImageR # # $m4 _____include(_____xiirv/.PARS.11.1._____U) # # # # $Z set RaPpOrT=4 # # $m4 _____include(_____xiirv/.PARS.21.1._____U) # # # # :Fin_listG_PARS_21_1_5: # # # # # # Pour le "double paradoxe de Simpson", voir 'v $Dcourrier_ou/20130321181304' et # # 'v $xtc/ParadoxeSimpson.15$vv$c'... # XYmaxNe 1279 1279 ; $xci/display$X A=$xiirv/PARS.31.1_4 vraies_couleurs=VRAI # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PARS_31_1_4: # # # # $Z setenv xTV $xTG # # # # $Z set _____BorneSuperieure=4 # # # # $Z set _____ImageR=$xiirv/PARS.31.1_4 # # $Z $DELETE $_____ImageR # # $m4 _____include(_____xiirv/.PARS.11.1._____U) # # # # $Z set RaPpOrT=5 # # $m4 _____include(_____xiirv/.PARS.21.1._____U) # # $m4 _____include(_____xiirv/.PARS.31.1._____U) # # # # :Fin_listG_PARS_31_1_4: # # # # # # Pour le "double paradoxe de Simpson", voir 'v $Dcourrier_ou/20130321181304' et # # 'v $xtc/ParadoxeSimpson.15$vv$c'... # XYmaxNe 3124 3124 ; $xci/display$X A=$xiirv/PARS.31.1_5 vraies_couleurs=VRAI # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PARS_31_1_5: # # # # $Z setenv xTV $xTG # # # # $Z set _____BorneSuperieure=5 # # # # $Z set _____ImageR=$xiirv/PARS.31.1_5 # # $Z $DELETE $_____ImageR # # $m4 _____include(_____xiirv/.PARS.11.1._____U) # # # # $Z set RaPpOrT=5 # # $m4 _____include(_____xiirv/.PARS.21.1._____U) # # $m4 _____include(_____xiirv/.PARS.31.1._____U) # # # # :Fin_listG_PARS_31_1_5: # # # # # # Pour le "double paradoxe de Simpson", voir 'v $Dcourrier_ou/20130321181304' et # # 'v $xtc/ParadoxeSimpson.15$vv$c'... # v $xiirv/PART.11 # Generee par : # # # # Std # # # # $xci/valeurs_alea$X premiere=1 derniere=64 \ # # graine=314 inf=0 sup=1 \ # # entiers=FAUX \ # # > $xT/COORDONNEES$COORD_X # # $xci/valeurs_alea$X premiere=1 derniere=64 \ # # graine=271 inf=0 sup=1 \ # # entiers=FAUX \ # # > $xT/COORDONNEES$COORD_Y # # $xci/valeurs_alea$X premiere=1 derniere=64 \ # # graine=1789 inf=0 sup=1 \ # # entiers=FAUX \ # # > $xT/COORDONNEES$COORD_Z # # # # $xci/valeurs_alea$X premiere=1 derniere=32 \ # # graine=1789 inf=0.01 sup=0.03 \ # # entiers=FAUX \ # # > $xT/RAYON.1 # # $PAST $xT/RAYON.1 $xT/RAYON.1 | # # $R "$K_TAB" "$K_NL" \ # # > $xT/RAYON.2 # # # # @ NOIRp = $NOIR + 1 # # # # $xci/valeurs_alea$X premiere=1 derniere=64 \ # # graine=314 inf=$NOIRp sup=$BLANC \ # # entiers=VRAI \ # # > $xT/COULEUR$ROUGE # # $xci/valeurs_alea$X premiere=1 derniere=64 \ # # graine=271 inf=$NOIRp sup=$BLANC \ # # entiers=VRAI \ # # > $xT/COULEUR$VERTE # # $xci/valeurs_alea$X premiere=1 derniere=64 \ # # graine=1789 inf=$NOIRp sup=$BLANC \ # # entiers=VRAI \ # # > $xT/COULEUR$BLEUE # # # # $xrv/particule.10$X np=1 iterations=64 \ # # LISTE_X=$xT/COORDONNEES$COORD_X \ # # LISTE_Y=$xT/COORDONNEES$COORD_Y \ # # LISTE_Z=$xT/COORDONNEES$COORD_Z \ # # r=0.1 \ # # LISTE_RAYON=$xT/RAYON.2 \ # # LISTE_ROUGE=$xT/COULEUR$ROUGE \ # # LISTE_VERTE=$xT/COULEUR$VERTE \ # # LISTE_BLEUE=$xT/COULEUR$BLEUE \ # # Lz=1000 ZOOM=0.6 \ # # isoles=FAUX points=32 \ # # RVB=VRAI \ # # R=$xT/PARTICULE.1. \ # # $formatI # # # # $xci/complement$X A=$xT/PARTICULE.1.0001.? \ # # R=$xT/PARTICULE.2.? \ # # $formatI # # $xci/interpole.02$X A1=$xT/PARTICULE.2.? \ # # A2=$xT/PARTICULE.1.0001.? \ # # P=$xiio/GAUSS.8110 \ # # R=$xiirv/PART.11.? \ # # $formatI # # # v $xiirv/PART.21 v $xiirv/PART.22 # Generee par : # # # # Pal # # # # set Npart=128 # # @ NpartS2 = $Npart / 2 # # # # $xci/valeurs_alea$X premiere=1 derniere=$Npart \ # # graine=314 inf=0 sup=1 \ # # entiers=FAUX \ # # > $xT/COORDONNEES$COORD_X # # $xci/valeurs_alea$X premiere=1 derniere=$Npart \ # # graine=271 inf=0 sup=1 \ # # entiers=FAUX \ # # > $xT/COORDONNEES$COORD_Y # # $xci/valeurs_alea$X premiere=1 derniere=$Npart \ # # graine=1789 inf=0 sup=1 \ # # entiers=FAUX \ # # > $xT/COORDONNEES$COORD_Z # # # # $xci/valeurs_alea$X premiere=1 derniere=$NpartS2 \ # # graine=1789 inf=0.02 sup=0.04 \ # # entiers=FAUX \ # # > $xT/RAYON.1 # # $PAST $xT/RAYON.1 $xT/RAYON.1 | # # $R "$K_TAB" "$K_NL" \ # # > $xT/RAYON.2 # # # # @ NOIRp = $NOIR + 1 # # # # $xci/valeurs_alea$X premiere=1 derniere=$Npart \ # # graine=314 inf=$NOIRp sup=$BLANC \ # # entiers=VRAI \ # # > $xT/COULEUR$ROUGE # # $xci/valeurs_alea$X premiere=1 derniere=$Npart \ # # graine=271 inf=$NOIRp sup=$BLANC \ # # entiers=VRAI \ # # > $xT/COULEUR$VERTE # # $xci/valeurs_alea$X premiere=1 derniere=$Npart \ # # graine=1789 inf=$NOIRp sup=$BLANC \ # # entiers=VRAI \ # # > $xT/COULEUR$BLEUE # # # # $xrv/particule.10$X np=1 iterations=$Npart \ # # LISTE_X=$xT/COORDONNEES$COORD_X \ # # LISTE_Y=$xT/COORDONNEES$COORD_Y \ # # LISTE_Z=$xT/COORDONNEES$COORD_Z \ # # r=0.1 \ # # LISTE_RAYON=$xT/RAYON.2 \ # # LISTE_ROUGE=$xT/COULEUR$ROUGE \ # # LISTE_VERTE=$xT/COULEUR$VERTE \ # # LISTE_BLEUE=$xT/COULEUR$BLEUE \ # # Lz=1000 ZOOM=1.0 \ # # isoles=FAUX points=32 \ # # RVB=VRAI \ # # R=$xT/PART.1. \ # # $formatI # # # # $xci/acces$X A=$xT/PART.1.0001.\!* \ # # R=$xiirv/PART.21.\!* \ # # $formatI # # # # $xci/complement$X A=$xiirv/PART.21.\!* \ # # R=$xT/PART.2.\!* \ # # $formatI | # # $xci/gauss$X \ # # $formatI | # # $xci/interpole.02$X A1=$xT/PART.2.\!* \ # # A2=$xiirv/PART.21.\!* \ # # R=$xiirv/PART.22.\!* \ # # $formatI # # # v $xiirv/PART.31 v $xiirv/PART.32 # Generee par : # # # # $Z Pal # # # # $Z set Npart=128 # # $Z @ NpartS2 = $Npart / 2 # # # # $Z $xci/valeurs_alea$X premiere=1 derniere=$NpartS2 \ # # $Z graine=314 inf=0 sup=1 \ # # $Z entiers=FAUX \ # # $Z | $AW ' { print $1 "\n" $1 } ' \ # # $Z > $xT/COORDONNEES$COORD_X # # $Z decaleC $xT/COORDONNEES$COORD_X 1 # # $Z $xci/valeurs_alea$X premiere=1 derniere=$NpartS2 \ # # $Z graine=271 inf=0 sup=1 \ # # $Z entiers=FAUX \ # # $Z | $AW ' { print $1 "\n" $1 } ' \ # # $Z > $xT/COORDONNEES$COORD_Y # # $Z decaleC $xT/COORDONNEES$COORD_Y 1 # # $Z $xci/valeurs_alea$X premiere=1 derniere=$NpartS2 \ # # $Z graine=1789 inf=0 sup=1 \ # # $Z entiers=FAUX \ # # $Z | $AW ' { print $1 "\n" $1 } ' \ # # $Z > $xT/COORDONNEES$COORD_Z # # $Z decaleC $xT/COORDONNEES$COORD_Z 1 # # # # $Z $xci/valeurs_alea$X premiere=1 derniere=$NpartS2 \ # # $Z graine=1789 inf=0.02 sup=0.04 \ # # $Z entiers=FAUX \ # # $Z | $AW ' { print $1 "\n" $1 } ' \ # # $Z > $xT/RAYON.1 # # $Z decaleC $xT/RAYON.1 1 # # # # $Z @ NOIRp = $NOIR + 1 # # # # # # $Z set Graine=314 # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/valeurs_alea$X \ # # $X premiere=1 derniere=$NpartS2 \ # # $X graine=$Graine \ # # $X inf=$NOIRp sup=$BLANC \ # # $X entiers=VRAI | \ # # $X $AW \ # # $X '"'"' { print $1 "\n" $1 } '"'"' \ # # $X > $xT/COULEUR%s ; \ # # $X @ Graine = $Graine + 271' # # $X $xci/genere$X RVB=VRAI \ # # $X C='decaleC $xT/COULEUR%s 1' # # # # # # $Z $xrv/particule.10$X np=1 iterations=$Npart \ # # $Z LISTE_X=$xT/COORDONNEES$COORD_X \ # # $Z LISTE_Y=$xT/COORDONNEES$COORD_Y \ # # $Z LISTE_Z=$xT/COORDONNEES$COORD_Z \ # # $Z r=0.1 \ # # $Z LISTE_RAYON=$xT/RAYON.1 \ # # $Z LISTE_ROUGE=$xT/COULEUR$ROUGE \ # # $Z LISTE_VERTE=$xT/COULEUR$VERTE \ # # $Z LISTE_BLEUE=$xT/COULEUR$BLEUE \ # # $Z Lz=1000 ZOOM=1.0 \ # # $Z isoles=FAUX points=32 \ # # $Z RVB=VRAI \ # # $Z R=$xT/PART.1. \ # # $Z $formatI # # # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/acces$X \ # # $X A=$xT/PART.1.0001%s \ # # $X R=$xiirv/PART.31%s \ # # $X $formatI' # # # # # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/complement$X \ # # $X A=$xiirv/PART.31%s \ # # $X R=$xT/PART.2%s \ # # $X $formatI ; \ # # $X $xci/gauss$X \ # # $X $formatI | \ # # $X $xci/interpole.02$X \ # # $X A1=$xT/PART.2%s \ # # $X A2=$xiirv/PART.31%s \ # # $X R=$xiirv/PART.32%s \ # # $X $formatI' # # # # # # $Z $DELETE $xT/COORDONNEES$COORD_X # # $Z $DELETE $xT/COORDONNEES$COORD_Y # # $Z $DELETE $xT/COORDONNEES$COORD_Z # # $Z $DELETE $xT/RAYON.1 # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$DELETE $xT/COULEUR%s' # # # # # # ATTENTION, le 19961017095657, j'ai introduit '$xci/genere$X' ci-dessus ; cela fait que # # les images '$xiirv/PART.31' et '$xiirv/PART.32' generees la veille ont ete modifiees a # # a cause de la graine du generateur aleatoire. En effet, les fichiers '$xT/COULEUR$ROUGE', # # '$xT/COULEUR$VERTE' et '$xT/COULEUR$BLEUE' utilisaient alors les graines ("graine=") '314', # # '271' et '1789' respectivement. L'utilisation de '$xci/genere$X' pour generer ces fichiers # # n'a pas permis de maintenir ces graines ; seules des graines calculees iterativement sont # # apparemment possibles. Cela fait que les images : # # # # xivPdf 3 2 / 003191_003191 # # xivPdf 3 2 / 003192_003192 # # # # ne correspondent plus a des images de '$xiirv' ; les remplacantes ont ete enregistrees a # # a la suite... # v $xiirv/PART.41 v $xiirv/PART.42 # Generee (sur '$LACT29') par : # # # # # # $Z Pal # # # # $Z set _____Cubique="VRAI LISTE_dX=1 LISTE_dY=1 LISTE_dZ=1" # # $Z set _____images1=$xiirv/PART.41 # # $Z set _____images2=$xiirv/PART.42 # # $m4 _____include(_____xiirv/.PART.4.11._____U) # # $m4 _____include(_____xiirv/.PART.4.14._____U) # # $m4 _____include(_____xiirv/.PART.4.15._____U) # # $m4 _____include(_____xiirv/.PART.4.13._____U) # # $m4 _____include(_____xiirv/.PART.41._____U) # # $m4 _____include(_____xiirv/.PART.42._____U) # # $m4 _____include(_____xiirv/.PART.43._____U) # # $m4 _____include(_____xiirv/.PART.4.12._____U) # # # v $xiirv/PART.41.0.0 v $xiirv/PART.41.0.1 v $xiirv/PART.41.1.1 # Ces images sont obtenues par accumulation ('$xci/accumule.01$X') de la sequence : # # # # xivPdf 6 1 / 003553_003680 # # # # avec les parametres : # # # # maximum=FAUX minimum=VRAI attenuation=0 # # maximum=FAUX minimum=VRAI attenuation=1 # # maximum=VRAI minimum=VRAI attenuation=1 # # # # respectivement (FAUX=0, VRAI=1 suivant les conventions de programmation...). # v $xiirv/PART.51 v $xiirv/PART.52 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_PART_5n: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Cubique="VRAI LISTE_dX=2 LISTE_dY=2 LISTE_dZ=2" # # $Z set _____Chainage="ajuster_points=VRAI nombreR=8 points=128" # # $Z set _____images1=$xiirv/PART.51 # # $Z set _____images2=$xiirv/PART.52 # # $m4 _____include(_____xiirv/.PART.4.11._____U) # # $m4 _____include(_____xiirv/.PART.4.14._____U) # # $m4 _____include(_____xiirv/.PART.4.15._____U) # # $m4 _____include(_____xiirv/.PART.4.13._____U) # # $m4 _____include(_____xiirv/.PART.41._____U) # # $m4 _____include(_____xiirv/.PART.42._____U) # # $m4 _____include(_____xiirv/.PART.43._____U) # # $m4 _____include(_____xiirv/.PART.4.12._____U) # # # # :Fin_listG_PART_5n: # # # v $xiirv/PART.61 v $xiirv/PART.62 # Generee (sur '$LACT29') par : # # # # # # $Z Pal # # # # $Z set _____Cubique="VRAI" # # $Z set _____Cubique="$_____Cubique ""LISTE_dX=$xT/DERIVEES$COORD_X" # # $Z set _____Cubique="$_____Cubique ""LISTE_dY=$xT/DERIVEES$COORD_Y" # # $Z set _____Cubique="$_____Cubique ""LISTE_dZ=$xT/DERIVEES$COORD_Z" # # $Z set _____Chainage="ajuster_points=VRAI nombreR=8 points=128" # # $Z set _____images1=$xiirv/PART.61 # # $Z set _____images2=$xiirv/PART.62 # # $m4 _____include(_____xiirv/.PART.4.11._____U) # # $m4 _____include(_____xiirv/.PART.4.14._____U) # # $m4 _____include(_____xiirv/.PART.4.15._____U) # # $m4 _____include(_____xiirv/.PART.6.11._____U) # # $m4 _____include(_____xiirv/.PART.4.13._____U) # # $m4 _____include(_____xiirv/.PART.41._____U) # # $m4 _____include(_____xiirv/.PART.42._____U) # # $m4 _____include(_____xiirv/.PART.43._____U) # # $m4 _____include(_____xiirv/.PART.4.12._____U) # # $m4 _____include(_____xiirv/.PART.6.12._____U) # # # v $xiirv/PART.71 # Generee (sur '$LACT29') par : # # # # $Z set _____images=$xiirv/PART.71 # # $m4 _____include(_____xiirv/.PART.71._____U) # # # v $xiirv/PART.81 v $xiirv/PART.82 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_PART_8: # # # # $Z Pal # # # # $Z set _____Cubique="VRAI" # # $Z set _____Cubique="$_____Cubique ""LISTE_dX=$xT/DERIVEES$COORD_X" # # $Z set _____Cubique="$_____Cubique ""LISTE_dY=$xT/DERIVEES$COORD_Y" # # $Z set _____Cubique="$_____Cubique ""LISTE_dZ=$xT/DERIVEES$COORD_Z" # # $Z set _____Chainage="ajuster_points=VRAI nombreR=8 points=128" # # $Z set _____Zoom=0.5 # # $Z set _____images1=$xiirv/PART.81 # # $Z set _____images2=$xiirv/PART.82 # # $m4 _____include(_____xiirv/.PART.4.11._____U) # # $m4 _____include(_____xiirv/.PART.4.84._____U) # # $m4 _____include(_____xiirv/.PART.4.15._____U) # # $m4 _____include(_____xiirv/.PART.6.11._____U) # # $m4 _____include(_____xiirv/.PART.4.13._____U) # # $m4 _____include(_____xiirv/.PART.41._____U) # # $m4 _____include(_____xiirv/.PART.42._____U) # # $m4 _____include(_____xiirv/.PART.43._____U) # # $m4 _____include(_____xiirv/.PART.4.12._____U) # # $m4 _____include(_____xiirv/.PART.6.12._____U) # # # # :Fin_listG_PART_8: # # # # # # On notera que '$xiirv/PART.8?' est analogue a '$xiirv/PART.6?', la difference etant qu'au # # lieu de generer une suite de points aleatoires via '$xci/valeurs_alea$X', la suite de # # points est generee via '$xci/valeurs_chao$X' et donc en utilisant la dynamique de Verhulst. # v $xiirv/PART.91 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_PART_91: # # # # $Z Pal # # # # $Z set _____Cubique="VRAI" # # $Z set _____Cubique="$_____Cubique ""LISTE_dX=$xT/DERIVEES$COORD_X" # # $Z set _____Cubique="$_____Cubique ""LISTE_dY=$xT/DERIVEES$COORD_Y" # # $Z set _____Cubique="$_____Cubique ""LISTE_dZ=$xT/DERIVEES$COORD_Z" # # $Z set _____Chainage="ajuster_points=VRAI nombreR=8 points=128" # # $Z set _____RayonI=0.006 # # $Z set _____RayonS=0.025 # # $Z set _____Homothetie="AXYZ=1.4" # # $Z set _____Zoom=0.8 # # $Z set _____images1=$xiirv/PART.91 # # $m4 _____include(_____xiirv/.PART.4.11._____U) # # $m4 _____include(_____xiirv/.PART.4.94._____U) # # $m4 _____include(_____xiirv/.PART.4.15._____U) # # $m4 _____include(_____xiirv/.PART.6.11._____U) # # $m4 _____include(_____xiirv/.PART.4.13._____U) # # $m4 _____include(_____xiirv/.PART.41._____U) # # $m4 _____include(_____xiirv/.PART.43._____U) # # $m4 _____include(_____xiirv/.PART.4.12._____U) # # $m4 _____include(_____xiirv/.PART.6.12._____U) # # # # :Fin_listG_PART_91: # # # # # # On notera que '$xiirv/PART.9?' est analogue a '$xiirv/PART.8?', la difference etant qu'au # # lieu d'utiliser trois valeurs differentes du taux de croissance (2.98, 2.99 et 3.00), # # c'est le meme taux de croissance (3.00) pour la dynamique de Verhulst, mais avec trois # # formulations differentes... # v $xiirv/PART.A1 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_PART_A1: # # # # $Z set _____imagesR=$xiirv/PART.A1 # # $m4 _____include(_____xiirv/.PART.A1.1._____U) # # # # :Fin_listG_PART_A1: # # # v $xiirv/PART.B1 v $xiirv/PART.B2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PART_Bn: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Zoom=0.70 # # # # $Z set _____Cubique="VRAI LISTE_dX=2 LISTE_dY=2 LISTE_dZ=2" # # $Z set _____Chainage="ajuster_points=VRAI nombreR=8 points=128" # # $Z set _____images1=$xiirv/PART.B1 # # $Z set _____images2=$xiirv/PART.B2 # # $m4 _____include(_____xiirv/.PART.4.11._____U) # # $m4 _____include(_____xiirv/.PART.4.14._____U) # # $m4 _____include(_____xiirv/.PART.4.15._____U) # # $m4 _____include(_____xiirv/.PART.4.13._____U) # # $m4 _____include(_____xiirv/.PART.41._____U) # # $m4 _____include(_____xiirv/.PART.42._____U) # # $m4 _____include(_____xiirv/.PART.43._____U) # # $m4 _____include(_____xiirv/.PART.4.12._____U) # # # # :Fin_listG_PART_Bn: # # # v $xiirv/PBIT.11 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PBIT_11: # # # # $Z Std # # # # $Z $xci/PermuteBits.01$X \ # # $Z A=$xiio/MIRE \ # # $Z iterations=4 \ # # $Z $formatI | \ # # $Z $xci/transpose$X \ # # $Z R=$xiirv/PBIT.11 \ # # $Z $formatI # # # # :Fin_listG_PBIT_11: # # # v $xiirv/PBIT.11.1 p=$xiP/dentscie.02 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PBIT_11_1: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z $xci/transpose$X \ # # $Z A=$xiirv/PBIT.11 \ # # $Z $formatI | \ # # $Z $xci/eor$X \ # # $Z A1=$xiirv/PBIT.11 \ # # $Z R=$xTV/PBIT.11.2 \ # # $Z $formatI # # # # $Z $xci/Sx$X \ # # $Z A=$xTV/PBIT.11.2 \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/PBIT.11.3 \ # # $Z $formatI # # # # $Z $xci/eor$X \ # # $Z A1=$xTV/PBIT.11.2 \ # # $Z A2=$xTV/PBIT.11.3 \ # # $Z R=$xTV/PBIT.11.4 \ # # $Z $formatI # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/PBIT.11.4 \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xTV/PBIT.11.5 \ # # $Z $formatR_Sdu # # # # $Z Sdu # # # # $Z $xci/convol.01$X \ # # $Z A=$xTV/PBIT.11.5 \ # # $Z points=25 \ # # $Z R=$xiirv/PBIT.11.1 \ # # $Z $formatI # # # # :Fin_listG_PBIT_11_1: # # # v $xiirv/PBIT.21 p=$xiP/dentscie.01 v $xiirv/PBIT.21 p=$xiP/dentscie.02 v $xiirv/PBIT.21 p=$xiP/vert_orange # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PBIT_21: # # # # $Z Std # # # # $Z $xci/transpose$X \ # # $Z A=$xiio/MIRE \ # # $Z R=$xTV/PBIT.11 \ # # $Z $formatI # # $Z $xci/minmax$X \ # # $Z A1=$xiio/MIRE \ # # $Z A2=$xTV/PBIT.11 \ # # $Z R=$xTV/PBIT.12 \ # # $Z $formatI # # # # $Z ext Sdu # # # # $Z $xci/neutre$X \ # # $Z A=$xTV/PBIT.12 \ # # $Z R=$xTV/PBIT.15 \ # # $Z $formatI # # # # $Z Sdu # # # # $Z $xci/PermuteBits.01$X \ # # $Z A=$xTV/PBIT.15 \ # # $Z iterations=16 \ # # $Z R=$xTV/PBIT.13 \ # # $Z $formatI # # $Z $xci/gauss$X \ # # $Z R=$xTV/PBIT.16 \ # # $Z $formatI # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/PBIT.13 \ # # $Z N=$xTV/PBIT.16 \ # # $Z seuil=240 \ # # $Z R=$xTV/PBIT.14 \ # # $Z $formatI # # $Z $xci/tapisserie$X \ # # $Z A=$xTV/PBIT.14 \ # # $Z BD_1_pps2=VRAI \ # # $Z BD_Ix=FAUX \ # # $Z BD_Ix=VRAI \ # # $Z BD_Iy=FAUX \ # # $Z BG_Ix=FAUX \ # # $Z HD_Ix=VRAI \ # # $Z HD_Iy=FAUX \ # # $Z HG_1_mps2=VRAI \ # # $Z R=$xiirv/PBIT.21 \ # # $Z $formatI # # # # :Fin_listG_PBIT_21: # # # v $xiirv/PEAN.12 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_12: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NDecimales=3 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.12 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.11._____U) # # # # :Fin_listG_PEAN_12: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # avec 3 decimales pour 'T' (T E [0,0.984375]) et dans son cube. # v $xiirv/PEAN.13 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_13: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NDecimales=6 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.13 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.11._____U) # # # # :Fin_listG_PEAN_13: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # avec 6 decimales pour 'T' (T E [0,0.999755859375]) et dans son cube. # v $xiirv/PEAN.14 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_14: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NDecimales=9 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Rayon=(0.003) # # $Z set _____Grossissement=1.5 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____NAuCarre=FAUX # # $Z set _____ImageR=$xiirv/PEAN.14 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # # # $m4 _____include(_____xiirv/.PEAN.11._____U) # # # # :Fin_listG_PEAN_14: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # avec 9 decimales pour 'T' (T E [0,0.99999618530273]) et dans son cube. # v $xiirv/PEAN.22 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_22: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NDecimales=2 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.25 # # $Z set _____ImageR=$xiirv/PEAN.22 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.21._____U) # # # # :Fin_listG_PEAN_22: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec 2 decimales # # pour 'T' (T E [0,0.88888888888889]) et dans son carre. # v $xiirv/PEAN.24 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_24: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NDecimales=4 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.25 # # $Z set _____ImageR=$xiirv/PEAN.24 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.21._____U) # # # # :Fin_listG_PEAN_24: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec 4 decimales # # pour 'T' (T E [0,0.98765432098765]) et dans son carre. # v $xiirv/PEAN.26 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_26: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NDecimales=6 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.25 # # $Z set _____ImageR=$xiirv/PEAN.26 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.21._____U) # # # # :Fin_listG_PEAN_26: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec 6 decimales # # pour 'T' (T E [0,0.99862825788752]) et dans son carre. # v $xiirv/PEAN.28 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_28: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NDecimales=8 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Rayon=(0.003) # # $Z set _____Grossissement=1.5 # # $Z set _____Zoom=1.25 # # $Z set _____ImageR=$xiirv/PEAN.28 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.21._____U) # # # # :Fin_listG_PEAN_28: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec 8 decimales # # pour 'T' (T E [0,0.99984758420972]) et dans son carre. # v $xiirv/PEAN.31 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_31: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=1 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.25 # # $Z set _____ImageR=$xiirv/PEAN.31 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # :Fin_listG_PEAN_31: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec 1 iteration # # pour 'T' (T E [0,0.999]) et dans son carre, basee sur une parabole. # v $xiirv/PEAN.32 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_32: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=2 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.25 # # $Z set _____ImageR=$xiirv/PEAN.32 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # :Fin_listG_PEAN_32: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec 2 iterations # # pour 'T' (T E [0,0.99999999999995]) et dans son carre, basee sur une parabole. # v $xiirv/PEAN.33 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_33: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=3 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.25 # # $Z set _____ImageR=$xiirv/PEAN.33 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # :Fin_listG_PEAN_33: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec 3 iterations # # pour 'T' (T E [0,0.99999999999992]) et dans son carre, basee sur une parabole. # v $xiirv/PEAN.34 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_34: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=4 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.25 # # $Z set _____ImageR=$xiirv/PEAN.34 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # :Fin_listG_PEAN_34: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec 4 iterations # # pour 'T' (T E [0,0.99987500000013]) et dans son carre, basee sur une parabole. # v $xiirv/PEAN.35 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_35: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.25 # # $Z set _____ImageR=$xiirv/PEAN.35 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # :Fin_listG_PEAN_35: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec 5 iterations # # pour 'T' (T E [0,0.9999687500005]) et dans son carre, basee sur une parabole. # v $xiirv/PEAN.35.1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_35_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____NiveauFond=$GRIS_0 # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Rayon=0.005 # # $Z set _____NIteration=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.25 # # $Z set _____ImageR=$xTV/PEAN.35 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z set _____Erosion=9 # # $Z set _____Dilatation=81 # # $Z set _____Diagonale=VRAI # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____PaletteC=$xiP/Mondrian.03 # # $Z set _____AttenuationA=1 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z R=$xTV/PEAN.35 \ # # $Z $formatI # # # # $Z set _____ImageR=$xiirv/PEAN.35.1 # # # # $Z execRVB "$xci/cache$X \ # # $Z A=$xTV/CARREAUX%s \ # # $Z M=$xTV/PEAN.35 \ # # $Z anti_aliasing=FAUX \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=9 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_PEAN_35_1: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec 5 iterations # # pour 'T' (T E [0,0.9999687500005]) et dans son carre, basee sur une parabole, le tout # # colorie "a la Mondrian"... # v $xiirv/PEAN.36 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_36: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=6 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Rayon=(0.002) # # $Z set _____Zoom=1.25 # # $Z set _____ImageR=$xiirv/PEAN.36 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # :Fin_listG_PEAN_36: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec 6 iterations # # pour 'T' (T E [0,0.99999218750193]) et dans son carre, basee sur une parabole. # v $xiirv/PEAN.36.1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_36_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____NiveauFond=$GRIS_0 # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Rayon=0.0025 # # $Z set _____NIteration=6 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.25 # # $Z set _____ImageR=$xTV/PEAN.36 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z set _____Erosion=9 # # $Z set _____Dilatation=81 # # $Z set _____Diagonale=VRAI # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____PaletteC=$xiP/Mondrian.03 # # $Z set _____AttenuationA=1 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z R=$xTV/PEAN.36 \ # # $Z $formatI # # # # $Z set _____ImageR=$xiirv/PEAN.36.1 # # # # $Z execRVB "$xci/cache$X \ # # $Z A=$xTV/CARREAUX%s \ # # $Z M=$xTV/PEAN.36 \ # # $Z anti_aliasing=FAUX \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=9 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_PEAN_36_1: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec 6 iterations # # pour 'T' (T E [0,0.99999218750193]) et dans son carre, basee sur une parabole, le tout # # colorie "a la Mondrian"... # v $xiirv/PEAN.41 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_41: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=1 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/dentscie.C4" # # $Z set _____Arguments="$_____Arguments"" f1x_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=20" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/dentscie.A2" # # $Z set _____Arguments="$_____Arguments"" f1y_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=20" # # # # On notera le 20220429173306 que je suis passe de 2000 a 20 pour le nombre de passes de # # lissage car, en effet, avec de grandes valeurs les extrema du noeud ne se trouvaient # # plus en {0,0} et {0,1} respectivement... # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.25 # # $Z set _____ImageR=$xiirv/PEAN.41 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # :Fin_listG_PEAN_41: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec 1 iteration # # pour 'T' (T E [0,0.999]) et dans son carre, basee sur une courbe arbitraire # # a 2 auto-intersections. # v $xiirv/PEAN.42 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_42: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=2 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/dentscie.C4" # # $Z set _____Arguments="$_____Arguments"" f1x_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=20" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/dentscie.A2" # # $Z set _____Arguments="$_____Arguments"" f1y_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=20" # # # # On notera le 20220429173306 que je suis passe de 2000 a 20 pour le nombre de passes de # # lissage car, en effet, avec de grandes valeurs les extrema du noeud ne se trouvaient # # plus en {0,0} et {0,1} respectivement... # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.25 # # $Z set _____ImageR=$xiirv/PEAN.42 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # :Fin_listG_PEAN_42: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec 2 iterations # # pour 'T' (T E [0,0.99999999999995]) et dans son carre, basee sur une courbe arbitraire # # a 2 auto-intersections ('v $xiirv/PEAN.41'). # v $xiirv/PEAN.43 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_43: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=3 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/dentscie.C4" # # $Z set _____Arguments="$_____Arguments"" f1x_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=20" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/dentscie.A2" # # $Z set _____Arguments="$_____Arguments"" f1y_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=20" # # # # On notera le 20220429173306 que je suis passe de 2000 a 20 pour le nombre de passes de # # lissage car, en effet, avec de grandes valeurs les extrema du noeud ne se trouvaient # # plus en {0,0} et {0,1} respectivement... # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.25 # # $Z set _____ImageR=$xiirv/PEAN.43 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # :Fin_listG_PEAN_43: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec 3 iterations # # pour 'T' (T E [0,0.99999999999992]) et dans son carre, basee sur une courbe arbitraire # # a 2 auto-intersections ('v $xiirv/PEAN.41'). # v $xiirv/PEAN.44 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_44: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=4 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/dentscie.C4" # # $Z set _____Arguments="$_____Arguments"" f1x_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=20" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/dentscie.A2" # # $Z set _____Arguments="$_____Arguments"" f1y_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=20" # # # # On notera le 20220429173306 que je suis passe de 2000 a 20 pour le nombre de passes de # # lissage car, en effet, avec de grandes valeurs les extrema du noeud ne se trouvaient # # plus en {0,0} et {0,1} respectivement... # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.25 # # $Z set _____ImageR=$xiirv/PEAN.44 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # :Fin_listG_PEAN_44: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec 4 iterations # # pour 'T' (T E [0,0.99987500000013]) et dans son carre, basee sur une courbe arbitraire # # a 2 auto-intersections ('v $xiirv/PEAN.41'). # v $xiirv/PEAN.45 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_45: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=5 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/dentscie.C4" # # $Z set _____Arguments="$_____Arguments"" f1x_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=20" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/dentscie.A2" # # $Z set _____Arguments="$_____Arguments"" f1y_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=20" # # # # On notera le 20220429173306 que je suis passe de 2000 a 20 pour le nombre de passes de # # lissage car, en effet, avec de grandes valeurs les extrema du noeud ne se trouvaient # # plus en {0,0} et {0,1} respectivement... # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.25 # # $Z set _____ImageR=$xiirv/PEAN.45 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # :Fin_listG_PEAN_45: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec 5 iterations # # pour 'T' (T E [0,0.99996875000053]) et dans son carre, basee sur une courbe arbitraire # # a 2 auto-intersections ('v $xiirv/PEAN.41'). # v $xiirv/PEAN.46 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_46: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=6 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/dentscie.C4" # # $Z set _____Arguments="$_____Arguments"" f1x_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=20" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/dentscie.A2" # # $Z set _____Arguments="$_____Arguments"" f1y_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=20" # # # # On notera le 20220429173306 que je suis passe de 2000 a 20 pour le nombre de passes de # # lissage car, en effet, avec de grandes valeurs les extrema du noeud ne se trouvaient # # plus en {0,0} et {0,1} respectivement... # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Rayon=(0.002) # # $Z set _____Zoom=1.25 # # $Z set _____ImageR=$xiirv/PEAN.46 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # :Fin_listG_PEAN_46: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec 6 iterations # # pour 'T' (T E [0,0.99999218750193]) et dans son carre, basee sur une courbe arbitraire # # a 2 auto-intersections ('v $xiirv/PEAN.41'). # v $xiirv/PEAN.51 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_51: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=1 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" pas_01=0.0002" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/gris.01" # # $Z set _____Arguments="$_____Arguments"" f1x_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=20" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/dentscie.E3" # # $Z set _____Arguments="$_____Arguments"" f1y_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=20" # # # # On notera le 20220429173306 que je suis passe de 2000 a 20 pour le nombre de passes de # # lissage car, en effet, avec de grandes valeurs les extrema du noeud ne se trouvaient # # plus en {0,0} et {0,1} respectivement... # # # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/orange.32 # # $Z set _____Rayon=(0.006) # # $Z set _____Zoom=1.25 # # $Z set _____ImageR=$xiirv/PEAN.51 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # :Fin_listG_PEAN_51: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec 1 iteration # # pour 'T' (T E [0,0.99999999999992]) et dans son carre, basee sur une courbe arbitraire # # de nature pedagogique destinee a illustrer le principe des transformations. # v $xiirv/PEAN.52 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_52: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z SET _____DefinitionSCarres=$EXIST # # $Z set _____NIteration=2 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" pas_02=0.0001" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/gris.01" # # $Z set _____Arguments="$_____Arguments"" f1x_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=20" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/dentscie.E3" # # $Z set _____Arguments="$_____Arguments"" f1y_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=20" # # # # On notera le 20220429173306 que je suis passe de 2000 a 20 pour le nombre de passes de # # lissage car, en effet, avec de grandes valeurs les extrema du noeud ne se trouvaient # # plus en {0,0} et {0,1} respectivement... # # # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/bande4.12 # # $Z set _____Rayon=(0.006) # # $Z set _____Zoom=1.25 # # $Z set _____ImageR=$xiirv/PEAN.52 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z set DeCaLaGeP=4 # # $Z set _____Palette=$xiP/bande4.22 # # # # $Z set TaIlLe=4 # # # # $Z set Image1=1 # # $Z set ImageN=4 # # # # $Z set ListeI=`$xci/nombres$X A="$K_VIDE" p=$Image1 d=$ImageN` # # $Z set ListeN=("1" "4" "2" "3") # # $Z set ListeP=($GRIS_2 $GRIS_8 $GRIS_4 $GRIS_6) # # # # $Z set index=$Image1 # # # # $Z while ($index <= $ImageN) # # $Z set MeSsAgE="Transformation ""$ListeN[$index]" # # $Z set NiVeAu=`calculINS $ListeP[$index]-$DeCaLaGeP` # # # # $Z $xci/init$X \ # # $Z niveau=$NOIR \ # # $Z $formatI | \ # # $Z $xci/message$X \ # # $Z message="$MeSsAgE" \ # # $Z niveau_fond=$NOIR \ # # $Z niveau_message=$NiVeAu \ # # $Z taille=$TaIlLe \ # # $Z anti_aliasing=FAUX \ # # $Z centrer=VRAI \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$_____Palette \ # # $Z R=$xTV/NUME.$ListeI[$index] \ # # $Z $formatI # # $Z # # $Z @ index = $index + 1 # # $Z end # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/NUME. \ # # $Z postfixe=%s \ # # $Z premiere=$Image1 derniere=$ImageN pas=1 \ # # $Z dilater=VRAI points=25 \ # # $Z moyenne=VRAI \ # # $Z dilatation_carree=FAUX \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_PEAN_52: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec 2 iterations # # pour 'T' (T E [0,0.99999999999991]) et dans son carre, basee sur une courbe arbitraire # # de nature pedagogique destinee a illustrer le principe des transformations # # ('v $xiirv/PEAN.51'). # v $xiirv/PEAN.61 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_61: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=1 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.61 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # :Fin_listG_PEAN_61: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 1 iteration pour 'T' (T E [0,0.999]) et dans son cube. # v $xiirv/PEAN.62 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_62: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=2 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" pas_02=0.0002" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.62 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # :Fin_listG_PEAN_62: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 2 iterations pour 'T' (T E [0,0.99999999999992]) et dans son cube. # v $xiirv/PEAN.63 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_63: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=3 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" pas_03=0.000100" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.63 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # :Fin_listG_PEAN_63: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 3 iterations pour 'T' (T E [0,0.99999999999991]) et dans son cube. # v $xiirv/PEAN.64 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_64: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=4 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" pas_04=0.000020" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.64 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # :Fin_listG_PEAN_64: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 4 iterations pour 'T' (T E [0,0.99998000000072]) et dans son cube. # v $xiirv/PEAN.65 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_65: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=5 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" pas_05=0.00000500" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.65 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" mN2=FAUX" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # :Fin_listG_PEAN_65: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 5 iterations pour 'T' (T E [0,0.99999500000232]) et dans son cube. # v $xiirv/PEAN.71 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_71: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=1 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1x_s=L_SUBSTITUTION_BLEUE" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=4" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1y_s=L_SUBSTITUTION_VERTE" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=4" # # $Z set _____Arguments="$_____Arguments"" f1z_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1z_s=L_SUBSTITUTION_ROUGE" # # $Z set _____Arguments="$_____Arguments"" f1z_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1z_passes=4" # # # # On notera le 20220429173306 que je suis passe de 2000 a 4 pour le nombre de passes de # # lissage car, en effet, avec de grandes valeurs les extrema du noeud ne se trouvaient # # plus en {0,0,0} et {0,0,1} respectivement... # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.71 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # :Fin_listG_PEAN_71: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 1 iteration pour 'T' (T E [0,0.999]) et dans son cube, base sur un noeud de 3-trefle. # v $xiirv/PEAN.72 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_72: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=2 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" pas_02=0.0002" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1x_s=L_SUBSTITUTION_BLEUE" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=4" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1y_s=L_SUBSTITUTION_VERTE" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=4" # # $Z set _____Arguments="$_____Arguments"" f1z_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1z_s=L_SUBSTITUTION_ROUGE" # # $Z set _____Arguments="$_____Arguments"" f1z_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1z_passes=4" # # # # On notera le 20220429173306 que je suis passe de 2000 a 4 pour le nombre de passes de # # lissage car, en effet, avec de grandes valeurs les extrema du noeud ne se trouvaient # # plus en {0,0,0} et {0,0,1} respectivement... # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.72 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # :Fin_listG_PEAN_72: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 2 iterations pour 'T' (T E [0,0.99999999999992]) et dans son cube, base sur un noeud # # de 3-trefle. # v $xiirv/PEAN.73 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_73: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=3 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" pas_03=0.00005" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1x_s=L_SUBSTITUTION_BLEUE" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=4" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1y_s=L_SUBSTITUTION_VERTE" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=4" # # $Z set _____Arguments="$_____Arguments"" f1z_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1z_s=L_SUBSTITUTION_ROUGE" # # $Z set _____Arguments="$_____Arguments"" f1z_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1z_passes=4" # # # # On notera le 20220429173306 que je suis passe de 2000 a 4 pour le nombre de passes de # # lissage car, en effet, avec de grandes valeurs les extrema du noeud ne se trouvaient # # plus en {0,0,0} et {0,0,1} respectivement... # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.73 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # :Fin_listG_PEAN_73: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 3 iterations pour 'T' (T E [0,0.9999999999999]) et dans son cube, base sur un noeud # # de 3-trefle. # v $xiirv/PEAN.74 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_74: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=4 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" pas_04=0.0000125" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1x_s=L_SUBSTITUTION_BLEUE" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=4" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1y_s=L_SUBSTITUTION_VERTE" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=4" # # $Z set _____Arguments="$_____Arguments"" f1z_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1z_s=L_SUBSTITUTION_ROUGE" # # $Z set _____Arguments="$_____Arguments"" f1z_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1z_passes=4" # # # # On notera le 20220429173306 que je suis passe de 2000 a 4 pour le nombre de passes de # # lissage car, en effet, avec de grandes valeurs les extrema du noeud ne se trouvaient # # plus en {0,0,0} et {0,0,1} respectivement... # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.74 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # :Fin_listG_PEAN_74: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 4 iterations pour 'T' (T E [0,0.99999999999934]) et dans son cube, base sur un noeud # # de 3-trefle. # v $xiirv/PEAN.75 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_75: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=5 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" pas_05=0.00000500" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1x_s=L_SUBSTITUTION_BLEUE" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=4" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1y_s=L_SUBSTITUTION_VERTE" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=4" # # $Z set _____Arguments="$_____Arguments"" f1z_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1z_s=L_SUBSTITUTION_ROUGE" # # $Z set _____Arguments="$_____Arguments"" f1z_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1z_passes=4" # # # # On notera le 20220429173306 que je suis passe de 2000 a 4 pour le nombre de passes de # # lissage car, en effet, avec de grandes valeurs les extrema du noeud ne se trouvaient # # plus en {0,0,0} et {0,0,1} respectivement... # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.75 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____FRExtremites=2 # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # :Fin_listG_PEAN_75: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 5 iterations pour 'T' (T E [0,0.99999500000232]) et dans son cube, base sur un noeud # # de 3-trefle. # v $xiirv/PEAN.81.1 v $xiirv/PEAN.81.2 v $xiirv/PEAN.81.21 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_81: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/HILB.34 # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=1 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1x_s=L_SUBSTITUTION_BLEUE" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=4" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1y_s=L_SUBSTITUTION_VERTE" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=4" # # $Z set _____Arguments="$_____Arguments"" f1z_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1z_s=L_SUBSTITUTION_ROUGE" # # $Z set _____Arguments="$_____Arguments"" f1z_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1z_passes=4" # # # # On notera le 20220429173306 que je suis passe de 2000 a 4 pour le nombre de passes de # # lissage car, en effet, avec de grandes valeurs les extrema du noeud ne se trouvaient # # plus en {0,0,0} et {0,0,1} respectivement... # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xTV/PEAN.81 # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $Z set _____NiveauFond=$GRIS_0 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z set _____DemiPaveX=14 # # $Z set _____DemiPaveY=14 # # $Z set _____DemiPaveZ=14 # # $m4 _____include(_____xiirv/.PEAN.81._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=2 # # $Z set _____Dx=2 # # $Z set _____Dy=2 # # $Z set _____Dz=2 # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/PEAN.81 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z FilSTmpE LiStEPoInTs # # # # :Fin_listG_PEAN_81: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 1 iteration pour 'T' (T E [0,0.999]) et dans son cube, base sur un noeud de 3-trefle. # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/densite_3D.11$X : 00:17:51 # # # # $xci/ombrage.11$X : 00:01:54 # # # # $xci/accumule.42$X : 00:06:21 # # # v $xiirv/PEAN.82.1 v $xiirv/PEAN.82.2 v $xiirv/PEAN.82.21 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_82: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/HILB.34 # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=2 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" pas_02=0.0002" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1x_s=L_SUBSTITUTION_BLEUE" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=4" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1y_s=L_SUBSTITUTION_VERTE" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=4" # # $Z set _____Arguments="$_____Arguments"" f1z_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1z_s=L_SUBSTITUTION_ROUGE" # # $Z set _____Arguments="$_____Arguments"" f1z_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1z_passes=4" # # # # On notera le 20220429173306 que je suis passe de 2000 a 4 pour le nombre de passes de # # lissage car, en effet, avec de grandes valeurs les extrema du noeud ne se trouvaient # # plus en {0,0,0} et {0,0,1} respectivement... # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xTV/PEAN.82 # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $Z set _____NiveauFond=$GRIS_0 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z set _____DemiPaveX=10 # # $Z set _____DemiPaveY=10 # # $Z set _____DemiPaveZ=10 # # $m4 _____include(_____xiirv/.PEAN.81._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=2 # # $Z set _____Dx=2 # # $Z set _____Dy=2 # # $Z set _____Dz=2 # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/PEAN.82 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z FilSTmpE LiStEPoInTs # # # # :Fin_listG_PEAN_82: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 2 iterations pour 'T' (T E [0,0.99999999999992]) et dans son cube, base sur un noeud # # de 3-trefle. # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/densite_3D.11$X : 00:17:47 # # # # $xci/ombrage.11$X : 00:03:08 # # # # $xci/accumule.42$X : 00:09:01 # # # v $xiirv/PEAN.83.1 v $xiirv/PEAN.83.2 v $xiirv/PEAN.83.21 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_83: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/HILB.34 # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=3 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" pas_03=0.00005" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1x_s=L_SUBSTITUTION_BLEUE" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=4" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1y_s=L_SUBSTITUTION_VERTE" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=4" # # $Z set _____Arguments="$_____Arguments"" f1z_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1z_s=L_SUBSTITUTION_ROUGE" # # $Z set _____Arguments="$_____Arguments"" f1z_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1z_passes=4" # # # # On notera le 20220429173306 que je suis passe de 2000 a 4 pour le nombre de passes de # # lissage car, en effet, avec de grandes valeurs les extrema du noeud ne se trouvaient # # plus en {0,0,0} et {0,0,1} respectivement... # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xTV/PEAN.83 # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $Z set _____NiveauFond=$GRIS_0 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z set _____DemiPaveX=6 # # $Z set _____DemiPaveY=6 # # $Z set _____DemiPaveZ=6 # # $m4 _____include(_____xiirv/.PEAN.81._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=2 # # $Z set _____Dx=2 # # $Z set _____Dy=2 # # $Z set _____Dz=2 # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/PEAN.83 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z FilSTmpE LiStEPoInTs # # # # :Fin_listG_PEAN_83: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 3 iterations pour 'T' (T E [0,0.9999999999999]) et dans son cube, base sur un noeud # # de 3-trefle. # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/densite_3D.11$X : 00:17:47 # # # # $xci/ombrage.11$X : 00:04:28 # # # # $xci/accumule.42$X : 00:12:41 # # # v $xiirv/PEAN.84.1 v $xiirv/PEAN.84.2 v $xiirv/PEAN.84.21 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_84: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/HILB.34 # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=4 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" pas_04=0.0000125" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1x_s=L_SUBSTITUTION_BLEUE" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=4" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1y_s=L_SUBSTITUTION_VERTE" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=4" # # $Z set _____Arguments="$_____Arguments"" f1z_p=$xiP/NoeudTrefle.01" # # $Z set _____Arguments="$_____Arguments"" f1z_s=L_SUBSTITUTION_ROUGE" # # $Z set _____Arguments="$_____Arguments"" f1z_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1z_passes=4" # # # # On notera le 20220429173306 que je suis passe de 2000 a 4 pour le nombre de passes de # # lissage car, en effet, avec de grandes valeurs les extrema du noeud ne se trouvaient # # plus en {0,0,0} et {0,0,1} respectivement... # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xTV/PEAN.84 # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $Z set _____NiveauFond=$GRIS_0 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z set _____DemiPaveX=2 # # $Z set _____DemiPaveY=2 # # $Z set _____DemiPaveZ=2 # # $m4 _____include(_____xiirv/.PEAN.81._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=2 # # $Z set _____Dx=2 # # $Z set _____Dy=2 # # $Z set _____Dz=2 # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/PEAN.84 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z FilSTmpE LiStEPoInTs # # # # :Fin_listG_PEAN_84: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 4 iterations pour 'T' (T E [0,0.99999999999934]) et dans son cube, base sur un noeud # # de 3-trefle. # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/densite_3D.11$X : 00:18:12 # # # # $xci/ombrage.11$X : 00:04:20 # # # # $xci/accumule.42$X : 00:12:30 # # # v $xiirv/PEAN.91 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_91: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=1 # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.91 \ # # $Z $NoEuDTrEfLe # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.91 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # :Fin_listG_PEAN_91: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 1 iteration pour 'T' (T E [0,0.999]) et dans son cube, base sur un noeud de 3-trefle. # v $xiirv/PEAN.92 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_92: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=2 # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.92 \ # # $Z $NoEuDTrEfLe # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_02=0.0002" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.92 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # :Fin_listG_PEAN_92: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 2 iterations pour 'T' (T E [0,0.99999999999992]) et dans son cube, base sur un noeud # # de 3-trefle. # v $xiirv/PEAN.92$IdM # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PEAN_92_IdM: # # # # $Z TvB # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=2 # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.92 \ # # $Z $NoEuDTrEfLe # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_02=0.0001" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.92$IdM # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # :Fin_listG_PEAN_92_IdM: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 2 iterations pour 'T' (T E [0,0.99999999999992]) et dans son cube, base sur un noeud # # de 3-trefle. # v $xiirv/PEAN.93 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_93: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=3 # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.93 \ # # $Z $NoEuDTrEfLe # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_03=0.00005" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.93 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # :Fin_listG_PEAN_93: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 3 iterations pour 'T' (T E [0,0.9999999999999]) et dans son cube, base sur un noeud # # de 3-trefle. # v $xiirv/PEAN.94 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_94: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=4 # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.94 \ # # $Z $NoEuDTrEfLe # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_04=0.0000125" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.94 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # :Fin_listG_PEAN_94: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 4 iterations pour 'T' (T E [0,0.99999999999934]) et dans son cube, base sur un noeud # # de 3-trefle. # v $xiirv/PEAN.95 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_95: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=5 # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.95 \ # # $Z $NoEuDTrEfLe # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_05=0.00000500" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.95 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____FRExtremites=2 # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # :Fin_listG_PEAN_95: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 5 iterations pour 'T' (T E [0,0.99999500000232]) et dans son cube, base sur un noeud # # de 3-trefle. # v $xiirv/PEAN.A1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_A1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=1 # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.A1 \ # # $Z $NoEuDTrEfLe \ # # $Z 0.25 10.00 0.01 0.006 +5 -2 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_01=0.0001" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.A1 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # :Fin_listG_PEAN_A1: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 1 iteration pour 'T' (T E [0,0.99999999999991]) et dans son cube, base sur un noeud de # # 5-trefle. # v $xiirv/PEAN.A2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_A2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=2 # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.A2 \ # # $Z $NoEuDTrEfLe \ # # $Z 0.25 10.00 0.01 0.006 +5 -2 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_02=0.0002" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.A2 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # :Fin_listG_PEAN_A2: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 2 iterations pour 'T' (T E [0,0.99999999999992]) et dans son cube, base sur un noeud # # de 5-trefle. # v $xiirv/PEAN.A3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_A3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=3 # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.A3 \ # # $Z $NoEuDTrEfLe \ # # $Z 0.25 10.00 0.01 0.006 +5 -2 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_03=0.00005" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.A3 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # :Fin_listG_PEAN_A3: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 3 iterations pour 'T' (T E [0,0.9999999999999]) et dans son cube, base sur un noeud # # de 5-trefle. # v $xiirv/PEAN.A4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_A4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=4 # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.A4 \ # # $Z $NoEuDTrEfLe \ # # $Z 0.25 10.00 0.01 0.006 +5 -2 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_04=0.0000125" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.A4 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # :Fin_listG_PEAN_A4: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 4 iterations pour 'T' (T E [0,0.99999999999934]) et dans son cube, base sur un noeud # # de 5-trefle. # v $xiirv/PEAN.A5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_A5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=5 # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.A5 \ # # $Z $NoEuDTrEfLe \ # # $Z 0.25 10.00 0.01 0.006 +5 -2 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_05=0.00000500" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.A5 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____FRExtremites=2 # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # $Z FilSTmpE NoEuDTrEfLe # # # # :Fin_listG_PEAN_A5: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 5 iterations pour 'T' (T E [0,0.99999500000232]) et dans son cube, base sur un noeud # # de 5-trefle. # v $xiirv/PEAN.B1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_B1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=1 # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.B1 \ # # $Z $NoEuDTrEfLe \ # # $Z 0.25 10.00 0.01 0.006 +7 -2 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_01=0.0001" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.B1 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # :Fin_listG_PEAN_B1: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 1 iteration pour 'T' (T E [0,0.99999999999991]) et dans son cube, base sur un noeud de # # 7-trefle. # v $xiirv/PEAN.B2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_B2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=2 # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.B2 \ # # $Z $NoEuDTrEfLe \ # # $Z 0.25 10.00 0.01 0.006 +7 -2 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_02=0.0002" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.B2 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # :Fin_listG_PEAN_B2: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 2 iterations pour 'T' (T E [0,0.99999999999992]) et dans son cube, base sur un noeud # # de 7-trefle. # v $xiirv/PEAN.B3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_B3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=3 # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.B3 \ # # $Z $NoEuDTrEfLe \ # # $Z 0.25 10.00 0.01 0.006 +7 -2 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_03=0.00005" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.B3 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # :Fin_listG_PEAN_B3: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 3 iterations pour 'T' (T E [0,0.9999999999999]) et dans son cube, base sur un noeud # # de 7-trefle. # v $xiirv/PEAN.B4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_B4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=4 # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.B4 \ # # $Z $NoEuDTrEfLe \ # # $Z 0.25 10.00 0.01 0.006 +7 -2 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_04=0.0000125" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.B4 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # :Fin_listG_PEAN_B4: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 4 iterations pour 'T' (T E [0,0.99999999999934]) et dans son cube, base sur un noeud # # de 7-trefle. # v $xiirv/PEAN.B5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_B5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=5 # # # # $Z FilSTmpB NoEuDTrEfLe # # # # $Z $xrs/NoeudTrefle.11$Z \ # # $Z $xTV/PEAN.B5 \ # # $Z $NoEuDTrEfLe \ # # $Z 0.25 10.00 0.01 0.006 +7 -2 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$NoEuDTrEfLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$NoEuDTrEfLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$NoEuDTrEfLe$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_05=0.00000500" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.B5 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____FRExtremites=2 # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE NoEuDTrEfLe # # # # :Fin_listG_PEAN_B5: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 5 iterations pour 'T' (T E [0,0.99999500000232]) et dans son cube, base sur un noeud # # de 7-trefle. # v $xiirv/PEAN.C1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_C1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=1 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" pas_01=0.0002" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/dentscie.E3" # # $Z set _____Arguments="$_____Arguments"" f1x_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=20" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/dentscie.E3" # # $Z set _____Arguments="$_____Arguments"" f1y_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=20" # # $Z set _____Arguments="$_____Arguments"" f1z_p=$xiP/gris.01" # # $Z set _____Arguments="$_____Arguments"" f1z_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1z_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1z_passes=20" # # # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/orange.32 # # $Z set _____Rayon=(0.008) # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.C1 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # :Fin_listG_PEAN_C1: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 1 iteration pour 'T' (T E [0,0.99999999999992]) et dans son cube, base sur une courbe # # arbitraire de nature pedagogique destinee a illustrer le principe des transformations. # v $xiirv/PEAN.C2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_C2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$EXIST # # $Z SET _____DefinitionSCubes=$EXIST # # $Z set _____NIteration=2 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" pas_02=0.0001" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/dentscie.E3" # # $Z set _____Arguments="$_____Arguments"" f1x_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=20" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/dentscie.E3" # # $Z set _____Arguments="$_____Arguments"" f1y_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=20" # # $Z set _____Arguments="$_____Arguments"" f1z_p=$xiP/gris.01" # # $Z set _____Arguments="$_____Arguments"" f1z_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1z_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1z_passes=20" # # # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/bande8.12 # # $Z set _____Rayon=(0.008) # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.C2 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z set DeCaLaGeP=16 # # $Z set _____Palette=$xiP/bande8.22 # # # # $Z set TaIlLe=2 # # # # $Z set Image1=1 # # $Z set ImageN=4 # # # # $Z set ListeI=`$xci/nombres$X A="$K_VIDE" p=$Image1 d=$ImageN` # # $Z set ListeN=( "1" "8" "2" "7" ) # # $Z set ListeP=( $GRIS_1 $GRIS_8 $GRIS_2 $GRIS_7 ) # # # # $Z set index=$Image1 # # # # $Z while ($index <= $ImageN) # # $Z set MeSsAgE="Transformation ""$ListeN[$index]" # # $Z set NiVeAu=`calculINS $ListeP[$index]-$DeCaLaGeP` # # # # $Z $xci/init$X \ # # $Z niveau=$NOIR \ # # $Z $formatI | \ # # $Z $xci/message$X \ # # $Z message="$MeSsAgE" \ # # $Z niveau_fond=$NOIR \ # # $Z niveau_message=$NiVeAu \ # # $Z taille=`calcul $TaIlLe+1` \ # # $Z anti_aliasing=FAUX \ # # $Z centrer=VRAI \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$_____Palette \ # # $Z R=$xTV/NUME.$ListeI[$index] \ # # $Z $formatI # # $Z # # $Z @ index = $index + 1 # # $Z end # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/NUME. \ # # $Z postfixe=%s \ # # $Z premiere=$Image1 derniere=$ImageN pas=1 \ # # $Z dilater=VRAI points=9 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/scroll$X \ # # $Z torex=FAUX trx=+0.1 \ # # $Z torey=FAUX try=-0.12 \ # # $Z R=$xTV/RADREN.1$R04%s \ # # $Z $formatI" # # # # Creation des titres "Avant"... # # # # $Z set ListeI=`$xci/nombres$X A="$K_VIDE" p=$Image1 d=$ImageN` # # $Z set ListeN=( "4" "5" "3" "6" ) # # $Z set ListeP=( $GRIS_4 $GRIS_5 $GRIS_3 $GRIS_6 ) # # # # $Z set index=$Image1 # # # # $Z while ($index <= $ImageN) # # $Z set MeSsAgE="Transformation ""$ListeN[$index]" # # $Z set NiVeAu=`calculINS $ListeP[$index]-$DeCaLaGeP` # # # # $Z $xci/init$X \ # # $Z niveau=$NOIR \ # # $Z $formatI | \ # # $Z $xci/message$X \ # # $Z message="$MeSsAgE" \ # # $Z niveau_fond=$NOIR \ # # $Z niveau_message=$NiVeAu \ # # $Z taille=$TaIlLe \ # # $Z anti_aliasing=FAUX \ # # $Z centrer=VRAI \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$_____Palette \ # # $Z R=$xTV/NUME.$ListeI[$index] \ # # $Z $formatI # # $Z # # $Z @ index = $index + 1 # # $Z end # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/NUME. \ # # $Z postfixe=%s \ # # $Z premiere=$Image1 derniere=$ImageN pas=1 \ # # $Z dilater=VRAI points=9 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/scroll$X \ # # $Z torex=FAUX trx=-0.12 \ # # $Z torey=FAUX try=+0.15 \ # # $Z R=$xTV/RADREN.2$R04%s \ # # $Z $formatI" # # # # Creation des titres "Arriere"... # # # # $Z $xci/cache.21$Z $_____ImageR $xTV/RADREN.1$R04 $xTV/AVANT # # $Z $xci/cache.21$Z $xTV/RADREN.2$R04 $xTV/AVANT $_____ImageR # # # # :Fin_listG_PEAN_C2: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 2 iterations pour 'T' (T E [0,0.99999999999991]) et dans son cube, base sur une courbe # # arbitraire de nature pedagogique destinee a illustrer le principe des transformations. # # ('v $xiirv/PEAN.C2'). # v $xiirv/PEAN.D6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_D6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NDecimales=6 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/PEAN.D6 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.21._____U) # # # # $Z set _____Surface=$xrs/sphere.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.012" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.5" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=1" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$pi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/PEAN.D6 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_PEAN_D6: # # # # # # qui montre une courbe de Peano bidimensionnelle (avec 6 decimales) sur une sphere (voir # # 'v $xiirs/SPHE.53'). # v $xiirv/PEAN.D8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_D8: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NDecimales=8 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.002 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/PEAN.D8 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.21._____U) # # # # $Z set _____Surface=$xrs/sphere.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.004" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.5" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=1" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$pi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/PEAN.D8 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_PEAN_D8: # # # # # # qui montre une courbe de Peano bidimensionnelle (avec 8 decimales) sur une sphere (voir # # 'v $xiirs/SPHE.53'). # v $xiirv/PEAN.E6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_E6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NDecimales=6 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.002 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/PEAN.E6 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.21._____U) # # # # $Z set _____Surface=$xrs/tore.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.020" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.40" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=+1.1" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/PEAN.E6 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_PEAN_E6: # # # # # # qui montre une courbe de Peano bidimensionnelle (avec 6 decimales) sur un tore (voir # # 'v $xiirs/TORE.12'). # v $xiirv/PEAN.E8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_E8: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NDecimales=8 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/PEAN.E8 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.21._____U) # # # # $Z set _____Surface=$xrs/tore.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.006" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.40" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=+1.1" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/PEAN.E8 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_PEAN_E8: # # # # # # qui montre une courbe de Peano bidimensionnelle (avec 8 decimales) sur un tore (voir # # 'v $xiirs/TORE.12'). # v $xiirv/PEAN.F6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_F6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NDecimales=6 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.002 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/PEAN.F6 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.21._____U) # # # # $Z set _____Surface=$xrs/bKlein.61$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.080" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.20" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=0.8" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/PEAN.F6 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_PEAN_F6: # # # # # # qui montre une courbe de Peano bidimensionnelle (avec 6 decimales) sur une double bouteille # # de Bonan-Jeener ('v $xiirs/BKLN.P2'). # v $xiirv/PEAN.F8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_F8: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NDecimales=8 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/PEAN.F8 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.21._____U) # # # # $Z set _____Surface=$xrs/bKlein.61$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.040" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.20" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=0.8" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/PEAN.F8 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_PEAN_F8: # # # # # # qui montre une courbe de Peano bidimensionnelle (avec 8 decimales) sur une double bouteille # # de Bonan-Jeener ('v $xiirs/BKLN.P2'). # v $xiirv/PEAN.G6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_G6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NIteration=5 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/dentscie.C4" # # $Z set _____Arguments="$_____Arguments"" f1x_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=20" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/dentscie.A2" # # $Z set _____Arguments="$_____Arguments"" f1y_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=20" # # # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____DistanceMini=0.002 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/PEAN.G6 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____ParticulePara1="isoles=FAUX chainer=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z set _____Surface=$xrs/sphere.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.010" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.5" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=1" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$pi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/PEAN.G6 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_PEAN_G6: # # # # # # qui montre une courbe de Peano bidimensionnelle (iteration 5) sur une sphere (voir # # 'v $xiirs/SPHE.53'). # v $xiirv/PEAN.G7 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_G7: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NIteration=6 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/dentscie.C4" # # $Z set _____Arguments="$_____Arguments"" f1x_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=20" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/dentscie.A2" # # $Z set _____Arguments="$_____Arguments"" f1y_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=20" # # # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____DistanceMini=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/PEAN.G7 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z set _____Surface=$xrs/sphere.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.006" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.5" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=1" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$pi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/PEAN.G7 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_PEAN_G7: # # # # # # qui montre une courbe de Peano bidimensionnelle (iteration 7) sur une sphere (voir # # 'v $xiirs/SPHE.53'). # v $xiirv/PEAN.H6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_H6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NIteration=5 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/dentscie.C4" # # $Z set _____Arguments="$_____Arguments"" f1x_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=20" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/dentscie.A2" # # $Z set _____Arguments="$_____Arguments"" f1y_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=20" # # # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____DistanceMini=0.002 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/PEAN.H6 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____ParticulePara1="isoles=FAUX chainer=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z set _____Surface=$xrs/tore.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.012" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.40" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=+1.1" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/PEAN.H6 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_PEAN_H6: # # # # # # qui montre une courbe de Peano bidimensionnelle (iteration 5) sur un tore (voir # # 'v $xiirs/TORE.12'). # v $xiirv/PEAN.H7 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_H7: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NIteration=6 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/dentscie.C4" # # $Z set _____Arguments="$_____Arguments"" f1x_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=20" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/dentscie.A2" # # $Z set _____Arguments="$_____Arguments"" f1y_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=20" # # # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____DistanceMini=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/PEAN.H7 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z set _____Surface=$xrs/tore.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.008" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.40" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=+1.1" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/PEAN.H7 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_PEAN_H7: # # # # # # qui montre une courbe de Peano bidimensionnelle (iteration 7) sur un tore (voir # # 'v $xiirs/TORE.12'). # v $xiirv/PEAN.I6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_I6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NIteration=5 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/dentscie.C4" # # $Z set _____Arguments="$_____Arguments"" f1x_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=20" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/dentscie.A2" # # $Z set _____Arguments="$_____Arguments"" f1y_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=20" # # # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____DistanceMini=0.002 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/PEAN.I6 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____ParticulePara1="isoles=FAUX chainer=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z set _____Surface=$xrs/bKlein.61$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.060" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.20" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=0.8" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/PEAN.I6 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_PEAN_I6: # # # # # # qui montre une courbe de Peano bidimensionnelle (iteration 5) sur une double bouteille # # de Bonan-Jeener ('v $xiirs/BKLN.P2'). # v $xiirv/PEAN.I7 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_I7: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NIteration=6 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/dentscie.C4" # # $Z set _____Arguments="$_____Arguments"" f1x_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=20" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/dentscie.A2" # # $Z set _____Arguments="$_____Arguments"" f1y_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=20" # # # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____DistanceMini=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/PEAN.I7 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z set _____Surface=$xrs/bKlein.61$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.060" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.20" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=0.8" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/PEAN.I7 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_PEAN_I7: # # # # # # qui montre une courbe de Peano bidimensionnelle (iteration 7) sur une double bouteille # # de Bonan-Jeener ('v $xiirs/BKLN.P2'). # v $xiirv/PEAN.J6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_J6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NIteration=5 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/dentscie.C4" # # $Z set _____Arguments="$_____Arguments"" f1x_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=20" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/dentscie.A2" # # $Z set _____Arguments="$_____Arguments"" f1y_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=20" # # # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____DistanceMini=0.002 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/PEAN.J6 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____ParticulePara1="isoles=FAUX chainer=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z set _____Surface=$xrs/Mobius2D.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.005" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.80" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=1.0" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=1" # # # # $Z set _____ImageR=$xiirv/PEAN.J6 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_PEAN_J6: # # # # # # qui montre une courbe de Peano bidimensionnelle (iteration 5) sur un ruban de Mobius # # ('v $xiirs/MOB2.12'). # v $xiirv/PEAN.J7 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_J7: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NIteration=6 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/dentscie.C4" # # $Z set _____Arguments="$_____Arguments"" f1x_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=20" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/dentscie.A2" # # $Z set _____Arguments="$_____Arguments"" f1y_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=20" # # # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____DistanceMini=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/PEAN.J7 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z set _____Surface=$xrs/Mobius2D.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.003" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.80" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=1.0" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=1" # # # # $Z set _____ImageR=$xiirv/PEAN.J7 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_PEAN_J7: # # # # # # qui montre une courbe de Peano bidimensionnelle (iteration 7) sur un ruban de Mobius # # ('v $xiirs/MOB2.12'). # v $xiirv/PEAN.K6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_K6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NDecimales=6 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.002 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/PEAN.K6 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.21._____U) # # # # $Z set _____Surface=$xrs/Mobius2D.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.005" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.80" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=1.0" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=1" # # # # $Z set _____ImageR=$xiirv/PEAN.K6 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_PEAN_K6: # # # # # # qui montre une courbe de Peano bidimensionnelle (avec 6 decimales) sur un ruban de Mobius # # ('v $xiirs/MOB2.12'). # v $xiirv/PEAN.K8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_K8: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NDecimales=8 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/PEAN.K8 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.21._____U) # # # # $Z set _____Surface=$xrs/Mobius2D.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.003" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.80" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=1.0" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=1" # # # # $Z set _____ImageR=$xiirv/PEAN.K8 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_PEAN_K8: # # # # # # qui montre une courbe de Peano bidimensionnelle (avec 8 decimales) sur un ruban de Mobius # # ('v $xiirs/MOB2.12'). # v $xiirv/PEAN.L6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_L6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NIteration=5 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/dentscie.C4" # # $Z set _____Arguments="$_____Arguments"" f1x_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=20" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/dentscie.A2" # # $Z set _____Arguments="$_____Arguments"" f1y_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=20" # # # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____DistanceMini=0.002 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/PEAN.L6 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____ParticulePara1="isoles=FAUX chainer=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z set _____Surface=$xrs/bKlein.41$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.120" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.10" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=+0.8" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OZ=-0.3" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OX=+2.00" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OY=-2.50" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/PEAN.L6 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_PEAN_L6: # # # # # # qui montre une courbe de Peano bidimensionnelle (iteration 5) sur une bouteille # # de Klein ('v $xiirs/BKLN.43'). # v $xiirv/PEAN.L7 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_L7: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NIteration=6 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/dentscie.C4" # # $Z set _____Arguments="$_____Arguments"" f1x_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=20" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/dentscie.A2" # # $Z set _____Arguments="$_____Arguments"" f1y_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=20" # # # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____DistanceMini=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/PEAN.L7 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z set _____Surface=$xrs/bKlein.41$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.120" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.10" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=+0.8" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OZ=-0.3" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OX=+2.00" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OY=-2.50" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/PEAN.L7 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_PEAN_L7: # # # # # # qui montre une courbe de Peano bidimensionnelle (iteration 7) sur une bouteille # # de Klein ('v $xiirs/BKLN.43'). # v $xiirv/PEAN.L7.1.1 v $xiirv/PEAN.L7.1.2 v $xiirv/PEAN.L7.1.21 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_L7_1_21: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NIteration=6 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" f1x_p=$xiP/dentscie.C4" # # $Z set _____Arguments="$_____Arguments"" f1x_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1x_passes=20" # # $Z set _____Arguments="$_____Arguments"" f1y_p=$xiP/dentscie.A2" # # $Z set _____Arguments="$_____Arguments"" f1y_i=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_lissage=VRAI" # # $Z set _____Arguments="$_____Arguments"" f1y_passes=20" # # # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____DistanceMini=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTV/PEAN.L7.1 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z set _____Surface=$xrs/bKlein.41$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.120" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.10" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z FilSTmpB FLiStE_PoInTs_S # # # # $Z set _____Redirection=">> $FLiStE_PoInTs_S" # # # # $Z set _____SurfacePara1="$K_VIDE" # # $Z set _____SurfacePara1="$_____SurfacePara1"" lister_les_points=VRAI" # # $Z set _____SurfacePara1="$_____SurfacePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____ImageR=$xTV/PEAN.L7.1 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z $DELETE $FLiStE_PoInTs # # $Z $DELETE $FLiStE_PoInTs$COORD_X # # $Z $DELETE $FLiStE_PoInTs$COORD_Y # # $Z $DELETE $FLiStE_PoInTs$COORD_Z # # # # $Z $MV $FLiStE_PoInTs_S $FLiStE_PoInTs # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/PEAN.L7 # # # # $Z set _____MinX=0.1 # # $Z set _____MaxX=0.9 # # $Z set _____MinY=0.1 # # $Z set _____MaxY=0.9 # # $Z set _____MinZ=0.1 # # $Z set _____MaxZ=0.9 # # # # $Z set _____DemiPaveX=2 # # $Z set _____DemiPaveY=2 # # $Z set _____DemiPaveZ=2 # # # # $m4 _____include(_____xiirv/.HILB.R8.1._____U) # # # # $Z FilSTmpE FLiStE_PoInTs_S # # $Z FilSTmpE FLiStE_PoInTs # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.4 # # $Z set _____imagesR=$xiirv/PEAN.L7.1 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_PEAN_L7_1_21: # # # # # # qui montre une courbe de Peano bidimensionnelle (iteration 7) sur une bouteille # # de Klein ('v $xiirs/BKLN.43'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xrv/store_album$X : 00:00:04 # # # # $xci/ombrage.11$X : 00:05:52 # # # # $xci/accumule.42$X : 00:05:33 # # # v $xiirv/PEAN.L7.1.21$M # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_L7_1_21_M: # # # # $Z Pdu # # # # $Z set _____imagesA=$xiirv/PEAN.L7.1 # # $Z set _____imagesR=$_____imagesA.21$M # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____imagesA.1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z navap=VRAI \ # # $Z passes=1000 \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z execRVB "$xci/convol.01$X \ # # $Z A=$_____imagesA.21%s \ # # $Z points=49 \ # # $Z $formatI | \ # # $Z $xci/montagne.01$X \ # # $Z echelle=0.1 \ # # $Z A=$xTV/LUMINANCE \ # # $Z standard=FAUX zero=FAUX \ # # $Z avion=FAUX \ # # $Z Ty=0.95 \ # # $Z R=$_____imagesR%s \ # # $Z $formatI" # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR \ # # $Z $_____imagesR \ # # $Z RBV # # # # :Fin_listG_PEAN_L7_1_21_M: # # # v $xiirv/PEAN.M6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_M6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NDecimales=6 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.002 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/PEAN.M6 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.21._____U) # # # # $Z set _____Surface=$xrs/bKlein.41$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.120" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.10" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=+0.8" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OZ=-0.3" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OX=+2.00" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OY=-2.50" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/PEAN.M6 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_PEAN_M6: # # # # # # qui montre une courbe de Peano bidimensionnelle (avec 6 decimales) sur une bouteille # # de Klein ('v $xiirs/BKLN.43'). # v $xiirv/PEAN.M8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_M8: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____NiveauFond=$GRIS_0 # # $Z set _____NDecimales=8 # # $Z set _____Rayon=(0.004) # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Dm=0.001 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xTG/PEAN.M8 # # # # $Z set _____Redirection=">> $FLiStE_PoInTs" # # $Z set _____Argument="$K_VIDE" # # $Z set _____Argument="$_____Argument"" lister_les_points=VRAI" # # $Z set _____Argument="$_____Argument"" lister_les_points_apres=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.PEAN.21._____U) # # # # $Z set _____Surface=$xrs/bKlein.41$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" Vrayon=0.120" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.10" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=+0.8" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OZ=-0.3" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OX=+2.00" # # $Z set _____ArgSurface="$_____ArgSurface"" TRANSLATION_OY=-2.50" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____Renormalisation_u="m=0 M=$dpi" # # $Z set _____Renormalisation_v="m=0 M=$dpi" # # # # $Z set _____ImageR=$xiirv/PEAN.M8 # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_PEAN_M8: # # # # # # qui montre une courbe de Peano bidimensionnelle (avec 8 decimales) sur une bouteille # # de Klein ('v $xiirs/BKLN.43'). # v $xiirv/PEAN.N1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_N1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=1 # # # # $Z FilSTmpB EMaNdElBrOt # # # # $Z $xigP/Mandelbrot.01$Z \ # # $Z $EMaNdElBrOt # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$EMaNdElBrOt$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$EMaNdElBrOt$COORD_Y" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.N$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE EMaNdElBrOt # # # # :Fin_listG_PEAN_N1: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 1 iteration pour 'T' (T E [0,0.999]) et dans son carre, basee sur un morceau de la # # frontiere de l'ensemble de Mandelbrot. # v $xiirv/PEAN.N2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_N2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=2 # # # # $Z FilSTmpB EMaNdElBrOt # # # # $Z $xigP/Mandelbrot.01$Z \ # # $Z $EMaNdElBrOt # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$EMaNdElBrOt$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$EMaNdElBrOt$COORD_Y" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.N$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE EMaNdElBrOt # # # # :Fin_listG_PEAN_N2: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 2 iterations pour 'T' (T E [0,0.99999999999995]) et dans son carre, basee sur un morceau # # de la frontiere de l'ensemble de Mandelbrot. # v $xiirv/PEAN.N3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_N3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=3 # # # # $Z FilSTmpB EMaNdElBrOt # # # # $Z $xigP/Mandelbrot.01$Z \ # # $Z $EMaNdElBrOt # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$EMaNdElBrOt$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$EMaNdElBrOt$COORD_Y" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.N$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE EMaNdElBrOt # # # # :Fin_listG_PEAN_N3: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 3 iterations pour 'T' (T E [0,0.99999999999992]) et dans son carre, basee sur un morceau # # de la frontiere de l'ensemble de Mandelbrot. # v $xiirv/PEAN.N4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_N4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=4 # # # # $Z FilSTmpB EMaNdElBrOt # # # # $Z $xigP/Mandelbrot.01$Z \ # # $Z $EMaNdElBrOt # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$EMaNdElBrOt$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$EMaNdElBrOt$COORD_Y" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.N$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE EMaNdElBrOt # # # # :Fin_listG_PEAN_N4: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 4 iterations pour 'T' (T E [0,0.99987500000013]) et dans son carre, basee sur un morceau # # de la frontiere de l'ensemble de Mandelbrot. # v $xiirv/PEAN.N5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_N5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=5 # # # # $Z FilSTmpB EMaNdElBrOt # # # # $Z $xigP/Mandelbrot.01$Z \ # # $Z $EMaNdElBrOt # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$EMaNdElBrOt$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$EMaNdElBrOt$COORD_Y" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.N$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE EMaNdElBrOt # # # # :Fin_listG_PEAN_N5: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 5 iterations pour 'T' (T E [0,0.9999687500005]) et dans son carre, basee sur un morceau # # de la frontiere de l'ensemble de Mandelbrot. # v $xiirv/PEAN.N6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_N6: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=6 # # # # $Z FilSTmpB EMaNdElBrOt # # # # $Z $xigP/Mandelbrot.01$Z \ # # $Z $EMaNdElBrOt # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$EMaNdElBrOt$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$EMaNdElBrOt$COORD_Y" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.N$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.002) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE EMaNdElBrOt # # # # :Fin_listG_PEAN_N6: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 6 iterations pour 'T' (T E [0,0.99999218750193]) et dans son carre, basee sur un morceau # # de la frontiere de l'ensemble de Mandelbrot. # v $xiirv/PEAN.O1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_O1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=1 # # # # $Z FilSTmpB DiVeRs # # # # $Z $xigP/Divers.02$Z \ # # $Z $DiVeRs \ # # $Z D \ # # $Z 10 \ # # $Z 0 1 \ # # $Z 0 0.93 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.O$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_PEAN_O1: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 1 iteration pour 'T' (T E [0,0.999]) et dans son carre, basee sur un "zig-zag". # v $xiirv/PEAN.O2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_O2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=2 # # # # $Z FilSTmpB DiVeRs # # # # $Z $xigP/Divers.02$Z \ # # $Z $DiVeRs \ # # $Z D \ # # $Z 10 \ # # $Z 0 1 \ # # $Z 0 0.93 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.O$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_PEAN_O2: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 2 iterations pour 'T' (T E [0,0.99999999999995]) et dans son carre, basee sur un "zig-zag". # v $xiirv/PEAN.O3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_O3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=3 # # # # $Z FilSTmpB DiVeRs # # # # $Z $xigP/Divers.02$Z \ # # $Z $DiVeRs \ # # $Z D \ # # $Z 10 \ # # $Z 0 1 \ # # $Z 0 0.93 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.O$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_PEAN_O3: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 3 iterations pour 'T' (T E [0,0.99999999999992]) et dans son carre, basee sur un "zig-zag". # v $xiirv/PEAN.O4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_O4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=4 # # # # $Z FilSTmpB DiVeRs # # # # $Z $xigP/Divers.02$Z \ # # $Z $DiVeRs \ # # $Z D \ # # $Z 10 \ # # $Z 0 1 \ # # $Z 0 0.93 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.O$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_PEAN_O4: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 4 iterations pour 'T' (T E [0,0.99987500000013]) et dans son carre, basee sur un "zig-zag". # v $xiirv/PEAN.O5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_O5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=5 # # # # $Z FilSTmpB DiVeRs # # # # $Z $xigP/Divers.02$Z \ # # $Z $DiVeRs \ # # $Z D \ # # $Z 10 \ # # $Z 0 1 \ # # $Z 0 0.93 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.O$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_PEAN_O5: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 5 iterations pour 'T' (T E [0,0.9999687500005]) et dans son carre, basee sur un "zig-zag". # v $xiirv/PEAN.O6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_O6: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=6 # # # # $Z FilSTmpB DiVeRs # # # # $Z $xigP/Divers.02$Z \ # # $Z $DiVeRs \ # # $Z D \ # # $Z 10 \ # # $Z 0 1 \ # # $Z 0 0.93 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.O$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.002) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_PEAN_O6: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 6 iterations pour 'T' (T E [0,0.99999218750193]) et dans son carre, basee sur un "zig-zag". # v $xiirv/PEAN.P1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_P1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=1 # # # # $Z FilSTmpB DiVeRs # # # # $Z $xigP/Divers.02$Z \ # # $Z $DiVeRs \ # # $Z C \ # # $Z 10 \ # # $Z 0 1 \ # # $Z 0 0.93 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.P$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_PEAN_P1: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 1 iteration pour 'T' (T E [0,0.999]) et dans son carre, basee sur une "spirale carree". # v $xiirv/PEAN.P2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_P2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=2 # # # # $Z FilSTmpB DiVeRs # # # # $Z $xigP/Divers.02$Z \ # # $Z $DiVeRs \ # # $Z C \ # # $Z 10 \ # # $Z 0 1 \ # # $Z 0 0.93 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.P$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_PEAN_P2: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 2 iterations pour 'T' (T E [0,0.99999999999995]) et dans son carre, basee sur une # # "spirale carree". # v $xiirv/PEAN.P3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_P3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=3 # # # # $Z FilSTmpB DiVeRs # # # # $Z $xigP/Divers.02$Z \ # # $Z $DiVeRs \ # # $Z C \ # # $Z 10 \ # # $Z 0 1 \ # # $Z 0 0.93 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.P$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_PEAN_P3: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 3 iterations pour 'T' (T E [0,0.99999999999992]) et dans son carre, basee sur une # # "spirale carree". # v $xiirv/PEAN.P4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_P4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=4 # # # # $Z FilSTmpB DiVeRs # # # # $Z $xigP/Divers.02$Z \ # # $Z $DiVeRs \ # # $Z C \ # # $Z 10 \ # # $Z 0 1 \ # # $Z 0 0.93 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.P$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_PEAN_P4: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 4 iterations pour 'T' (T E [0,0.99987500000013]) et dans son carre, basee sur une # # "spirale carree". # v $xiirv/PEAN.P5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_P5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=5 # # # # $Z FilSTmpB DiVeRs # # # # $Z $xigP/Divers.02$Z \ # # $Z $DiVeRs \ # # $Z C \ # # $Z 10 \ # # $Z 0 1 \ # # $Z 0 0.93 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.P$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_PEAN_P5: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 5 iterations pour 'T' (T E [0,0.9999687500005]) et dans son carre, basee sur une # # "spirale carree". # v $xiirv/PEAN.P6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_P6: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=6 # # # # $Z FilSTmpB DiVeRs # # # # $Z $xigP/Divers.02$Z \ # # $Z $DiVeRs \ # # $Z C \ # # $Z 10 \ # # $Z 0 1 \ # # $Z 0 0.93 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.P$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.002) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_PEAN_P6: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 6 iterations pour 'T' (T E [0,0.99999218750193]) et dans son carre, basee sur une # # "spirale carree". # v $xiirv/PEAN.Q1.F.1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_Q1_F_1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Lettre="F" # # # # $Z FilSTmpB DiVeRs # # # # $Z $xigP/Divers.12$Z $DiVeRs $_____Lettre # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=1 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$DiVeRs$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_01=0.001" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.Q1.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_PEAN_Q1_F_1: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 1 iteration pour 'T' (T E [0,0.999]) et dans son cube, base sur un "zig-zag"... # v $xiirv/PEAN.Q1.F.2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_Q1_F_2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Lettre="F" # # # # $Z FilSTmpB DiVeRs # # # # $Z $xigP/Divers.12$Z $DiVeRs $_____Lettre # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=2 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$DiVeRs$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_02=0.0002" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.Q1.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_PEAN_Q1_F_2: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 2 iterations pour 'T' (T E [0,0.99999999999992]) et dans son cube, base sur un "zig-zag"... # v $xiirv/PEAN.Q1.F.3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_Q1_F_3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Lettre="F" # # # # $Z FilSTmpB DiVeRs # # # # $Z $xigP/Divers.12$Z $DiVeRs $_____Lettre # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=3 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$DiVeRs$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_03=0.00005" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.Q1.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_PEAN_Q1_F_3: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 3 iterations pour 'T' (T E [0,0.9999999999999]) et dans son cube, base sur un "zig-zag"... # v $xiirv/PEAN.Q1.F.4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_Q1_F_4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Lettre="F" # # # # $Z FilSTmpB DiVeRs # # # # $Z $xigP/Divers.12$Z $DiVeRs $_____Lettre # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=4 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$DiVeRs$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_04=0.00001" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.Q1.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_PEAN_Q1_F_4: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 4 iterations pour 'T' (T E [0,0.99999999999808]) et dans son cube, base sur un "zig-zag"... # v $xiirv/PEAN.Q2.G.1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_Q2_G_1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB DiVeRs # # # # $Z set _____Lettre="G" # # $Z set _____FacteurDerivees=0 # # $m4 _____include(_____xiirv/.PEAN.Q2.1._____U) # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=1 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$DiVeRs$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_01=0.0001" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.Q2.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_PEAN_Q2_G_1: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 1 iteration pour 'T' (T E [0,0.99999999999991]) et dans son cube, base sur un hypercube... # v $xiirv/PEAN.Q2.G.2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_Q2_G_2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB DiVeRs # # # # $Z set _____Lettre="G" # # $Z set _____FacteurDerivees=0 # # $m4 _____include(_____xiirv/.PEAN.Q2.1._____U) # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=2 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$DiVeRs$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_02=0.00005" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.Q2.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_PEAN_Q2_G_2: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 2 iterations pour 'T' (T E [0,0.9999999999999]) et dans son cube, base sur un hypercube... # v $xiirv/PEAN.Q2.G.3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_Q2_G_3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB DiVeRs # # # # $Z set _____Lettre="G" # # $Z set _____FacteurDerivees=0 # # $m4 _____include(_____xiirv/.PEAN.Q2.1._____U) # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=3 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$DiVeRs$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_03=0.00002" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.Q2.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_PEAN_Q2_G_3: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 3 iterations pour 'T' (T E [0,0.99998000000072]) et dans son cube, base sur un hypercube... # v $xiirv/PEAN.Q2.G.4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_Q2_G_4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB DiVeRs # # # # $Z set _____Lettre="G" # # $Z set _____FacteurDerivees=0 # # $m4 _____include(_____xiirv/.PEAN.Q2.1._____U) # # # # $Z SET _____DefinitionCube=$EXIST # # $Z set _____NIteration=4 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$DiVeRs$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$DiVeRs$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" LISTE_Z=$DiVeRs$COORD_Z" # # $Z set _____Arguments="$_____Arguments"" pas_04=0.000005" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=0.56 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=0.4 # # $Z set _____ImageR=$xiirv/PEAN.Q2.$_____Lettre.$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.008) # # $Z set _____FRExtremites=2 # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=FAUX" # # # # $m4 _____include(_____xiirv/.PEAN.61._____U) # # $m4 _____include(_____xiirv/.PEAN.61.1._____U) # # # # $Z FilSTmpE DiVeRs # # # # :Fin_listG_PEAN_Q2_G_4: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1]x[0,1] avec # # 4 iterations pour 'T' (T E [0,0.99999500000232]) et dans son cube, base sur un hypercube... # v $xiirv/PEAN.R1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_R1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=1 # # # # $Z FilSTmpB VoNKoCh # # # # $Z $xigP/VonKoch.01$Z \ # # $Z $VoNKoCh 5 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$VoNKoCh$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$VoNKoCh$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_01=0.0002" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.R$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE VoNKoCh # # # # :Fin_listG_PEAN_R1: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 1 iteration pour 'T' (T E [0,0.99999999999992]) et dans son carre, basee sur une courbe # # de von Koch. # v $xiirv/PEAN.R2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_R2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=2 # # # # $Z FilSTmpB VoNKoCh # # # # $Z $xigP/VonKoch.01$Z \ # # $Z $VoNKoCh 5 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$VoNKoCh$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$VoNKoCh$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_02=0.0002" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.R$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE VoNKoCh # # # # :Fin_listG_PEAN_R2: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 2 iterations pour 'T' (T E [0,0.99999999999992]) et dans son carre, basee sur une courbe # # de von Koch. # v $xiirv/PEAN.R3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_R3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=3 # # # # $Z FilSTmpB VoNKoCh # # # # $Z $xigP/VonKoch.01$Z \ # # $Z $VoNKoCh 5 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$VoNKoCh$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$VoNKoCh$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_03=0.0001" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.R$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE VoNKoCh # # # # :Fin_listG_PEAN_R3: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 3 iterations pour 'T' (T E [0,0.99999999999991]) et dans son carre, basee sur une courbe # # de von Koch. # v $xiirv/PEAN.R4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_R4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=4 # # # # $Z FilSTmpB VoNKoCh # # # # $Z $xigP/VonKoch.01$Z \ # # $Z $VoNKoCh 5 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$VoNKoCh$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$VoNKoCh$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_04=0.00005" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.R$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE VoNKoCh # # # # :Fin_listG_PEAN_R4: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 4 iterations pour 'T' (T E [0,0.9999999999999]) et dans son carre, basee sur une courbe # # de von Koch. # v $xiirv/PEAN.R5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_R5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=5 # # # # $Z FilSTmpB VoNKoCh # # # # $Z $xigP/VonKoch.01$Z \ # # $Z $VoNKoCh 5 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$VoNKoCh$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$VoNKoCh$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_05=0.00005" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.R$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE VoNKoCh # # # # :Fin_listG_PEAN_R5: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 5 iterations pour 'T' (T E [0,0.9999999999999]) et dans son carre, basee sur une courbe # # de von Koch. # v $xiirv/PEAN.R6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_R6: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=6 # # # # $Z FilSTmpB VoNKoCh # # # # $Z $xigP/VonKoch.01$Z \ # # $Z $VoNKoCh 5 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$VoNKoCh$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$VoNKoCh$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_06=0.00002" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.R$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.002) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE VoNKoCh # # # # :Fin_listG_PEAN_R6: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 6 iterations pour 'T' (T E [0,0.99998000000072]) et dans son carre, basee sur une courbe # # de von Koch. # v $xiirv/PEAN.R7 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_R7: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=7 # # # # $Z FilSTmpB VoNKoCh # # # # $Z $xigP/VonKoch.01$Z \ # # $Z $VoNKoCh 5 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=VRAI" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$VoNKoCh$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$VoNKoCh$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_07=0.00001" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.R$_____NIteration # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.0015) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE VoNKoCh # # # # :Fin_listG_PEAN_R7: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 7 iterations pour 'T' (T E [0,0.99999999999808]) et dans son carre, basee sur une courbe # # de von Koch. # v $xiirv/PEAN.S1.AI332HJ # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_S1_AI332HJ: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=1 # # # # $Z FilSTmpB SPaRaDoXaLe # # $Z set _____Lettre="AI332HJ" # # # # $Z $xigP/Divers.02$Z \ # # $Z $SPaRaDoXaLe \ # # $Z $_____Lettre \ # # $Z 20 \ # # $Z 0 1 \ # # $Z 0 1 \ # # $Z Std 3 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=FAUX" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$SPaRaDoXaLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$SPaRaDoXaLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_01=0.0002" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.S$_____NIteration.$_____Lettre # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE SPaRaDoXaLe # # # # :Fin_listG_PEAN_S1_AI332HJ: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 1 iteration pour 'T' (T E [0,0.99999999999992]) et dans son carre, basee sur une structure # # paradoxale. # v $xiirv/PEAN.S2.AI332HJ # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_S2_AI332HJ: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=2 # # # # $Z FilSTmpB SPaRaDoXaLe # # $Z set _____Lettre="AI332HJ" # # # # $Z $xigP/Divers.02$Z \ # # $Z $SPaRaDoXaLe \ # # $Z $_____Lettre \ # # $Z 20 \ # # $Z 0 1 \ # # $Z 0 1 \ # # $Z Std 3 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=FAUX" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$SPaRaDoXaLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$SPaRaDoXaLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_02=0.0002" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.S$_____NIteration.$_____Lettre # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE SPaRaDoXaLe # # # # :Fin_listG_PEAN_S2_AI332HJ: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 2 iterations pour 'T' (T E [0,0.99999999999992]) et dans son carre, basee sur une structure # # paradoxale. # v $xiirv/PEAN.S3.AI332HJ # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_S3_AI332HJ: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=3 # # # # $Z FilSTmpB SPaRaDoXaLe # # $Z set _____Lettre="AI332HJ" # # # # $Z $xigP/Divers.02$Z \ # # $Z $SPaRaDoXaLe \ # # $Z $_____Lettre \ # # $Z 20 \ # # $Z 0 1 \ # # $Z 0 1 \ # # $Z Std 3 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=FAUX" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$SPaRaDoXaLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$SPaRaDoXaLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_03=0.0001" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.S$_____NIteration.$_____Lettre # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE SPaRaDoXaLe # # # # :Fin_listG_PEAN_S3_AI332HJ: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 3 iterations pour 'T' (T E [0,0.99999999999991]) et dans son carre, basee sur une structure # # paradoxale. # v $xiirv/PEAN.S4.AI332HJ # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_S4_AI332HJ: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=4 # # # # $Z FilSTmpB SPaRaDoXaLe # # $Z set _____Lettre="AI332HJ" # # # # $Z $xigP/Divers.02$Z \ # # $Z $SPaRaDoXaLe \ # # $Z $_____Lettre \ # # $Z 20 \ # # $Z 0 1 \ # # $Z 0 1 \ # # $Z Std 3 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=FAUX" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$SPaRaDoXaLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$SPaRaDoXaLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_04=0.00005" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.S$_____NIteration.$_____Lettre # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE SPaRaDoXaLe # # # # :Fin_listG_PEAN_S4_AI332HJ: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 4 iterations pour 'T' (T E [0,0.9999999999999]) et dans son carre, basee sur une structure # # paradoxale. # v $xiirv/PEAN.S5.AI332HJ # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_S5_AI332HJ: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=5 # # # # $Z FilSTmpB SPaRaDoXaLe # # $Z set _____Lettre="AI332HJ" # # # # $Z $xigP/Divers.02$Z \ # # $Z $SPaRaDoXaLe \ # # $Z $_____Lettre \ # # $Z 20 \ # # $Z 0 1 \ # # $Z 0 1 \ # # $Z Std 3 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=FAUX" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$SPaRaDoXaLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$SPaRaDoXaLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_05=0.00001" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.S$_____NIteration.$_____Lettre # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.0015) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE SPaRaDoXaLe # # # # :Fin_listG_PEAN_S5_AI332HJ: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 5 iterations pour 'T' (T E [0,0.99999999999808]) et dans son carre, basee sur une structure # # paradoxale. # v $xiirv/PEAN.T1.AJ332DC # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_T1_AJ332DC: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=1 # # # # $Z FilSTmpB SPaRaDoXaLe # # $Z set _____Lettre="AJ332DC" # # # # $Z $xigP/Divers.02$Z \ # # $Z $SPaRaDoXaLe \ # # $Z $_____Lettre \ # # $Z 20 \ # # $Z 0 1 \ # # $Z 0 1 \ # # $Z Std 4 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=FAUX" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$SPaRaDoXaLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$SPaRaDoXaLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_01=0.0002" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.T$_____NIteration.$_____Lettre # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE SPaRaDoXaLe # # # # :Fin_listG_PEAN_T1_AJ332DC: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 1 iteration pour 'T' (T E [0,0.99999999999992]) et dans son carre, basee sur une structure # # "labyrinthique". # v $xiirv/PEAN.T2.AJ332DC # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_T2_AJ332DC: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=2 # # # # $Z FilSTmpB SPaRaDoXaLe # # $Z set _____Lettre="AJ332DC" # # # # $Z $xigP/Divers.02$Z \ # # $Z $SPaRaDoXaLe \ # # $Z $_____Lettre \ # # $Z 20 \ # # $Z 0 1 \ # # $Z 0 1 \ # # $Z Std 4 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=FAUX" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$SPaRaDoXaLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$SPaRaDoXaLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_02=0.0002" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.T$_____NIteration.$_____Lettre # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE SPaRaDoXaLe # # # # :Fin_listG_PEAN_T2_AJ332DC: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 2 iterations pour 'T' (T E [0,0.99999999999992]) et dans son carre, basee sur une structure # # "labyrinthique". # v $xiirv/PEAN.T3.AJ332DC # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_T3_AJ332DC: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=3 # # # # $Z FilSTmpB SPaRaDoXaLe # # $Z set _____Lettre="AJ332DC" # # # # $Z $xigP/Divers.02$Z \ # # $Z $SPaRaDoXaLe \ # # $Z $_____Lettre \ # # $Z 20 \ # # $Z 0 1 \ # # $Z 0 1 \ # # $Z Std 4 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=FAUX" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$SPaRaDoXaLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$SPaRaDoXaLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_03=0.0001" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.T$_____NIteration.$_____Lettre # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE SPaRaDoXaLe # # # # :Fin_listG_PEAN_T3_AJ332DC: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 3 iterations pour 'T' (T E [0,0.99999999999991]) et dans son carre, basee sur une structure # # "labyrinthique". # v $xiirv/PEAN.T4.AJ332DC # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_T4_AJ332DC: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=4 # # # # $Z FilSTmpB SPaRaDoXaLe # # $Z set _____Lettre="AJ332DC" # # # # $Z $xigP/Divers.02$Z \ # # $Z $SPaRaDoXaLe \ # # $Z $_____Lettre \ # # $Z 20 \ # # $Z 0 1 \ # # $Z 0 1 \ # # $Z Std 4 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=FAUX" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$SPaRaDoXaLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$SPaRaDoXaLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_04=0.00005" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.T$_____NIteration.$_____Lettre # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.003) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE SPaRaDoXaLe # # # # :Fin_listG_PEAN_T4_AJ332DC: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 4 iterations pour 'T' (T E [0,0.9999999999999]) et dans son carre, basee sur une structure # # "labyrinthique". # v $xiirv/PEAN.T5.AJ332DC # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PEAN_T5_AJ332DC: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$EXIST # # $Z set _____NIteration=5 # # # # $Z FilSTmpB SPaRaDoXaLe # # $Z set _____Lettre="AJ332DC" # # # # $Z $xigP/Divers.02$Z \ # # $Z $SPaRaDoXaLe \ # # $Z $_____Lettre \ # # $Z 20 \ # # $Z 0 1 \ # # $Z 0 1 \ # # $Z Std 4 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" listes_quelconques=VRAI" # # $Z set _____Arguments="$_____Arguments"" ilq=FAUX" # # $Z set _____Arguments="$_____Arguments"" ne=0" # # $Z set _____Arguments="$_____Arguments"" LISTE_X=$SPaRaDoXaLe$COORD_X" # # $Z set _____Arguments="$_____Arguments"" LISTE_Y=$SPaRaDoXaLe$COORD_Y" # # $Z set _____Arguments="$_____Arguments"" pas_05=0.00001" # # # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M2 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/PEAN.T$_____NIteration.$_____Lettre # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.0015) # # # # $m4 _____include(_____xiirv/.PEAN.31._____U) # # # # $Z FilSTmpE SPaRaDoXaLe # # # # :Fin_listG_PEAN_T5_AJ332DC: # # # # # # qui montre une courbe de Surjection de Peano de [0,1] dans [0,1]x[0,1] avec # # 5 iterations pour 'T' (T E [0,0.99999999999808]) et dans son carre, basee sur une structure # # "labyrinthique". # v $xiirv/PERA.11.02 p=$xiP/cercle.35 v $xiirv/PERA.11.03 p=$xiP/cercle.35 v $xiirv/PERA.11.04 p=$xiP/cercle.35 v $xiirv/PERA.11.05 p=$xiP/cercle.35 v $xiirv/PERA.11.06 p=$xiP/cercle.35 v $xiirv/PERA.11.07 p=$xiP/cercle.35 v $xiirv/PERA.11.08 p=$xiP/cercle.35 v $xiirv/PERA.11.09 p=$xiP/cercle.35 v $xiirv/PERA.11.10 p=$xiP/cercle.35 v $xiirv/PERA.11.11 p=$xiP/cercle.35 v $xiirv/PERA.11.12 p=$xiP/cercle.35 v $xiirv/PERA.11.13 p=$xiP/cercle.35 v $xiirv/PERA.11.14 p=$xiP/cercle.35 v $xiirv/PERA.11.15 p=$xiP/cercle.35 v $xiirv/PERA.11.16 p=$xiP/cercle.35 v $xiirv/PERA.11.17 p=$xiP/cercle.35 v $xiirv/PERA.11 p=$xiP/cercle.35 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_PERA_11: # # # # $Z Sud # # # # $Z set _____ImageR=$xiirv/PERA.11 # # # # $Z @ NoMbReHV = 4 # # $Z @ NoMbRe = $NoMbReHV * $NoMbReHV # # $Z @ PrEmIeRe = 2 # # $Z @ DeRnIeRe = $PrEmIeRe + $NoMbRe # # $Z set NcHif=2 # # $Z set LBaSe=`$xci/nombres$X p=$PrEmIeRe d=$DeRnIeRe chiffres=$NcHif` # # # # $Z foreach BaSe ($LBaSe) # # $Z set _____Additive=VRAI # # $Z set _____Base=$BaSe # # $Z set _____Renormaliser=VRAI # # # # Renormalisation locale... # # # # $Z set _____ImagesR=$_____ImageR.$_____Base # # $m4 _____include(_____xiirv/.PERS.11.1._____U) # # $Z end # # # # $Z $xci/regroupe.02$Z \ # # $Z $_____ImageR. \ # # $Z $_____ImageR \ # # $Z $PrEmIeRe 1 \ # # $Z $NoMbReHV $NoMbReHV \ # # $Z "$K_VIDE" \ # # $Z "$formatR_Sdu" \ # # $Z $NcHif \ # # $Z FAUX # # # # :Fin_listG_PERA_11: # # # # # # qui montre la persistance additive en bases {2,3,...,16,17} avec renormalisation # # faite pour les 16 images independamment les unes des autres... # v $xiirv/PERA.12 p=$xiP/cercle.35 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_PERA_12: # # # # $Z Sud # # # # $Z set _____ImageR=$xiirv/PERA.12 # # $Z set _____ImagesRT=$xTV/PERA.12 # # # # $Z @ NoMbReHV = 4 # # $Z @ NoMbRe = $NoMbReHV * $NoMbReHV # # $Z @ PrEmIeRe = 2 # # $Z @ DeRnIeRe = $PrEmIeRe + $NoMbRe # # $Z set NcHif=2 # # $Z set LBaSe=`$xci/nombres$X p=$PrEmIeRe d=$DeRnIeRe chiffres=$NcHif` # # # # $Z foreach BaSe ($LBaSe) # # $Z set _____Additive=VRAI # # $Z set _____Base=$BaSe # # $Z set _____Renormaliser=FAUX # # $Z set _____ImagesR=$_____ImagesRT.$_____Base # # $m4 _____include(_____xiirv/.PERS.11.1._____U) # # $Z end # # # # $Z $xci/regroupe.02$Z \ # # $Z $_____ImagesRT. \ # # $Z $_____ImageR \ # # $Z $PrEmIeRe 1 \ # # $Z $NoMbReHV $NoMbReHV \ # # $Z "$K_VIDE" \ # # $Z "$formatR_Sdu" \ # # $Z $NcHif \ # # $Z FAUX # # # # $Z Sdu # # # # $Z $xci/acces$X \ # # $Z A=$_____ImageR \ # # $Z renormaliser=VRAI \ # # # # Renormalisation globale... # # # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_PERA_12: # # # # # # qui montre la persistance additive en bases {2,3,...,16,17} avec renormalisation # # faite pour les 16 images globalement... # v $xiirv/PERM.11.02 p=$xiP/cercle.35 v $xiirv/PERM.11.03 p=$xiP/cercle.35 v $xiirv/PERM.11.04 p=$xiP/cercle.35 v $xiirv/PERM.11.05 p=$xiP/cercle.35 v $xiirv/PERM.11.06 p=$xiP/cercle.35 v $xiirv/PERM.11.07 p=$xiP/cercle.35 v $xiirv/PERM.11.08 p=$xiP/cercle.35 v $xiirv/PERM.11.09 p=$xiP/cercle.35 v $xiirv/PERM.11.10 p=$xiP/cercle.35 v $xiirv/PERM.11.11 p=$xiP/cercle.35 v $xiirv/PERM.11.12 p=$xiP/cercle.35 v $xiirv/PERM.11.13 p=$xiP/cercle.35 v $xiirv/PERM.11.14 p=$xiP/cercle.35 v $xiirv/PERM.11.15 p=$xiP/cercle.35 v $xiirv/PERM.11.16 p=$xiP/cercle.35 v $xiirv/PERM.11.17 p=$xiP/cercle.35 v $xiirv/PERM.11 p=$xiP/cercle.35 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_PERM_11: # # # # $Z Sud # # # # $Z set _____ImageR=$xiirv/PERM.11 # # # # $Z @ NoMbReHV = 4 # # $Z @ NoMbRe = $NoMbReHV * $NoMbReHV # # $Z @ PrEmIeRe = 2 # # $Z @ DeRnIeRe = $PrEmIeRe + $NoMbRe # # $Z set NcHif=2 # # $Z set LBaSe=`$xci/nombres$X p=$PrEmIeRe d=$DeRnIeRe chiffres=$NcHif` # # # # $Z foreach BaSe ($LBaSe) # # $Z set _____Additive=FAUX # # $Z set _____Base=$BaSe # # $Z set _____Renormaliser=VRAI # # # # Renormalisation locale... # # # # $Z set _____ImagesR=$_____ImageR.$_____Base # # $m4 _____include(_____xiirv/.PERS.11.1._____U) # # $Z end # # # # $Z $xci/regroupe.02$Z \ # # $Z $_____ImageR. \ # # $Z $_____ImageR \ # # $Z $PrEmIeRe 1 \ # # $Z $NoMbReHV $NoMbReHV \ # # $Z "$K_VIDE" \ # # $Z "$formatR_Sdu" \ # # $Z $NcHif \ # # $Z FAUX # # # # :Fin_listG_PERM_11: # # # # # # qui montre la persistance multiplicative en bases {2,3,...,16,17} avec renormalisation # # faite pour les 16 images independamment les unes des autres... # v $xiirv/PERM.12 p=$xiP/cercle.35 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_PERM_12: # # # # $Z Sud # # # # $Z set _____ImageR=$xiirv/PERM.12 # # $Z set _____ImagesRT=$xTV/PERM.12 # # # # $Z @ NoMbReHV = 4 # # $Z @ NoMbRe = $NoMbReHV * $NoMbReHV # # $Z @ PrEmIeRe = 2 # # $Z @ DeRnIeRe = $PrEmIeRe + $NoMbRe # # $Z set NcHif=2 # # $Z set LBaSe=`$xci/nombres$X p=$PrEmIeRe d=$DeRnIeRe chiffres=$NcHif` # # # # $Z foreach BaSe ($LBaSe) # # $Z set _____Additive=FAUX # # $Z set _____Base=$BaSe # # $Z set _____Renormaliser=FAUX # # $Z set _____ImagesR=$_____ImagesRT.$_____Base # # $m4 _____include(_____xiirv/.PERS.11.1._____U) # # $Z end # # # # $Z $xci/regroupe.02$Z \ # # $Z $_____ImagesRT. \ # # $Z $_____ImageR \ # # $Z $PrEmIeRe 1 \ # # $Z $NoMbReHV $NoMbReHV \ # # $Z "$K_VIDE" \ # # $Z "$formatR_Sdu" \ # # $Z $NcHif \ # # $Z FAUX # # # # $Z Sdu # # # # $Z $xci/acces$X \ # # $Z A=$_____ImageR \ # # $Z renormaliser=VRAI \ # # # # Renormalisation globale... # # # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_PERM_12: # # # # # # qui montre la persistance additive en bases {2,3,...,16,17} avec renormalisation # # faite pour les 16 images globalement... # v $xiirv/PERM.21.02 p=$xiP/masque v $xiirv/PERM.21.03 p=$xiP/masque v $xiirv/PERM.21.04 p=$xiP/masque v $xiirv/PERM.21.05 p=$xiP/masque v $xiirv/PERM.21.06 p=$xiP/masque v $xiirv/PERM.21.07 p=$xiP/masque v $xiirv/PERM.21.08 p=$xiP/masque v $xiirv/PERM.21.09 p=$xiP/masque v $xiirv/PERM.21.10 p=$xiP/masque v $xiirv/PERM.21.11 p=$xiP/masque v $xiirv/PERM.21.12 p=$xiP/masque v $xiirv/PERM.21.13 p=$xiP/masque v $xiirv/PERM.21.14 p=$xiP/masque v $xiirv/PERM.21.15 p=$xiP/masque v $xiirv/PERM.21.16 p=$xiP/masque v $xiirv/PERM.21.17 p=$xiP/masque v $xiirv/PERM.21 p=$xiP/masque # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PERM_21: # # # # $Z Sud # # # # $Z set _____ImageR=$xiirv/PERM.21 # # # # $Z @ NoMbReHV = 4 # # $Z @ NoMbRe = $NoMbReHV * $NoMbReHV # # $Z @ PrEmIeRe = 2 # # $Z @ DeRnIeRe = $PrEmIeRe + $NoMbRe # # $Z set NcHif=2 # # $Z set LBaSe=`$xci/nombres$X p=$PrEmIeRe d=$DeRnIeRe chiffres=$NcHif` # # # # $Z foreach BaSe ($LBaSe) # # $Z set _____Additive=FAUX # # $Z set _____Base=$BaSe # # $Z set _____Maximum=0 # # $Z set _____Persistance=FAUX # # $Z set _____ImagesR=$_____ImageR.$_____Base # # $m4 _____include(_____xiirv/.PERS.11.1._____U) # # $Z end # # # # $Z $xci/regroupe.02$Z \ # # $Z $_____ImageR. \ # # $Z $_____ImageR \ # # $Z $PrEmIeRe 1 \ # # $Z $NoMbReHV $NoMbReHV \ # # $Z "$K_VIDE" \ # # $Z "$formatR_Sdu" \ # # $Z $NcHif \ # # $Z FAUX # # # # :Fin_listG_PERM_21: # # # # # # qui montre les nombres possedant au moins un 0 en bases {2,3,...,16,17}. # v $xiirv/PERM.22.06 p=$xiP/masque v $xiirv/PERM.22.07 p=$xiP/masque v $xiirv/PERM.22.08 p=$xiP/masque v $xiirv/PERM.22.09 p=$xiP/masque v $xiirv/PERM.22.10 p=$xiP/masque v $xiirv/PERM.22.11 p=$xiP/masque v $xiirv/PERM.22.12 p=$xiP/masque v $xiirv/PERM.22.13 p=$xiP/masque v $xiirv/PERM.22.14 p=$xiP/masque v $xiirv/PERM.22.15 p=$xiP/masque v $xiirv/PERM.22.16 p=$xiP/masque v $xiirv/PERM.22.17 p=$xiP/masque v $xiirv/PERM.22.18 p=$xiP/masque v $xiirv/PERM.22.19 p=$xiP/masque v $xiirv/PERM.22.20 p=$xiP/masque v $xiirv/PERM.22.21 p=$xiP/masque v $xiirv/PERM.22 p=$xiP/masque v $xiirv/PERM.22$m # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PERM_22: # # # # $Z Sud # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/PERM.22 # # # # $Z @ NoMbReHV = 4 # # $Z @ NoMbRe = $NoMbReHV * $NoMbReHV # # $Z @ PrEmIeRe = 6 # # $Z @ DeRnIeRe = $PrEmIeRe + $NoMbRe # # $Z set NcHif=2 # # $Z set LBaSe=`$xci/nombres$X p=$PrEmIeRe d=$DeRnIeRe chiffres=$NcHif` # # # # $Z foreach BaSe ($LBaSe) # # $Z set _____Additive=FAUX # # $Z set _____Base=$BaSe # # $Z set _____Maximum=0 # # $Z set _____Persistance=FAUX # # $Z set _____ImagesR=$_____ImageR.$_____Base # # $m4 _____include(_____xiirv/.PERS.11.1._____U) # # $Z end # # # # $Z $xci/regroupe.02$Z \ # # $Z $_____ImageR. \ # # $Z $_____ImageR \ # # $Z $PrEmIeRe 1 \ # # $Z $NoMbReHV $NoMbReHV \ # # $Z "$K_VIDE" \ # # $Z "$formatR_Sdu" \ # # $Z $NcHif \ # # $Z FAUX # # # # $Z Sdu # # # # $Z $xci/gauss$X \ # # $Z c=4 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/filtre.01$X \ # # $Z A=$_____ImageR \ # # $Z N=$xTV/GAUSS \ # # $Z seuil=220 \ # # $Z R=$xTV/FILTRE.1 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/FILTRE.1 \ # # $Z p=$xiP/fractal.32 \ # # $Z R=$xTV/FILTRE.1 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/FILTRE.1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=1000 \ # # $Z normaliser=VRAI \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/FILTRE.1%s \ # # $Z avion=VRAI \ # # $Z Sy=40 \ # # $Z R=$_____ImageR$m%s \ # # $Z $formatI # # # # :Fin_listG_PERM_22: # # # # # # qui montre les nombres possedant au moins un 0 en bases {6,7,...,20,21}. # v $xiirv/PGUN.11 p=$xiP/noir_rouge_vert # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PGUN_11: # # # # $Z Std # # # # $Z set _____ImageR=$xiirv/PGUN.11 # # # # $Z setenv xTV $xTG # # # # $Z $xci/random.02$X \ # # $Z seuil=0.1 \ # # $Z R=$xTV/CARRE__RDN \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z seuil=34 \ # # $Z R=$xTV/DISQUE \ # # $Z $formatI # # $Z $xci/and$X \ # # $Z A1=$xTV/DISQUE \ # # $Z A2=$xTV/CARRE__RDN \ # # $Z R=$xTV/DISQUE_RDN \ # # $Z $formatI # # # # $Z set ArGs="origine=$BLANC extremite=$BLANC Prme=VRAI" # # $Z set CaRrE_=`$xci/comptage$X A=$xTV/CARRE__RDN $ArGs $formatI` # # $Z set DiSqUe=`$xci/comptage$X A=$xTV/DISQUE_RDN $ArGs $formatI` # # $Z set CaLcUl=`calcul 4*($DiSqUe/$CaRrE_)` # # $Z saut # # $Z echo "pi ~ $CaLcUl" # # $Z echo "(avec `calcul $DiSqUe+$CaRrE_` points dont $DiSqUe verts)" # # $Z saut # # # # $Z $xci/eor$X \ # # $Z A1=$xTV/DISQUE_RDN \ # # $Z A2=$xTV/CARRE__RDN \ # # $Z $formatI | \ # # $Z $xci/scale$X \ # # $Z a=0.01 \ # # $Z b=$GRIS_0 \ # # $Z R=$xTV/CARRE__RDN \ # # $Z $formatI # # # # $Z $xci/scale$X \ # # $Z A=$xTV/DISQUE_RDN \ # # $Z a=0.99 \ # # $Z b=$GRIS_0 \ # # $Z $formatI | \ # # $Z $xci/and$X \ # # $Z A1=$xTV/DISQUE \ # # $Z $formatI | \ # # $Z $xci/or_02$X \ # # $Z A1=$xTV/CARRE__RDN \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=4 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_PGUN_11: # # # # # # qui montre le calcul de 'pi' avec un "fusil" (avec 47103 points dont 20692 verts) : # # # # pi ~ 3.133845746090644 # # # # # # Au passage, 'v $xiirv/PGUN.11' est la premiere image calculee sur '$LACT1B'... # v $xiirv/PIAL.31 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIAL_31: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=120 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille=20 # # $Z set _____ImageR=$xiirv/PIAL.31 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # :Fin_listG_PIAL_31: # # # # # # qui montre les 120 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par une structure paradoxale... # v $xiirv/PIAL.32 p=$xiP/Atlan.11 v $xiirv/PIAL.32 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_32: # # # # $Z Squ # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=500 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille=20 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.32 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/Atlan.11 # # $Z set _____ImageR=$xiirv/PIAL.32 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # :Fin_listG_PIAL_32: # # # # # # qui montre les 500 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par une structure paradoxale... # v $xiirv/PIAL.33 p=$xiP/random.A5 v $xiirv/PIAL.33 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_33: # # # # $Z Squ # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=500 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille=20 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.33 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/random.A5 # # $Z set _____ImageR=$xiirv/PIAL.33 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # :Fin_listG_PIAL_33: # # # # # # qui montre les 500 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par une structure paradoxale... # v $xiirv/PIAL.34 p=$xiP/lignes.11 v $xiirv/PIAL.34 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_34: # # # # $Z Squ # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=500 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille=20 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.34 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/lignes.11 # # $Z set _____ImageR=$xiirv/PIAL.34 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # :Fin_listG_PIAL_34: # # # # # # qui montre les 500 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par une structure paradoxale... # v $xiirv/PIAL.35 p=$xiP/orange.11 v $xiirv/PIAL.35 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_35: # # # # $Z Squ # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=500 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille=20 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.35 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/orange.11 # # $Z set _____ImageR=$xiirv/PIAL.35 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # :Fin_listG_PIAL_35: # # # # # # qui montre les 500 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par une structure paradoxale... # v $xiirv/PIAL.39 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_39: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=120 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille1=20 # # $Z set _____Taille=$_____Taille1 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.39.1 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/inter.02.13 # # $Z set _____ImageR=$xTV/PIAL.39.2 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # $Z $DELETE $_____ImageR # # # # $Z unset _____Alphabet # # # # $Z set _____ImageR=$xTV/PIAL.39.3 # # $Z set _____Taille2=5 # # $Z @ ItErAtIoNs = $_____Taille1 / $_____Taille2 # # $Z set _____TranslationX="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationX="$_____TranslationX""MMM"' # # $Z set _____TranslationY="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationY="$_____TranslationY""NNN"' # # # # ATTENTION : dans le Bibliotheque=3, les blocs sont 6x6, d'ou le choix que '$_____Taille2' # # divise '$_____Taille1' afin de pouvoir utiliser "MMM" "NNN"... # # # # $Z set _____Bibliotheque=6 # # $Z set _____Taille=$_____Taille2 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____Lisere=VRAI # # # # $Z FilSTmpB _____Spirale # # # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageR=$xiirv/PIAL.39 # # # # $Z set _____PIAL_n9=$xTV/PIAL.39 # # $m4 _____include(_____xiirv/.PIAL.39.1._____U) # # $m4 _____include(_____xiirv/.PIAL.39.2._____U) # # # # $Z FilSTmpE _____Spirale # # # # :Fin_listG_PIAL_39: # # # # # # qui montre les 120 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par une structure paradoxale... # v $xiirv/PIAL.41 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIAL_41: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=180 # # $Z set _____Bibliotheque=4 # # $Z set _____Taille=20 # # $Z set _____ImageR=$xiirv/PIAL.41 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # :Fin_listG_PIAL_41: # # # # # # qui montre les 180 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par un labyrinthe... # v $xiirv/PIAL.42 p=$xiP/random.93 v $xiirv/PIAL.42 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_42: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=180 # # $Z set _____Bibliotheque=4 # # $Z set _____Taille=20 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.42 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/random.93 # # $Z set _____ImageR=$xiirv/PIAL.42 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # :Fin_listG_PIAL_42: # # # # # # qui montre les 180 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par un labyrinthe... # v $xiirv/PIAL.49 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_49: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=180 # # $Z set _____Bibliotheque=4 # # $Z set _____Taille1=20 # # $Z set _____Taille=$_____Taille1 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.49.1 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/inter.02.13 # # $Z set _____ImageR=$xTV/PIAL.49.2 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # $Z $DELETE $_____ImageR # # # # $Z unset _____Alphabet # # # # $Z set _____ImageR=$xTV/PIAL.49.3 # # $Z set _____Taille2=5 # # $Z @ ItErAtIoNs = $_____Taille1 / $_____Taille2 / 2 # # $Z set _____TranslationX="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationX="$_____TranslationX""MM"' # # $Z repeat $ItErAtIoNs eval 'set _____TranslationX="$_____TranslationX""MMM"' # # $Z set _____TranslationY="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationY="$_____TranslationY""NN"' # # $Z repeat $ItErAtIoNs eval 'set _____TranslationY="$_____TranslationY""NNN"' # # # # ATTENTION : dans le Bibliotheque=4, les blocs sont 5x5, d'ou le choix que '$ItErAtIoNs' # # soit pair afin de pouvoir alterner de facon equilibree "MM" et "MMM", de meme que "NN" # # et "NNN"... # # # # $Z set _____Bibliotheque=6 # # $Z set _____Taille=$_____Taille2 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____Lisere=VRAI # # # # $Z FilSTmpB _____Spirale # # # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageR=$xiirv/PIAL.49 # # # # $Z set _____PIAL_n9=$xTV/PIAL.49 # # $m4 _____include(_____xiirv/.PIAL.39.1._____U) # # $m4 _____include(_____xiirv/.PIAL.39.2._____U) # # # # $Z FilSTmpE _____Spirale # # # # :Fin_listG_PIAL_49: # # # # # # qui montre les 180 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par une structure paradoxale... # v $xiirv/PIAL.52.pi p=$xiP/Atlan.11 v $xiirv/PIAL.52.pi # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_52_pi: # # # # $Z Squ # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=500 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille=20 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.52.pi # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/Atlan.11 # # $Z set _____ImageR=$xiirv/PIAL.52.pi # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # :Fin_listG_PIAL_52_pi: # # # # # # qui montre les 500 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par une structure paradoxale... # v $xiirv/PIAL.52.pi$IdM p=$xiP/Atlan.11 v $xiirv/PIAL.52.pi$IdM # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_52_pi_IdM: # # # # $Z TvB # # $Z XYmaxNe $Xmax $Xmax # # # # A cause de 'v $xci/message$K VALIDATION_DES_DIMENSIONS_DES_IMAGES', l'image generee doit # # etre carree... # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=1000 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille=20 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.52.pi # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/Atlan.11 # # $Z set _____ImageR=$xiirv/PIAL.52.pi$IdM # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # $Z set _____ImageA=$_____ImageR # # $Z set _____ImageR=$_____ImageA # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImageA%s \ # # $Z $formatI \ # # $Z mode=7 \ # # $Z R=$_____ImageR%s \ # # $Z $formatR_TvB # # # # :Fin_listG_PIAL_52_pi_IdM: # # # v $xiirv/PIAL.59.pi # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_59_pi: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=120 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille1=20 # # $Z set _____Taille=$_____Taille1 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.59.pi.1 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/random.11 # # $Z set _____ImageR=$xTV/PIAL.59.pi.2 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # $Z $DELETE $_____ImageR # # # # $Z unset _____Alphabet # # # # $Z set _____ImageR=$xTV/PIAL.59.pi.3 # # $Z set _____Taille2=5 # # $Z @ ItErAtIoNs = $_____Taille1 / $_____Taille2 # # $Z set _____TranslationX="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationX="$_____TranslationX""MMM"' # # $Z set _____TranslationY="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationY="$_____TranslationY""NNN"' # # # # ATTENTION : dans le Bibliotheque=3, les blocs sont 6x6, d'ou le choix que '$_____Taille2' # # divise '$_____Taille1' afin de pouvoir utiliser "MMM" "NNN"... # # # # $Z set _____Bibliotheque=6 # # $Z set _____Taille=$_____Taille2 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____Lisere=VRAI # # # # $Z FilSTmpB _____Spirale # # # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageR=$xiirv/PIAL.59.pi # # # # $Z set _____PIAL_n9=$xTV/PIAL.59.pi # # $m4 _____include(_____xiirv/.PIAL.39.1._____U) # # $m4 _____include(_____xiirv/.PIAL.39.2._____U) # # # # $Z FilSTmpE _____Spirale # # # # :Fin_listG_PIAL_59_pi: # # # # # # qui montre les 120 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par une structure paradoxale... # v $xiirv/PIAL.52.pi_sur_2 p=$xiP/cercle.11 v $xiirv/PIAL.52.pi_sur_2 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_52_pi_sur_2: # # # # $Z Squ # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_PiSur2 # # $Z set _____NChiffres=500 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille=20 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.52.pi_sur_2 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/cercle.11 # # $Z set _____ImageR=$xiirv/PIAL.52.pi_sur_2 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # :Fin_listG_PIAL_52_pi_sur_2: # # # # # # qui montre les 500 premieres decimales en base 10 de 'pi/2' comme une spirale carree # # materialisee par une structure paradoxale... # v $xiirv/PIAL.59.pi_sur_2 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_59_pi_sur_2: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_PiSur2 # # $Z set _____NChiffres=120 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille1=20 # # $Z set _____Taille=$_____Taille1 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.59.pi_sur_2.1 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/random.86 # # $Z set _____ImageR=$xTV/PIAL.59.pi_sur_2.2 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # $Z $DELETE $_____ImageR # # # # $Z unset _____Alphabet # # # # $Z set _____ImageR=$xTV/PIAL.59.pi_sur_2.3 # # $Z set _____Taille2=5 # # $Z @ ItErAtIoNs = $_____Taille1 / $_____Taille2 # # $Z set _____TranslationX="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationX="$_____TranslationX""MMM"' # # $Z set _____TranslationY="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationY="$_____TranslationY""NNN"' # # # # ATTENTION : dans le Bibliotheque=3, les blocs sont 6x6, d'ou le choix que '$_____Taille2' # # divise '$_____Taille1' afin de pouvoir utiliser "MMM" "NNN"... # # # # $Z set _____Bibliotheque=6 # # $Z set _____Taille=$_____Taille2 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____Lisere=VRAI # # # # $Z FilSTmpB _____Spirale # # # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageR=$xiirv/PIAL.59.pi_sur_2 # # # # $Z set _____PIAL_n9=$xTV/PIAL.59.pi_sur_2 # # $m4 _____include(_____xiirv/.PIAL.39.1._____U) # # $m4 _____include(_____xiirv/.PIAL.39.2._____U) # # # # $Z FilSTmpE _____Spirale # # # # :Fin_listG_PIAL_59_pi_sur_2: # # # # # # qui montre les 120 premieres decimales en base 10 de 'pi/2' comme une spirale carree # # materialisee par une structure paradoxale... # v $xiirv/PIAL.52.pi_sur_3 p=$xiP/firtech.11 v $xiirv/PIAL.52.pi_sur_3 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_52_pi_sur_3: # # # # $Z Squ # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_PiSur3 # # $Z set _____NChiffres=500 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille=20 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.52.pi_sur_3 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/firtech.11 # # $Z set _____ImageR=$xiirv/PIAL.52.pi_sur_3 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # :Fin_listG_PIAL_52_pi_sur_3: # # # # # # qui montre les 500 premieres decimales en base 10 de 'pi/3' comme une spirale carree # # materialisee par une structure paradoxale... # v $xiirv/PIAL.59.pi_sur_3 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_59_pi_sur_3: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_PiSur3 # # $Z set _____NChiffres=120 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille1=20 # # $Z set _____Taille=$_____Taille1 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.59.pi_sur_3.1 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/random.91$Fi # # $Z set _____ImageR=$xTV/PIAL.59.pi_sur_3.2 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # $Z $DELETE $_____ImageR # # # # $Z unset _____Alphabet # # # # $Z set _____ImageR=$xTV/PIAL.59.pi_sur_3.3 # # $Z set _____Taille2=5 # # $Z @ ItErAtIoNs = $_____Taille1 / $_____Taille2 # # $Z set _____TranslationX="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationX="$_____TranslationX""MMM"' # # $Z set _____TranslationY="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationY="$_____TranslationY""NNN"' # # # # ATTENTION : dans le Bibliotheque=3, les blocs sont 6x6, d'ou le choix que '$_____Taille2' # # divise '$_____Taille1' afin de pouvoir utiliser "MMM" "NNN"... # # # # $Z set _____Bibliotheque=6 # # $Z set _____Taille=$_____Taille2 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____Lisere=VRAI # # # # $Z FilSTmpB _____Spirale # # # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageR=$xiirv/PIAL.59.pi_sur_3 # # # # $Z set _____PIAL_n9=$xTV/PIAL.59.pi_sur_3 # # $m4 _____include(_____xiirv/.PIAL.39.1._____U) # # $m4 _____include(_____xiirv/.PIAL.39.2._____U) # # # # $Z FilSTmpE _____Spirale # # # # :Fin_listG_PIAL_59_pi_sur_3: # # # # # # qui montre les 120 premieres decimales en base 10 de 'pi/3' comme une spirale carree # # materialisee par une structure paradoxale... # v $xiirv/PIAL.52.pi_sur_4 p=$xiP/lignes.11 v $xiirv/PIAL.52.pi_sur_4 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_52_pi_sur_4: # # # # $Z Squ # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_PiSur4 # # $Z set _____NChiffres=500 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille=20 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.52.pi_sur_4 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/lignes.11 # # $Z set _____ImageR=$xiirv/PIAL.52.pi_sur_4 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # :Fin_listG_PIAL_52_pi_sur_4: # # # # # # qui montre les 500 premieres decimales en base 10 de 'pi/4' comme une spirale carree # # materialisee par une structure paradoxale... # v $xiirv/PIAL.59.pi_sur_4 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_59_pi_sur_4: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_PiSur4 # # $Z set _____NChiffres=120 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille1=20 # # $Z set _____Taille=$_____Taille1 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.59.pi_sur_4.1 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/random.97 # # $Z set _____ImageR=$xTV/PIAL.59.pi_sur_4.2 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # $Z $DELETE $_____ImageR # # # # $Z unset _____Alphabet # # # # $Z set _____ImageR=$xTV/PIAL.59.pi_sur_4.3 # # $Z set _____Taille2=5 # # $Z @ ItErAtIoNs = $_____Taille1 / $_____Taille2 # # $Z set _____TranslationX="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationX="$_____TranslationX""MMM"' # # $Z set _____TranslationY="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationY="$_____TranslationY""NNN"' # # # # ATTENTION : dans le Bibliotheque=3, les blocs sont 6x6, d'ou le choix que '$_____Taille2' # # divise '$_____Taille1' afin de pouvoir utiliser "MMM" "NNN"... # # # # $Z set _____Bibliotheque=6 # # $Z set _____Taille=$_____Taille2 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____Lisere=VRAI # # # # $Z FilSTmpB _____Spirale # # # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageR=$xiirv/PIAL.59.pi_sur_4 # # # # $Z set _____PIAL_n9=$xTV/PIAL.59.pi_sur_4 # # $m4 _____include(_____xiirv/.PIAL.39.1._____U) # # $m4 _____include(_____xiirv/.PIAL.39.2._____U) # # # # $Z FilSTmpE _____Spirale # # # # :Fin_listG_PIAL_59_pi_sur_4: # # # # # # qui montre les 120 premieres decimales en base 10 de 'pi/4' comme une spirale carree # # materialisee par une structure paradoxale... # v $xiirv/PIAL.52.pi_sur_5 p=$xiP/marron.11 v $xiirv/PIAL.52.pi_sur_5 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_52_pi_sur_5: # # # # $Z Squ # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_PiSur5 # # $Z set _____NChiffres=500 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille=20 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.52.pi_sur_5 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/marron.11 # # $Z set _____ImageR=$xiirv/PIAL.52.pi_sur_5 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # :Fin_listG_PIAL_52_pi_sur_5: # # # # # # qui montre les 500 premieres decimales en base 10 de 'pi/5' comme une spirale carree # # materialisee par une structure paradoxale... # v $xiirv/PIAL.59.pi_sur_5 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_59_pi_sur_5: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_PiSur5 # # $Z set _____NChiffres=120 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille1=20 # # $Z set _____Taille=$_____Taille1 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.59.pi_sur_5.1 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/random.F5 # # $Z set _____ImageR=$xTV/PIAL.59.pi_sur_5.2 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # $Z $DELETE $_____ImageR # # # # $Z unset _____Alphabet # # # # $Z set _____ImageR=$xTV/PIAL.59.pi_sur_5.3 # # $Z set _____Taille2=5 # # $Z @ ItErAtIoNs = $_____Taille1 / $_____Taille2 # # $Z set _____TranslationX="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationX="$_____TranslationX""MMM"' # # $Z set _____TranslationY="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationY="$_____TranslationY""NNN"' # # # # ATTENTION : dans le Bibliotheque=3, les blocs sont 6x6, d'ou le choix que '$_____Taille2' # # divise '$_____Taille1' afin de pouvoir utiliser "MMM" "NNN"... # # # # $Z set _____Bibliotheque=6 # # $Z set _____Taille=$_____Taille2 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____Lisere=VRAI # # # # $Z FilSTmpB _____Spirale # # # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageR=$xiirv/PIAL.59.pi_sur_5 # # # # $Z set _____PIAL_n9=$xTV/PIAL.59.pi_sur_5 # # $m4 _____include(_____xiirv/.PIAL.39.1._____U) # # $m4 _____include(_____xiirv/.PIAL.39.2._____U) # # # # $Z FilSTmpE _____Spirale # # # # :Fin_listG_PIAL_59_pi_sur_5: # # # # # # qui montre les 120 premieres decimales en base 10 de 'pi/5' comme une spirale carree # # materialisee par une structure paradoxale... # v $xiirv/PIAL.52.pi_sur_6 p=$xiP/orange.11 v $xiirv/PIAL.52.pi_sur_6 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_52_pi_sur_6: # # # # $Z Squ # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_PiSur6 # # $Z set _____NChiffres=500 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille=20 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.52.pi_sur_6 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/orange.11 # # $Z set _____ImageR=$xiirv/PIAL.52.pi_sur_6 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # :Fin_listG_PIAL_52_pi_sur_6: # # # # # # qui montre les 500 premieres decimales en base 10 de 'pi/6' comme une spirale carree # # materialisee par une structure paradoxale... # v $xiirv/PIAL.59.pi_sur_6 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_59_pi_sur_6: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_PiSur6 # # $Z set _____NChiffres=120 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille1=20 # # $Z set _____Taille=$_____Taille1 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.59.pi_sur_6.1 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/inter.02.13 # # $Z set _____ImageR=$xTV/PIAL.59.pi_sur_6.2 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # $Z $DELETE $_____ImageR # # # # $Z unset _____Alphabet # # # # $Z set _____ImageR=$xTV/PIAL.59.pi_sur_6.3 # # $Z set _____Taille2=5 # # $Z @ ItErAtIoNs = $_____Taille1 / $_____Taille2 # # $Z set _____TranslationX="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationX="$_____TranslationX""MMM"' # # $Z set _____TranslationY="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationY="$_____TranslationY""NNN"' # # # # ATTENTION : dans le Bibliotheque=3, les blocs sont 6x6, d'ou le choix que '$_____Taille2' # # divise '$_____Taille1' afin de pouvoir utiliser "MMM" "NNN"... # # # # $Z set _____Bibliotheque=6 # # $Z set _____Taille=$_____Taille2 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____Lisere=VRAI # # # # $Z FilSTmpB _____Spirale # # # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageR=$xiirv/PIAL.59.pi_sur_6 # # # # $Z set _____PIAL_n9=$xTV/PIAL.59.pi_sur_6 # # $m4 _____include(_____xiirv/.PIAL.39.1._____U) # # $m4 _____include(_____xiirv/.PIAL.39.2._____U) # # # # $Z FilSTmpE _____Spirale # # # # :Fin_listG_PIAL_59_pi_sur_6: # # # # # # qui montre les 120 premieres decimales en base 10 de 'pi/6' comme une spirale carree # # materialisee par une structure paradoxale... # v $xiirv/PIAL.61.pi p=$xiP/arc_ciel.C2 v $xiirv/PIAL.61.pi p=$xiP/cercle.T3 v $xiirv/PIAL.61.pi p=$xiP/rougB_jaunB v $xiirv/PIAL.61.pi p=$xiP/trou_noir.I4 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_61_pi: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=100 # # $Z set _____ChampPara="$K_VIDE" # # $Z set _____ChampPara="$_____ChampPara"" c=800" # # # # La valeur "c=800" que des cercles correspondant au chiffre "9" sont presque tangents... # # # # $Z set _____ImageR=$xiirv/PIAL.61.pi # # $m4 _____include(_____xiirv/.PIAL.61.1._____U) # # $m4 _____include(_____xiirv/.PIAL.61.4._____U) # # # # :Fin_listG_PIAL_61_pi: # # # # # # qui montre les 100 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" circulaires gaussiens... # v $xiirv/PIAL.61.pi.1$m v $xiirv/PIAL.61.pi.1$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_61_pi_1_m: # # # # $Z Sdu # # # # $Z set _____ImageA=$xiirv/PIAL.61.pi # # $Z set _____Palette=$xiP/cercle.T3 # # $Z set _____ImageR=$_____ImageA.1 # # # # $m4 _____include(_____xiirv/.PIAL.61.2._____U) # # # # :Fin_listG_PIAL_61_pi_1_m: # # # # # # qui montre les 100 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" circulaires gaussiens... # v $xiirv/PIAL.61.pi.2$m v $xiirv/PIAL.61.pi.2$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_61_pi_2_m: # # # # $Z Sdu # # # # $Z set _____ImageA=$xiirv/PIAL.61.pi # # $Z set _____Palette=$xiP/rougB_jaunB # # $Z set _____ImageR=$_____ImageA.2 # # # # $m4 _____include(_____xiirv/.PIAL.61.2._____U) # # # # :Fin_listG_PIAL_61_pi_2_m: # # # # # # qui montre les 100 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" circulaires gaussiens... # v $xiirv/PIAL.69.pi.2.Spirale v $xiirv/PIAL.69.pi.2$m # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_69_pi_2_m: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=120 # # $Z set _____ImageR=$xTV/PIAL.59.pi.3 # # $Z set _____Taille2=5 # # $Z set _____TranslationX="$K_VIDE" # # $Z set _____TranslationY="$K_VIDE" # # # # $Z set _____NombreDisques=9 # # # # Voir 'v $xiirv/.PIAL.61.1.$U _____Facteur.' pour justifier les deux valeurs 150... # # # # $Z set _____Bibliotheque=6 # # $Z set _____Taille=$_____Taille2 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____Lisere=VRAI # # # # $Z FilSTmpB _____Spirale # # # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$xiirv/PIAL.61.pi.2$m # # # # $Z set _____PIAL_n9=$xTV/PIAL.59.pi # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageA%s \ # # $Z R=$_____PIAL_n9.2%s \ # # $Z $formatI # # # # $Z set _____ImageR=$xiirv/PIAL.69.pi.2$m # # $m4 _____include(_____xiirv/.PIAL.39.1._____U) # # $m4 _____include(_____xiirv/.PIAL.39.2._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$xTV/PIAL.59.pi.5%s \ # # $Z R=`SupPost $_____ImageR $m`.Spirale%s \ # # $Z $formatI # # # # $Z FilSTmpE _____Spirale # # # # :Fin_listG_PIAL_69_pi_2_m: # # # # # # qui montre les 100 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" circulaires gaussiens... # v $xiirv/PIAL.71.pi p=$xiP/arc_ciel.C2 v $xiirv/PIAL.71.pi p=$xiP/cercle.T3 v $xiirv/PIAL.71.pi p=$xiP/rougB_jaunB v $xiirv/PIAL.71.pi p=$xiP/trou_noir.I4 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_71_pi: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=100 # # $Z set _____ChampPara="$K_VIDE" # # $Z set _____ChampPara="$_____ChampPara"" c=800" # # # # La valeur "c=800" que des cercles correspondant au chiffre "9" sont presque tangents... # # # # $Z set _____Escalier=$xiP/escalier20 # # $Z set _____ImageR=$xiirv/PIAL.71.pi # # $m4 _____include(_____xiirv/.PIAL.61.1._____U) # # $m4 _____include(_____xiirv/.PIAL.61.4._____U) # # # # :Fin_listG_PIAL_71_pi: # # # # # # qui montre les 100 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" circulaires gaussiens... # v $xiirv/PIAL.71.pi.1$m v $xiirv/PIAL.71.pi.1$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_71_pi_1_m: # # # # $Z Sdu # # # # $Z set _____ImageA=$xiirv/PIAL.71.pi # # $Z set _____Palette=$xiP/cercle.T3 # # $Z set _____ImageR=$_____ImageA.1 # # # # $m4 _____include(_____xiirv/.PIAL.61.2._____U) # # # # :Fin_listG_PIAL_71_pi_1_m: # # # # # # qui montre les 100 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" circulaires gaussiens... # v $xiirv/PIAL.71.pi.2$m v $xiirv/PIAL.71.pi.2$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_71_pi_2_m: # # # # $Z Sdu # # # # $Z set _____ImageA=$xiirv/PIAL.71.pi # # $Z set _____Palette=$xiP/rougB_jaunB # # $Z set _____ImageR=$_____ImageA.2 # # # # $m4 _____include(_____xiirv/.PIAL.61.2._____U) # # # # :Fin_listG_PIAL_71_pi_2_m: # # # # # # qui montre les 100 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" circulaires gaussiens... # v $xiirv/PIAL.79.pi.2$m # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_79_pi_2_m: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=120 # # $Z set _____ImageR=$xTV/PIAL.59.pi.3 # # $Z set _____Taille2=5 # # $Z set _____TranslationX="$K_VIDE" # # $Z set _____TranslationY="$K_VIDE" # # # # $Z set _____NombreDisques=9 # # # # Voir 'v $xiirv/.PIAL.61.1.$U _____Facteur.' pour justifier les deux valeurs 150... # # # # $Z set _____Bibliotheque=6 # # $Z set _____Taille=$_____Taille2 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____Lisere=VRAI # # # # $Z FilSTmpB _____Spirale # # # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$xiirv/PIAL.71.pi.2$m # # # # $Z set _____PIAL_n9=$xTV/PIAL.59.pi # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageA%s \ # # $Z R=$_____PIAL_n9.2%s \ # # $Z $formatI # # # # $Z set _____ImageR=$xiirv/PIAL.79.pi.2$m # # $m4 _____include(_____xiirv/.PIAL.39.1._____U) # # $m4 _____include(_____xiirv/.PIAL.39.2._____U) # # # # $Z FilSTmpE _____Spirale # # # # :Fin_listG_PIAL_79_pi_2_m: # # # # # # qui montre les 100 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" circulaires gaussiens... # v $xiirv/PIAL.81.pi p=$xiP/arc_ciel.C2 v $xiirv/PIAL.81.pi p=$xiP/cercle.T3 v $xiirv/PIAL.81.pi p=$xiP/rougB_jaunB v $xiirv/PIAL.81.pi p=$xiP/trou_noir.I4 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_81_pi: # # # # $Z Shu # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=1100 # # $Z set _____ChampPara="$K_VIDE" # # $Z set _____ChampPara="$_____ChampPara"" c=10000" # # # # La valeur "c=10000" que des cercles correspondant au chiffre "9" sont presque tangents... # # # # $Z set _____NombreDisques=33 # # # # $Z set _____Escalier=$xiP/escalier20 # # $Z set _____ImageR=$xiirv/PIAL.81.pi # # $m4 _____include(_____xiirv/.PIAL.61.1._____U) # # $m4 _____include(_____xiirv/.PIAL.61.4._____U) # # # # :Fin_listG_PIAL_81_pi: # # # # # # qui montre les 800 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" circulaires gaussiens... # v $xiirv/PIAL.81.pi.1$m v $xiirv/PIAL.81.pi.1$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_81_pi_1_m: # # # # $Z ext Pqu 9 # # # # $Z set _____ImageA=$xiirv/PIAL.81.pi # # $Z set _____ImageR=$xTV/PIAL.81.pi # # $Z set _____ImageRG=$_____ImageA.1 # # $Z set _____Palette=$xiP/cercle.T3 # # $Z set _____TranslationY=0.996 # # # # $Z Shu # # # # $m4 _____include(_____xiirv/.PIAL.61.2._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR$m%s \ # # $Z R=$_____ImageRG$m%s \ # # $Z $formatI # # # # L'image '$_____ImageRG$m' conserve le format original ('Shu'). # # # # $Z ext Pqu 9 # # # # $m4 _____include(_____xiirv/.PIAL.61.2._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR$M%s \ # # $Z R=$_____ImageRG$M%s \ # # $Z $formatI # # # # L'image '$_____ImageRG$M' est reformatee ('Pqu')... # # # # :Fin_listG_PIAL_81_pi_1_m: # # # # # # qui montre les 1089 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" circulaires gaussiens... # v $xiirv/PIAL.81.pi.2$m v $xiirv/PIAL.81.pi.2$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_81_pi_2_m: # # # # $Z ext Pqu 9 # # # # $Z set _____ImageA=$xiirv/PIAL.81.pi # # $Z set _____ImageR=$xTV/PIAL.81.pi # # $Z set _____ImageRG=$_____ImageA.2 # # $Z set _____Palette=$xiP/rougB_jaunB # # $Z set _____TranslationY=0.996 # # # # $Z Shu # # # # $m4 _____include(_____xiirv/.PIAL.61.2._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR$m%s \ # # $Z R=$_____ImageRG$m%s \ # # $Z $formatI # # # # L'image '$_____ImageRG$m' conserve le format original ('Shu'). # # # # $Z ext Pqu 9 # # # # $m4 _____include(_____xiirv/.PIAL.61.2._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR$M%s \ # # $Z R=$_____ImageRG$M%s \ # # $Z $formatI # # # # L'image '$_____ImageRG$M' est reformatee ('Pqu')... # # # # :Fin_listG_PIAL_81_pi_2_m: # # # # # # qui montre les 1089 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" circulaires gaussiens... # v $xiirv/PIAL.91.1.pi p=$xiP/arc_ciel.C2 v $xiirv/PIAL.91.1.pi p=$xiP/cercle.T3 v $xiirv/PIAL.91.1.pi p=$xiP/rougB_jaunB v $xiirv/PIAL.91.1.pi p=$xiP/trou_noir.I4 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_91_1_pi: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=81 # # $Z set _____ChampPara="$K_VIDE" # # $Z set _____ChampPara="$_____ChampPara"" c=800" # # # # La valeur "c=800" que des cercles correspondant au chiffre "9" sont presque tangents... # # # # $m4 _____include(_____xiirv/.PIAL.91.1.1._____U) # # # # $Z set _____ImageR=$xiirv/PIAL.91.1.pi # # $m4 _____include(_____xiirv/.PIAL.61.1._____U) # # $m4 _____include(_____xiirv/.PIAL.61.4._____U) # # # # :Fin_listG_PIAL_91_1_pi: # # # # # # qui montre les 81 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" varies... # v $xiirv/PIAL.91.2.pi p=$xiP/arc_ciel.C2 v $xiirv/PIAL.91.2.pi p=$xiP/cercle.T3 v $xiirv/PIAL.91.2.pi p=$xiP/rougB_jaunB v $xiirv/PIAL.91.2.pi p=$xiP/trou_noir.I4 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_91_2_pi: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=81 # # $Z set _____ChampPara="$K_VIDE" # # $Z set _____ChampPara="$_____ChampPara"" c=800" # # # # La valeur "c=800" que des cercles correspondant au chiffre "9" sont presque tangents... # # # # $m4 _____include(_____xiirv/.PIAL.91.1.2._____U) # # # # $Z set _____ImageR=$xiirv/PIAL.91.2.pi # # $m4 _____include(_____xiirv/.PIAL.61.1._____U) # # $m4 _____include(_____xiirv/.PIAL.61.4._____U) # # # # :Fin_listG_PIAL_91_2_pi: # # # # # # qui montre les 81 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" varies... # v $xiirv/PIAL.A1.1.pi p=$xiP/arc_ciel.C2 v $xiirv/PIAL.A1.1.pi p=$xiP/cercle.T3 v $xiirv/PIAL.A1.1.pi p=$xiP/rougB_jaunB v $xiirv/PIAL.A1.1.pi p=$xiP/trou_noir.I4 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_A1_1_pi: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=81 # # $Z set _____ChampPara="$K_VIDE" # # $Z set _____ChampPara="$_____ChampPara"" c=800" # # # # La valeur "c=800" que des cercles correspondant au chiffre "9" sont presque tangents... # # # # $m4 _____include(_____xiirv/.PIAL.91.1.1._____U) # # # # $Z set _____Escalier=$xiP/escalier20 # # $Z set _____ImageR=$xiirv/PIAL.A1.1.pi # # $m4 _____include(_____xiirv/.PIAL.61.1._____U) # # $m4 _____include(_____xiirv/.PIAL.61.4._____U) # # # # :Fin_listG_PIAL_A1_1_pi: # # # # # # qui montre les 81 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" varies... # v $xiirv/PIAL.A1.2.pi p=$xiP/arc_ciel.C2 v $xiirv/PIAL.A1.2.pi p=$xiP/cercle.T3 v $xiirv/PIAL.A1.2.pi p=$xiP/rougB_jaunB v $xiirv/PIAL.A1.2.pi p=$xiP/trou_noir.I4 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_A1_2_pi: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=81 # # $Z set _____ChampPara="$K_VIDE" # # $Z set _____ChampPara="$_____ChampPara"" c=800" # # # # La valeur "c=800" que des cercles correspondant au chiffre "9" sont presque tangents... # # # # $m4 _____include(_____xiirv/.PIAL.91.1.2._____U) # # # # $Z set _____Escalier=$xiP/escalier20 # # $Z set _____ImageR=$xiirv/PIAL.A1.2.pi # # $m4 _____include(_____xiirv/.PIAL.61.1._____U) # # $m4 _____include(_____xiirv/.PIAL.61.4._____U) # # # # :Fin_listG_PIAL_A1_2_pi: # # # # # # qui montre les 81 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" varies... # v $xiirv/PIAL.A1.1.pi.1$m v $xiirv/PIAL.A1.1.pi.1$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_A1_1_pi_1_m: # # # # $Z Sdu # # # # $Z set _____ImageA=$xiirv/PIAL.A1.1.pi # # $Z set _____Palette=$xiP/cercle.T3 # # $Z set _____ImageR=$_____ImageA.1 # # # # $m4 _____include(_____xiirv/.PIAL.61.2._____U) # # # # :Fin_listG_PIAL_A1_1_pi_1_m: # # # # # # qui montre les 81 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" varies... # v $xiirv/PIAL.A1.1.pi.2$m v $xiirv/PIAL.A1.1.pi.2$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_A1_1_pi_2_m: # # # # $Z Sdu # # # # $Z set _____ImageA=$xiirv/PIAL.A1.1.pi # # $Z set _____Palette=$xiP/rougB_jaunB # # $Z set _____ImageR=$_____ImageA.2 # # # # $m4 _____include(_____xiirv/.PIAL.61.2._____U) # # # # :Fin_listG_PIAL_A1_1_pi_2_m: # # # # # # qui montre les 81 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" varies... # v $xiirv/PIAL.A1.2.pi.1$m v $xiirv/PIAL.A1.2.pi.1$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_A1_2_pi_1_m: # # # # $Z Sdu # # # # $Z set _____ImageA=$xiirv/PIAL.A1.2.pi # # $Z set _____Palette=$xiP/cercle.T3 # # $Z set _____ImageR=$_____ImageA.1 # # # # $m4 _____include(_____xiirv/.PIAL.61.2._____U) # # # # :Fin_listG_PIAL_A1_2_pi_1_m: # # # # # # qui montre les 81 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" varies... # v $xiirv/PIAL.A1.2.pi.2$m v $xiirv/PIAL.A1.2.pi.2$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_A1_2_pi_2_m: # # # # $Z Sdu # # # # $Z set _____ImageA=$xiirv/PIAL.A1.2.pi # # $Z set _____Palette=$xiP/rougB_jaunB # # $Z set _____ImageR=$_____ImageA.2 # # # # $m4 _____include(_____xiirv/.PIAL.61.2._____U) # # # # :Fin_listG_PIAL_A1_2_pi_2_m: # # # # # # qui montre les 81 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" varies... # v $xiirv/PIAL.A1.2.pi.3$m v $xiirv/PIAL.A1.2.pi.3$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_A1_2_pi_3_m: # # # # $Z Sdu # # # # $Z set _____ImageA=$xiirv/PIAL.A1.2.pi # # $Z set _____Palette=$xiP/arc_ciel.C2 # # $Z set _____ImageR=$_____ImageA.3 # # # # $m4 _____include(_____xiirv/.PIAL.61.2._____U) # # # # :Fin_listG_PIAL_A1_2_pi_3_m: # # # # # # qui montre les 81 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" varies... # v $xiirv/PIAL.B1.2.pi p=$xiP/arc_ciel.C2 v $xiirv/PIAL.B1.2.pi p=$xiP/cercle.T3 v $xiirv/PIAL.B1.2.pi p=$xiP/rougB_jaunB v $xiirv/PIAL.B1.2.pi p=$xiP/trou_noir.I4 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_B1_2_pi: # # # # $Z Shu # # # # $Z set _____NombreDisques=33 # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z @ _____NChiffres = $_____NombreDisques * $_____NombreDisques # # $Z set _____ChampPara="$K_VIDE" # # $Z set _____ChampPara="$_____ChampPara"" c=10000" # # # # La valeur "c=10000" que des cercles correspondant au chiffre "9" sont presque tangents... # # # # $m4 _____include(_____xiirv/.PIAL.91.1.2._____U) # # # # $Z set _____Escalier=$xiP/escalier20 # # $Z set _____ImageR=$xiirv/PIAL.B1.2.pi # # $m4 _____include(_____xiirv/.PIAL.61.1._____U) # # $m4 _____include(_____xiirv/.PIAL.61.4._____U) # # # # :Fin_listG_PIAL_B1_2_pi: # # # # # # qui montre les 1089 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" varies... # v $xiirv/PIAL.B1.2.pi.3$m v $xiirv/PIAL.B1.2.pi.3$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_B1_2_pi_3_m: # # # # $Z set _____ImageA=$xiirv/PIAL.B1.2.pi # # $Z set _____ImageR=$xTV/PIAL.B1.2.pi.3 # # $Z set _____ImageRG=$_____ImageA.3 # # $Z set _____Palette=$xiP/arc_ciel.C2 # # $Z set _____TranslationY=0.996 # # # # $Z Shu # # # # $m4 _____include(_____xiirv/.PIAL.61.2._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR$m%s \ # # $Z R=$_____ImageRG$m%s \ # # $Z $formatI # # # # L'image '$_____ImageRG$m' conserve le format original ('Shu'). # # # # $Z ext Pqu 9 # # # # $m4 _____include(_____xiirv/.PIAL.61.2._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR$M%s \ # # $Z R=$_____ImageRG$M%s \ # # $Z $formatI # # # # L'image '$_____ImageRG$M' est reformatee ('Pqu')... # # # # :Fin_listG_PIAL_B1_2_pi_3_m: # # # # # # qui montre les 1089 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" varies... # v $xiirv/PIAL.C1.2.pi.3$m v $xiirv/PIAL.C1.2.pi.3$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_C1_2_pi_3_m: # # # # $Z Sdu # # # # $Z set _____NombreDisques=9 # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z @ _____NChiffres = $_____NombreDisques * $_____NombreDisques # # $Z set _____TranslationSpirale=$NEXIST # # $m4 _____include(_____xiirv/.PIAL.61.1._____U) # # # # $Z FilSTmpB _____Spirale # # $Z $PAST $FCoOrDoNnEeS$COORD_X $FCoOrDoNnEeS$COORD_Y | \ # # $Z $AW ' { print $1 " " $2 } ' \ # # $Z >> $_____Spirale # # # # $Z set _____SpiraleR=$GRIS_4 # # $Z set _____SpiraleV=$GRIS_4 # # $Z set _____SpiraleB=$GRIS_4 # # $Z set _____PIAL_n9=$xTV/PIAL.39 # # $m4 _____include(_____xiirv/.PIAL.39.1._____U) # # $Z set _____Fond=$_____PIAL_n9.5 # # # # $Z FilSTmpE _____Spirale # # $Z set _____ImageA=$xiirv/PIAL.A1.2.pi # # $Z set _____Palette=$xiP/arc_ciel.C2 # # $Z set _____AntiAliasing=VRAI # # $Z set _____ImageR=$xiirv/PIAL.C1.2.pi.3 # # # # $m4 _____include(_____xiirv/.PIAL.61.2._____U) # # # # :Fin_listG_PIAL_C1_2_pi_3_m: # # # # # # qui montre les 81 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" varies... # v $xiirv/PIAL.D1.2.pi.3$m v $xiirv/PIAL.D1.2.pi.3$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_D1_2_pi_3_m: # # # # $Z Shu # # # # $Z set _____NombreDisques=33 # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z @ _____NChiffres = $_____NombreDisques * $_____NombreDisques # # $Z set _____TranslationSpirale=$NEXIST # # $m4 _____include(_____xiirv/.PIAL.61.1._____U) # # # # $Z FilSTmpB _____Spirale # # $Z $PAST $FCoOrDoNnEeS$COORD_X $FCoOrDoNnEeS$COORD_Y | \ # # $Z $AW ' { print $1 " " $2 } ' \ # # $Z >> $_____Spirale # # # # $Z set _____SpiraleR=$GRIS_4 # # $Z set _____SpiraleV=$GRIS_4 # # $Z set _____SpiraleB=$GRIS_4 # # $Z set _____SpiraleRAYON=0.001 # # $Z set _____DistanceMini=0.001 # # $Z set _____PIAL_n9=$xTV/PIAL.39 # # $m4 _____include(_____xiirv/.PIAL.39.1._____U) # # $Z set _____Fond=$_____PIAL_n9.5 # # # # $Z FilSTmpE _____Spirale # # $Z set _____ImageA=$xiirv/PIAL.B1.2.pi # # $Z set _____Palette=$xiP/arc_ciel.C2 # # $Z set _____AntiAliasing=VRAI # # $Z set _____Echelle=0.05 # # $Z set _____Perspective=9.6 # # $Z set _____ImageR=$xiirv/PIAL.D1.2.pi.3 # # # # $m4 _____include(_____xiirv/.PIAL.61.2._____U) # # # # :Fin_listG_PIAL_D1_2_pi_3_m: # # # # # # qui montre les 1089 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" varies... # v $xiirv/PIAL.E1.2.pi.3$m v $xiirv/PIAL.E1.2.pi.3$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_E1_2_pi_3_m: # # # # $Z Sdu # # # # $Z set _____NombreDisques=9 # # $Z @ _____NChiffres = $_____NombreDisques * $_____NombreDisques # # $Z set _____SpiraleRAYON=0.004 # # $Z set _____DistanceMini=0.002 # # $Z set _____GaussPara="c=800" # # $Z set _____NLChamps="1" # # $Z set _____Echelle=0.2 # # $Z set _____Perspective=2.4 # # $Z set _____ImageR=$xiirv/PIAL.E1.2.pi.3 # # $m4 _____include(_____xiirv/.PIAL.E1.1._____U) # # # # :Fin_listG_PIAL_E1_2_pi_3_m: # # # # # # qui montre les 81 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" varies... # v $xiirv/PIAL.F1.2.pi.3$m v $xiirv/PIAL.F1.2.pi.3$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_F1_2_pi_3_m: # # # # $Z Shu # # # # $Z set _____NombreDisques=33 # # $Z @ _____NChiffres = $_____NombreDisques * $_____NombreDisques # # $Z set _____SpiraleRAYON=0.001 # # $Z set _____DistanceMini=0.001 # # $Z set _____GaussPara="c=10000" # # $Z set _____NLChamps="1" # # $Z set _____Echelle=0.05 # # $Z set _____Perspective=9.6 # # $Z set _____ImageR=$xiirv/PIAL.F1.2.pi.3 # # $m4 _____include(_____xiirv/.PIAL.E1.1._____U) # # # # :Fin_listG_PIAL_F1_2_pi_3_m: # # # # # # qui montre les 81 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" varies... # v $xiirv/PIAL.G1.2.pi.3$m v $xiirv/PIAL.G1.2.pi.3$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_G1_2_pi_3_m: # # # # $Z Sdu # # # # $Z set _____NombreDisques=9 # # $Z @ _____NChiffres = $_____NombreDisques * $_____NombreDisques # # $Z set _____SpiraleRAYON=0.004 # # $Z set _____DistanceMini=0.002 # # $Z set _____GaussPara="c=4096" # # $Z set _____NLChamps="2" # # $Z set _____Echelle=0.2 # # $Z set _____Perspective=2.4 # # $Z set _____ImageR=$xiirv/PIAL.G1.2.pi.3 # # $m4 _____include(_____xiirv/.PIAL.E1.1._____U) # # # # :Fin_listG_PIAL_G1_2_pi_3_m: # # # # # # qui montre les 81 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" varies... # v $xiirv/PIAL.H1.2.pi.3$m v $xiirv/PIAL.H1.2.pi.3$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_H1_2_pi_3_m: # # # # $Z Shu # # # # $Z set _____NombreDisques=33 # # $Z @ _____NChiffres = $_____NombreDisques * $_____NombreDisques # # $Z set _____SpiraleRAYON=0.001 # # $Z set _____DistanceMini=0.001 # # $Z set _____GaussPara="c=21200" # # $Z set _____NLChamps="2" # # $Z set _____Echelle=0.05 # # $Z set _____Perspective=9.6 # # $Z set _____ImageR=$xiirv/PIAL.H1.2.pi.3 # # $m4 _____include(_____xiirv/.PIAL.E1.1._____U) # # # # :Fin_listG_PIAL_H1_2_pi_3_m: # # # # # # qui montre les 81 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" varies... # v $xiirv/PIAL.I1.2.pi.3$m v $xiirv/PIAL.I1.2.pi.3$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_I1_2_pi_3_m: # # # # $Z Sdu # # # # $Z set _____NombreDisques=9 # # $Z @ _____NChiffres = $_____NombreDisques * $_____NombreDisques # # $Z set _____SpiraleRAYON=0.004 # # $Z set _____DistanceMini=0.002 # # $Z set _____GaussPara="c=4096" # # $Z set _____NLChamps="2" # # $Z set _____LChampsPara="mr=200" # # $Z set _____Echelle=0.2 # # $Z set _____Perspective=2.4 # # $Z set _____ImageR=$xiirv/PIAL.I1.2.pi.3 # # $m4 _____include(_____xiirv/.PIAL.E1.1._____U) # # # # :Fin_listG_PIAL_I1_2_pi_3_m: # # # # # # qui montre les 81 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" varies... # v $xiirv/PIAL.I2.2.pi.3$m v $xiirv/PIAL.I2.2.pi.3$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIAL_I2_2_pi_3_m: # # # # $Z Sdu # # # # $Z set _____NombreDisques=9 # # $Z @ _____NChiffres = $_____NombreDisques * $_____NombreDisques # # $Z set _____SpiraleRAYON=0.004 # # $Z set _____DistanceMini=0.002 # # $Z set _____GaussPara="c=4096" # # $Z set _____NLChamps="2" # # $Z set _____LChampsPara="mr=300" # # $Z set _____Echelle=0.2 # # $Z set _____Perspective=2.4 # # $Z set _____ImageR=$xiirv/PIAL.I2.2.pi.3 # # $m4 _____include(_____xiirv/.PIAL.E1.1._____U) # # # # :Fin_listG_PIAL_I2_2_pi_3_m: # # # # # # qui montre les 81 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par des "sous-champs" varies... # v $xiirv/PIAL.J1.pi_sur_1 p=$xiP/firtech.11 v $xiirv/PIAL.J1.pi_sur_1 # Generee (sur '$CMAP28' -ex "porte-de-choisy"-) par : # # # # # # :Debut_listG_PIAL_J1_pi_sur_1: # # # # $Z Shu # # # # $Z setenv xTV $DtemporairesG0L # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=1300 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille=20 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.J1.pi_sur_1 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/firtech.11 # # $Z set _____ImageR=$xiirv/PIAL.J1.pi_sur_1 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # :Fin_listG_PIAL_J1_pi_sur_1: # # # # # # qui montre les 1300 premieres decimales en base 10 de 'pi/1' comme une spirale carree # # materialisee par une structure paradoxale... # # # # Image faite pour le volume 2 du livre de Jean-Paul Delahaye sur 'pi' (Le Monde). # v $xiirv/PIAL.J1.pi_sur_2 p=$xiP/random.A5 v $xiirv/PIAL.J1.pi_sur_2 # Generee (sur '$CMAP28' -ex "porte-de-choisy"-) par : # # # # # # :Debut_listG_PIAL_J1_pi_sur_2: # # # # $Z Shu # # # # $Z setenv xTV $DtemporairesG0L # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_PiSur2 # # $Z set _____NChiffres=1300 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille=20 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.J1.pi_sur_2 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/random.A5 # # $Z set _____ImageR=$xiirv/PIAL.J1.pi_sur_2 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # :Fin_listG_PIAL_J1_pi_sur_2: # # # # # # qui montre les 1300 premieres decimales en base 10 de 'pi/2' comme une spirale carree # # materialisee par une structure paradoxale... # # # # Image faite pour le volume 2 du livre de Jean-Paul Delahaye sur 'pi' (Le Monde). # v $xiirv/PIAL.J1.pi_sur_3 p=$xiP/orange.11 v $xiirv/PIAL.J1.pi_sur_3 # Generee (sur '$CMAP28' -ex "porte-de-choisy"-) par : # # # # # # :Debut_listG_PIAL_J1_pi_sur_3: # # # # $Z Shu # # # # $Z setenv xTV $DtemporairesG0L # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_PiSur3 # # $Z set _____NChiffres=1300 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille=20 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.J1.pi_sur_3 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/orange.11 # # $Z set _____ImageR=$xiirv/PIAL.J1.pi_sur_3 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # :Fin_listG_PIAL_J1_pi_sur_3: # # # # # # qui montre les 1300 premieres decimales en base 10 de 'pi/3' comme une spirale carree # # materialisee par une structure paradoxale... # # # # Image faite pour le volume 2 du livre de Jean-Paul Delahaye sur 'pi' (Le Monde). # v $xiirv/PIAL.J1.pi_sur_4 p=$xiP/lignes.11 v $xiirv/PIAL.J1.pi_sur_4 # Generee (sur '$CMAP28' -ex "porte-de-choisy"-) par : # # # # # # :Debut_listG_PIAL_J1_pi_sur_4: # # # # $Z Shu # # # # $Z setenv xTV $DtemporairesG0L # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_PiSur4 # # $Z set _____NChiffres=1300 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille=20 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.J1.pi_sur_4 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/lignes.11 # # $Z set _____ImageR=$xiirv/PIAL.J1.pi_sur_4 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # :Fin_listG_PIAL_J1_pi_sur_4: # # # # # # qui montre les 1300 premieres decimales en base 10 de 'pi/4' comme une spirale carree # # materialisee par une structure paradoxale... # # # # Image faite pour le volume 2 du livre de Jean-Paul Delahaye sur 'pi' (Le Monde). # v $xiirv/PIAL.J1.pi_sur_5 p=$xiP/Atlan.11 v $xiirv/PIAL.J1.pi_sur_5 # Generee (sur '$CMAP28' -ex "porte-de-choisy"-) par : # # # # # # :Debut_listG_PIAL_J1_pi_sur_5: # # # # $Z Shu # # # # $Z setenv xTV $DtemporairesG0L # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_PiSur5 # # $Z set _____NChiffres=1300 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille=20 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.J1.pi_sur_5 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/Atlan.11 # # $Z set _____ImageR=$xiirv/PIAL.J1.pi_sur_5 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # :Fin_listG_PIAL_J1_pi_sur_5: # # # # # # qui montre les 1300 premieres decimales en base 10 de 'pi/5' comme une spirale carree # # materialisee par une structure paradoxale... # # # # Image faite pour le volume 2 du livre de Jean-Paul Delahaye sur 'pi' (Le Monde). # v $xiirv/PIAL.J1.pi_sur_6 p=$xiP/firtech.22 v $xiirv/PIAL.J1.pi_sur_6 # Generee (sur '$CMAP28' -ex "porte-de-choisy"-) par : # # # # # # :Debut_listG_PIAL_J1_pi_sur_6: # # # # $Z Shu # # # # $Z setenv xTV $DtemporairesG0L # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_PiSur6 # # $Z set _____NChiffres=1300 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille=20 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.J1.pi_sur_6 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/firtech.22 # # $Z set _____ImageR=$xiirv/PIAL.J1.pi_sur_6 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # :Fin_listG_PIAL_J1_pi_sur_6: # # # # # # qui montre les 1300 premieres decimales en base 10 de 'pi/6' comme une spirale carree # # materialisee par une structure paradoxale... # # # # Image faite pour le volume 2 du livre de Jean-Paul Delahaye sur 'pi' (Le Monde). # v $xiirv/PIAL.J1.pi_sur_7 p=$xiP/firtech.23 v $xiirv/PIAL.J1.pi_sur_7 # Generee (sur '$CMAP28' -ex "porte-de-choisy"-) par : # # # # # # :Debut_listG_PIAL_J1_pi_sur_7: # # # # $Z Shu # # # # $Z setenv xTV $DtemporairesG0L # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_PiSur7 # # $Z set _____NChiffres=1300 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille=20 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.J1.pi_sur_7 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/firtech.23 # # $Z set _____ImageR=$xiirv/PIAL.J1.pi_sur_7 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # :Fin_listG_PIAL_J1_pi_sur_7: # # # # # # qui montre les 1300 premieres decimales en base 10 de 'pi/7' comme une spirale carree # # materialisee par une structure paradoxale... # # # # Image faite pour le volume 2 du livre de Jean-Paul Delahaye sur 'pi' (Le Monde). # v $xiirv/PIAL.J2.pi_sur_1 # Generee (sur '$CMAP28' -ex "porte-de-choisy"-) par : # # # # # # :Debut_listG_PIAL_J2_pi_sur_1: # # # # $Z Shu # # # # $Z setenv xTV $DtemporairesG0L # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=500 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille1=40 # # $Z set _____Taille=$_____Taille1 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.J2.pi.1 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/firtech.11 # # $Z set _____ImageR=$xTV/PIAL.J2.pi.2 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # $Z $DELETE $_____ImageR # # # # $Z unset _____Alphabet # # # # $Z set _____ImageR=$xTV/PIAL.J2.pi.3 # # $Z set _____Taille2=10 # # $Z @ ItErAtIoNs = $_____Taille1 / $_____Taille2 # # $Z set _____TranslationX="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationX="$_____TranslationX""MMM"' # # $Z set _____TranslationY="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationY="$_____TranslationY""NNN"' # # # # ATTENTION : dans le Bibliotheque=3, les blocs sont 6x6, d'ou le choix que '$_____Taille2' # # divise '$_____Taille1' afin de pouvoir utiliser "MMM" "NNN"... # # # # $Z set _____Bibliotheque=6 # # $Z set _____Taille=$_____Taille2 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____Lisere=VRAI # # # # $Z FilSTmpB _____Spirale # # # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageR=$xiirv/PIAL.J2.pi_sur_1 # # # # $Z set _____SpiraleRAYON=0.002 # # $Z set _____DistanceMini=0.001 # # $Z set _____PIAL_n9=$xTV/PIAL.J2.pi # # $m4 _____include(_____xiirv/.PIAL.39.1._____U) # # $m4 _____include(_____xiirv/.PIAL.39.2._____U) # # # # $Z FilSTmpE _____Spirale # # # # :Fin_listG_PIAL_J2_pi_sur_1: # # # # # # qui montre les 500 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par une structure paradoxale... # # # # Image faite pour le volume 2 du livre de Jean-Paul Delahaye sur 'pi' (Le Monde). # v $xiirv/PIAL.J2.pi_sur_2 # Generee (sur '$CMAP28' -ex "porte-de-choisy"-) par : # # # # # # :Debut_listG_PIAL_J2_pi_sur_2: # # # # $Z Shu # # # # $Z setenv xTV $DtemporairesG0L # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_PiSur2 # # $Z set _____NChiffres=500 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille1=40 # # $Z set _____Taille=$_____Taille1 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.J2.pi.1 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/random.A5 # # $Z set _____ImageR=$xTV/PIAL.J2.pi.2 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # $Z $DELETE $_____ImageR # # # # $Z unset _____Alphabet # # # # $Z set _____ImageR=$xTV/PIAL.J2.pi.3 # # $Z set _____Taille2=10 # # $Z @ ItErAtIoNs = $_____Taille1 / $_____Taille2 # # $Z set _____TranslationX="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationX="$_____TranslationX""MMM"' # # $Z set _____TranslationY="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationY="$_____TranslationY""NNN"' # # # # ATTENTION : dans le Bibliotheque=3, les blocs sont 6x6, d'ou le choix que '$_____Taille2' # # divise '$_____Taille1' afin de pouvoir utiliser "MMM" "NNN"... # # # # $Z set _____Bibliotheque=6 # # $Z set _____Taille=$_____Taille2 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____Lisere=VRAI # # # # $Z FilSTmpB _____Spirale # # # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageR=$xiirv/PIAL.J2.pi_sur_2 # # # # $Z set _____SpiraleRAYON=0.002 # # $Z set _____DistanceMini=0.001 # # $Z set _____PIAL_n9=$xTV/PIAL.J2.pi # # $m4 _____include(_____xiirv/.PIAL.39.1._____U) # # $m4 _____include(_____xiirv/.PIAL.39.2._____U) # # # # $Z FilSTmpE _____Spirale # # # # :Fin_listG_PIAL_J2_pi_sur_2: # # # # # # qui montre les 500 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par une structure paradoxale... # # # # Image faite pour le volume 2 du livre de Jean-Paul Delahaye sur 'pi' (Le Monde). # v $xiirv/PIAL.J2.pi_sur_3 # Generee (sur '$CMAP28' -ex "porte-de-choisy"-) par : # # # # # # :Debut_listG_PIAL_J2_pi_sur_3: # # # # $Z Shu # # # # $Z setenv xTV $DtemporairesG0L # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_PiSur3 # # $Z set _____NChiffres=500 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille1=40 # # $Z set _____Taille=$_____Taille1 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.J2.pi.1 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/orange.11 # # $Z set _____ImageR=$xTV/PIAL.J2.pi.2 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # $Z $DELETE $_____ImageR # # # # $Z unset _____Alphabet # # # # $Z set _____ImageR=$xTV/PIAL.J2.pi.3 # # $Z set _____Taille2=10 # # $Z @ ItErAtIoNs = $_____Taille1 / $_____Taille2 # # $Z set _____TranslationX="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationX="$_____TranslationX""MMM"' # # $Z set _____TranslationY="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationY="$_____TranslationY""NNN"' # # # # ATTENTION : dans le Bibliotheque=3, les blocs sont 6x6, d'ou le choix que '$_____Taille2' # # divise '$_____Taille1' afin de pouvoir utiliser "MMM" "NNN"... # # # # $Z set _____Bibliotheque=6 # # $Z set _____Taille=$_____Taille2 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____Lisere=VRAI # # # # $Z FilSTmpB _____Spirale # # # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageR=$xiirv/PIAL.J2.pi_sur_3 # # # # $Z set _____SpiraleRAYON=0.002 # # $Z set _____DistanceMini=0.001 # # $Z set _____PIAL_n9=$xTV/PIAL.J2.pi # # $m4 _____include(_____xiirv/.PIAL.39.1._____U) # # $m4 _____include(_____xiirv/.PIAL.39.2._____U) # # # # $Z FilSTmpE _____Spirale # # # # :Fin_listG_PIAL_J2_pi_sur_3: # # # # # # qui montre les 500 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par une structure paradoxale... # # # # Image faite pour le volume 2 du livre de Jean-Paul Delahaye sur 'pi' (Le Monde). # v $xiirv/PIAL.J2.pi_sur_4 # Generee (sur '$CMAP28' -ex "porte-de-choisy"-) par : # # # # # # :Debut_listG_PIAL_J2_pi_sur_4: # # # # $Z Shu # # # # $Z setenv xTV $DtemporairesG0L # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_PiSur4 # # $Z set _____NChiffres=500 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille1=40 # # $Z set _____Taille=$_____Taille1 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.J2.pi.1 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/lignes.11 # # $Z set _____ImageR=$xTV/PIAL.J2.pi.2 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # $Z $DELETE $_____ImageR # # # # $Z unset _____Alphabet # # # # $Z set _____ImageR=$xTV/PIAL.J2.pi.3 # # $Z set _____Taille2=10 # # $Z @ ItErAtIoNs = $_____Taille1 / $_____Taille2 # # $Z set _____TranslationX="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationX="$_____TranslationX""MMM"' # # $Z set _____TranslationY="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationY="$_____TranslationY""NNN"' # # # # ATTENTION : dans le Bibliotheque=3, les blocs sont 6x6, d'ou le choix que '$_____Taille2' # # divise '$_____Taille1' afin de pouvoir utiliser "MMM" "NNN"... # # # # $Z set _____Bibliotheque=6 # # $Z set _____Taille=$_____Taille2 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____Lisere=VRAI # # # # $Z FilSTmpB _____Spirale # # # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageR=$xiirv/PIAL.J2.pi_sur_4 # # # # $Z set _____SpiraleRAYON=0.002 # # $Z set _____DistanceMini=0.001 # # $Z set _____PIAL_n9=$xTV/PIAL.J2.pi # # $m4 _____include(_____xiirv/.PIAL.39.1._____U) # # $m4 _____include(_____xiirv/.PIAL.39.2._____U) # # # # $Z FilSTmpE _____Spirale # # # # :Fin_listG_PIAL_J2_pi_sur_4: # # # # # # qui montre les 500 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par une structure paradoxale... # # # # Image faite pour le volume 2 du livre de Jean-Paul Delahaye sur 'pi' (Le Monde). # v $xiirv/PIAL.J2.pi_sur_5 # Generee (sur '$CMAP28' -ex "porte-de-choisy"-) par : # # # # # # :Debut_listG_PIAL_J2_pi_sur_5: # # # # $Z Shu # # # # $Z setenv xTV $DtemporairesG0L # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_PiSur5 # # $Z set _____NChiffres=500 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille1=40 # # $Z set _____Taille=$_____Taille1 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.J2.pi.1 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/Atlan.11 # # $Z set _____ImageR=$xTV/PIAL.J2.pi.2 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # $Z $DELETE $_____ImageR # # # # $Z unset _____Alphabet # # # # $Z set _____ImageR=$xTV/PIAL.J2.pi.3 # # $Z set _____Taille2=10 # # $Z @ ItErAtIoNs = $_____Taille1 / $_____Taille2 # # $Z set _____TranslationX="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationX="$_____TranslationX""MMM"' # # $Z set _____TranslationY="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationY="$_____TranslationY""NNN"' # # # # ATTENTION : dans le Bibliotheque=3, les blocs sont 6x6, d'ou le choix que '$_____Taille2' # # divise '$_____Taille1' afin de pouvoir utiliser "MMM" "NNN"... # # # # $Z set _____Bibliotheque=6 # # $Z set _____Taille=$_____Taille2 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____Lisere=VRAI # # # # $Z FilSTmpB _____Spirale # # # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageR=$xiirv/PIAL.J2.pi_sur_5 # # # # $Z set _____SpiraleRAYON=0.002 # # $Z set _____DistanceMini=0.001 # # $Z set _____PIAL_n9=$xTV/PIAL.J2.pi # # $m4 _____include(_____xiirv/.PIAL.39.1._____U) # # $m4 _____include(_____xiirv/.PIAL.39.2._____U) # # # # $Z FilSTmpE _____Spirale # # # # :Fin_listG_PIAL_J2_pi_sur_5: # # # # # # qui montre les 500 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par une structure paradoxale... # # # # Image faite pour le volume 2 du livre de Jean-Paul Delahaye sur 'pi' (Le Monde). # v $xiirv/PIAL.J2.pi_sur_6 # Generee (sur '$CMAP28' -ex "porte-de-choisy"-) par : # # # # # # :Debut_listG_PIAL_J2_pi_sur_6: # # # # $Z Shu # # # # $Z setenv xTV $DtemporairesG0L # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_PiSur6 # # $Z set _____NChiffres=500 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille1=40 # # $Z set _____Taille=$_____Taille1 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.J2.pi.1 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/CMAP.21 # # $Z set _____ImageR=$xTV/PIAL.J2.pi.2 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # $Z $DELETE $_____ImageR # # # # $Z unset _____Alphabet # # # # $Z set _____ImageR=$xTV/PIAL.J2.pi.3 # # $Z set _____Taille2=10 # # $Z @ ItErAtIoNs = $_____Taille1 / $_____Taille2 # # $Z set _____TranslationX="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationX="$_____TranslationX""MMM"' # # $Z set _____TranslationY="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationY="$_____TranslationY""NNN"' # # # # ATTENTION : dans le Bibliotheque=3, les blocs sont 6x6, d'ou le choix que '$_____Taille2' # # divise '$_____Taille1' afin de pouvoir utiliser "MMM" "NNN"... # # # # $Z set _____Bibliotheque=6 # # $Z set _____Taille=$_____Taille2 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____Lisere=VRAI # # # # $Z FilSTmpB _____Spirale # # # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageR=$xiirv/PIAL.J2.pi_sur_6 # # # # $Z set _____SpiraleRAYON=0.002 # # $Z set _____DistanceMini=0.001 # # $Z set _____PIAL_n9=$xTV/PIAL.J2.pi # # $m4 _____include(_____xiirv/.PIAL.39.1._____U) # # $m4 _____include(_____xiirv/.PIAL.39.2._____U) # # # # $Z FilSTmpE _____Spirale # # # # :Fin_listG_PIAL_J2_pi_sur_6: # # # # # # qui montre les 500 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par une structure paradoxale... # # # # Image faite pour le volume 2 du livre de Jean-Paul Delahaye sur 'pi' (Le Monde). # v $xiirv/PIAL.J2.pi_sur_7 # Generee (sur '$CMAP28' -ex "porte-de-choisy"-) par : # # # # # # :Debut_listG_PIAL_J2_pi_sur_7: # # # # $Z Shu # # # # $Z setenv xTV $DtemporairesG0L # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_PiSur7 # # $Z set _____NChiffres=500 # # $Z set _____Bibliotheque=3 # # $Z set _____Taille1=40 # # $Z set _____Taille=$_____Taille1 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xTV/PIAL.J2.pi.1 # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____PaletteC=$xiP/roug2_jaun2 # # $Z set _____ImageR=$xTV/PIAL.J2.pi.2 # # $m4 _____include(_____xiirv/.PIAL.32.1._____U) # # # # $Z $DELETE $_____ImageR # # # # $Z unset _____Alphabet # # # # $Z set _____ImageR=$xTV/PIAL.J2.pi.3 # # $Z set _____Taille2=10 # # $Z @ ItErAtIoNs = $_____Taille1 / $_____Taille2 # # $Z set _____TranslationX="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationX="$_____TranslationX""MMM"' # # $Z set _____TranslationY="$K_VIDE" # # $Z repeat $ItErAtIoNs eval 'set _____TranslationY="$_____TranslationY""NNN"' # # # # ATTENTION : dans le Bibliotheque=3, les blocs sont 6x6, d'ou le choix que '$_____Taille2' # # divise '$_____Taille1' afin de pouvoir utiliser "MMM" "NNN"... # # # # $Z set _____Bibliotheque=6 # # $Z set _____Taille=$_____Taille2 # # $Z set _____Niveau0=$GRIS_8 # # $Z set _____NiveauN=$_____Niveau0 # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____Lisere=VRAI # # # # $Z FilSTmpB _____Spirale # # # # $m4 _____include(_____xiirv/.PIAL.31.1._____U) # # $m4 _____include(_____xiirv/.PIAL.31.4._____U) # # # # $Z set _____ImageR=$xiirv/PIAL.J2.pi_sur_7 # # # # $Z set _____SpiraleRAYON=0.002 # # $Z set _____DistanceMini=0.001 # # $Z set _____PIAL_n9=$xTV/PIAL.J2.pi # # $m4 _____include(_____xiirv/.PIAL.39.1._____U) # # $m4 _____include(_____xiirv/.PIAL.39.2._____U) # # # # $Z FilSTmpE _____Spirale # # # # :Fin_listG_PIAL_J2_pi_sur_7: # # # # # # qui montre les 500 premieres decimales en base 10 de 'pi' comme une spirale carree # # materialisee par une structure paradoxale... # # # # Image faite pour le volume 2 du livre de Jean-Paul Delahaye sur 'pi' (Le Monde). # v $xiirv/PIPO.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_11: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $Z set _____ImageR=$xiirv/PIPO.11 # # $m4 _____include(_____xiirv/.PIPO.11.1._____U) # # $m4 _____include(_____xiirv/.CHAM.41.9._____U) # # $m4 _____include(_____xiirv/.PIPO.11.2._____U) # # $m4 _____include(_____xiirv/.PIPO.11.3._____U) # # $m4 _____include(_____xiirv/.PIPO.11.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PIPO_11: # # # # # # qui montre les 10000 premieres decimales en base 10 de 'pi' comme une marche aleatoire en # # coordonnees polaires (dite "marche aleatoire absolue"). # v $xiirv/PIPO.12 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_12: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $Z SET _____CumulPhi=$EXIST # # $Z set _____ImageR=$xiirv/PIPO.12 # # $m4 _____include(_____xiirv/.PIPO.11.1._____U) # # $m4 _____include(_____xiirv/.CHAM.41.9._____U) # # $m4 _____include(_____xiirv/.PIPO.11.2._____U) # # $m4 _____include(_____xiirv/.PIPO.11.3._____U) # # $m4 _____include(_____xiirv/.PIPO.11.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PIPO_12: # # # # # # qui montre les 10000 premieres decimales en base 10 de 'pi' comme une marche aleatoire en # # coordonnees polaires en cumulant les 'Phi's succesifs (dite "marche aleatoire relative"). # v $xiirv/PIPO.21 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_21: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $Z set set _____Zoom=0.15 # # $Z set _____ImageR=$xiirv/PIPO.21 # # $m4 _____include(_____xiirv/.PIPO.21.2._____U) # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PIPO_21: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre entier 14159265358979323846... de 10.000 chiffres -base 10- # # en 4503152313... de 12.850 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # ATTENTION : ces decimales sont vues en fait comme un grand nombre entier "141592653589..." # # ce qui n'est pas du tout la meme chose que "0.141592653589..." puisque dans le premier # # cas, les premiers chiffres obtenus en changeant de base dependent evidemment du nombre # # total de chiffres convertis, ce qui n'est pas le cas avec la partie decimale. Dans ce # # dernier cas, on peut donc augmenter le nombre de chiffres et obtenir ainsi des figures # # qui recouvrent celles obtenues avec moins de chiffres. Ce n'est donc pas le cas ici en # # faisant comme s'il s'agissait d'un grand nombre entier... # v $xiirv/PIPO.22 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_22: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $Z set _____Zoom=0.18 # # $Z set _____VRayon=0.008 # # $Z set _____ExpansionZ=+1.4 # # $Z set _____RotationY=$pi # # $Z set _____Grossissement=1.2 # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" ajuster_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" equidistance=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" distance_minimale=0.002" # # # # $Z set _____ImageR=$xiirv/PIPO.22 # # $m4 _____include(_____xiirv/.PIPO.21.2._____U) # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PIPO_22: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre entier 14159265358979323846... de 10.000 chiffres -base 10- # # en 4503152313... de 12.850 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # ATTENTION : ces decimales sont vues en fait comme un grand nombre entier "141592653589..." # # ce qui n'est pas du tout la meme chose que "0.141592653589..." puisque dans le premier # # cas, les premiers chiffres obtenus en changeant de base dependent evidemment du nombre # # total de chiffres convertis, ce qui n'est pas le cas avec la partie decimale. Dans ce # # dernier cas, on peut donc augmenter le nombre de chiffres et obtenir ainsi des figures # # qui recouvrent celles obtenues avec moins de chiffres. Ce n'est donc pas le cas ici en # # faisant comme s'il s'agissait d'un grand nombre entier... # v $xiirv/PIPO.31.1 v $xiirv/PIPO.31.2 v $xiirv/PIPO.31.21 # Generee (sur '$CMAP28' -ex "picpus"-) par : # # # # # # :Debut_listG_PIPO_31: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/PIPO.31.T # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $Z set _____ImageR=$xTV/PIPO.31 # # $m4 _____include(_____xiirv/.PIPO.21.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $Z set execRVB_Para=FAUX # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____imagesR=$xiirv/PIPO.31 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_PIPO_31: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre entier 14159265358979323846... de 10.000 chiffres -base 10- # # en 4503152313... de 12.850 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # ATTENTION : ces decimales sont vues en fait comme un grand nombre entier "141592653589..." # # ce qui n'est pas du tout la meme chose que "0.141592653589..." puisque dans le premier # # cas, les premiers chiffres obtenus en changeant de base dependent evidemment du nombre # # total de chiffres convertis, ce qui n'est pas le cas avec la partie decimale. Dans ce # # dernier cas, on peut donc augmenter le nombre de chiffres et obtenir ainsi des figures # # qui recouvrent celles obtenues avec moins de chiffres. Ce n'est donc pas le cas ici en # # faisant comme s'il s'agissait d'un grand nombre entier... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.212,+1.04]x[-0.316,+0.8]x[-1.092,+0.144] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # v $xiirv/PIPO.42 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_42: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=100000 # # $Z set _____Zoom=0.10 # # $Z set _____VRayon=0.008 # # $Z set _____ExpansionZ=+2.8 # # $Z set _____RotationY=$pi # # $Z set _____Grossissement=1.2 # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" ajuster_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" equidistance=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" distance_minimale=0.002" # # # # $Z set _____ImageR=$xiirv/PIPO.42 # # $m4 _____include(_____xiirv/.PIPO.21.2._____U) # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PIPO_42: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre entier 14159265358979323846... de 100.000 chiffres -base 10- # # en 3031424432... de 128.509 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # ATTENTION : ces decimales sont vues en fait comme un grand nombre entier "141592653589..." # # ce qui n'est pas du tout la meme chose que "0.141592653589..." puisque dans le premier # # cas, les premiers chiffres obtenus en changeant de base dependent evidemment du nombre # # total de chiffres convertis, ce qui n'est pas le cas avec la partie decimale. Dans ce # # dernier cas, on peut donc augmenter le nombre de chiffres et obtenir ainsi des figures # # qui recouvrent celles obtenues avec moins de chiffres. Ce n'est donc pas le cas ici en # # faisant comme s'il s'agissait d'un grand nombre entier... # v $xiirv/PIPO.51.1 v $xiirv/PIPO.51.2 v $xiirv/PIPO.51.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_PIPO_51: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/PIPO.51.T # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=100000 # # $Z set _____ImageR=$xTV/PIPO.51 # # $m4 _____include(_____xiirv/.PIPO.21.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____MinX=0.15 # # $Z set _____MaxX=0.85 # # $Z set _____MinY=0.15 # # $Z set _____MaxY=0.85 # # $Z set _____MinZ=0.15 # # $Z set _____MaxZ=0.85 # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____imagesR=$xiirv/PIPO.51 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_PIPO_51: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre entier 14159265358979323846... de 100.000 chiffres -base 10- # # en 3031424432... de 128.509 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # ATTENTION : ces decimales sont vues en fait comme un grand nombre entier "141592653589..." # # ce qui n'est pas du tout la meme chose que "0.141592653589..." puisque dans le premier # # cas, les premiers chiffres obtenus en changeant de base dependent evidemment du nombre # # total de chiffres convertis, ce qui n'est pas le cas avec la partie decimale. Dans ce # # dernier cas, on peut donc augmenter le nombre de chiffres et obtenir ainsi des figures # # qui recouvrent celles obtenues avec moins de chiffres. Ce n'est donc pas le cas ici en # # faisant comme s'il s'agissait d'un grand nombre entier... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-3.76,+0.524]x[-2.284,+1.532]x[-3.36,+1.728] --> [0.15,0.85]x[0.15,0.85]x[0.15,0.85] # # # # On notera le 20240502102545 que l'image 'v $xiirv/PIPO.51.1' avait ete calcule avec la # # version 'v $Darchives/images/images/recherches/visualisation/20140206124315/.PIPO.21.2.$U' # # qui ne contenait pas 'v $xiirv/.PIPO.21.2.$U .xcp.lignes_vides.X' ce qui fait qu'il y # # avait des lignes vides correspondant a chaque fin de ligne du fichier '$_____FDecimales' # # puisqu'un caractere "@" etait introduit apres chaque decimale et en particulier apres la # # derniere decimale de chaque ligne qui etait deja suivi par un "\n". Elle a donc ete # # recalculee a cette date... # v $xiirv/PIPO.51$HauteDef.1 v $xiirv/PIPO.51$HauteDef.2 v $xiirv/PIPO.51$HauteDef.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_PIPO_51_HD: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/PIPO.51.T # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=100000 # # $Z set _____ImageR=$xTV/PIPO.51 # # $m4 _____include(_____xiirv/.PIPO.21.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____MinX=0.15 # # $Z set _____MaxX=0.85 # # $Z set _____MinY=0.15 # # $Z set _____MaxY=0.85 # # $Z set _____MinZ=0.15 # # $Z set _____MaxZ=0.85 # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____imagesR=$xiirv/PIPO.51$HauteDef # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_PIPO_51_HD: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre entier 14159265358979323846... de 100.000 chiffres -base 10- # # en 3031424432... de 128.509 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # ATTENTION : ces decimales sont vues en fait comme un grand nombre entier "141592653589..." # # ce qui n'est pas du tout la meme chose que "0.141592653589..." puisque dans le premier # # cas, les premiers chiffres obtenus en changeant de base dependent evidemment du nombre # # total de chiffres convertis, ce qui n'est pas le cas avec la partie decimale. Dans ce # # dernier cas, on peut donc augmenter le nombre de chiffres et obtenir ainsi des figures # # qui recouvrent celles obtenues avec moins de chiffres. Ce n'est donc pas le cas ici en # # faisant comme s'il s'agissait d'un grand nombre entier... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-3.76,+0.524]x[-2.284,+1.532]x[-3.36,+1.728] --> [0.15,0.85]x[0.15,0.85]x[0.15,0.85] # # # v $xiirv/PIPO.51$HauteDef.1.1 v $xiirv/PIPO.51$HauteDef.1.2 v $xiirv/PIPO.51$HauteDef.1.3 v $xiirv/PIPO.51$HauteDef.1.4 v $xiirv/PIPO.51$HauteDef.1.5 # Generee (sur '$LACT19) par : # # # # # # :Debut_listG_PIPO_51_HD_1: # # # # $Z ext Squ # # # # $Z set _____imagesA=$xiirv/PIPO.51$HauteDef.1 # # $Z set _____imagesR=$_____imagesA # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesA $_____imagesR.1 \ # # $Z BVR # # # # $Z $xci/gauss$X \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/trou_noir.H4 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/cache.31$Z \ # # $Z $xTV/GAUSS $_____imagesR.1 $_____imagesR.2 # # # # $Z $xci/cache.31$Z \ # # $Z $xiirf/CIEL.31.0017 $_____imagesR.1 $_____imagesR.3 # # # # $Z $xci/cache.31$Z \ # # $Z $xiirf/CIEL.11.0017 $_____imagesR.1 $_____imagesR.4 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiirf/NUAG.A1 \ # # $Z p=$xiP/nuages.02 \ # # $Z R=$xTV/NUAGES \ # # $Z $formatI # # # # $Z $xci/cache.31$Z \ # # $Z $xTV/NUAGES $_____imagesR.1 $_____imagesR.5 # # # # :Fin_listG_PIPO_51_HD_1: # # # v $xiirv/PIPO.51.21$m # Generee (sur '$LACT19) par : # # # # # # :Debut_listG_PIPO_51_21_m: # # # # $Z Squ # # # # $Z setenv xTV $xT # # # # $Z set _____ImageA=$xiirv/PIPO.51 # # $Z set _____ImageR=$_____ImageA.21$m # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA.1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=200 \ # # $Z navap=VRAI \ # # $Z R=$xTV/PIPO.51.21 \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z cercle_inscrit=VRAI \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$_____ImageA.2%s \ # # $Z A2=$_____ImageA.1%s \ # # $Z P=$xTV/GAUSS \ # # $Z R=$xTV/TEXTURE.21%s \ # # $Z $formatI # # # # On ne peut utiliser 'v $xiirv/PIPO.51.21' car, en effet, la "sphere grise" deborde du # # cadre de l'image. Cette image est donc recalculee ci-dessus temporairement... # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/PIPO.51.21 \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$xTV/TEXTURE.21%s \ # # $Z Sy=20 \ # # $Z avion=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_PIPO_51_21_m: # # # v $xiirv/PIPO.51.21$M # Generee (sur '$LACT1B) par : # # # # # # :Debut_listG_PIPO_51_21_M: # # # # $Z Squ # # # # $Z setenv xTV $xT # # # # $Z set _____ImageA=$xiirv/PIPO.51 # # $Z set _____ImageR=$_____ImageA.21$M # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA.1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=200 \ # # $Z navap=VRAI \ # # $Z R=$xTV/PIPO.51.21 \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z cercle_inscrit=VRAI \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$_____ImageA.2%s \ # # $Z A2=$_____ImageA.1%s \ # # $Z P=$xTV/GAUSS \ # # $Z R=$xTV/TEXTURE.21%s \ # # $Z $formatI # # # # On ne peut utiliser 'v $xiirv/PIPO.51.21' car, en effet, la "sphere grise" deborde du # # cadre de l'image. Cette image est donc recalculee ci-dessus temporairement... # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/PIPO.51.21 \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$xTV/TEXTURE.21%s \ # # $Z echelle=0.1 \ # # $Z Sy=4 \ # # $Z Ty=1.1 \ # # $Z avion=FAUX \ # # $Z perspective=2.5 \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_PIPO_51_21_M: # # # v $xiirv/PIPO.52$HauteDef.1 v $xiirv/PIPO.52$HauteDef.2 v $xiirv/PIPO.52$HauteDef.21 # Generee (sur '$CMAP28' -ex "porte-de-choisy"-) par : # # # # # # :Debut_listG_PIPO_52_HD: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/PIPO.52.T # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=100000 # # $Z set _____ImageR=$xTV/PIPO.52 # # $m4 _____include(_____xiirv/.PIPO.21.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____MinX=0.15 # # $Z set _____MaxX=0.85 # # $Z set _____MinY=0.15 # # $Z set _____MaxY=0.85 # # $Z set _____MinZ=0.15 # # $Z set _____MaxZ=0.85 # # $Z set _____DemiPaveX=20 # # $Z set _____DemiPaveY=20 # # $Z set _____DemiPaveZ=20 # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____imagesR=$xiirv/PIPO.52$HauteDef # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_PIPO_52_HD: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre entier 14159265358979323846... de 100.000 chiffres -base 10- # # en 3031424432... de 128.509 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # ATTENTION : ces decimales sont vues en fait comme un grand nombre entier "141592653589..." # # ce qui n'est pas du tout la meme chose que "0.141592653589..." puisque dans le premier # # cas, les premiers chiffres obtenus en changeant de base dependent evidemment du nombre # # total de chiffres convertis, ce qui n'est pas le cas avec la partie decimale. Dans ce # # dernier cas, on peut donc augmenter le nombre de chiffres et obtenir ainsi des figures # # qui recouvrent celles obtenues avec moins de chiffres. Ce n'est donc pas le cas ici en # # faisant comme s'il s'agissait d'un grand nombre entier... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-3.76,+0.524]x[-2.284,+1.532]x[-3.36,+1.728] --> [0.15,0.85]x[0.15,0.85]x[0.15,0.85] # # # v $xiirv/PIPO.52$HauteDef$M # Generee (sur '$LACT19) par : # # # # # # :Debut_listG_PIPO_52_HD_M: # # # # $Z Squ # # # # $Z set _____ImagesA=$xiirv/PIPO.52$HauteDef # # $Z set _____ImageR=$_____ImagesA$M # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImagesA.1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=500 \ # # $Z navap=VRAI \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z echelle=0.4 \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$_____ImagesA.21%s \ # # $Z avion=FAUX \ # # $Z perspective=1.0 \ # # $Z Ty=1.1 \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_PIPO_52_HD_M: # # # v $xiirv/PIPO.61 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_61: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=2000 # # $Z set _____Grossissement=1.2 # # $Z set _____ImageR=$xiirv/PIPO.61 # # $m4 _____include(_____xiirv/.PIPO.61.2._____U) # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PIPO_61: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre entier 14159265358979323846... de 2.000 chiffres -base 10- # # en 2003033002... de 3.321 chiffres -base 4- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 2. # # # # ATTENTION : ces decimales sont vues en fait comme un grand nombre entier "141592653589..." # # ce qui n'est pas du tout la meme chose que "0.141592653589..." puisque dans le premier # # cas, les premiers chiffres obtenus en changeant de base dependent evidemment du nombre # # total de chiffres convertis, ce qui n'est pas le cas avec la partie decimale. Dans ce # # dernier cas, on peut donc augmenter le nombre de chiffres et obtenir ainsi des figures # # qui recouvrent celles obtenues avec moins de chiffres. Ce n'est donc pas le cas ici en # # faisant comme s'il s'agissait d'un grand nombre entier... # v $xiirv/PIPO.62 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_62: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=2000 # # $Z set _____Z0=0 # # $Z set _____ZN=2 # # $Z set _____RotationY=1.2 # # $Z set _____Grossissement=1.2 # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" Zminimum=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" ZminimumT=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" Zmaximum=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" ZmaximumT=1.0" # # $Z set _____ImageR=$xiirv/PIPO.62 # # $m4 _____include(_____xiirv/.PIPO.61.2._____U) # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PIPO_62: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre entier 14159265358979323846... de 2.000 chiffres -base 10- # # en 2003033002... de 3.321 chiffres -base 4- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 2. # # # # ATTENTION : ces decimales sont vues en fait comme un grand nombre entier "141592653589..." # # ce qui n'est pas du tout la meme chose que "0.141592653589..." puisque dans le premier # # cas, les premiers chiffres obtenus en changeant de base dependent evidemment du nombre # # total de chiffres convertis, ce qui n'est pas le cas avec la partie decimale. Dans ce # # dernier cas, on peut donc augmenter le nombre de chiffres et obtenir ainsi des figures # # qui recouvrent celles obtenues avec moins de chiffres. Ce n'est donc pas le cas ici en # # faisant comme s'il s'agissait d'un grand nombre entier... # v $xiirv/PIPO.71 # Generee (sur '$CMAP28' -ex "picpus"-) par : # # # # # # :Debut_listG_PIPO_71: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $Z set _____Zoom=0.25 # # $Z set _____VRayon=0.006 # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # # # $Z set _____ImageR=$xiirv/PIPO.71 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PIPO_71: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre decimal 3.141592653589793238... de 10.000 chiffres -base 10- # # en 0503300514... de 12.849 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # v $xiirv/PIPO.72 # Generee (sur '$CMAP28' -ex "picpus"-) par : # # # # # # :Debut_listG_PIPO_72: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $Z set _____Zoom=0.220 # # $Z set _____VRayon=0.008 # # $Z set _____ExpansionZ=+3.0 # # $Z set _____Grossissement=1.2 # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" ajuster_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" equidistance=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" distance_minimale=0.002" # # # # $Z set _____ImageR=$xiirv/PIPO.72 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PIPO_72: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre decimal 3.141592653589793238... de 10.000 chiffres -base 10- # # en 0503300514... de 12.849 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # v $xiirv/PIPO.73 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_73: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=100000 # # $Z set _____Zoom=0.083 # # $Z set _____VRayon=0.028 # # $Z set _____ExpansionZ=+3.0 # # $Z set _____Grossissement=1.2 # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" isoles=VRAI chainer=FAUX" # # # # $Z set _____Palette=$xiP/arc_ciel.B1 # # $Z set _____Palette=$xiP/random.A5 # # $Z set _____Palette=$xiP/random.B3.Fi # # $Z set _____Palette=$xiP/random.B7.Fi # # $Z set _____Palette=$xiP/trou_noir.74 # # $Z set _____ImageR=$xiirv/PIPO.73 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PIPO_73: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre decimal 3.141592653589793238... de 100.000 chiffres -base 10- # # en 0503300514... de 128.508 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # v $xiirv/PIPO.74 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_74: # # # # $Z Squ # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z SET _____SupPartieEntiere=$NEXIST # # $Z set _____NIterations=100000 # # $Z set _____Zoom=0.056 # # $Z set _____RotationY=$pi # # $Z set _____VRayon=0.028 # # $Z set _____ExpansionZ=+4.0 # # $Z set _____Grossissement=1.2 # # # # $Z execRVB $xci/init$X \ # # $Z n=$GRIS_6 \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" isoles=VRAI chainer=FAUX" # # $Z set _____ParticulePara2="$_____ParticulePara2"" fond=VRAI F=$xTV/FOND" # # $Z set _____ParticulePara2="$_____ParticulePara2"" tYp=+0.025" # # $Z set _____ParticulePara2="$_____ParticulePara2"" couronne=1" # # # # $Z set _____Palette=$xiP/arc_ciel.B1 # # $Z set _____NiveauMinimal=$BLANC # # $Z set _____NiveauMaximal=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/random.A5 # # $Z set _____Palette=$xiP/random.B3.Fi # # $Z set _____Palette=$xiP/random.B7.Fi # # $Z set _____Palette=$xiP/trou_noir.74 # # $Z set _____Palette=$xiP/cercle.R3 # # $Z set _____Palette=$xiP/cercle.35 # # $Z set _____ImageR=$xiirv/PIPO.74 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PIPO_74: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre decimal 3.141592653589793238... de 100.000 chiffres -base 10- # # en 3050330051... de 128.509 chiffres -base 6- avec la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # ATTENTION : ces decimales sont vues en fait comme un grand nombre entier "141592653589..." # # ce qui n'est pas du tout la meme chose que "0.141592653589..." puisque dans le premier # # cas, les premiers chiffres obtenus en changeant de base dependent evidemment du nombre # # total de chiffres convertis, ce qui n'est pas le cas avec la partie decimale. Dans ce # # dernier cas, on peut donc augmenter le nombre de chiffres et obtenir ainsi des figures # # qui recouvrent celles obtenues avec moins de chiffres. Ce n'est donc pas le cas ici en # # faisant comme s'il s'agissait d'un grand nombre entier... # v $xiirv/PIPO.81.0 v $xiirv/PIPO.81.1 v $xiirv/PIPO.81.2 v $xiirv/PIPO.81.21 # Generee (sur '$CMAP28' -ex "picpus"-) par : # # # # # # :Debut_listG_PIPO_81: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/PIPO.81.T # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $Z set _____Zoom=0.250 # # $Z set _____ImageR=$xiirv/PIPO.81 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $Z set execRVB_Para=FAUX # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_PIPO_81: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre decimal 3.141592653589793238... de 10.000 chiffres -base 10- # # en 0503300514... de 12.849 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.36,+0.745]x[-0.185,+0.515]x[-0.28,+0.295] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # On notera le "_____Zoom=0.250" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/PIPO.81.0'... # v $xiirv/PIPO.82.0 v $xiirv/PIPO.82.1 v $xiirv/PIPO.82.2 v $xiirv/PIPO.82.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_PIPO_82: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/PIPO.82.T # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=4000 # # $Z set _____Zoom=0.250 # # $Z set _____ImageR=$xiirv/PIPO.82 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_PIPO_82: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre decimal 3.141592653589793238... de 4.000 chiffres -base 10- # # en 0503300514... de 5.138 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.36,+0.735]x[+0.064,+0.515]x[-0.28,+0.040] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # On notera le "_____Zoom=0.250" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/PIPO.81.0'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:19:18 # # # # $xci/accumule.42$X : 00:50:28 # # # v $xiirv/PIPO.83.0 v $xiirv/PIPO.83.1 v $xiirv/PIPO.83.2 v $xiirv/PIPO.83.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_PIPO_83: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/PIPO.83.T # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $Z set _____Zoom=0.250 # # $Z set _____ImageR=$xiirv/PIPO.83 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_PIPO_83: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre decimal 3.141592653589793238... de 10.000 chiffres -base 10- # # en 0503300514... de 12.849 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.36,+0.745]x[-0.185,+0.515]x[-0.28,+0.295] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # On notera le "_____Zoom=0.250" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/PIPO.81.0'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:21:31 # # # # $xci/accumule.42$X : 00:50:42 # # # v $xiirv/PIPO.83.21$M # Generee (sur '$LACT19) par : # # # # # # :Debut_listG_PIPO_83_21_M: # # # # $Z Squ # # # # # # $Z set _____ImagesA=$xiirv/PIPO.83 # # $Z set _____ImageR=$_____ImagesA.21$M # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImagesA.1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=10 \ # # $Z navap=VRAI \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z echelle=0.1 \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$_____ImagesA.21%s \ # # $Z avion=FAUX \ # # $Z perspective=1.0 \ # # $Z Ty=1.1 \ # # $Z R=$xTV/PIPO.83.21$M%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z A=$xTV/PIPO.83.21$M%s \ # # $Z R=$xTV/PIPO.83.21$M%s \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xTV/PIPO.83.21$M%s \ # # $Z iterations=7 \ # # $Z cache=VRAI \ # # $Z anti_aliaser=VRAI \ # # $Z echelle=VRAI a=0.7 \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_PIPO_83_21_M: # # # v $xiirv/PIPO.92 # Generee (sur '$CMAP28' -ex "picpus"-) par : # # # # # # :Debut_listG_PIPO_92: # # # # $Z Shu # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=100000 # # $Z set _____Zoom=0.06 # # $Z set _____VRayon=0.010 # # $Z set _____ExpansionZ=+2.8 # # $Z set _____RotationY=$pi # # $Z set _____Grossissement=1.2 # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" ajuster_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" equidistance=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" distance_minimale=0.002" # # # # $Z set _____ImageR=$xiirv/PIPO.92 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PIPO_92: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre decimal 3.141592653589793238... de 100.000 chiffres -base 10- # # en 0503300514... de 128.508 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # ATTENTION : ces decimales sont vues en fait comme un grand nombre entier "141592653589..." # # ce qui n'est pas du tout la meme chose que "0.141592653589..." puisque dans le premier # # cas, les premiers chiffres obtenus en changeant de base dependent evidemment du nombre # # total de chiffres convertis, ce qui n'est pas le cas avec la partie decimale. Dans ce # # dernier cas, on peut donc augmenter le nombre de chiffres et obtenir ainsi des figures # # qui recouvrent celles obtenues avec moins de chiffres. Ce n'est donc pas le cas ici en # # faisant comme s'il s'agissait d'un grand nombre entier... # v $xiirv/PIPO.A1.0 v $xiirv/PIPO.A1.1 v $xiirv/PIPO.A1.2 v $xiirv/PIPO.A1.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_PIPO_A1: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/PIPO.A1.T # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=100000 # # $Z set _____Zoom=0.085 # # $Z set _____ImageR=$xiirv/PIPO.A1 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $Z set execRVB_Para=FAUX # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_PIPO_A1: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre decimal 3.141592653589793238... de 100.000 chiffres -base 10- # # en 0503300514... de 128.508 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.4014,+0.7686]x[-0.1035,+0.6258]x[-0.0986,+0.6664] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # On notera le "_____Zoom=0.085" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/PIPO.A1.0'... # v $xiirv/PIPO.A1.21$m v $xiirv/PIPO.A1.21.1$M v $xiirv/PIPO.A1.21.2$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_A1_21_M: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____Ty=0.70 # # $Z set _____imageR=$xiirv/PIPO.A1.21 # # $m4 _____include(_____xiirf/.FRB3.Z1.21.M.1._____U) # # # # :Fin_listG_PIPO_A1_21_M: # # # v $xiirv/PIPO.B1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_B1: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $Z set _____Zoom=0.4 # # $Z set _____Grossissement=1.2 # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" ajuster_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" equidistance=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" distance_minimale=0.002" # # # # $Z set _____ImageR=$xiirv/PIPO.B1 # # $m4 _____include(_____xiirv/.PIPO.B1.2._____U) # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PIPO_B1: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre decimal 3.141592653589793238... de 10.000 chiffres -base 10- # # en 0210033312... de 16.607 chiffres -base 4- avec la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 2. # v $xiirv/PIPO.B2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_B2: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $Z set _____Z0=0 # # $Z set _____ZN=4 # # $Z set _____RotationY=1.2 # # $Z set _____Zoom=0.4 # # $Z set _____Grossissement=1.2 # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" ajuster_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" equidistance=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" distance_minimale=0.002" # # $Z set _____ParticulePara2="$_____ParticulePara2"" Zminimum=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" ZminimumT=0.2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" Zmaximum=1.0" # # $Z set _____ParticulePara2="$_____ParticulePara2"" ZmaximumT=1.0" # # # # $Z set _____ImageR=$xiirv/PIPO.B2 # # $m4 _____include(_____xiirv/.PIPO.B1.2._____U) # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PIPO_B2: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre decimal 3.141592653589793238... de 10.000 chiffres -base 10- # # en 0210033312... de 16.607 chiffres -base 4- avec la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 2. # v $xiirv/PIPO.C1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_C1: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=5000 # # $Z set _____ImageR=$xiirv/PIPO.C1 # # $m4 _____include(_____xiirv/.PIPO.11.1._____U) # # $m4 _____include(_____xiirv/.PIPO.C1.2._____U) # # $m4 _____include(_____xiirv/.PIPO.11.3._____U) # # $m4 _____include(_____xiirv/.PIPO.11.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PIPO_C1: # # # # # # qui montre les 5000 premiers couples de decimales en base 10 de 'pi' comme une marche # # aleatoire en coordonnees polaires (dite "marche aleatoire absolue"). # v $xiirv/PIPO.C2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_C2: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=5000 # # $Z SET _____CumulPhi=$EXIST # # $Z set _____ImageR=$xiirv/PIPO.C2 # # $m4 _____include(_____xiirv/.PIPO.11.1._____U) # # $m4 _____include(_____xiirv/.PIPO.C1.2._____U) # # $m4 _____include(_____xiirv/.PIPO.11.3._____U) # # $m4 _____include(_____xiirv/.PIPO.11.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PIPO_C2: # # # # # # qui montre les 5000 premiers couples de decimales en base 10 de 'pi' comme une marche # # aleatoire en coordonnees polaires et en cumulant les 'Phi's succesifs (dite "marche # # aleatoire relative"). # v $xiirv/PIPO.D3 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_D3: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____Part0=1 # # $Z set _____PartN=100000 # # $Z set _____Rayon=1500 # # $Z set _____Rho0=0.0 # # $Z set _____RhoN=0.54 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=1000 # # $Z set _____ExposantR=0 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=0.8" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____FacteurP=0.8 # # $Z set _____RenormaliserN=$EXIST # # $Z set _____Palette=$xiP/cercle.D3 # # $Z set _____images=$xiirv/PIPO.D3 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PIPO.D3.21._____U) # # $m4 _____include(_____xiirv/.PRIM.G2._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PIPO_D3: # # # # # # Spirale d'archimede montrant les 100000 premieres decimales de pi... # v $xiirv/PIPO.D3.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_D3_1: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # # # $Z set _____Part0=1 # # $Z set _____PartN=100000 # # $Z set _____Rayon=1500 # # $Z set _____Rho0=0.0 # # $Z set _____RhoN=0.54 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=1000 # # $Z set _____ExposantR=0 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=0.8" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____FacteurP=0.8 # # $Z set _____RenormaliserN=$EXIST # # $Z set _____Palette=$xiP/cercle.D3 # # $Z set _____images=$xiirv/PIPO.D3.1 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PIPO.D3.22._____U) # # $m4 _____include(_____xiirv/.PRIM.G2._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PIPO_D3_1: # # # # # # Spirale d'archimede montrant 100000 chiffres decimaux aleatoires... # v $xiirv/PIPO.D3.2$Fi p=$xiP/dentscie.A8 v $xiirv/PIPO.D3.2$Fi p=$xiP/fractal.03 v $xiirv/PIPO.D3.2$Fi p=$xiP/orange.11 v $xiirv/PIPO.D3.2$Fi p=$xiP/random.14$Fi v $xiirv/PIPO.D3.2$Fi p=$xiP/random.91$Fi v $xiirv/PIPO.D3.2$Fi p=$xiP/random.93$Fi v $xiirv/PIPO.D3.2$Fi p=$xiP/random.B3$Fi # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_D3_2_Fi: # # # # $Z Squ # # # # $Z set _____ImageA=$xiirv/PIPO.D3 # # $Z set _____ImageR=$_____ImageA.2$Fi # # # # $Z $xci/gauss$X \ # # $Z c=32 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z execRVB $xci/filtre.01$X \ # # $Z A=$_____ImageA%s \ # # $Z N=$xTV/GAUSS \ # # $Z seuil=245 \ # # $Z R=$xTV/FILTRAGE%s \ # # $Z $formatI # # # # $Z execRVB $xci/un_sur_z.01$X \ # # $Z A=$xTV/FILTRAGE%s \ # # $Z facteur=2000000 \ # # $Z R=$xTV/UN_SUR_Z%s \ # # $Z $formatI # # # # $Z execRVB $xci/filtre.01$X \ # # $Z A=$xTV/UN_SUR_Z%s \ # # $Z N=$xTV/GAUSS \ # # $Z seuil=245 \ # # $Z R=$xTV/FILTRAGE%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/FILTRAGE \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_PIPO_D3_2_Fi: # # # # # # Image qui montre 'v $xiirv/PIPO.D3' subissant une transformation conforme avec filtrages # # suivant le principe de 'v $xiia/CONFORME.31$Fi p=$xiP/fractal.03'... # v $xiirv/PIPO.D3.2$Fi$m # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_D3_2_Fi_m: # # # # $Z Squ # # # # $Z set _____ImageA=$xiirv/PIPO.D3.2$Fi # # $Z set _____ImageR=$_____ImageA$m # # # # $Z set _____Palette=$xiP/random.93$Fi # # # # $m4 _____include(_____xiirv/.PIPO.D3.2._____Fi._____m._____U) # # # # :Fin_listG_PIPO_D3_2_Fi_m: # # # v $xiirv/PIPO.D3.2$Fi$m$R04 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_D3_2_Fi_m_R04: # # # # $Z Squ # # # # $Z set _____ImageA=$xiirv/PIPO.D3.2$Fi # # # # $Z set _____ImageR=$xTV/PIPO.D3.2$Fi.0001 # # $Z set _____Palette=$xiP/random.A5 # # $m4 _____include(_____xiirv/.PIPO.D3.2._____Fi._____m._____U) # # # # $Z set _____ImageR=$xTV/PIPO.D3.2$Fi.0002 # # $Z set _____Palette=$xiP/random.B3$Fi # # $m4 _____include(_____xiirv/.PIPO.D3.2._____Fi._____m._____U) # # # # $Z set _____ImageR=$xTV/PIPO.D3.2$Fi.0003 # # $Z set _____Palette=$xiP/NoeudTrefle.01 # # $m4 _____include(_____xiirv/.PIPO.D3.2._____Fi._____m._____U) # # # # $Z set _____ImageR=$xTV/PIPO.D3.2$Fi.0004 # # $Z set _____Palette=$xiP/random.91$Fi # # $m4 _____include(_____xiirv/.PIPO.D3.2._____Fi._____m._____U) # # # # $Z set _____ImageR=$xiirv/PIPO.D3.2$Fi$m$R04 # # $Z execRVB $xci/reduction_04$X A=$xTV/PIPO.D3.2$Fi. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_PIPO_D3_2_Fi_m_R04: # # # v $xiirv/PIPO.D4 v $xiirv/PIPO.D4$m v $xiirv/PIPO.D4$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_D4: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____TranslationDecimales=1 # # $Z set _____Part0=1 # # $Z set _____PartN=51 # # $Z set _____Rayon=10000 # # $Z set _____Rho0=0.0 # # $Z set _____RhoN=0.154 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=1000 # # $Z set _____ExposantR=1.0 # # $Z SET _____ThetaSpirale=3 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.5" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____FacteurP=0 # # $Z set _____RenormaliserN=$EXIST # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PIPO.D4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.G2._____U) # # # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____images=$xTV/PIPO.D4 # # $m4 _____include(_____xiirv/.PIPO.D4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.14._____U) # # # # Cette generation de l'image '$xTV/PIPO.D4' est destinee a garantir que la hauteur des # # pics est bien une fonction croissante des 10 differents chiffres, ceci se faisant via la # # palette 'v $xiio/MIRE p=$xiP/gris.94' qui est une palette a luminance croissance en # # particulier pour les 10 premiers niveaux... # # # # $Z set _____Palette=$xiP/random.A5 # # $Z set _____imagesL=$_____images # # $Z set _____images=$xiirv/PIPO.D4 # # $m4 _____include(_____xiirv/.PIPO.D4.31._____U) # # # # :Fin_listG_PIPO_D4: # # # # # # Spirale d'archimede montrant pi avec 50 chiffres (3.1415...). # v $xiirv/PIPO.D5 v $xiirv/PIPO.D5$m v $xiirv/PIPO.D5$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_D5: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____TranslationDecimales=1 # # $Z set _____Part0=1 # # $Z set _____PartN=51 # # $Z set _____Rayon=10000 # # $Z set _____Rho0=0.0 # # $Z set _____RhoN=0.154 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=1000 # # $Z set _____DiviseurR=80 # # $Z set _____ExposantR=1.0 # # $Z SET _____ThetaSpirale=3 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.5" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____FacteurP=0 # # $Z set _____RenormaliserN=$EXIST # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PIPO.D4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.G2._____U) # # # # $Z set _____SpiralePartN_Effectif=`calcul 26*$_____PartN` # # $m4 _____include(_____xiirv/.PIPO.D4.32._____U) # # # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____images=$xTV/PIPO.D5 # # $m4 _____include(_____xiirv/.PIPO.D4.12._____U) # # $m4 _____include(_____xiirv/.PIPO.D4.33._____U) # # # # $m4 _____include(_____xiirv/.PRIM.4.14._____U) # # # # Cette generation de l'image '$xTV/PIPO.D5' est destinee a garantir que la hauteur des # # pics est bien une fonction croissante des 10 differents chiffres, ceci se faisant via la # # palette 'v $xiio/MIRE p=$xiP/gris.94' qui est une palette a luminance croissance en # # particulier pour les 10 premiers niveaux... # # # # $Z set _____Palette=$xiP/random.G5 # # $Z set _____imagesL=$_____images # # $Z set _____images=$xiirv/PIPO.D5 # # $m4 _____include(_____xiirv/.PIPO.D4.31._____U) # # # # :Fin_listG_PIPO_D5: # # # # # # Spirale d'archimede montrant pi avec 50 chiffres (3.1415...). # v $xiirv/PIPO.D6 v $xiirv/PIPO.D6$m v $xiirv/PIPO.D6$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_D6: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____TranslationDecimales=1 # # $Z set _____Part0=1 # # $Z set _____PartN=101 # # $Z set _____Rayon=10000 # # $Z set _____Rho0=0.0 # # $Z set _____RhoN=0.154 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=1000 # # $Z set _____DiviseurR=80 # # $Z set _____ExposantR=1.0 # # $Z SET _____ThetaSpirale=3 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.5" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____FacteurP=0 # # $Z set _____RenormaliserN=$EXIST # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PIPO.D4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.G2._____U) # # # # $Z set _____SpiralePartN_Effectif=`calcul 26*$_____PartN` # # $m4 _____include(_____xiirv/.PIPO.D4.32._____U) # # # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____images=$xTV/PIPO.D6 # # $m4 _____include(_____xiirv/.PIPO.D4.12._____U) # # $m4 _____include(_____xiirv/.PIPO.D4.33._____U) # # # # $m4 _____include(_____xiirv/.PRIM.4.14._____U) # # # # Cette generation de l'image '$xTV/PIPO.D6' est destinee a garantir que la hauteur des # # pics est bien une fonction croissante des 10 differents chiffres, ceci se faisant via la # # palette 'v $xiio/MIRE p=$xiP/gris.94' qui est une palette a luminance croissance en # # particulier pour les 10 premiers niveaux... # # # # $Z set _____Palette=$xiP/random.G5 # # $Z set _____imagesL=$_____images # # $Z set _____images=$xiirv/PIPO.D6 # # $m4 _____include(_____xiirv/.PIPO.D4.31._____U) # # # # :Fin_listG_PIPO_D6: # # # # # # Spirale d'archimede montrant pi avec 100 chiffres (3.1415...). # v $xiirv/PIPO.D7 v $xiirv/PIPO.D7$m v $xiirv/PIPO.D7$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_D7: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____TranslationDecimales=1 # # $Z set _____Part0=1 # # $Z set _____PartN=201 # # $Z set _____Rayon=10000 # # $Z set _____Rho0=0.0 # # $Z set _____RhoN=0.154 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=1000 # # $Z set _____DiviseurR=80 # # $Z set _____ExposantR=1.0 # # $Z SET _____ThetaSpirale=3 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.5" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____FacteurP=0 # # $Z set _____RenormaliserN=$EXIST # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PIPO.D4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.G2._____U) # # # # $Z set _____SpiralePartN_Effectif=`calcul 26*$_____PartN` # # $m4 _____include(_____xiirv/.PIPO.D4.32._____U) # # # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____images=$xTV/PIPO.D7 # # $m4 _____include(_____xiirv/.PIPO.D4.12._____U) # # $m4 _____include(_____xiirv/.PIPO.D4.33._____U) # # # # $m4 _____include(_____xiirv/.PRIM.4.14._____U) # # # # Cette generation de l'image '$xTV/PIPO.D7' est destinee a garantir que la hauteur des # # pics est bien une fonction croissante des 10 differents chiffres, ceci se faisant via la # # palette 'v $xiio/MIRE p=$xiP/gris.94' qui est une palette a luminance croissance en # # particulier pour les 10 premiers niveaux... # # # # $Z set _____Palette=$xiP/random.G5 # # $Z set _____imagesL=$_____images # # $Z set _____images=$xiirv/PIPO.D7 # # $m4 _____include(_____xiirv/.PIPO.D4.31._____U) # # # # :Fin_listG_PIPO_D7: # # # # # # Spirale d'archimede montrant pi avec 200 chiffres (3.1415...). # v $xiirv/PIPO.D8 v $xiirv/PIPO.D8$m v $xiirv/PIPO.D8$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_D8: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____TranslationDecimales=1 # # $Z set _____Part0=1 # # $Z set _____PartN=1001 # # $Z set _____Rayon=10000 # # $Z set _____Rho0=0.0 # # $Z set _____RhoN=0.154 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=1000 # # $Z set _____DiviseurR=80 # # $Z set _____ExposantR=1.0 # # $Z SET _____ThetaSpirale=3 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.5" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____FacteurP=0 # # $Z set _____RenormaliserN=$EXIST # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PIPO.D4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.G2._____U) # # # # $Z set _____SpiralePartN_Effectif=`calcul 26*$_____PartN` # # $m4 _____include(_____xiirv/.PIPO.D4.32._____U) # # # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____images=$xTV/PIPO.D8 # # $m4 _____include(_____xiirv/.PIPO.D4.12._____U) # # $m4 _____include(_____xiirv/.PIPO.D4.33._____U) # # # # $m4 _____include(_____xiirv/.PRIM.4.14._____U) # # # # Cette generation de l'image '$xTV/PIPO.D8' est destinee a garantir que la hauteur des # # pics est bien une fonction croissante des 10 differents chiffres, ceci se faisant via la # # palette 'v $xiio/MIRE p=$xiP/gris.94' qui est une palette a luminance croissance en # # particulier pour les 10 premiers niveaux... # # # # $Z SET _____GaussienneC=128 # # $Z set _____GaussienneA=2 # # $Z set _____EchelleM=0.4 # # # # Les montagnes des decimales sont a priori renormalisee dans [0,1] et la surface gaussienne # # est calculee dans [0,$_____GaussienneA]. # # # # La surface resultante est donc dans [0,max(1,$_____GaussienneC)] qui est ensuite # # renormalisee dans [0,$_____EchelleM]... # # # # $Z set _____Palette=$xiP/random.G5 # # $Z set _____imagesL=$_____images # # $Z set _____images=$xiirv/PIPO.D8 # # $m4 _____include(_____xiirv/.PIPO.D4.31._____U) # # # # :Fin_listG_PIPO_D8: # # # # # # Spirale d'archimede montrant pi avec 1000 chiffres (3.1415...). # v $xiirv/PIPO.D9 v $xiirv/PIPO.D9$m v $xiirv/PIPO.D9$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_D9: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____TranslationDecimales=1 # # $Z set _____Part0=1 # # $Z set _____PartN=10001 # # $Z set _____Rayon=10000 # # $Z set _____Rho0=0.0 # # $Z set _____RhoN=0.154 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=1000 # # $Z set _____DiviseurR=80 # # $Z set _____ExposantR=1.0 # # $Z SET _____ThetaSpirale=3 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.5" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____FacteurP=0 # # $Z set _____RenormaliserN=$EXIST # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PIPO.D4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.G2._____U) # # # # $Z set _____SpiralePartN_Effectif=`calcul 26*$_____PartN` # # $m4 _____include(_____xiirv/.PIPO.D4.32._____U) # # # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____images=$xTV/PIPO.D9 # # $m4 _____include(_____xiirv/.PIPO.D4.12._____U) # # $m4 _____include(_____xiirv/.PIPO.D4.33._____U) # # # # $m4 _____include(_____xiirv/.PRIM.4.14._____U) # # # # Cette generation de l'image '$xTV/PIPO.D9' est destinee a garantir que la hauteur des # # pics est bien une fonction croissante des 10 differents chiffres, ceci se faisant via la # # palette 'v $xiio/MIRE p=$xiP/gris.94' qui est une palette a luminance croissance en # # particulier pour les 10 premiers niveaux... # # # # $Z set _____PassesLissage=10 # # $Z SET _____GaussienneC=128 # # $Z set _____GaussienneA=2 # # $Z set _____EchelleM=0.2 # # # # Les montagnes des decimales sont a priori renormalisee dans [0,1] et la surface gaussienne # # est calculee dans [0,$_____GaussienneA]. # # # # La surface resultante est donc dans [0,max(1,$_____GaussienneC)] qui est ensuite # # renormalisee dans [0,$_____EchelleM]... # # # # $Z set _____Palette=$xiP/random.G5 # # $Z set _____imagesL=$_____images # # $Z set _____images=$xiirv/PIPO.D9 # # $m4 _____include(_____xiirv/.PIPO.D4.31._____U) # # # # :Fin_listG_PIPO_D9: # # # # # # Spirale d'archimede montrant pi avec 10000 chiffres (3.1415...). # v $xiirv/PIPO.E1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_E1: # # # # $Z Sdu # # # # $Z FilSTmpB FDeCiMaLeS # # # # $Z set _____FDecimales=$FDeCiMaLeS # # $Z set _____NIterations=10000 # # # # $Z set FDeCiMaLeS1=$xrp/Decimales_Base10_Pi_____110200 # # $Z set FDeCiMaLeS2=$xrk/NombresPremiers_1000000 # # # # $Z set NDeCiMaLeS1=`$CA $FDeCiMaLeS1 | $WCl` # # $Z set NDeCiMaLeS2=`$CA $FDeCiMaLeS2 | $WCl` # # $Z set NDeCiMaLeS=`$xcg/MIN2.01$X a=$NDeCiMaLeS1 b=$NDeCiMaLeS2` # # # # $Z $xrv/selection.02$X ne=$NDeCiMaLeS \ # # $Z fichier=$FDeCiMaLeS1 \ # # $Z selection=$FDeCiMaLeS2 \ # # $Z formater=VRAI signe="$K_VIDE" \ # # $Z >> $_____FDecimales # # # # $Z echo "NombreDecimales="`$CA $_____FDecimales | $WCl` # # # # $Z set _____Zoom=0.2 # # $Z set _____VRayon=0.008 # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" ajuster_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" equidistance=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" distance_minimale=0.002" # # # # $Z set _____ImageR=$xiirv/PIPO.E1 # # $m4 _____include(_____xiirv/.PIPO.11.1._____U) # # $m4 _____include(_____xiirv/.CHAM.41.9._____U) # # $m4 _____include(_____xiirv/.PIPO.11.2._____U) # # $m4 _____include(_____xiirv/.PIPO.11.3._____U) # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z FilSTmpE FDeCiMaLeS # # # # :Fin_listG_PIPO_E1: # # # # # # qui montre les 10465 premieres decimales en base 10 de 'pi' (dont on ne selectionne que # # celles qui ont un rang premier) comme une marche aleatoire en coordonnees polaires # # (dite "marche aleatoire absolue"). # v $xiirv/PIPO.F1.0 v $xiirv/PIPO.F1.1 v $xiirv/PIPO.F1.2 v $xiirv/PIPO.F1.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_F1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=256 # # # # $Z set _____ImageT1=$xTV/PIPO.F1.T # # # # $Z FilSTmpB FDeCiMaLeS # # # # $Z set _____FDecimales=$FDeCiMaLeS # # $Z set _____NIterations=10000 # # # # $Z set FDeCiMaLeS1=$xrp/Decimales_Base10_Pi_____110200 # # $Z set FDeCiMaLeS2=$xrk/NombresPremiers_1000000 # # # # $Z set NDeCiMaLeS1=`$CA $FDeCiMaLeS1 | $WCl` # # $Z set NDeCiMaLeS2=`$CA $FDeCiMaLeS2 | $WCl` # # $Z set NDeCiMaLeS=`$xcg/MIN2.01$X a=$NDeCiMaLeS1 b=$NDeCiMaLeS2` # # # # $Z echo "3." \ # # $Z >> $_____FDecimales # # # # $Z $xrv/selection.02$X ne=$NDeCiMaLeS \ # # $Z fichier=$FDeCiMaLeS1 \ # # $Z selection=$FDeCiMaLeS2 \ # # $Z formater=VRAI signe="$K_VIDE" \ # # $Z >> $_____FDecimales # # # # $Z echo "NombreDecimales="`$CA $_____FDecimales | $GRE -v '^.*[,.]$' | $WCl` # # # # $Z set _____Zoom=0.380 # # $Z set _____DistanceMini=0.001 # # $Z set _____ImageR=$xiirv/PIPO.F1 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # $Z set _____MinX=0.0 # # $Z set _____MaxX=1.0 # # $Z set _____MinY=0.0 # # $Z set _____MaxY=1.0 # # $Z set _____MinZ=0.2 # # $Z set _____MaxZ=0.8 # # $Z set _____DemiPaveX=0 # # $Z set _____DemiPaveY=0 # # $Z set _____DemiPaveZ=0 # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $Z set execRVB_Para=FAUX # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_PIPO_F1: # # # # # # Le nombre 'pi' en ne retenant que les decimales dont le rang est un nombre premier : # # # # Conversion du nombre decimal 3.152599863909995049... de 10.000 chiffres -base 10- # # en 0525434110... de 12.849 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # ATTENTION : ces decimales sont vues en fait comme un grand nombre entier "141592653589..." # # ce qui n'est pas du tout la meme chose que "0.141592653589..." puisque dans le premier # # cas, les premiers chiffres obtenus en changeant de base dependent evidemment du nombre # # total de chiffres convertis, ce qui n'est pas le cas avec la partie decimale. Dans ce # # dernier cas, on peut donc augmenter le nombre de chiffres et obtenir ainsi des figures # # qui recouvrent celles obtenues avec moins de chiffres. Ce n'est donc pas le cas ici en # # faisant comme s'il s'agissait d'un grand nombre entier... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.0972,+0.6216]x[+0.3632,+1.0472]x[-0.038,+0.2584] --> [0.0,1.0]x[0.0,1.0]x[0.2,0.8] # # # # On notera la "restriction" de l'axe 'OZ' ([0.2,0.8]) destinee a assurer la connexite de # # la figure resultante. Ainsi, avec [0.0,1.0] (pour 'OZ'), elle n'etait pas connexe... # # # # Les experiences faites a cette occasion laisse supposer avec une forte probabilite que # # la non connexite n'est qu'une "illusion" venant du fait que '$dimZ' est beaucoup plus # # petite que '$dimX' et '$dimY'. Le champ de densite n'est alors qu'un ensemble d'un petit # # nombre de couches (chacune correspondant a un 'Z' different) et est donc tres discontinu # # le long de 'OZ'. La non connexite correspond donc au passage d'une couche 'Z' a une couche # # voisine... # # # # On notera le "_____Zoom=0.380" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/PIPO.F1.0'... # v $xiirv/PIPO.F2.0 v $xiirv/PIPO.F2.1 v $xiirv/PIPO.F2.2 v $xiirv/PIPO.F2.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_F2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/PIPO.F2.T # # # # $Z FilSTmpB FDeCiMaLeS # # # # $Z set _____FDecimales=$FDeCiMaLeS # # $Z set _____NIterations=10000 # # # # $Z set FDeCiMaLeS1=$xrp/Decimales_Base10_Pi_____110200 # # $Z set FDeCiMaLeS2=$xrk/NombresPremiers_1000000 # # # # $Z set NDeCiMaLeS1=`$CA $FDeCiMaLeS1 | $WCl` # # $Z set NDeCiMaLeS2=`$CA $FDeCiMaLeS2 | $WCl` # # $Z set NDeCiMaLeS=`$xcg/MIN2.01$X a=$NDeCiMaLeS1 b=$NDeCiMaLeS2` # # # # $Z echo "3." \ # # $Z >> $_____FDecimales # # # # $Z $xrv/selection.02$X ne=$NDeCiMaLeS \ # # $Z fichier=$FDeCiMaLeS1 \ # # $Z selection=$FDeCiMaLeS2 \ # # $Z formater=VRAI signe="$K_VIDE" \ # # $Z >> $_____FDecimales # # # # $Z echo "NombreDecimales="`$CA $_____FDecimales | $GRE -v '^.*[,.]$' | $WCl` # # # # $Z set _____Zoom=0.380 # # $Z set _____DistanceMini=0.001 # # $Z set _____ImageR=$xiirv/PIPO.F2 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # $Z set _____MinX=0.0 # # $Z set _____MaxX=1.0 # # $Z set _____MinY=0.0 # # $Z set _____MaxY=1.0 # # $Z set _____MinZ=0.2 # # $Z set _____MaxZ=0.8 # # # # $Z set _____DemiPaveX=0 # # $Z set _____DemiPaveY=0 # # $Z set _____DemiPaveZ=0 # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $Z set execRVB_Para=FAUX # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_PIPO_F2: # # # # # # Le nombre 'pi' en ne retenant que les decimales dont le rang est un nombre premier : # # # # Conversion du nombre decimal 3.152599863909995049... de 10.000 chiffres -base 10- # # en 0525434110... de 12.849 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # ATTENTION : ces decimales sont vues en fait comme un grand nombre entier "141592653589..." # # ce qui n'est pas du tout la meme chose que "0.141592653589..." puisque dans le premier # # cas, les premiers chiffres obtenus en changeant de base dependent evidemment du nombre # # total de chiffres convertis, ce qui n'est pas le cas avec la partie decimale. Dans ce # # dernier cas, on peut donc augmenter le nombre de chiffres et obtenir ainsi des figures # # qui recouvrent celles obtenues avec moins de chiffres. Ce n'est donc pas le cas ici en # # faisant comme s'il s'agissait d'un grand nombre entier... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.0972,+0.6216]x[+0.3632,+1.0472]x[-0.038,+0.2584] --> [0.0,1.0]x[0.0,1.0]x[0.2,0.8] # # # # On notera la "restriction" de l'axe 'OZ' ([0.2,0.8]) destinee a assurer la connexite de # # la figure resultante. Ainsi, avec [0.0,1.0] (pour 'OZ'), elle n'etait pas connexe et le # # passage de 256 a 512 couches n'a rien ameliore... # # # # Les experiences faites a cette occasion laisse supposer avec une forte probabilite que # # la non connexite n'est qu'une "illusion" venant du fait que '$dimZ' est beaucoup plus # # petite que '$dimX' et '$dimY'. Le champ de densite n'est alors qu'un ensemble d'un petit # # nombre de couches (chacune correspondant a un 'Z' different) et est donc tres discontinu # # le long de 'OZ'. La non connexite correspond donc au passage d'une couche 'Z' a une couche # # voisine... # # # # On notera le "_____Zoom=0.380" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/PIPO.F1.0'... # v $xiirv/PIPO.F3.0 v $xiirv/PIPO.F3.1 v $xiirv/PIPO.F3.2 v $xiirv/PIPO.F3.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_F3: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=256 # # # # $Z set _____ImageT1=$xTV/PIPO.F3.T # # # # $Z FilSTmpB FDeCiMaLeS # # # # $Z set _____FDecimales=$FDeCiMaLeS # # $Z set _____NIterations=10000 # # # # $Z set FDeCiMaLeS1=$xrp/Decimales_Base10_Pi_____110200 # # $Z set FDeCiMaLeS2=$xrk/NombresPremiers_1000000 # # # # $Z set NDeCiMaLeS1=`$CA $FDeCiMaLeS1 | $WCl` # # $Z set NDeCiMaLeS2=`$CA $FDeCiMaLeS2 | $WCl` # # $Z set NDeCiMaLeS=`$xcg/MIN2.01$X a=$NDeCiMaLeS1 b=$NDeCiMaLeS2` # # # # $Z echo "3." \ # # $Z >> $_____FDecimales # # # # $Z $xrv/selection.02$X ne=$NDeCiMaLeS \ # # $Z fichier=$FDeCiMaLeS1 \ # # $Z selection=$FDeCiMaLeS2 \ # # $Z formater=VRAI signe="$K_VIDE" \ # # $Z >> $_____FDecimales # # # # $Z echo "NombreDecimales="`$CA $_____FDecimales | $GRE -v '^.*[,.]$' | $WCl` # # # # $Z set _____Zoom=0.380 # # $Z set _____DistanceMini=0.001 # # $Z set _____ImageR=$xiirv/PIPO.F3 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # $Z set _____MinX=0.0 # # $Z set _____MaxX=1.0 # # $Z set _____MinY=0.0 # # $Z set _____MaxY=1.0 # # $Z set _____MinZ=0.2 # # $Z set _____MaxZ=0.8 # # # # $Z set _____DemiPaveX=0 # # $Z set _____DemiPaveY=0 # # $Z set _____DemiPaveZ=0 # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $Z set execRVB_Para=FAUX # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=2 # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_PIPO_F3: # # # # # # Le nombre 'pi' en ne retenant que les decimales dont le rang est un nombre premier : # # # # Conversion du nombre decimal 3.152599863909995049... de 10.000 chiffres -base 10- # # en 0525434110... de 12.849 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # ATTENTION : ces decimales sont vues en fait comme un grand nombre entier "141592653589..." # # ce qui n'est pas du tout la meme chose que "0.141592653589..." puisque dans le premier # # cas, les premiers chiffres obtenus en changeant de base dependent evidemment du nombre # # total de chiffres convertis, ce qui n'est pas le cas avec la partie decimale. Dans ce # # dernier cas, on peut donc augmenter le nombre de chiffres et obtenir ainsi des figures # # qui recouvrent celles obtenues avec moins de chiffres. Ce n'est donc pas le cas ici en # # faisant comme s'il s'agissait d'un grand nombre entier... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.0972,+0.6216]x[+0.3632,+1.0472]x[-0.038,+0.2584] --> [0.0,1.0]x[0.0,1.0]x[0.2,0.8] # # # # On notera le "_____Zoom=0.380" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/PIPO.F1.0'... # v $xiirv/PIPO.G1 p=$xiP/cercle.41 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_G1: # # # # $Z Std # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____ImageR=$xiirv/PIPO.G1 # # $m4 _____include(_____xiirv/.PIPO.G1.2._____U) # # # # :Fin_listG_PIPO_G1: # # # # # # qui montre les 262144 premieres decimales en base 2 de 'pi' comme une image 'Std'... # v $xiirv/PIPO.G1.Diffusion p=$xiP/cercle.41 # Generee (sur '$LACT17' -sur '$CMAP28' en ce qui concerne 'v $xiak/DIFF.11.ma$R16'-) par : # # # # # # :Debut_listG_PIPO_G1_Diffusion: # # # # $Z set _____FoRmAt="Std" # # $Z set _____ImageR=$xiirv/PIPO.G1 # # $m4 _____include(_____xiirv/.PIPO.G1.3._____U) # # $m4 _____include(_____xiirk/.DIFF.11.0._____U) # # $m4 _____include(_____xiirk/.DIFF.11.4._____U) # # # # $Z $xci/neutre$X \ # # $Z A=$_____images.$NuMeRos \ # # $Z R=$_____ImageR.Diffusion \ # # $Z $formatI # # # # :Fin_listG_PIPO_G1_Diffusion: # # # # # # qui montre les 262144 premieres decimales en base 2 de 'pi' comme une image 'Std' # # traitee ensuite comme une diffusion bidimensionnelle... # v $xiirv/PIPO.G2 p=$xiP/cercle.41 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_G2: # # # # $Z Std # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z SET _____Spirale=$EXIST # # $Z set _____ImageR=$xiirv/PIPO.G2 # # $m4 _____include(_____xiirv/.PIPO.G1.2._____U) # # # # :Fin_listG_PIPO_G2: # # # # # # qui montre les 262144 (en fait un peu moins car, en effet, certaines coordonnees {X,Y} # # generees parmi les dernieres sont hors-image, ce qui justifie la ligne noire situee en # # bas de l'image) premieres decimales en base 2 de 'pi' comme une spirale carree dans # # une image 'Std'... # v $xiirv/PIPO.G2.Diffusion p=$xiP/cercle.41 # Generee (sur '$LACT17' -sur '$CMAP28' en ce qui concerne 'v $xiak/DIFF.11.ma$R16'-) par : # # # # # # :Debut_listG_PIPO_G2_Diffusion: # # # # $Z set _____FoRmAt="Std" # # $Z set _____ImageR=$xiirv/PIPO.G2 # # $m4 _____include(_____xiirv/.PIPO.G1.3._____U) # # $m4 _____include(_____xiirk/.DIFF.11.0._____U) # # $m4 _____include(_____xiirk/.DIFF.11.4._____U) # # # # $Z $xci/neutre$X \ # # $Z A=$_____images.$NuMeRos \ # # $Z R=$_____ImageR.Diffusion \ # # $Z $formatI # # # # :Fin_listG_PIPO_G2_Diffusion: # # # # # # qui montre les 262144 (en fait un peu moins car, en effet, certaines coordonnees {X,Y} # # generees parmi les dernieres sont hors-image, ce qui justifie la ligne bleue situee en # # bas de l'image) premieres decimales en base 2 de 'pi' comme une spirale carree dans # # dans une image 'Std' traitee ensuite comme une diffusion bidimensionnelle... # # # # La difference d'apparence avec 'v $xiirv/PIPO.G1.Diffusion' et 'v $xiirv/PIPO.G3.Diffusion' # # vient tres certainement de la ligne inferieure (correspondant a 'Ymin') qui est vide... # v $xiirv/PIPO.G3 p=$xiP/cercle.41 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_G3: # # # # $Z Std # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z SET _____Triangle=$EXIST # # $Z set _____ImageR=$xiirv/PIPO.G3 # # $m4 _____include(_____xiirv/.PIPO.G1.2._____U) # # # # :Fin_listG_PIPO_G3: # # # # # # qui montre les 262144 premieres decimales en base 2 de 'pi' suivant les droites # # paralleles a la premiere "anti-bissectrice" depuis l'origine... # v $xiirv/PIPO.G3.Diffusion p=$xiP/cercle.41 # Generee (sur '$LACT17' -sur '$CMAP28' en ce qui concerne 'v $xiak/DIFF.11.ma$R16'-) par : # # # # # # :Debut_listG_PIPO_G3_Diffusion: # # # # $Z set _____FoRmAt="Std" # # $Z set _____ImageR=$xiirv/PIPO.G3 # # $m4 _____include(_____xiirv/.PIPO.G1.3._____U) # # $m4 _____include(_____xiirk/.DIFF.11.0._____U) # # $m4 _____include(_____xiirk/.DIFF.11.4._____U) # # # # $Z $xci/neutre$X \ # # $Z A=$_____images.$NuMeRos \ # # $Z R=$_____ImageR.Diffusion \ # # $Z $formatI # # # # :Fin_listG_PIPO_G3_Diffusion: # # # # # # qui montre les 262144 premieres decimales en base 2 de 'pi' suivant les droites # # paralleles a la premiere "anti-bissectrice" depuis l'origine, image 'Std' traitee # # ensuite comme une diffusion bidimensionnelle... # v $xiirv/PIPO.H0 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_H0: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NDecimales=1000 # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ParticulePara="projection_parallele=VRAI" # # $Z set _____ImageR=$xiirv/PIPO.H0 # # $m4 _____include(_____xiirv/.PIPO.H1.1._____U) # # # # :Fin_listG_PIPO_H0: # # # # # # qui montre les 1000 premieres decimales de 'pi' sur une helice (vue dans l'axe de l'helice) # # et en projection parallele... # v $xiirv/PIPO.H0.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_H0_1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NDecimales=11 # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____Zoom=0.86 # # $Z set _____VRayonD=0.025 # # $Z set _____VRayonA=0.005 # # $Z set _____Palette=$xiP/cercle.K4 # # $Z set _____ParticulePara="projection_parallele=VRAI" # # $Z set _____ImageR=$xiirv/PIPO.H0.1 # # $m4 _____include(_____xiirv/.PIPO.H1.1._____U) # # # # $Z execRVB "$xci/cache$X \ # # $Z A=$_____ImageR%s \ # # $Z M=$xiirv/PIPO.I1%s \ # # $Z anti_aliasing=VRAI \ # # $Z $formatI | \ # # $Z $xci/message$X \ # # $Z message="pi=3,14159265358..." \ # # $Z bibliotheque_00_fonte_proportionnelle=VRAI \ # # $Z niveau_fond=$NOIR niveau_message=$BLANC \ # # $Z centrer=VRAI \ # # $Z anti_aliasing=VRAI \ # # $Z taille=2 \ # # $Z Y=0.05 \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_PIPO_H0_1: # # # # # # qui montre les 11 premieres decimales de 'pi' sur une helice (vue dans l'axe de l'helice) # # et en projection parallele... # v $xiirv/PIPO.H0$R16 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_H0_16: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____Zoom=0.86 # # $Z set _____VRayonD=0.025 # # $Z set _____VRayonA=0.005 # # $Z set _____Palette=$xiP/cercle.K4 # # $Z set _____ParticulePara="projection_parallele=VRAI" # # # # $Z set LMessages=($K_VIDE) # # $Z set LMessages=($LMessages 14) # # $Z set LMessages=($LMessages 141) # # $Z set LMessages=($LMessages 1415) # # $Z set LMessages=($LMessages 14159) # # $Z set LMessages=($LMessages 141592) # # $Z set LMessages=($LMessages 1415926) # # $Z set LMessages=($LMessages 14159265) # # $Z set LMessages=($LMessages 141592653) # # $Z set LMessages=($LMessages 1415926535) # # $Z set LMessages=($LMessages 14159265358) # # $Z set LMessages=($LMessages 141592653589) # # $Z set LMessages=($LMessages 1415926535897) # # $Z set LMessages=($LMessages 14159265358979) # # $Z set LMessages=($LMessages 141592653589793) # # $Z set LMessages=($LMessages 1415926535897932) # # $Z set LMessages=($LMessages 14159265358979323) # # # # $Z set ImAgE_T=$xTV/PIPO.H0. # # $Z set PrEmIeRe=1 # # $Z set DeRnIeRe=$#LMessages # # $Z set ArG1="p=$PrEmIeRe d=$DeRnIeRe" # # $Z set LNuMeRoS_=`$xci/nombres$X $ArG1` # # $Z set ArG2="vD=$BLANC vA=$NOIR lineaire=VRAI entiers=VRAI" # # $Z set LNiveauNOIR=`$xci/valeurs_inte$X $ArG1 $ArG2` # # $Z set index_R16=1 # # $Z set _____NDecimales=2 # # # # $Z foreach NuMeRo ($LNuMeRoS_) # # $Z set _____NiveauNOIR=$LNiveauNOIR[$index_R16] # # $Z set _____ImageR=$ImAgE_T$NuMeRo # # $m4 _____include(_____xiirv/.PIPO.H1.1._____U) # # # # $Z execRVB "$xci/cache$X \ # # $Z A=$_____ImageR%s \ # # $Z M=$xiirv/PIPO.I1%s \ # # $Z anti_aliasing=VRAI \ # # $Z $formatI | \ # # $Z $xci/message$X \ # # $Z message="pi=3,""$LMessages[$index_R16]""..." \ # # $Z bibliotheque_00_fonte_proportionnelle=VRAI \ # # $Z niveau_fond=$NOIR niveau_message=$BLANC \ # # $Z centrer=VRAI \ # # $Z anti_aliasing=VRAI \ # # $Z taille=2 \ # # $Z Y=0.05 \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # $Z @ _____NDecimales = $_____NDecimales + 1 # # $Z @ index_R16 = $index_R16 + 1 # # $Z end # # # # $Z set DiMeNsIoN=`calculINS sqrt($#LMessages)` # # $Z set _____ImageR=$xiirv/PIPO.H0$R16 # # # # $Z execRVB $xci/regroupe.02$Z \ # # $Z $ImAgE_T \ # # $Z $_____ImageR%s \ # # $Z $PrEmIeRe 1 \ # # $Z $DiMeNsIoN $DiMeNsIoN \ # # $Z "%s" \ # # $Z '$K_QD$formatR_Pqu$K_QD' \ # # $Z `GetParam $xci/regroupe.01$X chiffres` \ # # $Z FAUX \ # # $Z VRAI # # # # :Fin_listG_PIPO_H0_16: # # # # # # qui montre les 17 premieres decimales de 'pi' sur une helice (vue dans l'axe de l'helice) # # et en projection parallele... # v $xiirv/PIPO.H1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_H1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NDecimales=1000 # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____ImageR=$xiirv/PIPO.H1 # # $m4 _____include(_____xiirv/.PIPO.H1.1._____U) # # # # :Fin_listG_PIPO_H1: # # # # # # qui montre les premieres decimales de 'pi' sur une fausse helice (vue dans son axe). # v $xiirv/PIPO.H2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_H2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NDecimales=1000 # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____RotationY=$pis4 # # $Z set _____ImageR=$xiirv/PIPO.H2 # # $m4 _____include(_____xiirv/.PIPO.H1.1._____U) # # # # :Fin_listG_PIPO_H2: # # # # # # qui montre les premieres decimales de 'pi' sur une fausse helice (vue de cote). # v $xiirv/PIPO.I1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_I1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/PIPO.I1 # # $m4 _____include(_____xiirv/.PIPO.I1.1._____U) # # # # :Fin_listG_PIPO_I1: # # # # # # qui explique le "fonctionnement" de 'v $xiirv/PIPO.H1' et de 'v $xiirv/PIPO.H2'... # v $xiirv/PIPO.J1 p=$xiP/RVB.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_J1: # # # # $Z Sud # # # # $Z setenv xTV $xTG # # # # $Z set _____FDecimales=$xrp/Decimales_Base03_Pi_____209591 # # $Z set _____ImageR=$xiirv/PIPO.J1 # # $m4 _____include(_____xiirv/.PIPO.J1.1._____U) # # # # :Fin_listG_PIPO_J1: # # # # # # qui montre les 65536 premieres "decimales" en base 3 de 'pi'... # v $xiirv/PIPO.J2 p=$xiP/RVB.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_J2: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z set _____FDecimales=$xrp/Decimales_Base03_Pi_____314386 # # $Z set _____Grossissement=2 # # $Z set _____ImageR=$xiirv/PIPO.J2 # # $m4 _____include(_____xiirv/.PIPO.J1.1._____U) # # # # :Fin_listG_PIPO_J2: # # # # # # qui montre les 262144 premieres "decimales" en base 3 de 'pi'... # v $xiirv/PIPO.J3 p=$xiP/RVB.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_J3: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____FDecimales=$xrp/Decimales_Base03_Pi_____1068911 # # $Z set _____Grossissement=1 # # $Z set _____ImageR=$xiirv/PIPO.J3 # # $m4 _____include(_____xiirv/.PIPO.J1.1._____U) # # # # :Fin_listG_PIPO_J3: # # # # # # qui montre les 1048576 premieres "decimales" en base 3 de 'pi'... # v $xiirv/PIPO.K1 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_K1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NDecimales=1000 # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z SET _____VraieHelice=$EXIST # # $Z set _____ImageR=$xiirv/PIPO.K1 # # $m4 _____include(_____xiirv/.PIPO.H1.1._____U) # # # # :Fin_listG_PIPO_K1: # # # # # # qui montre les premieres decimales de 'pi' sur une vraie helice (vue dans son axe). # v $xiirv/PIPO.K2 # Generee (sur '$LACT1A' et recalcule le 20240220110323 sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_K2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NDecimales=1000 # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z SET _____VraieHelice=$EXIST # # $Z set _____RotationY=$pis4 # # $Z set _____ImageR=$xiirv/PIPO.K2 # # $m4 _____include(_____xiirv/.PIPO.H1.1._____U) # # # # :Fin_listG_PIPO_K2: # # # # # # qui montre les premieres decimales de 'pi' sur une vraie helice (vue de cote). # v $xiirv/PIPO.K3 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_K3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NDecimales=20 # # # # $Z set _____FDecimales=($xrp/Decimales_Base10_Pi_____100000 "HELICE") # # $Z set _____Palette=($xiP/cercle.C5 $xiP/orange) # # $Z set _____VRayonD=(0.024 0.010) # # $Z set _____VRayonA=(0.010 0.010) # # # # Pour des raisons de "visibilite", il est important que les rayons 'D' et 'A' des decimales # # soient superieurs aux rayons 'D' et 'A' de l'"HELICE"... # # # # $Z SET _____VraieHelice=$EXIST # # $Z set _____RotationY=$pis4 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" DepthCueingMaximal=1" # # $Z set _____ParticulePara="$_____ParticulePara"" DepthCueingMinimal=0" # # # # $Z set _____ImageR=$xiirv/PIPO.K3 # # $m4 _____include(_____xiirv/.PIPO.H1.1._____U) # # # # :Fin_listG_PIPO_K3: # # # # # # qui montre les premieres decimales de 'pi' sur une vraie helice (vue de cote). # v $xiirv/PIPO.K4 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_K4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NDecimales=20 # # # # $Z set _____FDecimales=($xrp/Decimales_Base10_Pi_____100000 "HELICE") # # $Z set _____Palette=($xiP/cercle.C5 $xiP/orange) # # $Z set _____VRayonD=(0.024 0.010) # # $Z set _____VRayonA=(0.010 0.010) # # # # Pour des raisons de "visibilite", il est important que les rayons 'D' et 'A' des decimales # # soient superieurs aux rayons 'D' et 'A' de l'"HELICE"... # # # # $Z SET _____VraieHelice=$EXIST # # $Z SET _____Etiquettage=$EXIST # # $Z set _____Grossissement=1 # # $Z set _____RotationY=$pis4 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" DepthCueingMaximal=1" # # $Z set _____ParticulePara="$_____ParticulePara"" DepthCueingMinimal=0" # # # # $Z set _____ImageR=$xiirv/PIPO.K4 # # $m4 _____include(_____xiirv/.PIPO.H1.1._____U) # # # # :Fin_listG_PIPO_K4: # # # # # # qui montre les premieres decimales de 'pi' sur une vraie helice (vue de cote) avec # # indication des decimales... # v $xiirv/PIPO.K5 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_K5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NDecimales=50 # # # # $Z set _____FDecimales=($xrp/Decimales_Base10_Pi_____100000 "HELICE") # # $Z set _____Palette=($xiP/cercle.C5 $xiP/orange) # # $Z set _____VRayonD=(0.024 0.004) # # $Z set _____VRayonA=(0.010 0.004) # # # # Pour des raisons de "visibilite", il est important que les rayons 'D' et 'A' des decimales # # soient superieurs aux rayons 'D' et 'A' de l'"HELICE"... # # # # $Z SET _____VraieHelice=$EXIST # # $Z SET _____Etiquettage=$EXIST # # $Z set _____Grossissement=1 # # $Z set _____RotationY=$pis4 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" DepthCueingMaximal=1" # # $Z set _____ParticulePara="$_____ParticulePara"" DepthCueingMinimal=0" # # # # $Z set _____ImageR=$xiirv/PIPO.K5 # # $m4 _____include(_____xiirv/.PIPO.H1.1._____U) # # # # :Fin_listG_PIPO_K5: # # # # # # qui montre les premieres decimales de 'pi' sur une vraie helice (vue de cote) avec # # indication des decimales... # v $xiirv/PIPO.K6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_K6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NDecimales=101 # # # # $Z set _____FDecimales=($xrp/Decimales_Base10_Pi_____100000 "HELICE") # # $Z SET _____SupPartieEntiere=$NEXIST # # $Z set _____Palette=($xiP/arc_ciel.B1 $xiP/GRIS_2) # # $Z set _____VRayonD=(0.010 0.005) # # $Z set _____VRayonA=(0.005 0.005) # # # # Pour des raisons de "visibilite", il est important que les rayons 'D' et 'A' des decimales # # soient superieurs aux rayons 'D' et 'A' de l'"HELICE"... # # # # $Z SET _____VraieHelice=$EXIST # # $Z set _____KNombres=0.010 # # $Z set _____RNombres=0.005 # # $Z SET _____Etiquettage=$EXIST # # $Z set _____Grossissement=1.2 # # $Z set _____RotationY=$pis4 # # # # $Z execRVB $xci/init$X \ # # $Z n=$GRIS_4 \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" DepthCueingMaximal=1" # # $Z set _____ParticulePara="$_____ParticulePara"" DepthCueingMinimal=0.4" # # $Z set _____ParticulePara="$_____ParticulePara"" fond=VRAI F=$xTV/FOND" # # # # $Z set _____ImageR=$xiirv/PIPO.K6 # # $m4 _____include(_____xiirv/.PIPO.H1.1._____U) # # # # :Fin_listG_PIPO_K6: # # # # # # qui montre les premiers chiffres de 'pi' sur une vraie helice (vue de cote) avec # # indication des decimalesm=, en incluant la partie entiere... # v $xiirv/PIPO.K7 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_K7: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NDecimales=1000 # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z SET _____SupPartieEntiere=$NEXIST # # # # $Z set _____VRayonD=0.006 # # $Z set _____VRayonA=0.006 # # $Z set _____Grossissement=1.4 # # $Z SET _____VraieHelice=$EXIST # # $Z set _____RotationY=$pis4 # # # # $Z execRVB $xci/init$X \ # # $Z n=$GRIS_8 \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" DepthCueingMaximal=1" # # $Z set _____ParticulePara="$_____ParticulePara"" DepthCueingMinimal=0.0" # # $Z set _____ParticulePara="$_____ParticulePara"" fond=VRAI F=$xTV/FOND" # # # # $Z set _____ImageR=$xiirv/PIPO.K7 # # $m4 _____include(_____xiirv/.PIPO.H1.1._____U) # # # # :Fin_listG_PIPO_K7: # # # # # # qui montre les premiers chiffres de 'pi' sur une vraie helice (vue de cote) avec # v $xiirv/PIPO.L2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_L2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K2" # # # # $Z set _____Profondeur=2 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PIPO.L2 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PIPO_L2: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 4 decimales de pi sur une courbe # # de Hilbert bidimensionnelle (iteration 1)... # v $xiirv/PIPO.L3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_L3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K3" # # # # $Z set _____Profondeur=3 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PIPO.L3 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PIPO_L3: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 16 decimales de pi sur une courbe # # de Hilbert bidimensionnelle (iteration 2)... # v $xiirv/PIPO.L4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_L4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K4" # # # # $Z set _____Profondeur=4 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PIPO.L4 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PIPO_L4: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 64 decimales de pi sur une courbe # # de Hilbert bidimensionnelle (iteration 3)... # v $xiirv/PIPO.L5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_L5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K5" # # # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PIPO.L5 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PIPO_L5: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 256 decimales de pi sur une courbe # # de Hilbert bidimensionnelle (iteration 4)... # v $xiirv/PIPO.L6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_L6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K6" # # # # $Z set _____Profondeur=6 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PIPO.L6 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PIPO_L6: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 1024 decimales de pi sur une courbe # # de Hilbert bidimensionnelle (iteration 5)... # v $xiirv/PIPO.M2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_M2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=2 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/PIPO.M2 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=2 # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____FRayon=0.010 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_PIPO_M2: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 8 decimales de pi sur une courbe # # de Hilbert tridimensionnelle (iteration 1)... # v $xiirv/PIPO.M3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_M3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=3 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/PIPO.M3 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=2 # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____FRayon=0.010 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_PIPO_M3: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 64 decimales de pi sur une courbe # # de Hilbert tridimensionnelle (iteration 2)... # v $xiirv/PIPO.M4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_M4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=4 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/PIPO.M4 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=2 # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____FRayon=0.010 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_PIPO_M4: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 512 decimales de pi sur une courbe # # de Hilbert tridimensionnelle (iteration 3)... # v $xiirv/PIPO.M5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_M5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/PIPO.M5 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=2 # # $Z set _____Palette=$xiP/arc_ciel.M1 # # $Z set _____FRayon=0.010 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_PIPO_M5: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 4096 decimales de pi sur une courbe # # de Hilbert tridimensionnelle (iteration 4)... # v $xiirv/PIPO.N2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_N2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K2" # # # # $Z set _____Profondeur=2 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/random.33 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PIPO.N2 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z SET _____CouleursDecimales=$EXIST # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PIPO_N2: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 4 decimales de pi sur une courbe # # de Hilbert bidimensionnelle (iteration 1)... # v $xiirv/PIPO.N3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_N3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K3" # # # # $Z set _____Profondeur=3 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/random.33 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PIPO.N3 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z SET _____CouleursDecimales=$EXIST # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PIPO_N3: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 16 decimales de pi sur une courbe # # de Hilbert bidimensionnelle (iteration 2)... # v $xiirv/PIPO.N4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_N4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K4" # # # # $Z set _____Profondeur=4 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/random.33 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PIPO.N4 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z SET _____CouleursDecimales=$EXIST # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PIPO_N4: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 64 decimales de pi sur une courbe # # de Hilbert bidimensionnelle (iteration 3)... # v $xiirv/PIPO.N5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_N5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K5" # # # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/random.33 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PIPO.N5 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z SET _____CouleursDecimales=$EXIST # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PIPO_N5: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 256 decimales de pi sur une courbe # # de Hilbert bidimensionnelle (iteration 4)... # v $xiirv/PIPO.N5.1 v $xiirv/PIPO.N5.1.Sphere # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_N5_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/trou_noir.I4 # # $Z set _____Zoom=1.30 # # $Z set _____Grossissement=1.5 # # $Z set _____ImageR=$xiirv/PIPO.N5.1 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z set _____PartieEntiere=$EXIST # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z SET _____CouleursDecimales=$EXIST # # $Z set _____TransDecimales=2 # # $Z set _____FRayon=0.010 # # $Z set _____ExposantR=1.0 # # $Z set _____FacteurR=0.6 # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $Z set _____ParticulePara1="$_____ParticulePara1"" isoles=FAUX" # # $Z set _____ParticulePara1="$_____ParticulePara1"" chainer=VRAI" # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # # # $Z set _____Dm=0.002 # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $FLiStE_PoInTs" # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $m4 _____include(_____xiirv/.HILB.N5.1._____U) # # # # $Z set _____Surface=$xrs/sphere.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.5" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=1" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____ArgSurface="$_____ArgSurface"" dcm=0.2" # # # # $Z set MiNiMuM_u=`GetParam $_____Surface mu` # # $Z set MaXiMuM_u=`GetParam $_____Surface Mu` # # $Z set EpSiLoN_u=0.2 # # $Z set MiNiMuM_u=`$xcg/ADD2.01$X a=$MiNiMuM_u b=$EpSiLoN_u` # # $Z set MaXiMuM_u=`$xcg/SOUS.01$X a=$MaXiMuM_u b=$EpSiLoN_u` # # $Z set _____Renormalisation_u="m=$MiNiMuM_u M=$MaXiMuM_u" # # # # Et ce afin de ne pas atteindre les deux poles... # # # # $Z set MiNiMuM_v=`GetParam $_____Surface mv` # # $Z set MaXiMuM_v=`GetParam $_____Surface Mv` # # $Z set EpSiLoN_v=0.2 # # $Z set MiNiMuM_v=`$xcg/ADD2.01$X a=$MiNiMuM_v b=$EpSiLoN_v` # # $Z set MaXiMuM_v=`$xcg/SOUS.01$X a=$MaXiMuM_v b=$EpSiLoN_v` # # $Z set _____Renormalisation_v="m=$MiNiMuM_v M=$MaXiMuM_v" # # # # Et ce afin que cela ne se referme pas sur les meridiens 0 et 2.pi... # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____ImageR=$_____ImageR.Sphere # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $Z FilSTmpE FLiStE_PoInTs # # # # :Fin_listG_PIPO_N5_1: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 256 decimales de pi sur une courbe # # de Hilbert bidimensionnelle (iteration 4) mappee sur une sphere... # v $xiirv/PIPO.N5.2.Sphere # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_N5_2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/trou_noir.I4 # # $Z set _____Zoom=1.30 # # $Z set _____Grossissement=1.5 # # $Z set _____ImageR=$xTV/PIPO.N5.2 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # # # $Z set _____PartieEntiere=$EXIST # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z SET _____CouleursDecimales=$EXIST # # $Z set _____TransDecimales=2 # # $Z set _____FRayon=0.010 # # $Z set _____ExposantR=1.0 # # $Z set _____FacteurR=0.6 # # $Z FilSTmpB _____FSave_Decimales # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # # # $Z set _____ParticulePara1="$_____ParticulePara1"" isoles=FAUX" # # $Z set _____ParticulePara1="$_____ParticulePara1"" chainer=VRAI" # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # # # $Z set _____NAuCarre=VRAI # # # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" ChiffresFlot=6" # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z set _____Dm=0.002 # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $FLiStE_PoInTs" # # $Z set _____Keep_FiLeTmP_HILBERT_all=$NEXIST # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $m4 _____include(_____xiirv/.HILB.N5.1._____U) # # # # $Z set DePtHCuEiNg=0.2 # # # # $Z set _____Surface=$xrs/sphere.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.5" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=1" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____ArgSurface="$_____ArgSurface"" dcm=$DePtHCuEiNg" # # # # $Z set MiNiMuM_u=`GetParam $_____Surface mu` # # $Z set MaXiMuM_u=`GetParam $_____Surface Mu` # # $Z set EpSiLoN_u=0.2 # # $Z set MiNiMuM_u=`$xcg/ADD2.01$X a=$MiNiMuM_u b=$EpSiLoN_u` # # $Z set MaXiMuM_u=`$xcg/SOUS.01$X a=$MaXiMuM_u b=$EpSiLoN_u` # # $Z set _____Renormalisation_u="m=$MiNiMuM_u M=$MaXiMuM_u" # # # # Et ce afin de ne pas atteindre les deux poles... # # # # $Z set MiNiMuM_v=`GetParam $_____Surface mv` # # $Z set MaXiMuM_v=`GetParam $_____Surface Mv` # # $Z set EpSiLoN_v=0.2 # # $Z set MiNiMuM_v=`$xcg/ADD2.01$X a=$MiNiMuM_v b=$EpSiLoN_v` # # $Z set MaXiMuM_v=`$xcg/SOUS.01$X a=$MaXiMuM_v b=$EpSiLoN_v` # # $Z set _____Renormalisation_v="m=$MiNiMuM_v M=$MaXiMuM_v" # # # # Et ce afin que cela ne se referme pas sur les meridiens 0 et 2.pi... # # # # # # $Z FilSTmpB ZBuFfEr # # $Z set _____SurfacePara1="$K_VIDE" # # $Z set _____SurfacePara1="$_____SurfacePara1"" lister_les_points=VRAI" # # $Z set _____SurfacePara1="$_____SurfacePara1"" lister_les_points_apres=VRAI" # # $Z set _____SurfacePara1="$_____SurfacePara1"" ZBuffer_initial=-100" # # $Z set _____SurfacePara1="$_____SurfacePara1"" Z0=-100" # # $Z set _____SurfacePara1="$_____SurfacePara1"" ZBuffer=VRAI Z=$ZBuFfEr" # # $Z set _____SurfacePara1="$_____SurfacePara1"" ATTENTION=FAUX" # # # # $Z FilSTmpB FCoOrDoNnEeS_T # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $FCoOrDoNnEeS_T" # # $Z set _____ImageR=$xiirv/PIPO.N5.2.Sphere # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $m4 _____include(_____xiirv/.HILB.N5.2._____U) # # $Z FilSTmpE FCoOrDoNnEeS_T # # $Z FilSTmpE ZBuFfEr # # # # $Z FilSTmpE FLiStE_PoInTs # # $Z FilSTmpE _____FSave_Decimales # # # # :Fin_listG_PIPO_N5_2: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 256 decimales de pi sur une courbe # # de Hilbert bidimensionnelle (iteration 4) mappee sur une sphere... # v $xiirv/PIPO.N5.3.Sphere # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_N5_3: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/cercle.T4 # # $Z set _____Zoom=1.30 # # $Z set _____Grossissement=1.5 # # $Z set _____ImageR=$xTV/PIPO.N5.3 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # # # $Z set _____PartieEntiere=$EXIST # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z SET _____CouleursDecimales=$EXIST # # $Z set _____TransDecimales=2 # # $Z set _____FRayon=0.010 # # $Z set _____ExposantR=1.0 # # $Z set _____FacteurR=0.6 # # $Z FilSTmpB _____FSave_Decimales # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # # # $Z set _____ParticulePara1="$_____ParticulePara1"" isoles=FAUX" # # $Z set _____ParticulePara1="$_____ParticulePara1"" chainer=VRAI" # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # # # $Z set _____NAuCarre=VRAI # # # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" ChiffresFlot=6" # # # # $Z FilSTmpB FLiStE_PoInTs # # # # $Z set _____Dm=0.002 # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $FLiStE_PoInTs" # # $Z set _____Keep_FiLeTmP_HILBERT_all=$NEXIST # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $m4 _____include(_____xiirv/.HILB.N5.1._____U) # # # # $Z set DePtHCuEiNg=0.2 # # # # $Z set _____Surface=$xrs/sphere.11$X # # $Z set _____ArgSurface="$K_VIDE" # # $Z set _____ArgSurface="$_____ArgSurface"" ZOOM=1.5" # # $Z set _____ArgSurface="$_____ArgSurface"" ROTATION_OX=1" # # $Z set _____ArgSurface="$_____ArgSurface"" Lz=100" # # $Z set _____ArgSurface="$_____ArgSurface"" dcm=$DePtHCuEiNg" # # # # $Z set MiNiMuM_u=`GetParam $_____Surface mu` # # $Z set MaXiMuM_u=`GetParam $_____Surface Mu` # # $Z set EpSiLoN_u=0.2 # # $Z set MiNiMuM_u=`$xcg/ADD2.01$X a=$MiNiMuM_u b=$EpSiLoN_u` # # $Z set MaXiMuM_u=`$xcg/SOUS.01$X a=$MaXiMuM_u b=$EpSiLoN_u` # # $Z set _____Renormalisation_u="m=$MiNiMuM_u M=$MaXiMuM_u" # # # # Et ce afin de ne pas atteindre les deux poles... # # # # $Z set MiNiMuM_v=`GetParam $_____Surface mv` # # $Z set MaXiMuM_v=`GetParam $_____Surface Mv` # # $Z set EpSiLoN_v=0.2 # # $Z set MiNiMuM_v=`$xcg/ADD2.01$X a=$MiNiMuM_v b=$EpSiLoN_v` # # $Z set MaXiMuM_v=`$xcg/SOUS.01$X a=$MaXiMuM_v b=$EpSiLoN_v` # # $Z set _____Renormalisation_v="m=$MiNiMuM_v M=$MaXiMuM_v" # # # # Et ce afin que cela ne se referme pas sur les meridiens 0 et 2.pi... # # # # # # $Z FilSTmpB ZBuFfEr # # $Z set _____SurfacePara1="$K_VIDE" # # $Z set _____SurfacePara1="$_____SurfacePara1"" lister_les_points=VRAI" # # $Z set _____SurfacePara1="$_____SurfacePara1"" lister_les_points_apres=VRAI" # # $Z set _____SurfacePara1="$_____SurfacePara1"" ZBuffer_initial=-100" # # $Z set _____SurfacePara1="$_____SurfacePara1"" Z0=-100" # # $Z set _____SurfacePara1="$_____SurfacePara1"" ZBuffer=VRAI Z=$ZBuFfEr" # # $Z set _____SurfacePara1="$_____SurfacePara1"" ATTENTION=FAUX" # # # # $Z FilSTmpB FCoOrDoNnEeS_T # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $FCoOrDoNnEeS_T" # # $Z set _____ImageR=$xiirv/PIPO.N5.3.Sphere # # $m4 _____include(_____xiirv/.HILB.N6._____U) # # # # $m4 _____include(_____xiirv/.HILB.N5.2._____U) # # $Z FilSTmpE FCoOrDoNnEeS_T # # $Z FilSTmpE ZBuFfEr # # # # $Z FilSTmpE FLiStE_PoInTs # # $Z FilSTmpE _____FSave_Decimales # # # # :Fin_listG_PIPO_N5_3: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 256 decimales de pi sur une courbe # # de Hilbert bidimensionnelle (iteration 4) mappee sur une sphere... # v $xiirv/PIPO.N6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_N6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K6" # # # # $Z set _____Profondeur=6 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/random.33 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PIPO.N6 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z SET _____CouleursDecimales=$EXIST # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PIPO_N6: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 1024 decimales de pi sur une courbe # # de Hilbert bidimensionnelle (iteration 5)... # v $xiirv/PIPO.N7 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_N7: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K7" # # # # $Z set _____Profondeur=7 # # $Z set _____FRayon=0.006 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/random.33 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PIPO.N7 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z SET _____CouleursDecimales=$EXIST # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PIPO_N7: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 4096 decimales de pi sur une courbe # # de Hilbert bidimensionnelle (iteration 7)... # v $xiirv/PIPO.N8 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_N8: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K8" # # # # $Z set _____Profondeur=8 # # $Z set _____FRayon=0.004 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/random.33 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PIPO.N8 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z SET _____CouleursDecimales=$EXIST # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PIPO_N8: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 16384 decimales de pi sur une courbe # # de Hilbert bidimensionnelle (iteration 7)... # v $xiirv/PIPO.N8$HauteDef # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_N8_HD: # # # # $Z ext Phu # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K8" # # # # $Z set _____Profondeur=8 # # $Z set _____FRayon=0.004 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/random.33 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PIPO.N8$HauteDef # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z SET _____CouleursDecimales=$EXIST # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PIPO_N8_HD: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 16384 decimales de pi sur une courbe # # de Hilbert bidimensionnelle (iteration 7)... # v $xiirv/PIPO.O2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_O2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=2 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/PIPO.O2 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=2 # # $Z set _____Palette=$xiP/random.33 # # $Z set _____FRayon=0.010 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z SET _____CouleursDecimales=$EXIST # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_PIPO_O2: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 8 decimales de pi sur une courbe # # de Hilbert tridimensionnelle (iteration 1)... # v $xiirv/PIPO.O3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_O3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=3 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/PIPO.O3 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=2 # # $Z set _____Palette=$xiP/random.33 # # $Z set _____FRayon=0.010 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z SET _____CouleursDecimales=$EXIST # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_PIPO_O3: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 64 decimales de pi sur une courbe # # de Hilbert tridimensionnelle (iteration 2)... # v $xiirv/PIPO.O4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_O4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=4 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/PIPO.O4 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=2 # # $Z set _____Palette=$xiP/random.33 # # $Z set _____FRayon=0.010 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z SET _____CouleursDecimales=$EXIST # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_PIPO_O4: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 512 decimales de pi sur une courbe # # de Hilbert tridimensionnelle (iteration 3)... # v $xiirv/PIPO.O5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_O5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/PIPO.O5 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=2 # # $Z set _____Palette=$xiP/random.33 # # $Z set _____FRayon=0.010 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z SET _____CouleursDecimales=$EXIST # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_PIPO_O5: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre 4096 decimales de pi sur une courbe # # de Hilbert tridimensionnelle (iteration 4)... # v $xiirv/PIPO.Q3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_Q3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set FoNd1=$xiirv/HILB.K3 # # $Z set FoNd2=$xTV/CHIFFRES # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$FoNd2" # # # # $Z set _____Profondeur=3 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/random.33 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PIPO.Q3 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # # # $Z FilSTmpB FChiffres_0_9 # # # # $m4 _____include(_____xiirv/.PIPO.Q3.1._____U) # # # # $Z set _____FDecimales=$FChiffres_0_9 # # $Z SET _____CouleursDecimales=$EXIST # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $Z FilSTmpE FChiffres_0_9 # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PIPO_Q3: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre les chiffres de 0 a 9, puis de 0 a 5 # # sur une courbe de Hilbert bidimensionnelle (iteration 2) et ce afin de voir le code de # # couleur de chacun d'eux... # v $xiirv/PIPO.R2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPO_R2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NDecimales=20 # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z SET _____VraieHelice=$EXIST # # $Z SET _____EnFaitSpirale=$EXIST # # $Z set _____Z0=0 # # $Z set _____ZN=+1 # # $Z set _____Zoom=1.0 # # $Z set _____RotationY=0 # # $Z set _____ImageR=$xiirv/PIPO.R2 # # $m4 _____include(_____xiirv/.PIPO.H1.1._____U) # # # # :Fin_listG_PIPO_R2: # # # # # # qui montre les premieres decimales de 'pi' sur une spirale, la premiere decimale ("1") # # etant le point blanc quasiment au centre de l'image... # v $xiirv/PIPO.S5 v $xiirv/PIPO.S5$m v $xiirv/PIPO.S5$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_S5: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____TranslationDecimales=1 # # $Z set _____Part0=1 # # $Z set _____PartN=51 # # $Z set _____Rayon=10000 # # $Z set _____Rho0=0.0 # # $Z set _____RhoN=0.154 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=1000 # # $Z set _____DiviseurR=80 # # $Z set _____ExposantR=1.0 # # $Z SET _____ThetaSpirale=3 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.5" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____FacteurP=0 # # $Z set _____RenormaliserN=$EXIST # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $Z SET _____CouleursDecimalesV=$NEXIST # # $m4 _____include(_____xiirv/.PIPO.D4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.G2._____U) # # # # $Z set _____SpiralePartN_Effectif=`calcul 26*$_____PartN` # # $m4 _____include(_____xiirv/.PIPO.D4.32._____U) # # # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____images=$xTV/PIPO.D5 # # $m4 _____include(_____xiirv/.PIPO.D4.12._____U) # # $m4 _____include(_____xiirv/.PIPO.D4.33._____U) # # # # $m4 _____include(_____xiirv/.PRIM.4.14._____U) # # # # Cette generation de l'image '$xTV/PIPO.D5' est destinee a garantir que la hauteur des # # pics est bien une fonction croissante des 10 differents chiffres, ceci se faisant via la # # palette 'v $xiio/MIRE p=$xiP/gris.94' qui est une palette a luminance croissance en # # particulier pour les 10 premiers niveaux... # # # # $Z set _____Palette=$xiP/cercle.R3 # # $Z set _____imagesL=$_____images # # $Z set _____images=$xiirv/PIPO.S5 # # $m4 _____include(_____xiirv/.PIPO.D4.31._____U) # # # # :Fin_listG_PIPO_S5: # # # # # # Spirale d'archimede montrant pi avec 50 chiffres (3.1415...). # v $xiirv/PIPO.S6 v $xiirv/PIPO.S6$m v $xiirv/PIPO.S6$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_S6: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____TranslationDecimales=1 # # $Z set _____Part0=1 # # $Z set _____PartN=101 # # $Z set _____Rayon=10000 # # $Z set _____Rho0=0.0 # # $Z set _____RhoN=0.154 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=1000 # # $Z set _____DiviseurR=80 # # $Z set _____ExposantR=1.0 # # $Z SET _____ThetaSpirale=3 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.5" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____FacteurP=0 # # $Z set _____RenormaliserN=$EXIST # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $Z SET _____CouleursDecimalesV=$NEXIST # # $m4 _____include(_____xiirv/.PIPO.D4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.G2._____U) # # # # $Z set _____SpiralePartN_Effectif=`calcul 26*$_____PartN` # # $m4 _____include(_____xiirv/.PIPO.D4.32._____U) # # # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____images=$xTV/PIPO.D6 # # $m4 _____include(_____xiirv/.PIPO.D4.12._____U) # # $m4 _____include(_____xiirv/.PIPO.D4.33._____U) # # # # $m4 _____include(_____xiirv/.PRIM.4.14._____U) # # # # Cette generation de l'image '$xTV/PIPO.D6' est destinee a garantir que la hauteur des # # pics est bien une fonction croissante des 10 differents chiffres, ceci se faisant via la # # palette 'v $xiio/MIRE p=$xiP/gris.94' qui est une palette a luminance croissance en # # particulier pour les 10 premiers niveaux... # # # # $Z set _____Palette=$xiP/cercle.R3 # # $Z set _____imagesL=$_____images # # $Z set _____images=$xiirv/PIPO.S6 # # $m4 _____include(_____xiirv/.PIPO.D4.31._____U) # # # # :Fin_listG_PIPO_S6: # # # # # # Spirale d'archimede montrant pi avec 100 chiffres (3.1415...). # v $xiirv/PIPO.S7 v $xiirv/PIPO.S7$m v $xiirv/PIPO.S7$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_S7: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____TranslationDecimales=1 # # $Z set _____Part0=1 # # $Z set _____PartN=201 # # $Z set _____Rayon=10000 # # $Z set _____Rho0=0.0 # # $Z set _____RhoN=0.154 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=1000 # # $Z set _____DiviseurR=80 # # $Z set _____ExposantR=1.0 # # $Z SET _____ThetaSpirale=3 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.5" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____FacteurP=0 # # $Z set _____RenormaliserN=$EXIST # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $Z SET _____CouleursDecimalesV=$NEXIST # # $m4 _____include(_____xiirv/.PIPO.D4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.G2._____U) # # # # $Z set _____SpiralePartN_Effectif=`calcul 26*$_____PartN` # # $m4 _____include(_____xiirv/.PIPO.D4.32._____U) # # # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____images=$xTV/PIPO.D7 # # $m4 _____include(_____xiirv/.PIPO.D4.12._____U) # # $m4 _____include(_____xiirv/.PIPO.D4.33._____U) # # # # $m4 _____include(_____xiirv/.PRIM.4.14._____U) # # # # Cette generation de l'image '$xTV/PIPO.D7' est destinee a garantir que la hauteur des # # pics est bien une fonction croissante des 10 differents chiffres, ceci se faisant via la # # palette 'v $xiio/MIRE p=$xiP/gris.94' qui est une palette a luminance croissance en # # particulier pour les 10 premiers niveaux... # # # # $Z set _____Palette=$xiP/cercle.R3 # # $Z set _____imagesL=$_____images # # $Z set _____images=$xiirv/PIPO.S7 # # $m4 _____include(_____xiirv/.PIPO.D4.31._____U) # # # # :Fin_listG_PIPO_S7: # # # # # # Spirale d'archimede montrant pi avec 200 chiffres (3.1415...). # v $xiirv/PIPO.S8 v $xiirv/PIPO.S8$m v $xiirv/PIPO.S8$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_S8: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____TranslationDecimales=1 # # $Z set _____Part0=1 # # $Z set _____PartN=1001 # # $Z set _____Rayon=10000 # # $Z set _____Rho0=0.0 # # $Z set _____RhoN=0.154 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=1000 # # $Z set _____DiviseurR=80 # # $Z set _____ExposantR=1.0 # # $Z SET _____ThetaSpirale=3 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.5" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____FacteurP=0 # # $Z set _____RenormaliserN=$EXIST # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $Z SET _____CouleursDecimalesV=$NEXIST # # $m4 _____include(_____xiirv/.PIPO.D4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.G2._____U) # # # # $Z set _____SpiralePartN_Effectif=`calcul 26*$_____PartN` # # $m4 _____include(_____xiirv/.PIPO.D4.32._____U) # # # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____images=$xTV/PIPO.D8 # # $m4 _____include(_____xiirv/.PIPO.D4.12._____U) # # $m4 _____include(_____xiirv/.PIPO.D4.33._____U) # # # # $m4 _____include(_____xiirv/.PRIM.4.14._____U) # # # # Cette generation de l'image '$xTV/PIPO.D8' est destinee a garantir que la hauteur des # # pics est bien une fonction croissante des 10 differents chiffres, ceci se faisant via la # # palette 'v $xiio/MIRE p=$xiP/gris.94' qui est une palette a luminance croissance en # # particulier pour les 10 premiers niveaux... # # # # $Z SET _____GaussienneC=128 # # $Z set _____GaussienneA=2 # # $Z set _____EchelleM=0.4 # # # # Les montagnes des decimales sont a priori renormalisee dans [0,1] et la surface gaussienne # # est calculee dans [0,$_____GaussienneA]. # # # # La surface resultante est donc dans [0,max(1,$_____GaussienneC)] qui est ensuite # # renormalisee dans [0,$_____EchelleM]... # # # # $Z set _____Palette=$xiP/cercle.R3 # # $Z set _____imagesL=$_____images # # $Z set _____images=$xiirv/PIPO.S8 # # $m4 _____include(_____xiirv/.PIPO.D4.31._____U) # # # # :Fin_listG_PIPO_S8: # # # # # # Spirale d'archimede montrant pi avec 1000 chiffres (3.1415...). # v $xiirv/PIPO.S9 v $xiirv/PIPO.S9$m v $xiirv/PIPO.S9$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_S9: # # # # $Z Shu # # # # $Z setenv xTV $xTG # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____TranslationDecimales=1 # # $Z set _____Part0=1 # # $Z set _____PartN=10001 # # $Z set _____Rayon=20000 # # # # Le 20240430100110, '$_____Rayon' est passe de 10000 a 20000, le format des images etant # # passe de 'Sdu' a 'Shu'. On notera que les dimensions des images sont mutipliees par 2 # # alors que '$_____Rayon' est lui-aussi mutiplie par 2 car, en effet, c'est un diviseur # # ('v $xiirv/.PRIM.4.11.$U y=._____Rayon') et non pas un multiplicateur... # # # # $Z set _____Rho0=0.0 # # $Z set _____RhoN=0.154 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=1000 # # $Z set _____DiviseurR=80 # # $Z set _____ExposantR=1.0 # # $Z SET _____ThetaSpirale=3 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.5" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____FacteurP=0 # # $Z set _____RenormaliserN=$EXIST # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $Z SET _____CouleursDecimalesV=$NEXIST # # $m4 _____include(_____xiirv/.PIPO.D4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.G2._____U) # # # # $Z set _____SpiralePartN_Effectif=`calcul 26*$_____PartN` # # $m4 _____include(_____xiirv/.PIPO.D4.32._____U) # # # # $Z set _____Palette=$xiP/gris.01 # # $Z set _____images=$xTV/PIPO.D9 # # $m4 _____include(_____xiirv/.PIPO.D4.12._____U) # # $m4 _____include(_____xiirv/.PIPO.D4.33._____U) # # # # $m4 _____include(_____xiirv/.PRIM.4.14._____U) # # # # Cette generation de l'image '$xTV/PIPO.D9' est destinee a garantir que la hauteur des # # pics est bien une fonction croissante des 10 differents chiffres, ceci se faisant via la # # palette 'v $xiio/MIRE p=$xiP/gris.94' qui est une palette a luminance croissance en # # particulier pour les 10 premiers niveaux... # # # # $Z set _____PassesLissage=10 # # $Z SET _____GaussienneC=128 # # $Z set _____GaussienneA=2 # # $Z set _____EchelleM=0.2 # # # # Les montagnes des decimales sont a priori renormalisee dans [0,1] et la surface gaussienne # # est calculee dans [0,$_____GaussienneA]. # # # # La surface resultante est donc dans [0,max(1,$_____GaussienneC)] qui est ensuite # # renormalisee dans [0,$_____EchelleM]... # # # # $Z set _____Palette=$xiP/cercle.R3 # # $Z set _____imagesL=$_____images # # $Z set _____images=$xiirv/PIPO.S9 # # $m4 _____include(_____xiirv/.PIPO.D4.31._____U) # # # # :Fin_listG_PIPO_S9: # # # # # # Spirale d'archimede montrant pi avec 10000 chiffres (3.1415...). # v $xiirv/PIPO.T5 v $xiirv/PIPO.T5$m v $xiirv/PIPO.T5$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_T5: # # # # $Z Squ # # # # $Z set _____imageA=$xiirv/PIPO.S5 # # $Z set _____imageR=$xiirv/PIPO.T5 # # $m4 _____include(_____xiirv/.PIPO.T5.1._____U) # # # # $Z $xci/acces$X \ # # $Z A=$xTV/SURFACE.1 \ # # $Z R=$_____imageR \ # # $Z $formatI # # # # :Fin_listG_PIPO_T5: # # # v $xiirv/PIPO.T6$m v $xiirv/PIPO.T6$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_T6: # # # # $Z Squ # # # # $Z set _____imageA=$xiirv/PIPO.S6 # # $Z set _____imageR=$xiirv/PIPO.T6 # # $m4 _____include(_____xiirv/.PIPO.T5.1._____U) # # # # :Fin_listG_PIPO_T6: # # # v $xiirv/PIPO.T7$m v $xiirv/PIPO.T7$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_T7: # # # # $Z Squ # # # # $Z set _____imageA=$xiirv/PIPO.S7 # # $Z set _____imageR=$xiirv/PIPO.T7 # # $m4 _____include(_____xiirv/.PIPO.T5.1._____U) # # # # :Fin_listG_PIPO_T7: # # # v $xiirv/PIPO.U1$m # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_U1_m: # # # # $Z Squ # # # # $Z set _____Fond_T=$xTV/FOND.T # # $Z set _____Fond_Z=$xTV/FOND.Z # # # # $Z set _____NombreChiffres=100001 # # $Z set _____VRayon=0.004 # # $Z set _____MRayon=$NEXIST # # $Z set _____PaletteT=$xiP/gris.01 # # $Z set _____PaletteZ=$_____PaletteT # # $Z set _____imageR=$xTV/PIPO.U1 # # $m4 _____include(_____xiirv/.PIPO.U1.21._____U) # # # # $Z set _____Fond_T=$_____imageR # # $Z set _____Fond_Z=$xTV/SURFACE.Z # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NombreChiffres=2001 # # $Z set _____VRayon=0.004 # # $Z set _____MRayon=$EXIST # # $Z SET _____Avion=VRAI # # $Z set _____Surface=$xci/gauss$X # # $Z set _____ArgSurface="c=128 amplificateur=4" # # $Z set _____ArgMontagne="Ty=0.985 echelle=0.4" # # # # $Z set _____PaletteT=$xiP/cercle.T4 # # $Z set _____PaletteZ=$_____PaletteT # # $Z SET _____Chiffres=$EXIST # # $Z set _____imageR=$xiirv/PIPO.U1$m # # $m4 _____include(_____xiirv/.PIPO.U1.21._____U) # # # # $Z execRVB $xci/substitue$X \ # # $Z A=$_____imageR%s \ # # $Z p=$xiP/gris.A7 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____imageR%s \ # # $Z $formatI # # # # :Fin_listG_PIPO_U1_m: # # # # # # Visualisation tridimensionnelle de 'pi' avec 2000 chiffres (3.1415...). # v $xiirv/PIPO.U1$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_U1_M: # # # # $Z Shu # # # # $Z set _____Fond_T=$xTV/FOND.T # # $Z set _____Fond_Z=$xTV/FOND.Z # # # # $Z set _____NombreChiffres=100001 # # $Z set _____VRayon=0.004 # # $Z set _____MRayon=$NEXIST # # $Z set _____PaletteT=$xiP/gris.01 # # $Z set _____PaletteZ=$_____PaletteT # # $Z set _____imageR=$xTV/PIPO.U1 # # $m4 _____include(_____xiirv/.PIPO.U1.21._____U) # # # # $Z set _____Fond_T=$_____imageR # # $Z set _____Fond_Z=$xTV/SURFACE.Z # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NombreChiffres=2001 # # $Z set _____VRayon=0.004 # # $Z set _____MRayon=$EXIST # # $Z SET _____Avion=FAUX # # $Z set _____Surface=$xci/gauss$X # # $Z set _____ArgSurface="c=128 amplificateur=4" # # $Z set _____ArgMontagne="Ty=0.985 echelle=0.4" # # # # $Z set _____PaletteT=$xiP/cercle.T4 # # $Z set _____PaletteZ=$_____PaletteT # # $Z SET _____Chiffres=$EXIST # # $Z set _____imageR=$xiirv/PIPO.U1$M # # $m4 _____include(_____xiirv/.PIPO.U1.21._____U) # # # # $Z execRVB $xci/substitue$X \ # # $Z A=$_____imageR%s \ # # $Z p=$xiP/gris.A7 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____imageR%s \ # # $Z $formatI # # # # :Fin_listG_PIPO_U1_M: # # # # # # Visualisation tridimensionnelle de 'pi' avec 2000 chiffres (3.1415...). # v $xiirv/PIPO.U2$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_U2_M: # # # # $Z Shu # # # # $Z set _____Fond_T=$xTV/FOND.T # # $Z set _____Fond_Z=$xTV/FOND.Z # # # # $Z set _____NombreChiffres=100001 # # $Z set _____VRayon=0.004 # # $Z set _____MRayon=$NEXIST # # $Z set _____PaletteT=$xiP/gris.01 # # $Z set _____PaletteZ=$_____PaletteT # # $Z set _____imageR=$xTV/PIPO.U2 # # $m4 _____include(_____xiirv/.PIPO.U1.21._____U) # # # # $Z set _____Fond_T=$_____imageR # # $Z set _____Fond_Z=$xTV/SURFACE.Z # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NombreChiffres=2001 # # $Z set _____VRayon=0.004 # # $Z set _____MRayon=$EXIST # # $Z SET _____Avion=FAUX # # $Z set _____Surface=$xci/gauss$X # # $Z set _____ArgSurface="c=128 amplificateur=4" # # $Z set _____ArgMontagne="Ty=0.985 echelle=0.4" # # # # $Z set _____PaletteT=$xiP/trou_noir.I4 # # $Z set _____PaletteZ=$_____PaletteT # # $Z SET _____Chiffres=$EXIST # # $Z set _____imageR=$xiirv/PIPO.U2$M # # $m4 _____include(_____xiirv/.PIPO.U1.21._____U) # # # # $Z execRVB $xci/substitue$X \ # # $Z A=$_____imageR%s \ # # $Z p=$xiP/gris.A7 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____imageR%s \ # # $Z $formatI # # # # :Fin_listG_PIPO_U2_M: # # # # # # Visualisation tridimensionnelle de 'pi' avec 2000 chiffres (3.1415...). # v $xiirv/PIPO.U3$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_U3_M: # # # # $Z Shu # # # # $Z set _____NFond_T=($GRIS_0 $GRIS_2 $GRIS_1) # # # # $Z set _____Fond_T=$xTV/FOND.T # # $Z set _____Fond_Z=$xTV/FOND.Z # # # # $Z set _____NombreChiffres=100001 # # $Z set _____VRayon=0.004 # # $Z set _____MRayon=$NEXIST # # $Z set _____PaletteT=$xiP/gris.01 # # $Z set _____PaletteZ=$_____PaletteT # # $Z set _____imageR=$xTV/PIPO.U3 # # $m4 _____include(_____xiirv/.PIPO.U1.21._____U) # # # # $Z set _____Fond_T=$_____imageR # # $Z set _____Fond_Z=$xTV/SURFACE.Z # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NombreChiffres=2001 # # $Z set _____VRayon=0.006 # # $Z set _____MRayon=$EXIST # # $Z SET _____Avion=FAUX # # $Z set _____Surface=$xci/gauss$X # # $Z set _____ArgSurface="c=128 amplificateur=4" # # $Z set _____ArgMontagne="Ty=0.985 echelle=0.4" # # # # $Z set _____PaletteT=$xiP/arc_ciel.Q6 # # $Z set _____PaletteZ=$_____PaletteT # # $Z SET _____Chiffres=$EXIST # # $Z set _____imageR=$xiirv/PIPO.U3$M # # $m4 _____include(_____xiirv/.PIPO.U1.21._____U) # # # # $Z execRVB $xci/substitue$X \ # # $Z A=$_____imageR%s \ # # $Z p=$xiP/gris.A7 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____imageR%s \ # # $Z $formatI # # # # :Fin_listG_PIPO_U3_M: # # # # # # Visualisation tridimensionnelle de 'pi' avec 2000 chiffres (3.1415...). # v $xiirv/PIPO.V1$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_V1_M: # # # # $Z Shu # # # # $Z set _____Fond_T=$xTV/FOND.T # # $Z set _____Fond_Z=$xTV/FOND.Z # # # # $Z set _____NombreChiffres=200001 # # $Z set _____NombreChiffresReference=100001 # # $Z set _____VRayon=0.004 # # $Z set _____MRayon=$NEXIST # # $Z set _____PaletteT=$xiP/gris.01 # # $Z set _____PaletteZ=$_____PaletteT # # $Z set _____imageR=$xTV/PIPO.V1 # # $m4 _____include(_____xiirv/.PIPO.U1.21._____U) # # # # $Z set _____Fond_T=$_____imageR # # $Z set _____Fond_Z=$xTV/SURFACE.Z # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NombreChiffres=4001 # # $Z set _____NombreChiffresReference=2001 # # $Z set _____VRayon=0.004 # # $Z set _____MRayon=$EXIST # # $Z SET _____Avion=FAUX # # $Z set _____Surface=$xci/gauss$X # # $Z set _____ArgSurface="c=128 amplificateur=4" # # $Z set _____FlouPeripherique=$EXIST # # $Z set _____ArgMontagne="Ty=0.985 echelle=0.4" # # # # $Z set _____PaletteT=$xiP/cercle.T4 # # $Z set _____PaletteZ=$_____PaletteT # # $Z SET _____Chiffres=$EXIST # # $Z set _____imageR=$xiirv/PIPO.V1$M # # $m4 _____include(_____xiirv/.PIPO.U1.21._____U) # # # # $Z execRVB $xci/substitue$X \ # # $Z A=$_____imageR%s \ # # $Z p=$xiP/gris.A7 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____imageR%s \ # # $Z $formatI # # # # :Fin_listG_PIPO_V1_M: # # # # # # Visualisation tridimensionnelle de 'pi' avec 4000 chiffres (3.1415...). # v $xiirv/PIPO.V2$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_V2_M: # # # # $Z Shu # # # # $Z set _____Fond_T=$xTV/FOND.T # # $Z set _____Fond_Z=$xTV/FOND.Z # # # # $Z set _____NombreChiffres=200001 # # $Z set _____NombreChiffresReference=100001 # # $Z set _____VRayon=0.004 # # $Z set _____MRayon=$NEXIST # # $Z set _____PaletteT=$xiP/gris.01 # # $Z set _____PaletteZ=$_____PaletteT # # $Z set _____imageR=$xTV/PIPO.V2 # # $m4 _____include(_____xiirv/.PIPO.U1.21._____U) # # # # $Z set _____Fond_T=$_____imageR # # $Z set _____Fond_Z=$xTV/SURFACE.Z # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NombreChiffres=4001 # # $Z set _____NombreChiffresReference=2001 # # $Z set _____VRayon=0.004 # # $Z set _____MRayon=$EXIST # # $Z SET _____Avion=FAUX # # $Z set _____Surface=$xci/gauss$X # # $Z set _____ArgSurface="c=128 amplificateur=4" # # $Z set _____FlouPeripherique=$EXIST # # $Z set _____ArgMontagne="Ty=0.985 echelle=0.4" # # # # $Z set _____PaletteT=$xiP/trou_noir.I4 # # $Z set _____PaletteZ=$_____PaletteT # # $Z SET _____Chiffres=$EXIST # # $Z set _____imageR=$xiirv/PIPO.V2$M # # $m4 _____include(_____xiirv/.PIPO.U1.21._____U) # # # # $Z execRVB $xci/substitue$X \ # # $Z A=$_____imageR%s \ # # $Z p=$xiP/gris.A7 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____imageR%s \ # # $Z $formatI # # # # :Fin_listG_PIPO_V2_M: # # # # # # Visualisation tridimensionnelle de 'pi' avec 4000 chiffres (3.1415...). # v $xiirv/PIPO.V3$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_V3_M: # # # # $Z Shu # # # # $Z set _____NFond_T=($GRIS_0 $GRIS_2 $GRIS_1) # # # # $Z set _____Fond_T=$xTV/FOND.T # # $Z set _____Fond_Z=$xTV/FOND.Z # # # # $Z set _____NombreChiffres=200001 # # $Z set _____NombreChiffresReference=100001 # # $Z set _____VRayon=0.004 # # $Z set _____MRayon=$NEXIST # # $Z set _____PaletteT=$xiP/gris.01 # # $Z set _____PaletteZ=$_____PaletteT # # $Z set _____imageR=$xTV/PIPO.V3 # # $m4 _____include(_____xiirv/.PIPO.U1.21._____U) # # # # $Z set _____Fond_T=$_____imageR # # $Z set _____Fond_Z=$xTV/SURFACE.Z # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NombreChiffres=4001 # # $Z set _____NombreChiffresReference=2001 # # $Z set _____VRayon=0.006 # # $Z set _____MRayon=$EXIST # # $Z SET _____Avion=FAUX # # $Z set _____Surface=$xci/gauss$X # # $Z set _____ArgSurface="c=128 amplificateur=4" # # $Z set _____FlouPeripherique=$EXIST # # $Z set _____ArgMontagne="Ty=0.985 echelle=0.4" # # # # $Z set _____PaletteT=$xiP/arc_ciel.Q6 # # $Z set _____PaletteZ=$_____PaletteT # # $Z SET _____Chiffres=$EXIST # # $Z set _____imageR=$xiirv/PIPO.V3$M # # $m4 _____include(_____xiirv/.PIPO.U1.21._____U) # # # # $Z execRVB $xci/substitue$X \ # # $Z A=$_____imageR%s \ # # $Z p=$xiP/gris.A7 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____imageR%s \ # # $Z $formatI # # # # :Fin_listG_PIPO_V3_M: # # # # # # Visualisation tridimensionnelle de 'pi' avec 4000 chiffres (3.1415...). # v $xiirv/PIPO.W1$m v $xiirv/PIPO.W1$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_W1: # # # # $Z Pal # # # # $Z set _____imageA=$xiirv/PIPO.S5 # # $Z set _____imageR=$xiirv/PIPO.W1 # # $m4 _____include(_____xiirv/.PIPO.W1.1._____U) # # # # :Fin_listG_PIPO_W1: # # # v $xiirv/PIPO.X1 p=$xiP/gris.01 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPO_X1: # # # # $Z @ XYmax = 7 # # $Z @ dimXY = $XYmax + 1 # # # # $Z XYmaxNe $XYmax $XYmax # # # # $Z FilSTmpB PrOgRaMmE # # $Z # # $Z echo "ibase=10;" \ # # $Z >> $PrOgRaMmE # # $Z echo "scale=100;" \ # # $Z >> $PrOgRaMmE # # $Z echo "obase=2;" \ # # $Z >> $PrOgRaMmE # # $Z echo '16*a(1/5)-4*a(1/239);' \ # # $Z >> $PrOgRaMmE # # $Z echo "quit;" \ # # $Z >> $PrOgRaMmE # # # # $Z FilSTmpB DeCiMaLeS # # $Z # # $Z $BC --mathlib $PrOgRaMmE | \ # # $Z $GRE '\\$' | \ # # $Z $xcp/substitue.01$X \ # # $Z c01="^[0-1]*\." s01="$K_VIDE" \ # # $Z c02="\\\n" s02="$K_VIDE" \ # # $Z c03="\(.\)" s03="\1\n" | \ # # $Z $HEA -$tailleI | \ # # $Z $xcp/substitue.01$X \ # # $Z c01="\n" s01="$K_VIDE" \ # # $Z >> $DeCiMaLeS # # # # $Z set _____ImageR=$xiirv/PIPO.X1 # # # # $Z $xci/format.01$X \ # # $Z A=$DeCiMaLeS \ # # $Z mode=0 \ # # $Z R=$_____ImageR \ # # $Z $formatR_Std # # # # $Z Std # # # # $Z @ PasX = $dimX / $dimXY # # $Z @ PasY = $dimY / $dimXY # # # # $Z $xci/acces$X \ # # $Z A=$_____ImageR \ # # $Z renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/grille.01$X \ # # $Z \ # # $Z mx=$PasX my=$PasY \ # # $Z c=$GRIS_4 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # $Z FilSTmpE DeCiMaLeS # # $Z FilSTmpE PrOgRaMmE # # # # :Fin_listG_PIPO_X1: # # # # # # L'echiquier de Dieu donnant les decimales de 'pi' en binaire : # # # # 0010010000111111011010101000100010000101101000110000100011010011 # # # # la premiere (0) etant en bas et a gauche. Il y a 27 cases NOIR et 37 cases BLANC... # v $xiirv/PIPO.Y1.0 v $xiirv/PIPO.Y1.1 v $xiirv/PIPO.Y1.2 v $xiirv/PIPO.Y1.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_PIPO_Y1: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/PIPO.Y1.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=`calculINS 2*10000` # # $Z set _____Zoom=0.300 # # $Z set _____ImageR=$xiirv/PIPO.Y1 # # $m4 _____include(_____xiirv/.PIPO.Y1.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_PIPO_Y1: # # # # # # qui montre les 10000 premieres decimales en base 10 de 'pi' comme une marche aleatoire en # # coordonnees cartesiennes tridimensionnelles. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-0.063,+0.546]x[+0.418,+0.911]x[-0.442,+0.248] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # On notera le "_____Zoom=0.300" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/PIPO.81.0'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:20:57 # # # # $xci/accumule.42$X : 00:51:15 # # # v $xiirv/PIPO.Y2.0 v $xiirv/PIPO.Y2.1 v $xiirv/PIPO.Y2.2 v $xiirv/PIPO.Y2.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_PIPO_Y2: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/PIPO.Y2.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=`calculINS 2*50000` # # $Z set _____Zoom=0.150 # # $Z set _____ImageR=$xiirv/PIPO.Y2 # # $m4 _____include(_____xiirv/.PIPO.Y1.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_PIPO_Y2: # # # # # # qui montre les 50000 premieres decimales en base 10 de 'pi' comme une marche aleatoire en # # coordonnees cartesiennes tridimensionnelles. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.218,+0.693]x[+0.292,+0.937]x[-0.431,+0.124] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # On notera le "_____Zoom=0.150" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/PIPO.81.0'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:19:30 # # # # $xci/accumule.42$X : 00:51:41 # # # v $xiirv/PIPO.Z2.0 v $xiirv/PIPO.Z2.1 v $xiirv/PIPO.Z2.2 v $xiirv/PIPO.Z2.21 # Generee (sur '$CMAP28' -ex "porte-de-choisy"-) par : # # # # # # :Debut_listG_PIPO_Z2: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/PIPO.Z2.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=`calculINS 3*30000` # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xiirv/PIPO.Z2 # # $m4 _____include(_____xiirv/.PIPO.Z1.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_PIPO_Z2: # # # # # # qui montre les 90000 premieres decimales en base 10 de 'pi' comme une marche aleatoire en # # coordonnees cartesiennes tridimensionnelles. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-0.025,+0.695]x[+0.138,+0.827]x[-0.170,+0.482] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # On notera le "_____Zoom=0.150" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/PIPO.81.0'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:24:25 # # # # $xci/accumule.42$X : 00:47:56 # # # v $xiirv/PIPO.Z3.0 v $xiirv/PIPO.Z3.1 v $xiirv/PIPO.Z3.2 v $xiirv/PIPO.Z3.21 # Generee (sur '$CMAP28' -ex "porte-de-choisy"-) par : # # # # # # :Debut_listG_PIPO_Z3: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/PIPO.Z3.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=`calculINS 3*30000` # # $Z set _____NiveauMinimal=$BLANC # # $Z set _____NiveauMaximal=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/cercle.I5 # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xiirv/PIPO.Z3 # # $m4 _____include(_____xiirv/.PIPO.Z1.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPO.Z3.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_PIPO_Z3: # # # # # # qui montre les 90000 premieres decimales en base 10 de 'pi' comme une marche aleatoire en # # coordonnees cartesiennes tridimensionnelles. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-0.025,+0.695]x[+0.138,+0.827]x[-0.170,+0.482] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # On notera le "_____Zoom=0.150" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/PIPO.81.0'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:24:39 # # # # $xci/accumule.42$X : 00:48:00 # # # v $xiirv/PIPO.Z4.0 v $xiirv/PIPO.Z4.1 v $xiirv/PIPO.Z4.2 v $xiirv/PIPO.Z4.21 # Generee (sur '$CMAP28' -ex "porte-de-choisy"-) par : # # # # # # :Debut_listG_PIPO_Z4: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/PIPO.Z4.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=`calculINS 3*30000` # # $Z set _____NiveauMinimal=$BLANC # # $Z set _____NiveauMaximal=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/cercle.I5 # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xiirv/PIPO.Z4 # # $m4 _____include(_____xiirv/.PIPO.Z1.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPO.Z4.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $Z SET _____EpaisseurXY=0 # # $Z SET _____EpaisseurZ=2 # # $m4 _____include(_____xiirv/.PIPO.31.3._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=0 # # $Z set _____RotationY=0 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_PIPO_Z4: # # # # # # qui montre les 90000 premieres decimales en base 10 de 'pi' comme une marche aleatoire en # # coordonnees cartesiennes tridimensionnelles avec ombres portees sur un fond... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-0.025,+0.695]x[+0.138,+0.827]x[-0.170,+0.482] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # On notera le "_____Zoom=0.150" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/PIPO.81.0'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 01:10:29 # # # # $xci/accumule.42$X : 00:45:21 # # # v $xiirv/PIPO.Z5.0 v $xiirv/PIPO.Z5.1 v $xiirv/PIPO.Z5.2 v $xiirv/PIPO.Z5.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_PIPO_Z5: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/PIPO.Z5.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=`calculINS 3*30000` # # $Z set _____NiveauMinimal=$BLANC # # $Z set _____NiveauMaximal=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.Q6 # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xiirv/PIPO.Z5 # # $m4 _____include(_____xiirv/.PIPO.Z1.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPO.Z5.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $Z SET _____EpaisseurXY=0 # # $Z SET _____EpaisseurZ=2 # # $m4 _____include(_____xiirv/.PIPO.31.3._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=0 # # $Z set _____RotationY=0 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____ArgAccumule="$_____ArgAccumule"" rnr=FAUX" # # # # L'option "rnr=FAUX" est destinee a garantir le maintien de la couleur du fond blanc # # sur lequel on voit les ombres portees, d'ou les trois 'v $xci/acces_RVB.11$Z's a la fin... # # # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/acces_RVB.11$Z $_____imagesR.1 $_____imagesR.1 # # $Z $xci/acces_RVB.11$Z $_____imagesR.2 $_____imagesR.2 # # $Z $xci/acces_RVB.11$Z $_____imagesR.21 $_____imagesR.21 # # # # :Fin_listG_PIPO_Z5: # # # # # # qui montre les 90000 premieres decimales en base 10 de 'pi' comme une marche aleatoire en # # coordonnees cartesiennes tridimensionnelles avec ombres portees sur un fond... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-0.025,+0.695]x[+0.138,+0.827]x[-0.170,+0.482] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # On notera le "_____Zoom=0.150" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/PIPO.81.0'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 01:28:49 # # # # $xci/accumule.42$X : 00:59:54 # # # v $xiirv/PIPO.Z6.0 v $xiirv/PIPO.Z6.1 v $xiirv/PIPO.Z6.2 v $xiirv/PIPO.Z6.21 # Generee (sur '$CMAP28' -ex "porte-de-choisy"-) par : # # # # # # :Debut_listG_PIPO_Z6: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/PIPO.Z6.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=`calculINS 3*30000` # # $Z set _____NiveauMinimal=$BLANC # # $Z set _____NiveauMaximal=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/bleu_orange.02 # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xiirv/PIPO.Z6 # # $m4 _____include(_____xiirv/.PIPO.Z1.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPO.Z6.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $Z SET _____EpaisseurXY=0 # # $Z SET _____EpaisseurZ=2 # # $m4 _____include(_____xiirv/.PIPO.31.3._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=0 # # $Z set _____RotationY=0 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____ArgAccumule="$_____ArgAccumule"" rnr=FAUX" # # # # L'option "rnr=FAUX" est destinee a garantir le maintien de la couleur du fond blanc # # sur lequel on voit les ombres portees, d'ou les trois 'v $xci/acces_RVB.11$Z's a la fin... # # # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/acces_RVB.11$Z $_____imagesR.1 $_____imagesR.1 # # $Z $xci/acces_RVB.11$Z $_____imagesR.2 $_____imagesR.2 # # $Z $xci/acces_RVB.11$Z $_____imagesR.21 $_____imagesR.21 # # # # :Fin_listG_PIPO_Z6: # # # # # # qui montre les 90000 premieres decimales en base 10 de 'pi' comme une marche aleatoire en # # coordonnees cartesiennes tridimensionnelles avec ombres portees sur un fond... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-0.025,+0.695]x[+0.138,+0.827]x[-0.170,+0.482] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # On notera le "_____Zoom=0.150" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/PIPO.81.0'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 01:16:26 # # # # $xci/accumule.42$X : 00:45:23 # # # v $xiirv/PIPO.Z7.0 v $xiirv/PIPO.Z7.1 v $xiirv/PIPO.Z7.2 v $xiirv/PIPO.Z7.21 # Generee (sur '$CMAP28' -ex "porte-d-orleans.polytechnique.fr"-) par : # # # # # # :Debut_listG_PIPO_Z7: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/PIPO.Z7.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=`calculINS 3*30000` # # $Z set _____NiveauMinimal=$BLANC # # $Z set _____NiveauMaximal=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.Q6 # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xiirv/PIPO.Z7 # # $m4 _____include(_____xiirv/.PIPO.Z1.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=3 # # $Z set _____DemiPaveY=3 # # $Z set _____DemiPaveZ=3 # # $Z set _____MinX=0.4 # # $Z set _____MaxX=0.9 # # $Z set _____MinY=0.4 # # $Z set _____MaxY=0.9 # # $Z set _____MinZ=0.1 # # $Z set _____MaxZ=0.6 # # $Z set _____ImageS=$xTV/PIPO.Z7.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $Z SET _____EpaisseurXY=0 # # $Z SET _____EpaisseurZ=2 # # $m4 _____include(_____xiirv/.PIPO.31.3._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # # # $Z set _____SourceX=1.2 # # $Z set _____SourceY=1.2 # # $Z set _____SourceZ=2.0 # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=0 # # $Z set _____RotationY=0 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____ArgAccumule="$_____ArgAccumule"" rnr=FAUX" # # # # L'option "rnr=FAUX" est destinee a garantir le maintien de la couleur du fond blanc # # sur lequel on voit les ombres portees, d'ou les trois 'v $xci/acces_RVB.11$Z's a la fin... # # # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/acces_RVB.11$Z $_____imagesR.1 $_____imagesR.1 # # $Z $xci/acces_RVB.11$Z $_____imagesR.2 $_____imagesR.2 # # $Z $xci/acces_RVB.11$Z $_____imagesR.21 $_____imagesR.21 # # # # :Fin_listG_PIPO_Z7: # # # # # # qui montre les 90000 premieres decimales en base 10 de 'pi' comme une marche aleatoire en # # coordonnees cartesiennes tridimensionnelles avec ombres portees sur un fond... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-0.025,+0.695]x[+0.138,+0.827]x[-0.170,+0.482] --> [0.4,0.9]x[0.4,0.9]x[0.1,0.6] # # # # On notera le "_____Zoom=0.150" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/PIPO.81.0'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 01:01:18 # # # # $xci/accumule.42$X : 00:49:43 # # # v $xiirv/PIPO.Z8.1.0001 v $xiirv/PIPO.Z8.1.0002 v $xiirv/PIPO.Z8.1.0003 v $xiirv/PIPO.Z8.1.0004 v $xiirv/PIPO.Z8.1.0005 v $xiirv/PIPO.Z8.1.0006 v $xiirv/PIPO.Z8.1.0007 v $xiirv/PIPO.Z8.1.0008 v $xiirv/PIPO.Z8.1.0009 v $xiirv/PIPO.Z8.1.0010 v $xiirv/PIPO.Z8.1.0011 v $xiirv/PIPO.Z8.1.0012 v $xiirv/PIPO.Z8.1.0013 v $xiirv/PIPO.Z8.1.0014 v $xiirv/PIPO.Z8.1.0015 v $xiirv/PIPO.Z8.1.0016 v $xiirv/PIPO.Z8.2.0001 v $xiirv/PIPO.Z8.2.0002 v $xiirv/PIPO.Z8.2.0003 v $xiirv/PIPO.Z8.2.0004 v $xiirv/PIPO.Z8.2.0005 v $xiirv/PIPO.Z8.2.0006 v $xiirv/PIPO.Z8.2.0007 v $xiirv/PIPO.Z8.2.0008 v $xiirv/PIPO.Z8.2.0009 v $xiirv/PIPO.Z8.2.0010 v $xiirv/PIPO.Z8.2.0011 v $xiirv/PIPO.Z8.2.0012 v $xiirv/PIPO.Z8.2.0013 v $xiirv/PIPO.Z8.2.0014 v $xiirv/PIPO.Z8.2.0015 v $xiirv/PIPO.Z8.2.0016 v $xiirv/PIPO.Z8.21.0001 v $xiirv/PIPO.Z8.21.0002 v $xiirv/PIPO.Z8.21.0003 v $xiirv/PIPO.Z8.21.0004 v $xiirv/PIPO.Z8.21.0005 v $xiirv/PIPO.Z8.21.0006 v $xiirv/PIPO.Z8.21.0007 v $xiirv/PIPO.Z8.21.0008 v $xiirv/PIPO.Z8.21.0009 v $xiirv/PIPO.Z8.21.0010 v $xiirv/PIPO.Z8.21.0011 v $xiirv/PIPO.Z8.21.0012 v $xiirv/PIPO.Z8.21.0013 v $xiirv/PIPO.Z8.21.0014 v $xiirv/PIPO.Z8.21.0015 v $xiirv/PIPO.Z8.21.0016 v $xiav/PIPO.Z8.1$R16 v $xiav/PIPO.Z8.2$R16 v $xiav/PIPO.Z8.21$R16 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPO_Z8: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/PIPO.Z8.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=`calculINS 3*30000` # # $Z set _____NiveauMinimal=$BLANC # # $Z set _____NiveauMaximal=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.Q6 # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xTV/PIPO.Z8.Rotation # # # # $Z set NImAgEs_H=4 # # $Z set NImAgEs_V=4 # # $Z @ NImAgEs_ = $NImAgEs_H * $NImAgEs_V # # # # $Z @ NuMeRo_1 = 1 # # $Z @ NuMeRo_N = 1 + $NImAgEs_ - 1 # # # # $Z set L_NuMeRoS=`$xci/nombres$X p=$NuMeRo_1 d=$NuMeRo_N` # # # # $Z set ArGs_RoT_Y="$K_VIDE" # # $Z set ArGs_RoT_Y="$ArGs_RoT_Y"" p=$NuMeRo_1 d=$NuMeRo_N" # # $Z set ArGs_RoT_Y="$ArGs_RoT_Y"" vD=`calcul +$dpi/16`" # # $Z set ArGs_RoT_Y="$ArGs_RoT_Y"" vA=`calcul -$dpi/16`" # # $Z set ArGs_RoT_Y="$ArGs_RoT_Y"" cubique=FAUX" # # # # $Z set L_RoT_Y=`$xci/valeurs_inte$X $ArGs_RoT_Y` # # # # $Z set index=$NuMeRo_1 # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z while ($index <= $NuMeRo_N) # # $Z set _____RotationX=0 # # $Z set _____RotationY=$L_RoT_Y[$index] # # $Z set _____RotationZ=0 # # # # $m4 _____include(_____xiirv/.PIPO.Z1.2._____U) # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $Z set _____RotationY=0 # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=1 # # $Z set _____DemiPaveY=1 # # $Z set _____DemiPaveZ=1 # # $Z set _____ImageS=$xTV/PIPO.Z8.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $Z SET _____EpaisseurXY=0 # # $Z SET _____EpaisseurZ=2 # # $m4 _____include(_____xiirv/.PIPO.31.3._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=0 # # $Z set _____RotationY=0 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____ArgAccumule="$_____ArgAccumule"" rnr=FAUX" # # # # L'option "rnr=FAUX" est destinee a garantir le maintien de la couleur du fond blanc # # sur lequel on voit les ombres portees, d'ou les trois 'v $xci/acces_RVB.11$Z's a la fin... # # # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z set _____imagesR1=$_____imagesR # # # # $Z set NuMeRo=$L_NuMeRoS[$index] # # # # $Z $xci/acces_RVB.11$Z $_____imagesR1.1 $_____imagesR1.1.$NuMeRo # # $Z $xci/acces_RVB.11$Z $_____imagesR1.2 $_____imagesR1.2.$NuMeRo # # $Z $xci/acces_RVB.11$Z $_____imagesR1.21 $_____imagesR1.21.$NuMeRo # # # # $Z @ index = $index + 1 # # $Z end # # # # $Z set _____imagesR2=$xiirv/PIPO.Z8 # # # # $Z execALBUM $NuMeRo_1 $NuMeRo_N \ # # $Z execRVB $MV $_____imagesR1.1.%04d%%s $_____imagesR2.1.%04d%%s # # # # $Z execALBUM $NuMeRo_1 $NuMeRo_N \ # # $Z execRVB $MV $_____imagesR1.2.%04d%%s $_____imagesR2.2.%04d%%s # # # # $Z execALBUM $NuMeRo_1 $NuMeRo_N \ # # $Z execRVB $MV $_____imagesR1.21.%04d%%s $_____imagesR2.21.%04d%%s # # # # $Z set _____ImageR=$xiav/PIPO.Z8 # # # # $Z execRVB $xci/regroupe.02$Z \ # # $Z $_____imagesR2.1. \ # # $Z $_____ImageR.1$R16%s \ # # $Z $NuMeRo_1 1 \ # # $Z $NImAgEs_H $NImAgEs_V \ # # $Z "%s" \ # # $Z '$K_QD$formatR_Squ$K_QD' \ # # $Z `GetParam $xci/regroupe.01$X chiffres` \ # # $Z FAUX # # # # $Z execRVB $xci/regroupe.02$Z \ # # $Z $_____imagesR2.2. \ # # $Z $_____ImageR.2$R16%s \ # # $Z $NuMeRo_1 1 \ # # $Z $NImAgEs_H $NImAgEs_V \ # # $Z "%s" \ # # $Z '$K_QD$formatR_Squ$K_QD' \ # # $Z `GetParam $xci/regroupe.01$X chiffres` \ # # $Z FAUX # # # # $Z execRVB $xci/regroupe.02$Z \ # # $Z $_____imagesR2.21. \ # # $Z $_____ImageR.21$R16%s \ # # $Z $NuMeRo_1 1 \ # # $Z $NImAgEs_H $NImAgEs_V \ # # $Z "%s" \ # # $Z '$K_QD$formatR_Squ$K_QD' \ # # $Z `GetParam $xci/regroupe.01$X chiffres` \ # # $Z FAUX # # # # :Fin_listG_PIPO_Z8: # # # # # # qui montre les 90000 premieres decimales en base 10 de 'pi' comme une marche aleatoire en # # coordonnees cartesiennes tridimensionnelles avec ombres portees sur un fond et sous # # forme de 4x3 stereogrammes... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-0.025,+0.695]x[+0.138,+0.827]x[-0.170,+0.482] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici la duree moyenne des processus : # # # # $xci/ombrage.11$X : 00:01:02 # # # # $xci/accumule.42$X : 00:01:04 # # # # soit au total : # # # # 01:33:36 # # # v $xiirv/PIPQ.11 p=$xiP/gris.01 v $xiirv/PIPQ.11.1 p=$xiP/gris.01 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PIPQ_11: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z set _____FDecimales=$xrp/Decimales_Base02_Pi_____1000000.1 # # $Z set _____Facteur=$GRIS_8 # # $Z set _____Translation=$GRIS_0 # # $Z set _____ImageR=$xiirv/PIPQ.11 # # $m4 _____include(_____xiirv/.PIPO.J1.1._____U) # # # # $Z Std $_____Grossissement # # # # $Z $xci/grille.01$X \ # # $Z A=$_____ImageR \ # # $Z mx=$_____Grossissement my=$_____Grossissement \ # # $Z c=$GRIS_4 \ # # $Z R=$_____ImageR.1 \ # # $Z $formatI # # # # :Fin_listG_PIPQ_11: # # # # # # qui montre les 262144 premieres "decimales" en base 2 de 'pi'... # v $xiirv/PIPQ.12 p=$xiP/gris.01 v $xiirv/PIPQ.12.1 p=$xiP/gris.01 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PIPQ_12: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z set _____FDecimales=$xrp/Decimales_Base02_Pi_____1000000.1 # # $Z set _____Facteur=$GRIS_8 # # $Z set _____Translation=$GRIS_0 # # $Z set _____Grossissement=1 # # $Z set _____ImageR=$xiirv/PIPQ.12 # # $m4 _____include(_____xiirv/.PIPO.J1.1._____U) # # # # $Z $xci/spiralise$X \ # # $Z A=$_____ImageR \ # # $Z R=$_____ImageR.1 \ # # $Z $formatI # # # # :Fin_listG_PIPQ_12: # # # # # # qui montre les 262144 premieres "decimales" en base 2 de 'pi' sans et avec spiralisation, # # cette derniere ('v $xiirv/PIPQ.12.1') pouvant etre injectee dans 'v $xci/jeu_vie.11$K'). # v $xiirv/PIPQ.21$HauteDef.1 v $xiirv/PIPQ.21$HauteDef.2 v $xiirv/PIPQ.21$HauteDef.21 # Generee (sur '$CMAP28' -ex "porte-de-choisy"-) par : # # # # # # :Debut_listG_PIPQ_21_HD: # # # # $Z Shu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=1024 # # # # $Z set _____ImageT1=$xTV/PIPQ.21.T # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=100000 # # $Z set _____ImageR=$xTV/PIPQ.21 # # $m4 _____include(_____xiirv/.PIPO.21.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____MinX=0.22 # # $Z set _____MaxX=0.78 # # $Z set _____MinY=0.22 # # $Z set _____MaxY=0.78 # # $Z set _____MinZ=0.22 # # $Z set _____MaxZ=0.78 # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $Z set _____DxDyDz=4 # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____imagesR=$xiirv/PIPQ.21$HauteDef # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_PIPQ_21_HD: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre entier 14159265358979323846... de 100.000 chiffres -base 10- # # en 3031424432... de 128.509 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # ATTENTION : ces decimales sont vues en fait comme un grand nombre entier "141592653589..." # # ce qui n'est pas du tout la meme chose que "0.141592653589..." puisque dans le premier # # cas, les premiers chiffres obtenus en changeant de base dependent evidemment du nombre # # total de chiffres convertis, ce qui n'est pas le cas avec la partie decimale. Dans ce # # dernier cas, on peut donc augmenter le nombre de chiffres et obtenir ainsi des figures # # qui recouvrent celles obtenues avec moins de chiffres. Ce n'est donc pas le cas ici en # # faisant comme s'il s'agissait d'un grand nombre entier... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-3.76,+0.524]x[-2.284,+1.532]x[-3.36,+1.728] --> [0.15,0.85]x[0.15,0.85]x[0.15,0.85] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:27:27 # # # # $xci/accumule.42$X : 01:26:56 # # # v $xiirv/PIPQ.21$HauteDef.1.4 # Generee (sur '$LACT19) par : # # # # # # :Debut_listG_PIPQ_21_HD_1: # # # # $Z ext Ssu # # # # $Z set _____imagesA=$xiirv/PIPQ.21$HauteDef.1 # # $Z set _____imagesR=$_____imagesA # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesA $_____imagesR.1 \ # # $Z BVR # # # # $Z $xci/cache.31$Z \ # # $Z $xiirf/CIEL.11.0017 $_____imagesR.1 $_____imagesR.4 # # # # :Fin_listG_PIPQ_21_HD_1: # # # v $xiirv/PIPQ.35.0 v $xiirv/PIPQ.35.1 v $xiirv/PIPQ.35.2 v $xiirv/PIPQ.35.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_PIPQ_35: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/PIPQ.35.T # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $Z set _____NiveauMinimal=$BLANC # # $Z set _____NiveauMaximal=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.Q6 # # $Z set _____Zoom=0.250 # # $Z set _____ImageR=$xiirv/PIPQ.35 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPQ.35.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $Z SET _____EpaisseurXY=0 # # $Z SET _____EpaisseurZ=2 # # $m4 _____include(_____xiirv/.PIPO.31.3._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=0 # # $Z set _____RotationY=0 # # # # Toutes les rotations sont nulles afin de ne pas voir apparaitre un arriere-plan (destine # # aux ombres portees) tronque... # # # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____ArgAccumule="$_____ArgAccumule"" rnr=FAUX" # # # # L'option "rnr=FAUX" est destinee a garantir le maintien de la couleur du fond blanc # # sur lequel on voit les ombres portees, d'ou les trois 'v $xci/acces_RVB.11$Z's a la fin... # # # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/acces_RVB.11$Z $_____imagesR.1 $_____imagesR.1 # # $Z $xci/acces_RVB.11$Z $_____imagesR.2 $_____imagesR.2 # # $Z $xci/acces_RVB.11$Z $_____imagesR.21 $_____imagesR.21 # # # # :Fin_listG_PIPQ_35: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre decimal 3.141592653589793238... de 10.000 chiffres -base 10- # # en 0503300514... de 12.849 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # ATTENTION : ces decimales sont vues en fait comme un grand nombre entier "141592653589..." # # ce qui n'est pas du tout la meme chose que "0.141592653589..." puisque dans le premier # # cas, les premiers chiffres obtenus en changeant de base dependent evidemment du nombre # # total de chiffres convertis, ce qui n'est pas le cas avec la partie decimale. Dans ce # # dernier cas, on peut donc augmenter le nombre de chiffres et obtenir ainsi des figures # # qui recouvrent celles obtenues avec moins de chiffres. Ce n'est donc pas le cas ici en # # faisant comme s'il s'agissait d'un grand nombre entier... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.36,+0.745]x[-0.185,+0.515]x[-0.28,+0.295] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 01:27:31 # # # # $xci/accumule.42$X : 00:56:44 # # # v $xiirv/PIPQ.36.0 v $xiirv/PIPQ.36.1 v $xiirv/PIPQ.36.2 v $xiirv/PIPQ.36.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_PIPQ_36: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/PIPQ.36.T # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $Z SET _____EnDiagonale=$EXIST # # $Z set _____NiveauMinimal=$BLANC # # $Z set _____NiveauMaximal=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.Q6 # # $Z set _____Zoom=0.250 # # $Z set _____ImageR=$xiirv/PIPQ.36 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPQ.36.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $Z SET _____EpaisseurXY=0 # # $Z SET _____EpaisseurZ=2 # # $m4 _____include(_____xiirv/.PIPO.31.3._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=0 # # $Z set _____RotationY=0 # # # # Toutes les rotations sont nulles afin de ne pas voir apparaitre un arriere-plan (destine # # aux ombres portees) tronque... # # # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____ArgAccumule="$_____ArgAccumule"" rnr=FAUX" # # # # L'option "rnr=FAUX" est destinee a garantir le maintien de la couleur du fond blanc # # sur lequel on voit les ombres portees, d'ou les trois 'v $xci/acces_RVB.11$Z's a la fin... # # # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/acces_RVB.11$Z $_____imagesR.1 $_____imagesR.1 # # $Z $xci/acces_RVB.11$Z $_____imagesR.2 $_____imagesR.2 # # $Z $xci/acces_RVB.11$Z $_____imagesR.21 $_____imagesR.21 # # # # :Fin_listG_PIPQ_36: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre decimal 3.141592653589793238... de 10.000 chiffres -base 10- # # en 0503300514... de 12.849 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # ATTENTION : ces decimales sont vues en fait comme un grand nombre entier "141592653589..." # # ce qui n'est pas du tout la meme chose que "0.141592653589..." puisque dans le premier # # cas, les premiers chiffres obtenus en changeant de base dependent evidemment du nombre # # total de chiffres convertis, ce qui n'est pas le cas avec la partie decimale. Dans ce # # dernier cas, on peut donc augmenter le nombre de chiffres et obtenir ainsi des figures # # qui recouvrent celles obtenues avec moins de chiffres. Ce n'est donc pas le cas ici en # # faisant comme s'il s'agissait d'un grand nombre entier... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.28,+1]x[-0.2,+0.535]x[-0.695,+0.020] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 01:32:05 # # # # $xci/accumule.42$X : 00:58:09 # # # v $xiirv/PIPQ.37.0 v $xiirv/PIPQ.37.1 v $xiirv/PIPQ.37.2 v $xiirv/PIPQ.37.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_PIPQ_37: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/PIPQ.37.T # # # # $Z set _____FDecimales=$xP/pi_110200 # # $Z set _____NIterations=10000 # # $Z set _____NiveauMinimal=$BLANC # # $Z set _____NiveauMaximal=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.Q6 # # $Z set _____Zoom=0.250 # # $Z set _____ImageR=$xiirv/PIPQ.37 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # # # $Z set _____MinX=0.30 # # $Z set _____MaxX=0.70 # # $Z set _____MinY=0.30 # # $Z set _____MaxY=0.70 # # $Z set _____MinZ=0.30 # # $Z set _____MaxZ=0.70 # # $Z set _____ImageS=$xTV/PIPQ.37.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $Z set _____TranslationZmax=`calculINS (20*($cDerniere-$cPremiere+1)/100)` # # # # Cette translation est due aux rotations {$_____RotationX,$_____RotationY} qui suivent # # et ce afin de faire disparaitre le trou a l'origine du triedre. On notera que les tests # # avaient ete faits avec 'cDerniere=100`, d'ou la regle de trois ci-dessus... # # # # $m4 _____include(_____xiirv/.PIPQ.37.1.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=-0.20 # # $Z set _____RotationY=+0.10 # # # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____ArgAccumule="$_____ArgAccumule"" rnr=FAUX" # # # # L'option "rnr=FAUX" est destinee a garantir le maintien de la couleur du fond blanc # # sur lequel on voit les ombres portees, d'ou les trois 'v $xci/acces_RVB.11$Z's a la fin... # # # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____imagesR.1%s \ # # $Z $formatI \ # # $Z mode=7 \ # # $Z R=$_____imagesR.1%s \ # # $Z $formatR_Sdu # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____imagesR.2%s \ # # $Z $formatI \ # # $Z mode=7 \ # # $Z R=$_____imagesR.2%s \ # # $Z $formatR_Sdu # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____imagesR.21%s \ # # $Z $formatI \ # # $Z mode=7 \ # # $Z R=$_____imagesR.21%s \ # # $Z $formatR_Sdu # # # # $Z Sdu # # # # $Z $xci/acces_RVB.11$Z $_____imagesR.1 $_____imagesR.1 # # $Z $xci/acces_RVB.11$Z $_____imagesR.2 $_____imagesR.2 # # $Z $xci/acces_RVB.11$Z $_____imagesR.21 $_____imagesR.21 # # # # :Fin_listG_PIPQ_37: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre decimal 3.141592653589793238... de 10.000 chiffres -base 10- # # en 0503300514... de 12.849 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.36,+0.745]x[-0.185,+0.515]x[-0.28,+0.295] --> [0.30,0.70]x[0.30,0.70]x[0.30,0.70] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 02:15:23 # # # # $xci/accumule.42$X : 00:47:55 # # # v $xiirv/PIPQ.47.0 v $xiirv/PIPQ.47.1 v $xiirv/PIPQ.47.2 v $xiirv/PIPQ.47.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_PIPQ_47: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/PIPQ.47.T # # # # $Z SET _____FDecimalesDejaOBase=$EXIST # # $Z set _____FDecimales=$xrp/Decimales_Base06_Pi_____13000 # # $Z set _____NIterations=12849 # # # # $Z FilSTmpB FDeCiMaLeS # # # # $Z $CA $_____FDecimales | \ # # $Z $SE -e "s/^[$Alphabet_0_9]*\.//" \ # # $Z -e "s/\(.\)/\1\n/g" | \ # # $Z $GRE -v '^ *$' | \ # # $Z $HEA -$_____NIterations \ # # $Z >> $FDeCiMaLeS # # # # $Z set _____FDecimales=$FDeCiMaLeS # # # # $Z set _____NiveauMinimal=$BLANC # # $Z set _____NiveauMaximal=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/arc_ciel.Q6 # # $Z set _____Zoom=0.250 # # $Z set _____ImageR=$xiirv/PIPQ.47 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z FilSTmpE FDeCiMaLeS # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # # # $Z set _____MinX=0.30 # # $Z set _____MaxX=0.70 # # $Z set _____MinY=0.30 # # $Z set _____MaxY=0.70 # # $Z set _____MinZ=0.30 # # $Z set _____MaxZ=0.70 # # $Z set _____ImageS=$xTV/PIPQ.47.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $Z set _____TranslationZmax=`calculINS (20*($cDerniere-$cPremiere+1)/100)` # # # # Cette translation est due aux rotations {$_____RotationX,$_____RotationY} qui suivent # # et ce afin de faire disparaitre le trou a l'origine du triedre. On notera que les tests # # avaient ete faits avec 'cDerniere=100`, d'ou la regle de trois ci-dessus... # # # # $m4 _____include(_____xiirv/.PIPQ.37.1.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=-0.20 # # $Z set _____RotationY=+0.10 # # # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____ArgAccumule="$_____ArgAccumule"" rnr=FAUX" # # # # L'option "rnr=FAUX" est destinee a garantir le maintien de la couleur du fond blanc # # sur lequel on voit les ombres portees, d'ou les trois 'v $xci/acces_RVB.11$Z's a la fin... # # # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____imagesR.1%s \ # # $Z $formatI \ # # $Z mode=7 \ # # $Z R=$_____imagesR.1%s \ # # $Z $formatR_Sdu # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____imagesR.2%s \ # # $Z $formatI \ # # $Z mode=7 \ # # $Z R=$_____imagesR.2%s \ # # $Z $formatR_Sdu # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____imagesR.21%s \ # # $Z $formatI \ # # $Z mode=7 \ # # $Z R=$_____imagesR.21%s \ # # $Z $formatR_Sdu # # # # $Z Sdu # # # # $Z $xci/acces_RVB.11$Z $_____imagesR.1 $_____imagesR.1 # # $Z $xci/acces_RVB.11$Z $_____imagesR.2 $_____imagesR.2 # # $Z $xci/acces_RVB.11$Z $_____imagesR.21 $_____imagesR.21 # # # # :Fin_listG_PIPQ_47: # # # # # # Le nombre 'pi' : # # # # Conversion du nombre entier 050330051415124105234... de 12.849 chiffres -base 6- # # en 0503300514... de 12.849 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.36,+0.745]x[-0.185,+0.515]x[-0.28,+0.295] --> [0.30,0.70]x[0.30,0.70]x[0.30,0.70] # # # # On notera le "_____Zoom=0.250" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/PIPQ.35.0'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 02:14:57 # # # # $xci/accumule.42$X : 00:48:34 # # # v $xiirv/PIPQ.52.0 v $xiirv/PIPQ.52.1 v $xiirv/PIPQ.52.2 v $xiirv/PIPQ.52.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_PIPQ_52: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/PIPQ.52.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=`calculINS 3*30000` # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xiirv/PIPQ.52 # # $m4 _____include(_____xiirv/.PIPO.Z1.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # # # $Z set _____MinX=0.20 # # $Z set _____MaxX=0.80 # # $Z set _____MinY=0.20 # # $Z set _____MaxY=0.80 # # $Z set _____MinZ=0.10 # # $Z set _____MaxZ=0.90 # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_PIPQ_52: # # # # # # qui montre les 90000 premieres decimales en base 10 de 'pi' comme une marche aleatoire en # # coordonnees cartesiennes tridimensionnelles inspiree de 'v $xiirv/PIPO.Z2.1'... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-0.025,+0.695]x[+0.138,+0.827]x[-0.170,+0.482] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # On notera le "_____Zoom=0.150" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/PIPO.81.0'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:20:10 # # # # $xci/accumule.42$X : 01:00:10 # # # v $xiirv/PIPQ.52.1.1 v $xiirv/PIPQ.52.1.3 v $xiirv/PIPQ.52.1.3.1 v $xiirv/PIPQ.52.1.3.2 v $xiirv/PIPQ.52.1.4 v $xiirv/PIPQ.52.1.5 # Generee (sur '$LACT19) par : # # # # # # :Debut_listG_PIPQ_52_1: # # # # $Z ext Squ # # # # $Z set _____imagesA=$xiirv/PIPQ.52.1 # # $Z set _____imagesR=$_____imagesA # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesA $_____imagesR.1 \ # # $Z RBV # # # # $Z $xci/cache.31$Z \ # # $Z $xiirf/CIEL.31.0017 $_____imagesR.1 $_____imagesR.3 # # # # $Z $xci/cache.31$Z \ # # $Z $xiirf/CIEL.11.0017 $_____imagesR.1 $_____imagesR.4 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiirf/NUAG.A1 \ # # $Z p=$xiP/nuages.02 \ # # $Z R=$xTV/NUAGES \ # # $Z $formatI # # # # $Z $xci/cache.31$Z \ # # $Z $xTV/NUAGES $_____imagesR.1 $_____imagesR.5 # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$_____imagesR.1%s \ # # $Z points=4 \ # # $Z R=$xTV/PIPQ.52.1%s \ # # $Z $formatI # # # # $Z execRVB $xci/nettete.01$X \ # # $Z A=$xTV/PIPQ.52.1%s \ # # $Z R=$xTV/PIPQ.52.2%s \ # # $Z $formatI # # # # $Z $xci/cache.41$Z \ # # $Z $xiirf/CIEL.31.0017 \ # # $Z $xTV/PIPQ.52.1 \ # # $Z $_____imagesR.3.1 \ # # $Z 9 VRAI FAUX # # # # $Z $xci/cache.41$Z \ # # $Z $xiirf/CIEL.31.0017 \ # # $Z $xTV/PIPQ.52.2 \ # # $Z $_____imagesR.3.2 \ # # $Z 9 VRAI FAUX # # # # :Fin_listG_PIPQ_52_1: # # # v $xiirv/PIPQ.53.0 v $xiirv/PIPQ.53.1 v $xiirv/PIPQ.53.2 v $xiirv/PIPQ.53.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_PIPQ_53: # # # # $Z Shu # # # # $Z setenv xTV $xTSG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____ImageT1=$xTV/PIPQ.53.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z set _____NChiffres=`calculINS 3*30000` # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xiirv/PIPQ.53 # # $m4 _____include(_____xiirv/.PIPO.Z1.2._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # # # $Z set _____MinX=0.20 # # $Z set _____MaxX=0.80 # # $Z set _____MinY=0.20 # # $Z set _____MaxY=0.80 # # $Z set _____MinZ=0.10 # # $Z set _____MaxZ=0.90 # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_PIPQ_53: # # # # # # qui montre les 90000 premieres decimales en base 10 de 'pi' comme une marche aleatoire en # # coordonnees cartesiennes tridimensionnelles inspiree de 'v $xiirv/PIPO.Z2.1'... # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-0.025,+0.695]x[+0.138,+0.827]x[-0.170,+0.482] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # On notera le "_____Zoom=0.150" necessaire pour que la figure initiale soit entierement # # visible ce que permet de verifier l'image 'v $xiirv/PIPO.81.0'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:18:30 # # # # $xci/accumule.42$X : 01:05:32 # # # v $xiirv/PIPQ.53.1.3.1 v $xiirv/PIPQ.53.1.3.2 # Generee (sur '$LACT19) par : # # # # # # :Debut_listG_PIPQ_53_1: # # # # $Z ext Shu # # # # $Z set _____imagesA=$xiirv/PIPQ.53.1 # # $Z set _____imagesR=$_____imagesA # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesA $xTV/PIPQ.53.0 \ # # $Z RBV # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$xTV/PIPQ.53.0%s \ # # $Z points=4 \ # # $Z R=$xTV/PIPQ.53.1%s \ # # $Z $formatI # # # # $Z execRVB $xci/nettete.01$X \ # # $Z A=$xTV/PIPQ.53.1%s \ # # $Z R=$xTV/PIPQ.53.2%s \ # # $Z $formatI # # # # $Z $xci/cache.41$Z \ # # $Z $xiirf/CIEL.31.0017 \ # # $Z $xTV/PIPQ.53.1 \ # # $Z $_____imagesR.3.1 \ # # $Z 9 VRAI FAUX # # # # $Z $xci/cache.41$Z \ # # $Z $xiirf/CIEL.31.0017 \ # # $Z $xTV/PIPQ.53.2 \ # # $Z $_____imagesR.3.2 \ # # $Z 9 VRAI FAUX # # # # :Fin_listG_PIPQ_53_1: # # # v $xiirv/PIPR.15$m # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PIPR_15_m: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=2 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=FAUX" # # # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Zoom=1.10 # # # # $Z set _____Palette=$xiP/trou_noir.B4 # # $Z set _____ImageR=$xTV/PIPO.N5 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000 # # $Z SET _____CouleursDecimales=$EXIST # # $Z set _____FRayon=0.030 # # $m4 _____include(_____xiirv/.PIPO.L2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z set _____Palette=$xiP/random.33 # # $Z set _____ImageR=$xTV/PRIM.L5 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z set _____FRayon1=0.2000 # # $Z set _____FRayon2=0.0400 # # $m4 _____include(_____xiirv/.PRIM.L2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/PRIM.L5 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=1000 \ # # $Z normaliser=VRAI \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$xTV/PIPO.N5%s \ # # $Z points=121 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$xTV/PIPO.N5.1%s \ # # $Z $formatI # # # # $Z set _____ImageR=$xiirv/PIPR.15 # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/PIPO.N5.1%s \ # # $Z avion=VRAI \ # # $Z Sy=40 \ # # $Z R=$_____ImageR$m%s \ # # $Z $formatI # # # # :Fin_listG_PIPR_15_m: # # # # # # Cette image est un "melange" entre 'v $xiirv/PIPO.N5' (256 premieres decimales de # # 'DecimalesPi_100000' definissant la texture) et 'v $xiirv/PRIM.L5' (entiers dans # # [2,257] definissant la surface). # v $xiirv/POMM.11 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_POMM_11: # # # # $Z Pdu # # # # $Z set _____ImageR=$xiirv/POMM.11 # # $m4 _____include(_____xiirv/.POMM.11.1._____U) # # # # :Fin_listG_POMM_11: # # # # # # qui montre une simulation des pommiers de Mondrian... # v $xiirv/POMM.12 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_POMM_12: # # # # $Z Pdu # # # # $Z set _____FGraine=2061 # # $Z set _____GraineNiveau=1790 # # $Z set _____PaletteP=$xiP/Mondrian.32 # # $Z set _____CAlpha=0.8 # # $Z set _____CBeta=0.2 # # $Z set _____ImageR=$xiirv/POMM.12 # # $m4 _____include(_____xiirv/.POMM.11.1._____U) # # # # :Fin_listG_POMM_12: # # # # # # qui montre une simulation des pommiers de Mondrian... # v $xiirv/POMM.21 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_POMM_21: # # # # $Z Pdu # # # # $Z set _____NGenerations=70 # # $Z set _____ImageR=$xiirv/POMM.21 # # $m4 _____include(_____xiirv/.POMM.11.1._____U) # # # # :Fin_listG_POMM_21: # # # # # # qui montre une simulation des pommiers de Mondrian... # v $xiirv/POMM.31 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_POMM_31: # # # # $Z Pdu # # # # $Z set _____PFX=0.01 # # $Z set _____PFY=0.01 # # $Z set _____PaletteP=$xiP/Mondrian.32 # # $Z set _____CAlpha=0.8 # # $Z set _____CBeta=0.2 # # $Z set _____ImageR=$xiirv/POMM.31 # # $m4 _____include(_____xiirv/.POMM.11.1._____U) # # # # :Fin_listG_POMM_31: # # # # # # qui montre une simulation des pommiers de Mondrian... # v $xiirv/POMM.41 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_POMM_41: # # # # $Z Pdu # # # # $Z set _____GParametres="$K_VIDE" # # $Z set _____GParametres="$_____GParametres"" arieg=VRAI" # # $Z set _____GParametres="$_____GParametres"" pxADD2_ADD2=0" # # $Z set _____GParametres="$_____GParametres"" pxMAX2_ADD2=1" # # # # $Z set _____PFX=0.01 # # $Z set _____PFY=0.01 # # $Z set _____PaletteP=$xiP/Mondrian.32 # # $Z set _____CAlpha=0.8 # # $Z set _____CBeta=0.2 # # $Z set _____ImageR=$xiirv/POMM.41 # # $m4 _____include(_____xiirv/.POMM.11.1._____U) # # # # :Fin_listG_POMM_41: # # # # # # qui montre une extension des pommiers de Mondrian... # v $xiirv/POMM.42 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_POMM_42: # # # # $Z Pdu # # # # $Z set _____GParametres="$K_VIDE" # # $Z set _____GParametres="$_____GParametres"" arieg=VRAI" # # $Z set _____GParametres="$_____GParametres"" pxADD2_ADD2=0" # # $Z set _____GParametres="$_____GParametres"" pxMAX2_ADD2=1" # # # # $Z set _____PGraine=13111311 # # $Z set _____GGraineCx2=17891789 # # $Z set _____GGraineTrX=15151515 # # $Z set _____GGraineCy2=19471947 # # $Z set _____GGraineTrY=19411941 # # $Z set _____FGraine=20012001 # # $Z set _____GraineNiveau=18211821 # # # # $Z set _____GBandeInf=41 # # $Z set _____GBandeSup=44 # # $Z set _____PFX=0.01 # # $Z set _____PFY=0.01 # # $Z set _____PaletteP=$xiP/Mondrian.32 # # $Z set _____CAlpha=0.85 # # $Z set _____CBeta=0.15 # # $Z set _____ImageR=$xiirv/POMM.42 # # $m4 _____include(_____xiirv/.POMM.11.1._____U) # # # # :Fin_listG_POMM_42: # # # # # # qui montre une extension des pommiers de Mondrian... # v $xiirv/POMM.42.2 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_POMM_42_3: # # # # $Z Pdu # # # # $Z set _____Iterations=3 # # $Z set _____ImageR=$xiirv/POMM.42 # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=$_____Iterations \ # # $Z R=$_____ImageR.$_____Iterations%s \ # # $Z $formatI # # # # :Fin_listG_POMM_42_3: # # # v $xiirv/POMM.52 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_POMM_52: # # # # $Z ext Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/TREE.F3 # # $Z set _____Masque=$xTV/ARBRE # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z seuil=$GRIS_4 \ # # $Z R=$_____Masque \ # # $Z $formatI # # # # $Z set _____GParametres="$K_VIDE" # # $Z set _____GParametres="$_____GParametres"" arieg=VRAI" # # $Z set _____GParametres="$_____GParametres"" pxADD2_ADD2=0" # # $Z set _____GParametres="$_____GParametres"" pxMAX2_ADD2=1" # # # # $Z set _____PGraine=13111311 # # $Z set _____GGraineCx2=17891789 # # $Z set _____GGraineTrX=15151515 # # $Z set _____GGraineCy2=19471947 # # $Z set _____GGraineTrY=19411941 # # $Z set _____FGraine=20012001 # # $Z set _____GraineNiveau=18211821 # # # # $Z set _____GBandeInf=38 # # $Z set _____GBandeSup=47 # # $Z set _____FBandeInf=70 # # $Z set _____FBandeSup=170 # # $Z set _____PFX=0.01 # # $Z set _____PFY=0.01 # # $Z set _____PaletteP=$xiP/Mondrian.32 # # $Z set _____CAlpha=0.85 # # $Z set _____CBeta=0.15 # # $Z set _____ImageR=$xiirv/POMM.52 # # $m4 _____include(_____xiirv/.POMM.11.1._____U) # # # # :Fin_listG_POMM_52: # # # # # # qui montre une extension des pommiers de Mondrian utilisant un arbre fractal... # v $xiirv/POMM.61 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_POMM_61: # # # # $Z ext Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/TREE.F3 # # # # $Z set _____PaletteP=$xiP/Mondrian.32 # # $Z set _____CAlpha=0.90 # # $Z set _____CBeta=0.10 # # $Z set _____ImageR=$xiirv/POMM.61 # # $m4 _____include(_____xiirv/.POMM.61.1._____U) # # # # :Fin_listG_POMM_61: # # # # # # qui montre une extension des pommiers de Mondrian utilisant un arbre fractal... # v $xiirv/POMM.71 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_POMM_71: # # # # $Z Pdu # # # # $Z set _____PGraine=113111311 # # $Z set _____GGraineCx2=117891789 # # $Z set _____GGraineTrX=115151515 # # $Z set _____GGraineCy2=119471947 # # $Z set _____GGraineTrY=119411941 # # $Z set _____FGraine=120012001 # # $Z set _____GraineNiveau=118211821 # # # # $Z set _____PFX=0.01 # # $Z set _____PFY=0.01 # # $Z set _____PaletteP=$xiP/RubikSCube.02 # # $Z set _____CAlpha=0.8 # # $Z set _____CBeta=0.2 # # $Z set _____ImageR=$xiirv/POMM.71 # # $m4 _____include(_____xiirv/.POMM.11.1._____U) # # # # :Fin_listG_POMM_71: # # # # # # qui montre une simulation des pommiers de Mondrian a la "Rubik's Cube"... # v $xiirv/POMM.82 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_POMM_82: # # # # $Z Pdu # # # # $Z set _____GParametres="$K_VIDE" # # $Z set _____GParametres="$_____GParametres"" arieg=VRAI" # # $Z set _____GParametres="$_____GParametres"" pxADD2_ADD2=0" # # $Z set _____GParametres="$_____GParametres"" pxMAX2_ADD2=1" # # # # $Z set _____PGraine=113111311 # # $Z set _____GGraineCx2=117891789 # # $Z set _____GGraineTrX=115151515 # # $Z set _____GGraineCy2=119471947 # # $Z set _____GGraineTrY=119411941 # # $Z set _____FGraine=120012001 # # $Z set _____GraineNiveau=118211821 # # # # $Z set _____GBandeInf=41 # # $Z set _____GBandeSup=44 # # $Z set _____PFX=0.01 # # $Z set _____PFY=0.01 # # $Z set _____PaletteP=$xiP/RubikSCube.02 # # $Z set _____CAlpha=0.85 # # $Z set _____CBeta=0.15 # # $Z set _____ImageR=$xiirv/POMM.82 # # $m4 _____include(_____xiirv/.POMM.11.1._____U) # # # # :Fin_listG_POMM_82: # # # # # # qui montre une extension des pommiers de Mondrian a la "Rubik's Cube"... # v $xiirv/PRHI.12 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PRHI_12: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K2" # # # # $Z set _____Profondeur=2 # # $Z set _____Palette=$xiP/cercle.22 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PRHI.12 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z SET _____CouleursNombres=$EXIST # # $m4 _____include(_____xiirv/.PRHI.12.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PRHI_12: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre les nombres de diviseurs sur une courbe # # de Hilbert bidimensionnelle (iteration 1)... # v $xiirv/PRHI.13 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PRHI_13: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K3" # # # # $Z set _____Profondeur=3 # # $Z set _____Palette=$xiP/cercle.22 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PRHI.13 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z SET _____CouleursNombres=$EXIST # # $m4 _____include(_____xiirv/.PRHI.12.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PRHI_13: # # # # # # Cette image inspiree de 'v $xiirv/HILB.j3' montre les nombres de diviseurs sur une courbe # # de Hilbert bidimensionnelle (iteration 2)... # v $xiirv/PRHI.14 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PRHI_14: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K4" # # # # $Z set _____Profondeur=4 # # $Z set _____Palette=$xiP/cercle.22 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PRHI.14 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z SET _____CouleursNombres=$EXIST # # $m4 _____include(_____xiirv/.PRHI.12.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PRHI_14: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J4' montre les nombres de diviseurs sur une courbe # # de Hilbert bidimensionnelle (iteration 3)... # v $xiirv/PRHI.15 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PRHI_15: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K6" # # # # $Z set _____Profondeur=6 # # $Z set _____Palette=$xiP/cercle.22 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PRHI.15 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z SET _____CouleursNombres=$EXIST # # $m4 _____include(_____xiirv/.PRHI.12.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PRHI_15: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J5' montre les nombres de diviseurs sur une courbe # # de Hilbert bidimensionnelle (iteration 5)... # v $xiirv/PRHI.16 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PRHI_16: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K7" # # # # $Z set _____Profondeur=7 # # $Z set _____Palette=$xiP/cercle.22 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PRHI.16 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z SET _____CouleursNombres=$EXIST # # $m4 _____include(_____xiirv/.PRHI.12.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PRHI_16: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J6' montre les nombres de diviseurs sur une courbe # # de Hilbert bidimensionnelle (iteration 6)... # v $xiirv/PRHI.22 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PRHI_22: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K2" # # # # $Z set _____SelectNombres=2 # # # # $Z set _____Profondeur=2 # # $Z set _____Palette=$xiP/cercle.22 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PRHI.22 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z SET _____CouleursNombres=$EXIST # # $m4 _____include(_____xiirv/.PRHI.12.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PRHI_22: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre les nombres premiers sur une courbe # # de Hilbert bidimensionnelle (iteration 1)... # v $xiirv/PRHI.23 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PRHI_23: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K3" # # # # $Z set _____SelectNombres=2 # # # # $Z set _____Profondeur=3 # # $Z set _____Palette=$xiP/cercle.22 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PRHI.23 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z SET _____CouleursNombres=$EXIST # # $m4 _____include(_____xiirv/.PRHI.12.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PRHI_23: # # # # # # Cette image inspiree de 'v $xiirv/HILB.j3' montre les nombres premiers sur une courbe # # de Hilbert bidimensionnelle (iteration 2)... # v $xiirv/PRHI.24 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PRHI_24: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K4" # # # # $Z set _____SelectNombres=2 # # # # $Z set _____Profondeur=4 # # $Z set _____Palette=$xiP/cercle.22 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PRHI.24 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z SET _____CouleursNombres=$EXIST # # $m4 _____include(_____xiirv/.PRHI.12.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PRHI_24: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J4' montre les nombres premiers sur une courbe # # de Hilbert bidimensionnelle (iteration 3)... # v $xiirv/PRHI.25 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PRHI_25: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K6" # # # # $Z set _____SelectNombres=2 # # # # $Z set _____Profondeur=6 # # $Z set _____Palette=$xiP/cercle.22 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PRHI.25 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z SET _____CouleursNombres=$EXIST # # $m4 _____include(_____xiirv/.PRHI.12.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PRHI_25: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J5' montre les nombres premiers sur une courbe # # de Hilbert bidimensionnelle (iteration 5)... # v $xiirv/PRHI.26 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_PRHI_26: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K7" # # # # $Z set _____SelectNombres=2 # # # # $Z set _____Profondeur=7 # # $Z set _____Palette=$xiP/cercle.22 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PRHI.26 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $Z SET _____CouleursNombres=$EXIST # # $m4 _____include(_____xiirv/.PRHI.12.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PRHI_26: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J6' montre les nombres premiers sur une courbe # # de Hilbert bidimensionnelle (iteration 6)... # v $xiirv/PRHI.32 # Generee (sur '$LACT1A' puis sur '$LACT1B') par : # # # # # # :Debut_listG_PRHI_32: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=2 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/PRHI.32 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=1 # # $Z set _____Palette=$xiP/cercle.22 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $Z set _____FacteurR=1.0 # # $Z SET _____CouleursNombres=$EXIST # # $m4 _____include(_____xiirv/.PRHI.12.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_PRHI_32: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre les nombres de diviseurs des 8 # # premiers nombres entiers sur une courbe de Hilbert tridimensionnelle (iteration 1)... # v $xiirv/PRHI.33 # Generee (sur '$LACT1A' puis sur '$LACT1B') par : # # # # # # :Debut_listG_PRHI_33: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=3 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/PRHI.33 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=1 # # $Z set _____Palette=$xiP/cercle.22 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $Z set _____FacteurR=1.2 # # $Z SET _____CouleursNombres=$EXIST # # $m4 _____include(_____xiirv/.PRHI.12.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_PRHI_33: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J3' montre les nombres de diviseurs des 64 # # premiers nombres entiers sur une courbe de Hilbert tridimensionnelle (iteration 1)... # v $xiirv/PRHI.34 # Generee (sur '$LACT1A' puis sur '$LACT1B') par : # # # # # # :Debut_listG_PRHI_34: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=4 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/PRHI.34 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=1 # # $Z set _____Palette=$xiP/cercle.22 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $Z set _____FacteurR=1.4 # # $Z SET _____CouleursNombres=$EXIST # # $m4 _____include(_____xiirv/.PRHI.12.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_PRHI_34: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J4' montre les nombres de diviseurs des 512 # # premiers nombres entiers sur une courbe de Hilbert tridimensionnelle (iteration 1)... # v $xiirv/PRHI.35 # Generee (sur '$LACT1A' puis sur '$LACT1B') par : # # # # # # :Debut_listG_PRHI_35: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/PRHI.35 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=1 # # $Z set _____Palette=$xiP/cercle.22 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $Z set _____FacteurR=1.6 # # $Z SET _____CouleursNombres=$EXIST # # $m4 _____include(_____xiirv/.PRHI.12.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_PRHI_35: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J5' montre les nombres de diviseurs des 4096 # # premiers nombres entiers sur une courbe de Hilbert tridimensionnelle (iteration 1)... # v $xiirv/PRHI.42 # Generee (sur '$LACT1A' puis sur '$LACT1B') par : # # # # # # :Debut_listG_PRHI_42: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____SelectNombres=2 # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=2 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/PRHI.42 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=1 # # $Z set _____Palette=$xiP/cercle.22 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $Z set _____FacteurR=1.0 # # $Z SET _____CouleursNombres=$EXIST # # $m4 _____include(_____xiirv/.PRHI.12.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_PRHI_42: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre les nombres de diviseurs des 8 # # premiers nombres entiers sur une courbe de Hilbert tridimensionnelle (iteration 1)... # v $xiirv/PRHI.43 # Generee (sur '$LACT1A' puis sur '$LACT1B') par : # # # # # # :Debut_listG_PRHI_43: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____SelectNombres=2 # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=3 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/PRHI.43 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=1 # # $Z set _____Palette=$xiP/cercle.22 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $Z set _____FacteurR=1.2 # # $Z SET _____CouleursNombres=$EXIST # # $m4 _____include(_____xiirv/.PRHI.12.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_PRHI_43: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J3' montre les nombres de diviseurs des 64 # # premiers nombres entiers sur une courbe de Hilbert tridimensionnelle (iteration 1)... # v $xiirv/PRHI.44 # Generee (sur '$LACT1A' puis sur '$LACT1B') par : # # # # # # :Debut_listG_PRHI_44: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____SelectNombres=2 # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=4 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/PRHI.44 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=1 # # $Z set _____Palette=$xiP/cercle.22 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $Z set _____FacteurR=1.4 # # $Z SET _____CouleursNombres=$EXIST # # $m4 _____include(_____xiirv/.PRHI.12.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_PRHI_44: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J4' montre les nombres de diviseurs des 512 # # premiers nombres entiers sur une courbe de Hilbert tridimensionnelle (iteration 1)... # v $xiirv/PRHI.45 # Generee (sur '$LACT1A' puis sur '$LACT1B') par : # # # # # # :Debut_listG_PRHI_45: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____SelectNombres=2 # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/PRHI.45 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=1 # # $Z set _____Palette=$xiP/cercle.22 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $Z set _____FacteurR=1.6 # # $Z SET _____CouleursNombres=$EXIST # # $m4 _____include(_____xiirv/.PRHI.12.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_PRHI_45: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J5' montre les nombres de diviseurs des 4096 # # premiers nombres entiers sur une courbe de Hilbert tridimensionnelle (iteration 1)... # v $xiirv/PRJU.11 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PRJU_11: # # # # $Z Pqu # # # # $Z SET _____Editer=$EXIST # # $Z SET _____Distance=0 # # $Z set _____ImageR=$xiirv/PRJU.11 # # $m4 _____include(_____xiirv/.PRJU.11.1._____U) # # # # :Fin_listG_PRJU_11: # # # # # # qui montre les distances entre nombres premiers (de 2 a 28657). # v $xiirv/PRJU.11.2 p=$xiP/cercle.52 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PRJU_11_2: # # # # $Z Pqu # # # # $Z SET _____Distance=2 # # $Z set _____ImageR=$xiirv/PRJU.11.$_____Distance # # $m4 _____include(_____xiirv/.PRJU.11.1._____U) # # # # :Fin_listG_PRJU_11_2: # # # # # # qui montre les distances entre nombres premiers (de 2 a 28657) en mettant en evidence # # les nombres premiers jumeaux (distance=2). # v $xiirv/PRJU.11.4 p=$xiP/cercle.52 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PRJU_11_4: # # # # $Z Pqu # # # # $Z SET _____Distance=4 # # $Z set _____ImageR=$xiirv/PRJU.11.$_____Distance # # $m4 _____include(_____xiirv/.PRJU.11.1._____U) # # # # :Fin_listG_PRJU_11_4: # # # # # # qui montre les distances entre nombres premiers (de 2 a 28657) en mettant en evidence # # les nombres premiers "quadri-jumeaux" (distance=4). # v $xiirv/PRJU.11.6 p=$xiP/cercle.52 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PRJU_11_6: # # # # $Z Pqu # # # # $Z SET _____Distance=6 # # $Z set _____ImageR=$xiirv/PRJU.11.$_____Distance # # $m4 _____include(_____xiirv/.PRJU.11.1._____U) # # # # :Fin_listG_PRJU_11_6: # # # # # # qui montre les distances entre nombres premiers (de 2 a 28657) en mettant en evidence # # les nombres premiers "hexa-jumeaux" (distance=6). # v $xiirv/PRJU.11.8 p=$xiP/cercle.52 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PRJU_11_8: # # # # $Z Pqu # # # # $Z SET _____Distance=8 # # $Z set _____ImageR=$xiirv/PRJU.11.$_____Distance # # $m4 _____include(_____xiirv/.PRJU.11.1._____U) # # # # :Fin_listG_PRJU_11_8: # # # # # # qui montre les distances entre nombres premiers (de 2 a 28657) en mettant en evidence # # les nombres premiers "octo-jumeaux" (distance=8). # v $xiirv/PRJU.12 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PRJU_12: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/init$X \ # # $Z n=$GRIS_2 \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiirv/PRJU.11 \ # # $Z p=$xiP/cercle.35 \ # # $Z R=$xTV/PRJU.11 \ # # $Z $formatI # # # # $Z execRVB $xci/cache$X \ # # $Z A=$xTV/FOND%s \ # # $Z M=$xTV/PRJU.11%s \ # # $Z R=$xiirv/PRJU.12%s \ # # $Z $formatI # # # # :Fin_listG_PRJU_12: # # # # # # qui montre l'image 'v $xiirv/PRJU.11' avec un fond gris... # v $xiirv/PROM.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PROM_21: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xtb/MarchesAleatoires_Pi.02 # # $Z set _____NIterations=1500000 # # $Z SET _____CumulPhi=$EXIST # # $Z set _____Zoom=0.17 # # $Z set _____VRayon=0.018 # # $Z set _____Palette=$xiP/arc_ciel.B1 # # $Z set _____ImageR=$xiirv/PROM.21 # # $m4 _____include(_____xiirv/.PIPO.11.1._____U) # # $m4 _____include(_____xiirv/.PROM.21.2._____U) # # $m4 _____include(_____xiirv/.PIPO.11.3._____U) # # $m4 _____include(_____xiirv/.PROM.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PROM_21: # # # # # # qui montre les 30 premieres decimales de 'pi' comme une marche aleatoire en coordonnees # # polaires suivant la methode de Benoit Cloitre. On y voit en particulier l'existence de # # cycles (des points par lesquels la "promenade" passe plusieurs fois) puisque certaines # # couleurs n'apparaissent pas. Ces cycles apparaissent grace a 'v $xiirv/PROM.22' qui # # visualise le numero d'iterations en tant que troisieme coordonnee 'Z'... # v $xiirv/PROM.21.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PROM_21_1: # # # # $Z Sdu # # # # $Z $xci/FondBlancLisere.11$Z $xiirv/PROM.21 $xiirv/PROM.21.1 # # # # :Fin_listG_PROM_21_1: # # # v $xiirv/PROM.22 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PROM_22: # # # # $Z Pdu # # # # $Z set _____FDecimales=$xtb/MarchesAleatoires_Pi.02 # # $Z set _____NIterations=1500000 # # $Z SET _____CumulPhi=$EXIST # # $Z set _____Z0=0 # # $Z set _____ZN=12 # # $Z set _____CentrerZ=FAUX # # $Z set _____Zoom=0.18 # # $Z set _____VRayon=0.018 # # $Z set _____Speculaire=8 # # $Z set _____Palette=$xiP/arc_ciel.B1 # # $Z set _____ParticulePara2="ROTATION_OY=0.8" # # $Z set _____ImageR=$xiirv/PROM.22 # # $m4 _____include(_____xiirv/.PIPO.11.1._____U) # # $m4 _____include(_____xiirv/.PROM.21.2._____U) # # $m4 _____include(_____xiirv/.PIPO.11.3._____U) # # $m4 _____include(_____xiirv/.PROM.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PROM_22: # # # # # # qui montre les 30 premieres decimales de 'pi' comme une marche aleatoire en coordonnees # # polaires suivant la methode de Benoit Cloitre. # v $xiirv/PROM.22.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PROM_22_1: # # # # $Z Pdu # # # # $Z $xci/FondBlancLisere.11$Z $xiirv/PROM.22 $xiirv/PROM.22.1 # # # # :Fin_listG_PROM_22_1: # # # v $xiirv/PROM.31 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PROM_31: # # # # $Z Sdu # # # # $Z set _____NIterations=1500000 # # $Z SET _____CumulPhi=$EXIST # # $Z set _____Zoom=0.17 # # $Z set _____VRayon=0.018 # # $Z set _____Palette=$xiP/arc_ciel.B1 # # $Z set _____ImageR=$xiirv/PROM.31 # # $m4 _____include(_____xiirv/.PIPO.11.1._____U) # # $m4 _____include(_____xiirv/.PROM.31.2._____U) # # $m4 _____include(_____xiirv/.PIPO.11.3._____U) # # $m4 _____include(_____xiirv/.PROM.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PROM_31: # # # # # # qui montre les 16 premieres decimales de 'pi' comme une marche aleatoire en coordonnees # # polaires suivant la methode de Benoit Cloitre et qui ressemble bien a 'v $xiirv/PROM.21'. # v $xiirv/PROM.32 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PROM_32: # # # # $Z Pdu # # # # $Z set _____NIterations=1500000 # # $Z SET _____CumulPhi=$EXIST # # $Z set _____Z0=0 # # $Z set _____ZN=12 # # $Z set _____CentrerZ=FAUX # # $Z set _____Zoom=0.18 # # $Z set _____VRayon=0.018 # # $Z set _____Speculaire=8 # # $Z set _____Palette=$xiP/arc_ciel.B1 # # $Z set _____ParticulePara2="ROTATION_OY=0.8" # # $Z set _____NIterations=1500000 # # $Z set _____ImageR=$xiirv/PROM.32 # # $m4 _____include(_____xiirv/.PIPO.11.1._____U) # # $m4 _____include(_____xiirv/.PROM.31.2._____U) # # $m4 _____include(_____xiirv/.PIPO.11.3._____U) # # $m4 _____include(_____xiirv/.PROM.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PROM_32: # # # # # # qui montre les 16 premieres decimales de 'pi' comme une marche aleatoire en coordonnees # # polaires suivant la methode de Benoit Cloitre et qui ressemble bien a 'v $xiirv/PROM.22'. # v $xiirv/PROM.91 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PROM_91: # # # # $Z Squ # # # # $Z FilSTmpB FMarcheAleatoire # # $Z # # $Z $CA $xtb/MarchesAleatoires_Parametrables.02 | \ # # $Z $SE \ # # $Z -e "s/defineNombreR/2.718281828459045235360287471352/" \ # # $Z -e "s/defineParametreA/10/" \ # # $Z -e "s/defineParametreB/0/" \ # # $Z -e "s/defineIteration/1500000/" \ # # $Z >> $FMarcheAleatoire # # $Z # # $Z set _____FDecimales=$FMarcheAleatoire # # $Z set _____NIterations=1500000 # # $Z SET _____CumulPhi=$EXIST # # $Z set _____Zoom=0.06 # # $Z set _____VRayon=0.018 # # $Z set _____Palette=$xiP/arc_ciel.B1 # # $Z set _____ImageR=$xiirv/PROM.91 # # $m4 _____include(_____xiirv/.PIPO.11.1._____U) # # $m4 _____include(_____xiirv/.PROM.21.2._____U) # # $m4 _____include(_____xiirv/.PIPO.11.3._____U) # # $m4 _____include(_____xiirv/.PROM.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # $Z # # $Z FilSTmpE FMarcheAleatoire # # # # :Fin_listG_PROM_91: # # # # # # qui montre les 30 premieres decimales de 'en' comme une marche aleatoire en coordonnees # # polaires suivant la methode de Benoit Cloitre. On y voit en particulier l'existence de # # cycles (des points par lesquels la "promenade" passe plusieurs fois) puisque certaines # # couleurs n'apparaissent pas. Ces cycles apparaissent grace a 'v $xiirv/PROM.92' qui # # visualise le numero d'iterations en tant que troisieme coordonnee 'Z'... # v $xiirv/PROM.91.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PROM_91_1: # # # # $Z Squ # # # # $Z $xci/FondBlancLisere.11$Z $xiirv/PROM.91 $xiirv/PROM.91.1 # # # # :Fin_listG_PROM_91_1: # # # v $xiirv/PROM.92 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PROM_92: # # # # $Z Pqu # # # # $Z FilSTmpB FMarcheAleatoire # # $Z # # $Z $CA $xtb/MarchesAleatoires_Parametrables.02 | \ # # $Z $SE \ # # $Z -e "s/defineNombreR/2.718281828459045235360287471352/" \ # # $Z -e "s/defineParametreA/10/" \ # # $Z -e "s/defineParametreB/0/" \ # # $Z -e "s/defineIteration/1500000/" \ # # $Z >> $FMarcheAleatoire # # $Z # # $Z set _____FDecimales=$FMarcheAleatoire # # $Z set _____NIterations=1500000 # # $Z SET _____CumulPhi=$EXIST # # $Z set _____Z0=0 # # $Z set _____ZN=28 # # $Z set _____CentrerZ=FAUX # # $Z set _____Zoom=0.08 # # $Z set _____VRayon=0.018 # # $Z set _____Speculaire=8 # # $Z set _____Palette=$xiP/arc_ciel.B1 # # $Z set _____ParticulePara2="ROTATION_OY=0.8" # # $Z set _____ImageR=$xiirv/PROM.92 # # $m4 _____include(_____xiirv/.PIPO.11.1._____U) # # $m4 _____include(_____xiirv/.PROM.21.2._____U) # # $m4 _____include(_____xiirv/.PIPO.11.3._____U) # # $m4 _____include(_____xiirv/.PROM.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # $Z # # $Z FilSTmpE FMarcheAleatoire # # # # :Fin_listG_PROM_92: # # # # # # qui montre les 30 premieres decimales de 'en' comme une marche aleatoire en coordonnees # # polaires suivant la methode de Benoit Cloitre. # v $xiirv/PROM.92.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PROM_92_1: # # # # $Z Pqu # # # # $Z $xci/FondBlancLisere.11$Z $xiirv/PROM.92 $xiirv/PROM.92.1 # # # # :Fin_listG_PROM_92_1: # # # v $xiirv/PROM.A1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PROM_A1: # # # # $Z Squ # # # # $Z set _____NombreR=$en # # $Z set _____NIterations=1500000 # # $Z SET _____CumulPhi=$EXIST # # $Z set _____Zoom=0.06 # # $Z set _____VRayon=0.018 # # $Z set _____Palette=$xiP/arc_ciel.B1 # # $Z set _____ImageR=$xiirv/PROM.A1 # # $m4 _____include(_____xiirv/.PIPO.11.1._____U) # # $m4 _____include(_____xiirv/.PROM.31.2._____U) # # $m4 _____include(_____xiirv/.PIPO.11.3._____U) # # $m4 _____include(_____xiirv/.PROM.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PROM_A1: # # # # # # qui montre les 16 premieres decimales de 'en' comme une marche aleatoire en coordonnees # # polaires suivant la methode de Benoit Cloitre et qui ressemble bien a 'v $xiirv/PROM.91'. # v $xiirv/PROM.A2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PROM_A2: # # # # $Z Pqu # # # # $Z set _____NombreR=$en # # $Z set _____NIterations=1500000 # # $Z SET _____CumulPhi=$EXIST # # $Z set _____Z0=0 # # $Z set _____ZN=28 # # $Z set _____CentrerZ=FAUX # # $Z set _____Zoom=0.08 # # $Z set _____VRayon=0.018 # # $Z set _____Speculaire=8 # # $Z set _____Palette=$xiP/arc_ciel.B1 # # $Z set _____ParticulePara2="ROTATION_OY=0.8" # # $Z set _____NIterations=1500000 # # $Z set _____ImageR=$xiirv/PROM.A2 # # $m4 _____include(_____xiirv/.PIPO.11.1._____U) # # $m4 _____include(_____xiirv/.PROM.31.2._____U) # # $m4 _____include(_____xiirv/.PIPO.11.3._____U) # # $m4 _____include(_____xiirv/.PROM.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PROM_A2: # # # # # # qui montre les 16 premieres decimales de 'en' comme une marche aleatoire en coordonnees # # polaires suivant la methode de Benoit Cloitre et qui ressemble bien a 'v $xiirv/PROM.92'. # v $xiirv/PROM.B1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PROM_B1: # # # # $Z Sdu # # # # $Z set _____FDecimales=$xtb/MarchesAleatoires_Random.02 # # $Z set _____NIterations=1500000 # # $Z SET _____CumulPhi=$EXIST # # $Z set _____Zoom=0.09 # # $Z set _____VRayon=0.018 # # $Z set _____Palette=$xiP/arc_ciel.B1 # # $Z set _____ImageR=$xiirv/PROM.B1 # # $m4 _____include(_____xiirv/.PIPO.11.1._____U) # # $m4 _____include(_____xiirv/.PROM.21.2._____U) # # $m4 _____include(_____xiirv/.PIPO.11.3._____U) # # $m4 _____include(_____xiirv/.PROM.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PROM_B1: # # # # # # qui montre un nombre aleatoire a 100 decimales comme une marche aleatoire en coordonnees # # polaires suivant la methode de Benoit Cloitre. # v $xiirv/PROM.B1.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PROM_B1_1: # # # # $Z Sdu # # # # $Z $xci/FondBlancLisere.11$Z $xiirv/PROM.B1 $xiirv/PROM.B1.1 # # # # :Fin_listG_PROM_B1_1: # # # v $xiirv/PROM.B2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PROM_B2: # # # # $Z Pdu # # # # $Z set _____FDecimales=$xtb/MarchesAleatoires_Random.02 # # $Z set _____NIterations=1500000 # # $Z SET _____CumulPhi=$EXIST # # $Z set _____Z0=0 # # $Z set _____ZN=12 # # $Z set _____CentrerZ=FAUX # # $Z set _____Zoom=0.12 # # $Z set _____VRayon=0.018 # # $Z set _____Speculaire=8 # # $Z set _____Palette=$xiP/arc_ciel.B1 # # $Z set _____ParticulePara2="ROTATION_OY=0.8" # # $Z set _____ImageR=$xiirv/PROM.B2 # # $m4 _____include(_____xiirv/.PIPO.11.1._____U) # # $m4 _____include(_____xiirv/.PROM.21.2._____U) # # $m4 _____include(_____xiirv/.PIPO.11.3._____U) # # $m4 _____include(_____xiirv/.PROM.21.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_PROM_B2: # # # # # # qui montre un nombre aleatoire a 100 decimales comme une marche aleatoire en coordonnees # # polaires suivant la methode de Benoit Cloitre. # v $xiirv/PROM.B2.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PROM_B2_1: # # # # $Z Pdu # # # # $Z $xci/FondBlancLisere.11$Z $xiirv/PROM.B2 $xiirv/PROM.B2.1 # # # # :Fin_listG_PROM_B2_1: # # # v $xiirv/POIN.11 v $xiirv/POIN.11.1$m v $xiirv/POIN.11.1$M v $xiirv/POIN.11.2$m v $xiirv/POIN.11.2$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_POIN_11: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # $Z set _____FInterpolerC=40 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/POIN.11 # # $m4 _____include(_____xiirv/.POIN.21._____U) # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=400 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/scale$X \ # # $Z A=$_____ImageR%s \ # # $Z a=0.75 b=$GRIS_2 \ # # $Z R=$xTV/TEXTURE.1%s \ # # $Z $formatI # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$xTV/TEXTURE.1%s \ # # $Z generations=3 \ # # $Z R=$xTV/TEXTURE.2%s \ # # $Z $formatI # # # # $Z set MPaRaM1="Sy=20" # # $Z set MPaRaM2="$MPaRaM1"" Ty=0.92 perspective=0.4" # # # # $Z $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$BLANC \ # # $Z avion=FAUX \ # # $Z Z-Buffer=VRAI \ # # $Z $MPaRaM2 \ # # $Z R=$xTV/MONTAGNE \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/gris.01 \ # # $Z R=$xTV/BRUME \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$xTV/TEXTURE.1%s \ # # $Z avion=VRAI \ # # $Z $MPaRaM1 \ # # $Z R=$_____ImageR.1$m%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$xTV/TEXTURE.1%s \ # # $Z avion=FAUX \ # # $Z $MPaRaM2 \ # # $Z R=$_____ImageR.1$M%s \ # # $Z $formatI # # $Z $xci/vitre.53$Z \ # # $Z $_____ImageR.1$M \ # # $Z $xTV/BRUME \ # # $Z $_____ImageR.1$M # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$xTV/TEXTURE.2%s \ # # $Z avion=VRAI \ # # $Z $MPaRaM1 \ # # $Z R=$_____ImageR.2$m%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$xTV/TEXTURE.2%s \ # # $Z avion=FAUX \ # # $Z $MPaRaM2 \ # # $Z R=$_____ImageR.2$M%s \ # # $Z $formatI # # $Z $xci/vitre.53$Z \ # # $Z $_____ImageR.2$M \ # # $Z $xTV/BRUME \ # # $Z $_____ImageR.2$M # # # # :Fin_listG_POIN_11: # # # # # # qui montre un pavage du disque hyperbolique de Poincare et quelques "variations"... # # # # Pour l'aspect polygonal des petits arcs 'v $xci/valeurs_DPoincare.01$K 20161115152426'... # v $xiirv/POIN.12 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_POIN_12: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # $Z set _____FInterpolerC=40 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/POIN.12 # # $m4 _____include(_____xiirv/.POIN.21._____U) # # # # $Z set _____Rayon=1 # # # # Le disque a pour rayon 1 ('v $xci/valeurs_DPoincare.01$K RAYON_DU_CERCLE_TRIGONOMETRIQUE'). # # # # $Z set _____Epaisseur=0.008 # # $Z set _____CoordonneeZ=`GetParam $xrv/particule.10$X LISTE_Z` # # # # Afin d'avoir le meme 'Z' que dans 'v $xiirv/$xiirv/.POIN.21.$U' (qui utilise le 'Z' par # # defaut...). # # # # $Z set _____Rouge=$GRIS_8 # # $Z set _____Verte=$GRIS_8 # # $Z set _____Bleue=$GRIS_8 # # $Z set _____ParticuleParaC="$K_VIDE" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" fond=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" F=$_____ImageR" # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CERC.11.1._____U) # # # # :Fin_listG_POIN_12: # # # # # # qui montre un pavage du disque hyperbolique de Poincare avec son "bord"... # # # # Pour l'aspect polygonal des petits arcs 'v $xci/valeurs_DPoincare.01$K 20161115152426'... # v $xiirv/POIN.13 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_POIN_13: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # $Z set _____FInterpolerC=40 # # $Z set _____Palette=$xiP/blanc # # $Z set _____Rayon=0.008 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/POIN.13 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" Pajuster=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" dm=0.02" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.0001" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" N_AU_CARRE=FAUX" # # # # Ainsi, les centres des spheres cote a cote definissent parfaitement les "interstices" # # entre les hexagones du pavage... # # # # $m4 _____include(_____xiirv/.POIN.21._____U) # # # # $Z set _____Rayon=1 # # # # Le disque a pour rayon 1 ('v $xci/valeurs_DPoincare.01$K RAYON_DU_CERCLE_TRIGONOMETRIQUE'). # # # # $Z set _____NCercle=3000 # # $Z set _____Epaisseur=0.008 # # $Z set _____CoordonneeZ=`GetParam $xrv/particule.10$X LISTE_Z` # # # # Afin d'avoir le meme 'Z' que dans 'v $xiirv/$xiirv/.POIN.21.$U' (qui utilise le 'Z' par # # defaut...). # # # # $Z set _____Rouge=$GRIS_8 # # $Z set _____Verte=$GRIS_8 # # $Z set _____Bleue=$GRIS_8 # # $Z set _____ParticuleParaC="$K_VIDE" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" LISTE_RAYON=0.0001" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" centre_des_spheres=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" fond=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" fond=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" F=$_____ImageR" # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CERC.11.1._____U) # # # # $Z set _____OptimiserIncrement=VRAI # # $Z set _____AttenuationA=1 # # $Z set _____PaletteC=$xiP/random.B7$Fi # # $Z FileTmpB FPaletteC # # # # $Z $xciP/S_NIVEAU$X \ # # $Z paletteA=$_____PaletteC \ # # $Z niveau=$NOIR \ # # $Z ROUGE=VRAI nR=$NOIR \ # # $Z VERTE=VRAI nV=$NOIR \ # # $Z BLEUE=VRAI nB=$NOIR \ # # $Z paletteR=$FPaletteC # # # # $Z $xciP/S_NIVEAU$X \ # # $Z paletteA=$FPaletteC \ # # $Z niveau=$NOIR_PLANCHER \ # # $Z ROUGE=VRAI nR=$NOIR \ # # $Z VERTE=VRAI nV=$NOIR \ # # $Z BLEUE=VRAI nB=$NOIR \ # # $Z paletteR=$FPaletteC # # $Z set _____PaletteC=$FPaletteC # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # # # $Z FileTmpE FPaletteC # # # # $Z set _____Rayon=0.008 # # $Z set _____Zoom=1.2 # # $m4 _____include(_____xiirv/.POIN.21._____U) # # # # $Z set _____Rayon=1 # # $Z set _____NCercle=300 # # $Z set _____Epaisseur=0.008 # # $Z set _____ParticuleParaC="$K_VIDE" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" fond=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" F=$_____ImageR" # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CERC.11.1._____U) # # # # :Fin_listG_POIN_13: # # # # # # qui montre un pavage hexagonal du disque hyperbolique de Poincare avec son "bord" rempli... # # # # Pour l'aspect polygonal des petits arcs 'v $xci/valeurs_DPoincare.01$K 20161115152426'... # v $xiirv/POIN.14 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_POIN_14: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # $Z set _____FInterpolerC=40 # # $Z set _____Palette=$xiP/blanc # # $Z set _____Rayon=0.008 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/POIN.14 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" Pajuster=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" dm=0.02" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.0001" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" N_AU_CARRE=FAUX" # # # # Ainsi, les centres des spheres cote a cote definissent parfaitement les "interstices" # # entre les hexagones du pavage... # # # # $Z set _____NombreN=8 # # $m4 _____include(_____xiirv/.POIN.21._____U) # # # # $Z set _____Rayon=1 # # # # Le disque a pour rayon 1 ('v $xci/valeurs_DPoincare.01$K RAYON_DU_CERCLE_TRIGONOMETRIQUE'). # # # # $Z set _____NCercle=3000 # # $Z set _____Epaisseur=0.008 # # $Z set _____CoordonneeZ=`GetParam $xrv/particule.10$X LISTE_Z` # # # # Afin d'avoir le meme 'Z' que dans 'v $xiirv/$xiirv/.POIN.21.$U' (qui utilise le 'Z' par # # defaut...). # # # # $Z set _____Rouge=$GRIS_8 # # $Z set _____Verte=$GRIS_8 # # $Z set _____Bleue=$GRIS_8 # # $Z set _____ParticuleParaC="$K_VIDE" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" LISTE_RAYON=0.0001" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" centre_des_spheres=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" fond=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" fond=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" F=$_____ImageR" # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CERC.11.1._____U) # # # # $Z set _____OptimiserIncrement=VRAI # # $Z set _____AttenuationA=1 # # $Z set _____PaletteC=$xiP/random.B7$Fi # # $Z FileTmpB FPaletteC # # # # $Z $xciP/S_NIVEAU$X \ # # $Z paletteA=$_____PaletteC \ # # $Z niveau=$NOIR \ # # $Z ROUGE=VRAI nR=$NOIR \ # # $Z VERTE=VRAI nV=$NOIR \ # # $Z BLEUE=VRAI nB=$NOIR \ # # $Z paletteR=$FPaletteC # # # # $Z $xciP/S_NIVEAU$X \ # # $Z paletteA=$FPaletteC \ # # $Z niveau=$NOIR_PLANCHER \ # # $Z ROUGE=VRAI nR=$NOIR \ # # $Z VERTE=VRAI nV=$NOIR \ # # $Z BLEUE=VRAI nB=$NOIR \ # # $Z paletteR=$FPaletteC # # $Z set _____PaletteC=$FPaletteC # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # # # $Z FileTmpE FPaletteC # # # # $Z set _____Rayon=0.008 # # $Z set _____Zoom=1.2 # # $m4 _____include(_____xiirv/.POIN.21._____U) # # # # $Z set _____Rayon=1 # # $Z set _____NCercle=300 # # $Z set _____Epaisseur=0.008 # # $Z set _____ParticuleParaC="$K_VIDE" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" fond=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" F=$_____ImageR" # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CERC.11.1._____U) # # # # :Fin_listG_POIN_14: # # # # # # qui montre un pavage octogonal du disque hyperbolique de Poincare avec son "bord" rempli... # # # # Pour l'aspect polygonal des petits arcs 'v $xci/valeurs_DPoincare.01$K 20161115152426'... # v $xiirv/POIN.21$m v $xiirv/POIN.21$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_POIN_21: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=4 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Rayon=0.020 # # $Z set _____ImageR=$xTV/POIN.21 # # $m4 _____include(_____xiirv/.POIN.21._____U) # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=400 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE.1 \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SURFACE.2 \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z c=16 \ # # $Z standard=FAUX \ # # $Z Frenormaliser=VRAI \ # # $Z origine=0.2 extremite=1.0 \ # # $Z R=$xTV/SURFACE.3 \ # # $Z $formatI # # # # $Z $xci/multi_03.01$X \ # # $Z A1=$xTV/SURFACE.1 \ # # $Z A2=$xTV/SURFACE.2 \ # # $Z A3=$xTV/SURFACE.3 \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/random.B3$Fi \ # # $Z R=$xTV/TEXTURE \ # # $Z $formatI # # # # $Z set _____ImageR=$xiirv/POIN.21 # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z R=$_____ImageR$m%s \ # # $Z $formatI # # # # $Z $xci/montagne.81$Z \ # # $Z $xTV/SURFACE \ # # $Z $xTV/TEXTURE \ # # $Z $_____ImageR \ # # $Z "Ty=0.88 perspective=0.4" # # # # :Fin_listG_POIN_21: # # # # # # qui montre une variation tridimensionnelle sur le pavage du disque hyperbolique de # # Poincare... # v $xiirv/POIN.31$m v $xiirv/POIN.31$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_POIN_31: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=4 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Rayon=0.020 # # $Z set _____ImageR=$xTV/POIN.31 # # $m4 _____include(_____xiirv/.POIN.21._____U) # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=400 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE.1 \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SURFACE.2 \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z c=16 \ # # $Z standard=FAUX \ # # $Z Frenormaliser=VRAI \ # # $Z origine=0.2 extremite=1.0 \ # # $Z R=$xTV/SURFACE.3 \ # # $Z $formatI # # # # $Z $xci/multi_03.01$X \ # # $Z A1=$xTV/SURFACE.1 \ # # $Z A2=$xTV/SURFACE.2 \ # # $Z A3=$xTV/SURFACE.3 \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/random.B3$Fi \ # # $Z R=$xTV/TEXTURE.1 \ # # $Z $formatI # # # # $Z set _____Palette=$xiP/blanc # # $Z set _____Rayon=0.020 # # $Z set _____ImageR=$xTV/TEXTURE.2 # # $m4 _____include(_____xiirv/.POIN.21._____U) # # # # $Z execRVB $xci/cache$X \ # # $Z A=$xTV/TEXTURE.1%s \ # # $Z M=$xTV/TEXTURE.2%s \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xTV/TEXTURE%s \ # # $Z $formatI # # # # $Z set _____ImageR=$xiirv/POIN.31 # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z R=$_____ImageR$m%s \ # # $Z $formatI # # # # $Z $xci/montagne.81$Z \ # # $Z $xTV/SURFACE \ # # $Z $xTV/TEXTURE \ # # $Z $_____ImageR \ # # $Z "Ty=0.88 perspective=0.4" # # # # :Fin_listG_POIN_31: # # # # # # qui montre une variation tridimensionnelle sur le pavage du disque hyperbolique de # # Poincare... # v $xiirv/POIN.32$m v $xiirv/POIN.32$M # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_POIN_32: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Rayon=0.020 # # $Z set _____ImageR=$xTV/POIN.32 # # $m4 _____include(_____xiirv/.POIN.21._____U) # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=400 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE.1 \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SURFACE.2 \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z c=16 \ # # $Z standard=FAUX \ # # $Z Frenormaliser=VRAI \ # # $Z origine=0.2 extremite=1.0 \ # # $Z R=$xTV/SURFACE.3 \ # # $Z $formatI # # # # $Z $xci/multi_03.01$X \ # # $Z A1=$xTV/SURFACE.1 \ # # $Z A2=$xTV/SURFACE.2 \ # # $Z A3=$xTV/SURFACE.3 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/random.B3$Fi \ # # $Z R=$xTV/TEXTURE.1 \ # # $Z $formatI # # # # $Z set _____Palette=$xiP/blanc # # $Z set _____Rayon=0.020 # # $Z set _____ImageR=$xTV/TEXTURE.2 # # $m4 _____include(_____xiirv/.POIN.21._____U) # # # # $Z execRVB $xci/cache$X \ # # $Z A=$xTV/TEXTURE.1%s \ # # $Z M=$xTV/TEXTURE.2%s \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xTV/TEXTURE%s \ # # $Z $formatI # # # # $Z set _____ImageR=$xiirv/POIN.32 # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z R=$_____ImageR$m%s \ # # $Z $formatI # # # # $Z $xci/montagne.81$Z \ # # $Z $xTV/SURFACE \ # # $Z $xTV/TEXTURE \ # # $Z $_____ImageR \ # # $Z "Ty=0.49 perspective=0.2" \ # # $Z $xiP/gris.06 # # # # :Fin_listG_POIN_32: # # # # # # Image identique a 'v $xiirv/POINT.31$M' mais en haute resolution et avec un relief # # inverse... # v $xiirv/POIN.41 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_POIN_41: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=4 # # $Z set _____Palette=$xiP/fractal.B3 # # $Z set _____DepthCueing=0.4 # # $Z set _____Zoom=1.2 # # $Z set _____RotationX=2.0 # # $Z set _____TranlationY=-0.2 # # $Z set _____ImageR=$xiirv/POIN.41 # # $m4 _____include(_____xiirv/.POIN.41._____U) # # # # :Fin_listG_POIN_41: # # # # # # qui montre une sorte de "diamant de Poincare" ('v $xiio/MIRE p=$xiP/random.B3$Fi' est une # # autre palette qui lui convient...). # v $xiirv/POIN.53 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_POIN_53: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # $Z set _____FInterpolerC=40 # # $Z set _____Palette=$xiP/NOIR_PLANCHER # # $Z set _____Rayon=0.008 # # $Z set _____Zoom=1.2 # # $Z set _____ImageR=$xiirv/POIN.53 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" Pajuster=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" dm=0.02" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.0001" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" N_AU_CARRE=FAUX" # # # # Ainsi, les centres des spheres cote a cote definissent parfaitement les "interstices" # # entre les hexagones du pavage... # # # # $m4 _____include(_____xiirv/.POIN.21._____U) # # # # $Z set _____Rayon=1 # # # # Le disque a pour rayon 1 ('v $xci/valeurs_DPoincare.01$K RAYON_DU_CERCLE_TRIGONOMETRIQUE'). # # # # $Z set _____NCercle=3000 # # $Z set _____Epaisseur=0.008 # # $Z set _____CoordonneeZ=`GetParam $xrv/particule.10$X LISTE_Z` # # # # Afin d'avoir le meme 'Z' que dans 'v $xiirv/$xiirv/.POIN.21.$U' (qui utilise le 'Z' par # # defaut...). # # # # $Z set _____Rouge=$GRIS_8 # # $Z set _____Verte=$GRIS_8 # # $Z set _____Bleue=$GRIS_8 # # $Z set _____ParticuleParaC="$K_VIDE" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" LISTE_RAYON=0.0001" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" centre_des_spheres=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" fond=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" fond=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" F=$_____ImageR" # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CERC.11.1._____U) # # # # $Z set _____OptimiserIncrement=VRAI # # $Z set _____AttenuationA=1 # # $Z set _____PaletteC=$xiP/Mondrian.02 # # $Z FileTmpB FPaletteC # # # # $Z $xciP/S_NIVEAU$X \ # # $Z paletteA=$_____PaletteC \ # # $Z niveau=$NOIR \ # # $Z ROUGE=VRAI nR=$NOIR \ # # $Z VERTE=VRAI nV=$NOIR \ # # $Z BLEUE=VRAI nB=$NOIR \ # # $Z paletteR=$FPaletteC # # # # $Z $xciP/S_NIVEAU$X \ # # $Z paletteA=$FPaletteC \ # # $Z niveau=$NOIR_PLANCHER \ # # $Z ROUGE=VRAI nR=$NOIR \ # # $Z VERTE=VRAI nV=$NOIR \ # # $Z BLEUE=VRAI nB=$NOIR \ # # $Z paletteR=$FPaletteC # # $Z set _____PaletteC=$FPaletteC # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # # # $Z FileTmpE FPaletteC # # # # $Z set _____Rayon=0.008 # # $Z set _____Zoom=1.2 # # $m4 _____include(_____xiirv/.POIN.21._____U) # # # # $Z set _____Rayon=1 # # $Z set _____NCercle=300 # # $Z set _____Epaisseur=0.008 # # $Z set _____ParticuleParaC="$K_VIDE" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" fond=VRAI" # # $Z set _____ParticuleParaC="$_____ParticuleParaC"" F=$_____ImageR" # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CERC.11.1._____U) # # # # :Fin_listG_POIN_53: # # # # # # qui montre un pavage hexagonal du disque hyperbolique de Poincare avec son "bord" rempli # # colorie "a la Mondrian"... # # # # Pour l'aspect polygonal des petits arcs 'v $xci/valeurs_DPoincare.01$K 20161115152426'... # v $xiirv/POINT.11 p=$xiP/gris.01 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_POINT_11: # # # # $Z Pal # # # # $Z $xci/gauss$X \ # # $Z c=20000 \ # # $Z R=$xiirv/POINT.11 \ # # $Z $formatI # # # # :Fin_listG_POINT_11: # # # v $xiirv/POLG.13 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_POLG_13: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NIterationsT=0 # # $Z set NoMbRe=3 # # $Z set AnGlED=`calcul -($pi/6)` # # $Z set AnGlEA=`calcul ($dpi*(($NoMbRe-1)/$NoMbRe))+$AnGlED` # # $Z set TrAnS=0.5 # # $Z set ArgS="$K_VIDE" # # $Z set ArgS="$ArgS"" p=1 d=$NoMbRe" # # $Z set ArgS="$ArgS"" aD=$AnGlED aA=$AnGlEA" # # $Z set ArgS="$ArgS"" rD=1 rA=1" # # $Z set ArgS="$ArgS"" gamma=$TrAnS" # # $Z set ArgS="$ArgS"" delta=0" # # $Z set ArgS="$ArgS"" lineaire=VRAI" # # $Z set _____SommetX=`$xci/valeurs_trig$X $ArgS alpha=$TrAnS beta=0` # # $Z set _____SommetY=`$xci/valeurs_trig$X $ArgS alpha=0 beta=$TrAnS` # # $Z set _____Rayon1=0.020 # # $Z set _____Grossissement=1 # # $Z set _____Zoom=0.9 # # $Z set _____ImageR=$xiirv/POLG.13 # # $m4 _____include(_____xiirv/.REFT.11.1._____U) # # # # :Fin_listG_POLG_13: # # # # # # Un triangle equilateral. # v $xiirv/POLG.14 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_POLG_14: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NIterationsT=0 # # $Z set NoMbRe=4 # # $Z set AnGlED=`calcul -($pi/4)` # # $Z set AnGlEA=`calcul ($dpi*(($NoMbRe-1)/$NoMbRe))+$AnGlED` # # $Z set TrAnS=0.5 # # $Z set ArgS="$K_VIDE" # # $Z set ArgS="$ArgS"" p=1 d=$NoMbRe" # # $Z set ArgS="$ArgS"" aD=$AnGlED aA=$AnGlEA" # # $Z set ArgS="$ArgS"" rD=1 rA=1" # # $Z set ArgS="$ArgS"" gamma=$TrAnS" # # $Z set ArgS="$ArgS"" delta=0" # # $Z set ArgS="$ArgS"" lineaire=VRAI" # # $Z set _____SommetX=`$xci/valeurs_trig$X $ArgS alpha=$TrAnS beta=0` # # $Z set _____SommetY=`$xci/valeurs_trig$X $ArgS alpha=0 beta=$TrAnS` # # $Z set _____Rayon1=0.020 # # $Z set _____Grossissement=1 # # $Z set _____Zoom=0.9 # # $Z set _____ImageR=$xiirv/POLG.14 # # $m4 _____include(_____xiirv/.REFT.11.1._____U) # # # # :Fin_listG_POLG_14: # # # # # # Un carre. # v $xiirv/POLG.15 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_POLG_15: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NIterationsT=0 # # $Z set NoMbRe=5 # # $Z set AnGlED=`calcul +($pi/10)` # # $Z set AnGlEA=`calcul ($dpi*(($NoMbRe-1)/$NoMbRe))+$AnGlED` # # $Z set TrAnS=0.5 # # $Z set ArgS="$K_VIDE" # # $Z set ArgS="$ArgS"" p=1 d=$NoMbRe" # # $Z set ArgS="$ArgS"" aD=$AnGlED aA=$AnGlEA" # # $Z set ArgS="$ArgS"" rD=1 rA=1" # # $Z set ArgS="$ArgS"" gamma=$TrAnS" # # $Z set ArgS="$ArgS"" delta=0" # # $Z set ArgS="$ArgS"" lineaire=VRAI" # # $Z set _____SommetX=`$xci/valeurs_trig$X $ArgS alpha=$TrAnS beta=0` # # $Z set _____SommetY=`$xci/valeurs_trig$X $ArgS alpha=0 beta=$TrAnS` # # $Z set _____Rayon1=0.020 # # $Z set _____Grossissement=1 # # $Z set _____Zoom=0.9 # # $Z set _____ImageR=$xiirv/POLG.15 # # $m4 _____include(_____xiirv/.REFT.11.1._____U) # # # # :Fin_listG_POLG_15: # # # # # # Un pentagone. # v $xiirv/POLG.16 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_POLG_16: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NIterationsT=0 # # $Z set NoMbRe=6 # # $Z set AnGlED=`calcul 0` # # $Z set AnGlEA=`calcul ($dpi*(($NoMbRe-1)/$NoMbRe))+$AnGlED` # # $Z set TrAnS=0.5 # # $Z set ArgS="$K_VIDE" # # $Z set ArgS="$ArgS"" p=1 d=$NoMbRe" # # $Z set ArgS="$ArgS"" aD=$AnGlED aA=$AnGlEA" # # $Z set ArgS="$ArgS"" rD=1 rA=1" # # $Z set ArgS="$ArgS"" gamma=$TrAnS" # # $Z set ArgS="$ArgS"" delta=0" # # $Z set ArgS="$ArgS"" lineaire=VRAI" # # $Z set _____SommetX=`$xci/valeurs_trig$X $ArgS alpha=$TrAnS beta=0` # # $Z set _____SommetY=`$xci/valeurs_trig$X $ArgS alpha=0 beta=$TrAnS` # # $Z set _____Rayon1=0.020 # # $Z set _____Grossissement=1 # # $Z set _____Zoom=0.9 # # $Z set _____ImageR=$xiirv/POLG.16 # # $m4 _____include(_____xiirv/.REFT.11.1._____U) # # # # :Fin_listG_POLG_16: # # # # # # Un hexagone. # v $xiirv/POLG.17 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_POLG_17: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NIterationsT=0 # # $Z set NoMbRe=7 # # $Z set AnGlED=`calcul -($pi/14)` # # $Z set AnGlEA=`calcul ($dpi*(($NoMbRe-1)/$NoMbRe))+$AnGlED` # # $Z set TrAnS=0.5 # # $Z set ArgS="$K_VIDE" # # $Z set ArgS="$ArgS"" p=1 d=$NoMbRe" # # $Z set ArgS="$ArgS"" aD=$AnGlED aA=$AnGlEA" # # $Z set ArgS="$ArgS"" rD=1 rA=1" # # $Z set ArgS="$ArgS"" gamma=$TrAnS" # # $Z set ArgS="$ArgS"" delta=0" # # $Z set ArgS="$ArgS"" lineaire=VRAI" # # $Z set _____SommetX=`$xci/valeurs_trig$X $ArgS alpha=$TrAnS beta=0` # # $Z set _____SommetY=`$xci/valeurs_trig$X $ArgS alpha=0 beta=$TrAnS` # # $Z set _____Rayon1=0.020 # # $Z set _____Grossissement=1 # # $Z set _____Zoom=0.9 # # $Z set _____ImageR=$xiirv/POLG.17 # # $m4 _____include(_____xiirv/.REFT.11.1._____U) # # # # :Fin_listG_POLG_17: # # # # # # Un heptagone. # v $xiirv/POLG.18 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_POLG_18: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NIterationsT=0 # # $Z set NoMbRe=8 # # $Z set AnGlED=`calcul +($pi/8)` # # $Z set AnGlEA=`calcul ($dpi*(($NoMbRe-1)/$NoMbRe))+$AnGlED` # # $Z set TrAnS=0.5 # # $Z set ArgS="$K_VIDE" # # $Z set ArgS="$ArgS"" p=1 d=$NoMbRe" # # $Z set ArgS="$ArgS"" aD=$AnGlED aA=$AnGlEA" # # $Z set ArgS="$ArgS"" rD=1 rA=1" # # $Z set ArgS="$ArgS"" gamma=$TrAnS" # # $Z set ArgS="$ArgS"" delta=0" # # $Z set ArgS="$ArgS"" lineaire=VRAI" # # $Z set _____SommetX=`$xci/valeurs_trig$X $ArgS alpha=$TrAnS beta=0` # # $Z set _____SommetY=`$xci/valeurs_trig$X $ArgS alpha=0 beta=$TrAnS` # # $Z set _____Rayon1=0.020 # # $Z set _____Grossissement=1 # # $Z set _____Zoom=0.9 # # $Z set _____ImageR=$xiirv/POLG.18 # # $m4 _____include(_____xiirv/.REFT.11.1._____U) # # # # :Fin_listG_POLG_18: # # # # # # Un octogone. # v $xiirv/PRIM.31 p=$xiP/gris.01 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_PRIM_31: # # # # $Z Std # # # # $Z $DELETE $xTV/LISTE # # # # $Z $DELETE $xTV/COORDONNEES$COORD_X # # $Z $DELETE $xTV/COORDONNEES$COORD_Y # # $Z $DELETE $xTV/RAYONS # # # # # # $Z $xci/liste_points$X A=$xiit/PRIME.12 \ # # $Z $formatI \ # # $Z > $xTV/LISTE # # # # # # $Z $CA $xTV/LISTE | \ # # $Z $GRE '^[Xx]=' | \ # # $Z $SE -e 's/^[Xx]=//' \ # # $Z > $xTV/COORDONNEES$COORD_X # # $Z $CA $xTV/LISTE | \ # # $Z $GRE '^[Yy]=' | \ # # $Z $SE -e 's/^[Yy]=//' \ # # $Z > $xTV/COORDONNEES$COORD_Y # # $Z $CA $xTV/LISTE | \ # # $Z $GRE '^[Nn]=' | \ # # $Z $SE -e 's/^[Nn]=//' \ # # $Z > $xTV/RAYONS # # # # # # $Z set PointsX=`$WC $xTV/COORDONNEES$COORD_X` # # $Z set PointsX=$PointsX[$WC1] # # $Z set PointsY=`$WC $xTV/COORDONNEES$COORD_Y` # # $Z set PointsY=$PointsY[$WC1] # # $Z set PointsR=`$WC $xTV/RAYONS` # # $Z set PointsR=$PointsR[$WC1] # # # # $Z set PointsXY=`$xcg/MIN2.01$X n1=$PointsX n2=$PointsY` # # $Z set PointsXYr=`$xcg/MIN2.01$X n1=$PointsXY n2=$PointsR` # # # # $Z set Part0=1 # # $Z set PartN=$PointsXYr # # # # $Z set LRouge=$BLANC # # $Z set LVerte=$BLANC # # $Z set LBleue=$BLANC # # # # $Z Std # # # # $Z $xrv/particule.10$X np=1 iterations=$PointsXYr \ # # $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ # # $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ # # $Z LISTE_Z=0 \ # # $Z Ar=0.00018 \ # # $Z LISTE_RAYON=$xTV/RAYONS \ # # $Z LISTE_ROUGE=$LRouge \ # # $Z LISTE_VERTE=$LVerte \ # # $Z LISTE_BLEUE=$LBleue \ # # $Z Lz=1000 \ # # $Z zoom_automatique=VRAI \ # # $Z coordonnees_dans_0_1=VRAI \ # # $Z isoles=VRAI \ # # $Z N_au_carre=FAUX \ # # $Z RVB=VRAI \ # # $Z R=$xTV/PRIM.3. \ # # $Z $formatI # # # # $Z $CP $xTV/PRIM.3.0001$ROUGE $xiirv/PRIM.31 # # $Z ro $xiirv/PRIM.31 # # # # :Fin_listG_PRIM_31: # # # v $xiirv/PRIM.32 # Generee (sur '$LACT29') par : # # # # $Z Std # # # # $Z $DELETE $xTV/LISTE # # # # $Z $DELETE $xTV/COORDONNEES$COORD_X # # $Z $DELETE $xTV/COORDONNEES$COORD_Y # # $Z $DELETE $xTV/COORDONNEES$COORD_Z # # $Z $DELETE $xTV/NIVEAUX # # $Z $DELETE $xTV/RAYONS # # # # $Z $DELETE $xTV/COULEURS$ROUGE # # $Z $DELETE $xTV/COULEURS$VERTE # # $Z $DELETE $xTV/COULEURS$BLEUE # # # # # # $Z $xci/liste_points$X A=$xiit/PRIME.11 \ # # $Z $formatI \ # # $Z > $xTV/LISTE # # # # # # $Z $CA $xTV/LISTE | \ # # $Z $GRE '^[Nn]=' | \ # # $Z $SE -e 's/^[Nn]=//' \ # # $Z > $xTV/NIVEAUX # # $Z $CA $xTV/LISTE | \ # # $Z $GRE '^[Xx]=' | \ # # $Z $SE -e 's/^[Xx]=//' \ # # $Z > $xTV/COORDONNEES$COORD_X # # $Z $CA $xTV/LISTE | \ # # $Z $GRE '^[Yy]=' | \ # # $Z $SE -e 's/^[Yy]=//' \ # # $Z > $xTV/COORDONNEES$COORD_Y # # $Z $CA $xTV/NIVEAUX \ # # $Z > $xTV/COORDONNEES$COORD_Z # # # # # # $Z set PointsX=`$WC $xTV/COORDONNEES$COORD_X` # # $Z set PointsX=$PointsX[$WC1] # # $Z set PointsY=`$WC $xTV/COORDONNEES$COORD_Y` # # $Z set PointsY=$PointsY[$WC1] # # $Z set PointsN=`$WC $xTV/NIVEAUX` # # $Z set PointsN=$PointsN[$WC1] # # # # $Z set PointsXY=`$xcg/MIN2.01$X n1=$PointsX n2=$PointsY` # # $Z set PointsXYN=`$xcg/MIN2.01$X n1=$PointsXY n2=$PointsN` # # # # $Z set Part0=1 # # $Z set PartN=$PointsXYN # # # # $Z $xrv/PUIX.01$X ne=$PointsXYN \ # # $Z fichier=$xTV/NIVEAUX \ # # $Z exposant=0.5 \ # # $Z > $xTV/RAYONS # # # # $Z set Premiers=2 # # $Z @ NonPremiers = $Premiers + 1 # # # # $Z $xrv/TRON.01$X ne=$PointsXYN \ # # $Z fichier=$xTV/NIVEAUX \ # # $Z origine=$Premiers extremite=$NonPremiers | \ # # $Z $SE \ # # $Z -e "s/^+$Premiers"'$'"/$GRIS_8/" \ # # $Z -e "s/^+$NonPremiers"'$'"/$GRIS_6/" \ # # $Z > $xTV/COULEURS$ROUGE # # $Z $xrv/TRON.01$X ne=$PointsXYN \ # # $Z fichier=$xTV/NIVEAUX \ # # $Z origine=$Premiers extremite=$NonPremiers | \ # # $Z $SE \ # # $Z -e "s/^+$Premiers"'$'"/$GRIS_8/" \ # # $Z -e "s/^+$NonPremiers"'$'"/$GRIS_5/" \ # # $Z > $xTV/COULEURS$VERTE # # $Z $xrv/TRON.01$X ne=$PointsXYN \ # # $Z fichier=$xTV/NIVEAUX \ # # $Z origine=$Premiers extremite=$NonPremiers | \ # # $Z $SE \ # # $Z -e "s/^+$Premiers"'$'"/$GRIS_8/" \ # # $Z -e "s/^+$NonPremiers"'$'"/$GRIS_0/" \ # # $Z > $xTV/COULEURS$BLEUE # # # # $Z $xrv/particule.10$X np=1 iterations=$PointsXYN \ # # $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ # # $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ # # $Z AZ=-0.0010 \ # # $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ # # $Z Ar=0.00100 \ # # $Z LISTE_RAYON=$xTV/RAYONS \ # # $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ # # $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ # # $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ # # $Z Lz=1000 \ # # $Z minimumT=1.0 \ # # $Z maximumT=1.0 \ # # $Z zoom_automatique=VRAI \ # # $Z coordonnees_dans_0_1=VRAI \ # # $Z isoles=VRAI \ # # $Z N_au_carre=FAUX \ # # $Z RVB=VRAI \ # # $Z R=$xTV/PRIM.3. \ # # $Z $formatI # # # # $X $xci/genere$X c='$CP $xTV/PRIM.3.0001%s $xiirv/PRIM.32%s' RVB=VRAI # # $X $xci/genere$X c='ro $xiirv/PRIM.32%s' RVB=VRAI # # # v $xiirv/PRIM.33 p=$xiP/gris.01 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_PRIM_33: # # # # $Z Std # # # # $Z $DELETE $xT/LISTE # # # # $Z $DELETE $xT/COORDONNEES$COORD_X # # $Z $DELETE $xT/COORDONNEES$COORD_Y # # $Z $DELETE $xT/RAYONS # # # # # # $Z $xci/liste_points$X A=$xiit/PRIME.12 \ # # $Z $formatI \ # # $Z > $xT/LISTE # # # # # # $Z $CA $xT/LISTE | \ # # $Z $GRE '^[Xx]=' | \ # # $Z $SE -e 's/^[Xx]=//' \ # # $Z > $xT/COORDONNEES$COORD_X # # $Z $CA $xT/LISTE | \ # # $Z $GRE '^[Yy]=' | \ # # $Z $SE -e 's/^[Yy]=//' \ # # $Z > $xT/COORDONNEES$COORD_Y # # $Z $CA $xT/LISTE | \ # # $Z $GRE '^[Nn]=' | \ # # $Z $SE -e 's/^[Nn]=//' \ # # $Z > $xT/RAYONS # # # # # # $Z set PointsX=`$WC $xT/COORDONNEES$COORD_X` # # $Z set PointsX=$PointsX[$WC1] # # $Z set PointsY=`$WC $xT/COORDONNEES$COORD_Y` # # $Z set PointsY=$PointsY[$WC1] # # $Z set PointsR=`$WC $xT/RAYONS` # # $Z set PointsR=$PointsR[$WC1] # # # # $Z set PointsXY=`$xcg/MIN2.01$X n1=$PointsX n2=$PointsY` # # $Z set PointsXYr=`$xcg/MIN2.01$X n1=$PointsXY n2=$PointsR` # # # # $Z set Part0=1 # # $Z set PartN=$PointsXYr # # # # $Z set LRouge=$BLANC # # $Z set LVerte=$BLANC # # $Z set LBleue=$BLANC # # # # $Z Sdu # # # # $Z $xrv/particule.10$X np=1 iterations=$PointsXYr \ # # $Z LISTE_X=$xT/COORDONNEES$COORD_X \ # # $Z LISTE_Y=$xT/COORDONNEES$COORD_Y \ # # $Z LISTE_Z=0 \ # # $Z Ar=0.00018 \ # # $Z LISTE_RAYON=$xT/RAYONS \ # # $Z LISTE_ROUGE=$LRouge \ # # $Z LISTE_VERTE=$LVerte \ # # $Z LISTE_BLEUE=$LBleue \ # # $Z Lz=1000 \ # # $Z zoom_automatique=VRAI \ # # $Z coordonnees_dans_0_1=VRAI \ # # $Z isoles=VRAI \ # # $Z N_au_carre=FAUX \ # # $Z RVB=VRAI \ # # $Z R=$xT/PRIM.3. \ # # $Z $formatI # # # # $Z $CP $xT/PRIM.3.0001$ROUGE $xiirv/PRIM.33 # # $Z ro $xiirv/PRIM.33 # # # # :Fin_listG_PRIM_33: # # # v $xiirv/PRIM.41.0100 # Generee (sur '$LACT29') par : # # # # $Z Pal # # # # $Z set _____Part0=1 # # $Z set _____PartN=100 # # $Z set _____Rayon=1200 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0010" # # $Z set _____images=$xiirv/PRIM.41.0100 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.41._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # v $xiirv/PRIM.41.1000 # Generee (sur '$LACT29') par : # # # # $Z Pal # # # # $Z set _____Part0=1 # # $Z set _____PartN=1000 # # $Z set _____Rayon=1200 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0010" # # $Z set _____images=$xiirv/PRIM.41.1000 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.41._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # v $xiirv/PRIM.42.0100 # Generee (sur '$LACT29') par : # # # # $Z Pal # # # # $Z set _____Part0=1 # # $Z set _____PartN=100 # # $Z set _____Rayon=1000 # # $Z set _____Rho0=0.1 # # $Z set _____RhoN=0.5 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=100 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____images=$xiirv/PRIM.42.0100 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.42._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # v $xiirv/PRIM.42.1000 # Generee (sur '$LACT29') par : # # # # $Z Pal # # # # $Z set _____Part0=1 # # $Z set _____PartN=1000 # # $Z set _____Rayon=1000 # # $Z set _____Rho0=0.1 # # $Z set _____RhoN=0.5 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=100 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____images=$xiirv/PRIM.42.1000 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.42._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # v $xiirv/PRIM.43.0100 # Generee (sur '$LACT29') par : # # # # $Z Pal # # # # $Z set _____Part0=1 # # $Z set _____PartN=100 # # $Z set _____Rayon=1000 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____images=$xiirv/PRIM.43.0100 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.43._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # v $xiirv/PRIM.43.010K # Generee (sur '$LACT29') par : # # # # $Z Pal # # # # $Z set _____Part0=1 # # $Z set _____PartN=10000 # # $Z set _____Rayon=1000 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____images=$xiirv/PRIM.43.010K # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.43._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # v $xiirv/PRIM.43.160K # Generee (sur '$LACT18') par : # # # # :Debut_listG_PRIM_43_160K: # # # # $Z Pal # # # # $Z set _____Part0=1 # # $Z set _____PartN=`calculNS 400*400` # # $Z set _____Rayon=1000 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____images=$xiirv/PRIM.43.160K # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.43._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_43_160K: # # # XYmaxNe 1079 719 ; v $xiirv/PRIM.44.010K # Generee (sur '$LACT19') par : # # # # :Debut_listG_PRIM_44_010K: # # # # $Z XYmaxNe 1079 719 # # # # $Z set _____Part0=1 # # $Z set _____PartN=10000 # # $Z set _____Rayon=1000 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.2" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____images=$xiirv/PRIM.44.010K # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.43._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_44_010K: # # # # # # Image formellement identique a 'v $xiirv/PRIM.44.010K' et regeneree pour le CNRS # # ('v $Dcourrier_in/20150407103248 From.Christine.GIRARD@cnrs.fr..Fri.Apr.03.15:16:43.2015'). # v $xiirv/PRIM.51.0100 # Generee (sur '$LACT29') par : # # # # :Debut_listG_PRIM_51_0100: # # # # $Z Pal # # # # $Z set _____Part0=1 # # $Z set _____PartN=100 # # $Z set _____Rayon=1200 # # $Z set _____Palette=$xiP/cercle.D6 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0010" # # $Z set _____images=$xiirv/PRIM.51.0100 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.41._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_51_0100: # # # # # # Cette image donne le nombre de diviseurs des 100 premiers nombres entiers sur une # # spirale generalisee d'Ulam. # v $xiirv/PRIM.51.0100.1 # Generee (sur '$LACT19') par : # # # # :Debut_listG_PRIM_51_0100_1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____VisualiserSpirale=$EXIST # # $Z set _____Part0=1 # # $Z set _____PartN=100 # # $Z set _____Rayon=1600 # # $Z set _____Palette=$xiP/cercle.D6 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0010" # # $Z set _____images=$xiirv/PRIM.51.0100.1 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.41._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_51_0100_1: # # # # # # Cette image est identique a 'v $xiirv/PRIM.51.0100', mais avec visualisation de la spirale. # v $xiirv/PRIM.51.1000 # Generee (sur '$LACT29') par : # # # # :Debut_listG_PRIM_51_1000: # # # # $Z Pal # # # # $Z set _____Part0=1 # # $Z set _____PartN=`(calcul 32*32) | $SE -e "s/+//"` # # $Z set _____Rayon=1200 # # $Z set _____Palette=$xiP/cercle.D6 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0010" # # $Z set _____images=$xiirv/PRIM.51.1000 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.41._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_51_1000: # # # # # # Cette image donne le nombre de diviseurs des 1024 premiers nombres entiers sur une # # spirale generalisee d'Ulam. On notera qu'en toute logique cette image devrait s'appeler # # '$xiirv/PRIM.51.1024' mais en fait, avant le 20011212142500 elle montrait reellement # # 1000 nombres entiers. Or a cette date je suis passe a 1024 car, en effet, 1000 n'est pas # # un carre (et donc le tableau ainsi visualise avait sa derniere ligne en-haut incomplete, # # il y manquait 24 points), alors que 1024 (=32x32) en est un. Pour des raisons de # # compatibilite, en particulier avec '$xiMi', j'ai conserve son ancien nom... # v $xiirv/PRIM.51.1000.1 # Generee (sur '$LACT19') par : # # # # :Debut_listG_PRIM_51_1000_1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____VisualiserSpirale=$EXIST # # $Z set _____Part0=1 # # $Z set _____PartN=`(calcul 32*32) | $SE -e "s/+//"` # # $Z set _____Rayon=1600 # # $Z set _____Palette=$xiP/cercle.D6 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0010" # # $Z set _____images=$xiirv/PRIM.51.1000.1 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.41._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_51_1000_1: # # # # # # Cette image est identique a 'v $xiirv/PRIM.51.1000', mais avec visualisation de la spirale. # v $xiirv/PRIM.52.0100 # Generee (sur '$LACT29') par : # # # # :Debut_listG_PRIM_52_0100: # # # # $Z Pal # # # # $Z set _____Part0=1 # # $Z set _____PartN=100 # # $Z set _____Rayon=1000 # # $Z set _____Palette=$xiP/cercle.D6 # # $Z set _____Rho0=0.1 # # $Z set _____RhoN=0.5 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=100 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____images=$xiirv/PRIM.52.0100 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.42._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_52_0100: # # # # # # Cette image donne le nombre de diviseurs des 100 premiers nombres entiers sur une # # spirale d'Archimede. # v $xiirv/PRIM.52.1000 # Generee (sur '$LACT29') par : # # # # :Debut_listG_PRIM_52_1000: # # # # $Z Pal # # # # $Z set _____Part0=1 # # $Z set _____PartN=1000 # # $Z set _____Rayon=1000 # # $Z set _____Palette=$xiP/cercle.D6 # # $Z set _____Rho0=0.1 # # $Z set _____RhoN=0.5 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=100 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____images=$xiirv/PRIM.52.1000 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.42._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_52_1000: # # # # # # Cette image donne le nombre de diviseurs des 1000 premiers nombres entiers sur une # # spirale d'Archimede. # v $xiirv/PRIM.53.0100 # Generee (sur '$LACT29') par : # # # # :Debut_listG_PRIM_53_0100: # # # # $Z Pal # # # # $Z set _____Part0=1 # # $Z set _____PartN=100 # # $Z set _____Rayon=1000 # # $Z set _____Palette=$xiP/cercle.D6 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____images=$xiirv/PRIM.53.0100 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.43._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_53_0100: # # # # # # Cette image donne le nombre de diviseurs des 100 premiers nombres entiers sur une # # matrice. # v $xiirv/PRIM.53.010K # Generee (sur '$LACT29') par : # # # # :Debut_listG_PRIM_53_010K: # # # # $Z Pal # # # # $Z set _____Part0=1 # # $Z set _____PartN=10000 # # $Z set _____Rayon=1000 # # $Z set _____Palette=$xiP/cercle.D6 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____images=$xiirv/PRIM.53.010K # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.43._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_53_010K: # # # # # # Cette image donne le nombre de diviseurs des 1000 premiers nombres entiers sur une # # matrice. # v $xiirv/PRIM.61.0100 # Generee (sur '$LACT29') par : # # # # # # :Debut_listG_PRIM_61_0100: # # # # $Z Pal # # # # $Z set _____Part0=1 # # $Z set _____PartN=100 # # $Z set _____Rayon=1200 # # $Z set _____Palette=$xiP/cercle.D6 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0010" # # $Z set _____images=$xiirv/PRIM.61.0100 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.41._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.6n.1._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_61_0100: # # # # # # Cette image est une perturbation aleatoire en {X,Y} de l'image 'v $xiirv/PRIM.51.0100'. # v $xiirv/PRIM.61.1000 # Generee (sur '$LACT27') par : # # # # # # :Debut_listG_PRIM_61_1000: # # # # $Z Pal # # # # $Z set _____Part0=1 # # $Z set _____PartN=`(calcul 32*32) | $SE -e "s/+//"` # # $Z set _____Rayon=1200 # # $Z set _____Palette=$xiP/cercle.D6 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0010" # # $Z set _____images=$xiirv/PRIM.61.1000 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.41._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.6n.1._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_61_1000: # # # # # # Cette image est une perturbation aleatoire en {X,Y} de l'image 'v $xiirv/PRIM.51.1000'. # # Comme '$xiirv/PRIM.51.1000', cette image devrait s'appeler '$xiirv/PRIM.61.1024', mais # # la aussi, pour des raisons de compatibilite, l'ancien nom a ete conserve... # v $xiirv/PRIM.62.0100 # Generee (sur '$LACT27') par : # # # # # # :Debut_listG_PRIM_62_0100: # # # # $Z Pal # # # # $Z set _____Part0=1 # # $Z set _____PartN=100 # # $Z set _____Rayon=1000 # # $Z set _____Palette=$xiP/cercle.D6 # # $Z set _____Rho0=0.1 # # $Z set _____RhoN=0.5 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=100 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____images=$xiirv/PRIM.62.0100 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.42._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.6n.1._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_62_0100: # # # # # # Cette image est une perturbation aleatoire en {X,Y} de l'image 'v $xiirv/PRIM.52.0100'. # v $xiirv/PRIM.62.1000 # Generee (sur '$LACT27') par : # # # # # # :Debut_listG_PRIM_62_1000: # # # # $Z Pal # # # # $Z set _____Part0=1 # # $Z set _____PartN=1000 # # $Z set _____Rayon=1000 # # $Z set _____Palette=$xiP/cercle.D6 # # $Z set _____Rho0=0.1 # # $Z set _____RhoN=0.5 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=100 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____images=$xiirv/PRIM.62.1000 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.42._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.6n.1._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_62_1000: # # # # # # Cette image est une perturbation aleatoire en {X,Y} de l'image 'v $xiirv/PRIM.52.1000'. # v $xiirv/PRIM.63.0100 # Generee (sur '$LACT27') par : # # # # # # :Debut_listG_PRIM_63_0100: # # # # $Z Pal # # # # $Z set _____Part0=1 # # $Z set _____PartN=100 # # $Z set _____Rayon=1000 # # $Z set _____Palette=$xiP/cercle.D6 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____images=$xiirv/PRIM.63.0100 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.43._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.6n.1._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_63_0100: # # # # # # Cette image est une perturbation aleatoire en {X,Y} de l'image 'v $xiirv/PRIM.53.0100'. # v $xiirv/PRIM.63.010K # Generee (sur '$LACT27') par : # # # # # # :Debut_listG_PRIM_63_010K: # # # # $Z Pal # # # # $Z set _____Part0=1 # # $Z set _____PartN=10000 # # $Z set _____Rayon=1000 # # $Z set _____Palette=$xiP/cercle.D6 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____images=$xiirv/PRIM.63.010K # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.43._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.6n.1._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_63_010K: # # # # # # Cette image est une perturbation aleatoire en {X,Y} de l'image 'v $xiirv/PRIM.53.010K'. # v $xiirv/PRIM.73.0010 # Generee (sur '$LACT29') par : # # # # :Debut_listG_PRIM_73_0010: # # # # $Z Pal # # # # $Z set _____Part0=1 # # $Z @ _____PartN = 10 * 10 # # $Z set _____Rayon=600 # # $Z set _____Palette=$xiP/cercle.66 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____images=$xiirv/PRIM.73.0010 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.22._____U) # # $m4 _____include(_____xiirv/.PRIM.43._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_73_0010: # # # # Cette image donne le nombre de diviseurs communs des 10 premiers nombres entiers sous la # # forme d'une matrice 10x10. # v $xiirv/PRIM.73.0040 # Generee (sur '$LACT29') par : # # # # :Debut_listG_PRIM_73_0040: # # # # $Z Pal # # # # $Z set _____Part0=1 # # $Z @ _____PartN = 40 * 40 # # $Z set _____Rayon=600 # # $Z set _____Palette=$xiP/cercle.66 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____images=$xiirv/PRIM.73.0040 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.22._____U) # # $m4 _____include(_____xiirv/.PRIM.43._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_73_0040: # # # # Cette image donne le nombre de diviseurs communs des 40 premiers nombres entiers sous la # # forme d'une matrice 40x40. # v $xiirv/PRIM.73.0100 # Generee (sur '$LACT29') par : # # # # :Debut_listG_PRIM_73_0100: # # # # $Z Pal # # # # $Z set _____Part0=1 # # $Z @ _____PartN = 100 * 100 # # $Z set _____Rayon=600 # # $Z set _____Palette=$xiP/cercle.66 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.0" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____images=$xiirv/PRIM.73.0100 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.22._____U) # # $m4 _____include(_____xiirv/.PRIM.43._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_73_0100: # # # # Cette image donne le nombre de diviseurs communs des 100 premiers nombres entiers sous la # # forme d'une matrice 100x100. # v $xiirv/PRIM.73.0200 # Generee (sur '$LACT29') par : # # # # :Debut_listG_PRIM_73_0200: # # # # $Z Pal # # # # $Z set _____Part0=1 # # $Z @ _____PartN = 200 * 200 # # $Z set _____Rayon=600 # # $Z set _____Palette=$xiP/cercle.66 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=1.2" # # $Z set _____AXBXAYBY="" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____images=$xiirv/PRIM.73.0200 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.22._____U) # # $m4 _____include(_____xiirv/.PRIM.43._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_73_0200: # # # # Cette image donne le nombre de diviseurs communs des 200 premiers nombres entiers sous la # # forme d'une matrice 200x200. # v $xiirv/PRIM.81 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_PRIM_81: # # # # $Z Sdu # # # # $Z set _____XYminimum=-453 # # $Z set _____XYmaximum=+250 # # $Z SET _____Couleur=$EXIST # # $Z set _____Rayon=0.003 # # $Z set _____Zoom=1.12 # # $Z set _____ImageR=$xiirv/PRIM.81 # # # # $m4 _____include(_____xiirv/.PRIM.81.1._____U) # # $m4 _____include(_____xiirv/.PRIM.81.2._____U) # # $m4 _____include(_____xiirv/.PRIM.81.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.4._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6._____U) # # $m4 _____include(_____xiirv/.PRIM.81.7._____U) # # $m4 _____include(_____xiirv/.PRIM.81.8._____U) # # $m4 _____include(_____xiirv/.PRIM.81.9._____U) # # $m4 _____include(_____xiirv/.PRIM.81.A._____U) # # $m4 _____include(_____xiirv/.PRIM.81.B._____U) # # # # :Fin_listG_PRIM_81: # # # # # # Fonction de Liouville sous la forme d'un mouvement brownien bidimensionnel, la progression # # etant visualisee suivant la palette {magenta,red,yellow,gree,cyan}. Il y a au total 100000 # # nombres entiers (de 2 a 100001). Les coordonnees 'X' et 'Y' varient respectivement # # dans [-1,+240] et [-453,+0]. # v $xiirv/PRIM.81.0 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_PRIM_81_0: # # # # $Z Sdu # # # # $Z set _____Multiplicite=FAUX # # $Z SET _____Couleur=$EXIST # # $Z set _____Rayon=0.003 # # $Z set _____Zoom=0.95 # # $Z set _____ImageR=$xiirv/PRIM.81.0 # # # # $m4 _____include(_____xiirv/.PRIM.81.1._____U) # # $m4 _____include(_____xiirv/.PRIM.81.2._____U) # # $m4 _____include(_____xiirv/.PRIM.81.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.4._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6._____U) # # $m4 _____include(_____xiirv/.PRIM.81.7._____U) # # $m4 _____include(_____xiirv/.PRIM.81.8._____U) # # $m4 _____include(_____xiirv/.PRIM.81.9._____U) # # $m4 _____include(_____xiirv/.PRIM.81.A._____U) # # $m4 _____include(_____xiirv/.PRIM.81.B._____U) # # # # :Fin_listG_PRIM_81_0: # # # # # # Fonction de Liouville sous la forme d'un mouvement brownien bidimensionnel, la progression # # etant visualisee suivant la palette {magenta,red,yellow,gree,cyan}. Il y a au total 100000 # # nombres entiers (de 2 a 100001). Les coordonnees 'X' et 'Y' varient respectivement # # dans [-1104,+45] et [-14,+436]. Mais contrairement a 'v $xiirv/PRIM.81' chaque diviseur # # premier n'est compte qu'une seule fois et non pas autant de fois qu'il apparait... # v $xiirv/PRIM.81.1 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_PRIM_81_1: # # # # $Z Sdu # # # # $Z set _____XYminimum=-453 # # $Z set _____XYmaximum=+250 # # $Z SET _____Couleur=$EXIST # # $Z set _____Rayon=0.003 # # $Z set _____Zoom=1.12 # # $Z set _____ImageR=$xiirv/PRIM.81.1 # # # # $m4 _____include(_____xiirv/.PRIM.81.1._____U) # # $m4 _____include(_____xiirv/.PRIM.81.2._____U) # # # # $Z SET _____NoLiouville=$xTV/RANDOM # # # # $Z $xci/valeurs_alea$X premiere=$PremierNombre \ # # $Z derniere=$DernierNombre \ # # $Z graine=1947 \ # # $Z inf=-1 \ # # $Z sup=+1 | \ # # $Z $xrv/passe_ban.01$X ne=0 \ # # $Z fichier== \ # # $Z seuil=0 \ # # $Z valeur_marquage_inferieure=-1 \ # # $Z valeur_marquage_superieure=+1 \ # # $Z > $_____NoLiouville # # # # $m4 _____include(_____xiirv/.PRIM.81.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.4._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6._____U) # # $m4 _____include(_____xiirv/.PRIM.81.7._____U) # # $m4 _____include(_____xiirv/.PRIM.81.8._____U) # # $m4 _____include(_____xiirv/.PRIM.81.9._____U) # # $m4 _____include(_____xiirv/.PRIM.81.A._____U) # # $m4 _____include(_____xiirv/.PRIM.81.B._____U) # # # # $Z $DELETE $_____NoLiouville # # # # :Fin_listG_PRIM_81_1: # # # # # # Mouvement brownien bidimensionnel avec des deplacements du type {-1,+1} (non nuls), la # # progression etant visualisee suivant la palette {magenta,red,yellow,gree,cyan}. Il y a au # # total 100000/2=50000 points. Les coordonnees 'X' et 'Y' varient respectivement dans # # [-180,+84] et [-282,+119]. Cette image destinee a etre comparee a 'v $xiirv/PRIM.81'... # v $xiirv/PRIM.81.2 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_PRIM_81_2: # # # # $Z Sdu # # # # $Z set _____XYminimum=-453 # # $Z set _____XYmaximum=+250 # # $Z SET _____Couleur=$EXIST # # $Z set _____Rayon=0.003 # # $Z set _____Zoom=1.12 # # $Z set _____ImageR=$xiirv/PRIM.81.2 # # # # $m4 _____include(_____xiirv/.PRIM.81.1._____U) # # $m4 _____include(_____xiirv/.PRIM.81.2._____U) # # # # $Z SET _____NoLiouville=$xTV/VERHULST # # # # $Z $xci/valeurs_chao$X premiere=$PremierNombre \ # # $Z derniere=$DernierNombre | \ # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier== \ # # $Z minimum=-1 \ # # $Z maximum=+1 | \ # # $Z $xrv/passe_ban.01$X ne=0 \ # # $Z fichier== \ # # $Z seuil=0 \ # # $Z valeur_marquage_inferieure=-1 \ # # $Z valeur_marquage_superieure=+1 \ # # $Z > $_____NoLiouville # # # # $m4 _____include(_____xiirv/.PRIM.81.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.4._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6._____U) # # $m4 _____include(_____xiirv/.PRIM.81.7._____U) # # $m4 _____include(_____xiirv/.PRIM.81.8._____U) # # $m4 _____include(_____xiirv/.PRIM.81.9._____U) # # $m4 _____include(_____xiirv/.PRIM.81.A._____U) # # $m4 _____include(_____xiirv/.PRIM.81.B._____U) # # # # $Z $DELETE $_____NoLiouville # # # # :Fin_listG_PRIM_81_2: # # # # # # Dynamique de Verhulst bidimensionnelle avec des deplacements du type {-1,+1} (non nuls), la # # progression etant visualisee suivant la palette {magenta,red,yellow,gree,cyan}. Il y a au # # total 100000/2=50000 points. Les coordonnees 'X' et 'Y' varient respectivement dans # # [-95,+223] et [-75,+196]. Cette image destinee a etre comparee a 'v $xiirv/PRIM.81'... # v $xiirv/PRIM.82 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_PRIM_82: # # # # $Z Std # # # # $Z set _____XYminimum=-48 # # $Z set _____XYmaximum=+26 # # $Z set _____NPoints=500 # # $Z SET _____Couleur=$EXIST # # $Z set _____GRayon=2 # # $Z set _____Rayon=0.004 # # $Z set _____Zoom=0.95 # # $Z set _____ImageR=$xiirv/PRIM.82 # # # # $m4 _____include(_____xiirv/.PRIM.81.1._____U) # # $m4 _____include(_____xiirv/.PRIM.81.2._____U) # # $m4 _____include(_____xiirv/.PRIM.81.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.4._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6._____U) # # $m4 _____include(_____xiirv/.PRIM.81.7._____U) # # $m4 _____include(_____xiirv/.PRIM.81.8._____U) # # $m4 _____include(_____xiirv/.PRIM.81.9._____U) # # $m4 _____include(_____xiirv/.PRIM.81.A._____U) # # $m4 _____include(_____xiirv/.PRIM.81.B._____U) # # # # :Fin_listG_PRIM_82: # # # # # # Fonction de Liouville sous la forme d'un mouvement brownien bidimensionnel, la progression # # etant visualisee suivant la palette {magenta,red,yellow,gree,cyan}. Il y a au total 1000 # # nombres entiers (de 2 a 1001). Les coordonnees 'X' et 'Y' varient respectivement # # dans [-1,+24] et [-38,+0]. # v $xiirv/PRIM.82.0 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_PRIM_82_0: # # # # $Z Std # # # # $Z set _____Multiplicite=FAUX # # $Z set _____NPoints=500 # # $Z SET _____Couleur=$EXIST # # $Z set _____GRayon=2 # # $Z set _____Rayon=0.004 # # $Z set _____Zoom=0.90 # # $Z set _____ImageR=$xiirv/PRIM.82.0 # # # # $m4 _____include(_____xiirv/.PRIM.81.1._____U) # # $m4 _____include(_____xiirv/.PRIM.81.2._____U) # # $m4 _____include(_____xiirv/.PRIM.81.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.4._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6._____U) # # $m4 _____include(_____xiirv/.PRIM.81.7._____U) # # $m4 _____include(_____xiirv/.PRIM.81.8._____U) # # $m4 _____include(_____xiirv/.PRIM.81.9._____U) # # $m4 _____include(_____xiirv/.PRIM.81.A._____U) # # $m4 _____include(_____xiirv/.PRIM.81.B._____U) # # # # :Fin_listG_PRIM_82_0: # # # # # # Fonction de Liouville sous la forme d'un mouvement brownien bidimensionnel, la progression # # etant visualisee suivant la palette {magenta,red,yellow,gree,cyan}. Il y a au total 1000 # # nombres entiers (de 2 a 1001). Les coordonnees 'X' et 'Y' varient respectivement # # dans [-2,+45] et [-14,+24]. Mais contrairement a 'v $xiirv/PRIM.82' chaque diviseur # # premier n'est compte qu'une seule fois et non pas autant de fois qu'il apparait... # v $xiirv/PRIM.82.1 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_PRIM_82_1: # # # # $Z Std # # # # $Z set _____XYminimum=-48 # # $Z set _____XYmaximum=+26 # # $Z set _____NPoints=500 # # $Z SET _____Couleur=$EXIST # # $Z set _____GRayon=2 # # $Z set _____Rayon=0.004 # # $Z set _____Zoom=0.95 # # $Z set _____ImageR=$xiirv/PRIM.82.1 # # # # $m4 _____include(_____xiirv/.PRIM.81.1._____U) # # $m4 _____include(_____xiirv/.PRIM.81.2._____U) # # # # $Z SET _____NoLiouville=$xTV/RANDOM # # # # $Z $xci/valeurs_alea$X premiere=$PremierNombre \ # # $Z derniere=$DernierNombre \ # # $Z graine=1947 \ # # $Z inf=-1 \ # # $Z sup=+1 | \ # # $Z $xrv/passe_ban.01$X ne=0 \ # # $Z fichier== \ # # $Z seuil=0 \ # # $Z valeur_marquage_inferieure=-1 \ # # $Z valeur_marquage_superieure=+1 \ # # $Z > $_____NoLiouville # # # # $m4 _____include(_____xiirv/.PRIM.81.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.4._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6._____U) # # $m4 _____include(_____xiirv/.PRIM.81.7._____U) # # $m4 _____include(_____xiirv/.PRIM.81.8._____U) # # $m4 _____include(_____xiirv/.PRIM.81.9._____U) # # $m4 _____include(_____xiirv/.PRIM.81.A._____U) # # $m4 _____include(_____xiirv/.PRIM.81.B._____U) # # # # $Z $DELETE $_____NoLiouville # # # # :Fin_listG_PRIM_82_1: # # # # # # Mouvement brownien bidimensionnel avec des deplacements du type {-1,+1} (non nuls), la # # progression etant visualisee suivant la palette {magenta,red,yellow,gree,cyan}. Il y a au # # total 1000/2=500 points. Les coordonnees 'X' et 'Y' varient respectivement dans # # [-4,+17] et [-5,+28]. Cette image destinee a etre comparee a 'v $xiirv/PRIM.82'... # v $xiirv/PRIM.82.2 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_PRIM_82_2: # # # # $Z Std # # # # $Z set _____XYminimum=-48 # # $Z set _____XYmaximum=+26 # # $Z set _____NPoints=500 # # $Z SET _____Couleur=$EXIST # # $Z set _____GRayon=2 # # $Z set _____Rayon=0.004 # # $Z set _____Zoom=0.95 # # $Z set _____ImageR=$xiirv/PRIM.82.2 # # # # $m4 _____include(_____xiirv/.PRIM.81.1._____U) # # $m4 _____include(_____xiirv/.PRIM.81.2._____U) # # # # $Z SET _____NoLiouville=$xTV/VERHULST # # # # $Z $xci/valeurs_chao$X premiere=$PremierNombre \ # # $Z derniere=$DernierNombre | \ # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier== \ # # $Z minimum=-1 \ # # $Z maximum=+1 | \ # # $Z $xrv/passe_ban.01$X ne=0 \ # # $Z fichier== \ # # $Z seuil=0 \ # # $Z valeur_marquage_inferieure=-1 \ # # $Z valeur_marquage_superieure=+1 \ # # $Z > $_____NoLiouville # # # # $m4 _____include(_____xiirv/.PRIM.81.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.4._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6._____U) # # $m4 _____include(_____xiirv/.PRIM.81.7._____U) # # $m4 _____include(_____xiirv/.PRIM.81.8._____U) # # $m4 _____include(_____xiirv/.PRIM.81.9._____U) # # $m4 _____include(_____xiirv/.PRIM.81.A._____U) # # $m4 _____include(_____xiirv/.PRIM.81.B._____U) # # # # $Z $DELETE $_____NoLiouville # # # # :Fin_listG_PRIM_82_2: # # # # # # Dynamique de Verhulst bidimensionnel avec des deplacements du type {-1,+1} (non nuls), la # # progression etant visualisee suivant la palette {magenta,red,yellow,gree,cyan}. Il y a au # # total 1000/2=500 points. Les coordonnees 'X' et 'Y' varient respectivement dans # # [-12,+19] et [-48,+7]. Cette image destinee a etre comparee a 'v $xiirv/PRIM.82'... # v $xiirv/PRIM.91 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_PRIM_91: # # # # $Z Sdu # # # # $Z SET _____Couleur=$EXIST # # $Z set _____TModulo=10 # # $Z set _____Rayon=0.003 # # $Z set _____Zoom=1.12 # # $Z set _____ImageR=$xiirv/PRIM.91 # # # # $m4 _____include(_____xiirv/.PRIM.81.1._____U) # # $m4 _____include(_____xiirv/.PRIM.81.2._____U) # # $m4 _____include(_____xiirv/.PRIM.81.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.4._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6._____U) # # $m4 _____include(_____xiirv/.PRIM.81.7._____U) # # $m4 _____include(_____xiirv/.PRIM.81.8._____U) # # $m4 _____include(_____xiirv/.PRIM.81.9._____U) # # $m4 _____include(_____xiirv/.PRIM.81.A._____U) # # $m4 _____include(_____xiirv/.PRIM.81.B._____U) # # # # :Fin_listG_PRIM_91: # # # # # # Fonction de Liouville sous la forme d'un mouvement brownien bidimensionnel, la progression # # etant visualisee suivant la palette {magenta,red,yellow,gree,cyan} modulo. Il y a au total # # 100000 nombres entiers (de 2 a 100001). Les coordonnees 'X' et 'Y' varient respectivement # # dans [-1,+240] et [-453,+0]. # v $xiirv/PRIM.A1 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_PRIM_A1: # # # # $Z Sdu # # # # $Z set _____XYminimum=-607 # # $Z set _____XYmaximum=+551 # # $Z SET _____Couleur=$EXIST # # $Z set _____Rayon=0.003 # # $Z set _____Zoom=0.95 # # $Z set _____ImageR=$xiirv/PRIM.A1 # # # # $m4 _____include(_____xiirv/.PRIM.81.1._____U) # # $m4 _____include(_____xiirv/.PRIM.81.2.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.4.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.7.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.8.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.9._____U) # # $m4 _____include(_____xiirv/.PRIM.81.A.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.B._____U) # # # # :Fin_listG_PRIM_A1: # # # # # # Fonction de Liouville sous la forme d'un mouvement brownien tridimensionnel, la progression # # etant visualisee suivant la palette {magenta,red,yellow,gree,cyan}. Il y a au total 150000 # # nombres entiers (de 2 a 150001). Les coordonnees 'X', Y' et 'Z' varient respectivement # # dans [-607,+0], [-1,+240] et [-41,+155]. # v $xiirv/PRIM.A1.0 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_PRIM_A1_0: # # # # $Z Sdu # # # # $Z set _____Multiplicite=FAUX # # $Z SET _____Couleur=$EXIST # # $Z set _____Rayon=0.003 # # $Z set _____Zoom=0.92 # # $Z set _____ImageR=$xiirv/PRIM.A1.0 # # # # $m4 _____include(_____xiirv/.PRIM.81.1._____U) # # $m4 _____include(_____xiirv/.PRIM.81.2.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.4.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.7.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.8.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.9._____U) # # $m4 _____include(_____xiirv/.PRIM.81.A.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.B._____U) # # # # :Fin_listG_PRIM_A1_0: # # # # # # Fonction de Liouville sous la forme d'un mouvement brownien tridimensionnel, la progression # # etant visualisee suivant la palette {magenta,red,yellow,gree,cyan}. Il y a au total 150000 # # nombres entiers (de 2 a 150001). Les coordonnees 'X', Y' et 'Z' varient respectivement # # dans [-62,+229], [-945,+17] et [-78,+155]. Mais contrairement a 'v $xiirv/PRIM.A1' chaque # # diviseur premier n'est compte qu'une seule fois et non pas autant de fois qu'il apparait... # v $xiirv/PRIM.A1.1 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_PRIM_A1_1: # # # # $Z Sdu # # # # $Z set _____XYminimum=-607 # # $Z set _____XYmaximum=+551 # # $Z SET _____Couleur=$EXIST # # $Z set _____Rayon=0.003 # # $Z set _____Zoom=0.95 # # $Z set _____ImageR=$xiirv/PRIM.A1.1 # # $m4 _____include(_____xiirv/.PRIM.81.1._____U) # # $m4 _____include(_____xiirv/.PRIM.81.2.3._____U) # # # # $Z SET _____NoLiouville=$xTV/RANDOM # # # # $Z $xci/valeurs_alea$X premiere=$PremierNombre \ # # $Z derniere=$DernierNombre \ # # $Z graine=1947 \ # # $Z inf=-1 \ # # $Z sup=+1 | \ # # $Z $xrv/passe_ban.01$X ne=0 \ # # $Z fichier== \ # # $Z seuil=0 \ # # $Z valeur_marquage_inferieure=-1 \ # # $Z valeur_marquage_superieure=+1 \ # # $Z > $_____NoLiouville # # # # $m4 _____include(_____xiirv/.PRIM.81.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.4.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.7.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.8.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.9._____U) # # $m4 _____include(_____xiirv/.PRIM.81.A.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.B._____U) # # # # $Z $DELETE $_____NoLiouville # # # # :Fin_listG_PRIM_A1_1: # # # # # # Mouvement brownien tridimensionnel avec des deplacements du type {-1,+1} (non nuls), la # # progression etant visualisee suivant la palette {magenta,red,yellow,gree,cyan}. Il y a au # # total 150000/3=50000 points. Les coordonnees 'X', Y' et 'Z' varient respectivement dans # # [-455,+26], [-162,+94] et [-4,+217]. Cette image destinee a etre comparee a # # 'v $xiirv/PRIM.A1'... # v $xiirv/PRIM.A1.2 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_PRIM_A1_2: # # # # $Z Sdu # # # # $Z set _____XYminimum=-607 # # $Z set _____XYmaximum=+551 # # $Z SET _____Couleur=$EXIST # # $Z set _____Rayon=0.003 # # $Z set _____Zoom=0.95 # # $Z set _____ImageR=$xiirv/PRIM.A1.2 # # $m4 _____include(_____xiirv/.PRIM.81.1._____U) # # $m4 _____include(_____xiirv/.PRIM.81.2.3._____U) # # # # $Z SET _____NoLiouville=$xTV/VERHULST # # # # $Z $xci/valeurs_chao$X premiere=$PremierNombre \ # # $Z derniere=$DernierNombre | \ # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier== \ # # $Z minimum=-1 \ # # $Z maximum=+1 | \ # # $Z $xrv/passe_ban.01$X ne=0 \ # # $Z fichier== \ # # $Z seuil=0 \ # # $Z valeur_marquage_inferieure=-1 \ # # $Z valeur_marquage_superieure=+1 \ # # $Z > $_____NoLiouville # # # # $m4 _____include(_____xiirv/.PRIM.81.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.4.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.7.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.8.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.9._____U) # # $m4 _____include(_____xiirv/.PRIM.81.A.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.B._____U) # # # # $Z $DELETE $_____NoLiouville # # # # :Fin_listG_PRIM_A1_2: # # # # # # Dynamique de Verhulst tridimensionnel avec des deplacements du type {-1,+1} (non nuls), la # # progression etant visualisee suivant la palette {magenta,red,yellow,gree,cyan}. Il y a au # # total 150000/3=50000 points. Les coordonnees 'X', Y' et 'Z' varient respectivement dans # # [-58,+551], [-98,+178] et [-298,+28]. Cette image destinee a etre comparee a # # 'v $xiirv/PRIM.A1'... # v $xiirv/PRIM.A1.3 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_PRIM_A1_3: # # # # $Z Sdu # # # # $Z set _____NPoints=150000 # # $Z set _____XYminimum=-607 # # $Z set _____XYmaximum=+551 # # $Z SET _____Couleur=$EXIST # # $Z set _____Rayon=0.003 # # $Z set _____Zoom=0.95 # # $Z set _____ImageR=$xiirv/PRIM.A1.3 # # $m4 _____include(_____xiirv/.PRIM.81.1._____U) # # $m4 _____include(_____xiirv/.PRIM.81.2.3._____U) # # # # $Z SET _____NoLiouville=$xTV/VERHULST # # # # $Z $xci/valeurs_chao$X premiere=$PremierNombre \ # # $Z derniere=$DernierNombre \ # # $Z X0=0.5003 | \ # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier== \ # # $Z minimum=-1 \ # # $Z maximum=+1 | \ # # $Z $xrv/passe_ban.01$X ne=0 \ # # $Z fichier== \ # # $Z seuil=0 \ # # $Z valeur_marquage_inferieure=-1 \ # # $Z valeur_marquage_superieure=+1 \ # # $Z > $_____NoLiouville # # # # $m4 _____include(_____xiirv/.PRIM.81.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.4.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.7.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.8.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.9._____U) # # # # $Z execRVB $xci/init$X \ # # $Z n=$BLANC \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____Fond="fond=VRAI F=$xTV/FOND" # # # # $m4 _____include(_____xiirv/.PRIM.81.A.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.B._____U) # # # # $Z $DELETE $_____NoLiouville # # # # :Fin_listG_PRIM_A1_3: # # # # # # Image "fonctionnellement" identique a 'v $xiirv/PRIM.A1.2' mais avec fond BLANC. Mais # # evidemment les deux images different car de nombreuses annees les separent et le # # dynamique 'v $xci/valeurs_chao$K' etant fortement sensible aux conditions initiales, # # les erreurs d'arrondi ont fait "leur oeuvre"... # # # # Cette image fait suite a 'v $Dcourrier_in/20170120092458 ppajot@sophiapublications.fr'. # v $xiirv/PRIM.B1.0 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_PRIM_B1_0: # # # # $Z Sdu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set _____Multiplicite=FAUX # # $Z set _____XYminimum=-2154 # # $Z set _____XYmaximum=+525 # # $Z SET _____Couleur=$EXIST # # $Z set _____CentrerCoord=FAUX # # $Z set _____MarquerCentre=VRAI # # $Z set _____Zoom=2.80 # # # # $Z set _____NPoints=100000 # # $Z set _____ImageR=$xTV/.PRIM.B1.100000 # # # # $m4 _____include(_____xiirv/.PRIM.81.1._____U) # # $m4 _____include(_____xiirv/.PRIM.81.2._____U) # # $m4 _____include(_____xiirv/.PRIM.81.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.4._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6._____U) # # $m4 _____include(_____xiirv/.PRIM.81.7._____U) # # $m4 _____include(_____xiirv/.PRIM.81.8._____U) # # $m4 _____include(_____xiirv/.PRIM.81.9._____U) # # $m4 _____include(_____xiirv/.PRIM.81.A._____U) # # $m4 _____include(_____xiirv/.PRIM.81.B._____U) # # # # $Z $DELETE $xTV/[A-Z]* # # # # $Z set _____NPoints=200000 # # $Z set _____ImageR=$xTV/.PRIM.B1.200000 # # # # $m4 _____include(_____xiirv/.PRIM.81.1._____U) # # $m4 _____include(_____xiirv/.PRIM.81.2._____U) # # $m4 _____include(_____xiirv/.PRIM.81.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.4._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6._____U) # # $m4 _____include(_____xiirv/.PRIM.81.7._____U) # # $m4 _____include(_____xiirv/.PRIM.81.8._____U) # # $m4 _____include(_____xiirv/.PRIM.81.9._____U) # # $m4 _____include(_____xiirv/.PRIM.81.A._____U) # # $m4 _____include(_____xiirv/.PRIM.81.B._____U) # # # # $Z $DELETE $xTV/[A-Z]* # # # # $Z set _____NPoints=400000 # # $Z set _____ImageR=$xTV/.PRIM.B1.400000 # # # # $m4 _____include(_____xiirv/.PRIM.81.1._____U) # # $m4 _____include(_____xiirv/.PRIM.81.2._____U) # # $m4 _____include(_____xiirv/.PRIM.81.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.4._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6._____U) # # $m4 _____include(_____xiirv/.PRIM.81.7._____U) # # $m4 _____include(_____xiirv/.PRIM.81.8._____U) # # $m4 _____include(_____xiirv/.PRIM.81.9._____U) # # $m4 _____include(_____xiirv/.PRIM.81.A._____U) # # $m4 _____include(_____xiirv/.PRIM.81.B._____U) # # # # $Z $DELETE $xTV/[A-Z]* # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/.PRIM.B1.100000 \ # # $Z R=$xTV/.PRIM.B1.0$ROUGE \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/.PRIM.B1.200000 \ # # $Z R=$xTV/.PRIM.B1.0$VERTE \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/.PRIM.B1.400000 \ # # $Z R=$xTV/.PRIM.B1.0$BLEUE \ # # $Z $formatI # # # # $Z execRVB "$xci/scroll$X \ # # $Z A=$xTV/.PRIM.B1.0%s \ # # $Z trX=-0.04 \ # # $Z trY=-0.12 \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z $formatI \ # # $Z mode=6 \ # # $Z R=$xiirv/PRIM.B1.0%s \ # # $Z $formatR_Pal" # # # # :Fin_listG_PRIM_B1_0: # # # # # # Fonctions de Liouville sous la forme d'un mouvement brownien bidimensionnel, la progression # # etant visualisee suivant la palette {magenta,red,yellow,gree,cyan}. Mais contrairement a # # 'v $xiirv/PRIM.81' chaque diviseur premier n'est compte qu'une seule fois et non pas # # autant de fois qu'il apparait. Les coordonnees {X,Y} varient respectivement dans # # {[-1469,+45]x[-14,+512],[-1860,+45]x[-14,+525],[-2154,+45]x[-105,+525]} pour 100000, # # 200000 et 400000 points... On superpose trois Fonctions de Liouville dites "speciales" # # pour voir si la spirale qui semble d'amorcer se poursuit lorsque le nombre de points # # augmente... # v $xiirv/PRIM.C1.0 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_PRIM_C1_0: # # # # $Z Sdu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set _____Multiplicite=FAUX # # $Z set _____XYminimum=-2266 # # $Z set _____XYmaximum=+525 # # $Z SET _____Couleur=$EXIST # # $Z set _____CentrerCoord=FAUX # # $Z set _____MarquerCentre=VRAI # # $Z set _____Zoom=2.00 # # # # $Z set _____NPoints=200000 # # $Z set _____ImageR=$xTV/.PRIM.C1.100000 # # # # $m4 _____include(_____xiirv/.PRIM.81.1._____U) # # $m4 _____include(_____xiirv/.PRIM.81.2._____U) # # $m4 _____include(_____xiirv/.PRIM.81.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.4._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6._____U) # # $m4 _____include(_____xiirv/.PRIM.81.7._____U) # # $m4 _____include(_____xiirv/.PRIM.81.8._____U) # # $m4 _____include(_____xiirv/.PRIM.81.9._____U) # # $m4 _____include(_____xiirv/.PRIM.81.A._____U) # # $m4 _____include(_____xiirv/.PRIM.81.B._____U) # # # # $Z $DELETE $xTV/[A-Z]* # # # # $Z set _____NPoints=400000 # # $Z set _____ImageR=$xTV/.PRIM.C1.200000 # # # # $m4 _____include(_____xiirv/.PRIM.81.1._____U) # # $m4 _____include(_____xiirv/.PRIM.81.2._____U) # # $m4 _____include(_____xiirv/.PRIM.81.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.4._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6._____U) # # $m4 _____include(_____xiirv/.PRIM.81.7._____U) # # $m4 _____include(_____xiirv/.PRIM.81.8._____U) # # $m4 _____include(_____xiirv/.PRIM.81.9._____U) # # $m4 _____include(_____xiirv/.PRIM.81.A._____U) # # $m4 _____include(_____xiirv/.PRIM.81.B._____U) # # # # $Z $DELETE $xTV/[A-Z]* # # # # $Z set _____NPoints=800000 # # $Z set _____ImageR=$xTV/.PRIM.C1.400000 # # # # $m4 _____include(_____xiirv/.PRIM.81.1._____U) # # $m4 _____include(_____xiirv/.PRIM.81.2._____U) # # $m4 _____include(_____xiirv/.PRIM.81.3._____U) # # $m4 _____include(_____xiirv/.PRIM.81.4._____U) # # $m4 _____include(_____xiirv/.PRIM.81.5._____U) # # $m4 _____include(_____xiirv/.PRIM.81.6._____U) # # $m4 _____include(_____xiirv/.PRIM.81.7._____U) # # $m4 _____include(_____xiirv/.PRIM.81.8._____U) # # $m4 _____include(_____xiirv/.PRIM.81.9._____U) # # $m4 _____include(_____xiirv/.PRIM.81.A._____U) # # $m4 _____include(_____xiirv/.PRIM.81.B._____U) # # # # $Z $DELETE $xTV/[A-Z]* # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/.PRIM.C1.100000 \ # # $Z R=$xTV/.PRIM.C1.0$ROUGE \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/.PRIM.C1.200000 \ # # $Z R=$xTV/.PRIM.C1.0$VERTE \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/.PRIM.C1.400000 \ # # $Z R=$xTV/.PRIM.C1.0$BLEUE \ # # $Z $formatI # # # # $Z execRVB "$xci/scroll$X \ # # $Z A=$xTV/.PRIM.C1.0%s \ # # $Z trX=-0.05 \ # # $Z trY=-0.01 \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z $formatI \ # # $Z mode=6 \ # # $Z R=$xiirv/PRIM.C1.0%s \ # # $Z $formatR_Pal" # # # # :Fin_listG_PRIM_C1_0: # # # # # # Fonctions de Liouville sous la forme d'un mouvement brownien bidimensionnel, la progression # # etant visualisee suivant la palette {magenta,red,yellow,gree,cyan}. Mais contrairement a # # 'v $xiirv/PRIM.81' chaque diviseur premier n'est compte qu'une seule fois et non pas # # autant de fois qu'il apparait. Les coordonnees {X,Y} varient respectivement dans # # {[-1860,+45]x[-14,+525],[-2154,+45]x[-105,+525],[-2266,+45]x[-685,+525]} pour 200000, # # 400000 et 800000 points... On superpose trois Fonctions de Liouville dites "speciales" # # pour voir si la spirale qui semble d'amorcer se poursuit lorsque le nombre de points # # augmente... # v $xiirv/PRIM.D1$M v $xiirv/PRIM.D2$M # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_PRIM_D1_D2_M: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z Suh # # # # $Z $xrk/NPremiers.01$X \ # # $Z R=$xTV/PRIM.11 \ # # $Z $formatI # # $Z $xci/format.01$X \ # # $Z A=$xTV/PRIM.11 \ # # $Z $formatI \ # # $Z mode=0 \ # # $Z R=$xTV/PRIM.12 \ # # $Z $formatR_Sdu # # $Z $xci/format.01$X \ # # $Z A=$xTV/PRIM.11 \ # # $Z $formatI \ # # $Z mode=0 \ # # $Z R=$xTV/PRIM.16 \ # # $Z $formatR_Sdu # # # # $Z Sdu # # # # $Z $xci/acces$X \ # # $Z A=$xTV/PRIM.12 \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/PRIM.13 \ # # $Z rNOIR=$NOIR \ # # $Z rBLANC=$GRIS_4 \ # # $Z $formatI # # $Z $xci/passe_bande$X \ # # $Z A=$xTV/PRIM.12 \ # # $Z inf=1 \ # # $Z sup=2 \ # # $Z ninf=$NOIR \ # # $Z nsup=$NOIR \ # # $Z fnint=VRAI \ # # $Z nint=$BLANC \ # # $Z R=$xTV/PRIM.14 \ # # $Z $formatI # # $Z $xci/cache$X \ # # $Z A=$xTV/PRIM.13 \ # # $Z M=$xTV/PRIM.14 \ # # $Z R=$xTV/PRIM.15 \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/PRIM.16 \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/PRIM.17 \ # # $Z o=0 \ # # $Z e=0.1 \ # # $Z $formatI # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/PRIM.15 \ # # $Z p=$xiP/trou_noir.D5 \ # # $Z R=$xTV/PRIM.15 \ # # $Z $formatI # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/PRIM.17 \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$xTV/PRIM.15%s \ # # $Z renormaliser=FAUX \ # # $Z perspective=0.4 \ # # $Z Ty=0.95 \ # # $Z R=$xiirv/PRIM.D1$M%s \ # # $Z $formatI # # $Z $xci/montagne.01$X \ # # $Z A=$xTV/PRIM.17 \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$BLANC \ # # $Z renormaliser=FAUX \ # # $Z perspective=0.4 \ # # $Z Ty=0.95 \ # # $Z ZBuffer=VRAI \ # # $Z Zbuffer_standard=VRAI \ # # $Z Z=$xTV/PRIM.19 \ # # $Z R=$xTV/PRIM.18 \ # # $Z $formatI # # $Z $xci/complement$X \ # # $Z A=$xTV/PRIM.19 \ # # $Z R=$xTV/PRIM.19 \ # # $Z $formatI # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/PRIM.19 \ # # $Z p=$xiP/gris.01 \ # # $Z R=$xTV/PRIM.19 \ # # $Z $formatI # # $Z $xci/vitre.53$Z \ # # $Z $xiirv/PRIM.D1$M \ # # $Z $xTV/PRIM.19 \ # # $Z $xiirv/PRIM.D2$M # # # # :Fin_listG_PRIM_D1_D2_M: # # # # # # Ces images presentent la spirale d'Ulam generalisee de facon tridimensionnelle (les nombres # # premiers et le nombre 1 apparaissant en blanc)... # v $xiirv/PRIM.E1 p=$xiP/premiers.E1 v $xiirv/PRIM.E1.30 p=$xiP/lignes.11 v $xiirv/PRIM.E1.50 p=$xiP/lignes.11 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_PRIM_E1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z XYmaxNe 8 8 # # # # $Z $xrk/NPremiers.01$X \ # # $Z R=$xTV/PRIM.11 \ # # $Z $formatI # # $Z $xci/format.01$X \ # # $Z A=$xTV/PRIM.11 \ # # $Z $formatI \ # # $Z mode=0 \ # # $Z R=$xTV/PRIM.12 \ # # $Z XmaxR=899 YmaxR=899 # # # # $Z XYmaxNe 899 899 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/PRIM.12 \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/PRIM.13 \ # # $Z $formatI # # # # $Z $xci/jeu_vie.01$X \ # # $Z A=$xTV/PRIM.13 \ # # $Z nombre_generations=30 \ # # $Z R=$xiirv/PRIM.E1.30 \ # # $Z $formatI # # $Z $xci/format.01$X \ # # $Z A=$xiirv/PRIM.E1.30 \ # # $Z $formatI \ # # $Z mode=1 \ # # $Z R=$xiirv/PRIM.E1.30 \ # # $Z $formatR_Sdu # # # # $Z $xci/jeu_vie.01$X \ # # $Z A=$xTV/PRIM.13 \ # # $Z nombre_generations=50 \ # # $Z R=$xiirv/PRIM.E1.50 \ # # $Z $formatI # # $Z $xci/format.01$X \ # # $Z A=$xiirv/PRIM.E1.50 \ # # $Z $formatI \ # # $Z mode=1 \ # # $Z R=$xiirv/PRIM.E1.50 \ # # $Z $formatR_Sdu # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/PRIM.12 \ # # $Z $formatI \ # # $Z mode=0 \ # # $Z R=$xiirv/PRIM.E1 \ # # $Z $formatR_Sdu # # # # :Fin_listG_PRIM_E1: # # # # # # s images presentente@ la spirale d'Ulam generalisee pour N={1,...,81}, puis un jeu de la # # vie generalise lui est applique... # v $xiirv/PRIM.F1 p=$xiP/premiers.F1 v $xiirv/PRIM.F2 p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_PRIM_F1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z XYmaxNe 44 44 # # # # $Z $xrk/NPremiers.01$X \ # # $Z R=$xTV/PRIM.11 \ # # $Z $formatI # # $Z $xci/format.01$X \ # # $Z A=$xTV/PRIM.11 \ # # $Z $formatI \ # # $Z mode=0 \ # # $Z R=$xTV/PRIM.12 \ # # $Z XmaxR=899 YmaxR=899 # # # # $Z XYmaxNe 899 899 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/PRIM.12 \ # # $Z R=$xiirv/PRIM.F1 \ # # $Z $formatI # # # # $Z $xci/format.01$X \ # # $Z A=$xiirv/PRIM.F1 \ # # $Z $formatI \ # # $Z mode=0 \ # # $Z R=$xiirv/PRIM.F1 \ # # $Z $formatR_Sdu # # # # $Z $xci/passe_bande$X \ # # $Z A=$xTV/PRIM.12 \ # # $Z inf=1 sup=2 \ # # $Z ninf=0 nsup=0 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z R=$xiirv/PRIM.F2 \ # # $Z $formatI # # # # $Z $xci/format.01$X \ # # $Z A=$xiirv/PRIM.F2 \ # # $Z $formatI \ # # $Z mode=0 \ # # $Z R=$xiirv/PRIM.F2 \ # # $Z $formatR_Sdu # # # # :Fin_listG_PRIM_F1: # # # # # # s images presentente@ la spirale d'Ulam generalisee pour N={1,...,2025}, puis la # # spirale d'Ulam de base... # # # # On notera que l'image 'v $xiirv/PRIM.F2' contient 306 nombres premiers, plus le nombre '1' # # ('v $xiirv/RAND.91' qui est une image aleatoire contenant 307 points aleatoires...). # v $xiirv/PRIM.G2.5000 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PRIM_G2_5000: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # # # $Z set _____Part0=1 # # $Z set _____PartN=5000 # # $Z set _____Rayon=2000 # # $Z set _____Rho0=0.0 # # $Z set _____RhoN=0.7 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=1000 # # $Z set _____ExposantR=0.20 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=0.8" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____FacteurP=0.5 # # $Z set _____RenormaliserN=$EXIST # # $Z set _____Palette=$xiP/cercle.D3 # # $Z set _____images=$xiirv/PRIM.G2.5000 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.G2._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_G2_5000: # # # # # # Spirale d'archimede montrant les 5000 premiers nombres entiers (spirale dite de Sacks...). # v $xiirv/PRIM.G2.10000 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PRIM_G2_10000: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # # # $Z set _____Part0=1 # # $Z set _____PartN=10000 # # $Z set _____Rayon=2000 # # $Z set _____Rho0=0.0 # # $Z set _____RhoN=0.7 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=1000 # # $Z set _____ExposantR=0.20 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=0.8" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____FacteurP=0.5 # # $Z set _____RenormaliserN=$EXIST # # $Z set _____Palette=$xiP/cercle.D3 # # $Z set _____images=$xiirv/PRIM.G2.10000 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.G2._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_G2_10000: # # # # # # Spirale d'archimede montrant les 10000 premiers nombres entiers (spirale dite de Sacks...). # v $xiirv/PRIM.G2.50000 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PRIM_G2_50000: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # # # $Z set _____Part0=1 # # $Z set _____PartN=50000 # # $Z set _____Rayon=1500 # # $Z set _____Rho0=0.0 # # $Z set _____RhoN=0.7 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=1000 # # $Z set _____ExposantR=0.1 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=0.8" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____FacteurP=0.8 # # $Z set _____RenormaliserN=$EXIST # # $Z set _____Palette=$xiP/cercle.D3 # # $Z set _____images=$xiirv/PRIM.G2.50000 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.G2._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_G2_50000: # # # # # # Spirale d'archimede montrant les 50000 premiers nombres entiers (spirale dite de Sacks...). # v $xiirv/PRIM.G2.100000 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PRIM_G2_100000: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # # # $Z set _____Part0=1 # # $Z set _____PartN=100000 # # $Z set _____Rayon=1500 # # $Z set _____Rho0=0.0 # # $Z set _____RhoN=1.1 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=1000 # # $Z set _____ExposantR=0.2 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=0.8" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____FacteurP=0.8 # # $Z set _____RenormaliserN=$EXIST # # $Z set _____Palette=$xiP/cercle.D3 # # $Z set _____images=$xiirv/PRIM.G2.100000 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.G2._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_G2_100000: # # # # # # Spirale d'archimede montrant les 100000 premiers nombres entiers (spirale dite de # # Sacks...). # v $xiirv/PRIM.G3.100000 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PRIM_G3_100000: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # # # $Z set _____Part0=1 # # $Z set _____PartN=100000 # # $Z set _____Rayon=1500 # # $Z set _____Rho0=0.0 # # $Z set _____RhoN=0.54 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=1000 # # $Z set _____ExposantR=0.3 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=0.8" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____FacteurP=0.8 # # $Z set _____RenormaliserN=$EXIST # # $Z set _____Palette=$xiP/cercle.D3 # # $Z set _____images=$xiirv/PRIM.G3.100000 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.G2._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_G3_100000: # # # # # # Spirale d'archimede montrant les 100000 premiers nombres entiers (spirale dite de # # Sacks...). # v $xiirv/PRIM.G3.1000000 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PRIM_G3_1000000: # # # # $Z Shu # # # # $Z setenv xTV $xTG # # # # # # $Z set _____Part0=1 # # $Z set _____PartN=1000000 # # $Z set _____Rayon=1500 # # $Z set _____Rho0=0.0 # # $Z set _____RhoN=0.54 # # $Z set _____Theta0=0 # # $Z set _____ThetaN=1000 # # $Z set _____ExposantR=0.3 # # $Z set _____FacteurZ=0 # # $Z set _____ZoomAuto="zoom_automatique=FAUX ZOOM=0.8" # # $Z set _____AXBXAYBY="AX=1.0 BX=0.5 AY=1.0 BY=0.5" # # $Z set _____AZ="AZ=-0.0040" # # $Z set _____FacteurP=0.8 # # $Z set _____RenormaliserN=$EXIST # # $Z set _____Palette=$xiP/cercle.D3 # # $Z set _____images=$xiirv/PRIM.G3.1000000 # # $m4 _____include(_____xiirv/.PRIM.4.11._____U) # # $m4 _____include(_____xiirv/.PRIM.4.21._____U) # # $m4 _____include(_____xiirv/.PRIM.G2._____U) # # $m4 _____include(_____xiirv/.PRIM.4.12._____U) # # $m4 _____include(_____xiirv/.PRIM.4.13._____U) # # # # :Fin_listG_PRIM_G3_1000000: # # # # # # Spirale d'archimede montrant les 1000000 premiers nombres entiers (spirale dite de # # Sacks...). # v $xiirv/PRIM.H1 p=$xiP/premiers.H1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PRIM_H1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____PNiveauNP=$GRIS_5 # # $Z set _____PNiveauNPJ1=$GRIS_5 # # $Z set _____PNiveauNPJ2=$GRIS_5 # # $Z set _____ImageR=$xiirv/PRIM.H1 # # $m4 _____include(_____xiirv/.PRIM.H1.1._____U) # # # # :Fin_listG_PRIM_H1: # # # # # # Cette image presente la spirale d'Ulam avec visualisation des nombres premiers. # v $xiirv/PRIM.H1.2 p=$xiP/premiers.H1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PRIM_H1_2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____PDistance=2 # # $Z set _____ImageR=$xiirv/PRIM.H1.$_____PDistance # # $m4 _____include(_____xiirv/.PRIM.H1.1._____U) # # # # :Fin_listG_PRIM_H1_2: # # # # # # Cette image presente la spirale d'Ulam avec visualisation des nombres premiers 2-jumeaux. # v $xiirv/PRIM.H1.4 p=$xiP/premiers.H1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PRIM_H1_4: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____PDistance=4 # # $Z set _____ImageR=$xiirv/PRIM.H1.$_____PDistance # # $m4 _____include(_____xiirv/.PRIM.H1.1._____U) # # # # :Fin_listG_PRIM_H1_4: # # # # # # Cette image presente la spirale d'Ulam avec visualisation des nombres premiers 4-jumeaux. # v $xiirv/PRIM.H1.6 p=$xiP/premiers.H1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PRIM_H1_6: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____PDistance=6 # # $Z set _____ImageR=$xiirv/PRIM.H1.$_____PDistance # # $m4 _____include(_____xiirv/.PRIM.H1.1._____U) # # # # :Fin_listG_PRIM_H1_6: # # # # # # Cette image presente la spirale d'Ulam avec visualisation des nombres premiers 6-jumeaux. # v $xiirv/PRIM.H1.8 p=$xiP/premiers.H1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_PRIM_H1_8: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____PDistance=8 # # $Z set _____ImageR=$xiirv/PRIM.H1.$_____PDistance # # $m4 _____include(_____xiirv/.PRIM.H1.1._____U) # # # # :Fin_listG_PRIM_H1_8: # # # # # # Cette image presente la spirale d'Ulam avec visualisation des nombres premiers 8-jumeaux. # v $xiirv/PRIM.I1 v $xiirv/PRIM.I1.4x4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PRIM_I1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Palette=$xiP/trou_noir.74 # # $Z set _____Rayon=0.006 # # $Z set _____Grossissement=1.5 # # $Z set _____Zoom=0.94 # # $Z set _____DistanceMinimale=0.005 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" couronne=2" # # # # $Z set _____animation=$xiirv/PRIM.I1 # # $m4 _____include(_____xiirv/.PRIM.I1.1._____U) # # # # :Fin_listG_PRIM_I1: # # # # # # Liste des legendes des 4x4 images ('$PrEmIeR_CoUrAnT/$DeRnIeR_PrEmIeR') : # # # # 41/53 43/53 47/53 53/53 # # 23/53 29/53 31/53 37/53 # # 11/53 13/53 17/53 19/53 # # 2/53 3/53 5/53 7/53 # # # v $xiirv/PRIM.I2 v $xiirv/PRIM.I2.4x4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PRIM_I2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____NPremiers=128 # # $Z set _____Palette=$xiP/trou_noir.74 # # $Z set _____Rayon=0.006 # # $Z set _____Grossissement=1.5 # # $Z set _____Zoom=0.94 # # $Z set _____DistanceMinimale=0.005 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" couronne=2" # # # # $Z set _____animation=$xiirv/PRIM.I2 # # $m4 _____include(_____xiirv/.PRIM.I1.1._____U) # # # # :Fin_listG_PRIM_I2: # # # # # # Liste des legendes des 4x4 images ('$PrEmIeR_CoUrAnT/$DeRnIeR_PrEmIeR') : # # # # 41/719 43/719 47/719 53/719 # # 23/719 29/719 31/719 37/719 # # 11/719 13/719 17/719 19/719 # # 2/719 3/719 5/719 7/719 # # # v $xiirv/PRIM.I3 v $xiirv/PRIM.I3.4x4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PRIM_I3: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____NPremiers=1024 # # $Z set _____Palette=$xiP/trou_noir.74 # # $Z set _____Rayon=0.006 # # $Z set _____Grossissement=1.5 # # $Z set _____Zoom=0.94 # # $Z set _____DistanceMinimale=0.005 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" couronne=2" # # $Z set _____ParticulePara="$_____ParticulePara"" N_log_N=VRAI" # # # # $Z set _____animation=$xiirv/PRIM.I3 # # $m4 _____include(_____xiirv/.PRIM.I1.1._____U) # # # # :Fin_listG_PRIM_I3: # # # # # # Liste des legendes des 4x4 images ('$PrEmIeR_CoUrAnT/$DeRnIeR_PrEmIeR') : # # # # 41/8161 43/8161 47/8161 53/8161 # # 23/8161 29/8161 31/8161 37/8161 # # 11/8161 13/8161 17/8161 19/8161 # # 2/8161 3/8161 5/8161 7/8161 # # # v $xiirv/PRIM.J1 v $xiirv/PRIM.J1.4x4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PRIM_J1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____NPremiers=16 # # $Z SET _____RandomWalk=$EXIST # # $Z set _____Rho=0.16 # # $Z set _____Palette=$xiP/trou_noir.74 # # $Z set _____Rayon=0.006 # # $Z set _____Grossissement=1.5 # # $Z set _____Zoom=0.94 # # $Z set _____DistanceMinimale=0.005 # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" couronne=2" # # # # $Z set _____animation=$xiirv/PRIM.J1 # # $m4 _____include(_____xiirv/.PRIM.I1.1._____U) # # # # :Fin_listG_PRIM_J1: # # # # # # Liste des legendes des 4x4 images ('$PrEmIeR_CoUrAnT/$DeRnIeR_PrEmIeR') : # # # # 41/53 43/53 47/53 53/53 # # 23/53 29/53 31/53 37/53 # # 11/53 13/53 17/53 19/53 # # 2/53 3/53 5/53 7/53 # # # v $xiirv/PRIM.J2 v $xiirv/PRIM.J2.4x4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PRIM_J2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____NPremiers=128 # # $Z SET _____RandomWalk=$EXIST # # $Z set _____Rho=0.086 # # $Z set _____Palette=$xiP/trou_noir.74 # # $Z set _____Rayon=0.006 # # $Z set _____Grossissement=1.5 # # $Z set _____Zoom=0.94 # # $Z set _____DistanceMinimale=0.005 # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" couronne=2" # # # # $Z set _____animation=$xiirv/PRIM.J2 # # $m4 _____include(_____xiirv/.PRIM.I1.1._____U) # # # # :Fin_listG_PRIM_J2: # # # # # # Liste des legendes des 4x4 images ('$PrEmIeR_CoUrAnT/$DeRnIeR_PrEmIeR') : # # # # 41/719 43/719 47/719 53/719 # # 23/719 29/719 31/719 37/719 # # 11/719 13/719 17/719 19/719 # # 2/719 3/719 5/719 7/719 # # # v $xiirv/PRIM.J3 v $xiirv/PRIM.J3.4x4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PRIM_J3: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____NPremiers=1024 # # $Z SET _____RandomWalk=$EXIST # # $Z set _____Rho=0.058 # # $Z set _____Palette=$xiP/trou_noir.74 # # $Z set _____Rayon=0.006 # # $Z set _____Grossissement=1.5 # # $Z set _____Zoom=0.94 # # $Z set _____DistanceMinimale=0.005 # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" couronne=2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" N_log_N=VRAI" # # # # $Z set _____animation=$xiirv/PRIM.J3 # # $m4 _____include(_____xiirv/.PRIM.I1.1._____U) # # # # :Fin_listG_PRIM_J3: # # # # # # Liste des legendes des 4x4 images ('$PrEmIeR_CoUrAnT/$DeRnIeR_PrEmIeR') : # # # # 41/8161 43/8161 47/8161 53/8161 # # 23/8161 29/8161 31/8161 37/8161 # # 11/8161 13/8161 17/8161 19/8161 # # 2/8161 3/8161 5/8161 7/8161 # # # v $xiirv/PRIM.J4 v $xiirv/PRIM.J4.4x4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PRIM_J4: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____NPremiers=8192 # # $Z SET _____RandomWalk=$EXIST # # $Z set _____Rho=0.030 # # $Z set _____Palette=$xiP/trou_noir.74 # # $Z set _____Rayon=0.006 # # $Z set _____Grossissement=1.5 # # $Z set _____Zoom=0.94 # # $Z set _____DistanceMinimale=0.005 # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" couronne=2" # # $Z set _____ParticulePara2="$_____ParticulePara2"" N_log_N=VRAI" # # # # $Z set _____animation=$xiirv/PRIM.J4 # # $m4 _____include(_____xiirv/.PRIM.I1.1._____U) # # # # :Fin_listG_PRIM_J4: # # # # # # Liste des legendes des 4x4 images ('$PrEmIeR_CoUrAnT/$DeRnIeR_PrEmIeR') : # # # # 41/84017 43/84017 47/84017 53/84017 # # 23/84017 29/84017 31/84017 37/84017 # # 11/84017 13/84017 17/84017 19/84017 # # 2/84017 3/84017 5/84017 7/84017 # # # v $xiirv/PRIM.J4.7.0 v $xiirv/PRIM.J4.7.1 v $xiirv/PRIM.J4.7.2 v $xiirv/PRIM.J4.7.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_PRIM_J4_7: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____NPremiers=8192 # # $Z set _____NPremier=7 # # # # $Z set index0=1 # # # # $Z @ _____NIterations = $_____NPremiers - 4 # # # # Il y 4 premiers nombres premiers jusqu'a 7 inclus {2,3,5,7}... # # # # $Z FilSTmpB FNoMbReS_PrEmIeRs # # # # $Z $xci/valeurs_Goldbach$X \ # # $Z p=$index0 d=$_____NPremiers \ # # $Z editer_nombres_premiers=VRAI \ # # $Z calculer_decompositions=FAUX | \ # # $Z $xrv/RESZ.11$X \ # # $Z ne=0 \ # # $Z fichier1== \ # # $Z fichier2=$_____NPremier | \ # # $Z $xrv/SOUS.11$X \ # # $Z ne=0 \ # # $Z fichier1== \ # # $Z fichier2=1 \ # # $Z formater=VRAI signe="$K_VIDE" | \ # # $Z $TAI -$_____NIterations \ # # $Z >> $FNoMbReS_PrEmIeRs # # # # La soustraction d'une unite est destinee a passer de {1,2,3,4,5,6} a {0,1,2,3,4,5} et ce # # a cause de 'v $xiirv/.PIPO.71.2.$U .e..s..5.'... # # # # $Z set _____ImageT1=$xTV/PRIM.J4.7.T # # # # $Z set _____FDecimales=$FNoMbReS_PrEmIeRs # # $Z SET _____FDecimalesDejaOBase=$EXIST # # $Z set _____Zoom=0.200 # # $Z set _____ImageR=$xiirv/PRIM.J4.7 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z FilSTmpE FNoMbReS_PrEmIeRs # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.0%s \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____CercleInscrit=VRAI # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_PRIM_J4_7: # # # # # # Les nombres premiers superieurs a 7, modulo 7 moins 1 : # # # # Conversion du nombre entier 352410215043243021545... de 8.188 chiffres -base 6- # # en 3524102150... de 8.188 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.424,+0.536]x[+0.48,+0.624]x[-0.06,+0.040] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:10:27 # # # # $xci/accumule.42$X : 00:13:58 # # # v $xiirv/PRIM.K4.7.1 v $xiirv/PRIM.K4.7.2 v $xiirv/PRIM.K4.7.21 # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_PRIM_K4_7: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z set _____NPremiers=8192 # # $Z set _____NPremier=7 # # # # $Z set index0=1 # # # # $Z @ _____NIterations = $_____NPremiers - 4 # # # # Il y 4 premiers nombres premiers jusqu'a 7 inclus {2,3,5,7}... # # # # $Z FilSTmpB FNoMbReS_PrEmIeRs # # # # $Z $xci/valeurs_Goldbach$X \ # # $Z p=$index0 d=$_____NPremiers \ # # $Z editer_nombres_premiers=VRAI \ # # $Z calculer_decompositions=FAUX | \ # # $Z $xrv/RESZ.11$X \ # # $Z ne=0 \ # # $Z fichier1== \ # # $Z fichier2=$_____NPremier | \ # # $Z $xrv/SOUS.11$X \ # # $Z ne=0 \ # # $Z fichier1== \ # # $Z fichier2=1 \ # # $Z formater=VRAI signe="$K_VIDE" | \ # # $Z $TAI -$_____NIterations \ # # $Z >> $FNoMbReS_PrEmIeRs # # # # La soustraction d'une unite est destinee a passer de {1,2,3,4,5,6} a {0,1,2,3,4,5} et ce # # a cause de 'v $xiirv/.PIPO.71.2.$U .e..s..5.'... # # # # $Z setenv _____ImageT1 $xTV/PRIM.K4.7.T1 # # $Z setenv _____ImageT2 $xTV/PRIM.K4.7.T2 # # # # $Z set _____FDecimales=$FNoMbReS_PrEmIeRs # # $Z SET _____FDecimalesDejaOBase=$EXIST # # $Z set _____Zoom=0.200 # # $Z set _____ImageR=$xiirv/PRIM.K4.7 # # $m4 _____include(_____xiirv/.PIPO.71.2._____U) # # # # $Z FilSTmpE FNoMbReS_PrEmIeRs # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.PIPO.21.4._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=8 # # $Z set _____DemiPaveY=8 # # $Z set _____DemiPaveZ=8 # # $m4 _____include(_____xiirv/.PIPO.31.1._____U) # # # # Resultat dans '$_____ImageT1'... # # # # $m4 _____include(_____xiirc/.JULJ.V5.1._____U) # # # # Deplacement de '$_____ImageT1' vers '$_____ImageT2'... # # # # $Z SET _____Facteur=150000 # # $m4 _____include(_____xiirf/.MENG.67.5._____U) # # # # Transformation de '$_____ImageT2' vers '$_____ImageT2'... # # # # $m4 _____include(_____xiirc/.MANE.h5.1._____U) # # # # Deplacement de '$_____ImageT2' vers '$_____ImageT1'... # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____CercleInscrit=VRAI # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_PRIM_K4_7: # # # # # # qui montre un transformation (4xO+1)/(1xO-1) de 'v $xiirv/PRIM.K4.7.21'... # # # # Les nombres premiers superieurs a 7, modulo 7 moins 1 : # # # # Conversion du nombre entier 352410215043243021545... de 8.188 chiffres -base 6- # # en 3524102150... de 8.188 chiffres -base 6- sans la partie entiere, ce qui definit une # # marche aleatoire dans un espace de dimension 3. # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:47:10 # # # # $xci/accumule.42$X : 00:22:48 # # # v $xiirv/PRIM.L2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PRIM_L2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=1 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K2" # # # # $Z set _____Profondeur=2 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/random.33 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PRIM.L2 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.PRIM.L2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PRIM_L2: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre les nombres premiers parmi les 4 # # premiers nombres entiers sur une courbe de Hilbert bidimensionnelle (iteration 1)... # v $xiirv/PRIM.L3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PRIM_L3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=1 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K3" # # # # $Z set _____Profondeur=3 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/random.33 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PRIM.L3 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.PRIM.L2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PRIM_L3: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre les nombres premiers parmi les 16 # # premiers nombres entiers sur une courbe de Hilbert bidimensionnelle (iteration 2)... # v $xiirv/PRIM.L4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PRIM_L4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=1 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K4" # # # # $Z set _____Profondeur=4 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/random.33 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PRIM.L4 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.PRIM.L2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PRIM_L4: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre les nombres premiers parmi les 64 # # premiers nombres entiers sur une courbe de Hilbert bidimensionnelle (iteration 3)... # v $xiirv/PRIM.L5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PRIM_L5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=1 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K5" # # # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/random.33 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PRIM.L5 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.PRIM.L2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PRIM_L5: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre les nombres premiers parmi les 256 # # premiers nombres entiers sur une courbe de Hilbert bidimensionnelle (iteration 4)... # v $xiirv/PRIM.L6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PRIM_L6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Part0=1 # # # # $Z SET _____DefinitionCarre=$NEXIST # # $Z set _____Segments_AB=FAUX # # # # $Z set _____CourbeFond="$K_VIDE" # # $Z set _____CourbeFond="$_____CourbeFond"" fond=VRAI" # # $Z set _____CourbeFond="$_____CourbeFond"" F=$xiirv/HILB.K6" # # # # $Z set _____Profondeur=6 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/random.33 # # $Z set _____Zoom=1.30 # # $Z set _____ImageR=$xiirv/PRIM.L6 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # $m4 _____include(_____xiirv/.HILB.21._____U) # # $m4 _____include(_____xiirv/.PRIM.L2.1._____U) # # $m4 _____include(_____xiirv/.HILB.23._____U) # # $m4 _____include(_____xiirv/.HILB.24._____U) # # $m4 _____include(_____xiirv/.HILB.25._____U) # # # # :Fin_listG_PRIM_L6: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre les nombres premiers parmi les 1024 # # premiers nombres entiers sur une courbe de Hilbert bidimensionnelle (iteration 5)... # v $xiirv/PRIM.M2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PRIM_M2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=2 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/PRIM.M2 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=1 # # $Z set _____Palette=$xiP/random.33 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $m4 _____include(_____xiirv/.PRIM.L2.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_PRIM_M2: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre les nombres premiers parmi les 8 # # premiers nombres entiers sur une courbe de Hilbert tridimensionnelle (iteration 1)... # v $xiirv/PRIM.M3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PRIM_M3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=3 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/PRIM.M3 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=1 # # $Z set _____Palette=$xiP/random.33 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $m4 _____include(_____xiirv/.PRIM.L2.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_PRIM_M3: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre les nombres premiers parmi les 64 # # premiers nombres entiers sur une courbe de Hilbert tridimensionnelle (iteration 2)... # v $xiirv/PRIM.M4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PRIM_M4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=4 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/PRIM.M4 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=1 # # $Z set _____Palette=$xiP/random.33 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $m4 _____include(_____xiirv/.PRIM.L2.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_PRIM_M4: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre les nombres premiers parmi les 512 # # premiers nombres entiers sur une courbe de Hilbert tridimensionnelle (iteration 3)... # v $xiirv/PRIM.M5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_PRIM_M5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____DefinitionCube=$NEXIST # # $Z set _____Profondeur=5 # # $Z set _____Noir_=$NOIR_PLANCHER # # $Z set _____Palette=$xiP/GRIS_4 # # $Z set _____Zoom=0.58 # # $Z set _____RotationOX=0.7 # # $Z set _____RotationOY=`calcul 0.4+$pi` # # $Z set _____ImageR=$xiirv/PRIM.M5 # # $m4 _____include(_____xiirv/.HILB.I1._____U) # # # # $Z set _____Rayon=(0.006) # # $Z set _____OmbresPortees="$K_VIDE" # # $Z set _____OmbresPortees="$_____OmbresPortees"" ombres=VRAI" # # # # $Z FileTmpB FiLeTmP_FRIABLES # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $m4 _____include(_____xiirv/.HILB.12._____U) # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=1 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # # # $Z set _____Part0=1 # # $Z set _____Palette=$xiP/random.33 # # # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" points_isoles=VRAI" # # # # $m4 _____include(_____xiirv/.HILB.11._____U) # # $Z set SaVe______ParticulePara1="$_____ParticulePara1" # # $m4 _____include(_____xiirv/.PRIM.L2.1._____U) # # $Z set _____ParticulePara1="$SaVe______ParticulePara1" # # $m4 _____include(_____xiirv/.HILB.13._____U) # # $m4 _____include(_____xiirv/.NFRI.E2.1._____U) # # $m4 _____include(_____xiirv/.HILB.14._____U) # # $Z set _____NExemplaires=2 # # $m4 _____include(_____xiirv/.NFRI.E2.2._____U) # # $m4 FileTmpE FiLeTmP_HILBERT # # $m4 _____include(_____xiirv/.NFRI.E2.3._____U) # # # # :Fin_listG_PRIM_M5: # # # # # # Cette image inspiree de 'v $xiirv/HILB.J2' montre les nombres premiers parmi les 4096 # # premiers nombres entiers sur une courbe de Hilbert tridimensionnelle (iteration 4)... # v $xiirv/PROD.H1 p=$xiP/cercle.11 v $xiirv/PROD.H1 p=$xiP/dentscie.02 v $xiirv/PROD.H1 p=$xiP/gris.05 # Image generee par l'accumulation suivante : # # # # Std # # $xci/accumule.02$X A=$xw1/PROD.H premiere=1 derniere=128 \ # # seuil=224 \ # # R=$xiirv/PROD.H1 $formatI # # # # qui correspond aux sequences : # # # # xivPdf 6 2 / 002306_002433 # # xivPdf 6 2 / 002434_002561 # # # v $xiirv/PROD.M1 p=$xiP/gris.01 v $xiirv/PROD.M1 p=$xiP/random.03 # Image generee par l'accumulation suivante : # # # # Std # # $xci/accumule.01$X A=$xw1/PROD.M premiere=1 derniere=128 \ # # attenuation=0 renormaliser=VRAI \ # # R=$xiirv/PROD.M1 $formatI # # # # qui correspond a la sequence : # # # # xivPdf 6 2 / 003842_003969 # # # v $xiirv/PUZZ.11 v $xiirv/PUZZ.11.1 v $xiirv/PUZZ.11.1 p=$xiP/bleu_roug.11 v $xiirv/PUZZ.11.1 p=$xiP/random.A5 v $xiirv/PUZZ.11.1 p=$xiP/random.B3$Fi v $xiirv/PUZZ.11.1 p=$xiP/vert_orange v $xiirv/PUZZ.11.1$COORD_X p=$xiP/cercle.35 v $xiirv/PUZZ.11.1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT1A') par : # # # # :Debut_listG_PUZZ_11: # # # # $Z Sdu # # # # $Z set _____ImageA=$xiirv/PUZZ.11 # # $Z set _____ImageR=$_____ImageA.1 # # # # $Z $xci/trefle$X \ # # $Z standard=VRAI \ # # $Z R=$_____ImageA \ # # $Z $formatI # # # # $Z set _____PaveX=64 # # $Z set _____PaveY=64 # # $Z SET _____Grille=$EXIST # # $m4 _____include(_____xiirv/.PUZZ.11.1._____U) # # # # :Fin_listG_PUZZ_11: # # # v $xiirv/PUZZ.JFC.F1.F2 v $xiirv/PUZZ.JFC.F1.F2$COORD_X p=$xiP/cercle.35 v $xiirv/PUZZ.JFC.F1.F2$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT1A') par : # # # # :Debut_listG_PUZZ_JFC_F1_F2: # # # # $Z Pal # # # # $Z set _____ImageA=$xiit/JFC.F1.F2 # # $Z set _____ImageR=$xiirv/PUZZ.JFC.F1.F2 # # # # $Z SET _____VraiesCouleurs=$EXIST # # # # $Z set _____PaveX=60 # # # # On notera que 60 divise '$dimX' (dimX = 780 = 60x13). # # # # $Z set _____PaveY=64 # # # # On notera que 64 divise '$dimY+1' (dimY+1 = 576 = 64x13) et non pas '$dimY', mais cela # # marche bien malgre tout... # # # # $Z SET _____Grille=$EXIST # # # # $Z set _____ParamsGrille="$K_VIDE" # # $Z set _____ParamsGrille="$_____ParamsGrille"" Xdi=VRAI" # # $Z set _____ParamsGrille="$_____ParamsGrille"" Ydi=VRAI" # # # # $Z set _____GraineX=1789 # # $Z set _____GraineY=2001 # # # # $m4 _____include(_____xiirv/.PUZZ.11.1._____U) # # # # :Fin_listG_PUZZ_JFC_F1_F2: # # # v $xiirv/PUZZ.TROR.34 v $xiirv/PUZZ.TROR.34$COORD_X p=$xiP/cercle.35 v $xiirv/PUZZ.TROR.34$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT1A') par : # # # # :Debut_listG_PUZZ_TROR_34: # # # # $Z Pal # # # # $Z set _____ImageA=$xiirv/TROR.34 # # $Z set _____ImageR=$xiirv/PUZZ.TROR.34 # # # # $Z SET _____VraiesCouleurs=$EXIST # # # # $Z set _____PaveX=60 # # # # On notera que 60 divise '$dimX' (dimX = 780 = 60x13). # # # # $Z set _____PaveY=64 # # # # On notera que 64 divise '$dimY+1' (dimY+1 = 576 = 64x13) et non pas '$dimY', mais cela # # marche bien malgre tout... # # # # $Z SET _____Grille=$EXIST # # # # $Z set _____ParamsGrille="$K_VIDE" # # $Z set _____ParamsGrille="$_____ParamsGrille"" Xdi=VRAI" # # $Z set _____ParamsGrille="$_____ParamsGrille"" Ydi=VRAI" # # # # $m4 _____include(_____xiirv/.PUZZ.11.1._____U) # # # # :Fin_listG_PUZZ_TROR_34: # # # v $xiirv/PYTH.11 # Generee (sur '$LACT15', puis recalcule sur '$LACT19') par : # # # # :Debut_listG_PYTH_11: # # # # $Z Pal # # # # $Z $DELETE $xTV/COORDONNEES$COORD_X # # $Z $DELETE $xTV/COORDONNEES$COORD_Y # # $Z $DELETE $xTV/COORDONNEES$COORD_Z # # # # $Z set Npoints=4 # # # # $Z set Coord_X_A=0.10 # # $Z set Coord_Y_A=0.25 # # $Z set Coord_Z_A=0.00 # # # # $Z set Coord_X_B=0.90 # # $Z set Coord_Y_B=$Coord_Y_A # # $Z set Coord_Z_B=$Coord_Z_A # # # # $Z set Coord_X_C=$Coord_X_A # # $Z set Coord_Y_C=0.85 # # $Z set Coord_Z_C=$Coord_Z_A # # # # $Z echo $Coord_X_A >>! $xTV/COORDONNEES$COORD_X # # $Z echo $Coord_Y_A >>! $xTV/COORDONNEES$COORD_Y # # $Z echo $Coord_Z_A >>! $xTV/COORDONNEES$COORD_Z # # # # $Z echo $Coord_X_B >>! $xTV/COORDONNEES$COORD_X # # $Z echo $Coord_Y_B >>! $xTV/COORDONNEES$COORD_Y # # $Z echo $Coord_Z_B >>! $xTV/COORDONNEES$COORD_Z # # # # $Z echo $Coord_X_C >>! $xTV/COORDONNEES$COORD_X # # $Z echo $Coord_Y_C >>! $xTV/COORDONNEES$COORD_Y # # $Z echo $Coord_Z_C >>! $xTV/COORDONNEES$COORD_Z # # # # $Z echo $Coord_X_A >>! $xTV/COORDONNEES$COORD_X # # $Z echo $Coord_Y_A >>! $xTV/COORDONNEES$COORD_Y # # $Z echo $Coord_Z_A >>! $xTV/COORDONNEES$COORD_Z # # # # $Z $xrv/particule.10$X np=1 iterations=$Npoints \ # # $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ # # $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ # # $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ # # $Z LISTE_RAYON=0.01 \ # # $Z LISTE_ROUGE=$BLANC \ # # $Z LISTE_VERTE=$BLANC \ # # $Z LISTE_BLEUE=$BLANC \ # # $Z Lz=1000 \ # # $Z zoom_automatique=FAUX ZOOM=1.5 \ # # $Z isoles=FAUX chainer=VRAI equidistance=VRAI \ # # $Z N_au_carre=VRAI \ # # $Z RVB=VRAI \ # # $Z chiffres=0 \ # # $Z R=$xTV/TRIANGLE \ # # $Z $formatI # # # # $Z source $xrd/graph.01$vv$Y # # $Z G_Init # # # # $Z G_K 0.01 # # $Z G_Cursor1 0.50 0.18 $Origine_COORD_Z # # $Z G_CentreX `G_Message "X"` # # $Z G_Cursor1 0.07 0.50 $Origine_COORD_Z # # $Z G_L "Y" # # $Z G_Cursor1 0.55 0.60 $Origine_COORD_Z # # $Z G_L "Z" # # # # $Z G_Genere $xiirv/PYTH.11 fond=VRAI F=$xTV/TRIANGLE # # # # :Fin_listG_PYTH_11: # # # v $xiirv/PYTH.11$R04 # Generee (sur '$LACT19') par : # # # # :Debut_listG_PYTH_11_04: # # # # $Z Pal # # # # $Z set _____ImageA=$xiirv/PYTH.11 # # $Z set _____ImageR=$_____ImageA$R04 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_PYTH_11_04: # # # v $xiirv/PYTH.11.Centre # Generee (sur '$LACT19') par : # # # # :Debut_listG_PYTH_11_Centre: # # # # $Z ext Pud 7 # # # # $Z set _____ImageA=$xiirv/PYTH.11 # # $Z set _____ImageR=$_____ImageA.Centre # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageA%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_PYTH_11_Centre: # v $xiirv/PYTH.21 # Generee (sur '$LACT19') par : # # # # :Debut_listG_PYTH_21: # # # # $Z Pal # # # # $Z SET _____Rayon1=0 # # $Z set _____ImageR=$xiirv/PYTH.21 # # $m4 _____include(_____xiirv/.PYTH.21.1._____U) # # # # :Fin_listG_PYTH_21: # # # # # # Montre le triplet pythagoricien le plus fameux {3,4,5} et la corde a noeuds associee... # v $xiirv/PYTH.22 # Generee (sur '$LACT19') par : # # # # :Debut_listG_PYTH_22: # # # # $Z Pal # # # # $Z set _____ImageR=$xiirv/PYTH.22 # # $m4 _____include(_____xiirv/.PYTH.21.1._____U) # # # # :Fin_listG_PYTH_22: # # # # # # Montre le triplet pythagoricien le plus fameux {3,4,5} et la corde a noeuds associee... # v $xiirv/PYTH.23 # Generee (sur '$LACT19') par : # # # # :Debut_listG_PYTH_23: # # # # $Z Pal # # # # $Z set _____ImageR=$xiirv/PYTH.23 # # $m4 _____include(_____xiirv/.PYTH.21.1._____U) # # # # $Z source $xrd/graph.01$vv$Y # # $Z G_Init # # # # $Z G_K 0.01 # # # # $Z G_Cursor1 0.48 0.28 $Origine_COORD_Z # # $Z G_Cursor2 $NOIR $BLANC $NOIR # # $Z G_L "4" # # # # $Z G_Cursor1 0.04 0.47 $Origine_COORD_Z # # $Z G_Cursor2 $BLANC $NOIR $NOIR # # $Z G_L "3" # # # # $Z G_Cursor1 0.55 0.60 $Origine_COORD_Z # # $Z G_Cursor2 $NOIR $NOIR $BLANC # # $Z G_L "5" # # # # $Z G_Genere $xiirv/PYTH.23 fond=VRAI F=$xiirv/PYTH.22 # # # # :Fin_listG_PYTH_23: # # # # # # Montre le triplet pythagoricien le plus fameux {3,4,5} et la corde a noeuds associee... # v $xiirv/PYTH.31 # Generee (sur '$LACT19') par : # # # # :Debut_listG_PYTH_31: # # # # $Z Pal # # # # $Z set _____ImageR=$xiirv/PYTH.31 # # $m4 _____include(_____xiirv/.PYTH.31.3._____U) # # $m4 _____include(_____xiirv/.PYTH.31.1._____U) # # # # :Fin_listG_PYTH_31: # # # # # # Montre une demonstration du theoreme de Pythagore... # v $xiirv/PYTH.31.GC # Generee (sur '$LACT19') par : # # # # :Debut_listG_PYTH_31_GC: # # # # $Z Pal # # # # $Z SET _____TraceGC=$EXIST # # $Z SET _____TracePC=$NEXIST # # $Z SET _____TraceTR=$NEXIST # # $Z set _____ImageR=$xiirv/PYTH.31.GC # # $m4 _____include(_____xiirv/.PYTH.31.3._____U) # # $m4 _____include(_____xiirv/.PYTH.31.1._____U) # # # # :Fin_listG_PYTH_31_GC: # # # # # # Montre une partie d'une demonstration du theoreme de Pythagore... # v $xiirv/PYTH.31.PC # Generee (sur '$LACT19') par : # # # # :Debut_listG_PYTH_31_PC: # # # # $Z Pal # # # # $Z SET _____TraceGC=$NEXIST # # $Z SET _____TracePC=$EXIST # # $Z SET _____TraceTR=$NEXIST # # $Z set _____ImageR=$xiirv/PYTH.31.PC # # $m4 _____include(_____xiirv/.PYTH.31.3._____U) # # $m4 _____include(_____xiirv/.PYTH.31.1._____U) # # # # :Fin_listG_PYTH_31_PC: # # # # # # Montre une partie d'une demonstration du theoreme de Pythagore... # v $xiirv/PYTH.31.TR4 # Generee (sur '$LACT19') par : # # # # :Debut_listG_PYTH_31_TR4: # # # # $Z Pal # # # # $Z SET _____TraceGC=$NEXIST # # $Z SET _____TracePC=$NEXIST # # $Z SET _____TraceTR=$EXIST # # $Z set _____ImageR=$xiirv/PYTH.31.TR4 # # $m4 _____include(_____xiirv/.PYTH.31.3._____U) # # $m4 _____include(_____xiirv/.PYTH.31.1._____U) # # # # :Fin_listG_PYTH_31_TR4: # # # # # # Montre une partie d'une demonstration du theoreme de Pythagore... # # # # On notera le 20130321180530 que cette image ne peut s'appeler '$xiirv/PYTH.31.TR' (comme # # je l'avais fait initialement) a cause de 'v $xiMoG/GENERE.02$Y 20130321182145'... # v $xiirv/PYTH.32 # Generee (sur '$LACT19') par : # # # # :Debut_listG_PYTH_32: # # # # $Z Pal # # # # $m4 _____include(_____xiirv/.PYTH.32.TR4.1._____U) # # # # $Z G_Genere $xiirv/PYTH.32 fond=VRAI F=$xiirv/PYTH.31 # # # # :Fin_listG_PYTH_32: # # # v $xiirv/PYTH.32.GC # Generee (sur '$LACT19') par : # # # # :Debut_listG_PYTH_32_GC: # # # # $Z Pal # # # # $Z SET _____TraceGC=$EXIST # # $Z SET _____TracePC=$NEXIST # # $Z SET _____TraceTR=$NEXIST # # $Z SET _____Surface=$EXIST # # $Z set _____ImageR=$xiirv/PYTH.32.GC # # $m4 _____include(_____xiirv/.PYTH.31.3._____U) # # $m4 _____include(_____xiirv/.PYTH.31.1._____U) # # # # $m4 _____include(_____xiirv/.PYTH.32.GC.1._____U) # # # # $Z G_Genere $_____ImageR fond=VRAI F=$_____ImageR # # # # :Fin_listG_PYTH_32_GC: # # # # # # Montre une partie d'une demonstration du theoreme de Pythagore... # v $xiirv/PYTH.32.PC # Generee (sur '$LACT19') par : # # # # :Debut_listG_PYTH_32_PC: # # # # $Z Pal # # # # $Z SET _____TraceGC=$NEXIST # # $Z SET _____TracePC=$EXIST # # $Z SET _____TraceTR=$NEXIST # # $Z SET _____Surface=$EXIST # # $Z set _____ImageR=$xiirv/PYTH.32.PC # # $m4 _____include(_____xiirv/.PYTH.31.3._____U) # # $m4 _____include(_____xiirv/.PYTH.31.1._____U) # # # # $m4 _____include(_____xiirv/.PYTH.32.PC.1._____U) # # # # $Z G_Genere $_____ImageR fond=VRAI F=$_____ImageR # # # # :Fin_listG_PYTH_32_PC: # # # # # # Montre une partie d'une demonstration du theoreme de Pythagore... # v $xiirv/PYTH.32.TR4 # Generee (sur '$LACT19') par : # # # # :Debut_listG_PYTH_32_TR4: # # # # $Z Pal # # # # $Z SET _____TraceGC=$NEXIST # # $Z SET _____TracePC=$NEXIST # # $Z SET _____TraceTR=$EXIST # # $Z SET _____Surface=$EXIST # # $Z set _____ImageR=$xiirv/PYTH.32.TR4 # # $m4 _____include(_____xiirv/.PYTH.31.3._____U) # # $m4 _____include(_____xiirv/.PYTH.31.1._____U) # # # # $m4 _____include(_____xiirv/.PYTH.32.TR4.1._____U) # # # # $Z G_Genere $_____ImageR fond=VRAI F=$_____ImageR # # # # :Fin_listG_PYTH_32_TR4: # # # # # # Montre une partie d'une demonstration du theoreme de Pythagore... # # # # On notera le 20130321180530 que cette image ne peut s'appeler '$xiirv/PYTH.31.TR' (comme # # je l'avais fait initialement) a cause de 'v $xiMoG/GENERE.02$Y 20130321182145'... # v $xiirv/PYTH.33.TR1 # Generee (sur '$LACT19') par : # # # # :Debut_listG_PYTH_33_TR1: # # # # $Z Pal # # # # $m4 _____include(_____xiirv/.PYTH.31.3._____U) # # $Z SET _____TraceTR1=$EXIST # # $Z SET _____TraceGC=$NEXIST # # $Z SET _____TracePC=$NEXIST # # $Z SET _____TraceTR=$NEXIST # # $Z set _____ImageR=$xiirv/PYTH.33.TR1 # # $m4 _____include(_____xiirv/.PYTH.33.1._____U) # # # # $m4 _____include(_____xiirv/.PYTH.32.TR4.1._____U) # # # # $Z G_Genere $_____ImageR fond=VRAI F=$_____ImageR # # # # :Fin_listG_PYTH_33_TR1: # # # # # # Montre une partie de la construction utile a une demonstration du theoreme de Pythagore... # v $xiirv/PYTH.33.GC # Generee (sur '$LACT19') par : # # # # :Debut_listG_PYTH_33_GC: # # # # $Z Pal # # # # $m4 _____include(_____xiirv/.PYTH.31.3._____U) # # $Z SET _____TraceTR1=$NEXIST # # $Z SET _____TraceGC=$EXIST # # $Z SET _____TracePC=$NEXIST # # $Z SET _____TraceTR=$NEXIST # # $Z set _____ImageR=$xiirv/PYTH.33.GC # # $m4 _____include(_____xiirv/.PYTH.33.1._____U) # # # # $m4 _____include(_____xiirv/.PYTH.33.TR4.1._____U) # # # # $Z G_Genere $_____ImageR fond=VRAI F=$_____ImageR # # # # :Fin_listG_PYTH_33_GC: # # # # # # Montre une partie de la construction utile a une demonstration du theoreme de Pythagore... # v $xiirv/PYTH.33.PC # Generee (sur '$LACT19') par : # # # # :Debut_listG_PYTH_33_PC: # # # # $Z Pal # # # # $m4 _____include(_____xiirv/.PYTH.31.3._____U) # # $Z SET _____TraceTR1=$NEXIST # # $Z SET _____TraceGC=$EXIST # # $Z SET RoUgE___GC=$RoUgE_1234 # # $Z SET VeRtE___GC=$VeRtE_1234 # # $Z SET BlEuE___GC=$BlEuE_1234 # # $Z SET _____TracePC=$EXIST # # $Z SET _____TraceTR=$NEXIST # # $Z set _____ImageR=$xiirv/PYTH.33.PC # # $m4 _____include(_____xiirv/.PYTH.33.1._____U) # # # # $m4 _____include(_____xiirv/.PYTH.32.TR4.1._____U) # # # # $Z G_Genere $_____ImageR fond=VRAI F=$_____ImageR # # # # :Fin_listG_PYTH_33_PC: # # # # # # Montre une partie de la construction utile a une demonstration du theoreme de Pythagore... # v $xiirv/PYTH.34.TR1 # Generee (sur '$LACT19') par : # # # # :Debut_listG_PYTH_34_TR1: # # # # $Z Pal # # # # $m4 _____include(_____xiirv/.PYTH.31.3._____U) # # $Z SET _____TraceTR1=$EXIST # # $Z SET _____TraceGC=$NEXIST # # $Z SET _____TracePC=$NEXIST # # $Z set _____ImageR=$xiirv/PYTH.34.TR1 # # $m4 _____include(_____xiirv/.PYTH.34.1._____U) # # # # $m4 _____include(_____xiirv/.PYTH.32.TR4.1._____U) # # # # $Z G_Genere $_____ImageR fond=VRAI F=$_____ImageR # # # # :Fin_listG_PYTH_34_TR1: # # # # # # Montre une partie de la construction utile a une demonstration du theoreme de Pythagore... # v $xiirv/PYTH.34.GC # Generee (sur '$LACT19') par : # # # # :Debut_listG_PYTH_34_GC: # # # # $Z Pal # # # # $m4 _____include(_____xiirv/.PYTH.31.3._____U) # # $Z SET _____TraceTR1=$NEXIST # # $Z SET _____TraceGC=$EXIST # # $Z SET _____TracePC=$NEXIST # # $Z set _____ImageR=$xiirv/PYTH.34.GC # # $m4 _____include(_____xiirv/.PYTH.34.1._____U) # # # # $m4 _____include(_____xiirv/.PYTH.33.TR4.1._____U) # # # # $Z G_Genere $_____ImageR fond=VRAI F=$_____ImageR # # # # :Fin_listG_PYTH_34_GC: # # # # # # Montre une partie de la construction utile a une demonstration du theoreme de Pythagore... # v $xiirv/PYTH.34.PC # Generee (sur '$LACT19') par : # # # # :Debut_listG_PYTH_34_PC: # # # # $Z Pal # # # # $m4 _____include(_____xiirv/.PYTH.31.3._____U) # # $Z SET _____TraceTR1=$NEXIST # # $Z SET _____TraceGC=$EXIST # # $Z SET _____TracePC=$EXIST # # $Z set _____ImageR=$xiirv/PYTH.34.PC # # $m4 _____include(_____xiirv/.PYTH.34.1._____U) # # # # $m4 _____include(_____xiirv/.PYTH.32.TR4.1._____U) # # # # $Z G_Genere $_____ImageR fond=VRAI F=$_____ImageR # # # # :Fin_listG_PYTH_34_PC: # # # # # # Montre une partie de la construction utile a une demonstration du theoreme de Pythagore... # v $xiirv/PYTH.35 # Generee (sur '$LACT19') par : # # # # :Debut_listG_PYTH_35: # # # # $Z Pal # # # # $Z SET _____Etiquettes4=$EXIST # # $m4 _____include(_____xiirv/.PYTH.33.TR4.1._____U) # # $m4 _____include(_____xiirv/.PYTH.32.TR4.1._____U) # # # # $Z G_Genere $xiirv/PYTH.35 fond=VRAI F=$xiirv/PYTH.31 # # # # :Fin_listG_PYTH_35: # # # v $xiirv/PYTH.35.deformee # Generee (sur '$LACT1B') par : # # # # :Debut_listG_PYTH_35_deformee: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/PYTH.35 # # $Z set _____ImageP=$xTV/PYTH.35 # # $Z set _____ImageR=$_____ImageA.deformee # # # # $Z set ArGuMeNtS="mx=0.08 my=0.08 niveau=4" # # $Z set NoRmAlIsE="origine=0 extremite=0.020" # # # # $Z $xci/fract_2D.01$X \ # # $Z graine=19471 \ # # $Z $ArGuMeNtS \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $NoRmAlIsE \ # # $Z R=$_____ImageP$COORD_X \ # # $Z $formatI # # $Z $xci/fract_2D.01$X \ # # $Z graine=17891 \ # # $Z $ArGuMeNtS \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $NoRmAlIsE \ # # $Z R=$_____ImageP$COORD_Y \ # # $Z $formatI # # # # $m4 _____include(_____xiirf/.PAYS.F2.4._____U) # # # # $Z $DELETE $_____ImageR$COORD_X # # $Z $DELETE $_____ImageR$COORD_Y # # # # :Fin_listG_PYTH_35_deformee: # # # XYmaxNe 1079 719 ; v $xiirv/PYTH.42 # Generee (sur '$LACT19') par : # # # # :Debut_listG_PYTH_42: # # # # $Z XYmaxNe 1079 719 # # # # $Z set _____ImageR=$xTV/PYTH.41 # # $m4 _____include(_____xiirv/.PYTH.31.3._____U) # # $m4 _____include(_____xiirv/.PYTH.31.1._____U) # # # # $m4 _____include(_____xiirv/.PYTH.32.TR4.1._____U) # # # # $Z G_Genere $xiirv/PYTH.42 fond=VRAI F=$xTV/PYTH.41 # # # # :Fin_listG_PYTH_42: # # # # # # Images formellement identiques a 'v $xiirv/PYTH.32' et regeneree pour le CNRS # # ('v $Dcourrier_in/20150529110348 From.Christine.GIRARD@cnrs.fr..Thu.May.28.11:09:01.2015'). # # # # On notera que cette image a ete calculee avant 'v $xiirv/.PYTH.33.TR4.1.$U 20200502105324'. # v $xiirv/PYTH.51 # Generee (sur '$LACT19', puis recalculee le 20250124094615 sur '$LACT1B') par : # # # # # # :Debut_listG_PYTH_51: # # # # $Z Sud # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/PYTH.51 # # $Z set _____ImageT=$xTV/TRIANGLE # # # # $Z @ NoMbReHV = 8 # # $Z @ NoMbRe = $NoMbReHV * $NoMbReHV # # $Z @ PrEmIeRe = 1 # # $Z @ DeRnIeRe = $PrEmIeRe + $NoMbRe - 1 # # $Z set NcHif=4 # # $Z set LNuMe=`$xci/nombres$X p=$PrEmIeRe d=$DeRnIeRe chiffres=$NcHif` # # # # $Z set ArGs="$K_VIDE" # # $Z set ArGs="$ArGs"" premiere=$PrEmIeRe" # # $Z set ArGs="$ArGs"" derniere=$DeRnIeRe" # # $Z set ArGs="$ArGs"" ChiffresFlot=2" # # $Z set LA_X=`$xci/valeurs_alea$X $ArGs inf=0.10 sup=0.50 g=1111` # # $Z set LA_Y=`$xci/valeurs_alea$X $ArGs inf=0.10 sup=0.50 g=3333` # # $Z set LB_X=`$xci/valeurs_alea$X $ArGs inf=0.50 sup=0.95 g=5555` # # $Z set LB_Y=($LA_Y) # # $Z set LC_X=($LA_X) # # $Z set LC_Y=`$xci/valeurs_alea$X $ArGs inf=0.50 sup=0.95 g=7777` # # # # $Z set index=1 # # $Z set Npoints=4 # # $Z foreach NuMe ($LNuMe) # # $Z FileTmpB FCoOrDoNnEeS # # # # $Z set Coord_X_A=$LA_X[$index] # # $Z set Coord_Y_A=$LA_Y[$index] # # $Z set Coord_Z_A=0.00 # # # # $Z set Coord_X_B=$LB_X[$index] # # $Z set Coord_Y_B=$LB_Y[$index] # # $Z set Coord_Z_B=0.00 # # # # $Z set Coord_X_C=$LC_X[$index] # # $Z set Coord_Y_C=$LC_Y[$index] # # $Z set Coord_Z_C=0.00 # # # # $Z echo $Coord_X_A >>! $FCoOrDoNnEeS$COORD_X # # $Z echo $Coord_Y_A >>! $FCoOrDoNnEeS$COORD_Y # # $Z echo $Coord_Z_A >>! $FCoOrDoNnEeS$COORD_Z # # # # $Z echo $Coord_X_B >>! $FCoOrDoNnEeS$COORD_X # # $Z echo $Coord_Y_B >>! $FCoOrDoNnEeS$COORD_Y # # $Z echo $Coord_Z_B >>! $FCoOrDoNnEeS$COORD_Z # # # # $Z echo $Coord_X_C >>! $FCoOrDoNnEeS$COORD_X # # $Z echo $Coord_Y_C >>! $FCoOrDoNnEeS$COORD_Y # # $Z echo $Coord_Z_C >>! $FCoOrDoNnEeS$COORD_Z # # # # $Z echo $Coord_X_A >>! $FCoOrDoNnEeS$COORD_X # # $Z echo $Coord_Y_A >>! $FCoOrDoNnEeS$COORD_Y # # $Z echo $Coord_Z_A >>! $FCoOrDoNnEeS$COORD_Z # # # # $Z $xrv/particule.10$X np=1 iterations=$Npoints \ # # $Z LISTE_X=$FCoOrDoNnEeS$COORD_X \ # # $Z LISTE_Y=$FCoOrDoNnEeS$COORD_Y \ # # $Z LISTE_Z=$FCoOrDoNnEeS$COORD_Z \ # # $Z LISTE_RAYON=0.01 \ # # $Z LISTE_ROUGE=$BLANC \ # # $Z LISTE_VERTE=$BLANC \ # # $Z LISTE_BLEUE=$BLANC \ # # $Z Lz=1000 \ # # $Z zoom_automatique=FAUX ZOOM=1.5 \ # # $Z isoles=FAUX chainer=VRAI \ # # $Z equidistance=VRAI \ # # $Z N_au_carre=VRAI \ # # $Z RVB=VRAI \ # # $Z chiffres=0 \ # # $Z R=$_____ImageT.$NuMe \ # # $Z $formatI # # $Z FileTmpE FCoOrDoNnEeS # # $Z @ index = $index + 1 # # $Z end # # # # $Z execRVB $xci/regroupe.02$Z \ # # $Z $_____ImageT. \ # # $Z $_____ImageR%s \ # # $Z $PrEmIeRe 1 \ # # $Z $NoMbReHV $NoMbReHV \ # # $Z "%s" \ # # $Z '$K_QD$formatR_Sdu$K_QD' \ # # $Z $NcHif \ # # $Z FAUX # # # # :Fin_listG_PYTH_51: # # # # # # qui montre 64 (une infinite...) triangles rectangles differents... # v $xiirv/QUAD.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_QUAD_11: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____DeriveeXA=-4 # # $Z set _____DeriveeYA=0 # # $Z set _____DeriveeZA=+4 # # $Z set _____DeriveeXB=-4 # # $Z set _____DeriveeYB=0 # # $Z set _____DeriveeZB=+4 # # $Z set _____Zoom=0.8 # # $Z set _____RayonA=0.010 # # $Z set _____RayonG=0.009 # # $Z set _____TranslationY=0.0 # # $Z set _____ImageR=$xiirv/QUAD.11 # # $m4 _____include(_____xiirv/.QUAD.11.1._____U) # # $m4 _____include(_____xiirv/.QUAD.11.2._____U) # # # # :Fin_listG_QUAD_11: # # # # # # qui montre la quadrangulation de l'arbre non aleatoire bidimensionnel suivant grace a # # la bijection de Schaeffer : # # # # # # NumeroNoeud=+0 EtiquetteNoeud=+0 # # NumeroNoeud=+1 EtiquetteNoeud=+1 # # NumeroNoeud=+2 EtiquetteNoeud=+2 # # NumeroNoeud=+3 EtiquetteNoeud=+3 # # NumeroNoeud=+4 EtiquetteNoeud=+2 # # NumeroNoeud=+5 EtiquetteNoeud=+2 # # NumeroNoeud=+6 EtiquetteNoeud=+2 # # NumeroNoeud=+7 EtiquetteNoeud=+2 # # NumeroNoeud=+8 EtiquetteNoeud=+2 # # NumeroNoeud=+9 EtiquetteNoeud=+2 # # NumeroNoeud=+10 EtiquetteNoeud=+2 # # NumeroNoeud=+11 EtiquetteNoeud=+1 # # NumeroNoeud=+12 EtiquetteNoeud=+2 # # NumeroNoeud=+13 EtiquetteNoeud=+1 # # # v $xiirv/QUAD.12 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_QUAD_12: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____ListerNoeudsEtiquettes=$NEXIST # # $Z set _____Exotique=VRAI # # $Z set _____DeriveeXA=-4 # # $Z set _____DeriveeYA=0 # # $Z set _____DeriveeZA=+4 # # $Z set _____DeriveeXB=-4 # # $Z set _____DeriveeYB=0 # # $Z set _____DeriveeZB=+4 # # $Z set _____Zoom=0.8 # # $Z set _____RayonA=0.010 # # $Z set _____RayonG=0.009 # # $Z set _____TranslationY=0.0 # # $Z set _____ImageR=$xiirv/QUAD.12 # # $m4 _____include(_____xiirv/.QUAD.11.1._____U) # # $m4 _____include(_____xiirv/.QUAD.11.2._____U) # # # # :Fin_listG_QUAD_12: # # # # # # qui montre la quadrangulation "exotique" de l'arbre non aleatoire bidimensionnel # # correspondant a 'v $xiirv/QUAD.11' grace a la bijection de Schaeffer... # v $xiirv/QUAD.13 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_QUAD_13: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____ListerNoeudsEtiquettes=$NEXIST # # $Z SET _____GRouge=$GRIS_0 # # $Z SET _____GVerte=$GRIS_0 # # $Z SET _____GBleue=$GRIS_0 # # $Z SET _____CDeriveeX=$EXIST # # $Z SET _____CDeriveeY=$EXIST # # $Z set _____DeriveeXA=+4 # # $Z set _____DeriveeYA=+1 # # $Z set _____DeriveeZA=+1 # # $Z set _____DeriveeXB=+4 # # $Z set _____DeriveeYB=+1 # # $Z set _____DeriveeZB=-1 # # $Z set _____Zoom=0.8 # # $Z set _____RayonA=0.010 # # $Z set _____RayonG=0.009 # # $Z set _____TranslationY=0.0 # # $Z set _____ImageR=$xiirv/QUAD.13 # # $m4 _____include(_____xiirv/.QUAD.11.1._____U) # # $m4 _____include(_____xiirv/.QUAD.11.2._____U) # # # # :Fin_listG_QUAD_13: # # # # # # qui montre la quadrangulation complete de l'arbre non aleatoire bidimensionnel # # correspondant a 'v $xiirv/QUAD.11' grace a la bijection de Schaeffer... # v $xiirv/QUAD.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_QUAD_21: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____ListerNoeudsEtiquettes=$NEXIST # # $Z SET _____GRouge=$GRIS_0 # # $Z SET _____GVerte=$GRIS_0 # # $Z SET _____GBleue=$GRIS_0 # # $Z set _____DeriveeXA=-8 # # $Z set _____DeriveeYA=0 # # $Z set _____DeriveeZA=+4 # # $Z set _____DeriveeXB=-8 # # $Z set _____DeriveeYB=0 # # $Z set _____DeriveeZB=+4 # # $Z set _____Zoom=0.45 # # $Z set _____TranslationY=-1.0 # # $Z set _____ImageR=$xiirv/QUAD.21 # # $m4 _____include(_____xiirv/.QUAD.21.1._____U) # # $m4 _____include(_____xiirv/.QUAD.11.2._____U) # # # # :Fin_listG_QUAD_21: # # # # # # qui montre la quadrangulation de l'arbre bidimensionnel de test suivant grace a la # # bijection de Schaeffer : # # # # # # NumeroNoeud=+0 EtiquetteNoeud=+0 # # NumeroNoeud=+1 EtiquetteNoeud=+1 # # NumeroNoeud=+2 EtiquetteNoeud=+2 # # NumeroNoeud=+3 EtiquetteNoeud=+1 # # NumeroNoeud=+4 EtiquetteNoeud=+2 # # NumeroNoeud=+5 EtiquetteNoeud=+3 # # NumeroNoeud=+6 EtiquetteNoeud=+2 # # NumeroNoeud=+7 EtiquetteNoeud=+1 # # NumeroNoeud=+8 EtiquetteNoeud=+2 # # NumeroNoeud=+9 EtiquetteNoeud=+3 # # NumeroNoeud=+10 EtiquetteNoeud=+2 # # NumeroNoeud=+11 EtiquetteNoeud=+3 # # NumeroNoeud=+12 EtiquetteNoeud=+2 # # NumeroNoeud=+13 EtiquetteNoeud=+1 # # # v $xiirv/QUAD.21.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_QUAD_21_2: # # # # $Z Pal # # # # $Z set _____Iterations=2 # # $Z set _____ImageR=$xiirv/QUAD.21 # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=$_____Iterations \ # # $Z R=$_____ImageR.$_____Iterations%s \ # # $Z $formatI # # # # :Fin_listG_QUAD_21_2: # # # v $xiirv/QUAD.22 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_QUAD_22: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____ListerNoeudsEtiquettes=$NEXIST # # $Z SET _____GRouge=$GRIS_0 # # $Z SET _____GVerte=$GRIS_0 # # $Z SET _____GBleue=$GRIS_0 # # $Z SET _____CDeriveeX=$EXIST # # $Z SET _____CDeriveeY=$EXIST # # $Z set _____DeriveeXA=+4 # # $Z set _____DeriveeYA=+1 # # $Z set _____DeriveeZA=+1 # # $Z set _____DeriveeXB=+4 # # $Z set _____DeriveeYB=+1 # # $Z set _____DeriveeZB=-1 # # $Z set _____Zoom=0.40 # # $Z set _____TranslationY=-1.2 # # $Z set _____ImageR=$xiirv/QUAD.22 # # $m4 _____include(_____xiirv/.QUAD.21.1._____U) # # $m4 _____include(_____xiirv/.QUAD.11.2._____U) # # # # :Fin_listG_QUAD_22: # # # # # # qui montre la quadrangulation complete de l'arbre bidimensionnel de test correspondant # # a 'v $xiirv/QUAD.21' grace a la bijection de Schaeffer... # v $xiirv/QUAD.31 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_QUAD_31: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____ListerNoeudsEtiquettes=$NEXIST # # $Z SET _____GRouge=$GRIS_0 # # $Z SET _____GVerte=$GRIS_0 # # $Z SET _____GBleue=$GRIS_0 # # $Z set _____DeriveeXA=-8 # # $Z set _____DeriveeYA=0 # # $Z set _____DeriveeZA=+16 # # $Z set _____DeriveeXB=-8 # # $Z set _____DeriveeYB=0 # # $Z set _____DeriveeZB=+16 # # $Z set _____Zoom=0.4 # # $Z set _____TranslationY=-1.0 # # $Z set _____ImageR=$xiirv/QUAD.31 # # $m4 _____include(_____xiirv/.QUAD.31.1._____U) # # $m4 _____include(_____xiirv/.QUAD.11.2._____U) # # # # :Fin_listG_QUAD_31: # # # # # # qui montre la quadrangulation de l'arbre bidimensionnel de test suivant grace a la # # bijection de Schaeffer : # # # # # # NumeroNoeud=+0 EtiquetteNoeud=+0 # # NumeroNoeud=+1 EtiquetteNoeud=+1 # # NumeroNoeud=+2 EtiquetteNoeud=+2 # # NumeroNoeud=+3 EtiquetteNoeud=+2 # # NumeroNoeud=+4 EtiquetteNoeud=+1 # # NumeroNoeud=+5 EtiquetteNoeud=+2 # # NumeroNoeud=+6 EtiquetteNoeud=+3 # # NumeroNoeud=+7 EtiquetteNoeud=+2 # # NumeroNoeud=+8 EtiquetteNoeud=+3 # # NumeroNoeud=+9 EtiquetteNoeud=+3 # # NumeroNoeud=+10 EtiquetteNoeud=+3 # # NumeroNoeud=+11 EtiquetteNoeud=+2 # # NumeroNoeud=+12 EtiquetteNoeud=+2 # # NumeroNoeud=+13 EtiquetteNoeud=+1 # # NumeroNoeud=+14 EtiquetteNoeud=+2 # # NumeroNoeud=+15 EtiquetteNoeud=+1 # # # v $xiirv/QUAD.32 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_QUAD_32: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____ListerNoeudsEtiquettes=$NEXIST # # $Z SET _____GRouge=$GRIS_0 # # $Z SET _____GVerte=$GRIS_0 # # $Z SET _____GBleue=$GRIS_0 # # $Z SET _____CDeriveeX=$EXIST # # $Z SET _____CDeriveeY=$EXIST # # $Z set _____DeriveeXA=+4 # # $Z set _____DeriveeYA=+1 # # $Z set _____DeriveeZA=+1 # # $Z set _____DeriveeXB=+4 # # $Z set _____DeriveeYB=+1 # # $Z set _____DeriveeZB=-1 # # $Z set _____Zoom=0.4 # # $Z set _____RayonA=0.030 # # $Z set _____RayonG=0.028 # # $Z set _____TranslationY=-1.0 # # $Z set _____ImageR=$xiirv/QUAD.32 # # $m4 _____include(_____xiirv/.QUAD.31.1._____U) # # $m4 _____include(_____xiirv/.QUAD.11.2._____U) # # # # :Fin_listG_QUAD_32: # # # # # # qui montre la quadrangulation complete de l'arbre bidimensionnel de test correspondant # # a 'v $xiirv/QUAD.31' grace a la bijection de Schaeffer... # v $xiirv/QUAD.41 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_QUAD_41: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____ListerNoeudsEtiquettes=$NEXIST # # $Z SET _____GRouge=$GRIS_0 # # $Z SET _____GVerte=$GRIS_0 # # $Z SET _____GBleue=$GRIS_0 # # $Z SET _____CDeriveeX=$EXIST # # $Z SET _____CDeriveeY=$EXIST # # $Z set _____DeriveeXA=-4 # # $Z set _____DeriveeYA=+4 # # $Z set _____DeriveeZA=0 # # $Z set _____DeriveeXB=+4 # # $Z set _____DeriveeYB=-4 # # $Z set _____DeriveeZB=0 # # $Z set _____Zoom=0.30 # # $Z set _____TranslationY=-1.0 # # $Z set _____RayonA=0.030 # # $Z set _____Couronne=1.5 # # $Z set _____ImageR=$xiirv/QUAD.41 # # $m4 _____include(_____xiirv/.QUAD.21.1._____U) # # $m4 _____include(_____xiirv/.QUAD.11.2._____U) # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$_____ImageR%s \ # # $Z points=9 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_QUAD_41: # # # # # # qui montre 'v $xiirv/QUAD.21' avec d'autres parametres de visualisation... # v $xiirv/QUAT.11 p=$xiP/montagnes.A2 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_11: # # # # $Z set _____imageR=$xiirv/QUAT.11 # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # # # :Fin_listG_QUAT_11: # # # v $xiirv/QUAT.12 p=$xiP/montagnes.A2 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_12: # # # # $Z set _____Parametres1="ct=3" # # $Z set _____Parametres2="ct=5" # # $Z set _____Parametres3="ct=7" # # $Z set _____Parametres4="ct=9" # # $Z set _____imageR=$xiirv/QUAT.12 # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # # # :Fin_listG_QUAT_12: # # # v $xiirv/QUAT.13 p=$xiP/montagnes.A2 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_13: # # # # $Z set _____Parametres1="ct=3" # # $Z set _____Parametres2="ct=6" # # $Z set _____Parametres3="ct=9" # # $Z set _____Parametres4="ct=12" # # $Z set _____imageR=$xiirv/QUAT.13 # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # # # :Fin_listG_QUAT_13: # # # v $xiirv/QUAT.14 p=$xiP/montagnes.A2 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_14: # # # # $Z set _____Parametres1="ct=3" # # $Z set _____Parametres2="ct=7" # # $Z set _____Parametres3="ct=11" # # $Z set _____Parametres4="ct=15" # # $Z set _____imageR=$xiirv/QUAT.14 # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # # # :Fin_listG_QUAT_14: # # # v $xiirv/QUAT.19 p=$xiP/montagnes.A2 v $xiirv/QUAT.19 p=$xiP/trou_noir.C4 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_19: # # # # $Z set _____Parametres1="ct=3" # # $Z set _____Parametres2="ct=13" # # $Z set _____Parametres3="ct=23" # # $Z set _____Parametres4="ct=33" # # $Z set _____imageR=$xiirv/QUAT.19 # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # # # :Fin_listG_QUAT_19: # # # v $xiirv/QUAT.21 p=$xiP/montagnes.A2 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_21: # # # # $Z set _____Champ1=trefle # # $Z set _____Parametres1="ct=3" # # $Z set _____Champ2=trefle # # $Z set _____Parametres2="ct=4" # # $Z set _____Champ3=trefle # # $Z set _____Parametres3="ct=5" # # $Z set _____Champ4=spiArchimede # # $Z set _____Parametres4="mr=2" # # $Z set _____imageR=$xiirv/QUAT.21 # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # # # :Fin_listG_QUAT_21: # # # v $xiirv/QUAT.22 p=$xiP/montagnes.A2 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_22: # # # # $Z set MoDuLo="$K_VIDE" # # $Z set MoDuLo="$MoDuLo"" FXYZmodulo=VRAI" # # $Z set MoDuLo="$MoDuLo"" FXmodi=-0.02 FXmods=+0.02" # # $Z set MoDuLo="$MoDuLo"" FYmodi=-0.02 FYmods=+0.02" # # # # $Z set _____Champ1=trefle # # $Z set _____Parametres1="ct=4 $MoDuLo" # # $Z set _____Champ2=trefle # # $Z set _____Parametres2="ct=8 $MoDuLo" # # $Z set _____Champ3=trefle # # $Z set _____Parametres3="ct=16 $MoDuLo" # # $Z set _____Champ4=spiArchimede # # $Z set _____Parametres4="mr=16 mt=4" # # $Z set _____imageR=$xiirv/QUAT.22 # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # # # :Fin_listG_QUAT_22: # # # v $xiirv/QUAT.31 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_31: # # # # $Z set _____PonderR=0 # # $Z set _____PonderI=1 # # $Z set _____PonderJ=0 # # $Z set _____PonderK=0 # # $Z set _____imageR=$xiirv/QUAT.31$ROUGE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # $Z set _____PonderR=0 # # $Z set _____PonderI=0 # # $Z set _____PonderJ=1 # # $Z set _____PonderK=0 # # $Z set _____imageR=$xiirv/QUAT.31$VERTE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # $Z set _____PonderR=0 # # $Z set _____PonderI=0 # # $Z set _____PonderJ=0 # # $Z set _____PonderK=1 # # $Z set _____imageR=$xiirv/QUAT.31$BLEUE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # # # $Z eval `$xci/genere$X \\\ # # $Z commande='($xci/complement$X \\\ # # $Z A=$xiirv/QUAT.31%s \\\ # # $Z R=$xiirv/QUAT.31%s \\\ # # $Z $formatI)' \\\ # # $Z en_tete=FAUX RVB=VRAI separateur=VRAI` # # # # $Z $xci/gauss$X \ # # $Z c=4 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/QUAT.31 \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z eval `$xci/genere$X \\\ # # $Z commande='($xci/interpole.02$X \\\ # # $Z A1=$xiirv/QUAT.31%s \\\ # # $Z A2=$xTV/LUMINANCE \\\ # # $Z P=$xTV/GAUSS \\\ # # $Z R=$xiirv/QUAT.31%s \\\ # # $Z $formatI)' \\\ # # $Z en_tete=FAUX RVB=VRAI separateur=VRAI` # # # # :Fin_listG_QUAT_31: # # # v $xiirv/QUAT.31.2 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_31_2: # # # # $Z set _____ImagesA=$xiirv/QUAT.31 # # $Z set _____Seuil_1=10 # # $Z set _____ImagesR=$xiirv/QUAT.31.2 # # $m4 _____include(_____xiirs/.LISE.11.1._____U) # # # # :Fin_listG_QUAT_31_2: # # # v $xiirv/QUAT.32 v $xiirv/QUAT.32$ROUGE p=$xiP/gris.01 v $xiirv/QUAT.32$VERTE p=$xiP/gris.01 v $xiirv/QUAT.32$BLEUE p=$xiP/gris.01 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_32: # # # # $Z Sdu # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS.1 \ # # $Z $formatI # # # # $Z $xci/random.01$X \ # # $Z standard=FAUX \ # # $Z graine=1111 \ # # $Z R=$xTV/RANDOM.11 \ # # $Z $formatI # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/RANDOM.11 \ # # $Z standardA=FAUX \ # # $Z N=$xTV/GAUSS.1 \ # # $Z seuil=253 \ # # $Z R=$xTV/RANDOM.21 \ # # $Z standardR=FAUX \ # # $Z $formatI # # # # $Z $xci/random.01$X \ # # $Z standard=FAUX \ # # $Z graine=3333 \ # # $Z R=$xTV/RANDOM.12 \ # # $Z $formatI # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/RANDOM.12 \ # # $Z standardA=FAUX \ # # $Z N=$xTV/GAUSS.1 \ # # $Z seuil=253 \ # # $Z R=$xTV/RANDOM.22 \ # # $Z standardR=FAUX \ # # $Z $formatI # # # # $Z $xci/random.01$X \ # # $Z standard=FAUX \ # # $Z graine=5555 \ # # $Z R=$xTV/RANDOM.13 \ # # $Z $formatI # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/RANDOM.13 \ # # $Z standardA=FAUX \ # # $Z N=$xTV/GAUSS.1 \ # # $Z seuil=253 \ # # $Z R=$xTV/RANDOM.23 \ # # $Z standardR=FAUX \ # # $Z $formatI # # # # $Z $xci/random.01$X \ # # $Z standard=FAUX \ # # $Z graine=7777 \ # # $Z R=$xTV/RANDOM.14 \ # # $Z $formatI # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/RANDOM.14 \ # # $Z standardA=FAUX \ # # $Z N=$xTV/GAUSS.1 \ # # $Z seuil=253 \ # # $Z R=$xTV/RANDOM.24 \ # # $Z standardR=FAUX \ # # $Z $formatI # # # # $Z set _____Champ1=neutre # # $Z set _____Parametres1="A=$xTV/RANDOM.21 standard=FAUX" # # $Z set _____Champ2=neutre # # $Z set _____Parametres2="A=$xTV/RANDOM.22 standard=FAUX" # # $Z set _____Champ3=neutre # # $Z set _____Parametres3="A=$xTV/RANDOM.23 standard=FAUX" # # $Z set _____Champ4=neutre # # $Z set _____Parametres4="A=$xTV/RANDOM.24 standard=FAUX" # # $Z set _____PonderR=0 # # $Z set _____PonderI=1 # # $Z set _____PonderJ=0 # # $Z set _____PonderK=0 # # $Z set _____imageR=$xiirv/QUAT.32$ROUGE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # $Z set _____PonderR=0 # # $Z set _____PonderI=0 # # $Z set _____PonderJ=1 # # $Z set _____PonderK=0 # # $Z set _____imageR=$xiirv/QUAT.32$VERTE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # $Z set _____PonderR=0 # # $Z set _____PonderI=0 # # $Z set _____PonderJ=0 # # $Z set _____PonderK=1 # # $Z set _____imageR=$xiirv/QUAT.32$BLEUE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # # # $Z eval `$xci/genere$X \\\ # # $Z commande='($xci/complement$X \\\ # # $Z A=$xiirv/QUAT.32%s \\\ # # $Z R=$xiirv/QUAT.32%s \\\ # # $Z $formatI)' \\\ # # $Z en_tete=FAUX RVB=VRAI separateur=VRAI` # # # # $Z $xci/gauss$X \ # # $Z c=4 \ # # $Z R=$xTV/GAUSS.2 \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/QUAT.32 \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z eval `$xci/genere$X \\\ # # $Z commande='($xci/interpole.02$X \\\ # # $Z A1=$xiirv/QUAT.32%s \\\ # # $Z A2=$xTV/LUMINANCE \\\ # # $Z P=$xTV/GAUSS.2 \\\ # # $Z R=$xiirv/QUAT.32%s \\\ # # $Z $formatI)' \\\ # # $Z en_tete=FAUX RVB=VRAI separateur=VRAI` # # # # :Fin_listG_QUAT_32: # # # v $xiirv/QUAT.33 v $xiirv/QUAT.33$ROUGE p=$xiP/gris.01 v $xiirv/QUAT.33$VERTE p=$xiP/gris.01 v $xiirv/QUAT.33$BLEUE p=$xiP/gris.01 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_33: # # # # $Z Sdu # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z recursivite=32 \ # # $Z graine=1111 \ # # $Z R=$xTV/FRACTAL.11 \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z recursivite=32 \ # # $Z graine=3333 \ # # $Z R=$xTV/FRACTAL.12 \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z recursivite=32 \ # # $Z graine=5555 \ # # $Z R=$xTV/FRACTAL.13 \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z recursivite=32 \ # # $Z graine=7777 \ # # $Z R=$xTV/FRACTAL.14 \ # # $Z $formatI # # # # $Z set _____Champ1=neutre # # $Z set _____Parametres1="A=$xTV/FRACTAL.11 standard=FAUX" # # $Z set _____Champ2=neutre # # $Z set _____Parametres2="A=$xTV/FRACTAL.12 standard=FAUX" # # $Z set _____Champ3=neutre # # $Z set _____Parametres3="A=$xTV/FRACTAL.13 standard=FAUX" # # $Z set _____Champ4=neutre # # $Z set _____Parametres4="A=$xTV/FRACTAL.14 standard=FAUX" # # $Z set _____PonderR=0 # # $Z set _____PonderI=1 # # $Z set _____PonderJ=0 # # $Z set _____PonderK=0 # # $Z set _____imageR=$xiirv/QUAT.33$ROUGE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # $Z set _____PonderR=0 # # $Z set _____PonderI=0 # # $Z set _____PonderJ=1 # # $Z set _____PonderK=0 # # $Z set _____imageR=$xiirv/QUAT.33$VERTE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # $Z set _____PonderR=0 # # $Z set _____PonderI=0 # # $Z set _____PonderJ=0 # # $Z set _____PonderK=1 # # $Z set _____imageR=$xiirv/QUAT.33$BLEUE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # # # $Z eval `$xci/genere$X \\\ # # $Z commande='($xci/complement$X \\\ # # $Z A=$xiirv/QUAT.33%s \\\ # # $Z R=$xiirv/QUAT.33%s \\\ # # $Z $formatI)' \\\ # # $Z en_tete=FAUX RVB=VRAI separateur=VRAI` # # # # $Z $xci/gauss$X \ # # $Z c=4 \ # # $Z R=$xTV/GAUSS.2 \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/QUAT.33 \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z eval `$xci/genere$X \\\ # # $Z commande='($xci/interpole.02$X \\\ # # $Z A1=$xiirv/QUAT.33%s \\\ # # $Z A2=$xTV/LUMINANCE \\\ # # $Z P=$xTV/GAUSS.2 \\\ # # $Z R=$xiirv/QUAT.33%s \\\ # # $Z $formatI)' \\\ # # $Z en_tete=FAUX RVB=VRAI separateur=VRAI` # # # # :Fin_listG_QUAT_33: # # # v $xiirv/QUAT.41 p=$xiP/dentscie.01 v $xiirv/QUAT.41 p=$xiP/montagnes.A2 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_QUAT_41: # # # # $Z set _____Champ1=trefle # # $Z set _____Parametres1="ct=23" # # # # $Z set _____Champ2=gauss # # $Z set _____Parametres2="c=16" # # # # $Z set _____Champ3=chapeau_mexi # # $Z set _____Parametres3="d=16" # # # # $Z set _____Champ4=spiArchimede # # $Z set _____Parametres4="mr=64 mt=1" # # # # $Z set _____imageR=$xiirv/QUAT.41 # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # # # :Fin_listG_QUAT_41: # # # v $xiirv/QUAT.42 p=$xiP/montagnes.A2 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_QUAT_42: # # # # $Z set _____Champ1=trefle # # $Z set _____Parametres1="ct=23" # # # # $Z set _____Champ2=gauss # # $Z set _____Parametres2="c=16" # # # # $Z set _____Champ3=chapeau_mexi # # $Z set _____Parametres3="d=16" # # # # $Z set _____Champ4=spiArchimede # # $Z set _____Parametres4="mr=128 mt=1" # # # # $Z set _____imageR=$xiirv/QUAT.42 # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # # # :Fin_listG_QUAT_42: # # # v $xiirv/QUAT.51 p=$xiP/montagnes.A2 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_QUAT_51: # # # # $Z set _____Champ1=trefle # # $Z set _____Parametres1="ct=03 cr=8 ROTATION_OX=0" # # $Z set _____Champ2=trefle # # $Z set _____Parametres2="ct=07 cr=8 ROTATION_OX=0.8" # # $Z set _____Champ3=trefle # # $Z set _____Parametres3="ct=13 cr=8 ROTATION_OX=1.9" # # $Z set _____Champ4=trefle # # $Z set _____Parametres4="ct=19 cr=8 ROTATION_OX=3.0" # # $Z set _____imageR=$xiirv/QUAT.51 # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # # # :Fin_listG_QUAT_51: # # # v $xiirv/QUAT.A1 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_QUAT_A1: # # # # $Z Pal # # # # $Z set _____imageR=$xiirv/QUAT.A1 # # $m4 _____include(_____xiirv/.QUAT.A1.1._____U) # # # # :Fin_listG_QUAT_A1: # # # v $xiirv/QUAT.a1 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_QUAT_a1: # # # # $Z Pal # # # # $Z set _____Arithmetique="$K_VIDE" # # $Z set _____Arithmetique="$_____Arithmetique"" arithmetique_etendue=VRAI" # # $Z set _____Arithmetique="$_____Arithmetique"" arithmetique_etendue_produit=VRAI" # # $Z set _____Arithmetique="$_____Arithmetique"" pxADD2_ADD2=0" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMIN2_ADD2=1" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMUL2_MUL2=0" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMAX2_MUL2=1" # # $Z set _____imageR=$xiirv/QUAT.a1 # # $m4 _____include(_____xiirv/.QUAT.A1.1._____U) # # # # :Fin_listG_QUAT_a1: # # # v $xiirv/QUAT.a1.1 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_a1_1: # # # # $Z Pal # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/QUAT.a1 \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/LUMINANCE \ # # $Z N=$xTV/GAUSS \ # # $Z seuil=240 \ # # $Z R=$xTV/FILTRE.1 \ # # $Z $formatI # # $Z $xci/substitue$X \ # # $Z A=$xTV/FILTRE.1 \ # # $Z p=$xiP/plan.08 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/SUBSTITUE.1 \ # # $Z $formatI # # # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/SUBSTITUE.1 \ # # $Z N=$xTV/GAUSS \ # # $Z seuil=240 \ # # $Z R=$xTV/FILTRE.2 \ # # $Z $formatI # # $Z $xci/substitue$X \ # # $Z A=$xTV/FILTRE.2 \ # # $Z p=$xiP/gris.A1 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/SUBSTITUE.2 \ # # $Z $formatI # # # # $Z set PaRaM="$K_VIDE" # # $Z set PaRaM="$PaRaM"" A1=$xiirv/QUAT.a1%s" # # $Z set PaRaM="$PaRaM"" A2=$xTV/SUBSTITUE.2" # # # # $Z execRVB $xci/multi_02.01$X $PaRaM R=$xTV/MULTI%s $formatI # # # # $Z set PaRaM="$K_VIDE" # # $Z set PaRaM="$PaRaM"" A=$xTV/MULTI%s" # # # # $Z execRVB $xci/complement$X $PaRaM R=$xiirv/QUAT.a1.1%s $formatI # # # # :Fin_listG_QUAT_a1_1: # # # v $xiirv/QUAT.a1.1.1 v $xiirv/QUAT.a1.1.2 v $xiirv/QUAT.a1.1.4 v $xiirv/QUAT.a1.1.5 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_QUAT_a1_1_1245: # # # # $Z Pal # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$xiirv/QUAT.a1.1%s \ # # $Z iterations=1 \ # # $Z R=$xiirv/QUAT.a1.1.1%s \ # # $Z $formatI # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$xiirv/QUAT.a1.1%s \ # # $Z iterations=2 \ # # $Z R=$xiirv/QUAT.a1.1.2%s \ # # $Z $formatI # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$xiirv/QUAT.a1.1%s \ # # $Z iterations=4 \ # # $Z R=$xiirv/QUAT.a1.1.4%s \ # # $Z $formatI # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$xiirv/QUAT.a1.1%s \ # # $Z iterations=5 \ # # $Z R=$xiirv/QUAT.a1.1.5%s \ # # $Z $formatI # # # # :Fin_listG_QUAT_a1_1_1245: # # # v $xiirv/QUAT.a2 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_QUAT_a2: # # # # $Z Pal # # # # $Z set _____Arithmetique="$K_VIDE" # # $Z set _____Arithmetique="$_____Arithmetique"" arithmetique_etendue=VRAI" # # $Z set _____Arithmetique="$_____Arithmetique"" arithmetique_etendue_produit=VRAI" # # $Z set _____Arithmetique="$_____Arithmetique"" pxADD2_ADD2=0" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMINMAX_ADD2=1" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMUL2_MUL2=0" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMINMAX_MUL2=1" # # $Z set _____imageR=$xiirv/QUAT.a2 # # $m4 _____include(_____xiirv/.QUAT.A1.1._____U) # # # # :Fin_listG_QUAT_a2: # # # v $xiirv/QUAT.a3 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_a3: # # # # $Z Pal # # # # $Z set _____Arithmetique="$K_VIDE" # # $Z set _____Arithmetique="$_____Arithmetique"" arithmetique_etendue=VRAI" # # $Z set _____Arithmetique="$_____Arithmetique"" arithmetique_etendue_produit=VRAI" # # $Z set _____Arithmetique="$_____Arithmetique"" pxADD2_ADD2=0" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMIN2_ADD2=1" # # $Z set _____Arithmetique="$_____Arithmetique"" ADD2_SOUS=VRAI" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMUL2_MUL2=0" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMAX2_MUL2=1" # # $Z set _____Arithmetique="$_____Arithmetique"" MUL2_DIVZ=VRAI" # # $Z set _____imageR=$xiirv/QUAT.a3 # # $m4 _____include(_____xiirv/.QUAT.A1.1._____U) # # # # :Fin_listG_QUAT_a3: # # # v $xiirv/QUAT.b1 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_QUAT_b1: # # # # $Z Pqu # # # # $Z set _____Arithmetique="$K_VIDE" # # $Z set _____Arithmetique="$_____Arithmetique"" arithmetique_etendue=VRAI" # # $Z set _____Arithmetique="$_____Arithmetique"" arithmetique_etendue_produit=VRAI" # # $Z set _____Arithmetique="$_____Arithmetique"" pxADD2_ADD2=0" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMIN2_ADD2=1" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMUL2_MUL2=0" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMAX2_MUL2=1" # # $Z set _____imageR=$xiirv/QUAT.b1 # # $m4 _____include(_____xiirv/.QUAT.A1.1._____U) # # # # :Fin_listG_QUAT_b1: # # # # # # Image identique a 'v $xiirv/QUAT.a1' en plus haute resolution... # v $xiirv/QUAT.b1.1 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_QUAT_b1_1: # # # # $Z Pqu # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/QUAT.b1 \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/LUMINANCE \ # # $Z N=$xTV/GAUSS \ # # $Z seuil=240 \ # # $Z R=$xTV/FILTRE.1 \ # # $Z $formatI # # $Z $xci/substitue$X \ # # $Z A=$xTV/FILTRE.1 \ # # $Z p=$xiP/plan.08 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/SUBSTITUE.1 \ # # $Z $formatI # # # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/SUBSTITUE.1 \ # # $Z N=$xTV/GAUSS \ # # $Z seuil=240 \ # # $Z R=$xTV/FILTRE.2 \ # # $Z $formatI # # $Z $xci/substitue$X \ # # $Z A=$xTV/FILTRE.2 \ # # $Z p=$xiP/gris.A1 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/SUBSTITUE.2 \ # # $Z $formatI # # # # $Z set PaRaM="$K_VIDE" # # $Z set PaRaM="$PaRaM"" A1=$xiirv/QUAT.b1%s" # # $Z set PaRaM="$PaRaM"" A2=$xTV/SUBSTITUE.2" # # # # $Z execRVB $xci/multi_02.01$X $PaRaM R=$xTV/MULTI%s $formatI # # # # $Z set PaRaM="$K_VIDE" # # $Z set PaRaM="$PaRaM"" A=$xTV/MULTI%s" # # # # $Z execRVB $xci/complement$X $PaRaM R=$xiirv/QUAT.b1.1%s $formatI # # # # :Fin_listG_QUAT_b1_1: # # # # # # Image identique a 'v $xiirv/QUAT.a1.1' en plus haute resolution... # v $xiirv/QUAT.D1 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_QUAT_D1: # # # # $Z Pal # # # # $Z set _____Champ1=trefle # # $Z set _____Parametres1="ct=23" # # # # $Z set _____Champ2=gauss # # $Z set _____Parametres2="c=16" # # # # $Z set _____Champ3=chapeau_mexi # # $Z set _____Parametres3="d=16" # # # # $Z set _____Champ4=spiArchimede # # $Z set _____Parametres4="mr=64 mt=1" # # # # $Z set _____imageR=$xiirv/QUAT.D1 # # $m4 _____include(_____xiirv/.QUAT.A1.1._____U) # # # # :Fin_listG_QUAT_D1: # # # v $xiirv/QUAT.D1.1 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_QUAT_D1_1: # # # # $Z Pal # # # # $Z set _____ImageA=$xiirv/QUAT.D1 # # $Z set EpAiSsEuR_X=160 # # $Z set EpAiSsEuR_Y=140 # # $Z set _____Xbg=`calculI $Xmin + ($dimX/2) - $EpAiSsEuR_X` # # $Z set _____Ybg=`calculI $Ymin + ($dimY/2) - $EpAiSsEuR_Y` # # $Z set _____Xhd=`calculI $Xmax - ($dimX/2) + $EpAiSsEuR_X` # # $Z set _____Yhd=`calculI $Ymax - ($dimY/2) + $EpAiSsEuR_Y` # # $Z set _____ImageR=$xiirv/QUAT.D1.1 # # $m4 _____include(_____xiirf/.BORD.11.1._____U) # # # # $Z set PaRaM="$K_VIDE" # # $Z set PaRaM="$PaRaM"" A=$_____ImageR%s" # # # # $Z execRVB $xci/complement$X $PaRaM R=$xTV/INVERSE%s $formatI # # # # $Z $xci/gauss$X \ # # $Z c=4 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirs/PROJ.G1.2 \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z A1=$xTV/GAUSS \ # # $Z R=$xTV/PONDERATEUR \ # # $Z $formatI # # # # $Z set PaRaM="$K_VIDE" # # $Z set PaRaM="$PaRaM"" A1=$_____ImageR%s" # # $Z set PaRaM="$PaRaM"" A2=$xTV/INVERSE%s" # # $Z set PaRaM="$PaRaM"" P=$xTV/PONDERATEUR" # # # # $Z execRVB $xci/interpole.02$X $PaRaM R=$_____ImageR%s $formatI # # # # :Fin_listG_QUAT_D1_1: # # # v $xiirv/QUAT.D1.2 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_D1_2: # # # # $Z set _____ImagesA=$xiirv/QUAT.D1 # # $Z set _____Seuil_1=10 # # $Z set _____ImagesR=$xiirv/QUAT.D1.2 # # $m4 _____include(_____xiirs/.LISE.11.1._____U) # # # # :Fin_listG_QUAT_D1_2: # # # v $xiirv/QUAT.d1 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_QUAT_d1: # # # # $Z Pal # # # # $Z set _____Champ1=trefle # # $Z set _____Parametres1="ct=23" # # # # $Z set _____Champ2=gauss # # $Z set _____Parametres2="c=16" # # # # $Z set _____Champ3=chapeau_mexi # # $Z set _____Parametres3="d=16" # # # # $Z set _____Champ4=spiArchimede # # $Z set _____Parametres4="mr=64 mt=1" # # # # $Z set _____Arithmetique="$K_VIDE" # # $Z set _____Arithmetique="$_____Arithmetique"" arithmetique_etendue=VRAI" # # $Z set _____Arithmetique="$_____Arithmetique"" arithmetique_etendue_produit=VRAI" # # $Z set _____Arithmetique="$_____Arithmetique"" pxADD2_ADD2=0" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMIN2_ADD2=1" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMUL2_MUL2=0" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMAX2_MUL2=1" # # $Z set _____imageR=$xiirv/QUAT.d1 # # $m4 _____include(_____xiirv/.QUAT.A1.1._____U) # # # # :Fin_listG_QUAT_d1: # # # v $xiirv/QUAT.D2 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_QUAT_D2: # # # # $Z Pal # # # # $Z set _____Champ1=trefle # # $Z set _____Parametres1="ct=23" # # # # $Z set _____Champ2=gauss # # $Z set _____Parametres2="c=16" # # # # $Z set _____Champ3=chapeau_mexi # # $Z set _____Parametres3="d=16" # # # # $Z set _____Champ4=spiArchimede # # $Z set _____Parametres4="mr=128 mt=1" # # # # $Z set _____imageR=$xiirv/QUAT.D2 # # $m4 _____include(_____xiirv/.QUAT.A1.1._____U) # # # # :Fin_listG_QUAT_D2: # # # v $xiirv/QUAT.d2 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_QUAT_d2: # # # # $Z Pal # # # # $Z set _____Champ1=trefle # # $Z set _____Parametres1="ct=23" # # # # $Z set _____Champ2=gauss # # $Z set _____Parametres2="c=16" # # # # $Z set _____Champ3=chapeau_mexi # # $Z set _____Parametres3="d=16" # # # # $Z set _____Champ4=spiArchimede # # $Z set _____Parametres4="mr=128 mt=1" # # # # $Z set _____Arithmetique="$K_VIDE" # # $Z set _____Arithmetique="$_____Arithmetique"" arithmetique_etendue=VRAI" # # $Z set _____Arithmetique="$_____Arithmetique"" arithmetique_etendue_produit=VRAI" # # $Z set _____Arithmetique="$_____Arithmetique"" pxADD2_ADD2=0" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMIN2_ADD2=1" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMUL2_MUL2=0" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMAX2_MUL2=1" # # $Z set _____imageR=$xiirv/QUAT.d2 # # $m4 _____include(_____xiirv/.QUAT.A1.1._____U) # # # # :Fin_listG_QUAT_d2: # # # v $xiirv/QUAT.D3 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_QUAT_D3: # # # # $Z Pal # # # # $Z set _____Champ1=spiArchimede # # $Z set _____Parametres1="mr=128 mt=5" # # # # $Z set _____Champ2=chapeau_mexi # # $Z set _____Parametres2="d=12" # # # # $Z set _____Champ3=gauss # # $Z set _____Parametres3="c=7" # # # # $Z set _____Champ4=trefle # # $Z set _____Parametres4="ct=33" # # # # $Z set _____imageR=$xiirv/QUAT.D3 # # $m4 _____include(_____xiirv/.QUAT.A1.1._____U) # # # # :Fin_listG_QUAT_D3: # # # v $xiirv/QUAT.d3 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_QUAT_d3: # # # # $Z Pal # # # # $Z set _____Champ1=spiArchimede # # $Z set _____Parametres1="mr=128 mt=5" # # # # $Z set _____Champ2=chapeau_mexi # # $Z set _____Parametres2="d=12" # # # # $Z set _____Champ3=gauss # # $Z set _____Parametres3="c=7" # # # # $Z set _____Champ4=trefle # # $Z set _____Parametres4="ct=33" # # # # $Z set _____Arithmetique="$K_VIDE" # # $Z set _____Arithmetique="$_____Arithmetique"" arithmetique_etendue=VRAI" # # $Z set _____Arithmetique="$_____Arithmetique"" arithmetique_etendue_produit=VRAI" # # $Z set _____Arithmetique="$_____Arithmetique"" pxADD2_ADD2=0" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMIN2_ADD2=1" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMUL2_MUL2=0" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMAX2_MUL2=1" # # $Z set _____imageR=$xiirv/QUAT.d3 # # $m4 _____include(_____xiirv/.QUAT.A1.1._____U) # # # # :Fin_listG_QUAT_d3: # v $xiirv/QUAT.D3.31 v $xiirv/QUAT.D3.31.1 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_D3_31: # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/QUAT.31 \ # # $Z R=$xTV/LUMINANCE.31 \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/QUAT.D3 \ # # $Z R=$xTV/LUMINANCE.D3 \ # # $Z $formatI # # # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=$xTV/LUMINANCE.31 \ # # $Z AI1=$xiirv/QUAT.31$ROUGE \ # # $Z AJ1=$xiirv/QUAT.31$VERTE \ # # $Z AK1=$xiirv/QUAT.31$BLEUE \ # # $Z AR2=$xTV/LUMINANCE.D3 \ # # $Z AI2=$xiirv/QUAT.D3$ROUGE \ # # $Z AJ2=$xiirv/QUAT.D3$VERTE \ # # $Z AK2=$xiirv/QUAT.D3$BLEUE \ # # $Z pr=0 pi=1 pj=0 pk=0 pm=0 pt=0 pp=0 pa=0 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.D3.31$ROUGE \ # # $Z $formatI # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=$xTV/LUMINANCE.31 \ # # $Z AI1=$xiirv/QUAT.31$ROUGE \ # # $Z AJ1=$xiirv/QUAT.31$VERTE \ # # $Z AK1=$xiirv/QUAT.31$BLEUE \ # # $Z AR2=$xTV/LUMINANCE.D3 \ # # $Z AI2=$xiirv/QUAT.D3$ROUGE \ # # $Z AJ2=$xiirv/QUAT.D3$VERTE \ # # $Z AK2=$xiirv/QUAT.D3$BLEUE \ # # $Z pr=0 pi=0 pj=1 pk=0 pm=0 pt=0 pp=0 pa=0 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.D3.31$VERTE \ # # $Z $formatI # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=$xTV/LUMINANCE.31 \ # # $Z AI1=$xiirv/QUAT.31$ROUGE \ # # $Z AJ1=$xiirv/QUAT.31$VERTE \ # # $Z AK1=$xiirv/QUAT.31$BLEUE \ # # $Z AR2=$xTV/LUMINANCE.D3 \ # # $Z AI2=$xiirv/QUAT.D3$ROUGE \ # # $Z AJ2=$xiirv/QUAT.D3$VERTE \ # # $Z AK2=$xiirv/QUAT.D3$BLEUE \ # # $Z pr=0 pi=0 pj=0 pk=1 pm=0 pt=0 pp=0 pa=0 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.D3.31$BLEUE \ # # $Z $formatI # # # # $Z $xci/SelfTrans.21$Z $xiirv/QUAT.D3.31 RVB $xiirv/QUAT.D3.31.1 # # # # :Fin_listG_QUAT_D3_31: # # # v $xiirv/QUAT.D4 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_QUAT_D4: # # # # $Z Pal # # # # $Z set _____Champ1=spiArchimede # # $Z set _____Parametres1="mr=128 mt=5" # # # # $Z set _____Champ2=chapeau_mexi # # $Z set _____Parametres2="d=8" # # # # $Z set _____Champ3=fract_2D.01 # # $Z set _____Parametres3="niveau=1 mx=0.05 my=0.05 graine=1789" # # # # $Z set _____Champ4=trefle # # $Z set _____Parametres4="ct=33" # # # # $Z set _____imageR=$xiirv/QUAT.D4 # # $m4 _____include(_____xiirv/.QUAT.A1.1._____U) # # # # :Fin_listG_QUAT_D4: # # # v $xiirv/QUAT.d4 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_QUAT_d4: # # # # $Z Pal # # # # $Z set _____Champ1=spiArchimede # # $Z set _____Parametres1="mr=128 mt=5" # # # # $Z set _____Champ2=chapeau_mexi # # $Z set _____Parametres2="d=8" # # # # $Z set _____Champ3=fract_2D.01 # # $Z set _____Parametres3="niveau=1 mx=0.05 my=0.05 graine=1789" # # # # $Z set _____Champ4=trefle # # $Z set _____Parametres4="ct=33" # # # # $Z set _____Arithmetique="$K_VIDE" # # $Z set _____Arithmetique="$_____Arithmetique"" arithmetique_etendue=VRAI" # # $Z set _____Arithmetique="$_____Arithmetique"" arithmetique_etendue_produit=VRAI" # # $Z set _____Arithmetique="$_____Arithmetique"" pxADD2_ADD2=0" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMIN2_ADD2=1" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMUL2_MUL2=0" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMAX2_MUL2=1" # # $Z set _____imageR=$xiirv/QUAT.d4 # # $m4 _____include(_____xiirv/.QUAT.A1.1._____U) # # # # :Fin_listG_QUAT_d4: # # # v $xiirv/QUAT.D4.1 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_D4_1: # # # # $Z $xci/interpole.02$X \ # # $Z A1=$xiirv/QUAT.D3$ROUGE \ # # $Z A2=$xiirv/QUAT.D3$VERTE \ # # $Z P=$xiirv/QUAT.D3$BLEUE \ # # $Z R=$xiirv/QUAT.D4.1$ROUGE \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z A1=$xiirv/QUAT.D3$VERTE \ # # $Z A2=$xiirv/QUAT.D3$BLEUE \ # # $Z P=$xiirv/QUAT.D3$ROUGE \ # # $Z R=$xiirv/QUAT.D4.1$VERTE \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z A1=$xiirv/QUAT.D3$BLEUE \ # # $Z A2=$xiirv/QUAT.D3$ROUGE \ # # $Z P=$xiirv/QUAT.D3$VERTE \ # # $Z R=$xiirv/QUAT.D4.1$BLEUE \ # # $Z $formatI # # # # :Fin_listG_QUAT_D4_1: # # # v $xiirv/QUAT.D4.31 v $xiirv/QUAT.D4.31.1 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_D4_31: # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/QUAT.31 \ # # $Z R=$xTV/LUMINANCE.31 \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/QUAT.D4 \ # # $Z R=$xTV/LUMINANCE.D4 \ # # $Z $formatI # # # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=$xTV/LUMINANCE.31 \ # # $Z AI1=$xiirv/QUAT.31$ROUGE \ # # $Z AJ1=$xiirv/QUAT.31$VERTE \ # # $Z AK1=$xiirv/QUAT.31$BLEUE \ # # $Z AR2=$xTV/LUMINANCE.D4 \ # # $Z AI2=$xiirv/QUAT.D4$ROUGE \ # # $Z AJ2=$xiirv/QUAT.D4$VERTE \ # # $Z AK2=$xiirv/QUAT.D4$BLEUE \ # # $Z pr=0 pi=1 pj=0 pk=0 pm=0 pt=0 pp=0 pa=0 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.D4.31$ROUGE \ # # $Z $formatI # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=$xTV/LUMINANCE.31 \ # # $Z AI1=$xiirv/QUAT.31$ROUGE \ # # $Z AJ1=$xiirv/QUAT.31$VERTE \ # # $Z AK1=$xiirv/QUAT.31$BLEUE \ # # $Z AR2=$xTV/LUMINANCE.D4 \ # # $Z AI2=$xiirv/QUAT.D4$ROUGE \ # # $Z AJ2=$xiirv/QUAT.D4$VERTE \ # # $Z AK2=$xiirv/QUAT.D4$BLEUE \ # # $Z pr=0 pi=0 pj=1 pk=0 pm=0 pt=0 pp=0 pa=0 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.D4.31$VERTE \ # # $Z $formatI # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=$xTV/LUMINANCE.31 \ # # $Z AI1=$xiirv/QUAT.31$ROUGE \ # # $Z AJ1=$xiirv/QUAT.31$VERTE \ # # $Z AK1=$xiirv/QUAT.31$BLEUE \ # # $Z AR2=$xTV/LUMINANCE.D4 \ # # $Z AI2=$xiirv/QUAT.D4$ROUGE \ # # $Z AJ2=$xiirv/QUAT.D4$VERTE \ # # $Z AK2=$xiirv/QUAT.D4$BLEUE \ # # $Z pr=0 pi=0 pj=0 pk=1 pm=0 pt=0 pp=0 pa=0 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.D4.31$BLEUE \ # # $Z $formatI # # # # $Z $xci/SelfTrans.21$Z $xiirv/QUAT.D4.31 RVB $xiirv/QUAT.D4.31.1 # # # # :Fin_listG_QUAT_D4_31: # # # v $xiirv/QUAT.E1 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_QUAT_E1: # # # # $Z Pal # # # # $Z set _____Champ1=trefle # # $Z set _____Parametres1="ct=03 cr=8 ROTATION_OX=0" # # $Z set _____Champ2=trefle # # $Z set _____Parametres2="ct=07 cr=8 ROTATION_OX=0.8" # # $Z set _____Champ3=trefle # # $Z set _____Parametres3="ct=13 cr=8 ROTATION_OX=1.9" # # $Z set _____Champ4=trefle # # $Z set _____Parametres4="ct=19 cr=8 ROTATION_OX=3.0" # # $Z set _____imageR=$xiirv/QUAT.E1 # # $m4 _____include(_____xiirv/.QUAT.A1.1._____U) # # # # :Fin_listG_QUAT_E1: # # # v $xiirv/QUAT.F1 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_F1: # # # # $Z Sdu # # # # $Z $xrs/project2D.01$Z \ # # $Z sphere.11 \ # # $Z $xTV/SPHE # # # # $Z set _____Champ1=spiArchimede # # $Z set _____Parametres1="mr=64 mt=2" # # $Z set _____Champ2=neutre # # $Z set _____Parametres2="A=$xTV/SPHE$COORD_X standard=FAUX" # # $Z set _____Champ3=neutre # # $Z set _____Parametres3="A=$xTV/SPHE$COORD_Y standard=FAUX" # # $Z set _____Champ4=neutre # # $Z set _____Parametres4="A=$xTV/SPHE$COORD_Z standard=FAUX" # # $Z set _____PonderR=0 # # $Z set _____PonderI=1 # # $Z set _____PonderJ=0 # # $Z set _____PonderK=0 # # $Z set _____imageR=$xiirv/QUAT.F1$ROUGE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # $Z set _____PonderR=0 # # $Z set _____PonderI=0 # # $Z set _____PonderJ=1 # # $Z set _____PonderK=0 # # $Z set _____imageR=$xiirv/QUAT.F1$VERTE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # $Z set _____PonderR=0 # # $Z set _____PonderI=0 # # $Z set _____PonderJ=0 # # $Z set _____PonderK=1 # # $Z set _____imageR=$xiirv/QUAT.F1$BLEUE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # # # $Z eval `$xci/genere$X \\\ # # $Z commande='($xci/complement$X \\\ # # $Z A=$xiirv/QUAT.F1%s \\\ # # $Z R=$xiirv/QUAT.F1%s \\\ # # $Z $formatI)' \\\ # # $Z en_tete=FAUX RVB=VRAI separateur=VRAI` # # # # $Z $xci/gauss$X \ # # $Z c=4 \ # # $Z R=$xTV/GAUSS.2 \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/QUAT.F1 \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z eval `$xci/genere$X \\\ # # $Z commande='($xci/interpole.02$X \\\ # # $Z A1=$xiirv/QUAT.F1%s \\\ # # $Z A2=$xTV/LUMINANCE \\\ # # $Z P=$xTV/GAUSS.2 \\\ # # $Z R=$xiirv/QUAT.F1%s \\\ # # $Z $formatI)' \\\ # # $Z en_tete=FAUX RVB=VRAI separateur=VRAI` # # # # :Fin_listG_QUAT_F1: # # # v $xiirv/QUAT.f1 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_QUAT_f1: # # # # $Z Sdu # # # # $Z $xrs/project2D.01$Z \ # # $Z sphere.11 \ # # $Z $xTV/SPHE # # # # $Z set _____Champ1=spiArchimede # # $Z set _____Parametres1="mr=64 mt=2" # # $Z set _____Champ2=neutre # # $Z set _____Parametres2="A=$xTV/SPHE$COORD_X standard=FAUX" # # $Z set _____Champ3=neutre # # $Z set _____Parametres3="A=$xTV/SPHE$COORD_Y standard=FAUX" # # $Z set _____Champ4=neutre # # $Z set _____Parametres4="A=$xTV/SPHE$COORD_Z standard=FAUX" # # $Z set _____Arithmetique="$K_VIDE" # # $Z set _____Arithmetique="$_____Arithmetique"" arithmetique_etendue=VRAI" # # $Z set _____Arithmetique="$_____Arithmetique"" arithmetique_etendue_produit=VRAI" # # $Z set _____Arithmetique="$_____Arithmetique"" pxADD2_ADD2=0" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMIN2_ADD2=1" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMUL2_MUL2=0" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMAX2_MUL2=1" # # $Z set _____PonderR=0 # # $Z set _____PonderI=1 # # $Z set _____PonderJ=0 # # $Z set _____PonderK=0 # # $Z set _____imageR=$xiirv/QUAT.f1$ROUGE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # $Z set _____PonderR=0 # # $Z set _____PonderI=0 # # $Z set _____PonderJ=1 # # $Z set _____PonderK=0 # # $Z set _____imageR=$xiirv/QUAT.f1$VERTE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # $Z set _____PonderR=0 # # $Z set _____PonderI=0 # # $Z set _____PonderJ=0 # # $Z set _____PonderK=1 # # $Z set _____imageR=$xiirv/QUAT.f1$BLEUE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # # # $Z eval `$xci/genere$X \\\ # # $Z commande='($xci/complement$X \\\ # # $Z A=$xiirv/QUAT.f1%s \\\ # # $Z R=$xiirv/QUAT.f1%s \\\ # # $Z $formatI)' \\\ # # $Z en_tete=FAUX RVB=VRAI separateur=VRAI` # # # # $Z $xci/gauss$X \ # # $Z c=4 \ # # $Z R=$xTV/GAUSS.2 \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/QUAT.f1 \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z eval `$xci/genere$X \\\ # # $Z commande='($xci/interpole.02$X \\\ # # $Z A1=$xiirv/QUAT.f1%s \\\ # # $Z A2=$xTV/LUMINANCE \\\ # # $Z P=$xTV/GAUSS.2 \\\ # # $Z R=$xiirv/QUAT.f1%s \\\ # # $Z $formatI)' \\\ # # $Z en_tete=FAUX RVB=VRAI separateur=VRAI` # # # # :Fin_listG_QUAT_f1: # # # v $xiirv/QUAT.f1.1 v $xiirv/QUAT.f1.2 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_f1_1_2: # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/QUAT.f1 \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/LUMINANCE \ # # $Z N=$xTV/GAUSS \ # # $Z seuil=240 \ # # $Z R=$xTV/FILTRE.1 \ # # $Z $formatI # # $Z $xci/substitue$X \ # # $Z A=$xTV/FILTRE.1 \ # # $Z p=$xiP/plan.08 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/SUBSTITUE.1 \ # # $Z $formatI # # # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/SUBSTITUE.1 \ # # $Z N=$xTV/GAUSS \ # # $Z seuil=240 \ # # $Z R=$xTV/FILTRE.2 \ # # $Z $formatI # # $Z $xci/substitue$X \ # # $Z A=$xTV/FILTRE.2 \ # # $Z p=$xiP/gris.A1 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/SUBSTITUE.2 \ # # $Z $formatI # # # # $Z set PaRaM="$K_VIDE" # # $Z set PaRaM="$PaRaM"" A1=$xiirv/QUAT.f1%s" # # $Z set PaRaM="$PaRaM"" A2=$xTV/SUBSTITUE.2" # # # # $Z execRVB $xci/multi_02.01$X $PaRaM R=$xiirv/QUAT.f1.1%s $formatI # # # # $Z set PaRaM="$K_VIDE" # # $Z set PaRaM="$PaRaM"" A=$xiirv/QUAT.f1.1%s" # # # # $Z execRVB $xci/complement$X $PaRaM R=$xTV/INVERSE%s $formatI # # # # $Z $xci/detourage.21$Z $xTV/INVERSE $xiirv/QUAT.f1.2 15 # # # # :Fin_listG_QUAT_f1_1_2: # # # v $xiirv/QUAT.F2 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_F2: # # # # $Z Sdu # # # # $Z $xrs/project2D.01$Z \ # # $Z bKlein.71 \ # # $Z $xTV/BKL7 # # # # $Z set _____Champ1=spiArchimede # # $Z set _____Parametres1="mr=64 mt=2" # # $Z set _____Champ2=neutre # # $Z set _____Parametres2="A=$xTV/BKL7$COORD_X standard=FAUX" # # $Z set _____Champ3=neutre # # $Z set _____Parametres3="A=$xTV/BKL7$COORD_Y standard=FAUX" # # $Z set _____Champ4=neutre # # $Z set _____Parametres4="A=$xTV/BKL7$COORD_Z standard=FAUX" # # $Z set _____PonderR=0 # # $Z set _____PonderI=1 # # $Z set _____PonderJ=0 # # $Z set _____PonderK=0 # # $Z set _____imageR=$xiirv/QUAT.F2$ROUGE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # $Z set _____PonderR=0 # # $Z set _____PonderI=0 # # $Z set _____PonderJ=1 # # $Z set _____PonderK=0 # # $Z set _____imageR=$xiirv/QUAT.F2$VERTE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # $Z set _____PonderR=0 # # $Z set _____PonderI=0 # # $Z set _____PonderJ=0 # # $Z set _____PonderK=1 # # $Z set _____imageR=$xiirv/QUAT.F2$BLEUE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # # # $Z eval `$xci/genere$X \\\ # # $Z commande='($xci/complement$X \\\ # # $Z A=$xiirv/QUAT.F2%s \\\ # # $Z R=$xiirv/QUAT.F2%s \\\ # # $Z $formatI)' \\\ # # $Z en_tete=FAUX RVB=VRAI separateur=VRAI` # # # # $Z $xci/gauss$X \ # # $Z c=4 \ # # $Z R=$xTV/GAUSS.2 \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/QUAT.F2 \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z eval `$xci/genere$X \\\ # # $Z commande='($xci/interpole.02$X \\\ # # $Z A1=$xiirv/QUAT.F2%s \\\ # # $Z A2=$xTV/LUMINANCE \\\ # # $Z P=$xTV/GAUSS.2 \\\ # # $Z R=$xiirv/QUAT.F2%s \\\ # # $Z $formatI)' \\\ # # $Z en_tete=FAUX RVB=VRAI separateur=VRAI` # # # # :Fin_listG_QUAT_F2: # # # v $xiirv/QUAT.F3 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_F3: # # # # $Z Sdu # # # # $Z $xrs/project2D.01$Z \ # # $Z bKlein.61 \ # # $Z $xTV/BKL6 # # # # $Z set _____Champ1=spiArchimede # # $Z set _____Parametres1="mr=64 mt=2" # # $Z set _____Champ2=neutre # # $Z set _____Parametres2="A=$xTV/BKL6$COORD_X standard=FAUX" # # $Z set _____Champ3=neutre # # $Z set _____Parametres3="A=$xTV/BKL6$COORD_Y standard=FAUX" # # $Z set _____Champ4=neutre # # $Z set _____Parametres4="A=$xTV/BKL6$COORD_Z standard=FAUX" # # $Z set _____PonderR=0 # # $Z set _____PonderI=1 # # $Z set _____PonderJ=0 # # $Z set _____PonderK=0 # # $Z set _____imageR=$xiirv/QUAT.F3$ROUGE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # $Z set _____PonderR=0 # # $Z set _____PonderI=0 # # $Z set _____PonderJ=1 # # $Z set _____PonderK=0 # # $Z set _____imageR=$xiirv/QUAT.F3$VERTE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # $Z set _____PonderR=0 # # $Z set _____PonderI=0 # # $Z set _____PonderJ=0 # # $Z set _____PonderK=1 # # $Z set _____imageR=$xiirv/QUAT.F3$BLEUE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # # # $Z eval `$xci/genere$X \\\ # # $Z commande='($xci/complement$X \\\ # # $Z A=$xiirv/QUAT.F3%s \\\ # # $Z R=$xiirv/QUAT.F3%s \\\ # # $Z $formatI)' \\\ # # $Z en_tete=FAUX RVB=VRAI separateur=VRAI` # # # # $Z $xci/gauss$X \ # # $Z c=4 \ # # $Z R=$xTV/GAUSS.2 \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/QUAT.F3 \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z eval `$xci/genere$X \\\ # # $Z commande='($xci/interpole.02$X \\\ # # $Z A1=$xiirv/QUAT.F3%s \\\ # # $Z A2=$xTV/LUMINANCE \\\ # # $Z P=$xTV/GAUSS.2 \\\ # # $Z R=$xiirv/QUAT.F3%s \\\ # # $Z $formatI)' \\\ # # $Z en_tete=FAUX RVB=VRAI separateur=VRAI` # # # # :Fin_listG_QUAT_F3: # # # v $xiirv/QUAT.G1 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_G1: # # # # $Z Sdu # # # # $Z $xrs/project2D.01$Z \ # # $Z bKlein.61 \ # # $Z $xTV/BKL6 # # $Z $xrs/project2D.01$Z \ # # $Z bKlein.71 \ # # $Z $xTV/BKL7 # # # # $Z set _____Champ1=neutre # # $Z set _____Parametres1="A=$xTV/BKL6$COORD_X standard=FAUX" # # $Z set _____Champ2=neutre # # $Z set _____Parametres2="A=$xTV/BKL6$COORD_Y standard=FAUX" # # $Z set _____Champ3=neutre # # $Z set _____Parametres3="A=$xTV/BKL7$COORD_X standard=FAUX" # # $Z set _____Champ4=neutre # # $Z set _____Parametres4="A=$xTV/BKL7$COORD_Y standard=FAUX" # # $Z set _____ZeroM=FAUX # # # # $Z set _____PonderR=0 # # $Z set _____PonderI=1 # # $Z set _____PonderJ=0 # # $Z set _____PonderK=0 # # $Z set _____PonderM=0 # # $Z set _____PonderT=1 # # $Z set _____PonderP=0 # # $Z set _____PonderA=0 # # $Z set _____imageR=$xiirv/QUAT.G1$ROUGE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # $Z set _____PonderR=0 # # $Z set _____PonderI=0 # # $Z set _____PonderJ=1 # # $Z set _____PonderK=0 # # $Z set _____PonderM=0 # # $Z set _____PonderT=0 # # $Z set _____PonderP=1 # # $Z set _____PonderA=0 # # $Z set _____imageR=$xiirv/QUAT.G1$VERTE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # $Z set _____PonderR=0 # # $Z set _____PonderI=0 # # $Z set _____PonderJ=0 # # $Z set _____PonderK=1 # # $Z set _____PonderM=0 # # $Z set _____PonderT=0 # # $Z set _____PonderP=0 # # $Z set _____PonderA=1 # # $Z set _____imageR=$xiirv/QUAT.G1$BLEUE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # # # $Z eval `$xci/genere$X \\\ # # $Z commande='($xci/complement$X \\\ # # $Z A=$xiirv/QUAT.G1%s \\\ # # $Z R=$xiirv/QUAT.G1%s \\\ # # $Z $formatI)' \\\ # # $Z en_tete=FAUX RVB=VRAI separateur=VRAI` # # # # $Z $xci/gauss$X \ # # $Z c=4 \ # # $Z R=$xTV/GAUSS.2 \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/QUAT.G1 \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z eval `$xci/genere$X \\\ # # $Z commande='($xci/interpole.02$X \\\ # # $Z A1=$xiirv/QUAT.G1%s \\\ # # $Z A2=$xTV/LUMINANCE \\\ # # $Z P=$xTV/GAUSS.2 \\\ # # $Z R=$xiirv/QUAT.G1%s \\\ # # $Z $formatI)' \\\ # # $Z en_tete=FAUX RVB=VRAI separateur=VRAI` # # # # :Fin_listG_QUAT_G1: # # # v $xiirv/QUAT.g1 # Generee (sur '$LACT15') par : # # # # # # :Debut_listG_QUAT_g1: # # # # $Z Sdu # # # # $Z $xrs/project2D.01$Z \ # # $Z bKlein.61 \ # # $Z $xTV/BKL6 # # $Z $xrs/project2D.01$Z \ # # $Z bKlein.71 \ # # $Z $xTV/BKL7 # # # # $Z set _____Champ1=neutre # # $Z set _____Parametres1="A=$xTV/BKL6$COORD_X standard=FAUX" # # $Z set _____Champ2=neutre # # $Z set _____Parametres2="A=$xTV/BKL6$COORD_Y standard=FAUX" # # $Z set _____Champ3=neutre # # $Z set _____Parametres3="A=$xTV/BKL7$COORD_X standard=FAUX" # # $Z set _____Champ4=neutre # # $Z set _____Parametres4="A=$xTV/BKL7$COORD_Y standard=FAUX" # # $Z set _____ZeroM=FAUX # # # # $Z set _____Arithmetique="$K_VIDE" # # $Z set _____Arithmetique="$_____Arithmetique"" arithmetique_etendue=VRAI" # # $Z set _____Arithmetique="$_____Arithmetique"" arithmetique_etendue_produit=VRAI" # # $Z set _____Arithmetique="$_____Arithmetique"" pxADD2_ADD2=0" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMIN2_ADD2=1" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMUL2_MUL2=0" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMAX2_MUL2=1" # # # # $Z set _____PonderR=0 # # $Z set _____PonderI=1 # # $Z set _____PonderJ=0 # # $Z set _____PonderK=0 # # $Z set _____PonderM=0 # # $Z set _____PonderT=1 # # $Z set _____PonderP=0 # # $Z set _____PonderA=0 # # $Z set _____imageR=$xiirv/QUAT.g1$ROUGE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # $Z set _____PonderR=0 # # $Z set _____PonderI=0 # # $Z set _____PonderJ=1 # # $Z set _____PonderK=0 # # $Z set _____PonderM=0 # # $Z set _____PonderT=0 # # $Z set _____PonderP=1 # # $Z set _____PonderA=0 # # $Z set _____imageR=$xiirv/QUAT.g1$VERTE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # $Z set _____PonderR=0 # # $Z set _____PonderI=0 # # $Z set _____PonderJ=0 # # $Z set _____PonderK=1 # # $Z set _____PonderM=0 # # $Z set _____PonderT=0 # # $Z set _____PonderP=0 # # $Z set _____PonderA=1 # # $Z set _____imageR=$xiirv/QUAT.g1$BLEUE # # $m4 _____include(_____xiirv/.QUAT.11.1._____U) # # # # $Z eval `$xci/genere$X \\\ # # $Z commande='($xci/complement$X \\\ # # $Z A=$xiirv/QUAT.g1%s \\\ # # $Z R=$xiirv/QUAT.g1%s \\\ # # $Z $formatI)' \\\ # # $Z en_tete=FAUX RVB=VRAI separateur=VRAI` # # # # $Z $xci/gauss$X \ # # $Z c=4 \ # # $Z R=$xTV/GAUSS.2 \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/QUAT.g1 \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z eval `$xci/genere$X \\\ # # $Z commande='($xci/interpole.02$X \\\ # # $Z A1=$xiirv/QUAT.g1%s \\\ # # $Z A2=$xTV/LUMINANCE \\\ # # $Z P=$xTV/GAUSS.2 \\\ # # $Z R=$xiirv/QUAT.g1%s \\\ # # $Z $formatI)' \\\ # # $Z en_tete=FAUX RVB=VRAI separateur=VRAI` # # # # :Fin_listG_QUAT_g1: # # # v $xiirv/QUAT.H1.1 v $xiirv/QUAT.H1.2 v $xiirv/QUAT.H1.3 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_H1: # # # # $Z Pal # # # # $Z $xci/gauss$X \ # # $Z standard=VRAI \ # # $Z Tx=0.4 Ty=0.4 \ # # $Z R=$xTV/GAUSS.01$ROUGE \ # # $Z $formatI # # $Z $xci/gauss$X \ # # $Z standard=VRAI \ # # $Z Tx=0.6 Ty=0.4 \ # # $Z R=$xTV/GAUSS.01$VERTE \ # # $Z $formatI # # $Z $xci/gauss$X \ # # $Z standard=VRAI \ # # $Z Tx=0.5 Ty=0.6 \ # # $Z R=$xTV/GAUSS.01$BLEUE \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=VRAI \ # # $Z Tx=0.4 Ty=0.4 \ # # $Z R=$xTV/TREFL.01$ROUGE \ # # $Z $formatI # # $Z $xci/trefle$X \ # # $Z standard=VRAI \ # # $Z Tx=0.6 Ty=0.4 \ # # $Z R=$xTV/TREFL.01$VERTE \ # # $Z $formatI # # $Z $xci/trefle$X \ # # $Z standard=VRAI \ # # $Z Tx=0.5 Ty=0.6 \ # # $Z R=$xTV/TREFL.01$BLEUE \ # # $Z $formatI # # # # $Z $xci/SelfTrans.11$Z $xTV/GAUSS.01 RVB $xTV/GAUSS.11 # # $Z $xci/SelfTrans.21$Z $xTV/GAUSS.01 RVB $xTV/GAUSS.12 # # # # $Z $xci/SelfTrans.11$Z $xTV/TREFL.01 RVB $xTV/TREFL.11 # # $Z $xci/SelfTrans.21$Z $xTV/TREFL.01 RVB $xTV/TREFL.12 # # # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=0 \ # # $Z AI1=$xTV/GAUSS.01$ROUGE \ # # $Z AJ1=$xTV/GAUSS.01$VERTE \ # # $Z AK1=$xTV/GAUSS.01$BLEUE \ # # $Z AR2=0 \ # # $Z AI2=$xTV/TREFL.01$ROUGE \ # # $Z AJ2=$xTV/TREFL.01$VERTE \ # # $Z AK2=$xTV/TREFL.01$BLEUE \ # # $Z pR=0 pI=1 pJ=0 pK=0 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.H1.1$ROUGE \ # # $Z $formatI # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=0 \ # # $Z AI1=$xTV/GAUSS.01$ROUGE \ # # $Z AJ1=$xTV/GAUSS.01$VERTE \ # # $Z AK1=$xTV/GAUSS.01$BLEUE \ # # $Z AR2=0 \ # # $Z AI2=$xTV/TREFL.01$ROUGE \ # # $Z AJ2=$xTV/TREFL.01$VERTE \ # # $Z AK2=$xTV/TREFL.01$BLEUE \ # # $Z pR=0 pI=0 pJ=1 pK=0 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.H1.1$VERTE \ # # $Z $formatI # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=0 \ # # $Z AI1=$xTV/GAUSS.01$ROUGE \ # # $Z AJ1=$xTV/GAUSS.01$VERTE \ # # $Z AK1=$xTV/GAUSS.01$BLEUE \ # # $Z AR2=0 \ # # $Z AI2=$xTV/TREFL.01$ROUGE \ # # $Z AJ2=$xTV/TREFL.01$VERTE \ # # $Z AK2=$xTV/TREFL.01$BLEUE \ # # $Z pR=0 pI=0 pJ=0 pK=1 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.H1.1$BLEUE \ # # $Z $formatI # # # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=0 \ # # $Z AI1=$xTV/GAUSS.11$ROUGE \ # # $Z AJ1=$xTV/GAUSS.11$VERTE \ # # $Z AK1=$xTV/GAUSS.11$BLEUE \ # # $Z AR2=0 \ # # $Z AI2=$xTV/TREFL.11$ROUGE \ # # $Z AJ2=$xTV/TREFL.11$VERTE \ # # $Z AK2=$xTV/TREFL.11$BLEUE \ # # $Z pR=0 pI=1 pJ=0 pK=0 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.H1.2$ROUGE \ # # $Z $formatI # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=0 \ # # $Z AI1=$xTV/GAUSS.11$ROUGE \ # # $Z AJ1=$xTV/GAUSS.11$VERTE \ # # $Z AK1=$xTV/GAUSS.11$BLEUE \ # # $Z AR2=0 \ # # $Z AI2=$xTV/TREFL.11$ROUGE \ # # $Z AJ2=$xTV/TREFL.11$VERTE \ # # $Z AK2=$xTV/TREFL.11$BLEUE \ # # $Z pR=0 pI=0 pJ=1 pK=0 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.H1.2$VERTE \ # # $Z $formatI # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=0 \ # # $Z AI1=$xTV/GAUSS.11$ROUGE \ # # $Z AJ1=$xTV/GAUSS.11$VERTE \ # # $Z AK1=$xTV/GAUSS.11$BLEUE \ # # $Z AR2=0 \ # # $Z AI2=$xTV/TREFL.11$ROUGE \ # # $Z AJ2=$xTV/TREFL.11$VERTE \ # # $Z AK2=$xTV/TREFL.11$BLEUE \ # # $Z pR=0 pI=0 pJ=0 pK=1 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.H1.2$BLEUE \ # # $Z $formatI # # # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=0 \ # # $Z AI1=$xTV/GAUSS.12$ROUGE \ # # $Z AJ1=$xTV/GAUSS.12$VERTE \ # # $Z AK1=$xTV/GAUSS.12$BLEUE \ # # $Z AR2=0 \ # # $Z AI2=$xTV/TREFL.12$ROUGE \ # # $Z AJ2=$xTV/TREFL.12$VERTE \ # # $Z AK2=$xTV/TREFL.12$BLEUE \ # # $Z pR=0 pI=1 pJ=0 pK=0 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.H1.3$ROUGE \ # # $Z $formatI # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=0 \ # # $Z AI1=$xTV/GAUSS.12$ROUGE \ # # $Z AJ1=$xTV/GAUSS.12$VERTE \ # # $Z AK1=$xTV/GAUSS.12$BLEUE \ # # $Z AR2=0 \ # # $Z AI2=$xTV/TREFL.12$ROUGE \ # # $Z AJ2=$xTV/TREFL.12$VERTE \ # # $Z AK2=$xTV/TREFL.12$BLEUE \ # # $Z pR=0 pI=0 pJ=1 pK=0 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.H1.3$VERTE \ # # $Z $formatI # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=0 \ # # $Z AI1=$xTV/GAUSS.12$ROUGE \ # # $Z AJ1=$xTV/GAUSS.12$VERTE \ # # $Z AK1=$xTV/GAUSS.12$BLEUE \ # # $Z AR2=0 \ # # $Z AI2=$xTV/TREFL.12$ROUGE \ # # $Z AJ2=$xTV/TREFL.12$VERTE \ # # $Z AK2=$xTV/TREFL.12$BLEUE \ # # $Z pR=0 pI=0 pJ=0 pK=1 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.H1.3$BLEUE \ # # $Z $formatI # # # # :Fin_listG_QUAT_H1: # # # v $xiirv/QUAT.h1.1 v $xiirv/QUAT.h1.2 v $xiirv/QUAT.h1.3 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_h1: # # # # $Z Pal # # # # $Z $xci/gauss$X \ # # $Z standard=VRAI \ # # $Z Tx=0.4 Ty=0.4 \ # # $Z R=$xTV/GAUSS.01$ROUGE \ # # $Z $formatI # # $Z $xci/gauss$X \ # # $Z standard=VRAI \ # # $Z Tx=0.6 Ty=0.4 \ # # $Z R=$xTV/GAUSS.01$VERTE \ # # $Z $formatI # # $Z $xci/gauss$X \ # # $Z standard=VRAI \ # # $Z Tx=0.5 Ty=0.6 \ # # $Z R=$xTV/GAUSS.01$BLEUE \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=VRAI \ # # $Z Tx=0.4 Ty=0.4 \ # # $Z R=$xTV/TREFL.01$ROUGE \ # # $Z $formatI # # $Z $xci/trefle$X \ # # $Z standard=VRAI \ # # $Z Tx=0.6 Ty=0.4 \ # # $Z R=$xTV/TREFL.01$VERTE \ # # $Z $formatI # # $Z $xci/trefle$X \ # # $Z standard=VRAI \ # # $Z Tx=0.5 Ty=0.6 \ # # $Z R=$xTV/TREFL.01$BLEUE \ # # $Z $formatI # # # # $Z $xci/SelfTrans.11$Z $xTV/GAUSS.01 RVB $xTV/GAUSS.11 # # $Z $xci/SelfTrans.21$Z $xTV/GAUSS.01 RVB $xTV/GAUSS.12 # # # # $Z $xci/SelfTrans.11$Z $xTV/TREFL.01 RVB $xTV/TREFL.11 # # $Z $xci/SelfTrans.21$Z $xTV/TREFL.01 RVB $xTV/TREFL.12 # # # # $Z set _____Arithmetique="$K_VIDE" # # $Z set _____Arithmetique="$_____Arithmetique"" arithmetique_etendue=VRAI" # # $Z set _____Arithmetique="$_____Arithmetique"" arithmetique_etendue_produit=VRAI" # # $Z set _____Arithmetique="$_____Arithmetique"" pxADD2_ADD2=0" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMIN2_ADD2=1" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMUL2_MUL2=0" # # $Z set _____Arithmetique="$_____Arithmetique"" pxMAX2_MUL2=1" # # # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=0 \ # # $Z AI1=$xTV/GAUSS.01$ROUGE \ # # $Z AJ1=$xTV/GAUSS.01$VERTE \ # # $Z AK1=$xTV/GAUSS.01$BLEUE \ # # $Z AR2=0 \ # # $Z AI2=$xTV/TREFL.01$ROUGE \ # # $Z AJ2=$xTV/TREFL.01$VERTE \ # # $Z AK2=$xTV/TREFL.01$BLEUE \ # # $Z $_____Arithmetique \ # # $Z pR=0 pI=1 pJ=0 pK=0 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.h1.1$ROUGE \ # # $Z $formatI # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=0 \ # # $Z AI1=$xTV/GAUSS.01$ROUGE \ # # $Z AJ1=$xTV/GAUSS.01$VERTE \ # # $Z AK1=$xTV/GAUSS.01$BLEUE \ # # $Z AR2=0 \ # # $Z AI2=$xTV/TREFL.01$ROUGE \ # # $Z AJ2=$xTV/TREFL.01$VERTE \ # # $Z AK2=$xTV/TREFL.01$BLEUE \ # # $Z $_____Arithmetique \ # # $Z pR=0 pI=0 pJ=1 pK=0 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.h1.1$VERTE \ # # $Z $formatI # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=0 \ # # $Z AI1=$xTV/GAUSS.01$ROUGE \ # # $Z AJ1=$xTV/GAUSS.01$VERTE \ # # $Z AK1=$xTV/GAUSS.01$BLEUE \ # # $Z AR2=0 \ # # $Z AI2=$xTV/TREFL.01$ROUGE \ # # $Z AJ2=$xTV/TREFL.01$VERTE \ # # $Z AK2=$xTV/TREFL.01$BLEUE \ # # $Z $_____Arithmetique \ # # $Z pR=0 pI=0 pJ=0 pK=1 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.h1.1$BLEUE \ # # $Z $formatI # # # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=0 \ # # $Z AI1=$xTV/GAUSS.11$ROUGE \ # # $Z AJ1=$xTV/GAUSS.11$VERTE \ # # $Z AK1=$xTV/GAUSS.11$BLEUE \ # # $Z AR2=0 \ # # $Z AI2=$xTV/TREFL.11$ROUGE \ # # $Z AJ2=$xTV/TREFL.11$VERTE \ # # $Z AK2=$xTV/TREFL.11$BLEUE \ # # $Z $_____Arithmetique \ # # $Z pR=0 pI=1 pJ=0 pK=0 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.h1.2$ROUGE \ # # $Z $formatI # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=0 \ # # $Z AI1=$xTV/GAUSS.11$ROUGE \ # # $Z AJ1=$xTV/GAUSS.11$VERTE \ # # $Z AK1=$xTV/GAUSS.11$BLEUE \ # # $Z AR2=0 \ # # $Z AI2=$xTV/TREFL.11$ROUGE \ # # $Z AJ2=$xTV/TREFL.11$VERTE \ # # $Z AK2=$xTV/TREFL.11$BLEUE \ # # $Z $_____Arithmetique \ # # $Z pR=0 pI=0 pJ=1 pK=0 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.h1.2$VERTE \ # # $Z $formatI # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=0 \ # # $Z AI1=$xTV/GAUSS.11$ROUGE \ # # $Z AJ1=$xTV/GAUSS.11$VERTE \ # # $Z AK1=$xTV/GAUSS.11$BLEUE \ # # $Z AR2=0 \ # # $Z AI2=$xTV/TREFL.11$ROUGE \ # # $Z AJ2=$xTV/TREFL.11$VERTE \ # # $Z AK2=$xTV/TREFL.11$BLEUE \ # # $Z $_____Arithmetique \ # # $Z pR=0 pI=0 pJ=0 pK=1 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.h1.2$BLEUE \ # # $Z $formatI # # # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=0 \ # # $Z AI1=$xTV/GAUSS.12$ROUGE \ # # $Z AJ1=$xTV/GAUSS.12$VERTE \ # # $Z AK1=$xTV/GAUSS.12$BLEUE \ # # $Z AR2=0 \ # # $Z AI2=$xTV/TREFL.12$ROUGE \ # # $Z AJ2=$xTV/TREFL.12$VERTE \ # # $Z AK2=$xTV/TREFL.12$BLEUE \ # # $Z $_____Arithmetique \ # # $Z pR=0 pI=1 pJ=0 pK=0 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.h1.3$ROUGE \ # # $Z $formatI # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=0 \ # # $Z AI1=$xTV/GAUSS.12$ROUGE \ # # $Z AJ1=$xTV/GAUSS.12$VERTE \ # # $Z AK1=$xTV/GAUSS.12$BLEUE \ # # $Z AR2=0 \ # # $Z AI2=$xTV/TREFL.12$ROUGE \ # # $Z AJ2=$xTV/TREFL.12$VERTE \ # # $Z AK2=$xTV/TREFL.12$BLEUE \ # # $Z $_____Arithmetique \ # # $Z pR=0 pI=0 pJ=1 pK=0 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.h1.3$VERTE \ # # $Z $formatI # # $Z $xci/multHC_02.01$X \ # # $Z standardA=VRAI \ # # $Z AR1=0 \ # # $Z AI1=$xTV/GAUSS.12$ROUGE \ # # $Z AJ1=$xTV/GAUSS.12$VERTE \ # # $Z AK1=$xTV/GAUSS.12$BLEUE \ # # $Z AR2=0 \ # # $Z AI2=$xTV/TREFL.12$ROUGE \ # # $Z AJ2=$xTV/TREFL.12$VERTE \ # # $Z AK2=$xTV/TREFL.12$BLEUE \ # # $Z $_____Arithmetique \ # # $Z pR=0 pI=0 pJ=0 pK=1 \ # # $Z standardR=VRAI \ # # $Z R=$xiirv/QUAT.h1.3$BLEUE \ # # $Z $formatI # # # # :Fin_listG_QUAT_h1: # # # v $xiirv/QUAT.h1.3.2 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_QUAT_h1_3_2: # # # # $Z set _____ImagesA=$xiirv/QUAT.h1.3 # # $Z set _____Seuil_1=20 # # $Z set _____ImagesR=$xTV/LISE.11 # # $m4 _____include(_____xiirs/.LISE.11.1._____U) # # # # $Z execRVB $xci/complement$X A=$xTV/LISE.11%s R=$xiirv/QUAT.h1.3.2%s $formatI # # # # :Fin_listG_QUAT_h1_3_2: # # # v $xiirv/RAND.91 p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_RAND_91: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z XYmaxNe 44 44 # # # # $Z $xci/random.02$X \ # # $Z graine=1789 \ # # $Z seuil=0.1609 \ # # $Z R=$xTV/RAND.11 \ # # $Z $formatI # # $Z $xci/format.01$X \ # # $Z A=$xTV/RAND.11 \ # # $Z $formatI \ # # $Z mode=0 \ # # $Z R=$xiirv/RAND.91 \ # # $Z $formatR_Std # # # # :Fin_listG_RAND_91: # # # # # # Cette image contient 307 points aleatoires et doit etre comparee a la spirale d'Ulam # # 'v $xiirv/PRIM.F2' qui 306 nombres premiers, plus le nombre '1', soit 307 points... # v $xiirv/RAPO.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_RAPO_11: # # # # $Z Sdu # # # # $Z set _____NIterations=10000 # # $Z set _____ImageR=$xiirv/RAPO.11 # # $m4 _____include(_____xiirv/.PIPO.11.1._____U) # # $m4 _____include(_____xiirv/.CHAM.41.9._____U) # # $m4 _____include(_____xiirv/.RAPO.11.2._____U) # # $m4 _____include(_____xiirv/.PIPO.11.3._____U) # # $m4 _____include(_____xiirv/.PIPO.11.4._____U) # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # :Fin_listG_RAPO_11: # # # # # # qui montre les 10000 chiffres aleatoires en base 10 comme une marche aleatoire en # # coordonnees polaires (dite "marche aleatoire absolue"). # v $xiirv/RDNW.a1.Champernowne.1 v $xiirv/RDNW.a1.Champernowne.2 v $xiirv/RDNW.a1.Champernowne.21 # Generee (sur '$CMAP28' -ex "porte-de-choisy"-) par : # # # # # # :Debut_listG_RDNW_a1_Champernowne: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.a1.Champernowne.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Champernowne_____100000.09 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xiirv/RDNW.a1.Champernowne # # $m4 _____include(_____xiirv/.RDNW.a1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPO.a1.Champernowne.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_a1_Champernowne: # # # # # # qui montre les 99999 premieres decimales en base 10 du nombre de 'Champernowne' comme # # une marche aleatoire en coordonnees cartesiennes tridimensionnelles. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-16.524,+2.762]x[-17.022,+2.255]x[-17.521,+1.759] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:06:35 # # # # $xci/accumule.42$X : 00:48:20 # # # v $xiirv/RDNW.a1.e.1 v $xiirv/RDNW.a1.e.2 v $xiirv/RDNW.a1.e.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_RDNW_a1_e: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.a1.e.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_E_____100000.09 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xiirv/RDNW.a1.e # # $m4 _____include(_____xiirv/.RDNW.a1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPO.a1.e.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_a1_e: # # # # # # qui montre les 99999 premieres decimales en base 10 de 'e' comme une marche aleatoire en # # coordonnees cartesiennes tridimensionnelles. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-0.371,+0.527]x[+0.386,+1.071]x[-0.935,+0.333] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:33:00 # # # # $xci/accumule.42$X : 01:04:08 # # # v $xiirv/RDNW.a1.phi.1 v $xiirv/RDNW.a1.phi.2 v $xiirv/RDNW.a1.phi.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_RDNW_a1_phi: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.a1.phi.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Phi_____100000.09 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xiirv/RDNW.a1.phi # # $m4 _____include(_____xiirv/.RDNW.a1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPO.a1.phi.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_a1_phi: # # # # # # qui montre les 99999 premieres decimales en base 10 de 'phi' comme une marche aleatoire en # # coordonnees cartesiennes tridimensionnelles. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.073,+0.694]x[+0.064,+0.602]x[-0.280,+0.839] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:33:29 # # # # $xci/accumule.42$X : 00:51:34 # # # v $xiirv/RDNW.a1.pi.1 v $xiirv/RDNW.a1.pi.2 v $xiirv/RDNW.a1.pi.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_RDNW_a1_pi: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.a1.pi.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000.09 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xiirv/RDNW.a1.pi # # $m4 _____include(_____xiirv/.RDNW.a1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPO.a1.pi.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_a1_pi: # # # # # # qui montre les 99999 premieres decimales en base 10 de 'pi' comme une marche aleatoire en # # coordonnees cartesiennes tridimensionnelles. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.138,+0.827]x[+0.222,+0.982]x[-0.612,+0.197] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:42:13 # # # # $xci/accumule.42$X : 01:10:01 # # # v $xiirv/RDNW.a1.racine2.1 v $xiirv/RDNW.a1.racine2.2 v $xiirv/RDNW.a1.racine2.21 # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_RDNW_a1_racine2: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.a1.racine2.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Sqrt2_____100000.09 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xiirv/RDNW.a1.racine2 # # $m4 _____include(_____xiirv/.RDNW.a1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPO.a1.racine2.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_a1_racine2: # # # # # # qui montre les 99999 premieres decimales en base 10 de racine de 2 comme une marche # # aleatoire en coordonnees cartesiennes tridimensionnelles. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.390,+1.0772]x[+0.091,+0.762]x[-0.627,+0.402] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:43:33 # # # # $xci/accumule.42$X : 01:46:37 # # # v $xiirv/RDNW.a1.rdn.1 v $xiirv/RDNW.a1.rdn.2 v $xiirv/RDNW.a1.rdn.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_RDNW_a1_rdn: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.a1.rdn.T # # # # $Z FilSTmpB _____FDecimales # # # # $Z set _____NChiffres=99999 # # # # $Z $xrv/val_alea.01$X \ # # $Z ne=$_____NChiffres \ # # $Z graine=1947 \ # # $Z LISTE_BORNES_INFERIEURES=0 \ # # $Z LISTE_BORNES_SUPERIEURES=`calculINS $Base10-1` \ # # $Z formater=VRAI entiers=VRAI signe="$K_VIDE" \ # # $Z message_borne_superieure_entiere=FAUX \ # # $Z >> $_____FDecimales # # # # $Z echo "Premiere decimale." # # $Z $HEA -20 $_____FDecimales # # $Z echo "Derniere decimale." # # # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xiirv/RDNW.a1.rdn # # $m4 _____include(_____xiirv/.RDNW.a1.1._____U) # # $Z FilSTmpE _____FDecimales # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPO.a1.rdn.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_a1_rdn: # # # # # # qui montre les 99999 premieres decimales en base 10 d'un nombre (0.19049684143338106635...) # # aleatoire comme une marche aleatoire en coordonnees cartesiennes tridimensionnelles. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.129,+0.93]x[+0.195,+0.713]x[-0.198,+0.238] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:33:13 # # # # $xci/accumule.42$X : 01:03:54 # # # v $xiirv/RDNW.b1.Champernowne.1 v $xiirv/RDNW.b1.Champernowne.2 v $xiirv/RDNW.b1.Champernowne.21 # Generee (sur '$CMAP28' -ex "porte-de-choisy"-) par : # # # # # # :Debut_listG_RDNW_b1_Champernowne: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.b1.Champernowne.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Champernowne_____100000.09 # # $Z set _____NChiffres=100000 # # $Z set _____Zoom=0.001 # # $Z set _____ImageR=$xiirv/RDNW.b1.Champernowne # # $m4 _____include(_____xiirv/.RDNW.b1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPO.b1.Champernowne.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_b1_Champernowne: # # # # # # qui montre les 100000 premieres decimales en base 10 du nombre de 'Champernowne' comme # # une marche aleatoire en coordonnees spheriques. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.476,+0.555]x[+0.499,+0.549]x[-0.001,+0.120] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:07:01 # # # # $xci/accumule.42$X : 00:47:00 # # # v $xiirv/RDNW.b1.e.1 v $xiirv/RDNW.b1.e.2 v $xiirv/RDNW.b1.e.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_RDNW_b1_e: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.b1.e.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_E_____100000.09 # # $Z set _____NChiffres=100000 # # $Z set _____Zoom=0.001 # # $Z set _____ImageR=$xiirv/RDNW.b1.e # # $m4 _____include(_____xiirv/.RDNW.b1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPO.b1.e.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_b1_e: # # # # # # qui montre les 100000 premieres decimales en base 10 de 'e' comme une marche aleatoire en # # coordonnees spheriques. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.499,+0.503]x[+0.499,+0.502]x[-0.004,+7.352-05] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:24:42 # # # # $xci/accumule.42$X : 01:02:23 # # # v $xiirv/RDNW.b1.phi.1 v $xiirv/RDNW.b1.phi.2 v $xiirv/RDNW.b1.phi.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_RDNW_b1_phi: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.b1.phi.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Phi_____100000.09 # # $Z set _____NChiffres=100000 # # $Z set _____Zoom=0.001 # # $Z set _____ImageR=$xiirv/RDNW.b1.phi # # $m4 _____include(_____xiirv/.RDNW.b1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPO.b1.phi.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_b1_phi: # # # # # # qui montre les 100000 premieres decimales en base 10 de 'phi' comme une marche aleatoire en # # coordonnees spheriques. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.498,+0.505]x[+0.497,+0.501]x[-0.002,+0.002] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:18:18 # # # # $xci/accumule.42$X : 00:50:31 # # # v $xiirv/RDNW.b1.pi.1 v $xiirv/RDNW.b1.pi.2 v $xiirv/RDNW.b1.pi.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_RDNW_b1_pi: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.b1.pi.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000.09 # # $Z set _____NChiffres=100000 # # $Z set _____Zoom=0.001 # # $Z set _____ImageR=$xiirv/RDNW.b1.pi # # $m4 _____include(_____xiirv/.RDNW.b1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPO.b1.pi.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_b1_pi: # # # # # # qui montre les 100000 premieres decimales en base 10 de 'pi' comme une marche aleatoire en # # coordonnees spheriques. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.499,+0.503]x[+0.497,+0.500]x[-0.001,+0.006] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:24:23 # # # # $xci/accumule.42$X : 01:07:35 # # # v $xiirv/RDNW.b1.racine2.1 v $xiirv/RDNW.b1.racine2.2 v $xiirv/RDNW.b1.racine2.21 # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_RDNW_b1_racine2: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.b1.racine2.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Sqrt2_____100000.09 # # $Z set _____NChiffres=100000 # # $Z set _____Zoom=0.001 # # $Z set _____ImageR=$xiirv/RDNW.b1.racine2 # # $m4 _____include(_____xiirv/.RDNW.b1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPO.b1.racine2.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_b1_racine2: # # # # # # qui montre les 100000 premieres decimales en base 10 de racine de 2 comme une marche # # aleatoire en coordonnees spheriques. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.499,+0.506]x[+0.496,+0.500]x[-0.001,+0.003] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:33:03 # # # # $xci/accumule.42$X : 01:44:40 # # # v $xiirv/RDNW.b1.rdn.1 v $xiirv/RDNW.b1.rdn.2 v $xiirv/RDNW.b1.rdn.21 # Generee (sur '$CMAP28' -ex "porte-d-orleans"-) par : # # # # # # :Debut_listG_RDNW_b1_rdn: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.b1.rdn.T # # # # $Z FilSTmpB _____FDecimales # # # # $Z set _____NChiffres=100000 # # # # $Z $xrv/val_alea.01$X \ # # $Z ne=$_____NChiffres \ # # $Z graine=1947 \ # # $Z LISTE_BORNES_INFERIEURES=0 \ # # $Z LISTE_BORNES_SUPERIEURES=`calculINS $Base10-1` \ # # $Z formater=VRAI entiers=VRAI signe="$K_VIDE" \ # # $Z message_borne_superieure_entiere=FAUX \ # # $Z >> $_____FDecimales # # # # $Z echo "Premiere decimale." # # $Z $HEA -20 $_____FDecimales # # $Z echo "Derniere decimale." # # # # $Z set _____Zoom=0.001 # # $Z set _____ImageR=$xiirv/RDNW.b1.rdn # # $m4 _____include(_____xiirv/.RDNW.b1.1._____U) # # $Z FilSTmpE _____FDecimales # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPO.b1.rdn.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_b1_rdn: # # # # # # qui montre les 100000 premieres decimales en base 10 d'un nombre (0.1904968414333810663...) # # aleatoire comme une marche aleatoire en coordonnees spheriques. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.499,+0.507]x[+0.496,+0.500]x[-0.001,+0.000] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:19:23 # # # # $xci/accumule.42$X : 00:52:51 # # # v $xiirv/RDNW.c1.Champernowne.1 v $xiirv/RDNW.c1.Champernowne.2 v $xiirv/RDNW.c1.Champernowne.21 # Generee (sur '$CMAP28' -ex "porte-d-auteuil"-) par : # # # # # # :Debut_listG_RDNW_c1_Champernowne: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.c1.Champernowne.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Champernowne_____100000.09 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.001 # # $Z set _____ImageR=$xiirv/RDNW.c1.Champernowne # # $m4 _____include(_____xiirv/.RDNW.c1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPO.b1.Champernowne.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_c1_Champernowne: # # # # # # qui montre les 100000 premieres decimales en base 10 du nombre de 'Champernowne' comme # # une marche aleatoire en coordonnees spheriques. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.489,+0.555]x[+0.499,+0.545]x[-0.009,+0.104] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:09:02 # # # # $xci/accumule.42$X : 01:00:57 # # # v $xiirv/RDNW.c1.e.1 v $xiirv/RDNW.c1.e.2 v $xiirv/RDNW.c1.e.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_RDNW_c1_e: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.c1.e.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_E_____100000.09 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.001 # # $Z set _____ImageR=$xiirv/RDNW.c1.e # # $m4 _____include(_____xiirv/.RDNW.c1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPO.b1.e.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_c1_e: # # # # # # qui montre les 100000 premieres decimales en base 10 de 'e' comme une marche aleatoire en # # coordonnees spheriques. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.499,+0.502]x[+0.497,+0.500]x[-0.002,+0.002] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:34:48 # # # # $xci/accumule.42$X : 01:02:08 # # # v $xiirv/RDNW.c1.e$M v $xiirv/RDNW.c1.e$M.1 # Generee (sur '$LACT1A) par : # # # # # # :Debut_listG_RDNW_c1_e_M: # # # # $Z Squ # # # # $Z set _____ImagesA=$xiirv/RDNW.c1.e # # $Z set _____ImageR=$_____ImagesA$M # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImagesA.1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=500 \ # # $Z navap=VRAI \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z echelle=0.1 \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$_____ImagesA.21%s \ # # $Z avion=FAUX \ # # $Z perspective=1.0 \ # # $Z Ty=1.0 \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # $Z execRVB $xci/spiralise$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI # # # # :Fin_listG_RDNW_c1_e_M: # # # v $xiirv/RDNW.c1.phi.1 v $xiirv/RDNW.c1.phi.2 v $xiirv/RDNW.c1.phi.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_RDNW_c1_phi: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.c1.phi.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Phi_____100000.09 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.001 # # $Z set _____ImageR=$xiirv/RDNW.c1.phi # # $m4 _____include(_____xiirv/.RDNW.c1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPO.b1.phi.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_c1_phi: # # # # # # qui montre les 100000 premieres decimales en base 10 de 'phi' comme une marche aleatoire en # # coordonnees spheriques. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.499,+0.504]x[+0.499,+0.502]x[-0.000,+0.004] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:22:00 # # # # $xci/accumule.42$X : 00:52:23 # # # v $xiirv/RDNW.c1.pi.1 v $xiirv/RDNW.c1.pi.2 v $xiirv/RDNW.c1.pi.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_RDNW_c1_pi: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.c1.pi.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000.09 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.001 # # $Z set _____ImageR=$xiirv/RDNW.c1.pi # # $m4 _____include(_____xiirv/.RDNW.c1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPO.b1.pi.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_c1_pi: # # # # # # qui montre les 100000 premieres decimales en base 10 de 'pi' comme une marche aleatoire en # # coordonnees spheriques. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.499,+0.502]x[+0.498,+0.501]x[-0.003,+0.001] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:42:47 # # # # $xci/accumule.42$X : 01:08:05 # # # v $xiirv/RDNW.c1.racine2.1 v $xiirv/RDNW.c1.racine2.2 v $xiirv/RDNW.c1.racine2.21 # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_RDNW_c1_racine2: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.c1.racine2.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Sqrt2_____100000.09 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.001 # # $Z set _____ImageR=$xiirv/RDNW.c1.racine2 # # $m4 _____include(_____xiirv/.RDNW.c1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPO.b1.racine2.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_c1_racine2: # # # # # # qui montre les 100000 premieres decimales en base 10 de racine de 2 comme une marche # # aleatoire en coordonnees spheriques. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.499,+0.511]x[+0.497,+0.500]x[-0.002,+0.003] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:28:48 # # # # $xci/accumule.42$X : 01:48:04 # # # v $xiirv/RDNW.c1.rdn.1 v $xiirv/RDNW.c1.rdn.2 v $xiirv/RDNW.c1.rdn.21 # Generee (sur '$CMAP28' -ex "porte-d-orleans"-) par : # # # # # # :Debut_listG_RDNW_c1_rdn: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.c1.rdn.T # # # # $Z FilSTmpB _____FDecimales # # # # $Z set _____NChiffres=99999 # # # # $Z $xrv/val_alea.01$X \ # # $Z ne=$_____NChiffres \ # # $Z graine=1947 \ # # $Z LISTE_BORNES_INFERIEURES=0 \ # # $Z LISTE_BORNES_SUPERIEURES=`calculINS $Base10-1` \ # # $Z formater=VRAI entiers=VRAI signe="$K_VIDE" \ # # $Z message_borne_superieure_entiere=FAUX \ # # $Z >> $_____FDecimales # # # # $Z echo "Premiere decimale." # # $Z $HEA -20 $_____FDecimales # # $Z echo "Derniere decimale." # # # # $Z set _____Zoom=0.001 # # $Z set _____ImageR=$xiirv/RDNW.c1.rdn # # $m4 _____include(_____xiirv/.RDNW.c1.1._____U) # # $Z FilSTmpE _____FDecimales # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z set _____DemiPaveX=4 # # $Z set _____DemiPaveY=4 # # $Z set _____DemiPaveZ=4 # # $Z set _____ImageS=$xTV/PIPO.b1.rdn.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_c1_rdn: # # # # # # qui montre les 100000 premieres decimales en base 10 d'un nombre (0.1904968414333810663...) # # aleatoire comme une marche aleatoire en coordonnees spheriques. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.499,+0.507]x[+0.493,+0.500]x[-0.001,+0.003] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:17:01 # # # # $xci/accumule.42$X : 00:51:46 # # # v $xiirv/RDNW.d1.Champernowne.1 v $xiirv/RDNW.d1.Champernowne.2 v $xiirv/RDNW.d1.Champernowne.21 # Generee (sur '$CMAP28' -ex "porte-d-auteuil"-) par : # # # # # # :Debut_listG_RDNW_d1_Champernowne: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.d1.Champernowne.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Champernowne_____100000.09 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.001 # # $Z set _____ImageR=$xiirv/RDNW.d1.Champernowne # # $m4 _____include(_____xiirv/.RDNW.c1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z _____include(_____xiirv/.RDNW.d1.1._____U) # # # # $Z set _____ImageS=$xTV/PIPO.b1.Champernowne.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_d1_Champernowne: # # # # # # qui montre les 100000 premieres decimales en base 10 du nombre de 'Champernowne' comme # # une marche aleatoire en coordonnees spheriques. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.489,+0.555]x[+0.499,+0.545]x[-0.009,+0.104] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:08:54 # # # # $xci/accumule.42$X : 01:01:19 # # # v $xiirv/RDNW.d1.e.1 v $xiirv/RDNW.d1.e.2 v $xiirv/RDNW.d1.e.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_RDNW_d1_e: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.d1.e.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_E_____100000.09 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.001 # # $Z set _____ImageR=$xiirv/RDNW.d1.e # # $m4 _____include(_____xiirv/.RDNW.c1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z _____include(_____xiirv/.RDNW.d1.1._____U) # # # # $Z set _____ImageS=$xTV/PIPO.b1.e.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_d1_e: # # # # # # qui montre les 100000 premieres decimales en base 10 de 'e' comme une marche aleatoire en # # coordonnees spheriques. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.499,+0.502]x[+0.497,+0.500]x[-0.002,+0.002] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:33:41 # # # # $xci/accumule.42$X : 01:07:11 # # # v $xiirv/RDNW.d1.phi.1 v $xiirv/RDNW.d1.phi.2 v $xiirv/RDNW.d1.phi.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_RDNW_d1_phi: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.d1.phi.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Phi_____100000.09 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.001 # # $Z set _____ImageR=$xiirv/RDNW.d1.phi # # $m4 _____include(_____xiirv/.RDNW.c1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z _____include(_____xiirv/.RDNW.d1.1._____U) # # # # $Z set _____ImageS=$xTV/PIPO.b1.phi.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_d1_phi: # # # # # # qui montre les 100000 premieres decimales en base 10 de 'phi' comme une marche aleatoire en # # coordonnees spheriques. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.499,+0.504]x[+0.499,+0.502]x[-0.000,+0.004] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:19:40 # # # # $xci/accumule.42$X : 00:54:10 # # # v $xiirv/RDNW.d1.pi.1 v $xiirv/RDNW.d1.pi.2 v $xiirv/RDNW.d1.pi.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_RDNW_d1_pi: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.d1.pi.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000.09 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.001 # # $Z set _____ImageR=$xiirv/RDNW.d1.pi # # $m4 _____include(_____xiirv/.RDNW.c1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z _____include(_____xiirv/.RDNW.d1.1._____U) # # # # $Z set _____ImageS=$xTV/PIPO.b1.pi.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_d1_pi: # # # # # # qui montre les 100000 premieres decimales en base 10 de 'pi' comme une marche aleatoire en # # coordonnees spheriques. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.499,+0.502]x[+0.498,+0.501]x[-0.003,+0.001] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:51:39 # # # # $xci/accumule.42$X : 01:15:17 # # # v $xiirv/RDNW.d1.pi_e.21 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_RDNW_d1_pi_e: # # # # $Z Squ # # # # $Z set _____ImagesA=($K_VIDE) # # $Z set _____Messages=($K_VIDE) # # # # $Z set _____ImagesA=($_____ImagesA $xiirv/RDNW.d1.e.21) # # $Z set _____Messages=($_____Messages "e="`calcul $en`"...") # # # # $Z set _____ImagesA=($_____ImagesA $xiirv/RDNW.d1.pi_moins_e.21) # # $Z set _____Messages=($_____Messages "pi-e="`calcul ($pi)-($en)`"...") # # # # $Z set _____ImagesA=($_____ImagesA $xiirv/RDNW.d1.pi_plus_e.21) # # $Z set _____Messages=($_____Messages "pi+e="`calcul ($pi)+($en)`"...") # # # # $Z set _____ImagesA=($_____ImagesA $xiirv/RDNW.d1.pi.21) # # $Z set _____Messages=($_____Messages "pi="`calcul $pi`"...") # # # # $Z set _____ImageR=$xiirv/RDNW.d1.pi_e.21 # # $m4 _____include(_____xiirv/.RDNW.d1.2._____U) # # # # :Fin_listG_RDNW_d1_pi_e: # # # v $xiirv/RDNW.d1.pi_moins_e.1 v $xiirv/RDNW.d1.pi_moins_e.2 v $xiirv/RDNW.d1.pi_moins_e.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_RDNW_d1_pi_moins_e: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_moins_E_____100000 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.001 # # $Z set _____ImageR=$xiirv/RDNW.d1.pi_moins_e # # $m4 _____include(_____xiirv/.RDNW.c1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z _____include(_____xiirv/.RDNW.d1.1._____U) # # # # $Z set _____ImageS=$xTV/PIPO.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_d1_pi_moins_e: # # # # # # qui montre les 100000 premieres decimales en base 10 de 'pi-e' comme une marche aleatoire # # en coordonnees spheriques. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.497,+0.500]x[+0.494,+0.501]x[-0.000,+0.004] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:24:00 # # # # $xci/accumule.42$X : 01:05:11 # # # v $xiirv/RDNW.d1.pi_plus_e.1 v $xiirv/RDNW.d1.pi_plus_e.2 v $xiirv/RDNW.d1.pi_plus_e.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_RDNW_d1_pi_plus_e: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_plus_E_____100000 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.001 # # $Z set _____ImageR=$xiirv/RDNW.d1.pi_plus_e # # $m4 _____include(_____xiirv/.RDNW.c1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z _____include(_____xiirv/.RDNW.d1.1._____U) # # # # $Z set _____ImageS=$xTV/PIPO.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_d1_pi_plus_e: # # # # # # qui montre les 100000 premieres decimales en base 10 de 'pi+e' comme une marche aleatoire # # en coordonnees spheriques. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.499,+0.505]x[+0.498,+0.502]x[-0.001,+0.002] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:23:36 # # # # $xci/accumule.42$X : 00:54:36 # # # v $xiirv/RDNW.d1.racine2.1 v $xiirv/RDNW.d1.racine2.2 v $xiirv/RDNW.d1.racine2.21 # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_RDNW_d1_racine2: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.d1.racine2.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Sqrt2_____100000.09 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.001 # # $Z set _____ImageR=$xiirv/RDNW.d1.racine2 # # $m4 _____include(_____xiirv/.RDNW.c1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z _____include(_____xiirv/.RDNW.d1.1._____U) # # # # $Z set _____ImageS=$xTV/PIPO.b1.racine2.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_d1_racine2: # # # # # # qui montre les 100000 premieres decimales en base 10 de racine de 2 comme une marche # # aleatoire en coordonnees spheriques. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.499,+0.511]x[+0.497,+0.500]x[-0.002,+0.003] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:35:38 # # # # $xci/accumule.42$X : 01:58:08 # # # v $xiirv/RDNW.d1.rdn.1 v $xiirv/RDNW.d1.rdn.2 v $xiirv/RDNW.d1.rdn.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_RDNW_d1_rdn: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.d1.rdn.T # # # # $Z FilSTmpB _____FDecimales # # # # $Z set _____NChiffres=99999 # # # # $Z $xrv/val_alea.01$X \ # # $Z ne=$_____NChiffres \ # # $Z graine=1947 \ # # $Z LISTE_BORNES_INFERIEURES=0 \ # # $Z LISTE_BORNES_SUPERIEURES=`calculINS $Base10-1` \ # # $Z formater=VRAI entiers=VRAI signe="$K_VIDE" \ # # $Z message_borne_superieure_entiere=FAUX \ # # $Z >> $_____FDecimales # # # # $Z echo "Premiere decimale." # # $Z $HEA -20 $_____FDecimales # # $Z echo "Derniere decimale." # # # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xiirv/RDNW.d1.rdn # # $m4 _____include(_____xiirv/.RDNW.c1.1._____U) # # $Z FilSTmpE _____FDecimales # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z _____include(_____xiirv/.RDNW.d1.1._____U) # # # # $Z set _____ImageS=$xTV/PIPO.d1.rdn.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_d1_rdn: # # # # # # qui montre les 99999 premieres decimales en base 10 d'un nombre (0.19049684143338106635...) # # aleatoire comme une marche aleatoire en coordonnees spheriques. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.363,+2.423]x[-1.260,+0.584]x[-0.274,+0.916] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:19:35 # # # # $xci/accumule.42$X : 00:57:12 # # # v $xiirv/RDNW.e1.Champernowne.1 v $xiirv/RDNW.e1.Champernowne.2 v $xiirv/RDNW.e1.Champernowne.21 # Generee (sur '$CMAP28' -ex "porte-de-choisy"-) par : # # # # # # :Debut_listG_RDNW_e1_Champernowne: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.e1.Champernowne.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Champernowne_____100000.09 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xiirv/RDNW.e1.Champernowne # # $m4 _____include(_____xiirv/.RDNW.a1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z _____include(_____xiirv/.RDNW.d1.1._____U) # # # # $Z set _____ImageS=$xTV/PIPO.e1.Champernowne.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_e1_Champernowne: # # # # # # qui montre les 99999 premieres decimales en base 10 du nombre de 'Champernowne' comme # # une marche aleatoire en coordonnees cartesiennes tridimensionnelles. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-16.524,+2.762]x[-17.022,+2.255]x[-17.521,+1.759] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:10:21 # # # # $xci/accumule.42$X : 01:01:35 # # # v $xiirv/RDNW.e1.e.1 v $xiirv/RDNW.e1.e.2 v $xiirv/RDNW.e1.e.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_RDNW_e1_e: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.e1.e.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_E_____100000.09 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xiirv/RDNW.e1.e # # $m4 _____include(_____xiirv/.RDNW.a1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z _____include(_____xiirv/.RDNW.d1.1._____U) # # # # $Z set _____ImageS=$xTV/PIPO.e1.e.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_e1_e: # # # # # # qui montre les 99999 premieres decimales en base 10 de 'e' comme une marche aleatoire en # # coordonnees cartesiennes tridimensionnelles. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [-0.371,+0.527]x[+0.386,+1.071]x[-0.935,+0.333] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:46:09 # # # # $xci/accumule.42$X : 01:05:06 # # # v $xiirv/RDNW.e1.phi.1 v $xiirv/RDNW.e1.phi.2 v $xiirv/RDNW.e1.phi.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_RDNW_e1_phi: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.e1.phi.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Phi_____100000.09 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xiirv/RDNW.e1.phi # # $m4 _____include(_____xiirv/.RDNW.a1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z _____include(_____xiirv/.RDNW.d1.1._____U) # # # # $Z set _____ImageS=$xTV/PIPO.e1.phi.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_e1_phi: # # # # # # qui montre les 99999 premieres decimales en base 10 de 'phi' comme une marche aleatoire en # # coordonnees cartesiennes tridimensionnelles. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.073,+0.694]x[+0.064,+0.602]x[-0.280,+0.839] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:31:42 # # # # $xci/accumule.42$X : 00:55:10 # # # v $xiirv/RDNW.e1.pi.1 v $xiirv/RDNW.e1.pi.2 v $xiirv/RDNW.e1.pi.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_RDNW_e1_pi: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.e1.pi.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_____100000.09 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xiirv/RDNW.e1.pi # # $m4 _____include(_____xiirv/.RDNW.a1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z _____include(_____xiirv/.RDNW.d1.1._____U) # # # # $Z set _____ImageS=$xTV/PIPO.e1.pi.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_e1_pi: # # # # # # qui montre les 99999 premieres decimales en base 10 de 'pi' comme une marche aleatoire en # # coordonnees cartesiennes tridimensionnelles. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.138,+0.827]x[+0.222,+0.982]x[-0.612,+0.197] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:54:43 # # # # $xci/accumule.42$X : 01:13:37 # # # v $xiirv/RDNW.e1.pi_e.21 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_RDNW_e1_pi_e: # # # # $Z Squ # # # # $Z set _____ImagesA=($K_VIDE) # # $Z set _____Messages=($K_VIDE) # # # # $Z set _____ImagesA=($_____ImagesA $xiirv/RDNW.e1.e.21) # # $Z set _____Messages=($_____Messages "e="`calcul $en`"...") # # # # $Z set _____ImagesA=($_____ImagesA $xiirv/RDNW.e1.pi_moins_e.21) # # $Z set _____Messages=($_____Messages "pi-e="`calcul ($pi)-($en)`"...") # # # # $Z set _____ImagesA=($_____ImagesA $xiirv/RDNW.e1.pi_plus_e.21) # # $Z set _____Messages=($_____Messages "pi+e="`calcul ($pi)+($en)`"...") # # # # $Z set _____ImagesA=($_____ImagesA $xiirv/RDNW.e1.pi.21) # # $Z set _____Messages=($_____Messages "pi="`calcul $pi`"...") # # # # $Z set _____ImageR=$xiirv/RDNW.e1.pi_e.21 # # $m4 _____include(_____xiirv/.RDNW.d1.2._____U) # # # # :Fin_listG_RDNW_e1_pi_e: # # # v $xiirv/RDNW.e1.pi_moins_e.1 v $xiirv/RDNW.e1.pi_moins_e.2 v $xiirv/RDNW.e1.pi_moins_e.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_RDNW_e1_pi_moins_e: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_moins_E_____100000 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xiirv/RDNW.e1.pi_moins_e # # $m4 _____include(_____xiirv/.RDNW.a1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z _____include(_____xiirv/.RDNW.d1.1._____U) # # # # $Z set _____ImageS=$xTV/PIPO.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_e1_pi_moins_e: # # # # # # qui montre les 99999 premieres decimales en base 10 de 'pi-e' comme une marche aleatoire # # en coordonnees cartesiennes tridimensionnelles. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.156,+1.198]x[-0.061,+0.698]x[-0.268,+0.890] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:29:48 # # # # $xci/accumule.42$X : 01:12:32 # # # v $xiirv/RDNW.e1.pi_plus_e.1 v $xiirv/RDNW.e1.pi_plus_e.2 v $xiirv/RDNW.e1.pi_plus_e.21 # Generee (sur '$CMAP28' -ex "porte-d-orleans"-) par : # # # # # # :Debut_listG_RDNW_e1_pi_plus_e: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Pi_plus_E_____100000 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xiirv/RDNW.e1.pi_plus_e # # $m4 _____include(_____xiirv/.RDNW.a1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z _____include(_____xiirv/.RDNW.d1.1._____U) # # # # $Z set _____ImageS=$xTV/PIPO.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_e1_pi_plus_e: # # # # # # qui montre les 99999 premieres decimales en base 10 de 'pi+e' comme une marche aleatoire # # en coordonnees cartesiennes tridimensionnelles. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.020,+0.846]x[+0.256,+0.952]x[-0.503,+0.318] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:40:24 # # # # $xci/accumule.42$X : 01:26:28 # # # v $xiirv/RDNW.e1.racine2.1 v $xiirv/RDNW.e1.racine2.2 v $xiirv/RDNW.e1.racine2.21 # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_RDNW_e1_racine2: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.e1.racine2.T # # # # $Z set _____FDecimales=$xrp/Decimales_Base10_Sqrt2_____100000.09 # # $Z set _____NChiffres=99999 # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xiirv/RDNW.e1.racine2 # # $m4 _____include(_____xiirv/.RDNW.a1.1._____U) # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z _____include(_____xiirv/.RDNW.d1.1._____U) # # # # $Z set _____ImageS=$xTV/PIPO.e1.racine2.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_e1_racine2: # # # # # # qui montre les 99999 premieres decimales en base 10 de racine de 2 comme une marche # # aleatoire en coordonnees cartesiennes tridimensionnelles. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.390,+1.077]x[+0.091,+0.762]x[-0.627,+0.402] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:53:10 # # # # $xci/accumule.42$X : 02:02:40 # # # v $xiirv/RDNW.e1.rdn.1 v $xiirv/RDNW.e1.rdn.2 v $xiirv/RDNW.e1.rdn.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_RDNW_e1_rdn: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=2048 # # # # $Z set _____ImageT1=$xTV/RDNW.e1.rdn.T # # # # $Z FilSTmpB _____FDecimales # # # # $Z set _____NChiffres=99999 # # # # $Z $xrv/val_alea.01$X \ # # $Z ne=$_____NChiffres \ # # $Z graine=1947 \ # # $Z LISTE_BORNES_INFERIEURES=0 \ # # $Z LISTE_BORNES_SUPERIEURES=`calculINS $Base10-1` \ # # $Z formater=VRAI entiers=VRAI signe="$K_VIDE" \ # # $Z message_borne_superieure_entiere=FAUX \ # # $Z >> $_____FDecimales # # # # $Z echo "Premiere decimale." # # $Z $HEA -20 $_____FDecimales # # $Z echo "Derniere decimale." # # # # $Z set _____Zoom=0.260 # # $Z set _____ImageR=$xiirv/RDNW.e1.rdn # # $m4 _____include(_____xiirv/.RDNW.a1.1._____U) # # $Z FilSTmpE _____FDecimales # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z FilSTmpB LiStEPoInTs # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $LiStEPoInTs" # # # # $m4 _____include(_____xiirv/.RDNW.a1.2._____U) # # # # $Z execRVB $DELETE $_____ImageR%s # # # # $m4 _____include(_____xiirv/.PIPO.11.5._____U) # # # # $Z _____include(_____xiirv/.RDNW.d1.1._____U) # # # # $Z set _____ImageS=$xTV/PIPO.e1.rdn.S # # $Z _____include(_____xiirv/.PIPO.31.1._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $m4 _____include(_____xiirv/.PIPO.31.2._____U) # # $Z set _____RotationX=+0.4 # # $Z set _____RotationY=+0.2 # # $Z set _____ArgAccumule="$K_VIDE" # # $Z set _____ArgAccumule="$_____ArgAccumule"" accepter_points_isoles=VRAI" # # $Z set _____imagesR=$_____ImageR # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_RDNW_e1_rdn: # # # # # # qui montre les 99999 premieres decimales en base 10 d'un nombre (0.19049684143338106635...) # # aleatoire comme une marche aleatoire en coordonnees cartesiennes tridimensionnelles. # # # # Renormalisation des coordonnees {X,Y,Z} : # # # # [+0.129,+0.932]x[+0.195,+0.713]x[-0.198,+0.238] --> [0.1,0.9]x[0.1,0.9]x[0.1,0.9] # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:34:00 # # # # $xci/accumule.42$X : 00:56:11 # # # v $xiirv/REFP.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_REFP_11: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____SommetX="0.5 0.3 0.5 0.7" # # $Z set _____SommetY="0.9 0.5 0.5 0.5" # # $Z set _____SommetZ="0.5 0.3 0.7 0.3" # # $Z set _____RotationX=0.1 # # $Z set _____RotationY=1 # # $Z set _____ImageR=$xiirv/REFP.11 # # $m4 _____include(_____xiirv/.REFP.11.1._____U) # # # # :Fin_listG_REFP_11: # # # # # # La reflexion "une fois" d'un tetraedre quelconque. # v $xiirv/REFP.12 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_REFP_12: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FileTmpB FDeRiVeEs # # # # $Z set NPoInTs=1000 # # # # Le nombre effectif de points n'est pas connu et on force donc une valeur a priori # # superieure... # # # # $Z set BoRnEs=6 # # # # $Z set DeRiVeEsX=$FDeRiVeEs$COORD_X # # $Z $xci/valeurs_alea$X premiere=1 derniere=$NPoInTs \ # # $Z graine=1789 \ # # $Z inf=-$BoRnEs sup=+$BoRnEs \ # # $Z > $DeRiVeEsX # # # # $Z set DeRiVeEsY=$FDeRiVeEs$COORD_Y # # $Z $xci/valeurs_alea$X premiere=1 derniere=$NPoInTs \ # # $Z graine=1947 \ # # $Z inf=-$BoRnEs sup=+$BoRnEs \ # # $Z > $DeRiVeEsY # # # # $Z set DeRiVeEsZ=$FDeRiVeEs$COORD_Z # # $Z $xci/valeurs_alea$X premiere=1 derniere=$NPoInTs \ # # $Z graine=2001 \ # # $Z inf=-$BoRnEs sup=+$BoRnEs \ # # $Z > $DeRiVeEsZ # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" cubique=VRAI" # # $Z set _____ParticulePara="$_____ParticulePara"" LISTE_dX=$DeRiVeEsX" # # $Z set _____ParticulePara="$_____ParticulePara"" LISTE_dY=$DeRiVeEsY" # # $Z set _____ParticulePara="$_____ParticulePara"" LISTE_dZ=$DeRiVeEsZ" # # # # # # $Z set _____SommetX="0.5 0.3 0.5 0.7" # # $Z set _____SommetY="0.9 0.5 0.5 0.5" # # $Z set _____SommetZ="0.5 0.3 0.7 0.3" # # $Z SET _____Rayon1=0.020 # # $Z SET _____Rayon2=0.020 # # $Z SET _____RayonH=0.015 # # $Z set _____RotationX=0.1 # # $Z set _____RotationY=1 # # $Z set _____Zoom=0.7 # # $Z set _____DepthCueing=0.4 # # $Z set _____ImageR=$xiirv/REFP.12 # # $m4 _____include(_____xiirv/.REFP.11.1._____U) # # # # $Z FileTmpE FDeRiVeEs # # # # :Fin_listG_REFP_12: # # # v $xiirv/REFP.13 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_REFP_13: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NIterationsP=2 # # $Z set _____SommetX="0.5 0.3 0.5 0.7" # # $Z set _____SommetY="0.9 0.5 0.5 0.5" # # $Z set _____SommetZ="0.5 0.3 0.7 0.3" # # $Z SET _____Rayon1=0.015 # # $Z SET _____Rayon2=0.015 # # $Z SET _____RayonH=0.010 # # $Z set _____RotationX=0.1 # # $Z set _____RotationY=1 # # $Z set _____Zoom=0.66 # # $Z set _____ImageR=$xiirv/REFP.13 # # $m4 _____include(_____xiirv/.REFP.11.1._____U) # # # # :Fin_listG_REFP_13: # # # # # # La reflexion "deux fois" d'un tetraedre quelconque. # v $xiirv/REFP.14 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_REFP_14: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NIterationsP=2 # # $Z set NoMbRe=3 # # $Z set AnGlED=`calcul -($pi/6)` # # $Z set AnGlEA=`calcul ($dpi*(($NoMbRe-1)/$NoMbRe))+$AnGlED` # # $Z set RaYoN=0.5 # # $Z set ArgS="$K_VIDE" # # $Z set ArgS="$ArgS"" p=1 d=$NoMbRe" # # $Z set ArgS="$ArgS"" aD=$AnGlED aA=$AnGlEA" # # $Z set ArgS="$ArgS"" rD=1 rA=1" # # $Z set ArgS="$ArgS"" gamma=$RaYoN" # # $Z set ArgS="$ArgS"" delta=0" # # $Z set ArgS="$ArgS"" lineaire=VRAI" # # $Z set _____SommetX=`$xci/valeurs_trig$X $ArgS alpha=$RaYoN beta=0` # # $Z set _____SommetY=`$xci/valeurs_trig$X $ArgS alpha=0 beta=$RaYoN` # # $Z set CoTe=`calcul $RaYoN*sqrt(3)` # # $Z set HaUtEuR=`calculNS $CoTe*sqrt(2/3)` # # # # Si R (=$RaYoN) est le rayon d'un cercle circonscrit a une face du tetraedre, alors le cote # # C (=$CoTe) est C=R.sqrt(3) et la hauteur H (=$HaUtEuR) de ce tetraedre est H=C.sqrt(2/3). # # # # $Z set SoM=`$xci/valeurs_trig$X $ArgS` # # $Z set _____SommetZ=`echo "$SoM" | $R "$K_BLANC" "$K_NL" | $SE -e 's/^.*$/0/'` # # # # $Z set _____SommetX="$_____SommetX +$RaYoN" # # $Z set _____SommetY="$_____SommetY +$RaYoN" # # $Z set _____SommetZ="$_____SommetZ +$HaUtEuR" # # # # $Z SET _____Rayon1=0.030 # # $Z SET _____Rayon2=0.030 # # $Z SET _____RayonH=0.020 # # $Z set _____RotationX=0 # # $Z set _____RotationY=0.6 # # $Z set _____Zoom=0.36 # # $Z set _____ImageR=$xiirv/REFP.14 # # $m4 _____include(_____xiirv/.REFP.11.1._____U) # # # # :Fin_listG_REFP_14: # # # # # # La reflexion "deux fois" d'un tetraedre regulier. # v $xiirv/REFP.14.0 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_REFP_14_0: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NIterationsP=0 # # $Z set NoMbRe=3 # # $Z set AnGlED=`calcul -($pi/6)` # # $Z set AnGlEA=`calcul ($dpi*(($NoMbRe-1)/$NoMbRe))+$AnGlED` # # $Z set RaYoN=0.5 # # $Z set ArgS="$K_VIDE" # # $Z set ArgS="$ArgS"" p=1 d=$NoMbRe" # # $Z set ArgS="$ArgS"" aD=$AnGlED aA=$AnGlEA" # # $Z set ArgS="$ArgS"" rD=1 rA=1" # # $Z set ArgS="$ArgS"" gamma=$RaYoN" # # $Z set ArgS="$ArgS"" delta=0" # # $Z set ArgS="$ArgS"" lineaire=VRAI" # # $Z set _____SommetX=`$xci/valeurs_trig$X $ArgS alpha=$RaYoN beta=0` # # $Z set _____SommetY=`$xci/valeurs_trig$X $ArgS alpha=0 beta=$RaYoN` # # $Z set CoTe=`calcul $RaYoN*sqrt(3)` # # $Z set HaUtEuR=`calculNS $CoTe*sqrt(2/3)` # # # # Si R (=$RaYoN) est le rayon d'un cercle circonscrit a une face du tetraedre, alors le cote # # C (=$CoTe) est C=R.sqrt(3) et la hauteur H (=$HaUtEuR) de ce tetraedre est H=C.sqrt(2/3). # # # # $Z set SoM=`$xci/valeurs_trig$X $ArgS` # # $Z set _____SommetZ=`echo "$SoM" | $R "$K_BLANC" "$K_NL" | $SE -e 's/^.*$/0/'` # # # # $Z set _____SommetX="$_____SommetX +$RaYoN" # # $Z set _____SommetY="$_____SommetY +$RaYoN" # # $Z set _____SommetZ="$_____SommetZ +$HaUtEuR" # # # # $Z SET _____Rayon1=0.030 # # $Z SET _____Rayon2=0.030 # # $Z SET _____RayonH=0.020 # # $Z set _____RotationX=0 # # $Z set _____RotationY=0.6 # # $Z set _____Zoom=0.36 # # $Z set _____ImageR=$xiirv/REFP.14.0 # # $m4 _____include(_____xiirv/.REFP.11.1._____U) # # # # :Fin_listG_REFP_14_0: # # # # # # La reflexion "zero fois" d'un tetraedre regulier. # v $xiirv/REFP.14.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_REFP_14_1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NIterationsP=1 # # $Z set NoMbRe=3 # # $Z set AnGlED=`calcul -($pi/6)` # # $Z set AnGlEA=`calcul ($dpi*(($NoMbRe-1)/$NoMbRe))+$AnGlED` # # $Z set RaYoN=0.5 # # $Z set ArgS="$K_VIDE" # # $Z set ArgS="$ArgS"" p=1 d=$NoMbRe" # # $Z set ArgS="$ArgS"" aD=$AnGlED aA=$AnGlEA" # # $Z set ArgS="$ArgS"" rD=1 rA=1" # # $Z set ArgS="$ArgS"" gamma=$RaYoN" # # $Z set ArgS="$ArgS"" delta=0" # # $Z set ArgS="$ArgS"" lineaire=VRAI" # # $Z set _____SommetX=`$xci/valeurs_trig$X $ArgS alpha=$RaYoN beta=0` # # $Z set _____SommetY=`$xci/valeurs_trig$X $ArgS alpha=0 beta=$RaYoN` # # $Z set CoTe=`calcul $RaYoN*sqrt(3)` # # $Z set HaUtEuR=`calculNS $CoTe*sqrt(2/3)` # # # # Si R (=$RaYoN) est le rayon d'un cercle circonscrit a une face du tetraedre, alors le cote # # C (=$CoTe) est C=R.sqrt(3) et la hauteur H (=$HaUtEuR) de ce tetraedre est H=C.sqrt(2/3). # # # # $Z set SoM=`$xci/valeurs_trig$X $ArgS` # # $Z set _____SommetZ=`echo "$SoM" | $R "$K_BLANC" "$K_NL" | $SE -e 's/^.*$/0/'` # # # # $Z set _____SommetX="$_____SommetX +$RaYoN" # # $Z set _____SommetY="$_____SommetY +$RaYoN" # # $Z set _____SommetZ="$_____SommetZ +$HaUtEuR" # # # # $Z SET _____Rayon1=0.030 # # $Z SET _____Rayon2=0.030 # # $Z SET _____RayonH=0.020 # # $Z set _____RotationX=0 # # $Z set _____RotationY=0.6 # # $Z set _____Zoom=0.36 # # $Z set _____ImageR=$xiirv/REFP.14.1 # # $m4 _____include(_____xiirv/.REFP.11.1._____U) # # # # :Fin_listG_REFP_14_1: # # # # # # La reflexion "une fois" d'un tetraedre regulier. # v $xiirv/REFT.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_REFT_11: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____SommetX="0.3 0.7 0.5" # # $Z set _____SommetY="0.4 0.5 0.7" # # $Z set _____ImageR=$xiirv/REFT.11 # # $m4 _____include(_____xiirv/.REFT.11.1._____U) # # # # :Fin_listG_REFT_11: # # # # # # La reflexion "une fois" d'un triangle quelconque. # v $xiirv/REFT.12 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_REFT_12: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NIterationsT=2 # # $Z set NoMbRe=3 # # $Z set AnGlED=`calcul -($pi/6)` # # $Z set AnGlEA=`calcul ($dpi*(($NoMbRe-1)/$NoMbRe))+$AnGlED` # # $Z set TrAnS=0.5 # # $Z set ArgS="$K_VIDE" # # $Z set ArgS="$ArgS"" p=1 d=$NoMbRe" # # $Z set ArgS="$ArgS"" aD=$AnGlED aA=$AnGlEA" # # $Z set ArgS="$ArgS"" rD=1 rA=1" # # $Z set ArgS="$ArgS"" gamma=$TrAnS" # # $Z set ArgS="$ArgS"" delta=0" # # $Z set ArgS="$ArgS"" lineaire=VRAI" # # $Z set _____SommetX=`$xci/valeurs_trig$X $ArgS alpha=$TrAnS beta=0` # # $Z set _____SommetY=`$xci/valeurs_trig$X $ArgS alpha=0 beta=$TrAnS` # # $Z set _____Rayon1=0.040 # # $Z set _____Rayon2=0.040 # # $Z set _____RayonH=0.030 # # $Z set _____Zoom=0.23 # # $Z set _____ImageR=$xiirv/REFT.12 # # $m4 _____include(_____xiirv/.REFT.11.1._____U) # # # # :Fin_listG_REFT_12: # # # # # # La reflexion "deux fois" d'un triangle equilateral. # v $xiirv/REFT.12.0 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_REFT_12_0: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NIterationsT=0 # # $Z set NoMbRe=3 # # $Z set AnGlED=`calcul -($pi/6)` # # $Z set AnGlEA=`calcul ($dpi*(($NoMbRe-1)/$NoMbRe))+$AnGlED` # # $Z set TrAnS=0.5 # # $Z set ArgS="$K_VIDE" # # $Z set ArgS="$ArgS"" p=1 d=$NoMbRe" # # $Z set ArgS="$ArgS"" aD=$AnGlED aA=$AnGlEA" # # $Z set ArgS="$ArgS"" rD=1 rA=1" # # $Z set ArgS="$ArgS"" gamma=$TrAnS" # # $Z set ArgS="$ArgS"" delta=0" # # $Z set ArgS="$ArgS"" lineaire=VRAI" # # $Z set _____SommetX=`$xci/valeurs_trig$X $ArgS alpha=$TrAnS beta=0` # # $Z set _____SommetY=`$xci/valeurs_trig$X $ArgS alpha=0 beta=$TrAnS` # # $Z set _____Rayon1=0.040 # # $Z set _____Rayon2=0.040 # # $Z set _____RayonH=0.030 # # $Z set _____Zoom=0.23 # # $Z set _____ImageR=$xiirv/REFT.12.0 # # $m4 _____include(_____xiirv/.REFT.11.1._____U) # # # # :Fin_listG_REFT_12_0: # # # # # # La reflexion "zero fois" d'un triangle equilateral. # v $xiirv/REFT.12.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_REFT_12_1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NIterationsT=1 # # $Z set NoMbRe=3 # # $Z set AnGlED=`calcul -($pi/6)` # # $Z set AnGlEA=`calcul ($dpi*(($NoMbRe-1)/$NoMbRe))+$AnGlED` # # $Z set TrAnS=0.5 # # $Z set ArgS="$K_VIDE" # # $Z set ArgS="$ArgS"" p=1 d=$NoMbRe" # # $Z set ArgS="$ArgS"" aD=$AnGlED aA=$AnGlEA" # # $Z set ArgS="$ArgS"" rD=1 rA=1" # # $Z set ArgS="$ArgS"" gamma=$TrAnS" # # $Z set ArgS="$ArgS"" delta=0" # # $Z set ArgS="$ArgS"" lineaire=VRAI" # # $Z set _____SommetX=`$xci/valeurs_trig$X $ArgS alpha=$TrAnS beta=0` # # $Z set _____SommetY=`$xci/valeurs_trig$X $ArgS alpha=0 beta=$TrAnS` # # $Z set _____Rayon1=0.040 # # $Z set _____Rayon2=0.040 # # $Z set _____RayonH=0.030 # # $Z set _____Zoom=0.23 # # $Z set _____ImageR=$xiirv/REFT.12.1 # # $m4 _____include(_____xiirv/.REFT.11.1._____U) # # # # :Fin_listG_REFT_12_1: # # # # # # La reflexion "une fois" d'un triangle equilateral. # v $xiirv/REFT.13 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_REFT_13: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NIterationsT=2 # # $Z set _____SommetX="0.3 0.7 0.5" # # $Z set _____SommetY="0.4 0.5 0.7" # # $Z set _____Rayon1=0.020 # # $Z set _____Rayon2=0.020 # # $Z set _____RayonH=0.015 # # $Z set _____Zoom=0.48 # # $Z set _____ImageR=$xiirv/REFT.13 # # $m4 _____include(_____xiirv/.REFT.11.1._____U) # # # # :Fin_listG_REFT_13: # # # # # # La reflexion "deux fois" d'un triangle quelconque. # v $xiirv/REFT.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_REFT_21: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set NoMbRe=8 # # $Z set AnGlE=`calcul $dpi*(($NoMbRe-1)/$NoMbRe)` # # $Z set TrAnS=0.5 # # $Z set ArgS="$K_VIDE" # # $Z set ArgS="$ArgS"" p=1 d=$NoMbRe" # # $Z set ArgS="$ArgS"" aD=0 aA=$AnGlE" # # $Z set ArgS="$ArgS"" rD=1 rA=1" # # $Z set ArgS="$ArgS"" gamma=$TrAnS" # # $Z set ArgS="$ArgS"" delta=0" # # $Z set ArgS="$ArgS"" lineaire=VRAI" # # $Z set _____SommetX=`$xci/valeurs_trig$X $ArgS alpha=$TrAnS beta=0` # # $Z set _____SommetY=`$xci/valeurs_trig$X $ArgS alpha=0 beta=$TrAnS` # # $Z set _____Rayon1=0.020 # # $Z set _____Rayon2=0.020 # # $Z set _____RayonH=0.015 # # $Z set _____Zoom=0.55 # # $Z set _____ImageR=$xiirv/REFT.21 # # $m4 _____include(_____xiirv/.REFT.11.1._____U) # # # # :Fin_listG_REFT_21: # # # # # # La reflexion "une fois" d'un octogone regulier. # v $xiirv/REFT.22 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_REFT_22: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____NIterationsT=2 # # $Z set NoMbRe=8 # # $Z set AnGlE=`calcul $dpi*(($NoMbRe-1)/$NoMbRe)` # # $Z set TrAnS=0.5 # # $Z set ArgS="$K_VIDE" # # $Z set ArgS="$ArgS"" p=1 d=$NoMbRe" # # $Z set ArgS="$ArgS"" aD=0 aA=$AnGlE" # # $Z set ArgS="$ArgS"" rD=1 rA=1" # # $Z set ArgS="$ArgS"" gamma=$TrAnS" # # $Z set ArgS="$ArgS"" delta=0" # # $Z set ArgS="$ArgS"" lineaire=VRAI" # # $Z set _____SommetX=`$xci/valeurs_trig$X $ArgS alpha=$TrAnS beta=0` # # $Z set _____SommetY=`$xci/valeurs_trig$X $ArgS alpha=0 beta=$TrAnS` # # $Z set _____Rayon1=0.030 # # $Z set _____Rayon2=0.030 # # $Z set _____RayonH=0.020 # # $Z set _____Zoom=0.32 # # $Z set _____ImageR=$xiirv/REFT.22 # # $m4 _____include(_____xiirv/.REFT.11.1._____U) # # # # :Fin_listG_REFT_22: # # # # # # La reflexion "deux fois" d'un octogone regulier. # v $xiirv/REGL.11.135 p=$xiP/gris.01 v $xiirv/REGL.11.357 p=$xiP/gris.01 v $xiirv/REGL.11 # Generee (sur '$LACT29') par : # # # # $Z Pal # # # # $Z $DELETE $xTV/LISTE.1 # # $Z $DELETE $xTV/LISTE.1$COORD_X # # $Z $DELETE $xTV/LISTE.1$COORD_Y # # $Z $DELETE $xTV/LISTE.1$COORD_Z # # # # $Z $DELETE $xTV/LISTE.2 # # $Z $DELETE $xTV/LISTE.2$COORD_X # # $Z $DELETE $xTV/LISTE.2$COORD_Y # # $Z $DELETE $xTV/LISTE.2$COORD_Z # # # # $Z $DELETE $xTV/COORDONNEES$COORD_X # # $Z $DELETE $xTV/COORDONNEES$COORD_Y # # $Z $DELETE $xTV/COORDONNEES$COORD_Z # # # # # # $Z set Iterations=500 # # $Z set PasDeTemps=`$xcg/DIVZ.01$X n1=$dpi n2=$Iterations` # # # # $Z $xrk/SinCos.11$X np=1 \ # # $Z iterations=$Iterations \ # # $Z dt=$PasDeTemps \ # # $Z osx=1 osy=3 osz=5 \ # # $Z RVB=FAUX \ # # $Z Lz=100 ZOOM=0.8 \ # # $Z lister_les_points=VRAI \ # # $Z R=$xTV/REGL.1. \ # # $Z $formatI \ # # $Z > $xTV/LISTE.1 # # # # $Z $CP $xTV/REGL.1.0001$ROUGE $xiirv/REGL.11.135 # # $Z ro $xiirv/REGL.11.135 # # # # $Z $xrk/SinCos.11$X np=1 \ # # $Z iterations=$Iterations \ # # $Z dt=$PasDeTemps \ # # $Z osx=3 osy=5 osz=7 \ # # $Z RVB=FAUX \ # # $Z Lz=100 ZOOM=0.8 \ # # $Z lister_les_points=VRAI \ # # $Z R=$xTV/REGL.2. \ # # $Z $formatI \ # # $Z > $xTV/LISTE.2 # # # # $Z $CP $xTV/REGL.1.0001$ROUGE $xiirv/REGL.11.357 # # $Z ro $xiirv/REGL.11.357 # # # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Xx]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_X # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Yy]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_Y # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Zz]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_Z # # # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Xx]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_X # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Yy]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_Y # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Zz]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_Z # # # # $Z $PAST $xTV/LISTE.1$COORD_X $xTV/LISTE.2$COORD_X | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_X # # $Z $PAST $xTV/LISTE.1$COORD_Y $xTV/LISTE.2$COORD_Y | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_Y # # $Z $PAST $xTV/LISTE.1$COORD_Z $xTV/LISTE.2$COORD_Z | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_Z # # # # $Z set PointsX=`$WC $xTV/COORDONNEES$COORD_X` # # $Z set PointsX=$PointsX[$WC1] # # $Z set PointsY=`$WC $xTV/COORDONNEES$COORD_Y` # # $Z set PointsY=$PointsY[$WC1] # # $Z set PointsZ=`$WC $xTV/COORDONNEES$COORD_Z` # # $Z set PointsZ=$PointsZ[$WC1] # # # # $Z set PointsXY=`$xcg/MIN2.01$X n1=$PointsX n2=$PointsY` # # $Z set PointsXYZ=`$xcg/MIN2.01$X n1=$PointsXY n2=$PointsZ` # # # # $Z set Part0=1 # # $Z set PartN=$PointsXYZ # # # # $Z $DELETE $xTV/COULEURS$TEINT # # $Z $DELETE $xTV/COULEURS$LUMIN # # $Z $DELETE $xTV/COULEURS$SATUR # # $Z $DELETE $xTV/COULEURS$Y # # $Z $DELETE $xTV/COULEURS # # $Z $DELETE $xTV/COULEURS$ROUGE # # $Z $DELETE $xTV/COULEURS$VERTE # # $Z $DELETE $xTV/COULEURS$BLEUE # # # # $Z set TeinteDepart=$GRIS_0 # # $Z set TeinteArrivee=$GRIS_8 # # # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$TeinteDepart vA=$TeinteArrivee \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$TEINT # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$GRIS_4 vA=$GRIS_4 \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$LUMIN # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$GRIS_8 vA=$GRIS_8 \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$SATUR # # # # $Z $PAST \ # # $Z $xTV/COULEURS$TEINT \ # # $Z $xTV/COULEURS$LUMIN \ # # $Z $xTV/COULEURS$SATUR \ # # $Z | $R "$K_TAB" "$K_BLANC" \ # # $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ # # $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ # # $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ # # $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ # # $Z > $xTV/COULEURS$Y # # # # $Z (source $xTV/COULEURS$Y) \ # # $Z > $xTV/COULEURS # # # # $Z $GRE "^R=" $xTV/COULEURS \ # # $Z | $SE -e "s/^R=//" \ # # $Z > $xTV/COULEURS$ROUGE # # $Z $GRE "^V=" $xTV/COULEURS \ # # $Z | $SE -e "s/^V=//" \ # # $Z > $xTV/COULEURS$VERTE # # $Z $GRE "^B=" $xTV/COULEURS \ # # $Z | $SE -e "s/^B=//" \ # # $Z > $xTV/COULEURS$BLEUE # # # # $Z $xrv/particule.10$X np=1 iterations=$PointsXYZ \ # # $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ # # $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ # # $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ # # $Z LISTE_RAYON=0.005 \ # # $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ # # $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ # # $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ # # $Z Lz=1000 \ # # $Z zoom_automatique=FAUX ZOOM=1.0 \ # # $Z coordonnees_dans_0_1=FAUX \ # # $Z AXYZ=1 BXYZ=0 \ # # $Z isoles=FAUX points=40 \ # # $Z N_au_carre=FAUX \ # # $Z RVB=VRAI \ # # $Z R=$xTV/REGL.3. \ # # $Z $formatI # # # # $X $xci/genere$X c='$CP $xTV/REGL.3.0001%s $xiirv/REGL.11%s' RVB=VRAI # # $X $xci/genere$X c='ro $xiirv/REGL.11%s' RVB=VRAI # # # v $xiirv/REGL.12 # Generee (sur '$LACT29') par : # # # # $Z Pal # # # # $Z $DELETE $xTV/LISTE.1 # # $Z $DELETE $xTV/LISTE.1$COORD_X # # $Z $DELETE $xTV/LISTE.1$COORD_Y # # $Z $DELETE $xTV/LISTE.1$COORD_Z # # # # $Z $DELETE $xTV/LISTE.2 # # $Z $DELETE $xTV/LISTE.2$COORD_X # # $Z $DELETE $xTV/LISTE.2$COORD_Y # # $Z $DELETE $xTV/LISTE.2$COORD_Z # # # # $Z $DELETE $xTV/COORDONNEES$COORD_X # # $Z $DELETE $xTV/COORDONNEES$COORD_Y # # $Z $DELETE $xTV/COORDONNEES$COORD_Z # # # # # # $Z set Iterations=500 # # $Z set PasDeTemps=`$xcg/DIVZ.01$X n1=$dpi n2=$Iterations` # # # # $Z $xrk/SinCos.11$X np=1 \ # # $Z iterations=$Iterations \ # # $Z dt=$PasDeTemps \ # # $Z osx=1 osy=3 osz=5 \ # # $Z psx=$pis4 psy=$pis4 psz=$pis4 \ # # $Z RVB=FAUX \ # # $Z Lz=100 ZOOM=0.8 \ # # $Z lister_les_points=VRAI \ # # $Z R=$xTV/REGL.1. \ # # $Z $formatI \ # # $Z > $xTV/LISTE.1 # # # # # # $Z $xrk/SinCos.11$X np=1 \ # # $Z iterations=$Iterations \ # # $Z dt=$PasDeTemps \ # # $Z osx=3 osy=5 osz=7 \ # # $Z psx=$pis4 psy=$pis4 psz=$pis4 \ # # $Z RVB=FAUX \ # # $Z Lz=100 ZOOM=0.8 \ # # $Z lister_les_points=VRAI \ # # $Z R=$xTV/REGL.2. \ # # $Z $formatI \ # # $Z > $xTV/LISTE.2 # # # # # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Xx]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_X # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Yy]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_Y # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Zz]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_Z # # # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Xx]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_X # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Yy]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_Y # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Zz]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_Z # # # # $Z $PAST $xTV/LISTE.1$COORD_X $xTV/LISTE.2$COORD_X | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_X # # $Z $PAST $xTV/LISTE.1$COORD_Y $xTV/LISTE.2$COORD_Y | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_Y # # $Z $PAST $xTV/LISTE.1$COORD_Z $xTV/LISTE.2$COORD_Z | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_Z # # # # $Z set PointsX=`$WC $xTV/COORDONNEES$COORD_X` # # $Z set PointsX=$PointsX[$WC1] # # $Z set PointsY=`$WC $xTV/COORDONNEES$COORD_Y` # # $Z set PointsY=$PointsY[$WC1] # # $Z set PointsZ=`$WC $xTV/COORDONNEES$COORD_Z` # # $Z set PointsZ=$PointsZ[$WC1] # # # # $Z set PointsXY=`$xcg/MIN2.01$X n1=$PointsX n2=$PointsY` # # $Z set PointsXYZ=`$xcg/MIN2.01$X n1=$PointsXY n2=$PointsZ` # # # # $Z set Part0=1 # # $Z set PartN=$PointsXYZ # # # # $Z $DELETE $xTV/COULEURS$TEINT # # $Z $DELETE $xTV/COULEURS$LUMIN # # $Z $DELETE $xTV/COULEURS$SATUR # # $Z $DELETE $xTV/COULEURS$Y # # $Z $DELETE $xTV/COULEURS # # $Z $DELETE $xTV/COULEURS$ROUGE # # $Z $DELETE $xTV/COULEURS$VERTE # # $Z $DELETE $xTV/COULEURS$BLEUE # # # # $Z set TeinteDepart=$GRIS_0 # # $Z set TeinteArrivee=$GRIS_8 # # # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$TeinteDepart vA=$TeinteArrivee \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$TEINT # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$GRIS_4 vA=$GRIS_4 \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$LUMIN # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$GRIS_8 vA=$GRIS_8 \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$SATUR # # # # $Z $PAST \ # # $Z $xTV/COULEURS$TEINT \ # # $Z $xTV/COULEURS$LUMIN \ # # $Z $xTV/COULEURS$SATUR \ # # $Z | $R "$K_TAB" "$K_BLANC" \ # # $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ # # $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ # # $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ # # $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ # # $Z > $xTV/COULEURS$Y # # # # $Z (source $xTV/COULEURS$Y) \ # # $Z > $xTV/COULEURS # # # # $Z $GRE "^R=" $xTV/COULEURS \ # # $Z | $SE -e "s/^R=//" \ # # $Z > $xTV/COULEURS$ROUGE # # $Z $GRE "^V=" $xTV/COULEURS \ # # $Z | $SE -e "s/^V=//" \ # # $Z > $xTV/COULEURS$VERTE # # $Z $GRE "^B=" $xTV/COULEURS \ # # $Z | $SE -e "s/^B=//" \ # # $Z > $xTV/COULEURS$BLEUE # # # # $Z $xrv/particule.10$X np=1 iterations=$PointsXYZ \ # # $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ # # $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ # # $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ # # $Z LISTE_RAYON=0.005 \ # # $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ # # $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ # # $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ # # $Z Lz=1000 \ # # $Z zoom_automatique=FAUX ZOOM=1.0 \ # # $Z coordonnees_dans_0_1=FAUX \ # # $Z AXYZ=1 BXYZ=0 \ # # $Z isoles=FAUX points=80 \ # # $Z N_au_carre=FAUX \ # # $Z RVB=VRAI \ # # $Z R=$xTV/REGL.3. \ # # $Z $formatI # # # # $X $xci/genere$X c='$CP $xTV/REGL.3.0001%s $xiirv/REGL.12%s' RVB=VRAI # # $X $xci/genere$X c='ro $xiirv/REGL.12%s' RVB=VRAI # # # v $xiirv/REGL.13 # Generee (sur '$LACT29') par : # # # # $Z Pal # # # # $Z $DELETE $xTV/LISTE.1 # # $Z $DELETE $xTV/LISTE.1$COORD_X # # $Z $DELETE $xTV/LISTE.1$COORD_Y # # $Z $DELETE $xTV/LISTE.1$COORD_Z # # # # $Z $DELETE $xTV/LISTE.2 # # $Z $DELETE $xTV/LISTE.2$COORD_X # # $Z $DELETE $xTV/LISTE.2$COORD_Y # # $Z $DELETE $xTV/LISTE.2$COORD_Z # # # # $Z $DELETE $xTV/COORDONNEES$COORD_X # # $Z $DELETE $xTV/COORDONNEES$COORD_Y # # $Z $DELETE $xTV/COORDONNEES$COORD_Z # # # # # # $Z set Iterations=500 # # $Z set PasDeTemps=`$xcg/DIVZ.01$X n1=$dpi n2=$Iterations` # # # # $Z $xrk/SinCos.11$X np=1 \ # # $Z iterations=$Iterations \ # # $Z dt=$PasDeTemps \ # # $Z osx=1 osy=3 osz=5 \ # # $Z psx=$pis2 psy=$pis2 psz=$pis2 \ # # $Z RVB=FAUX \ # # $Z Lz=100 ZOOM=0.8 \ # # $Z lister_les_points=VRAI \ # # $Z R=$xTV/REGL.1. \ # # $Z $formatI \ # # $Z > $xTV/LISTE.1 # # # # # # $Z $xrk/SinCos.11$X np=1 \ # # $Z iterations=$Iterations \ # # $Z dt=$PasDeTemps \ # # $Z osx=3 osy=5 osz=7 \ # # $Z psx=$pis2 psy=$pis2 psz=$pis2 \ # # $Z RVB=FAUX \ # # $Z Lz=100 ZOOM=0.8 \ # # $Z lister_les_points=VRAI \ # # $Z R=$xTV/REGL.2. \ # # $Z $formatI \ # # $Z > $xTV/LISTE.2 # # # # # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Xx]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_X # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Yy]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_Y # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Zz]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_Z # # # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Xx]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_X # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Yy]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_Y # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Zz]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_Z # # # # $Z $PAST $xTV/LISTE.1$COORD_X $xTV/LISTE.2$COORD_X | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_X # # $Z $PAST $xTV/LISTE.1$COORD_Y $xTV/LISTE.2$COORD_Y | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_Y # # $Z $PAST $xTV/LISTE.1$COORD_Z $xTV/LISTE.2$COORD_Z | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_Z # # # # $Z set PointsX=`$WC $xTV/COORDONNEES$COORD_X` # # $Z set PointsX=$PointsX[$WC1] # # $Z set PointsY=`$WC $xTV/COORDONNEES$COORD_Y` # # $Z set PointsY=$PointsY[$WC1] # # $Z set PointsZ=`$WC $xTV/COORDONNEES$COORD_Z` # # $Z set PointsZ=$PointsZ[$WC1] # # # # $Z set PointsXY=`$xcg/MIN2.01$X n1=$PointsX n2=$PointsY` # # $Z set PointsXYZ=`$xcg/MIN2.01$X n1=$PointsXY n2=$PointsZ` # # # # $Z set Part0=1 # # $Z set PartN=$PointsXYZ # # # # $Z $DELETE $xTV/COULEURS$TEINT # # $Z $DELETE $xTV/COULEURS$LUMIN # # $Z $DELETE $xTV/COULEURS$SATUR # # $Z $DELETE $xTV/COULEURS$Y # # $Z $DELETE $xTV/COULEURS # # $Z $DELETE $xTV/COULEURS$ROUGE # # $Z $DELETE $xTV/COULEURS$VERTE # # $Z $DELETE $xTV/COULEURS$BLEUE # # # # $Z set TeinteDepart=$GRIS_0 # # $Z set TeinteArrivee=$GRIS_8 # # # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$TeinteDepart vA=$TeinteArrivee \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$TEINT # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$GRIS_4 vA=$GRIS_4 \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$LUMIN # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$GRIS_8 vA=$GRIS_8 \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$SATUR # # # # $Z $PAST \ # # $Z $xTV/COULEURS$TEINT \ # # $Z $xTV/COULEURS$LUMIN \ # # $Z $xTV/COULEURS$SATUR \ # # $Z | $R "$K_TAB" "$K_BLANC" \ # # $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ # # $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ # # $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ # # $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ # # $Z > $xTV/COULEURS$Y # # # # $Z (source $xTV/COULEURS$Y) \ # # $Z > $xTV/COULEURS # # # # $Z $GRE "^R=" $xTV/COULEURS \ # # $Z | $SE -e "s/^R=//" \ # # $Z > $xTV/COULEURS$ROUGE # # $Z $GRE "^V=" $xTV/COULEURS \ # # $Z | $SE -e "s/^V=//" \ # # $Z > $xTV/COULEURS$VERTE # # $Z $GRE "^B=" $xTV/COULEURS \ # # $Z | $SE -e "s/^B=//" \ # # $Z > $xTV/COULEURS$BLEUE # # # # $Z $xrv/particule.10$X np=1 iterations=$PointsXYZ \ # # $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ # # $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ # # $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ # # $Z LISTE_RAYON=0.005 \ # # $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ # # $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ # # $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ # # $Z Lz=1000 \ # # $Z zoom_automatique=FAUX ZOOM=1.0 \ # # $Z coordonnees_dans_0_1=FAUX \ # # $Z AXYZ=1 BXYZ=0 \ # # $Z isoles=FAUX points=120 \ # # $Z N_au_carre=FAUX \ # # $Z RVB=VRAI \ # # $Z R=$xTV/REGL.3. \ # # $Z $formatI # # # # $X $xci/genere$X c='$CP $xTV/REGL.3.0001%s $xiirv/REGL.13%s' RVB=VRAI # # $X $xci/genere$X c='ro $xiirv/REGL.13%s' RVB=VRAI # # # v $xiirv/REGL.14 # Generee (sur '$LACT29') par : # # # # $Z Pal # # # # $Z $DELETE $xTV/LISTE.1 # # $Z $DELETE $xTV/LISTE.1$COORD_X # # $Z $DELETE $xTV/LISTE.1$COORD_Y # # $Z $DELETE $xTV/LISTE.1$COORD_Z # # # # $Z $DELETE $xTV/LISTE.2 # # $Z $DELETE $xTV/LISTE.2$COORD_X # # $Z $DELETE $xTV/LISTE.2$COORD_Y # # $Z $DELETE $xTV/LISTE.2$COORD_Z # # # # $Z $DELETE $xTV/COORDONNEES$COORD_X # # $Z $DELETE $xTV/COORDONNEES$COORD_Y # # $Z $DELETE $xTV/COORDONNEES$COORD_Z # # # # # # $Z set Iterations=500 # # $Z set PasDeTemps=`$xcg/DIVZ.01$X n1=$dpi n2=$Iterations` # # # # $Z $xrk/SinCos.11$X np=1 \ # # $Z iterations=$Iterations \ # # $Z dt=$PasDeTemps \ # # $Z osx=1 osy=3 osz=5 \ # # $Z psx=$pi psy=$pi psz=$pi \ # # $Z RVB=FAUX \ # # $Z Lz=100 ZOOM=0.8 \ # # $Z lister_les_points=VRAI \ # # $Z R=$xTV/REGL.1. \ # # $Z $formatI \ # # $Z > $xTV/LISTE.1 # # # # # # $Z $xrk/SinCos.11$X np=1 \ # # $Z iterations=$Iterations \ # # $Z dt=$PasDeTemps \ # # $Z osx=3 osy=5 osz=7 \ # # $Z psx=$pi psy=$pi psz=$pi \ # # $Z RVB=FAUX \ # # $Z Lz=100 ZOOM=0.8 \ # # $Z lister_les_points=VRAI \ # # $Z R=$xTV/REGL.2. \ # # $Z $formatI \ # # $Z > $xTV/LISTE.2 # # # # # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Xx]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_X # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Yy]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_Y # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Zz]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_Z # # # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Xx]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_X # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Yy]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_Y # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Zz]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_Z # # # # $Z $PAST $xTV/LISTE.1$COORD_X $xTV/LISTE.2$COORD_X | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_X # # $Z $PAST $xTV/LISTE.1$COORD_Y $xTV/LISTE.2$COORD_Y | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_Y # # $Z $PAST $xTV/LISTE.1$COORD_Z $xTV/LISTE.2$COORD_Z | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_Z # # # # $Z set PointsX=`$WC $xTV/COORDONNEES$COORD_X` # # $Z set PointsX=$PointsX[$WC1] # # $Z set PointsY=`$WC $xTV/COORDONNEES$COORD_Y` # # $Z set PointsY=$PointsY[$WC1] # # $Z set PointsZ=`$WC $xTV/COORDONNEES$COORD_Z` # # $Z set PointsZ=$PointsZ[$WC1] # # # # $Z set PointsXY=`$xcg/MIN2.01$X n1=$PointsX n2=$PointsY` # # $Z set PointsXYZ=`$xcg/MIN2.01$X n1=$PointsXY n2=$PointsZ` # # # # $Z set Part0=1 # # $Z set PartN=$PointsXYZ # # # # $Z $DELETE $xTV/COULEURS$TEINT # # $Z $DELETE $xTV/COULEURS$LUMIN # # $Z $DELETE $xTV/COULEURS$SATUR # # $Z $DELETE $xTV/COULEURS$Y # # $Z $DELETE $xTV/COULEURS # # $Z $DELETE $xTV/COULEURS$ROUGE # # $Z $DELETE $xTV/COULEURS$VERTE # # $Z $DELETE $xTV/COULEURS$BLEUE # # # # $Z set TeinteDepart=$GRIS_0 # # $Z set TeinteArrivee=$GRIS_8 # # # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$TeinteDepart vA=$TeinteArrivee \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$TEINT # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$GRIS_4 vA=$GRIS_4 \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$LUMIN # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$GRIS_8 vA=$GRIS_8 \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$SATUR # # # # $Z $PAST \ # # $Z $xTV/COULEURS$TEINT \ # # $Z $xTV/COULEURS$LUMIN \ # # $Z $xTV/COULEURS$SATUR \ # # $Z | $R "$K_TAB" "$K_BLANC" \ # # $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ # # $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ # # $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ # # $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ # # $Z > $xTV/COULEURS$Y # # # # $Z (source $xTV/COULEURS$Y) \ # # $Z > $xTV/COULEURS # # # # $Z $GRE "^R=" $xTV/COULEURS \ # # $Z | $SE -e "s/^R=//" \ # # $Z > $xTV/COULEURS$ROUGE # # $Z $GRE "^V=" $xTV/COULEURS \ # # $Z | $SE -e "s/^V=//" \ # # $Z > $xTV/COULEURS$VERTE # # $Z $GRE "^B=" $xTV/COULEURS \ # # $Z | $SE -e "s/^B=//" \ # # $Z > $xTV/COULEURS$BLEUE # # # # $Z $xrv/particule.10$X np=1 iterations=$PointsXYZ \ # # $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ # # $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ # # $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ # # $Z LISTE_RAYON=0.005 \ # # $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ # # $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ # # $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ # # $Z Lz=1000 \ # # $Z zoom_automatique=FAUX ZOOM=1.0 \ # # $Z coordonnees_dans_0_1=FAUX \ # # $Z AXYZ=1 BXYZ=0 \ # # $Z isoles=FAUX points=160 \ # # $Z N_au_carre=FAUX \ # # $Z RVB=VRAI \ # # $Z R=$xTV/REGL.3. \ # # $Z $formatI # # # # $X $xci/genere$X c='$CP $xTV/REGL.3.0001%s $xiirv/REGL.14%s' RVB=VRAI # # $X $xci/genere$X c='ro $xiirv/REGL.14%s' RVB=VRAI # # # v $xiirv/REGL.15 v $xiirv/REGL.16 # Generee (sur '$LACT27') par : # # # # $Z Pal # # # # $Z $DELETE $xTV/LISTE.1 # # $Z $DELETE $xTV/LISTE.1$COORD_X # # $Z $DELETE $xTV/LISTE.1$COORD_Y # # $Z $DELETE $xTV/LISTE.1$COORD_Z # # # # $Z $DELETE $xTV/LISTE.2 # # $Z $DELETE $xTV/LISTE.2$COORD_X # # $Z $DELETE $xTV/LISTE.2$COORD_Y # # $Z $DELETE $xTV/LISTE.2$COORD_Z # # # # $Z $DELETE $xTV/COORDONNEES$COORD_X # # $Z $DELETE $xTV/COORDONNEES$COORD_Y # # $Z $DELETE $xTV/COORDONNEES$COORD_Z # # # # # # $Z set Iterations=400 # # $Z set PasDeTemps=`$xcg/DIVZ.01$X n1=$dpi n2=$Iterations` # # # # $Z $xrk/SinCos.11$X np=1 \ # # $Z iterations=$Iterations \ # # $Z dt=$PasDeTemps \ # # $Z osx=1 osy=3 osz=5 \ # # $Z psx=$pi psy=$pi psz=$pi \ # # $Z RVB=FAUX \ # # $Z Lz=100 ZOOM=0.8 \ # # $Z lister_les_points=VRAI \ # # $Z R=$xTV/REGL.1. \ # # $Z $formatI \ # # $Z > $xTV/LISTE.1 # # # # # # $Z $xrk/SinCos.11$X np=1 \ # # $Z iterations=$Iterations \ # # $Z dt=$PasDeTemps \ # # $Z osx=3 osy=5 osz=7 \ # # $Z psx=$pi psy=$pi psz=$pi \ # # $Z RVB=FAUX \ # # $Z Lz=100 ZOOM=0.8 \ # # $Z lister_les_points=VRAI \ # # $Z R=$xTV/REGL.2. \ # # $Z $formatI \ # # $Z > $xTV/LISTE.2 # # # # # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Xx]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_X # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Yy]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_Y # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Zz]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_Z # # # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Xx]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_X # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Yy]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_Y # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Zz]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_Z # # # # $Z $PAST $xTV/LISTE.1$COORD_X $xTV/LISTE.2$COORD_X | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_X # # $Z $PAST $xTV/LISTE.1$COORD_Y $xTV/LISTE.2$COORD_Y | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_Y # # $Z $PAST $xTV/LISTE.1$COORD_Z $xTV/LISTE.2$COORD_Z | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_Z # # # # $Z set PointsX=`$WC $xTV/COORDONNEES$COORD_X` # # $Z set PointsX=$PointsX[$WC1] # # $Z set PointsY=`$WC $xTV/COORDONNEES$COORD_Y` # # $Z set PointsY=$PointsY[$WC1] # # $Z set PointsZ=`$WC $xTV/COORDONNEES$COORD_Z` # # $Z set PointsZ=$PointsZ[$WC1] # # # # $Z set PointsXY=`$xcg/MIN2.01$X n1=$PointsX n2=$PointsY` # # $Z set PointsXYZ=`$xcg/MIN2.01$X n1=$PointsXY n2=$PointsZ` # # # # $Z set Part0=1 # # $Z set PartN=$PointsXYZ # # # # $Z $DELETE $xTV/COULEURS$TEINT # # $Z $DELETE $xTV/COULEURS$LUMIN # # $Z $DELETE $xTV/COULEURS$SATUR # # $Z $DELETE $xTV/COULEURS$Y # # $Z $DELETE $xTV/COULEURS # # $Z $DELETE $xTV/COULEURS$ROUGE # # $Z $DELETE $xTV/COULEURS$VERTE # # $Z $DELETE $xTV/COULEURS$BLEUE # # # # $Z set TeinteDepart=$GRIS_0 # # $Z set TeinteArrivee=`$xcg/DIVZ.01$X a=$GRIS_8 b=6 entier=VRAI` # # # # $Z set PartNs2=`$xcg/DIVZ.01$X a=$PartN b=2 entier=VRAI` # # # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartNs2 \ # # $Z vD=$TeinteDepart vA=$TeinteArrivee \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$TEINT # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartNs2 \ # # $Z vD=$TeinteArrivee vA=$TeinteDepart \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z >>! $xTV/COULEURS$TEINT # # # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$GRIS_4 vA=$GRIS_4 \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$LUMIN # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$GRIS_8 vA=$GRIS_8 \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$SATUR # # # # $Z $PAST \ # # $Z $xTV/COULEURS$TEINT \ # # $Z $xTV/COULEURS$LUMIN \ # # $Z $xTV/COULEURS$SATUR \ # # $Z | $R "$K_TAB" "$K_BLANC" \ # # $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ # # $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ # # $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ # # $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ # # $Z > $xTV/COULEURS$Y # # # # $Z (source $xTV/COULEURS$Y) \ # # $Z > $xTV/COULEURS # # # # $Z $GRE "^R=" $xTV/COULEURS \ # # $Z | $SE -e "s/^R=//" \ # # $Z > $xTV/COULEURS$ROUGE # # $Z $GRE "^V=" $xTV/COULEURS \ # # $Z | $SE -e "s/^V=//" \ # # $Z > $xTV/COULEURS$VERTE # # $Z $GRE "^B=" $xTV/COULEURS \ # # $Z | $SE -e "s/^B=//" \ # # $Z > $xTV/COULEURS$BLEUE # # # # $Z $xrv/particule.10$X np=1 iterations=$PointsXYZ \ # # $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ # # $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ # # $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ # # $Z LISTE_RAYON=0.004 \ # # $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ # # $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ # # $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ # # $Z Lz=1 \ # # $Z zoom_automatique=FAUX ZOOM=1.0 \ # # $Z coordonnees_dans_0_1=FAUX \ # # $Z AXYZ=1 BXYZ=0 \ # # $Z isoles=FAUX points=14 grossissement=2.6 \ # # $Z N_au_carre=FAUX \ # # $Z RVB=VRAI \ # # $Z R=$xTV/REGL.4. \ # # $Z $formatI # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/init$X \ # # $X n=$BLANC \ # # $X R=$xTV/FOND%s \ # # $X $formatI' # # # # $Z $xrv/particule.10$X np=1 iterations=$PointsXYZ \ # # $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ # # $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ # # $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ # # $Z LISTE_RAYON=0.004 \ # # $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ # # $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ # # $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ # # $Z Lz=1 \ # # $Z zoom_automatique=FAUX ZOOM=1.0 \ # # $Z coordonnees_dans_0_1=FAUX \ # # $Z AXYZ=1 BXYZ=0 \ # # $Z isoles=FAUX points=14 grossissement=2.6 \ # # $Z N_au_carre=FAUX \ # # $Z RVB=VRAI \ # # $Z fond=VRAI fond_dynamique=FAUX \ # # $Z F=$xTV/FOND \ # # $Z R=$xTV/REGL.5. \ # # $Z $formatI # # # # $X $xci/genere$X c='$CP $xTV/REGL.4.0001%s $xiirv/REGL.15%s' RVB=VRAI # # $X $xci/genere$X c='ro $xiirv/REGL.15%s' RVB=VRAI # # $X $xci/genere$X c='$CP $xTV/REGL.5.0001%s $xiirv/REGL.16%s' RVB=VRAI # # $X $xci/genere$X c='ro $xiirv/REGL.16%s' RVB=VRAI # # # v $xiirv/REGL.17 # Generee (sur '$LACT27') par : # # # # $Z Sdu # # # # $Z $DELETE $xTV/LISTE.1 # # $Z $DELETE $xTV/LISTE.1$COORD_X # # $Z $DELETE $xTV/LISTE.1$COORD_Y # # $Z $DELETE $xTV/LISTE.1$COORD_Z # # # # $Z $DELETE $xTV/LISTE.2 # # $Z $DELETE $xTV/LISTE.2$COORD_X # # $Z $DELETE $xTV/LISTE.2$COORD_Y # # $Z $DELETE $xTV/LISTE.2$COORD_Z # # # # $Z $DELETE $xTV/COORDONNEES$COORD_X # # $Z $DELETE $xTV/COORDONNEES$COORD_Y # # $Z $DELETE $xTV/COORDONNEES$COORD_Z # # # # # # $Z set Iterations=400 # # $Z set PasDeTemps=`$xcg/DIVZ.01$X n1=$dpi n2=$Iterations` # # # # $Z $xrk/SinCos.11$X np=1 \ # # $Z iterations=$Iterations \ # # $Z dt=$PasDeTemps \ # # $Z osx=1 osy=3 osz=5 \ # # $Z psx=$pi psy=$pi psz=$pi \ # # $Z RVB=FAUX \ # # $Z Lz=100 ZOOM=0.8 \ # # $Z lister_les_points=VRAI \ # # $Z lister_les_points_apres=FAUX \ # # $Z R=$xTV/REGL.1. \ # # $Z $formatI \ # # $Z > $xTV/LISTE.1 # # # # # # $Z $xrk/SinCos.11$X np=1 \ # # $Z iterations=$Iterations \ # # $Z dt=$PasDeTemps \ # # $Z osx=3 osy=5 osz=7 \ # # $Z psx=$pi psy=$pi psz=$pi \ # # $Z RVB=FAUX \ # # $Z Lz=100 ZOOM=0.8 \ # # $Z lister_les_points=VRAI \ # # $Z lister_les_points_apres=FAUX \ # # $Z R=$xTV/REGL.2. \ # # $Z $formatI \ # # $Z > $xTV/LISTE.2 # # # # # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Xx]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_X # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Yy]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_Y # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Zz]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_Z # # # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Xx]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_X # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Yy]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_Y # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Zz]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_Z # # # # $Z $PAST $xTV/LISTE.1$COORD_X $xTV/LISTE.2$COORD_X | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_X # # $Z $PAST $xTV/LISTE.1$COORD_Y $xTV/LISTE.2$COORD_Y | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_Y # # $Z $PAST $xTV/LISTE.1$COORD_Z $xTV/LISTE.2$COORD_Z | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_Z # # # # $Z set PointsX=`$WC $xTV/COORDONNEES$COORD_X` # # $Z set PointsX=$PointsX[$WC1] # # $Z set PointsY=`$WC $xTV/COORDONNEES$COORD_Y` # # $Z set PointsY=$PointsY[$WC1] # # $Z set PointsZ=`$WC $xTV/COORDONNEES$COORD_Z` # # $Z set PointsZ=$PointsZ[$WC1] # # # # $Z set PointsXY=`$xcg/MIN2.01$X n1=$PointsX n2=$PointsY` # # $Z set PointsXYZ=`$xcg/MIN2.01$X n1=$PointsXY n2=$PointsZ` # # # # $Z set Part0=1 # # $Z set PartN=$PointsXYZ # # # # $Z $DELETE $xTV/COULEURS$TEINT # # $Z $DELETE $xTV/COULEURS$LUMIN # # $Z $DELETE $xTV/COULEURS$SATUR # # $Z $DELETE $xTV/COULEURS$Y # # $Z $DELETE $xTV/COULEURS # # $Z $DELETE $xTV/COULEURS$ROUGE # # $Z $DELETE $xTV/COULEURS$VERTE # # $Z $DELETE $xTV/COULEURS$BLEUE # # # # $Z set TeinteDepart=$GRIS_0 # # $Z set TeinteArrivee=`$xcg/DIVZ.01$X a=$GRIS_8 b=6 entier=VRAI` # # # # $Z set PartNs2=`$xcg/DIVZ.01$X a=$PartN b=2 entier=VRAI` # # # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartNs2 \ # # $Z vD=$TeinteDepart vA=$TeinteArrivee \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$TEINT # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartNs2 \ # # $Z vD=$TeinteArrivee vA=$TeinteDepart \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z >>! $xTV/COULEURS$TEINT # # # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$GRIS_6 vA=$GRIS_6 \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$LUMIN # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$GRIS_8 vA=$GRIS_8 \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$SATUR # # # # $Z $PAST \ # # $Z $xTV/COULEURS$TEINT \ # # $Z $xTV/COULEURS$LUMIN \ # # $Z $xTV/COULEURS$SATUR \ # # $Z | $R "$K_TAB" "$K_BLANC" \ # # $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ # # $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ # # $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ # # $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ # # $Z > $xTV/COULEURS$Y # # # # $Z (source $xTV/COULEURS$Y) \ # # $Z > $xTV/COULEURS # # # # $Z $GRE "^R=" $xTV/COULEURS \ # # $Z | $SE -e "s/^R=//" \ # # $Z > $xTV/COULEURS$ROUGE # # $Z $GRE "^V=" $xTV/COULEURS \ # # $Z | $SE -e "s/^V=//" \ # # $Z > $xTV/COULEURS$VERTE # # $Z $GRE "^B=" $xTV/COULEURS \ # # $Z | $SE -e "s/^B=//" \ # # $Z > $xTV/COULEURS$BLEUE # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/init$X \ # # $X n=$BLANC \ # # $X R=$xTV/FOND%s \ # # $X $formatI' # # # # $Z $xrv/particule.10$X np=1 iterations=$PointsXYZ \ # # $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ # # $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ # # $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ # # $Z LISTE_RAYON=0.005 \ # # $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ # # $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ # # $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ # # $Z Lz=1 \ # # $Z zoom_automatique=FAUX ZOOM=0.75 \ # # $Z ROTATION_OZ=-$pis2 \ # # $Z coordonnees_dans_0_1=VRAI \ # # $Z AXYZ=1 BXYZ=0 \ # # $Z isoles=FAUX points=32 grossissement=2.6 \ # # $Z N_au_carre=FAUX \ # # $Z RVB=VRAI \ # # $Z attenuation_au_bord=0.80 \ # # $Z fond=VRAI fond_dynamique=FAUX \ # # $Z F=$xTV/FOND \ # # $Z R=$xTV/REGL.6. \ # # $Z $formatI # # # # $X $xci/genere$X c='$CP $xTV/REGL.6.0001%s $xiirv/REGL.17%s' RVB=VRAI # # $X $xci/genere$X c='ro $xiirv/REGL.17%s' RVB=VRAI # # # v $xiirv/REGL.18 # Generee (sur '$LACT27') par : # # # # $Z Sdu # # # # $Z $DELETE $xTV/LISTE.1 # # $Z $DELETE $xTV/LISTE.1$COORD_X # # $Z $DELETE $xTV/LISTE.1$COORD_Y # # $Z $DELETE $xTV/LISTE.1$COORD_Z # # # # $Z $DELETE $xTV/LISTE.2 # # $Z $DELETE $xTV/LISTE.2$COORD_X # # $Z $DELETE $xTV/LISTE.2$COORD_Y # # $Z $DELETE $xTV/LISTE.2$COORD_Z # # $Z $DELETE $xTV/LISTE.3$COORD_X # # $Z $DELETE $xTV/LISTE.3$COORD_Y # # $Z $DELETE $xTV/LISTE.3$COORD_Z # # # # $Z $DELETE $xTV/SHUFFLING # # # # $Z $DELETE $xTV/COORDONNEES$COORD_X # # $Z $DELETE $xTV/COORDONNEES$COORD_Y # # $Z $DELETE $xTV/COORDONNEES$COORD_Z # # # # # # $Z set Iterations=400 # # $Z set PasDeTemps=`$xcg/DIVZ.01$X n1=$dpi n2=$Iterations` # # # # $Z $xrk/SinCos.11$X np=1 \ # # $Z iterations=$Iterations \ # # $Z dt=$PasDeTemps \ # # $Z osx=1 osy=3 osz=5 \ # # $Z psx=$pi psy=$pi psz=$pi \ # # $Z RVB=FAUX \ # # $Z Lz=100 ZOOM=0.8 \ # # $Z lister_les_points=VRAI \ # # $Z lister_les_points_apres=FAUX \ # # $Z R=$xTV/REGL.1. \ # # $Z $formatI \ # # $Z > $xTV/LISTE.1 # # # # # # $Z $xrk/SinCos.11$X np=1 \ # # $Z iterations=$Iterations \ # # $Z dt=$PasDeTemps \ # # $Z osx=3 osy=5 osz=7 \ # # $Z psx=$pi psy=$pi psz=$pi \ # # $Z RVB=FAUX \ # # $Z Lz=100 ZOOM=0.8 \ # # $Z lister_les_points=VRAI \ # # $Z lister_les_points_apres=FAUX \ # # $Z R=$xTV/REGL.2. \ # # $Z $formatI \ # # $Z > $xTV/LISTE.2 # # # # # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Xx]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_X # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Yy]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_Y # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Zz]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_Z # # # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Xx]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_X # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Yy]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_Y # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Zz]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_Z # # # # $Z set PointsX=`$WC $xTV/LISTE.2$COORD_X` # # $Z set PointsX=$PointsX[$WC1] # # $Z set PointsY=`$WC $xTV/LISTE.2$COORD_Y` # # $Z set PointsY=$PointsY[$WC1] # # $Z set PointsZ=`$WC $xTV/LISTE.2$COORD_Z` # # $Z set PointsZ=$PointsZ[$WC1] # # # # $Z set PointsXY=`$xcg/MIN2.01$X n1=$PointsX n2=$PointsY` # # $Z set PointsXYZ=`$xcg/MIN2.01$X n1=$PointsXY n2=$PointsZ signe="$K_VIDE"` # # # # $Z @ Part0 = 0 # # $Z @ PartN = $PointsXYZ - 1 # # # # $Z $xci/valeurs_alea$X premiere=$Part0 derniere=$PartN \ # # $Z inf=$Part0 sup=$PartN \ # # $Z entiers=VRAI \ # # $Z sans_collisions=VRAI \ # # $Z CAL1=FAUX \ # # $Z > $xTV/SHUFFLING # # # # $Z $xrv/permute.11$X ne=$PointsXYZ \ # # $Z fichier=$xTV/LISTE.2$COORD_X \ # # $Z permutation=$xTV/SHUFFLING \ # # $Z > $xTV/LISTE.3$COORD_X # # $Z $xrv/permute.11$X ne=$PointsXYZ \ # # $Z fichier=$xTV/LISTE.2$COORD_Y \ # # $Z permutation=$xTV/SHUFFLING \ # # $Z > $xTV/LISTE.3$COORD_Y # # $Z $xrv/permute.11$X ne=$PointsXYZ \ # # $Z fichier=$xTV/LISTE.2$COORD_Z \ # # $Z permutation=$xTV/SHUFFLING \ # # $Z > $xTV/LISTE.3$COORD_Z # # # # $Z $PAST $xTV/LISTE.1$COORD_X $xTV/LISTE.3$COORD_X | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_X # # $Z $PAST $xTV/LISTE.1$COORD_Y $xTV/LISTE.3$COORD_Y | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_Y # # $Z $PAST $xTV/LISTE.1$COORD_Z $xTV/LISTE.3$COORD_Z | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_Z # # # # $Z set PointsX=`$WC $xTV/COORDONNEES$COORD_X` # # $Z set PointsX=$PointsX[$WC1] # # $Z set PointsY=`$WC $xTV/COORDONNEES$COORD_Y` # # $Z set PointsY=$PointsY[$WC1] # # $Z set PointsZ=`$WC $xTV/COORDONNEES$COORD_Z` # # $Z set PointsZ=$PointsZ[$WC1] # # # # $Z set PointsXY=`$xcg/MIN2.01$X n1=$PointsX n2=$PointsY` # # $Z set PointsXYZ=`$xcg/MIN2.01$X n1=$PointsXY n2=$PointsZ` # # # # $Z set Part0=1 # # $Z set PartN=$PointsXYZ # # # # $Z $DELETE $xTV/COULEURS$TEINT # # $Z $DELETE $xTV/COULEURS$LUMIN # # $Z $DELETE $xTV/COULEURS$SATUR # # $Z $DELETE $xTV/COULEURS$Y # # $Z $DELETE $xTV/COULEURS # # $Z $DELETE $xTV/COULEURS$ROUGE # # $Z $DELETE $xTV/COULEURS$VERTE # # $Z $DELETE $xTV/COULEURS$BLEUE # # # # $Z set TeinteDepart=$GRIS_0 # # $Z set TeinteArrivee=`$xcg/DIVZ.01$X a=$GRIS_8 b=6 entier=VRAI` # # # # $Z set PartNs2=`$xcg/DIVZ.01$X a=$PartN b=2 entier=VRAI` # # # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartNs2 \ # # $Z vD=$TeinteDepart vA=$TeinteArrivee \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$TEINT # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartNs2 \ # # $Z vD=$TeinteArrivee vA=$TeinteDepart \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z >>! $xTV/COULEURS$TEINT # # # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$GRIS_4 vA=$GRIS_4 \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$LUMIN # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$GRIS_8 vA=$GRIS_8 \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$SATUR # # # # $Z $PAST \ # # $Z $xTV/COULEURS$TEINT \ # # $Z $xTV/COULEURS$LUMIN \ # # $Z $xTV/COULEURS$SATUR \ # # $Z | $R "$K_TAB" "$K_BLANC" \ # # $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ # # $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ # # $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ # # $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ # # $Z > $xTV/COULEURS$Y # # # # $Z (source $xTV/COULEURS$Y) \ # # $Z > $xTV/COULEURS # # # # $Z $GRE "^R=" $xTV/COULEURS \ # # $Z | $SE -e "s/^R=//" \ # # $Z > $xTV/COULEURS$ROUGE # # $Z $GRE "^V=" $xTV/COULEURS \ # # $Z | $SE -e "s/^V=//" \ # # $Z > $xTV/COULEURS$VERTE # # $Z $GRE "^B=" $xTV/COULEURS \ # # $Z | $SE -e "s/^B=//" \ # # $Z > $xTV/COULEURS$BLEUE # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/init$X \ # # $X n=$BLANC \ # # $X R=$xTV/FOND%s \ # # $X $formatI' # # # # $Z $xrv/particule.10$X np=1 iterations=$PointsXYZ \ # # $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ # # $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ # # $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ # # $Z LISTE_RAYON=0.005 \ # # $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ # # $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ # # $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ # # $Z Lz=1 \ # # $Z zoom_automatique=FAUX ZOOM=0.75 \ # # $Z ROTATION_OZ=-$pis2 \ # # $Z coordonnees_dans_0_1=VRAI \ # # $Z AXYZ=1 BXYZ=0 \ # # $Z isoles=FAUX points=120 grossissement=2.6 \ # # $Z N_au_carre=FAUX \ # # $Z RVB=VRAI \ # # $Z attenuation_au_bord=0.125 \ # # $Z fond=VRAI fond_dynamique=FAUX \ # # $Z F=$xTV/FOND \ # # $Z R=$xTV/REGL.7. \ # # $Z $formatI # # # # $X $xci/genere$X c='$CP $xTV/REGL.7.0001%s $xiirv/REGL.18%s' RVB=VRAI # # $X $xci/genere$X c='ro $xiirv/REGL.18%s' RVB=VRAI # # # v $xiirv/REGL.24.0001 # Cette image est l'image '0001' de la sequence : # # # # xivPdf 6 1 / 002529_002656 # # # v $xiirv/REGL.31.0001 # Cette image est l'image '0001' de la sequence : # # # # xivPdf 6 1 / 002657_002784 # # # v $xiirv/REGL.31.0.0 v $xiirv/REGL.31.0.1 v $xiirv/REGL.31.1.0 v $xiirv/REGL.31.1.0 p=$xiP/dentscie.01 v $xiirv/REGL.31.1.0 p=$xiP/dentscie.02 v $xiirv/REGL.31.1.0 p=$xiP/dentscie.04 v $xiirv/REGL.31.1.0 p=$xiP/dentscie.08 v $xiirv/REGL.31.1.0 p=$xiP/fractal.11 v $xiirv/REGL.31.1.0 p=$xiP/random.06 v $xiirv/REGL.31.1.0 p=$xiP/trou_noir.14 v $xiirv/REGL.31.1.1 # Ces images sont obtenues par accumulation ('$xci/accumule.01$X') de la sequence : # # # # xivPdf 6 1 / 002657_002784 # # # # avec les parametres : # # # # maximum=FAUX attenuation=0 # # maximum=FAUX attenuation=1 # # maximum=VRAI attenuation=0 # # maximum=VRAI attenuation=1 # # # # respectivement (FAUX=0, VRAI=1 suivant les conventions de programmation...). Enfin, # # l'image '$xiirv/REGL.31.1.0' est la luminance '$xci/luminance.01$X' de l'image de meme nom. # v $xiirv/REGL.41.0 p=$xiP/gris.01 v $xiirv/REGL.41.0 p=$xiP/dentscie.01 v $xiirv/REGL.41.0 p=$xiP/dentscie.02 v $xiirv/REGL.41.0 p=$xiP/dentscie.04 v $xiirv/REGL.41.0 p=$xiP/random.06 v $xiirv/REGL.41.1 p=$xiP/gris.06 # Ces images sont obtenues par accumulation ('$xci/accumule.01$X') de la sequence : # # # # xivPdf 6 1 / 002785_002912 # # # # avec les parametres : # # # # maximum=VRAI attenuation=0 # # # # et : # # # # maximum=VRAI attenuation=1 # # # # respectivement... # v $xiirv/REGL.41.0$m p=$xiP/montagnes.01 # Generee par : # # # # $Z Pal # # # # # # $Z $xci/init$X n=$BLANC \ # # $Z R=$xT/TEXTURE \ # # $Z $formatI # # # # $Z $xci/acces$X A=$xiirv/REGL.41.0 \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=512 \ # # $Z $formatI | \ # # $Z $xci/montagne.01$X \ # # $Z standard=FAUX \ # # $Z T=$xT/TEXTURE \ # # $Z avion=VRAI \ # # $Z R=$xiirv/REGL.41.0$m \ # # $Z $formatI # # # v $xiirv/REGL.51 # Generee (sur '$LACT29') par : # # # # $Z Pal # # # # $Z $DELETE $xTV/LISTE.1 # # $Z $DELETE $xTV/LISTE.1$COORD_X # # $Z $DELETE $xTV/LISTE.1$COORD_Y # # $Z $DELETE $xTV/LISTE.1$COORD_Z # # # # $Z $DELETE $xTV/LISTE.2 # # $Z $DELETE $xTV/LISTE.2$COORD_X # # $Z $DELETE $xTV/LISTE.2$COORD_Y # # $Z $DELETE $xTV/LISTE.2$COORD_Z # # # # $Z $DELETE $xTV/COORDONNEES$COORD_X # # $Z $DELETE $xTV/COORDONNEES$COORD_Y # # $Z $DELETE $xTV/COORDONNEES$COORD_Z # # # # # # $Z set Iterations=500 # # $Z set PasDeTemps=`$xcg/DIVZ.01$X n1=$dpi n2=$Iterations` # # # # $Z $xrk/SinCos.11$X np=1 \ # # $Z iterations=$Iterations \ # # $Z dt=$PasDeTemps \ # # $Z osx=1 osy=1 osz=1 \ # # $Z psx=$pi psy=$pi psz=$pi \ # # $Z RVB=FAUX \ # # $Z Lz=100 ZOOM=0.8 \ # # $Z lister_les_points=VRAI \ # # $Z R=$xTV/REGL.1. \ # # $Z $formatI \ # # $Z > $xTV/LISTE.1 # # # # # # $Z $xrk/SinCos.11$X np=1 \ # # $Z iterations=$Iterations \ # # $Z dt=$PasDeTemps \ # # $Z osx=2 osy=4 osz=6 \ # # $Z psx=$pi psy=$pi psz=$pi \ # # $Z RVB=FAUX \ # # $Z Lz=100 ZOOM=0.8 \ # # $Z lister_les_points=VRAI \ # # $Z R=$xTV/REGL.2. \ # # $Z $formatI \ # # $Z > $xTV/LISTE.2 # # # # # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Xx]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_X # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Yy]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_Y # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Zz]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_Z # # # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Xx]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_X # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Yy]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_Y # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Zz]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_Z # # # # $Z $PAST $xTV/LISTE.1$COORD_X $xTV/LISTE.2$COORD_X | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_X # # $Z $PAST $xTV/LISTE.1$COORD_Y $xTV/LISTE.2$COORD_Y | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_Y # # $Z $PAST $xTV/LISTE.1$COORD_Z $xTV/LISTE.2$COORD_Z | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_Z # # # # $Z set PointsX=`$WC $xTV/COORDONNEES$COORD_X` # # $Z set PointsX=$PointsX[$WC1] # # $Z set PointsY=`$WC $xTV/COORDONNEES$COORD_Y` # # $Z set PointsY=$PointsY[$WC1] # # $Z set PointsZ=`$WC $xTV/COORDONNEES$COORD_Z` # # $Z set PointsZ=$PointsZ[$WC1] # # # # $Z set PointsXY=`$xcg/MIN2.01$X n1=$PointsX n2=$PointsY` # # $Z set PointsXYZ=`$xcg/MIN2.01$X n1=$PointsXY n2=$PointsZ` # # # # $Z set Part0=1 # # $Z set PartN=$PointsXYZ # # # # $Z $DELETE $xTV/COULEURS$TEINT # # $Z $DELETE $xTV/COULEURS$LUMIN # # $Z $DELETE $xTV/COULEURS$SATUR # # $Z $DELETE $xTV/COULEURS$Y # # $Z $DELETE $xTV/COULEURS # # $Z $DELETE $xTV/COULEURS$ROUGE # # $Z $DELETE $xTV/COULEURS$VERTE # # $Z $DELETE $xTV/COULEURS$BLEUE # # # # $Z set TeinteDepart=$GRIS_0 # # $Z set TeinteArrivee=$GRIS_8 # # # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$TeinteDepart vA=$TeinteArrivee \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$TEINT # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$GRIS_4 vA=$GRIS_4 \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$LUMIN # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$GRIS_8 vA=$GRIS_8 \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$SATUR # # # # $Z $PAST \ # # $Z $xTV/COULEURS$TEINT \ # # $Z $xTV/COULEURS$LUMIN \ # # $Z $xTV/COULEURS$SATUR \ # # $Z | $R "$K_TAB" "$K_BLANC" \ # # $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ # # $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ # # $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ # # $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ # # $Z > $xTV/COULEURS$Y # # # # $Z (source $xTV/COULEURS$Y) \ # # $Z > $xTV/COULEURS # # # # $Z $GRE "^R=" $xTV/COULEURS \ # # $Z | $SE -e "s/^R=//" \ # # $Z > $xTV/COULEURS$ROUGE # # $Z $GRE "^V=" $xTV/COULEURS \ # # $Z | $SE -e "s/^V=//" \ # # $Z > $xTV/COULEURS$VERTE # # $Z $GRE "^B=" $xTV/COULEURS \ # # $Z | $SE -e "s/^B=//" \ # # $Z > $xTV/COULEURS$BLEUE # # # # $Z $xrv/particule.10$X np=1 iterations=$PointsXYZ \ # # $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ # # $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ # # $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ # # $Z LISTE_RAYON=0.005 \ # # $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ # # $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ # # $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ # # $Z Lz=1000 \ # # $Z zoom_automatique=FAUX ZOOM=1.0 \ # # $Z coordonnees_dans_0_1=FAUX \ # # $Z AXYZ=1 BXYZ=0 \ # # $Z isoles=FAUX points=160 \ # # $Z N_au_carre=FAUX \ # # $Z RVB=VRAI \ # # $Z R=$xTV/REGL.3. \ # # $Z $formatI # # # # $X $xci/genere$X c='$CP $xTV/REGL.3.0001%s $xiirv/REGL.51%s' RVB=VRAI # # $X $xci/genere$X c='ro $xiirv/REGL.51%s' RVB=VRAI # # # v $xiirv/REGL.61 # Generee (sur '$LACT29') par : # # # # $Z Pal # # # # $Z $DELETE $xTV/LISTE.1 # # $Z $DELETE $xTV/LISTE.1$COORD_X # # $Z $DELETE $xTV/LISTE.1$COORD_Y # # $Z $DELETE $xTV/LISTE.1$COORD_Z # # # # $Z $DELETE $xTV/LISTE.2 # # $Z $DELETE $xTV/LISTE.2$COORD_X # # $Z $DELETE $xTV/LISTE.2$COORD_Y # # $Z $DELETE $xTV/LISTE.2$COORD_Z # # # # $Z $DELETE $xTV/COORDONNEES$COORD_X # # $Z $DELETE $xTV/COORDONNEES$COORD_Y # # $Z $DELETE $xTV/COORDONNEES$COORD_Z # # # # # # $Z set Iterations=800 # # $Z set PasDeTemps=`$xcg/DIVZ.01$X n1=$dpi n2=$Iterations` # # # # $Z $xrk/SinCos.11$X np=1 \ # # $Z iterations=$Iterations \ # # $Z dt=$PasDeTemps \ # # $Z kx=1.4 ky=1.4 kz=1.4 Ty=-.2 \ # # $Z osx=1 osy=1 osz=1 \ # # $Z psx=$pi psy=$pi psz=$pi \ # # $Z RVB=FAUX \ # # $Z Lz=100 ZOOM=0.8 \ # # $Z lister_les_points=VRAI \ # # $Z lister_les_points_apres=FAUX \ # # $Z R=$xTV/REGL.1. \ # # $Z $formatI \ # # $Z > $xTV/LISTE.1 # # # # # # $Z $xrk/SinCos.11$X np=1 \ # # $Z iterations=$Iterations \ # # $Z dt=$PasDeTemps \ # # $Z kx=0.6 ky=0.6 kz=0.6 Ty=.5 \ # # $Z osx=2 osy=7 osz=12 \ # # $Z psx=$pi psy=$pi psz=$pi \ # # $Z RVB=FAUX \ # # $Z Lz=100 ZOOM=0.8 \ # # $Z lister_les_points=VRAI \ # # $Z lister_les_points_apres=FAUX \ # # $Z R=$xTV/REGL.2. \ # # $Z $formatI \ # # $Z > $xTV/LISTE.2 # # # # # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Xx]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_X # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Yy]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_Y # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Zz]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_Z # # # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Xx]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_X # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Yy]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_Y # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Zz]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_Z # # # # $Z $PAST $xTV/LISTE.1$COORD_X $xTV/LISTE.2$COORD_X | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_X # # $Z $PAST $xTV/LISTE.1$COORD_Y $xTV/LISTE.2$COORD_Y | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_Y # # $Z $PAST $xTV/LISTE.1$COORD_Z $xTV/LISTE.2$COORD_Z | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_Z # # # # $Z set PointsX=`$WC $xTV/COORDONNEES$COORD_X` # # $Z set PointsX=$PointsX[$WC1] # # $Z set PointsY=`$WC $xTV/COORDONNEES$COORD_Y` # # $Z set PointsY=$PointsY[$WC1] # # $Z set PointsZ=`$WC $xTV/COORDONNEES$COORD_Z` # # $Z set PointsZ=$PointsZ[$WC1] # # # # $Z set PointsXY=`$xcg/MIN2.01$X n1=$PointsX n2=$PointsY` # # $Z set PointsXYZ=`$xcg/MIN2.01$X n1=$PointsXY n2=$PointsZ` # # # # $Z set Part0=1 # # $Z set PartN=$PointsXYZ # # # # $Z $DELETE $xTV/COULEURS$TEINT # # $Z $DELETE $xTV/COULEURS$LUMIN # # $Z $DELETE $xTV/COULEURS$SATUR # # $Z $DELETE $xTV/COULEURS$Y # # $Z $DELETE $xTV/COULEURS # # $Z $DELETE $xTV/COULEURS$ROUGE # # $Z $DELETE $xTV/COULEURS$VERTE # # $Z $DELETE $xTV/COULEURS$BLEUE # # # # $Z set TeinteDepart=$GRIS_0 # # $Z set TeinteArrivee=$GRIS_8 # # # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$TeinteDepart vA=$TeinteArrivee \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$TEINT # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$GRIS_4 vA=$GRIS_4 \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$LUMIN # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$GRIS_8 vA=$GRIS_8 \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$SATUR # # # # $Z $PAST \ # # $Z $xTV/COULEURS$TEINT \ # # $Z $xTV/COULEURS$LUMIN \ # # $Z $xTV/COULEURS$SATUR \ # # $Z | $R "$K_TAB" "$K_BLANC" \ # # $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ # # $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ # # $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ # # $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ # # $Z > $xTV/COULEURS$Y # # # # $Z (source $xTV/COULEURS$Y) \ # # $Z > $xTV/COULEURS # # # # $Z $GRE "^R=" $xTV/COULEURS \ # # $Z | $SE -e "s/^R=//" \ # # $Z > $xTV/COULEURS$ROUGE # # $Z $GRE "^V=" $xTV/COULEURS \ # # $Z | $SE -e "s/^V=//" \ # # $Z > $xTV/COULEURS$VERTE # # $Z $GRE "^B=" $xTV/COULEURS \ # # $Z | $SE -e "s/^B=//" \ # # $Z > $xTV/COULEURS$BLEUE # # # # $Z $xrv/particule.10$X np=1 iterations=$PointsXYZ \ # # $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ # # $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ # # $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ # # $Z LISTE_RAYON=0.010 \ # # $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ # # $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ # # $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ # # $Z Lz=1000 \ # # $Z zoom_automatique=FAUX ZOOM=0.8 \ # # $Z ROTATION_OY=$pis2 \ # # $Z coordonnees_dans_0_1=VRAI \ # # $Z AXYZ=1 BXYZ=0 \ # # $Z isoles=FAUX points=80 \ # # $Z N_au_carre=FAUX \ # # $Z RVB=VRAI \ # # $Z R=$xTV/REGL.3. \ # # $Z $formatI # # # # $X $xci/genere$X c='$CP $xTV/REGL.3.0001%s $xiirv/REGL.61%s' RVB=VRAI # # $X $xci/genere$X c='ro $xiirv/REGL.61%s' RVB=VRAI # # # v $xiirv/REGL.71.0.0 v $xiirv/REGL.71.0.1 v $xiirv/REGL.71.1.0 v $xiirv/REGL.71.1.0 p=$xiP/dentscie.01 v $xiirv/REGL.71.1.0 p=$xiP/dentscie.02 v $xiirv/REGL.71.1.0 p=$xiP/dentscie.04 v $xiirv/REGL.71.1.0 p=$xiP/dentscie.08 v $xiirv/REGL.71.1.0 p=$xiP/fractal.11 v $xiirv/REGL.71.1.0 p=$xiP/random.06 v $xiirv/REGL.71.1.0 p=$xiP/trou_noir.14 v $xiirv/REGL.71.1.1 # Ces images sont obtenues par accumulation ('$xci/accumule.01$X') de la sequence : # # # # xivPdf 6 1 / 002913_003040 # # # # avec les parametres : # # # # maximum=FAUX attenuation=0 # # maximum=FAUX attenuation=1 # # maximum=VRAI attenuation=0 # # maximum=VRAI attenuation=1 # # # # respectivement (FAUX=0, VRAI=1 suivant les conventions de programmation...). Enfin, # # l'image '$xiirv/REGL.31.1.0' est la luminance '$xci/luminance.01$X' de l'image de meme nom. # v $xiirv/REGL.87 # Generee (sur '$LACT27') par : # # # # $Z Sdu # # # # $Z $DELETE $xTV/LISTE.1 # # $Z $DELETE $xTV/LISTE.1$COORD_X # # $Z $DELETE $xTV/LISTE.1$COORD_Y # # $Z $DELETE $xTV/LISTE.1$COORD_Z # # # # $Z $DELETE $xTV/LISTE.2 # # $Z $DELETE $xTV/LISTE.2$COORD_X # # $Z $DELETE $xTV/LISTE.2$COORD_Y # # $Z $DELETE $xTV/LISTE.2$COORD_Z # # # # $Z $DELETE $xTV/COORDONNEES$COORD_X # # $Z $DELETE $xTV/COORDONNEES$COORD_Y # # $Z $DELETE $xTV/COORDONNEES$COORD_Z # # # # # # $Z set Iterations=400 # # $Z set PasDeTemps=`$xcg/DIVZ.01$X n1=$dpi n2=$Iterations` # # # # $Z $xrk/SinCos.11$X np=1 \ # # $Z iterations=$Iterations \ # # $Z dt=$PasDeTemps \ # # $Z osx=1 osy=3 osz=5 \ # # $Z psx=$pi psy=$pi psz=$pi \ # # $Z RVB=FAUX \ # # $Z Lz=100 ZOOM=0.8 \ # # $Z lister_les_points=VRAI \ # # $Z lister_les_points_apres=FAUX \ # # $Z R=$xTV/REGL.1. \ # # $Z $formatI \ # # $Z > $xTV/LISTE.1 # # # # # # $Z $xrk/SinCos.11$X np=1 \ # # $Z iterations=$Iterations \ # # $Z dt=$PasDeTemps \ # # $Z osx=3 osy=5 osz=7 \ # # $Z psx=$pi psy=$pi psz=$pi \ # # $Z RVB=FAUX \ # # $Z Lz=100 ZOOM=0.8 \ # # $Z lister_les_points=VRAI \ # # $Z lister_les_points_apres=FAUX \ # # $Z R=$xTV/REGL.2. \ # # $Z $formatI \ # # $Z > $xTV/LISTE.2 # # # # # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Xx]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_X # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Yy]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_Y # # $Z $CA $xTV/LISTE.1 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Zz]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.1$COORD_Z # # # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Xx]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_X # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Yy]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_Y # # $Z $CA $xTV/LISTE.2 | \ # # $Z $GRE "^periode=" | \ # # $Z $SE -e 's/^.*[Zz]=\([^ ][^ ]*\) .*$/\1/' \ # # $Z > $xTV/LISTE.2$COORD_Z # # # # $Z $PAST $xTV/LISTE.1$COORD_X $xTV/LISTE.2$COORD_X | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_X # # $Z $PAST $xTV/LISTE.1$COORD_Y $xTV/LISTE.2$COORD_Y | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_Y # # $Z $PAST $xTV/LISTE.1$COORD_Z $xTV/LISTE.2$COORD_Z | \ # # $Z $R "$K_TAB" "$K_NL" \ # # $Z > $xTV/COORDONNEES$COORD_Z # # # # $Z set PointsX=`$WC $xTV/COORDONNEES$COORD_X` # # $Z set PointsX=$PointsX[$WC1] # # $Z set PointsY=`$WC $xTV/COORDONNEES$COORD_Y` # # $Z set PointsY=$PointsY[$WC1] # # $Z set PointsZ=`$WC $xTV/COORDONNEES$COORD_Z` # # $Z set PointsZ=$PointsZ[$WC1] # # # # $Z set PointsXY=`$xcg/MIN2.01$X n1=$PointsX n2=$PointsY` # # $Z set PointsXYZ=`$xcg/MIN2.01$X n1=$PointsXY n2=$PointsZ` # # # # $Z set Part0=1 # # $Z set PartN=$PointsXYZ # # # # $Z $DELETE $xTV/COULEURS$TEINT # # $Z $DELETE $xTV/COULEURS$LUMIN # # $Z $DELETE $xTV/COULEURS$SATUR # # $Z $DELETE $xTV/COULEURS$Y # # $Z $DELETE $xTV/COULEURS # # $Z $DELETE $xTV/COULEURS$ROUGE # # $Z $DELETE $xTV/COULEURS$VERTE # # $Z $DELETE $xTV/COULEURS$BLEUE # # # # $Z set TeinteDepart=$GRIS_0 # # $Z set TeinteArrivee=`$xcg/DIVZ.01$X a=$GRIS_8 b=6 entier=VRAI` # # # # $Z set PartNs2=`$xcg/DIVZ.01$X a=$PartN b=2 entier=VRAI` # # # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartNs2 \ # # $Z vD=$TeinteDepart vA=$TeinteArrivee \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$TEINT # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartNs2 \ # # $Z vD=$TeinteArrivee vA=$TeinteDepart \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z >>! $xTV/COULEURS$TEINT # # # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$GRIS_6 vA=$GRIS_6 \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$LUMIN # # $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ # # $Z vD=$GRIS_8 vA=$GRIS_8 \ # # $Z cubique=FAUX \ # # $Z entiers=VRAI \ # # $Z > $xTV/COULEURS$SATUR # # # # $Z $PAST \ # # $Z $xTV/COULEURS$TEINT \ # # $Z $xTV/COULEURS$LUMIN \ # # $Z $xTV/COULEURS$SATUR \ # # $Z | $R "$K_TAB" "$K_BLANC" \ # # $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ # # $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ # # $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ # # $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ # # $Z > $xTV/COULEURS$Y # # # # $Z (source $xTV/COULEURS$Y) \ # # $Z > $xTV/COULEURS # # # # $Z $GRE "^R=" $xTV/COULEURS \ # # $Z | $SE -e "s/^R=//" \ # # $Z > $xTV/COULEURS$ROUGE # # $Z $GRE "^V=" $xTV/COULEURS \ # # $Z | $SE -e "s/^V=//" \ # # $Z > $xTV/COULEURS$VERTE # # $Z $GRE "^B=" $xTV/COULEURS \ # # $Z | $SE -e "s/^B=//" \ # # $Z > $xTV/COULEURS$BLEUE # # # # $Z $xrv/particule.10$X np=1 iterations=$PointsXYZ \ # # $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ # # $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ # # $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ # # $Z LISTE_RAYON=0.005 \ # # $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ # # $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ # # $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ # # $Z Lz=1 \ # # $Z zoom_automatique=FAUX ZOOM=0.75 \ # # $Z ROTATION_OZ=-$pis2 \ # # $Z coordonnees_dans_0_1=VRAI \ # # $Z AXYZ=1 BXYZ=0 \ # # $Z isoles=FAUX points=32 grossissement=2.6 \ # # $Z N_au_carre=FAUX \ # # $Z RVB=VRAI \ # # $Z attenuation_au_bord=0.125 \ # # $Z fond=FAUX \ # # $Z R=$xTV/REGL.6. \ # # $Z $formatI # # # # $X $xci/genere$X c='$CP $xTV/REGL.6.0001%s $xiirv/REGL.87%s' RVB=VRAI # # $X $xci/genere$X c='ro $xiirv/REGL.87%s' RVB=VRAI # # # v $xiirv/REGL.88 # Generee (sur '$LACT27') par : # # # # $Z Sdu # # # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/transpose$X \ # # $X A=$xiirv/REGL.87%s \ # # $X $formatI | \ # # $X $xci/maximum$X \ # # $X A1=$xiirv/REGL.87%s \ # # $X $formatI | \ # # $X $xci/complement$X \ # # $X $formatI | \ # # $X $xci/format.01$X \ # # $X $formatI \ # # $X mode=2 \ # # $X R=$xiirv/REGL.88%s \ # # $X $formatR_Std' # # # # $X $xci/genere$X C='ro $xiirv/REGL.88%s' RVB=VRAI # # # v $xiirv/REGL.89 # Generee (sur '$LACT27') par : # # # # $Z Std # # # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/Sy$X \ # # $X A=$xiirv/REGL.88%s \ # # $X $formatI | \ # # $X $xci/minimum$X \ # # $X A1=$xiirv/REGL.88%s \ # # $X R=$xiirv/REGL.89%s \ # # $X $formatI' # # # # $X $xci/genere$X C='ro $xiirv/REGL.89%s' RVB=VRAI # # # v $xiirv/REGL.8A # Generee (sur '$LACT27') par : # # # # $Z Std # # # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/complement$X \ # # $X A=$xiirv/REGL.89%s \ # # $X $formatI | \ # # $X $xci/interpole.02$X \ # # $X A2=$xiirv/REGL.89%s \ # # $X P=$xiio/ETOILE.11 \ # # $X R=$xiirv/REGL.8A%s \ # # $X $formatI' # # # # $X $xci/genere$X C='ro $xiirv/REGL.8A%s' RVB=VRAI # # # v $xiirv/RELA.11 # Image generee par l'accumulation suivante : # # # # $Z Pal # # # # $Z $xci/accumule.01$X A=$xiim_LACT29/RELA.1. \ # # $Z premiere=1 derniere=128 \ # # $Z postfixe=.? \ # # $Z lineaire=VRAI \ # # $Z maximum=VRAI \ # # $Z R=$xiirv/RELA.11.? \ # # $Z $formatI # # # # qui correspond a la sequence : # # # # xivPdf 6 1 / 003937_004064 # # # # Il s'agit d'un cube passant a vitesse non relativiste devant l'observateur... # v $xiirv/RELA.12 # Image generee par l'accumulation suivante : # # # # $Z Pal # # # # $Z $xci/accumule.01$X A=$xiim_LACT29/RELA.2. \ # # $Z premiere=1 derniere=128 \ # # $Z postfixe=.? \ # # $Z lineaire=VRAI \ # # $Z maximum=VRAI \ # # $Z R=$xiirv/RELA.12.? \ # # $Z $formatI # # # # qui correspond a la sequence : # # # # xivPdf 6 1 / 004065_004192 # # # # Il s'agit d'un cube passant a vitesse relativiste devant l'observateur... # v $xiirv/RELA.14 # Image generee par l'accumulation suivante : # # # # $Z Pal # # # # $Z $xci/accumule.01$X A=$xiim_LACT29/RELA.4. \ # # $Z premiere=1 derniere=128 \ # # $Z postfixe=.? \ # # $Z lineaire=VRAI \ # # $Z maximum=VRAI \ # # $Z R=$xiirv/RELA.14.? \ # # $Z $formatI # # # # qui correspond a la sequence : # # # # xivPdf 6 1 / 004193_004320 # # # # Il s'agit d'un cube passant a vitesse relativiste devant l'observateur... # v $xiirv/RELA.24 # Image generee par l'accumulation suivante : # # # # $Z Pal # # # # $Z $xci/accumule.01$X A=$xiim_LACT29/RELA.6. \ # # $Z premiere=1 derniere=128 \ # # $Z postfixe=.? \ # # $Z lineaire=VRAI \ # # $Z maximum=VRAI \ # # $Z R=$xiirv/RELA.24.? \ # # $Z $formatI # # # # qui correspond a la sequence : # # # # xivPdf 6 1 / 004449_004576 # # # # Il s'agit d'un cube passant a vitesse relativiste devant l'observateur... # v $xiirv/RELA.34 # Image generee par l'accumulation de la sequence : # # # # xivPdf 6 1 / 004577_004704 # # # # Il s'agit d'un cube passant a vitesse relativiste devant l'observateur... # v $xiirv/RELA.44 # Image generee par l'accumulation de la sequence : # # # # xivPdf 6 1 / 004705_004832 # # # # Il s'agit d'un cube passant a vitesse relativiste devant l'observateur... # v $xiirv/REOR.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_REOR_11: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Palette=$xiP/NOIR_PLANCHER # # $Z set _____Grossissement=1.0 # # $Z set _____VRayon=0.010 # # $Z set _____Zoom=1.0 # # $Z set _____ImageR=$xiirv/REOR.11 # # $m4 _____include(_____xiirv/.REOR.11.1._____U) # # # # $Z set _____Erosion=9 # # $Z set _____Dilatation=81 # # $Z set _____Diagonale=VRAI # # $Z set _____OptimiserIncrement=VRAI # # # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____PaletteC=$xiP/random.B7$Fi # # $Z set _____AttenuationA=1 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.REOR.11.1._____U) # # # # $Z execRVB $xci/Sy$X \ # # $Z A=$_____ImagesR%s \ # # $Z R=$_____ImagesR%s \ # # $Z $formatI # # # # :Fin_listG_REOR_11: # # # # # # Image montrant la subdivision recursive du Rectangle d'Or... # v $xiirv/REOR.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_REOR_21: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____Tapisserie=$EXIST # # $Z set _____TranslationX=0.9 # # $Z set _____TranslationY=0.6 # # $Z set _____Palette=$xiP/NOIR_PLANCHER # # $Z set _____Grossissement=1.0 # # $Z set _____VRayon=0.020 # # $Z set _____Zoom=0.42 # # $Z set _____ImageR=$xiirv/REOR.21 # # $m4 _____include(_____xiirv/.REOR.11.1._____U) # # # # $Z set _____Erosion=9 # # $Z set _____Dilatation=81 # # $Z set _____Diagonale=VRAI # # $Z set _____OptimiserIncrement=VRAI # # # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____PaletteC=$xiP/Mondrian.03 # # $Z set _____AttenuationA=1 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.REOR.11.1._____U) # # # # :Fin_listG_REOR_21: # # # # # # Image montrant la subdivision recursive du Rectangle d'Or avec effet 'v $xci/tapisserie$K' # # simule... # v $xiirv/REOR.22 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_REOR_22: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET _____Tapisserie=$EXIST # # $Z set _____TranslationX=0.9 # # $Z set _____TranslationY=0.6 # # $Z set _____Palette=$xiP/NOIR_PLANCHER # # $Z set _____Grossissement=1.0 # # $Z set _____VRayon=0.020 # # $Z set _____Zoom=0.42 # # $Z set _____ImageR=$xiirv/REOR.22 # # $m4 _____include(_____xiirv/.REOR.11.1._____U) # # # # $Z set _____Erosion=9 # # $Z set _____Dilatation=81 # # $Z set _____Diagonale=VRAI # # $Z set _____OptimiserIncrement=VRAI # # # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____PaletteC=$xiP/Mondrian.21 # # $Z set _____AttenuationA=1 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.REOR.11.1._____U) # # # # :Fin_listG_REOR_22: # # # # # # Image montrant la subdivision recursive du Rectangle d'Or avec effet 'v $xci/tapisserie$K' # # simule... # v $xiirv/RIDO.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_RIDO_11: # # # # $Z Phu # # # # $Z FilSTmpB FCoOrDoNnEeS # # $Z FilSTmpB ImAgEsFoNd # # # # $Z set NItErAtIoNs=50001 # # # # $Z $xci/valeurs_inte$X \ # # $Z p=1 d=$NItErAtIoNs \ # # $Z vD=0 vA=1 \ # # $Z lineaire=VRAI \ # # $Z > $FCoOrDoNnEeS$COORD_X # # # # $Z bc $xtb/RideauxFractals.02 | \ # # $Z $xrv/normalise.01$X \ # # $Z ne=$NItErAtIoNs fichier== \ # # $Z > $FCoOrDoNnEeS$COORD_Y # # # # $Z set NiVeAu_GrIs=$GRIS_4 # # # # $Z $xrv/particule.10$X \ # # $Z npoints=$NItErAtIoNs \ # # $Z LISTE_X=$FCoOrDoNnEeS$COORD_X \ # # $Z LISTE_Y=$FCoOrDoNnEeS$COORD_Y \ # # $Z LISTE_Z=0 \ # # $Z LISTE_ROUGE=$NiVeAu_GrIs \ # # $Z LISTE_VERTE=$NiVeAu_GrIs \ # # $Z LISTE_BLEUE=$NiVeAu_GrIs \ # # $Z isoles=FAUX chainer=VRAI \ # # $Z Pajuster=VRAI equidistance=FAUX Rpoints=0.50 \ # # $Z Vrayon=0.0006 \ # # $Z grossissement=1 \ # # $Z N_log_N=VRAI \ # # $Z editer_extrema_hors=FAUX \ # # $Z speculaire=8 couronne=1 \ # # $Z chiffres=0 \ # # $Z R=$ImAgEsFoNd \ # # $Z $formatI # # # # $Z $xrv/particule.10$X \ # # $Z npoints=$NItErAtIoNs \ # # $Z LISTE_X=$FCoOrDoNnEeS$COORD_X \ # # $Z LISTE_Y=$FCoOrDoNnEeS$COORD_Y \ # # $Z LISTE_Z=0 \ # # $Z LISTE_ROUGE=$GRIS_8 \ # # $Z LISTE_VERTE=$GRIS_5 \ # # $Z LISTE_BLEUE=$GRIS_0 \ # # $Z isoles=VRAI \ # # $Z Vrayon=0.0012 \ # # $Z grossissement=1 \ # # $Z N_log_N=VRAI \ # # $Z editer_extrema_hors=FAUX \ # # $Z fond=VRAI F=$ImAgEsFoNd \ # # $Z speculaire=8 couronne=1 \ # # $Z chiffres=0 \ # # $Z R=$xiirv/RIDO.11 \ # # $Z $formatI # # # # $Z FilSTmpE ImAgEsFoNd # # $Z FilSTmpE FCoOrDoNnEeS # # # # :Fin_listG_RIDO_11: # # # v $xiirv/RODT.11 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_RODT_11: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/RODT.11 # # # # $Z $xci/random.01$X \ # # $Z graine=1789 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=9 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/scale$X \ # # $Z a=0.25 b=191 \ # # $Z R=$xTV/RODT.11 \ # # $Z $formatI # # # # $Z $xci/random.01$X \ # # $Z graine=1947 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/scale$X \ # # $Z a=0.25 b=191 \ # # $Z R=$xTV/RODT.1A \ # # $Z $formatI # # # # $Z $xci/random.01$X \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=9 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/scale$X \ # # $Z a=0.1 \ # # $Z R=$xTV/RODT.1B \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z seuil=140 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=441 \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z A2=$xTV/RODT.11 \ # # $Z $formatI | \ # # $Z $xci/scroll$X \ # # $Z trY=0.16 \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/orange.21 \ # # $Z R=$xTV/RODT.14 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/RODT.14 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z navap=VRAI \ # # $Z passes=4 \ # # $Z R=$xTV/RODT.1C \ # # $Z $formatI | \ # # # # $Z execRVB $xci/montagne.01$X \ # # $Z echelle=0.050 \ # # $Z A=$xTV/RODT.1C \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/RODT.14%s \ # # $Z NOIR=$NOIR \ # # $Z avion=VRAI \ # # $Z SY=20 \ # # $Z R=$xTV/RODT.1D%s \ # # $Z $formatI # # # # Tache orange circulaire... # # # # $Z $xci/gauss$X \ # # $Z $formatI | \ # # $Z $xci/passe_bande$X \ # # $Z inf=82 sup=90 \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z $formatI | \ # # $Z $xci/scroll$X \ # # $Z trY=-0.1 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=225 \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z A2=$xTV/RODT.1A \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/rouge.01 \ # # $Z R=$xTV/RODT.17 \ # # $Z $formatI # # # # Cercle orange... # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/RODT.1B \ # # $Z p=$xiP/gris.01 \ # # $Z R=$xTV/RODT.1B \ # # $Z $formatI # # # # Fond noir... # # # # $Z $xci/cache.22$Z $xTV/RODT.1D $xTV/RODT.17 $xTV/RODT.18 # # $Z $xci/cache.23$Z $xTV/RODT.1B $xTV/RODT.18 $_____ImageR # # # # :Fin_listG_RODT_11: # # # # # # qui montre "Composition sans objet numero 61" d'Alexander Rodtchenko. # v $xiirv/RODT.11.1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_RODT_11_1: # # # # $Z Sdu # # # # $Z set _____ImageA=$xiirv/RODT.11 # # $Z set _____ImageR=$_____ImageA.1 # # # # $Z execRVB $xci/spiralise$X \ # # $Z A=$_____ImageA%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_RODT_11_1: # # # v $xiirv/RVB.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_RVB_11: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____RotationX=`calcul $pi-$pis4` # # $Z set _____RotationY=+$pis4 # # $Z set _____Zoom=0.50 # # $Z set _____ImageR=$xiirv/RVB.11 # # $m4 _____include(_____xiirv/.RVB.11.1._____U) # # # # :Fin_listG_RVB_11: # # # # # # qui montre le cube RVB et la synthese additive des couleurs (le $BLANC au premier plan) : # # # # # # m # # /|\ # # / | \ # # / | \ # # / | \ # # / | \ # # B / | \ R # # |. | .| # # | . w . | # # | . / \ . | # # | ./ \. | # # | /. .\ | # # | / . . \ | # # | / . \ | # # |/ . \| # # c \ . / y # # \ . / # # \ . / # # \ . / # # \ . / # # \./ # # G # # # # # # R = Red # # G = Green # # B = Blue # # # # y = Yellow # # c = Cyan # # m = Magenta # # # # w = white # # # v $xiirv/RVB.12 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_RVB_12: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____RotationX=-$pis4 # # $Z set _____RotationY=+$pis4 # # $Z set _____Zoom=0.50 # # $Z set _____ImageR=$xiirv/RVB.12 # # $m4 _____include(_____xiirv/.RVB.11.1._____U) # # # # :Fin_listG_RVB_12: # # # # # # qui montre le cube RVB et la synthese additive des couleurs (le $NOIR au premier plan). # v $xiirv/RVB.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_RVB_21: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z FileTmpB FDeRiVeEs # # # # $Z set NPoInTs=`$xcg/HyperCube.01$X dimension=3` # # $Z set NPoInTs=`calculI 2*$NPoInTs` # # # # $Z set BoRnEs=6 # # # # $Z set DeRiVeEsX=$FDeRiVeEs$COORD_X # # $Z $xci/valeurs_alea$X premiere=1 derniere=$NPoInTs \ # # $Z graine=1789 \ # # $Z inf=-$BoRnEs sup=+$BoRnEs \ # # $Z > $DeRiVeEsX # # # # $Z set DeRiVeEsY=$FDeRiVeEs$COORD_Y # # $Z $xci/valeurs_alea$X premiere=1 derniere=$NPoInTs \ # # $Z graine=1947 \ # # $Z inf=-$BoRnEs sup=+$BoRnEs \ # # $Z > $DeRiVeEsY # # # # $Z set DeRiVeEsZ=$FDeRiVeEs$COORD_Z # # $Z $xci/valeurs_alea$X premiere=1 derniere=$NPoInTs \ # # $Z graine=2001 \ # # $Z inf=-$BoRnEs sup=+$BoRnEs \ # # $Z > $DeRiVeEsZ # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" cubique=VRAI" # # $Z set _____ParticulePara="$_____ParticulePara"" LISTE_dX=$DeRiVeEsX" # # $Z set _____ParticulePara="$_____ParticulePara"" LISTE_dY=$DeRiVeEsY" # # $Z set _____ParticulePara="$_____ParticulePara"" LISTE_dZ=$DeRiVeEsZ" # # # # $Z set _____RotationX=`calcul $pi-$pis4` # # $Z set _____RotationY=+$pis4 # # $Z set _____Zoom=0.46 # # $Z set _____ImageR=$xiirv/RVB.21 # # $m4 _____include(_____xiirv/.RVB.11.1._____U) # # # # $Z FileTmpE FDeRiVeEs # # # # :Fin_listG_RVB_21: # # # # # # qui montre le cube RVB en version "psychedelique"... # v $xiirv/RVB.21.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_RVB_21_1: # # # # $Z Pal # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$xiirv/RVB.21%s \ # # $Z iterations=1 \ # # $Z R=$xiirv/RVB.21.1%s \ # # $Z $formatI # # # # :Fin_listG_RVB_21_1: # # # v $xiirv/SCOB.11.13$m p=$xiP/montagnes.91 v $xiirv/SCOB.11.13$M p=$xiP/montagnes.91 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SCOB_11_13: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Ty=0.64 # # $Z set _____ImageR=$xiirv/SCOB.11.13 # # $m4 _____include(_____xiirv/.SCOB.11.1._____U) # # # # :Fin_listG_SCOB_11_13: # # # # # # Experience destinee a "simuler" les nombres premiers {2,3,...,13} a partir de la sommation # # de cosinus d'omega's decroissants egaux aux inverses des nombres, soit {1/2,1/3,1/4,...}. # v $xiirv/SCOB.12.13$m p=$xiP/montagnes.91 v $xiirv/SCOB.12.13$M p=$xiP/montagnes.91 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SCOB_12_13: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____FSomme=maximum # # $Z set _____Ty=0.50 # # $Z set _____ImageR=$xiirv/SCOB.12.13 # # $m4 _____include(_____xiirv/.SCOB.11.1._____U) # # # # :Fin_listG_SCOB_12_13: # # # # # # Experience destinee a "simuler" les nombres premiers {2,3,...,13} a partir de la sommation # # de cosinus d'omega's decroissants egaux aux inverses des nombres, soit {1/2,1/3,1/4,...}. # v $xiirv/SCOB.13.13$m p=$xiP/montagnes.91 v $xiirv/SCOB.13.13$M p=$xiP/montagnes.91 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SCOB_13_13: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____FSomme=minmax # # $Z set _____Ty=0.50 # # $Z set _____ImageR=$xiirv/SCOB.13.13 # # $m4 _____include(_____xiirv/.SCOB.11.1._____U) # # # # :Fin_listG_SCOB_13_13: # # # # # # Experience destinee a "simuler" les nombres premiers {2,3,...,13} a partir de la sommation # # de cosinus d'omega's decroissants egaux aux inverses des nombres, soit {1/2,1/3,1/4,...}. # v $xiirv/SCOS.11.13 p=$xiP/arc_ciel.K1 v $xiirv/SCOS.11.13 p=$xiP/cercle.35 v $xiirv/SCOS.11.13.1 p=$xiP/arc_ciel.K1 v $xiirv/SCOS.11.13.1 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SCOS_11_13: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/SCOS.11.13 # # $m4 _____include(_____xiirv/.SCOS.11.1._____U) # # # # :Fin_listG_SCOS_11_13: # # # # # # Experience destinee a "simuler" les nombres premiers {2,3,...,13} a partir de la sommation # # de cosinus d'omega's decroissants egaux aux inverses des nombres, soit {1/2,1/3,1/4,...}. # # Le premier pic a gauche correspond a 0... # v $xiirv/SCOS.21.13 p=$xiP/arc_ciel.K1 v $xiirv/SCOS.21.13 p=$xiP/cercle.35 v $xiirv/SCOS.21.13.1 p=$xiP/arc_ciel.K1 v $xiirv/SCOS.21.13.1 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SCOS_21_13: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____SupDebut=$EXIST # # $Z set _____ImageR=$xiirv/SCOS.21.13 # # $m4 _____include(_____xiirv/.SCOS.11.1._____U) # # # # :Fin_listG_SCOS_21_13: # # # # # # Experience destinee a "simuler" les nombres premiers {2,3,...,13} a partir de la sommation # # de cosinus d'omega's decroissants egaux aux inverses des nombres, soit {1/2,1/3,1/4,...}. # # Le premier pic a gauche correspond au premier nombre premier (2). # v $xiirv/SCOS.21.97 p=$xiP/arc_ciel.K1 v $xiirv/SCOS.21.97 p=$xiP/cercle.35 v $xiirv/SCOS.21.97.1 p=$xiP/arc_ciel.K1 v $xiirv/SCOS.21.97.1 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SCOS_21_97: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____SupDebut=$EXIST # # $Z SET _____Dernier=97 # # $Z set _____DernierVisu=13 # # $Z set _____ImageR=$xiirv/SCOS.21.97 # # $m4 _____include(_____xiirv/.SCOS.11.1._____U) # # # # :Fin_listG_SCOS_21_97: # # # # # # Experience destinee a "simuler" les nombres premiers {2,3,...,97} a partir de la sommation # # de cosinus d'omega's decroissants egaux aux inverses des nombres, soit {1/2,1/3,1/4,...}. # # Le premier pic a gauche correspond au premier nombre premier (2). # v $xiirv/SCOS.22.13 p=$xiP/arc_ciel.K1 v $xiirv/SCOS.22.13 p=$xiP/cercle.35 v $xiirv/SCOS.22.13.1 p=$xiP/arc_ciel.K1 v $xiirv/SCOS.22.13.1 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SCOS_22_13: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____NombresPremiers=$EXIST # # $Z SET _____SupDebut=$EXIST # # $Z set _____ImageR=$xiirv/SCOS.22.13 # # $m4 _____include(_____xiirv/.SCOS.11.1._____U) # # # # :Fin_listG_SCOS_22_13: # # # # # # Experience destinee a "simuler" les nombres premiers {2,3,...,13} a partir de la sommation # # de cosinus d'omega's decroissants egaux aux inverses des nombres, soit {1/2,1/3,1/4,...}. # # Le premier pic a gauche correspond au premier nombre premier (2). De plus, ne sont # # utilisees que les cosinusoides correspondant aux nombres premiers... # v $xiirv/SCOS.22.97 p=$xiP/arc_ciel.K1 v $xiirv/SCOS.22.97 p=$xiP/cercle.35 v $xiirv/SCOS.22.97.1 p=$xiP/arc_ciel.K1 v $xiirv/SCOS.22.97.1 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SCOS_22_97: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____NombresPremiers=$EXIST # # $Z SET _____SupDebut=$EXIST # # $Z SET _____Dernier=97 # # $Z set _____DernierVisu=13 # # $Z set _____ImageR=$xiirv/SCOS.22.97 # # $m4 _____include(_____xiirv/.SCOS.11.1._____U) # # # # :Fin_listG_SCOS_22_97: # # # # # # Experience destinee a "simuler" les nombres premiers {2,3,...,97} a partir de la sommation # # de cosinus d'omega's decroissants egaux aux inverses des nombres, soit {1/2,1/3,1/4,...}. # # Le premier pic a gauche correspond au premier nombre premier (2). De plus, ne sont # # utilisees que les cosinusoides correspondant aux nombres premiers... # v $xiirv/SERU.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SERU_11: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/SERU.11 # # $m4 _____include(_____xiirv/.SERU.11.1._____U) # # # # $Z set _____Erosion=9 # # $Z set _____Dilatation=81 # # $Z set _____Diagonale=VRAI # # $Z set _____OptimiserIncrement=FAUX # # # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____PaletteC=$xiP/Serusier.02 # # $Z set _____AttenuationA=1 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.SERU.11.1._____U) # # # # :Fin_listG_SERU_11: # # # # # # Image montrant quelque chose ressemblant a "Dissonance chaude / Dissonance froide" de # # Paul Serusier (vers 1921). # v $xiirv/SERU.11.1 v $xiirv/SERU.11.1$COORD_X p=$xiP/cercle.35 v $xiirv/SERU.11.1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SERU_11_1: # # # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/SERU.11 # # $Z set _____ImageR=$_____ImageA.1 # # $Z set _____ImageP=$_____ImageR # # # # $Z set MaIlLes="mx=0.08 my=0.08" # # $Z set NoRmAlIsE="origine=0 extremite=0.005" # # # # $Z $xci/fract_2D.01$X \ # # $Z graine=19471 \ # # $Z $MaIlLes \ # # $Z niveau=4 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $NoRmAlIsE \ # # $Z R=$_____ImageP$COORD_X \ # # $Z $formatI # # $Z $xci/fract_2D.01$X \ # # $Z graine=17891 \ # # $Z $MaIlLes \ # # $Z niveau=4 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $NoRmAlIsE \ # # $Z R=$_____ImageP$COORD_Y \ # # $Z $formatI # # # # $m4 _____include(_____xiirf/.PAYS.F2.4._____U) # # # # $Z $xci/fract_2D.01$X \ # # $Z graine=20011 \ # # $Z mx=0.04 my=0.04 \ # # $Z niveau=8 \ # # $Z standard=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z rNOIR=$GRIS_6 rBLANC=$GRIS_8 \ # # $Z R=$xTV/BRUIT \ # # $Z $formatI # # # # $Z execRVB $xci/multi_02.01$X \ # # $Z A1=$xTV/BRUIT \ # # $Z A2=$_____ImageR%s \ # # $Z renormaliser=FAUX \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # Il ne faut surtout pas renormaliser (d'ou le "renormaliser=FAUX") car, en effet, si une # # renormalisation est demandee, elle est faite independamment sur les trois composantes et # # alors la palette '$xiP/Serusier.02' n'est pas conservee... # # # # :Fin_listG_SERU_11_1: # # # v $xiirv/SERU.21 v $xiirv/SERU.21$COORD_X p=$xiP/cercle.35 v $xiirv/SERU.21$COORD_Y p=$xiP/cercle.35 # Generee (sur '$CMAP28' -ex "porte-brancion"-) par : # # # # # # :Debut_listG_SERU_21: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/SERU.21 # # $m4 _____include(_____xiirv/.SERU.11.1._____U) # # # # $Z set _____Erosion=9 # # $Z set _____Dilatation=81 # # $Z set _____Diagonale=VRAI # # $Z set _____OptimiserIncrement=FAUX # # # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____PaletteC=$xiP/Serusier.02 # # $Z set _____AttenuationA=1 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # # # $Z set ArGuMeNtS="mx=0.04 my=0.04 niveau=8" # # # # $Z $xci/fract_2D.01$X \ # # $Z graine=1947 \ # # $Z $ArGuMeNtS \ # # $Z R=$xTV/FRACTAL.1947 \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z graine=1789 \ # # $Z $ArGuMeNtS \ # # $Z R=$xTV/FRACTAL.1789 \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z graine=2001 \ # # $Z $ArGuMeNtS \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z seuil=$GRIS_4 \ # # $Z R=$xTV/FRACTAL.2001 \ # # $Z $formatI # # # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/FRACTAL.1947 \ # # $Z A2=$xTV/FRACTAL.1789 \ # # $Z P=$xTV/FRACTAL.2001 \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/marches.15 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z rNOIR=$GRIS_6 rBLANC=$GRIS_8 \ # # $Z R=$xTV/BRUIT \ # # $Z $formatI # # # # $Z execRVB $xci/multi_02.01$X \ # # $Z A1=$xTV/BRUIT \ # # $Z A2=$xTV/CARREAUX%s \ # # $Z renormaliser=FAUX \ # # $Z R=$xTV/CARREAUX%s \ # # $Z $formatI # # # # $Z set _____ParticulePara1="$_____ParticulePara1"" ctransparence=0.9" # # # # L'importante transparence est destinee a "melanger" les couleurs des rectangles avec # # celles des bords des rectangles... # # # # $Z set _____VRayon=0.006 # # $m4 _____include(_____xiirv/.SERU.11.1._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____ImageP=$_____ImageR # # # # $Z set ArGuMeNtS="mx=0.08 my=0.08 niveau=4" # # $Z set NoRmAlIsE="origine=0 extremite=0.005" # # # # $Z $xci/fract_2D.01$X \ # # $Z graine=19471 \ # # $Z $ArGuMeNtS \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $NoRmAlIsE \ # # $Z R=$_____ImageP$COORD_X \ # # $Z $formatI # # $Z $xci/fract_2D.01$X \ # # $Z graine=17891 \ # # $Z $ArGuMeNtS \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $NoRmAlIsE \ # # $Z R=$_____ImageP$COORD_Y \ # # $Z $formatI # # # # $m4 _____include(_____xiirf/.PAYS.F2.4._____U) # # # # :Fin_listG_SERU_21: # # # # # # Image montrant quelque chose ressemblant a "Dissonance chaude / Dissonance froide" de # # (l'original est au musee d'Orsay : 'v $xiHi/SERUSIER_PAUL.11$JPEG') de Paul Serusier # # (peint vers 1921). # v $xiirv/SERU.21.1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SERU_21_1: # # # # $Z Pal # # # # $Z set _____ImageA=$xiirv/SERU.21 # # $Z set _____ImageR=$_____ImageA.1 # # # # $Z execRVB $xci/spiralise$X \ # # $Z A=$_____ImageA%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_SERU_21_1: # # # v $xiirv/SINU.31 p=$xiP/abso.11 v $xiirv/SINU.31 p=$xiP/bleu_jaune.01 v $xiirv/SINU.31 p=$xiP/gris.01 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SINU_31: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/SINU.31 # # $m4 _____include(_____xiirv/.SINU.31.1._____U) # # # # :Fin_listG_SINU_31: # # # v $xiirv/SINU.41 p=$xiP/dentscie.A1 v $xiirv/SINU.41 p=$xiP/dentscie.A2 v $xiirv/SINU.41 p=$xiP/dentscie.A4 v $xiirv/SINU.41 p=$xiP/random.15$Fi v $xiirv/SINU.41.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SINU_41: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____cX=50 # # $Z set _____cY=50 # # $Z set _____ImageR=$xiirv/SINU.41 # # $m4 _____include(_____xiirv/.SINU.31.1._____U) # # # # $Z $xci/convol.01$X \ # # $Z A=$_____ImageR \ # # $Z points=225 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z arithmetique_etendue=VRAI \ # # $Z arithmetique_etendue_gauss=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z $formatI | \ # # $Z $xci/rotate$X \ # # $Z angle=$pis4 \ # # $Z R=$xTV/CARRES \ # # $Z $formatI # # # # $Z $xci/passe_bande$X \ # # $Z A=$xTV/CARRES \ # # $Z fnint=VRAI nint=$BLANC \ # # $Z sinf=70 ssup=74 \ # # $Z R=$xTV/CARRE.1 \ # # $Z $formatI # # # # $Z $xci/passe_bande$X \ # # $Z A=$xTV/CARRES \ # # $Z fnint=VRAI nint=$BLANC \ # # $Z sinf=92 ssup=96 \ # # $Z R=$xTV/CARRE.2 \ # # $Z $formatI # # # # $Z $xci/passe_bande$X \ # # $Z A=$xTV/CARRES \ # # $Z fnint=VRAI nint=$BLANC \ # # $Z sinf=116 ssup=120 \ # # $Z R=$xTV/CARRE.3 \ # # $Z $formatI # # # # $Z $xci/or_03$X \ # # $Z A1=$xTV/CARRE.1 \ # # $Z A2=$xTV/CARRE.2 \ # # $Z A3=$xTV/CARRE.3 \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/FANTOMES \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$_____ImageR \ # # $Z p=$xiP/random.15$Fi \ # # $Z R=$xTV/SINU.41 \ # # $Z $formatI # # # # $Z execRVB $xci/and$X \ # # $Z A1=$xTV/SINU.41%s \ # # $Z A2=$xTV/FANTOMES \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI # # # # :Fin_listG_SINU_41: # # # # # # Image qui fait apparaitre, lorsqu'on la fixe au centre, trois carres fantomatiques a pi/4 # # dont les cotes disparaissent lorsqu'on les regarde individuellement... # v $xiirv/SINU.42 p=$xiP/random.12$Fi v $xiirv/SINU.42 p=$xiP/random.15$Fi v $xiirv/SINU.42 p=$xiP/random.B3$Fi # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SINU_42: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____cX=200 # # $Z set _____cY=200 # # $Z set _____ImageR=$xiirv/SINU.42 # # $m4 _____include(_____xiirv/.SINU.31.1._____U) # # # # $Z $xci/convol.01$X \ # # $Z A=$_____ImageR \ # # $Z points=225 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_SINU_42: # # # v $xiirv/SMIT.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SMIT_11: # # # # $Z Sdu # # # # $Z set _____Cote=0.45 # # # # $Z set cote1=$_____Cote # # $Z set cote2=`calcul $cote1/2` # # $Z set cote3=`calcul sqrt(3)*$cote1/2` # # # # $Z set angle0=0 # # $Z set angle2=$pis2 # # $Z set angle3=`calculNS $pi/3` # # # # $Z set OrIgInE_X=0 # # $Z set OrIgInE_Y=0 # # $Z set OrIgInE_Z=0 # # # # $Z alias GeNeRe 'set RhO=\!:1 ; set PhI=\!:2 ; \\ # # $Z set CuMuL_PhI=`calcul ($CuMuL_PhI)+($PhI)` ; \\ # # $Z echo $RhO >>! $FPoLyGoNeS.rho ; \\ # # $Z echo $pis2 >>! $FPoLyGoNeS.theta ; \\ # # $Z echo $CuMuL_PhI >>! $FPoLyGoNeS.phi ; \\ # # $Z unset RhO PhI' # # # # $Z FilSTmpB FPoLyGoNeS # # # # $Z set CuMuL_PhI=0 # # # # $Z GeNeRe $cote1 $angle0 # # $Z GeNeRe $cote1 +$angle3 # # $Z GeNeRe $cote1 +$angle3 # # $Z GeNeRe $cote1 +$angle3 # # $Z GeNeRe $cote1 +$angle3 # # $Z GeNeRe $cote1 +$angle3 # # # # $Z GeNeRe $cote1 -$angle3 # # $Z GeNeRe $cote1 -$angle3 # # $Z GeNeRe $cote1 -$angle3 # # $Z GeNeRe $cote1 -$angle3 # # $Z GeNeRe $cote1 -$angle3 # # # # $Z GeNeRe $cote1 +$angle3 # # $Z GeNeRe $cote1 +$angle3 # # $Z GeNeRe $cote1 +$angle3 # # $Z GeNeRe $cote1 +$angle3 # # $Z GeNeRe $cote1 +$angle3 # # # # $m4 _____include(_____xiirv/.SMIT.11.1._____U) # # # # $Z set ArGs="$K_VIDE" # # $Z set ArGs="$ArGs"" ne=0" # # $Z set ArGs="$ArGs"" fichier==" # # # # $Z set MiNX=`$CA $FPoLyGoNeS.2$COORD_X | $xrv/extrema.01$X $ArGs ms=VRAI` # # $Z set MaXX=`$CA $FPoLyGoNeS.2$COORD_X | $xrv/extrema.01$X $ArGs Ms=VRAI` # # # # $Z set MiNY=`$CA $FPoLyGoNeS.2$COORD_Y | $xrv/extrema.01$X $ArGs ms=VRAI` # # $Z set MaXY=`$CA $FPoLyGoNeS.2$COORD_Y | $xrv/extrema.01$X $ArGs Ms=VRAI` # # # # $Z set MiNZ=`$CA $FPoLyGoNeS.2$COORD_Z | $xrv/extrema.01$X $ArGs ms=VRAI` # # $Z set MaXZ=`$CA $FPoLyGoNeS.2$COORD_Z | $xrv/extrema.01$X $ArGs Ms=VRAI` # # # # $Z set TrAnSX=`calcul 0.5-((($MaXX)+($MiNX))/2)` # # $Z set TrAnSY=`calcul 0.5-((($MaXY)+($MiNY))/2)` # # $Z set TrAnSZ=0 # # # # $Z set ArGs_P="$K_VIDE" # # $Z set ArGs_P="$ArGs_P"" Lz=1000 ZOOM=0.7" # # $Z set ArGs_P="$ArGs_P"" isoles=FAUX chainer=VRAI" # # $Z set ArGs_P="$ArGs_P"" ajuster_points=VRAI" # # $Z set ArGs_P="$ArGs_P"" equidistance=VRAI distance_minimale=0.005" # # $Z set ArGs_P="$ArGs_P"" couronne=2" # # $Z set ArGs_P="$ArGs_P"" RVB=VRAI" # # $Z set ArGs_P="$ArGs_P"" editer_extrema_hors=FAUX" # # # # $Z set _____Rayon1=0.005 # # $Z set _____Grossissement=2 # # $Z set FoNd=$xTV/SMIT.11 # # # # $Z $xrv/particule.10$X np=1 iterations=$Npart_ \ # # $Z LISTE_X=$FPoLyGoNeS.2$COORD_X \ # # $Z BX=$TrAnSX \ # # $Z LISTE_Y=$FPoLyGoNeS.2$COORD_Y \ # # $Z BY=$TrAnSY \ # # $Z LISTE_Z=$FPoLyGoNeS.2$COORD_Z \ # # $Z BZ=$TrAnSZ \ # # $Z LISTE_RAYON=$_____Rayon1 \ # # $Z LISTE_ROUGE=$GRIS_8 \ # # $Z LISTE_VERTE=$GRIS_8 \ # # $Z LISTE_BLEUE=$GRIS_8 \ # # $Z $ArGs_P \ # # $Z chiffres=0 \ # # $Z R=$FoNd \ # # $Z $formatI # # # # $Z FilSTmpE FPoLyGoNeS # # # # $Z FilSTmpB FPoLyGoNeS # # # # $Z set CuMuL_PhI=0 # # # # Le noeud de depart est le point rouge (entre le magenta et le orange, plutot en bas et # # a droite, sommet du bas commun aux deux hexagones inferieurs) : # # # # $Z GeNeRe $cote2 $angle0 # # $Z GeNeRe $cote3 +$angle2 # # $Z GeNeRe $cote3 +$angle3 # # $Z GeNeRe $cote2 -$angle2 # # $Z GeNeRe $cote2 +$angle3 # # $Z GeNeRe $cote3 +$angle2 # # $Z GeNeRe $cote3 +$angle3 # # $Z GeNeRe $cote2 -$angle2 # # $Z GeNeRe $cote1 +$angle3 # # $Z GeNeRe $cote2 +$angle3 # # $Z GeNeRe $cote3 +$angle2 # # $Z GeNeRe $cote3 -$angle3 # # $Z GeNeRe $cote2 +$angle2 # # # # $m4 _____include(_____xiirv/.SMIT.11.1._____U) # # # # $Z $xci/valeurs_inte$X \ # # $Z premiere=1 derniere=$Npart_ \ # # $Z vD=$NOIR vA=$BLANC \ # # $Z lineaire=VRAI \ # # $Z entiers=VRAI \ # # $Z > $FPoLyGoNeS.2.1$NIVEAU # # # # $Z set _____Palette=$xiP/arc_ciel.L1 # # $Z set _____Rayon2=0.015 # # $Z set _____Grossissement=2 # # $Z set _____ImageR=$xiirv/SMIT.11 # # # # $Z $xrv/particule.10$X np=1 iterations=$Npart_ \ # # $Z LISTE_X=$FPoLyGoNeS.2$COORD_X \ # # $Z BX=$TrAnSX \ # # $Z LISTE_Y=$FPoLyGoNeS.2$COORD_Y \ # # $Z BY=$TrAnSY \ # # $Z LISTE_Z=$FPoLyGoNeS.2$COORD_Z \ # # $Z BZ=$TrAnSZ \ # # $Z LISTE_RAYON=$_____Rayon2 \ # # $Z grossissement=$_____Grossissement \ # # $Z LISTE_NIVEAU=$FPoLyGoNeS.2.1$NIVEAU \ # # $Z p=$_____Palette \ # # $Z $ArGs_P \ # # $Z fond=VRAI F=$FoNd \ # # $Z chiffres=0 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # $Z FilSTmpE FPoLyGoNeS # # # # :Fin_listG_SMIT_11: # # # # # # Il s'agit de la tuile unique (dite "The Hat"...) d'un pavage non periodique, mais qui # # demande a etre retourne de temps en temps pour assurer ce pavage... # v $xiirv/SMIT.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SMIT_21: # # # # $Z Sdu # # # # $m4 _____include(_____xiirv/.SMIT.21.1._____U) # # # # $m4 _____include(_____xiirv/.SMIT.21.2._____U) # # # # $m4 _____include(_____xiirv/.SMIT.21.4._____U) # # # # $m4 _____include(_____xiirv/.SMIT.21.3._____U) # # # # $Z $xci/valeurs_inte$X \ # # $Z premiere=1 derniere=$Npart_ \ # # $Z vD=$NOIR vA=$BLANC \ # # $Z lineaire=VRAI \ # # $Z entiers=VRAI \ # # $Z > $FPoLyGoNeS.2.1$NIVEAU # # # # $Z set _____Palette=$xiP/arc_ciel.L1 # # $Z set _____Rayon2=0.015 # # $Z set _____Grossissement=2 # # $Z set _____ImageR=$xiirv/SMIT.21 # # # # $Z $xrv/particule.10$X np=1 iterations=$Npart_ \ # # $Z LISTE_X=$FPoLyGoNeS.2$COORD_X \ # # $Z BX=$TrAnSX \ # # $Z LISTE_Y=$FPoLyGoNeS.2$COORD_Y \ # # $Z BY=$TrAnSY \ # # $Z LISTE_Z=$FPoLyGoNeS.2$COORD_Z \ # # $Z BZ=$TrAnSZ \ # # $Z LISTE_RAYON=$_____Rayon2 \ # # $Z grossissement=$_____Grossissement \ # # $Z LISTE_NIVEAU=$FPoLyGoNeS.2.1$NIVEAU \ # # $Z p=$_____Palette \ # # $Z $ArGs_P \ # # $Z fond=VRAI F=$FoNd \ # # $Z chiffres=0 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # $Z FilSTmpE FPoLyGoNeS # # # # $Z execRVB $xci/Sx$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_SMIT_21: # # # # # # Il s'agit de la tuile unique (dite "The Spectre"...) d'un pavage aperiodique, qui # # ne demande pas a etre retourne ! On voit ici les hexagones sous-jacents ce qui demande # # deux longueurs differentes {$cote2,$cote3}. # v $xiirv/SMIT.22 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SMIT_22: # # # # $Z Sdu # # # # $m4 _____include(_____xiirv/.SMIT.21.1._____U) # # # # $m4 _____include(_____xiirv/.SMIT.22.2._____U) # # # # $Z set ArGs="$K_VIDE" # # $Z set ArGs="$ArGs"" ne=0" # # $Z set ArGs="$ArGs"" fichier==" # # # # $Z set MiNX=`$CA $FPoLyGoNeS.2$COORD_X | $xrv/extrema.01$X $ArGs ms=VRAI` # # $Z set MaXX=`$CA $FPoLyGoNeS.2$COORD_X | $xrv/extrema.01$X $ArGs Ms=VRAI` # # # # $Z set MiNY=`$CA $FPoLyGoNeS.2$COORD_Y | $xrv/extrema.01$X $ArGs ms=VRAI` # # $Z set MaXY=`$CA $FPoLyGoNeS.2$COORD_Y | $xrv/extrema.01$X $ArGs Ms=VRAI` # # # # $Z set MiNZ=`$CA $FPoLyGoNeS.2$COORD_Z | $xrv/extrema.01$X $ArGs ms=VRAI` # # $Z set MaXZ=`$CA $FPoLyGoNeS.2$COORD_Z | $xrv/extrema.01$X $ArGs Ms=VRAI` # # # # $Z set TrAnSX=`calcul 0.5-((($MaXX)+($MiNX))/2)` # # $Z set TrAnSY=`calcul 0.5-((($MaXY)+($MiNY))/2)` # # $Z set TrAnSZ=0 # # # # $Z $xci/valeurs_inte$X \ # # $Z premiere=1 derniere=$Npart_ \ # # $Z vD=$NOIR vA=$BLANC \ # # $Z lineaire=VRAI \ # # $Z entiers=VRAI \ # # $Z > $FPoLyGoNeS.2.1$NIVEAU # # # # $Z set ArGs_P="$K_VIDE" # # $Z set ArGs_P="$ArGs_P"" TRANSLATION_OX=+0.20" # # $Z set ArGs_P="$ArGs_P"" TRANSLATION_OY=+0.15" # # $Z set ArGs_P="$ArGs_P"" ROTATION_OZ=`calcul ($pis3/4)-$pis2`" # # # # Les deux translations precedentes sont rendues necessaires par le fait que la rotation # # associee n'est pas de '$pis2'... # # # # $Z set ArGs_P="$ArGs_P"" Lz=1000 ZOOM=0.50" # # $Z set ArGs_P="$ArGs_P"" isoles=FAUX chainer=VRAI" # # $Z set ArGs_P="$ArGs_P"" ajuster_points=VRAI" # # $Z set ArGs_P="$ArGs_P"" equidistance=VRAI distance_minimale=0.005" # # $Z set ArGs_P="$ArGs_P"" couronne=2" # # $Z set ArGs_P="$ArGs_P"" RVB=VRAI" # # $Z set ArGs_P="$ArGs_P"" editer_extrema_hors=FAUX" # # # # $Z set _____Palette=$xiP/arc_ciel.L1 # # $Z set _____Rayon2=0.015 # # $Z set _____Grossissement=2 # # $Z set _____ImageR=$xiirv/SMIT.22 # # # # $Z $xrv/particule.10$X np=1 iterations=$Npart_ \ # # $Z LISTE_X=$FPoLyGoNeS.2$COORD_X \ # # $Z BX=$TrAnSX \ # # $Z LISTE_Y=$FPoLyGoNeS.2$COORD_Y \ # # $Z BY=$TrAnSY \ # # $Z LISTE_Z=$FPoLyGoNeS.2$COORD_Z \ # # $Z BZ=$TrAnSZ \ # # $Z LISTE_RAYON=$_____Rayon2 \ # # $Z grossissement=$_____Grossissement \ # # $Z LISTE_NIVEAU=$FPoLyGoNeS.2.1$NIVEAU \ # # $Z p=$_____Palette \ # # $Z $ArGs_P \ # # $Z fond=FAUX \ # # $Z chiffres=0 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # $Z FilSTmpE FPoLyGoNeS # # # # $Z execRVB $xci/Sx$X \ # # $Z A=$_____ImageR%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_SMIT_22: # # # # # # Il s'agit de la tuile unique (dite "The Spectre"...) d'un pavage aperiodique, qui # # ne demande pas a etre retourne ! # v $xiirv/SMIT.22.21.16 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_22_21_16: # # # # $Z Sdu # # # # $Z FilSTmpB FInTeR # # # # $Z set _____Cote=0.40 # # $m4 _____include(_____xiirv/.SMIT.21.1._____U) # # # # $m4 _____include(_____xiirv/.SMIT.21.2._____U) # # # # $Z set _____Rayon1=0.010 # # $Z set _____NiveauROUGE=$GRIS_4 # # $Z set _____NiveauVERTE=$GRIS_4 # # $Z set _____NiveauBLEUE=$GRIS_4 # # $m4 _____include(_____xiirv/.SMIT.21.4._____U) # # # # Trace des trois hexagones... # # # # $Z set MeTtRe_FoNd="fond=VRAI F=$FoNd" # # # # $m4 _____include(_____xiirv/.SMIT.21.1._____U) # # # # $m4 _____include(_____xiirv/.SMIT.21.3._____U) # # # # $Z $CA $FPoLyGoNeS.2$COORD_X \ # # $Z > $FInTeR.1$COORD_X # # $Z $CA $FPoLyGoNeS.2$COORD_Y \ # # $Z > $FInTeR.1$COORD_Y # # $Z $CA $FPoLyGoNeS.2$COORD_Z \ # # $Z > $FInTeR.1$COORD_Z # # # # Definition du polygone type 'v $xiirv/SMIT.21'... # # # # $Z FilSTmpE FPoLyGoNeS # # # # $m4 _____include(_____xiirv/.SMIT.21.1._____U) # # # # $m4 _____include(_____xiirv/.SMIT.22.2._____U) # # # # $Z $CA $FPoLyGoNeS.2$COORD_X \ # # $Z > $FInTeR.2$COORD_X # # $Z $CA $FPoLyGoNeS.2$COORD_Y \ # # $Z > $FInTeR.2$COORD_Y # # $Z $CA $FPoLyGoNeS.2$COORD_Z \ # # $Z > $FInTeR.2$COORD_Z # # # # Definition du polygone type 'v $xiirv/SMIT.22'... # # # # $Z FilSTmpE FPoLyGoNeS # # # # $Z set _____Palette=$xiP/arc_ciel.L1 # # $Z set _____Rayon2=0.030 # # $Z set _____Grossissement=2 # # # # $Z set Premiere=1 # # $Z set Derniere=16 # # # # $Z set RaCiNe=$xTV/POLY. # # $Z set ArGI="p=$Premiere d=$Derniere" # # $Z set LImAgEs=`$xci/nombres$X A=$RaCiNe $ArGI` # # $Z set LLaMbDa=`$xci/valeurs_inte$X $ArGI vD=0 vA=1 lineaire=VRAI` # # $Z set RoTa1=-$pis2 # # $Z set RoTaN=`calcul ($pis3/4)-$pis2` # # $Z set LRoTaT=`$xci/valeurs_inte$X $ArGI vD=$RoTa1 vA=$RoTaN lineaire=VRAI` # # $Z set LZoOm=`$xci/valeurs_inte$X $ArGI vD=0.7 vA=0.5 lineaire=VRAI` # # $Z set LTrAX=`$xci/valeurs_inte$X $ArGI vD=0 vA=-0.30 lineaire=VRAI` # # $Z set LTrAY=`$xci/valeurs_inte$X $ArGI vD=0 vA=-0.30 lineaire=VRAI` # # # # $Z set index=$Premiere # # # # $Z while ($index <= $Derniere) # # # # $Z FilSTmpB FPoLyGoNe # # # # $Z $xrv/BARY.11$X ne=0 \ # # $Z fichier1=$FInTeR.1$COORD_X \ # # $Z fichier2=$FInTeR.2$COORD_X \ # # $Z lambda=$LLaMbDa[$index] \ # # $Z > $FPoLyGoNe$COORD_X # # # # $Z $xrv/BARY.11$X ne=0 \ # # $Z fichier1=$FInTeR.1$COORD_Y \ # # $Z fichier2=$FInTeR.2$COORD_Y \ # # $Z lambda=$LLaMbDa[$index] \ # # $Z > $FPoLyGoNe$COORD_Y # # # # $Z $xrv/BARY.11$X ne=0 \ # # $Z fichier1=$FInTeR.1$COORD_Z \ # # $Z fichier2=$FInTeR.2$COORD_Z \ # # $Z lambda=$LLaMbDa[$index] \ # # $Z > $FPoLyGoNe$COORD_Z # # # # $Z $xci/valeurs_inte$X \ # # $Z premiere=1 derniere=$Npart_ \ # # $Z vD=$NOIR vA=$BLANC \ # # $Z lineaire=VRAI \ # # $Z entiers=VRAI \ # # $Z > $FPoLyGoNe$NIVEAU # # # # $Z set ArGs_P="$K_VIDE" # # $Z set ArGs_P="$ArGs_P"" ROTATION_OZ=$LRoTaT[$index]" # # # # Les deux translations precedentes sont rendues necessaires par le fait que la rotation # # associee n'est pas de '$pis2'... # # # # $Z set ArGs_P="$ArGs_P"" TRANSLATION_OX=$LTrAX[$index]" # # $Z set ArGs_P="$ArGs_P"" TRANSLATION_OY=$LTrAY[$index]" # # $Z set ArGs_P="$ArGs_P"" Lz=1000" # # $Z set ArGs_P="$ArGs_P"" ZOOM=$LZoOm[$index]" # # $Z set ArGs_P="$ArGs_P"" isoles=FAUX chainer=VRAI" # # $Z set ArGs_P="$ArGs_P"" ajuster_points=VRAI" # # $Z set ArGs_P="$ArGs_P"" equidistance=VRAI" # # $Z set ArGs_P="$ArGs_P"" distance_minimale=0.005" # # $Z set ArGs_P="$ArGs_P"" couronne=2" # # $Z set ArGs_P="$ArGs_P"" RVB=VRAI" # # $Z set ArGs_P="$ArGs_P"" editer_extrema_hors=FAUX" # # # # $Z $xrv/particule.10$X np=1 iterations=$Npart_ \ # # $Z LISTE_X=$FPoLyGoNe$COORD_X \ # # $Z BX=$TrAnSX \ # # $Z LISTE_Y=$FPoLyGoNe$COORD_Y \ # # $Z BY=$TrAnSY \ # # $Z LISTE_Z=$FPoLyGoNe$COORD_Z \ # # $Z BZ=$TrAnSZ \ # # $Z LISTE_RAYON=$_____Rayon2 \ # # $Z grossissement=$_____Grossissement \ # # $Z LISTE_NIVEAU=$FPoLyGoNe$NIVEAU \ # # $Z p=$_____Palette \ # # $Z $ArGs_P \ # # $Z $MeTtRe_FoNd \ # # $Z chiffres=0 \ # # $Z R=$LImAgEs[$index] \ # # $Z $formatI # # # # $Z FilSTmpE FPoLyGoNe # # # # $Z execRVB $xci/Sx$X \ # # $Z A=$LImAgEs[$index]%s \ # # $Z R=$LImAgEs[$index]%s \ # # $Z $formatI # # # # $Z @ index = $index + 1 # # $Z end # # # # $Z set _____ImageR=$xiirv/SMIT.22.21 # # \ # # $Z $xci/reduction_16$Z $RaCiNe \ # # $Z $_____ImageR \ # # $Z $Premiere $Derniere # # # # $Z FilSTmpE FInTeR # # # # :Fin_listG_SMIT_22_21_16: # # # # # # Il s'agit d'une interpolation entre 'v $xiirv/SMIT.21' et 'v $xiirv/SMIT.22'... # v $xiirv/SMIT.22.21.16.1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_22_21_16_1: # # # # $Z Sdu # # # # $Z set _____ImageA=$xiirv/SMIT.22.21.16 # # $Z set _____ImageR=$_____ImageA.1 # # # # $Z execRVB $xci/accumule.01$X \ # # $Z A=$xTV/POLY. \ # # $Z premiere=1 derniere=16 \ # # $Z postfixe=%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_SMIT_22_21_16_1: # # # # # # Il s'agit d'une accumulation des 16 images definissant 'v $xiirv/SMIT.22.21.16'... # v $xiirv/SMIT.31 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_31: # # # # $Z Sdu # # # # $Z set _____NombreSpectres=19 # # $Z set _____ImageR=$xiirv/SMIT.31 # # # # $m4 _____include(_____xiirv/.SMIT.31.1._____U) # # # # :Fin_listG_SMIT_31: # # # # # # Il s'agit d'un pavage aperodique utilisant "The Spectre" avec coloriage aleatoire... # # # # # # Grace a la difference entre 'v $xarm/LACT19$D/informations/catalg.20231122183115 SMIT.31.B' # # et 'v $xarm/LACT1B$D/informations/catalg.20231122183115 SMIT.31.B', le 20231123105230 j'ai # # note qu'il y avait eu aux environs du 20230902142941 des tests effectues sur '$LACT1B' # # relatifs a cette image ('v $xiirv/SMIT.31') qui ont conduits a une version differente # # sur '$LACT1B' de celle de '$LACT19', cette difference n'ayant pas ete annulee ensuite... # # Le 20231123105230, j'ai voulu la regenerer sur '$LACT1B', mais malheureusement cela semble # # impossible, meme en introduisant (approximativement...) : # # # # set _____TranslationX=+0.210 # # set _____TranslationY=+0.512 # # # # Mais cela ne suffit pas a cause des couleurs, 'v $xci/contours.22$K compatibilite_20231121' # # ne suffisant pas non plus... # # # # En consequence de quoi a cette date (20231123105230) je mets a jour '$LACT1B' "annulant" # # ainsi les tests du 20230902142941 sue cette MACHINE... # v $xiirv/SMIT.32 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_32: # # # # $Z Sdu # # # # $Z set _____NombreSpectres=35 # # $Z set _____TranslationX=-0.35 # # $Z set _____TranslationY=+0.05 # # $Z set _____Zoom=1.0 # # $Z set _____ImageR=$xiirv/SMIT.32 # # # # $m4 _____include(_____xiirv/.SMIT.31.1._____U) # # # # :Fin_listG_SMIT_32: # # # # # # Il s'agit d'un pavage aperodique utilisant "The Spectre" avec coloriage aleatoire... # v $xiirv/SMIT.33 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_33: # # # # $Z Sdu # # # # $Z set _____NombreSpectres=49 # # $Z set _____TranslationX=-0.15 # # $Z set _____TranslationY=-0.18 # # $Z set _____Zoom=0.7 # # $Z set _____ImageR=$xiirv/SMIT.33 # # # # $m4 _____include(_____xiirv/.SMIT.31.1._____U) # # # # :Fin_listG_SMIT_33: # # # # # # Il s'agit d'un pavage aperodique utilisant "The Spectre" avec coloriage aleatoire... # v $xiirv/SMIT.34 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_34: # # # # $Z Sdu # # # # $Z set _____NombreSpectres=236 # # $Z set _____Rayon=0.010 # # $Z set _____TranslationX=-0.12 # # $Z set _____TranslationY=-0.60 # # $Z set _____Zoom=0.30 # # $Z set _____ImageR=$xiirv/SMIT.34 # # # # $m4 _____include(_____xiirv/.SMIT.31.1._____U) # # # # :Fin_listG_SMIT_34: # # # # # # Il s'agit d'un pavage aperodique utilisant "The Spectre" avec coloriage aleatoire... # v $xiirv/SMIT.34$IdM # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_SMIT_34_IdM: # # # # $Z TvB # # # # $Z set _____NombreSpectres=236 # # $Z set _____Rayon=0.010 # # $Z set _____TranslationX=-0.12 # # $Z set _____TranslationY=-0.60 # # $Z set _____Zoom=0.45 # # $Z set _____ImageR=$xiirv/SMIT.34$IdM # # # # $m4 _____include(_____xiirv/.SMIT.31.1._____U) # # # # :Fin_listG_SMIT_34_IdM: # # # # # # Il s'agit d'un pavage aperodique utilisant "The Spectre" avec coloriage aleatoire... # v $xiirv/SMIT.34$m # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_34_m: # # # # $Z Sdu # # # # $Z set _____ImageA=$xiirv/SMIT.34 # # $Z set _____ImageR=$_____ImageA$m # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z navap=VRAI \ # # $Z passes=100 \ # # $Z R=$xTV/SMIT.34 \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SMIT.34 \ # # $Z standard=FAUX zero=FAUX \ # # $Z echelle=0.1 \ # # $Z avion=VRAI \ # # $Z T=$_____ImageA%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_SMIT_34_m: # # # # # # Il s'agit d'un pavage aperodique utilisant "The Spectre" represente tridimensionnellement. # v $xiirv/SMIT.44 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_44: # # # # $Z Sdu # # # # $Z set _____NombreSpectres=236 # # $Z set _____Rayon=0.010 # # $Z set _____TranslationX=-0.12 # # $Z set _____TranslationY=-0.60 # # $Z set _____Zoom=0.30 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" cubique=VRAI" # # $Z set _____ParticulePara="$_____ParticulePara"" LISTE_dX=0.5" # # $Z set _____ParticulePara="$_____ParticulePara"" LISTE_dY=0.5" # # # # $Z set _____ImageR=$xiirv/SMIT.44 # # # # $m4 _____include(_____xiirv/.SMIT.31.1._____U) # # # # :Fin_listG_SMIT_44: # # # # # # Il s'agit d'un pavage aperodique utilisant "The Spectre" avec coloriage aleatoire # # (comme 'v $xiirv/SMIT.34), mais deforme... # v $xiirv/SMIT.54 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_54: # # # # $Z Squ # # # # $Z set _____NombreSpectres=236 # # $Z set _____Rayon=0.020 # # $Z set _____TranslationX=-0.12 # # $Z set _____TranslationY=-0.60 # # $Z set _____Zoom=0.17 # # $Z set _____ImageR=$xTV/SMIT.54 # # # # $m4 _____include(_____xiirv/.SMIT.51.1._____U) # # # # $Z set _____ImageT=$_____ImageR # # $Z set _____ImageR=$xiirv/SMIT.54 # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImageT%s \ # # $Z $formatI \ # # $Z mode=7 \ # # $Z R=$_____ImageR%s \ # # $Z $formatR_Sdu # # # # :Fin_listG_SMIT_54: # # # # # # Il s'agit d'un pavage aperodique utilisant "The Spectre" avec coloriage fonction de # # l'angle d'inclinaison utilise pour colorier chaque contour, angle que l'on tente de # # recuperer ensuite a partir du niveau "majoritaire" de chaque contour. On notera que # # cela ne fonctionne pas parfaitement car, en effet, les contours sont la plupart du temps # # ecrases plus ou moins partiellement par des contours voisins traces par la suite, d'ou # # le fait que pratiquement aucun contour (sauf ceux de la peripherie) possede un niveau # # unique... # v $xiirv/SMIT.64 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_64: # # # # $Z Squ # # # # $Z set _____NombreSpectres=236 # # $Z set _____Rayon=0.020 # # $Z set _____TranslationX=-0.12 # # $Z set _____TranslationY=-0.60 # # $Z set _____Zoom=0.17 # # $Z set _____ImageR=$xTV/SMIT.64 # # # # $m4 _____include(_____xiirv/.SMIT.61.1._____U) # # # # $Z set _____ImageT=$_____ImageR # # $Z set _____ImageR=$xiirv/SMIT.64 # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImageT%s \ # # $Z $formatI \ # # $Z mode=7 \ # # $Z R=$_____ImageR%s \ # # $Z $formatR_Sdu # # # # :Fin_listG_SMIT_64: # # # # # # Il s'agit d'un pavage aperodique utilisant "The Spectre" avec coloriage fonction de # # l'angle d'inclinaison evalue a partir de la matrice d'inertie des contours. On notera que # # les matrices d'inertie d'un contour et de celui qui a une direction opposee sont # # identiques... # v $xiirv/SMIT.74 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_74: # # # # $Z Squ # # # # $Z set _____NombreSpectres=236 # # $Z set _____Rayon=0.020 # # $Z set _____TranslationX=-0.12 # # $Z set _____TranslationY=-0.60 # # $Z set _____Zoom=0.17 # # $Z set _____ImageR=$xTV/SMIT.74 # # # # $m4 _____include(_____xiirv/.SMIT.71.1._____U) # # # # $Z set _____ImageT=$_____ImageR # # $Z set _____ImageR=$xiirv/SMIT.74 # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImageT%s \ # # $Z $formatI \ # # $Z mode=7 \ # # $Z R=$_____ImageR%s \ # # $Z $formatR_Sdu # # # # :Fin_listG_SMIT_74: # # # # # # Il s'agit d'un pavage aperodique utilisant "The Spectre" avec coloriage fonction du # # niveau du centre de gravite (utilise pour representer l'angle d'inclinaison) et donc # # celui du bord... # v $xiirv/SMIT.84 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_84: # # # # $Z Sdu # # # # $Z set _____NombreSpectres=236 # # # # $Z set _____A20=-2.0 # # $Z set _____A02=-2.0 # # # # $Z set _____Rayon=0.012 # # $Z set _____TranslationX=+1.00 # # $Z set _____TranslationY=+1.00 # # $Z set _____Zoom=1.00 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" N_au_carre=FAUX" # # # # $Z set _____ImageR=$xiirv/SMIT.84 # # # # $m4 _____include(_____xiirv/.SMIT.81.1._____U) # # # # :Fin_listG_SMIT_84: # # # # # # Il s'agit d'un pavage aperodique utilisant "The Spectre" dispose sur une surface # # tridimensionnelle... # v $xiirv/SMIT.84$m # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_84_m: # # # # $Z Sdu # # # # $Z set _____NombreSpectres=236 # # # # $Z set _____A20=-2.0 # # $Z set _____A02=-2.0 # # # # $Z set _____Rayon=0.022 # # $Z set _____TranslationX=+1.00 # # $Z set _____TranslationY=+1.00 # # $Z set _____Zoom=1.00 # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" N_au_carre=FAUX" # # # # $Z set _____ImageR=$xTV/SMIT.84 # # # # $m4 _____include(_____xiirv/.SMIT.81.1._____U) # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$_____ImageR%s \ # # $Z points=100 \ # # $Z circulaire=VRAI \ # # $Z circulaire_optimale=VRAI \ # # $Z R=$xTV/SMIT.81%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/SMIT.81 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z navap=VRAI \ # # $Z passes=10 \ # # $Z R=$xTV/SMIT.82 \ # # $Z $formatI # # # # $Z set _____ImageT=$_____ImageR # # $Z set _____ImageR=$xiirv/SMIT.84$m # # # # $Z execRVB "$xci/complement$X \ # # $Z A=$_____ImageT%s \ # # $Z $formatI | \ # # $Z $xci/montagne.01$X \ # # $Z echelle=0.05 \ # # $Z A=$xTV/SMIT.82 \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z avion=VRAI \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_SMIT_84_m: # # # # # # Il s'agit d'un pavage aperodique utilisant "The Spectre" dispose sur une surface # # tridimensionnelle... # v $xiirv/SMIT.91 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_91: # # # # $Z Sdu # # # # $Z set _____NombreSpectres=5 # # $Z set _____Selecteur=(1 5) # # $Z set _____TranslationX=+0.14 # # $Z set _____TranslationY=+0.62 # # $Z set _____Zoom=2.00 # # $Z set _____Graine=1940 # # $Z set _____Palette=$xiP/random.E5 # # $Z set _____ImageR=$xiirv/SMIT.91 # # # # $m4 _____include(_____xiirv/.SMIT.31.1._____U) # # # # :Fin_listG_SMIT_91: # # # # # # Il s'agit d'un pavage aperodique utilisant "The Spectre" avec coloriage aleatoire... # v $xiirv/SMIT.A1.8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_A1_8: # # # # $Z Sdu # # # # $Z set _____NombreSpectres=8 # # $Z set _____TranslationX=+0.030 # # $Z set _____TranslationY=+0.270 # # $Z set _____ImageR=$xiirv/SMIT.A1.$_____NombreSpectres # # # # $m4 _____include(_____xiirv/.SMIT.A1.1._____U) # # # # :Fin_listG_SMIT_A1_8: # # # # # # Il s'agit du "cluster" de niveau 1 a 8 "Spectre"s... # v $xiirv/SMIT.A1.9 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_A1_9: # # # # $Z Sdu # # # # $Z set _____NombreSpectres=9 # # $Z set _____TranslationX=+0.135 # # $Z set _____TranslationY=+0.270 # # $Z set _____ImageR=$xiirv/SMIT.A1.$_____NombreSpectres # # # # $m4 _____include(_____xiirv/.SMIT.A1.1._____U) # # # # :Fin_listG_SMIT_A1_9: # # # # # # Il s'agit du "cluster" de niveau 1 a 9 "Spectre"s... # v $xiirv/SMIT.B1.7 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_B1_7: # # # # $Z Sdu # # # # $Z set _____ClusterA_6=FAUX # # $Z set _____ClusterB_6=$_____ClusterA_6 # # $Z set _____TranslationX=-0.370 # # $Z set _____TranslationY=-0.920 # # $Z set _____ImageR=$xiirv/SMIT.B1.7 # # # # $m4 _____include(_____xiirv/.SMIT.B1.1._____U) # # # # :Fin_listG_SMIT_B1_7: # # # # # # Il s'agit du "cluster" de niveau 2 a 7 "cluster"s... # v $xiirv/SMIT.B1.8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_B1_8: # # # # $Z Sdu # # # # $Z set _____ClusterA_6=VRAI # # $Z set _____ClusterB_6=$_____ClusterA_6 # # $Z set _____TranslationX=-0.370 # # $Z set _____TranslationY=-0.920 # # $Z set _____ImageR=$xiirv/SMIT.B1.8 # # # # $m4 _____include(_____xiirv/.SMIT.B1.1._____U) # # # # :Fin_listG_SMIT_B1_8: # # # # # # Il s'agit du "cluster" de niveau 2 a 8 "cluster"s... # v $xiirv/SMIT.C1.7.1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_C1_7_1: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=VRAI # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=FAUX # # # # $Z set _____ClusterA_6=FAUX # # # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=$_____ClusterA_6 # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=FAUX # # # # $Z set _____TranslationX=-0.370 # # $Z set _____TranslationY=-0.920 # # $Z set _____ImageR=$xiirv/SMIT.C1.7.1 # # # # $m4 _____include(_____xiirv/.SMIT.B1.1._____U) # # # # :Fin_listG_SMIT_C1_7_1: # # # v $xiirv/SMIT.C1.7.2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_C1_7_2: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=VRAI # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=FAUX # # # # $Z set _____ClusterA_6=FAUX # # # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=$_____ClusterA_6 # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=FAUX # # # # $Z set _____TranslationX=-0.370 # # $Z set _____TranslationY=-0.920 # # $Z set _____ImageR=$xiirv/SMIT.C1.7.2 # # # # $m4 _____include(_____xiirv/.SMIT.B1.1._____U) # # # # :Fin_listG_SMIT_C1_7_2: # # # v $xiirv/SMIT.C1.7.3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_C1_7_3: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=VRAI # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=FAUX # # # # $Z set _____ClusterA_6=FAUX # # # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=$_____ClusterA_6 # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=FAUX # # # # $Z set _____TranslationX=-0.370 # # $Z set _____TranslationY=-0.920 # # $Z set _____ImageR=$xiirv/SMIT.C1.7.3 # # # # $m4 _____include(_____xiirv/.SMIT.B1.1._____U) # # # # :Fin_listG_SMIT_C1_7_3: # # # v $xiirv/SMIT.C1.7.4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_C1_7_4: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=VRAI # # $Z set _____ClusterA_5=FAUX # # # # $Z set _____ClusterA_6=FAUX # # # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=$_____ClusterA_6 # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=FAUX # # # # $Z set _____TranslationX=-0.370 # # $Z set _____TranslationY=-0.920 # # $Z set _____ImageR=$xiirv/SMIT.C1.7.4 # # # # $m4 _____include(_____xiirv/.SMIT.B1.1._____U) # # # # :Fin_listG_SMIT_C1_7_4: # # # v $xiirv/SMIT.C1.7.5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_C1_7_5: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=VRAI # # # # $Z set _____ClusterA_6=FAUX # # # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=$_____ClusterA_6 # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=FAUX # # # # $Z set _____TranslationX=-0.370 # # $Z set _____TranslationY=-0.920 # # $Z set _____ImageR=$xiirv/SMIT.C1.7.5 # # # # $m4 _____include(_____xiirv/.SMIT.B1.1._____U) # # # # :Fin_listG_SMIT_C1_7_5: # # # v $xiirv/SMIT.C1.7.7 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_C1_7_7: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=FAUX # # # # $Z set _____ClusterA_6=FAUX # # # # $Z set _____ClusterA_7=VRAI # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=$_____ClusterA_6 # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=FAUX # # # # $Z set _____TranslationX=-0.370 # # $Z set _____TranslationY=-0.920 # # $Z set _____ImageR=$xiirv/SMIT.C1.7.7 # # # # $m4 _____include(_____xiirv/.SMIT.B1.1._____U) # # # # :Fin_listG_SMIT_C1_7_7: # # # v $xiirv/SMIT.C1.7.8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_C1_7_8: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=FAUX # # # # $Z set _____ClusterA_6=FAUX # # # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=VRAI # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=$_____ClusterA_6 # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=FAUX # # # # $Z set _____TranslationX=-0.370 # # $Z set _____TranslationY=-0.920 # # $Z set _____ImageR=$xiirv/SMIT.C1.7.8 # # # # $m4 _____include(_____xiirv/.SMIT.B1.1._____U) # # # # :Fin_listG_SMIT_C1_7_8: # # # v $xiirv/SMIT.C1.8.1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_C1_8_1: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=VRAI # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=FAUX # # $Z set _____ClusterA_6=FAUX # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=VRAI # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=FAUX # # # # $Z set _____TranslationX=-0.370 # # $Z set _____TranslationY=-0.920 # # $Z set _____ImageR=$xiirv/SMIT.C1.8.1 # # # # $m4 _____include(_____xiirv/.SMIT.B1.1._____U) # # # # :Fin_listG_SMIT_C1_8_1: # # # v $xiirv/SMIT.C1.8.2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_C1_8_2: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=VRAI # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=FAUX # # $Z set _____ClusterA_6=FAUX # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=VRAI # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=FAUX # # # # $Z set _____TranslationX=-0.370 # # $Z set _____TranslationY=-0.920 # # $Z set _____ImageR=$xiirv/SMIT.C1.8.2 # # # # $m4 _____include(_____xiirv/.SMIT.B1.1._____U) # # # # :Fin_listG_SMIT_C1_8_2: # # # v $xiirv/SMIT.C1.8.3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_C1_8_3: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=VRAI # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=FAUX # # $Z set _____ClusterA_6=FAUX # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=VRAI # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=FAUX # # # # $Z set _____TranslationX=-0.370 # # $Z set _____TranslationY=-0.920 # # $Z set _____ImageR=$xiirv/SMIT.C1.8.3 # # # # $m4 _____include(_____xiirv/.SMIT.B1.1._____U) # # # # :Fin_listG_SMIT_C1_8_3: # # # v $xiirv/SMIT.C1.8.4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_C1_8_4: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=VRAI # # $Z set _____ClusterA_5=FAUX # # $Z set _____ClusterA_6=FAUX # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=VRAI # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=FAUX # # # # $Z set _____TranslationX=-0.370 # # $Z set _____TranslationY=-0.920 # # $Z set _____ImageR=$xiirv/SMIT.C1.8.4 # # # # $m4 _____include(_____xiirv/.SMIT.B1.1._____U) # # # # :Fin_listG_SMIT_C1_8_4: # # # v $xiirv/SMIT.C1.8.5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_C1_8_5: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=VRAI # # $Z set _____ClusterA_6=FAUX # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=VRAI # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=FAUX # # # # $Z set _____TranslationX=-0.370 # # $Z set _____TranslationY=-0.920 # # $Z set _____ImageR=$xiirv/SMIT.C1.8.5 # # # # $m4 _____include(_____xiirv/.SMIT.B1.1._____U) # # # # :Fin_listG_SMIT_C1_8_5: # # # v $xiirv/SMIT.C1.8.6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_C1_8_6: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=FAUX # # $Z set _____ClusterA_6=VRAI # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=VRAI # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=FAUX # # # # $Z set _____TranslationX=-0.370 # # $Z set _____TranslationY=-0.920 # # $Z set _____ImageR=$xiirv/SMIT.C1.8.6 # # # # $m4 _____include(_____xiirv/.SMIT.B1.1._____U) # # # # :Fin_listG_SMIT_C1_8_6: # # # v $xiirv/SMIT.C1.8.7 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_C1_8_7: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=FAUX # # $Z set _____ClusterA_6=FAUX # # $Z set _____ClusterA_7=VRAI # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=VRAI # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=FAUX # # # # $Z set _____TranslationX=-0.370 # # $Z set _____TranslationY=-0.920 # # $Z set _____ImageR=$xiirv/SMIT.C1.8.7 # # # # $m4 _____include(_____xiirv/.SMIT.B1.1._____U) # # # # :Fin_listG_SMIT_C1_8_7: # # # v $xiirv/SMIT.C1.8.8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_C1_8_8: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=FAUX # # $Z set _____ClusterA_6=FAUX # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=VRAI # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=VRAI # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=FAUX # # # # $Z set _____TranslationX=-0.370 # # $Z set _____TranslationY=-0.920 # # $Z set _____ImageR=$xiirv/SMIT.C1.8.8 # # # # $m4 _____include(_____xiirv/.SMIT.B1.1._____U) # # # # :Fin_listG_SMIT_C1_8_8: # # # v $xiirv/SMIT.D1.7 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_D1_7: # # # # $Z Sdu # # # # $Z set _____ClusterA_6=FAUX # # $Z set _____ClusterB_6=$_____ClusterA_6 # # # # $Z set _____Squelette2=VRAI # # $Z set _____Squelette3=VRAI # # # # $Z set _____ImageR=$xiirv/SMIT.D1.7 # # # # $m4 _____include(_____xiirv/.SMIT.D1.1._____U) # # # # :Fin_listG_SMIT_D1_7: # # # # # # Il s'agit du "cluster" de niveau 3 a 7 "cluster"s... # v $xiirv/SMIT.D1.8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_D1_8: # # # # $Z Sdu # # # # $Z set _____ClusterA_6=VRAI # # $Z set _____ClusterB_6=$_____ClusterA_6 # # # # $Z set _____Squelette2=VRAI # # $Z set _____Squelette3=VRAI # # # # $Z set _____ImageR=$xiirv/SMIT.D1.8 # # # # $m4 _____include(_____xiirv/.SMIT.D1.1._____U) # # # # :Fin_listG_SMIT_D1_8: # # # # # # Il s'agit du "cluster" de niveau 3 a 8 "cluster"s... # v $xiirv/SMIT.E1.7.1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_E1_7_1: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=VRAI # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=FAUX # # # # $Z set _____ClusterA_6=FAUX # # # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=$_____ClusterA_6 # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=VRAI # # $Z set _____Squelette3=FAUX # # # # $Z set _____ImageR=$xiirv/SMIT.E1.7.1 # # # # $m4 _____include(_____xiirv/.SMIT.D1.1._____U) # # # # :Fin_listG_SMIT_E1_7_1: # # # v $xiirv/SMIT.E1.7.2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_E1_7_2: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=VRAI # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=FAUX # # # # $Z set _____ClusterA_6=FAUX # # # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=$_____ClusterA_6 # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=VRAI # # $Z set _____Squelette3=FAUX # # # # $Z set _____ImageR=$xiirv/SMIT.E1.7.2 # # # # $m4 _____include(_____xiirv/.SMIT.D1.1._____U) # # # # :Fin_listG_SMIT_E1_7_2: # # # v $xiirv/SMIT.E1.7.3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_E1_7_3: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=VRAI # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=FAUX # # # # $Z set _____ClusterA_6=FAUX # # # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=$_____ClusterA_6 # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=VRAI # # $Z set _____Squelette3=FAUX # # # # $Z set _____ImageR=$xiirv/SMIT.E1.7.3 # # # # $m4 _____include(_____xiirv/.SMIT.D1.1._____U) # # # # :Fin_listG_SMIT_E1_7_3: # # # v $xiirv/SMIT.E1.7.4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_E1_7_4: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=VRAI # # $Z set _____ClusterA_5=FAUX # # # # $Z set _____ClusterA_6=FAUX # # # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=$_____ClusterA_6 # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=VRAI # # $Z set _____Squelette3=FAUX # # # # $Z set _____ImageR=$xiirv/SMIT.E1.7.4 # # # # $m4 _____include(_____xiirv/.SMIT.D1.1._____U) # # # # :Fin_listG_SMIT_E1_7_4: # # # v $xiirv/SMIT.E1.7.5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_E1_7_5: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=VRAI # # # # $Z set _____ClusterA_6=FAUX # # # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=$_____ClusterA_6 # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=VRAI # # $Z set _____Squelette3=FAUX # # # # $Z set _____ImageR=$xiirv/SMIT.E1.7.5 # # # # $m4 _____include(_____xiirv/.SMIT.D1.1._____U) # # # # :Fin_listG_SMIT_E1_7_5: # # # v $xiirv/SMIT.E1.7.7 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_E1_7_7: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=FAUX # # # # $Z set _____ClusterA_6=FAUX # # # # $Z set _____ClusterA_7=VRAI # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=$_____ClusterA_6 # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=VRAI # # $Z set _____Squelette3=FAUX # # # # $Z set _____ImageR=$xiirv/SMIT.E1.7.7 # # # # $m4 _____include(_____xiirv/.SMIT.D1.1._____U) # # # # :Fin_listG_SMIT_E1_7_7: # # # v $xiirv/SMIT.E1.7.8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_E1_7_8: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=FAUX # # # # $Z set _____ClusterA_6=FAUX # # # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=VRAI # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=$_____ClusterA_6 # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=VRAI # # $Z set _____Squelette3=FAUX # # # # $Z set _____ImageR=$xiirv/SMIT.E1.7.8 # # # # $m4 _____include(_____xiirv/.SMIT.D1.1._____U) # # # # :Fin_listG_SMIT_E1_7_8: # # # v $xiirv/SMIT.E1.8.1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_E1_8_1: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=VRAI # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=FAUX # # $Z set _____ClusterA_6=FAUX # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=VRAI # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=VRAI # # $Z set _____Squelette3=FAUX # # # # $Z set _____ImageR=$xiirv/SMIT.E1.8.1 # # # # $m4 _____include(_____xiirv/.SMIT.D1.1._____U) # # # # :Fin_listG_SMIT_E1_8_1: # # # v $xiirv/SMIT.E1.8.2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_E1_8_2: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=VRAI # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=FAUX # # $Z set _____ClusterA_6=FAUX # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=VRAI # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=VRAI # # $Z set _____Squelette3=FAUX # # # # $Z set _____ImageR=$xiirv/SMIT.E1.8.2 # # # # $m4 _____include(_____xiirv/.SMIT.D1.1._____U) # # # # :Fin_listG_SMIT_E1_8_2: # # # v $xiirv/SMIT.E1.8.3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_E1_8_3: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=VRAI # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=FAUX # # $Z set _____ClusterA_6=FAUX # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=VRAI # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=VRAI # # $Z set _____Squelette3=FAUX # # # # $Z set _____ImageR=$xiirv/SMIT.E1.8.3 # # # # $m4 _____include(_____xiirv/.SMIT.D1.1._____U) # # # # :Fin_listG_SMIT_E1_8_3: # # # v $xiirv/SMIT.E1.8.4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_E1_8_4: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=VRAI # # $Z set _____ClusterA_5=FAUX # # $Z set _____ClusterA_6=FAUX # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=VRAI # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=VRAI # # $Z set _____Squelette3=FAUX # # # # $Z set _____ImageR=$xiirv/SMIT.E1.8.4 # # # # $m4 _____include(_____xiirv/.SMIT.D1.1._____U) # # # # :Fin_listG_SMIT_E1_8_4: # # # v $xiirv/SMIT.E1.8.5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_E1_8_5: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=VRAI # # $Z set _____ClusterA_6=FAUX # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=VRAI # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=VRAI # # $Z set _____Squelette3=FAUX # # # # $Z set _____ImageR=$xiirv/SMIT.E1.8.5 # # # # $m4 _____include(_____xiirv/.SMIT.D1.1._____U) # # # # :Fin_listG_SMIT_E1_8_5: # # # v $xiirv/SMIT.E1.8.6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_E1_8_6: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=FAUX # # $Z set _____ClusterA_6=VRAI # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=VRAI # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=VRAI # # $Z set _____Squelette3=FAUX # # # # $Z set _____ImageR=$xiirv/SMIT.E1.8.6 # # # # $m4 _____include(_____xiirv/.SMIT.D1.1._____U) # # # # :Fin_listG_SMIT_E1_8_6: # # # v $xiirv/SMIT.E1.8.7 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_E1_8_7: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=FAUX # # $Z set _____ClusterA_6=FAUX # # $Z set _____ClusterA_7=VRAI # # $Z set _____ClusterA_8=FAUX # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=VRAI # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=VRAI # # $Z set _____Squelette3=FAUX # # # # $Z set _____ImageR=$xiirv/SMIT.E1.8.7 # # # # $m4 _____include(_____xiirv/.SMIT.D1.1._____U) # # # # :Fin_listG_SMIT_E1_8_7: # # # v $xiirv/SMIT.E1.8.8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_E1_8_8: # # # # $Z Sdu # # # # $Z set _____ClusterA_1=FAUX # # $Z set _____ClusterA_2=FAUX # # $Z set _____ClusterA_3=FAUX # # $Z set _____ClusterA_4=FAUX # # $Z set _____ClusterA_5=FAUX # # $Z set _____ClusterA_6=FAUX # # $Z set _____ClusterA_7=FAUX # # $Z set _____ClusterA_8=VRAI # # # # $Z set _____ClusterB_1=VRAI # # $Z set _____ClusterB_2=VRAI # # $Z set _____ClusterB_3=VRAI # # $Z set _____ClusterB_4=VRAI # # $Z set _____ClusterB_5=VRAI # # $Z set _____ClusterB_6=VRAI # # $Z set _____ClusterB_7=VRAI # # $Z set _____ClusterB_8=VRAI # # # # $Z set _____Squelette2=VRAI # # $Z set _____Squelette3=FAUX # # # # $Z set _____ImageR=$xiirv/SMIT.E1.8.8 # # # # $m4 _____include(_____xiirv/.SMIT.D1.1._____U) # # # # :Fin_listG_SMIT_E1_8_8: # # # v $xiirv/SMIT.F1.7$M # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_F1_7_M: # # # # $Z Sdu # # # # $Z set _____MPalette=$xiP/random.A5 # # # # $Z set _____ClusterA_6=FAUX # # # # $Z set _____ImageR=$xiirv/SMIT.F1.7 # # # # $m4 _____include(_____xiirv/.SMIT.F1.7._____M._____U) # # # # :Fin_listG_SMIT_F1_7_M: # # # # # # Il s'agit d'une ile basee sur le "cluster" de niveau 3 a 7 "cluster"s... # v $xiirv/SMIT.F1.8$M # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_F1_8_M: # # # # $Z Sdu # # # # $Z set _____MPalette=$xiP/random.B7$Fi # # # # $Z set _____ClusterA_6=VRAI # # # # $Z set _____ImageR=$xiirv/SMIT.F1.8 # # # # $m4 _____include(_____xiirv/.SMIT.F1.7._____M._____U) # # # # :Fin_listG_SMIT_F1_8_M: # # # # # # Il s'agit d'une ile basee sur le "cluster" de niveau 3 a 8 "cluster"s... # v $xiirv/SMIT.G4 v $xiirv/SMIT.G4$m # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_G4_m: # # # # $Z Sdu # # # # $Z set _____NombreSpectres=236 # # # # $Z set _____Rayon=0.004 # # $Z set _____TranslationX=+0.00 # # $Z set _____TranslationY=+0.00 # # $Z set _____Zoom=1.6 # # # # $Z set _____FPalette=$xiP/blanc # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" N_au_carre=FAUX" # # # # $Z set _____ImageR=$xiirv/SMIT.G4 # # # # $m4 _____include(_____xiirv/.SMIT.G1.1._____U) # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z R=$xTG/PAIX.1.21 \ # # $Z $formatI # # # # $Z set _____Iterations=2 # # $Z set _____Palette=$xiP/dentscie.A1 # # $Z set _____Sy=20 # # $m4 _____include(_____xiirv/.PAIX.11.2._____U) # # # # :Fin_listG_SMIT_G4_m: # # # # # # Il s'agit d'un pavage aperodique utilisant "The Spectre" dispose sur une surface # # tridimensionnelle fractale... # v $xiirv/SMIT.H4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_H4: # # # # $Z Squ # # # # On utilise 'Squ' et non pas 'Sdu' afin d'avoir une bonne qualite malgre le flou # # introduit par les deux convolutions a venir, sachant qu'on utilisera "//2" lors de la # # creation dans 'v ''$xiMi/SMIT.H4$D/creation$Z'... On notera la tentative d'utilisation # # de 'v $xci/nettete.01$K' en toute fin du processus, mais cela, malgre l'amelioration # # de la qualite, introduisait des anomalies visibles sur les quatre bords de l'image... # # # # $Z set _____NombreSpectres=236 # # # # $Z set _____Rayon=0.004 # # $Z set _____TranslationX=+0.00 # # $Z set _____TranslationY=+0.00 # # $Z set _____Zoom=1.61 # # # # Ce rapport de zoom (1.61) est choisi de facon a faire disparaitre un "point" bizarre qui # # etait sur le bord droit au tiers inferieur et qui etait en fait un tout petit bout de la # # structure exterieure a l'image... # # # # $Z set _____FPalette=$xiP/blanc # # # # $Z set _____ParticulePara="$K_VIDE" # # $Z set _____ParticulePara="$_____ParticulePara"" N_au_carre=FAUX" # # # # $Z set _____ImageR=$xTV/SMIT.G4 # # # # $m4 _____include(_____xiirv/.SMIT.G1.1._____U) # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____Palette=$xiP/random.F5 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/contours.22$X \ # # $Z optimiser=VRAI \ # # $Z niveau_aleatoire=VRAI \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$_____Palette \ # # $Z R=$xTV/SMIT.H4.13 \ # # $Z $formatI # # # # $Z set _____ImageR=$xiirv/SMIT.H4 # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$_____ImageA%s \ # # $Z points=49 \ # # $Z R=$xTV/SMIT.H4.31%s \ # # $Z $formatI # # # # $Z execRVB "$xci/convol.01$X \ # # $Z A=$xTV/SMIT.H4.13%s \ # # $Z points=49 \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xTV/SMIT.H4.31%s \ # # $Z anti_aliasing=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_SMIT_H4: # # # # # # Il s'agit d'un pavage aperodique utilisant "The Spectre" dispose sur une surface # # tridimensionnelle fractale... # v $xiirv/SMIT.I1.8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_I1_8: # # # # $Z Sdu # # # # $Z set _____NombreSpectres=8 # # $Z set _____TranslationX=+0.030 # # $Z set _____TranslationY=+0.270 # # $Z set _____ImageA=$xiirv/SMIT.A1.$_____NombreSpectres # # $Z set _____ImageR=$xiirv/SMIT.I1.$_____NombreSpectres # # # # $Z set _____NombreSpectres=5 # # $Z set _____Selecteur=(1 4) # # $m4 _____include(_____xiirv/.SMIT.I1.1._____U) # # # # :Fin_listG_SMIT_I1_8: # # # # # # Il s'agit du "cluster" de niveau 1 a 8 "Spectre"s avec visualisation du "Mystic"... # v $xiirv/SMIT.I1.9 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_I1_9: # # # # $Z Sdu # # # # $Z set _____NombreSpectres=9 # # $Z set _____TranslationX=+0.135 # # $Z set _____TranslationY=+0.270 # # $Z set _____ImageA=$xiirv/SMIT.A1.$_____NombreSpectres # # $Z set _____ImageR=$xiirv/SMIT.I1.$_____NombreSpectres # # # # $Z set _____NombreSpectres=5 # # $Z set _____Selecteur=(1 4) # # $m4 _____include(_____xiirv/.SMIT.I1.1._____U) # # # # :Fin_listG_SMIT_I1_9: # # # # # # Il s'agit du "cluster" de niveau 1 a 9 "Spectre"s avec visualisation du "Mystic"... # v $xiirv/SMIT.J1.8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_J1_8: # # # # $Z Sdu # # # # $Z set _____NombreSpectres=8 # # $Z set _____TranslationX=+0.030 # # $Z set _____TranslationY=+0.270 # # $Z set _____Palette=$xiP/SMIT.J1.8 # # $Z set _____NiveauAleatoire=FAUX # # $Z set _____NiveauInitial=$NOIR_PLANCHER # # $Z set _____IncrementNiveau=1 # # $Z set _____OptmiserIncrement=FAUX # # $Z set _____Niveau_S0=$GRIS_1 # # $Z set _____Niveau_S1=$GRIS_3 # # $Z set _____ImageR=$xiirv/SMIT.J1.$_____NombreSpectres # # # # $m4 _____include(_____xiirv/.SMIT.A1.1._____U) # # # # :Fin_listG_SMIT_J1_8: # # # # # # Il s'agit du "cluster" de niveau 1 a 8 "Spectre"s... # v $xiirv/SMIT.J1.9 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_J1_9: # # # # $Z Sdu # # # # $Z set _____NombreSpectres=9 # # $Z set _____TranslationX=+0.135 # # $Z set _____TranslationY=+0.270 # # $Z set _____Palette=$xiP/SMIT.J1.9 # # $Z set _____NiveauAleatoire=FAUX # # $Z set _____NiveauInitial=$NOIR_PLANCHER # # $Z set _____IncrementNiveau=1 # # $Z set _____OptmiserIncrement=FAUX # # $Z set _____Niveau_S0=$GRIS_1 # # $Z set _____Niveau_S1=$GRIS_3 # # $Z set _____ImageR=$xiirv/SMIT.J1.$_____NombreSpectres # # # # $m4 _____include(_____xiirv/.SMIT.A1.1._____U) # # # # :Fin_listG_SMIT_J1_9: # # # # # # Il s'agit du "cluster" de niveau 1 a 9 "Spectre"s... # v $xiirv/SMIT.K1.8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_K1_8: # # # # $Z Sdu # # # # $Z set _____NombreSpectres=8 # # $Z set _____TranslationX=+0.030 # # $Z set _____TranslationY=+0.270 # # $Z set _____ImageA=$xiirv/SMIT.J1.$_____NombreSpectres # # $Z set _____ImageR=$xiirv/SMIT.K1.$_____NombreSpectres # # # # $Z set _____NombreSpectres=5 # # $Z set _____Selecteur=(1 4) # # $m4 _____include(_____xiirv/.SMIT.I1.1._____U) # # # # :Fin_listG_SMIT_K1_8: # # # # # # Il s'agit du "cluster" de niveau 1 a 8 "Spectre"s avec visualisation du "Mystic"... # v $xiirv/SMIT.K1.9 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_SMIT_K1_9: # # # # $Z Sdu # # # # $Z set _____NombreSpectres=9 # # $Z set _____TranslationX=+0.135 # # $Z set _____TranslationY=+0.270 # # $Z set _____ImageA=$xiirv/SMIT.J1.$_____NombreSpectres # # $Z set _____ImageR=$xiirv/SMIT.K1.$_____NombreSpectres # # # # $Z set _____NombreSpectres=5 # # $Z set _____Selecteur=(1 4) # # $m4 _____include(_____xiirv/.SMIT.I1.1._____U) # # # # :Fin_listG_SMIT_K1_9: # # # # # # Il s'agit du "cluster" de niveau 1 a 9 "Spectre"s avec visualisation du "Mystic"... # v $xiirv/SOLE.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SOLE_11: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____ImagesR=$xiirv/SOLE.11 # # $m4 _____include(_____xiirv/.SOLE.11.1._____U) # # # # :Fin_listG_SOLE_11: # # # # # # Il s'agit d'une visualisation d'un Soleil pueril... # v $xiirv/SOUL.11$m p=$xiP/gris.08 v $xiirv/SOUL.11$m p=$xiP/gris.C6 v $xiirv/SOUL.11$m p=$xiP/gris.L6 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_SOUL_11: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/SOUL.11$m # # # # $Z $xci/random.01$X \ # # $Z R=$xTV/RANDOM \ # # $Z $formatI # # # # $Z set AnGlE=0.1 # # $Z set SeUiL=253 # # # # $Z $xci/gauss$X \ # # $Z cx2=0.04 cy2=100 \ # # $Z ROTATION_OZ=$AnGlE \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/RANDOM \ # # $Z N=$xTV/GAUSS \ # # $Z seuil=$SeUiL \ # # $Z ani=FAUX \ # # $Z R=$xTV/CHAMP \ # # $Z $formatI # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/CHAMP \ # # $Z $formatI \ # # $Z mode=7 \ # # $Z R=$xTV/CHAMP \ # # $Z $formatR_Sdu # # # # $Z Sdu # # # # $Z $xci/acces$X \ # # $Z A=$xTV/CHAMP \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z normaliser_avant_apres=VRAI \ # # $Z passes=10 \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z exponentiation_image=VRAI exposant=8 \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$BLANC \ # # $Z avion=VRAI \ # # $Z ombres=FAUX \ # # $Z Sy=2 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_SOUL_11: # # # # # # Il s'agit d'un hommage a Pierre Soulages... # v $xiirv/SPFI.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SPFI_11: # # # # $Z Pal # # # # $Z set _____ImageR=$xiirv/SPFI.11 # # $m4 _____include(_____xiirv/.SPFI.11.1._____U) # # # # :Fin_listG_SPFI_11: # # # v $xiirv/SPFI.11.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SPFI_11_1: # # # # $Z Pal # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/SPFI.11%s \ # # $Z cache=VRAI \ # # $Z iterations=6 \ # # $Z anti_aliaser=VRAI \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xiirv/SPFI.11.1%s \ # # $Z $formatI" # # # # :Fin_listG_SPFI_11_1: # # # v $xiirv/SPFI.12 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SPFI_12: # # # # $Z Pal # # # # $Z set _____Rayon=0.005 # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" isoles=FAUX chainer=VRAI" # # $Z set _____Arguments="$_____Arguments"" Pajuster=VRAI" # # $Z set _____Arguments="$_____Arguments"" equidistance=VRAI Rpoints=1" # # $Z set _____Arguments="$_____Arguments"" grossissement=3" # # $Z set _____ImageR=$xiirv/SPFI.12 # # $m4 _____include(_____xiirv/.SPFI.11.1._____U) # # # # :Fin_listG_SPFI_12: # # # v $xiirv/SPFI.13 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SPFI_13: # # # # $Z Pal # # # # $Z set _____NPointsV=10 # # $Z set _____Rayon=0.002 # # $Z set _____Zoom=2.7 # # $Z set _____Arguments="$K_VIDE" # # $Z set _____Arguments="$_____Arguments"" isoles=FAUX chainer=VRAI" # # $Z set _____Arguments="$_____Arguments"" Pajuster=VRAI" # # $Z set _____Arguments="$_____Arguments"" equidistance=VRAI Rpoints=1" # # $Z set _____Arguments="$_____Arguments"" grossissement=2" # # $Z set _____ImageR=$xiirv/SPFI.13 # # $m4 _____include(_____xiirv/.SPFI.11.1._____U) # # # # :Fin_listG_SPFI_13: # # # v $xiirv/STBR.11.3 p=$xiP/cercle.53 v $xiirv/STBR.11.3 p=$xiP/trou_noir.G4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_STBR_11_3: # # # # $Z set _____Profondeur=3 # # $Z set _____Format="$formatR_Sud" # # $Z set _____ImageR=$xiirv/STBR.11.$_____Profondeur # # $m4 _____include(_____xiirv/.STBR.11.1._____U) # # # # :Fin_listG_STBR_11_3: # # # # # # Visualisation de l'arbre de Stern-Brocot avec 7 Nombres rationnels, les plus grands # # numerateur et denominateur etant respectivement 3 et 3. # v $xiirv/STBR.11.4 p=$xiP/cercle.53 v $xiirv/STBR.11.4 p=$xiP/trou_noir.G4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_STBR_11_4: # # # # $Z set _____Profondeur=4 # # $Z set _____Format="$formatR_Sud" # # $Z set _____ImageR=$xiirv/STBR.11.$_____Profondeur # # $m4 _____include(_____xiirv/.STBR.11.1._____U) # # # # :Fin_listG_STBR_11_4: # # # # # # Visualisation de l'arbre de Stern-Brocot avec 15 Nombres rationnels, les plus grands # # numerateur et denominateur etant respectivement 5 et 5. # v $xiirv/STBR.11.5 p=$xiP/cercle.53 v $xiirv/STBR.11.5 p=$xiP/trou_noir.G4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_STBR_11_5: # # # # $Z set _____Profondeur=5 # # $Z set _____Format="$formatR_Sud" # # $Z set _____ImageR=$xiirv/STBR.11.$_____Profondeur # # $m4 _____include(_____xiirv/.STBR.11.1._____U) # # # # :Fin_listG_STBR_11_5: # # # # # # Visualisation de l'arbre de Stern-Brocot avec 31 Nombres rationnels, les plus grands # # numerateur et denominateur etant respectivement 8 et 8. # v $xiirv/STBR.11.6 p=$xiP/cercle.53 v $xiirv/STBR.11.6 p=$xiP/trou_noir.G4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_STBR_11_6: # # # # $Z set _____Profondeur=6 # # $Z set _____Format="$formatR_Sud" # # $Z set _____ImageR=$xiirv/STBR.11.$_____Profondeur # # $m4 _____include(_____xiirv/.STBR.11.1._____U) # # # # :Fin_listG_STBR_11_6: # # # # # # Visualisation de l'arbre de Stern-Brocot avec 63 Nombres rationnels, les plus grands # # numerateur et denominateur etant respectivement 13 et 13. # v $xiirv/STBR.11.7 p=$xiP/cercle.53 v $xiirv/STBR.11.7 p=$xiP/trou_noir.G4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_STBR_11_7: # # # # $Z set _____Profondeur=7 # # $Z set _____Format="$formatR_Std" # # $Z set _____ImageR=$xiirv/STBR.11.$_____Profondeur # # $m4 _____include(_____xiirv/.STBR.11.1._____U) # # # # :Fin_listG_STBR_11_7: # # # # # # Visualisation de l'arbre de Stern-Brocot avec 127 Nombres rationnels, les plus grands # # numerateur et denominateur etant respectivement 21 et 21. # v $xiirv/STBR.11.8 p=$xiP/cercle.53 v $xiirv/STBR.11.8 p=$xiP/trou_noir.G4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_STBR_11_8: # # # # $Z set _____Profondeur=8 # # $Z set _____Format="$formatR_Std" # # $Z set _____ImageR=$xiirv/STBR.11.$_____Profondeur # # $m4 _____include(_____xiirv/.STBR.11.1._____U) # # # # :Fin_listG_STBR_11_8: # # # # # # Visualisation de l'arbre de Stern-Brocot avec 255 Nombres rationnels, les plus grands # # numerateur et denominateur etant respectivement 34 et 34. # v $xiirv/STBR.11.15 p=$xiP/cercle.53 v $xiirv/STBR.11.15 p=$xiP/trou_noir.G4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_STBR_11_15: # # # # $Z set _____Profondeur=15 # # $Z set _____Format="$formatR_Sdu" # # $Z set _____ImageR=$xiirv/STBR.11.$_____Profondeur # # $m4 _____include(_____xiirv/.STBR.11.1._____U) # # # # :Fin_listG_STBR_11_15: # # # # # # Visualisation de l'arbre de Stern-Brocot avec 32767 Nombres rationnels, les plus grands # # numerateur et denominateur etant respectivement 987 et 987. # v $xiirv/STBR.21.3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_STBR_21_3: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=3 # # # # $Z set MaIlLe=1 # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=$MaIlLe # # $Z set _____MailleY=$MaIlLe # # $Z set _____MailleZ=1 # # $Z set _____MaillageTri=FAUX # # $Z set _____Palette=$xiP/GRIS_4 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____AlphaX=1 # # $Z set _____BetaX=0 # # $Z set _____AlphaY=1 # # $Z set _____BetaY=0 # # $Z set _____AlphaZ=1 # # $Z set _____BetaZ=0 # # $Z set _____VRayon=0.006 # # $Z set _____Zoom=1.10 # # $Z set _____ImageR=$xTV/STBR.21.$_____Profondeur # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # $Z set _____CoordonneeZ=$_____Z2D # # $Z set _____ImageR=$xiirv/STBR.21.$_____Profondeur # # $m4 _____include(_____xiirv/.STBR.21.1._____U) # # # # :Fin_listG_STBR_21_3: # # # # # # Visualisation de l'arbre de Stern-Brocot avec 7 Nombres rationnels, les plus grands # # numerateur et denominateur etant respectivement 3 et 3. # v $xiirv/STBR.21.4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_STBR_21_4: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=4 # # # # $Z set MaIlLe=3 # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=$MaIlLe # # $Z set _____MailleY=$MaIlLe # # $Z set _____MailleZ=1 # # $Z set _____MaillageTri=FAUX # # $Z set _____Palette=$xiP/GRIS_4 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____AlphaX=1 # # $Z set _____BetaX=0 # # $Z set _____AlphaY=1 # # $Z set _____BetaY=0 # # $Z set _____AlphaZ=1 # # $Z set _____BetaZ=0 # # $Z set _____VRayon=0.006 # # $Z set _____Zoom=1.10 # # $Z set _____ImageR=$xTV/STBR.21.$_____Profondeur # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # $Z set _____CoordonneeZ=$_____Z2D # # $Z set _____ImageR=$xiirv/STBR.21.$_____Profondeur # # $m4 _____include(_____xiirv/.STBR.21.1._____U) # # # # :Fin_listG_STBR_21_4: # # # # # # Visualisation de l'arbre de Stern-Brocot avec 15 Nombres rationnels, les plus grands # # numerateur et denominateur etant respectivement 5 et 5. # v $xiirv/STBR.21.5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_STBR_21_5: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # # # $Z set MaIlLe=6 # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=$MaIlLe # # $Z set _____MailleY=$MaIlLe # # $Z set _____MailleZ=1 # # $Z set _____MaillageTri=FAUX # # $Z set _____Palette=$xiP/GRIS_4 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____AlphaX=1 # # $Z set _____BetaX=0 # # $Z set _____AlphaY=1 # # $Z set _____BetaY=0 # # $Z set _____AlphaZ=1 # # $Z set _____BetaZ=0 # # $Z set _____VRayon=0.006 # # $Z set _____Zoom=1.10 # # $Z set _____ImageR=$xTV/STBR.21.$_____Profondeur # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # $Z set _____CoordonneeZ=$_____Z2D # # $Z set _____ImageR=$xiirv/STBR.21.$_____Profondeur # # $m4 _____include(_____xiirv/.STBR.21.1._____U) # # # # :Fin_listG_STBR_21_5: # # # # # # Visualisation de l'arbre de Stern-Brocot avec 31 Nombres rationnels, les plus grands # # numerateur et denominateur etant respectivement 8 et 8. # v $xiirv/STBR.21.6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_STBR_21_6: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=6 # # # # $Z set MaIlLe=11 # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=$MaIlLe # # $Z set _____MailleY=$MaIlLe # # $Z set _____MailleZ=1 # # $Z set _____MaillageTri=FAUX # # $Z set _____Palette=$xiP/GRIS_4 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____AlphaX=1 # # $Z set _____BetaX=0 # # $Z set _____AlphaY=1 # # $Z set _____BetaY=0 # # $Z set _____AlphaZ=1 # # $Z set _____BetaZ=0 # # $Z set _____VRayon=0.006 # # $Z set _____Zoom=1.10 # # $Z set _____ImageR=$xTV/STBR.21.$_____Profondeur # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # $Z set _____CoordonneeZ=$_____Z2D # # $Z set _____Rayon=0.010 # # $Z set _____ImageR=$xiirv/STBR.21.$_____Profondeur # # $m4 _____include(_____xiirv/.STBR.21.1._____U) # # # # :Fin_listG_STBR_21_6: # # # # # # Visualisation de l'arbre de Stern-Brocot avec 63 Nombres rationnels, les plus grands # # numerateur et denominateur etant respectivement 13 et 13. # v $xiirv/STBR.21.7 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_STBR_21_7: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=7 # # # # $Z set MaIlLe=19 # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=$MaIlLe # # $Z set _____MailleY=$MaIlLe # # $Z set _____MailleZ=1 # # $Z set _____MaillageTri=FAUX # # $Z set _____Palette=$xiP/GRIS_4 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____AlphaX=1 # # $Z set _____BetaX=0 # # $Z set _____AlphaY=1 # # $Z set _____BetaY=0 # # $Z set _____AlphaZ=1 # # $Z set _____BetaZ=0 # # $Z set _____VRayon=0.004 # # $Z set _____Zoom=1.10 # # $Z set _____ImageR=$xTV/STBR.21.$_____Profondeur # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # $Z set _____CoordonneeZ=$_____Z2D # # $Z set _____Rayon=0.006 # # $Z set _____DistanceMinimale=0.005 # # $Z set _____ImageR=$xiirv/STBR.21.$_____Profondeur # # $m4 _____include(_____xiirv/.STBR.21.1._____U) # # # # :Fin_listG_STBR_21_7: # # # # # # Visualisation de l'arbre de Stern-Brocot avec 127 Nombres rationnels, les plus grands # # numerateur et denominateur etant respectivement 21 et 21. # v $xiirv/STBR.21.8 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_STBR_21_8: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=8 # # # # $Z set MaIlLe=32 # # # # $Z SET _____Dimension=2 # # $Z set _____MailleX=$MaIlLe # # $Z set _____MailleY=$MaIlLe # # $Z set _____MailleZ=1 # # $Z set _____MaillageTri=FAUX # # $Z set _____Palette=$xiP/GRIS_4 # # $m4 _____include(_____xiirv/.MAIL.11.0._____U) # # $m4 _____include(_____xiirv/.MAIL.11.2._____U) # # # # $Z set _____AlphaX=1 # # $Z set _____BetaX=0 # # $Z set _____AlphaY=1 # # $Z set _____BetaY=0 # # $Z set _____AlphaZ=1 # # $Z set _____BetaZ=0 # # $Z set _____VRayon=0.004 # # $Z set _____Zoom=1.10 # # $Z set _____ImageR=$xTV/STBR.21.$_____Profondeur # # $m4 _____include(_____xiirv/.MAIL.11.1._____U) # # # # $Z set _____CoordonneeZ=$_____Z2D # # $Z set _____Rayon=0.005 # # $Z set _____DistanceMinimale=0.005 # # $Z set _____ImageR=$xiirv/STBR.21.$_____Profondeur # # $m4 _____include(_____xiirv/.STBR.21.1._____U) # # # # :Fin_listG_STBR_21_8: # # # # # # Visualisation de l'arbre de Stern-Brocot avec 255 Nombres rationnels, les plus grands # # numerateur et denominateur etant respectivement 34 et 34. # v $xiirv/STEREO_MONO.11 # Image generee par : # # # # Std # # $xci/substitue$X A=$xiio/MIRE \ # # p=$xiP/dentscie.01 \ # # substitution=L_SUBSTITUTION_ROUGE \ # # R=$xT/DOUBLE_MIRE \ # # $formatI # # $xci/seuil$X A=$xT/DOUBLE_MIRE \ # # seuil=160 \ # # $formatI | # # $xci/multi_02.01$X A1=$xT/DOUBLE_MIRE \ # # R=$xT/DOUBLE_MIRE \ # # $formatI # # $xci/init$X niveau=160 \ # # $formatI | # # $xci/cache$X M=$xT/DOUBLE_MIRE \ # # $formatI | # # $xci/acces$X renormaliser=VRAI \ # # R=$xT/DOUBLE_MIRE \ # # $formatI # # # # $xci/distord.01$X A=$xiio/BAND_RDN.11.51 \ # # X=$xT/DOUBLE_MIRE trX=127 fX=0.02 \ # # Y=$xiio/NOIR trY=127 fY=0.0 \ # # R=$xiirv/STEREO_MONO.11 \ # # $formatI # # # v $xiirv/STEREO_MONO.12 # Image generee par : # # # # Std # # $xci/seuil$X A=$xiio/MIRE \ # # seuil=127 \ # # $formatI | # # $xci/multi_02.01$X A1=$xT/DOUBLE_MIRE \ # # R=$xT/MIRE \ # # $formatI # # # # $xci/distord.01$X A=$xiio/BAND_RDN.11.51 \ # # X=$xT/MIRE trX=127 fX=0.02 \ # # Y=$xiio/NOIR trY=127 fY=0.0 \ # # R=$xiirv/STEREO_MONO.12 \ # # $formatI # # # v $xiirv/STEREO_MONO.21 # Image generee par : # # # # Std # # $xci/substitue$X A=$xiio/GAUSS.8110 \ # # p=$xiP/dentscie.01 \ # # substitution=L_SUBSTITUTION_ROUGE \ # # R=$xT/ANNEAU \ # # $formatI # # $xci/seuil$X A=$xT/ANNEAU \ # # seuil=160 \ # # $formatI | # # $xci/multi_02.01$X A1=$xT/ANNEAU \ # # R=$xT/ANNEAU \ # # $formatI # # $xci/init$X niveau=160 \ # # $formatI | # # $xci/cache$X M=$xT/ANNEAU \ # # $formatI | # # $xci/acces$X renormaliser=VRAI \ # # R=$xT/ANNEAU \ # # $formatI # # # # $xci/distord.01$X A=$xiio/BAND_RDN.11.51 \ # # X=$xT/ANNEAU trX=127 fX=0.02 \ # # Y=$xiio/NOIR trY=127 fY=0.0 \ # # R=$xiirv/STEREO_MONO.21 \ # # $formatI # # # # On notera que la methode '$xci/distord.01$X', plus simple que '$xci/stereogra.01$X', pose # # un probleme ; en effet des objets au relief inverse apparaissent en plus de ceux que l'on # # a place. On note les resultats suivants : # # # # # # Coupe du champ Coupe de l'apparence # # de distorsion en 'X' visuelle des objets # # # # # # /\ /\ # # / \ / \ # # / \ / \ # # / \ / \ # # __________/ \__________ __________ / \__________ # # \ / # # \ / # # \ / # # \ / # # \/ # # # # (voir '$xiirv/STEREO_MONO.11') # # # # # # |\ |\ # # | \ | \ # # | \ | \ # # | \ | \ # # __________| \__________ __________ | \__________ # # | / # # | / # # | / # # | / # # |/ # # # # (voir '$xiirv/STEREO_MONO.12') # # # # # # /| /| # # / | / | # # / | / | # # / | / | # # __________/ |__________ __________ / |__________ # # \ | # # \ | # # \ | # # \ | # # \| # # # # # # en supposant fX>0 ; lorsque fX<0, il suffit d'inverser les extrema (et donc le relief) # # de ce qui est percu... # v $xiirv/STEREO_MONO.22 p=$xiP/gris.01 # Image generee par : # # # # Std # # $xci/distord.01$X A=$xiio/SINUS.30P \ # # X=$xiio/ANNEAU trX=0 fX=0.02 \ # # Y=$xiio/NOIR trY=0 fY=0.0 \ # # R=$xiirv/STEREO_MONO.22 \ # # $formatI # # # # Cette image montre le principe de cette operation... # v $xiirv/STEREO_BI.11 p=$xiP/fractal.91 d=2 NOIR=VRAI animation=VRAI # Image generee par : # # # # Std # # $xci/stereogra.01$X T=$xiia/CONFORME.31$Fi \ # # C=$xiio/ANNEAU \ # # R=$xiirv/STEREO_BI.11 \ # # $formatI # # # v $xiirv/STEREO_BI.21 v $xiirv/STEREO_BI.21$m # Image generee par : # # # # Std # # $xci/stereogra.01$X T=$xiio/BAND_RDN.11.51 \ # # C=$xiio/ANNEAU \ # # R=$xiirv/STEREO_BI.21 \ # # $formatI # # # # et sa mise en montagnes "standard"... # v $xiirv/STEREO_BI.22 p=$xiP/gris.01 # Image generee par : # # # # Std # # $xci/stereogra.01$X T=$xiio/SINUS.30P \ # # C=$xiio/ANNEAU \ # # R=$xiirv/STEREO_BI.22 \ # # $formatI # # # # Cette image montre le principe de cette operation... # v $xiirv/STEREO_BI.23 # Image generee par : # # # # Std # # $xci/seuil$X A=$xiio/ANNEAU \ # # seuil=128 \ # # $formatI | # # $xci/stereogra.01$X T=$xiio/BAND_RDN.11.81 \ # # pf=1.0 pi=0.125 \ # # R=$xiirv/STEREO_BI.23 \ # # $formatI # # # # Ce stereogramme est extrememnt interessant car il fait d'abord apparaitre un anneau # # simple, qui s'il est parcouru du regard (a partir de son milieu de droite et vers le # # bas) se remplit de quatre arcs fantomes dont la concavite est tournee vers la droite ; ces # # derniers s'evanouissent completement si l'on regarde le fond de l'image. Ce phenomene # # est controle par l'indicateur 'permutations=' : il apparait pour 'VRAI' (l'etat implicite # # de '$xci/stereogra.01$X') et disparait pour 'FAUX'. De meme, avec des valeurs faibles # # du parametre : # # # # facteur=... # # # # (par exemple, inferieures ou egales a 0.01, alors que la valeur par defaut est egale # # a 0.025) le phenomene disparait aussi... # v $xiirv/STEREO_BI.24 p=$xiP/fractal.11 v $xiirv/STEREO_BI.24$COORD_Z p=$xiP/gris.01 # Generee (sur '$LACT15') par : # # # # :Debut_listG_STEREO_BI_24: # # # # $Z Std # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z $xci/seuil$X A=$xiio/ANNEAU \ # # $Z seuil=128 \ # # $Z R=$xTV/ANNEAU \ # # $Z $formatI # # $Z $xci/stereogra.01$X C=$xTV/ANNEAU \ # # $Z T=$xiio/BAND_RDN.11.81 \ # # $Z pf=1.0 pi=0.125 \ # # $Z R=$xiirv/STEREO_BI.24 \ # # $Z $formatI # # # # $Z $xci/convol.01$X A=$xTV/ANNEAU \ # # $Z points=49 circulaire=VRAI \ # # $Z R=$xiirv/STEREO_BI.24$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STEREO_BI_24: # # # # Cette image a ete generee de facon similaire a 'v $xiirv/STEREO_BI.23 p=$xiP/fractal.11', # # de facon a visualiser l'anneau 'v $xiirv/STEREO_BI.24$COORD_Z $xiP/gris.01'. Mais, # # malheureusement les deux images 'v $xiirv/STEREO_BI.23 p=$xiP/fractal.11' et # # 'v $xiirv/STEREO_BI.24 p=$xiP/fractal.11' sont legerement differentes (cela vient du fait # # que la MACHINE sur laquelle avait ete generee la premiere etait tres differente de # # '$LACT15', d'ou cette nouvelle image... # v $xiirv/STEREO_BI.31 # Image generee par : # # # # Std # # $xci/carrelage.01$Z $xiff/PAYSAGE.40120 \ # # $xT/TRAME \ # # 5 1 # # $xci/stereogra.01$X T=$xT/TRAME \ # # C=$xiio/ANNEAU \ # # R=$xiirv/STEREO_BI.31 \ # # $formatI # # # v $xiirv/STEREO_BI.41 # Pour avoir plus d'informations sur ces images, voir les commentaires de la sequence video : # # # # xivPdf 7 1 / 002083_002210 # # # # cette image en etant la numero '0100' (ensemble de Julia dans les quaternions). Voir aussi # # l'image '$xiirc/JU.52.0006'... # v $xiirv/STEREO_BI.42 # Image generee par multiplexage de plusieurs stereogrammes suivant : # # # # alias stereo 'set ImAgEA=\!:1 ; set SuP=\!:2 ; set ImAgER=\!:3 ; \\ # # $xci/stereogra.01$X T=$xiio/BAND_RDN.11.51 \\ # # C=$xifc/JULI.Q.1.$ImAgEA \\ # # $formatI | \\ # # $xci/seuil$X seuil=$GRIS sup=$SuP R=$xT/JULI.$ImAgER \\ # # $formatI ; \\ # # unset ImAgEA SuP ImAgER' # # # # Std # # # # stereo 0093 1 0001 # # stereo 0094 2 0002 # # stereo 0095 4 0003 # # stereo 0096 8 0004 # # stereo 0097 16 0005 # # stereo 0098 32 0006 # # stereo 0099 64 0007 # # stereo 0100 128 0008 # # # # les huit images '$xT/JULI.' etant ensuite combinees avec '$xci/or_02$X' et '$xci/or_03$X'. # # # # Les huit stereogrammes peuvent etres demultiplexes a l'aide des huit palettes '$xiP/planX'. # v $xiirv/STEREO_BI.51 # Pour avoir plus d'informations sur ces images, voir les commentaires de la sequence video : # # # # xivPdf 7 1 / 002502_002629 # # # # cette image en etant la numero '0100' (ensemble de Julia dans les quaternions). Voir aussi # # l'image '$xiirc/JU.52.0006'... # v $xiirv/STEREO_BI.52 # Pour avoir plus d'informations sur ces images, voir les commentaires de la sequence video : # # # # xivPdf 7 1 / 002502_002629 # # # # cette image en etant l'accumulation par '$xci/accumule.01$X'... # v $xiirv/STEREO_BI.61 # Pour avoir plus d'informations sur ces images, voir les commentaires de la sequence video : # # # # xivPdf 7 1 / 002630_002757 # # # # cette image en etant la numero '0100' (ensemble de Julia dans les quaternions). Voir aussi # # l'image '$xiirc/JU.52.0006'... # v $xiirv/STEREO_BI.62 # Pour avoir plus d'informations sur ces images, voir les commentaires de la sequence video : # # # # xivPdf 7 1 / 002630_002757 # # # # cette image en etant l'accumulation par '$xci/accumule.01$X'. On notera une legere # # dominante bleutee due au fait qu'il s'agit de trois accumulations (puisqu'on travaille # # ici en vraies couleurs), et que les trois renormalisations ont eu lieu independamment # # les unes des autres... # v $xiirv/STEREO_BI.71 # Image generee par : # # # # Std # # $xci/stereogra.01$X T=$xiio/BAND_RDN.11.51 \ # # C=$xiit/X_200.11 \ # # R=$xiirv/STEREO_BI.71 \ # # $formatI # # # v $xiirv/STEREO_BI.72 v $xiirv/STEREO_BI.72 p=$xiP/fractal.91 d=2 animation=VRAI Fcentrer=VRAI v $xiirv/STEREO_BI.72 # Image generee par : # # # # Std # # $xci/filtre.01$X A=$xiit/X_200.11 \ # # N=$xiio/GAUSS.8110 \ # # seuil=252 \ # # $formatI | # # $xci/passe_bande$X inf=35 sup=255 \ # # $formatI | # # $xci/acces$X renormaliser=VRAI \ # # R=$xiit/X_200.11$Fi \ # # $formatI # # # # $xci/stereogra.01$X T=$xiio/BAND_RDN.11.51 \ # # C=$xiit/X_200.11$Fi \ # # R=$xiirv/STEREO_BI.72 \ # # $formatI # # # v $xiirv/STEREO_BI.81 p=$xiP/fractal.91 d=2 animation=VRAI Fcentrer=VRAI # Pour avoir plus d'informations sur ces images, voir les commentaires de la sequence video : # # # # xivPdf 6 2 / 013288_013415 # # # # cette image en etant l'image numero '0031'... # v $xiirv/STEREO_BI.82 p=$xiP/fractal.91 d=2 animation=VRAI Fcentrer=VRAI # Pour avoir plus d'informations sur ces images, voir les commentaires de la sequence video : # # # # xivPdf 6 2 / 013160_013287 # # # # cette image en etant l'image numero '0031'... # v $xiirv/STER_BI.82$m # Image generee par : # # # # Std # # $xci/vraies_C$X A=$xiirv/STEREO_BI.82 \ # # p=$xiP/fractal.91 \ # # RVB=VRAI \ # # R=$xT/TRAME \ # # $formatI # # $xci/luminance.01$X AR=$xT/TRAME$ROUGE \ # # AV=$xT/TRAME$VERTE \ # # AB=$xT/TRAME$BLEUE \ # # $formatI | # # $xci/filtre.01$X \ # # N=$xiio/GAUSS.8110 \ # # s=240 \ # # R=$xT/LUMINANCE$Fi \ # # $formatI # # $xci/substitue$X A=$xT/TRAME.? \ # # substitution=L_SUBSTITUTION_02 \ # # $formatI | # # $xci/filtre.01$X \ # # N=$xiio/GAUSS.8110 \ # # s=240 \ # # $formatI # # $xci/montagne.01$X A=$xT/LUMINANCE$Fi \ # # avion=VRAI sx=2 \ # # R=$xiirv/STER_BI.82$m \ # # $formatI # # # # ATTENTION, cette image n'est pas en soi un stereogramme, mais elle tres interessante et # # c'est pourquoi je la garde... # v $xiirv/STEREO_BI.91 # Image generee par : # # # # Std # # $xci/dilate.01$X A=$xiit/CMAP.31 \ # # points=81 \ # # $formatI | # # $xci/stereogra.01$X T=$xiio/BAND_RDN.11.51 \ # # R=$xiirv/STEREO_BI.91 \ # # $formatI # # # v $xiirv/STEREO_BI.92 # Image generee par : # # # # Std # # $xci/dilate.01$X A=$xiit/CMAP.31 \ # # points=81 \ # # $formatI | # # $xci/stereogra.01$X T=$xiit/CMAP.42 \ # # pf=0.125 permutations=FAUX \ # # R=$xiirv/STEREO_BI.92 \ # # $formatI # # # # La palette '$xiP/vert_orange' avec un increment de '+60' donne de bon resultat... # v $xiirv/STER_BI.93$m # Image generee par : # # # # Std # # $xci/dilate.01$X A=$xiit/CMAP.31 \ # # points=81 \ # # $formatI | # # $xci/dilate.01$X \ # # points=81 \ # # $formatI # # $xci/vraies_C$X \ # # p=$xiP/CMAP.21 RVB=VRAI \ # # R=$xT/CMAP.11 \ # # $formatI # # $xci/substitue$X A=$xT/CMAP.11.? \ # # substitution=L_SUBSTITUTION_14 \ # # R=$xT/CMAP.12.? \ # # $formatI # # $xci/stereogra.01$X C=$xT/CMAP.32 \ # # T=$xiio/BAND_RDN.11.51 \ # # f=0.01 \ # # R=$xT/CMAP.13 \ # # $formatI # # $xci/montagne.01$X A=$xT/CMAP.13 \ # # T=$xT/CMAP.12.? avion=VRAI \ # # R=$xiirv/STEREO_BI.93$m.? \ # # $formatI # # # v $xiirv/STEREO_BI.A1 # Image generee par : # # # # Std # # $xci/stereogra.01$X T=$xiaf/PAYSAGE.4$R64 \ # # pf=1 pi=0.125 \ # # C=$xiio/ANNEAU \ # # R=$xiirv/STEREO_BI.A1 \ # # $formatI # # # # voir a ce propos la sequence : # # # # xivPdf 6 2 / 013608_013671 # # # # ou l'animation '$xiaf/PAYSAGE.4$R64' est restituee en plus du stereogramme... # v $xiirv/STEREO_BI.A1 # Image generee par : # # # # Std # # $xci/stereogra.01$X T=$xiaf/PAYSAGE.4$R64.? \ # # pf=1 pi=0.125 \ # # C=$xiio/ANNEAU \ # # R=$xiirv/STEREO_BI.A1.? \ # # $formatI # # # v $xiirv/STEREO_BI.B1 # Image generee par : # # # # Std # # $xci/stereogra.01$X T=$xiaf/PAYSAGE.4$R64.? \ # # pf=1 pi=0.125 \ # # C=$xiirc/JU.52.0006 \ # # R=$xiirv/STEREO_BI.B1.? \ # # $formatI # # # v $xiirv/STEREO_BI.C1 # Ceci est l'image 0002 de la sequence : # # # # xivPdf 6 2 / 013736_013863 # # # v $xiirv/STEREO_BI.D1 # Image generee par : # # # # Std # # $xci/stereogra.01$X T=$xiio/BAND_RDN.11.88 \ # # C=$xiio/ANNEAU \ # # facteur=0.005 \ # # pf=1 pi=0.125 \ # # $formatI | # # $xci/transpose$X \ # # $formatI | # # $xci/stereogra.01$X \ # # C=$xiio/ETOILE.11 \ # # facteur=0.005 \ # # pf=1 pi=0.125 \ # # $formatI | # # $xci/transpose$X \ # # R=$xiirv/STEREO_BI.D1 \ # # $formatI # # # # ce qui donne donc deux stereogrammes "multiplexes" a pi/2. Mais cela n'est acceptable # # visuellement que parce que le parametre "facteur=" est tres faible (au dela cela est # # insupportable...). # v $xiirv/STEREO_BI.E1 v $xiirv/STEREO_BI.E1 v $xiirv/STEREO_BI.E2 v $xiirv/STEREO_BI.E2 # Image generee par : # # # # Pal # # $xci/random.01$X \ # # graine=2 \ # # R=$xT/PALAISEAU.11 \ # # $formatI # # $xci/carrelage.01$Z $xT/PALAISEAU.11 $xT/PALAISEAU.12 8 1 # # $xci/dilate.01$X A=$xT/PALAISEAU.12 \ # # $formatI | # # $xci/convol.01$X \ # # renormaliser=VRAI points=441 \ # # $formatI | # # $xci/convol.01$X \ # # renormaliser=VRAI \ # # R=$xT/PALAISEAU.13 \ # # $formatI # # $xci/Sy$X A=$xT/PALAISEAU.13 \ # # $formatI | # # $xci/minmax$X A1=$xT/PALAISEAU.13 \ # # $formatI | # # $xci/acces$X \ # # renormaliser=VRAI \ # # $formatI | # # $xci/complement$X \ # # R=$xT/PALAISEAU.14 \ # # $formatI # # $xci/stereogra.01$X T=$xT/PALAISEAU.14 \ # # C=$xiit/PALAISEAU.22 \ # # permutations=... \ # # pf=0.125 pi=1 \ # # R=$xiirv/STEREO_BI.E? \ # # $formatI # # # # ou '$xiirv/STEREO_BI.E1' et '$xiirv/STEREO_BI.E2' correspondent a la valeur 'VRAI' et # # 'FAUX' respectivement de l'argument 'permutations=...'. # v $xiirv/STEREO_BI.F1 v $xiirv/STEREO_BI.F2 # Image generee par : # # # # Pal # # $xci/reduction_04$X A=$xiit/PALAISEAU.11$ROUGE \ # # chiffres=0 \ # # R=$xT/PALAISEAU.21 \ # # $formatI # # $xci/reduction_04$X A=$xT/PALAISEAU.21 \ # # chiffres=0 \ # # R=$xT/PALAISEAU.22 \ # # $formatI # # $xci/reduction_04$X A=$xT/PALAISEAU.22 \ # # chiffres=0 \ # # R=$xT/PALAISEAU.23 \ # # $formatI # # $xci/stereogra.01$X T=$xT/PALAISEAU.23 \ # # C=$xiit/PALAISEAU.22 \ # # permutations=... \ # # pf=0.125 pi=1 \ # # R=$xiirv/STEREO_BI.F? \ # # $formatI # # # # ou '$xiirv/STEREO_BI.F1' et '$xiirv/STEREO_BI.F2' correspondent a la valeur 'VRAI' et # # 'FAUX' respectivement de l'argument 'permutations=...' et ou l'image '$xT/PALAISEAU.23' # # a ete obtenue en appliquant '$xci/reduction_04$X' trois fois de suite et recursivement # # a l'image '$xiit/PALAISEAU.11$ROUGE' afin donc de la mutiplier 8x8 fois (en la reduisant # # avec moyennage des niveaux). # v $xiirv/STEREO_BI.G1 v $xiirv/STEREO_BI.G2 # Image generee par : # # # # Std # # $xci/stereogra.01$X T=$xiio/BAND_RDN.11.51 \ # # C=$xiit/CEN.11 \ # # permutations=... \ # # R=$xiirv/STEREO_BI.G? \ # # $formatI # # # # ou '$xiirv/STEREO_BI.G1' et '$xiirv/STEREO_BI.G2' correspondent a la valeur 'VRAI' et # # 'FAUX' respectivement de l'argument 'permutations=...'. # v $xiirv/STEREO_BI.H1 v $xiirv/STEREO_BI.H2 # Image generee par : # # # # Std # # $xci/vraies_C$X A=$xiia/XYRT.12 \ # # p=$xiP/CEN.11 \ # # RVB=VRAI \ # # R=$xT/CEN \ # # $formatI # # $xci/reduction_64$X A=$xT/CEN.? \ # # chiffres=0 \ # # $formatI | # # $xci/reduction_04$X \ # # chiffres=0 \ # # $formatI | # # $xci/stereogra.01$X \ # # C=$xiit/CEN.11 \ # # permutations=... \ # # pf=0.125 pi=1 \ # # R=$xiirv/STEREO_BI.H?.? \ # # $formatI # # # # ou '$xiirv/STEREO_BI.H1' et '$xiirv/STEREO_BI.H2' correspondent a la valeur 'VRAI' et # # 'FAUX' respectivement de l'argument 'permutations=...'. # v $xiirv/STEREO_BI.I1 # Image generee par : # # # # Std # # $xci/passe_bande$X A=$xiit/CEN.21.250$Fi \ # # inf=40 sup=255 \ # # noir=FAUX \ # # $formatI # # $xci/acces$X \ # # renormaliser=VRAI \ # # $formatI | # # $xci/complement$X \ # # $formatI | # # $xci/stereogra.01$X \ # # T=$xiio/BAND_RDN.11.51 \ # # R=$xiirv/STEREO_BI.I1 \ # # $formatI # # # v $xiirv/STEREO_BI.J1 v $xiirv/STEREO_BI.J2 # Image generee par : # # # # Std # # # # $xci/reduction_04$X A=$xiia/JU.52.8.1005.? \ # # chiffres=0 \ # # $formatI | # # $xci/reduction_04$X \ # # chiffres=0 \ # # $formatI | # # $xci/reduction_04$X \ # # chiffres=0 \ # # $formatI | # # $xci/stereogra.01$X \ # # C=$xiirc/JU.52.0006 \ # # permutations=... \ # # pf=1.0 pi=0.125 \ # # R=$xiirv/STEREO_BI.J?.? \ # # $formatI # # # # ou '$xiirv/STEREO_BI.J1' et '$xiirv/STEREO_BI.J2' correspondent a la valeur 'VRAI' et # # 'FAUX' respectivement de l'argument 'permutations=...'. # v $xiirv/STEREO_BI.K2 # Image generee a l'aide du champ '$xiio/ANNEAU' et d'une mosaique faite des huits # # paysages suivants de bas en haut : # # # # Std # # # # 56 : $xiirf/PAYS.51.015 # # 48 : $xiirf/PAYS.C2$M # # 40 : $xiia/PAYSAGE.C4$M # # 32 : $xiia/PAYSAGE.C2$M # # 24 : $xiia/PAYSAGE.C1$M # # 16 : $xiia/PAYSAGE.B3$M # # 08 : $xiia/PAYSAGE.A1$M # # 00 : $xiirf/PAYS.19.6$Fi # # # # avec "permutations=FAUX". # v $xiirv/STEREO_BI.L2 # Image generee a l'aide du champ '$xiio/ANNEAU' et d'une mosaique faite des huits # # paysages suivants de bas en haut : # # # # Std # # # # 56 : $xiia/COSMOS.21 # # 48 : $xiia/DIST.21.1$m # # 40 : $xiia/ETOI.33$m # # 32 : $xiia/DIST.21.2$m # # 24 : $xiia/SINU.11$m # # 16 : $xiia/DIST.21.5$m # # 08 : $xiia/CONF.91$Fi$m # # 00 : $xiia/CONF.91$Fi # # # # avec "permutations=FAUX". # v $xiirv/STER.M1 v $xiirv/STER.M1$m p=$xiP/montagnes.91 v $xiirv/STER.M1$m # L'image '$xiirv/STER.M1' est la premiere de la sequence : # # # # xivPdf 6 2 / 029086_029340 # # # # alors que les images de type '$m' presentent une vue "traditionnelle" de '$xiio/ANNEAU' # # tridimensionnelle sans, puis avec la texture (utilisee pour le camouflage...) ; on notera # # que '$xiio/ANNEAU' a fait l'objet d'un lissage : # # # # $xci/lissage$X standard=FAUX passes=512 ... # # # v $xiirv/STEREO_BI.M1 p=$xiP/gris.01 # Cette image est le resultat de la manipulation suivante sur '$LACT27' : # # # # # # $Z Std # # # # $Z $xci/random.02$X \ # # $Z seuil=0.001 \ # # $Z graine=2 \ # # $Z R=$xTV/RANDOM \ # # $Z $formatI # # $Z $xci/stereogra.01$X \ # # $Z A=$xTV/RANDOM \ # # $Z pf=0.125 pi=1 \ # # $Z permutations=FAUX \ # # $Z C=$xiio/ANNEAU \ # # $Z facteur=0.04 \ # # $Z R=$xiirv/STEREO_BI.M1 \ # # $Z $formatI # # # # $Z $xci/liste_points$X \ # # $Z A=$xTV/RANDOM \ # # $Z eX=FAUX \ # # $Z eY=FAUX \ # # $Z eNIVEAU=FAUX \ # # $Z epoints=VRAI \ # # $Z $formatI # # # # # # ce qui donne un stereogramme utilisant 231 points aleatoires. # v $xiirv/STEREO_BI.N1 p=$xiP/trou_noir.14 # Cette image est le resultat de la manipulation suivante sur '$LACT15' : # # # # # # :Debut_listG_STEREO_BI_N1: # # # # $Z Std # # # # $Z $xci/format.01$X \ # # $Z A=$xiio/ANNEAU \ # # $Z $formatI \ # # $Z mode=7 \ # # $Z R=$xTV/SURFACE \ # # $Z $formatR_Pal # # # # $Z Pal # # # # $Z set FaCtEuR=0.2 # # $Z set DiMeNsIoN_X=`$xcg/MUL2.01$X a=$FaCtEuR b=$dimX signe="$K_VIDE" entier=VRAI` # # $Z @ XmaxR = $DiMeNsIoN_X - 1 # # $Z @ YmaxR = $Ymax # # # # $Z $xci/format.01$X \ # # $Z A=$xiia/MINM.31 \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xTV/TEXTURE.1 \ # # $Z XmaxR=$XmaxR YmaxR=$YmaxR # # # # $Z XYmaxNe $XmaxR $YmaxR # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/TEXTURE.1 \ # # $Z $formatI \ # # $Z mode=3 \ # # $Z R=$xTV/TEXTURE.2 \ # # $Z $formatR_Pal # # # # $Z Pal # # # # $Z $xci/stereogra.01$X \ # # $Z T=$xTV/TEXTURE.2 \ # # $Z periode_a_forcer=$FaCtEuR \ # # $Z C=$xTV/SURFACE \ # # $Z R=$xiirv/STEREO_BI.N1 \ # # $Z $formatI # # # # :Fin_listG_STEREO_BI_N1: # # # v $xiirv/STEREO_BI.O1 p=$xiP/dentscie.A4 # Cette image est le resultat de la manipulation suivante sur '$LACT15' : # # # # # # :Debut_listG_STEREO_BI_O1: # # # # $Z Std # # # # $Z $xci/format.01$X \ # # $Z A=$xiio/ANNEAU \ # # $Z $formatI \ # # $Z mode=7 \ # # $Z R=$xTV/SURFACE \ # # $Z $formatR_Pal # # # # $Z Pal # # # # $Z set FaCtEuR=0.2 # # # # $Z $xci/periodise.01$Z \ # # $Z $xiird/DIST.21.1 \ # # $Z $xTV/TEXTURE.1 \ # # $Z $FaCtEuR \ # # $Z $EXIST # # $Z $xci/periodise.01$Z \ # # $Z $xTV/TEXTURE.1 \ # # $Z $xTV/TEXTURE.2 \ # # $Z $FaCtEuR \ # # $Z $NEXIST # # # # $Z $xci/stereogra.01$X \ # # $Z T=$xTV/TEXTURE.2 \ # # $Z periode_a_forcer=$FaCtEuR \ # # $Z C=$xTV/SURFACE \ # # $Z R=$xiirv/STEREO_BI.O1 \ # # $Z $formatI # # # # :Fin_listG_STEREO_BI_O1: # # # v $xiirv/STEREO_BI.O2 p=$xiP/abso.11 v $xiirv/STEREO_BI.O2 p=$xiP/arc_ciel.01 v $xiirv/STEREO_BI.O2 p=$xiP/dentscie.22 v $xiirv/STEREO_BI.O2 p=$xiP/dentscie.A1 v $xiirv/STEREO_BI.O2 p=$xiP/fractal.22 # Cette image est le resultat de la manipulation suivante sur '$LACT15' : # # # # # # :Debut_listG_STEREO_BI_O2: # # # # $Z Std # # # # $Z $xci/format.01$X \ # # $Z A=$xiio/ANNEAU \ # # $Z $formatI \ # # $Z mode=7 \ # # $Z R=$xTV/SURFACE \ # # $Z $formatR_Pal # # # # $Z Pal # # # # $Z set FaCtEuR=0.2 # # # # $Z $xci/periodise.01$Z \ # # $Z $xiia/RAND.22 \ # # $Z $xTV/TEXTURE.1 \ # # $Z $FaCtEuR \ # # $Z $EXIST # # # # $Z $xci/stereogra.01$X \ # # $Z T=$xTV/TEXTURE.1 \ # # $Z periode_a_forcer=$FaCtEuR \ # # $Z C=$xTV/SURFACE \ # # $Z R=$xiirv/STEREO_BI.O2 \ # # $Z $formatI # # # # :Fin_listG_STEREO_BI_O2: # # # XYmaxNe 1079 719 ; $xci/display$X A=$xiirv/STEREO_BI.Q2 p=$xiP/abso.11 $formatI # Cette image est le resultat de la manipulation suivante sur '$LACT15' : # # # # # # :Debut_listG_STEREO_BI_Q2: # # # # $Z Std # # # # $Z $xci/format.01$X \ # # $Z A=$xiio/ANNEAU \ # # $Z $formatI \ # # $Z mode=7 \ # # $Z R=$xTV/SURFACE \ # # $Z XmaxR=1079 YmaxR=719 # # # # $Z Pal # # # # $Z $xci/format.01$X \ # # $Z A=$xiia/RAND.22 \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xTV/RAND.22 \ # # $Z XmaxR=1079 YmaxR=719 # # # # $Z XYmaxNe 1079 719 # # # # $Z set FaCtEuR=0.2 # # # # $Z $xci/periodise.01$Z \ # # $Z $xTV/RAND.22 \ # # $Z $xTV/TEXTURE.1 \ # # $Z $FaCtEuR \ # # $Z $EXIST # # # # $Z $xci/stereogra.01$X \ # # $Z T=$xTV/TEXTURE.1 \ # # $Z periode_a_forcer=$FaCtEuR \ # # $Z C=$xTV/SURFACE \ # # $Z R=$xiirv/STEREO_BI.Q2 \ # # $Z $formatI # # # # :Fin_listG_STEREO_BI_Q2: # # # # # # Images formellement identiques a 'v $xiirv/STEREO_BI.O2' et regeneree pour le CNRS # # ('v $Dcourrier_in/20150529110348 From.Christine.GIRARD@cnrs.fr..Thu.May.28.11:09:01.2015'). # v $xiirv/STEREO_BI.R1 p=$xiP/CEN.11 v $xiirv/STEREO_BI.R1 p=$xiP/fractal.11 v $xiirv/STEREO_BI.R1 p=$xiP/fractal.33 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STEREO_BI_R1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z $xci/random.01$X \ # # $Z R=$xTV/RANDOM.11 \ # # $Z $formatI # # # # $Z $xci/carrelage.01$Z $xTV/RANDOM.11 $xTV/RANDOM.12 5 1 # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/RANDOM.12 \ # # $Z N=$xTV/GAUSS \ # # $Z R=$xTV/TEXTURE \ # # $Z $formatI # # # # $Z $xci/move$X \ # # $Z A=$xiirc/JULK.51.0100 \ # # $Z R=$xTV/PROFONDEUR \ # # $Z $formatI # # # # $Z $xci/stereogra.01$X \ # # $Z T=$xTV/TEXTURE \ # # $Z C=$xTV/PROFONDEUR \ # # $Z R=$xiirv/STEREO_BI.R1 \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/filtre.01$X \ # # $Z A=$xiirv/STEREO_BI.R1 \ # # $Z N=$xTV/GAUSS \ # # $Z seuil=200 \ # # $Z R=$xiirv/STEREO_BI.R1 \ # # $Z $formatI # # # # :Fin_listG_STEREO_BI_R1: # # # # # # Images formellement identiques a 'v $xiirv/STEREO_BI.41' mais avec un autre ensemble # # de Julia... # v $xiirv/STEREO_BI.R2 p=$xiP/fractal.11 v $xiirv/STEREO_BI.R2 p=$xiP/fractal.33 v $xiirv/STEREO_BI.R2 p=$xiP/fractal.91 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STEREO_BI_R2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z $xci/scroll$X \ # # $Z A=$xiirc/JULK.51.0100 \ # # $Z trX=-0.5 \ # # $Z R=$xTV/PROFONDEUR \ # # $Z $formatI # # # # $Z $xci/move$X \ # # $Z A=$xiirc/JULK.51.0100 \ # # $Z R=$xTV/PROFONDEUR \ # # $Z $formatI # # # # $Z $xci/stereogra.01$X \ # # $Z T=$xTV/TEXTURE \ # # $Z periode_a_forcer=0.25 \ # # $Z C=$xTV/PROFONDEUR \ # # $Z R=$xiirv/STEREO_BI.R2 \ # # $Z $formatI # # # # :Fin_listG_STEREO_BI_R2: # # # # # # Images formellement identiques a 'v $xiirv/STEREO_BI.51' mais avec un autre ensemble # # de Julia... # v $xiirv/STRU.bas.10 p=$xiP/gris.01 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_10: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/sinus$X \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$dpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z R=$xTV/CHAMP.11 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.11 \ # # $Z A2=$xTV/CHAMP.11 \ # # $Z R=$xTV/CHAMP.12 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.12 \ # # $Z A2=$xTV/CHAMP.12 \ # # $Z R=$xTV/CHAMP.13 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.13 \ # # $Z A2=$xTV/CHAMP.13 \ # # $Z R=$xTV/CHAMP.14 \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$dpi \ # # $Z dephaser=VRAI \ # # $Z R=$xTV/CHAMP.21 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.21 \ # # $Z A2=$xTV/CHAMP.21 \ # # $Z R=$xTV/CHAMP.22 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.22 \ # # $Z A2=$xTV/CHAMP.22 \ # # $Z R=$xTV/CHAMP.23 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.23 \ # # $Z A2=$xTV/CHAMP.23 \ # # $Z R=$xTV/CHAMP.24 \ # # $Z $formatI # # # # $Z $xci/cache$X \ # # $Z A=$xTV/CHAMP.14 \ # # $Z M=$xTV/CHAMP.24 \ # # $Z R=$xTV/CHAMP.31.0001 \ # # $Z $formatI # # $Z $xci/cache$X \ # # $Z A=$xTV/CHAMP.24 \ # # $Z M=$xTV/CHAMP.14 \ # # $Z R=$xTV/CHAMP.31.0002 \ # # $Z $formatI # # $Z $xci/cache$X \ # # $Z A=$xTV/CHAMP.24 \ # # $Z M=$xTV/CHAMP.14 \ # # $Z R=$xTV/CHAMP.31.0003 \ # # $Z $formatI # # $Z $xci/cache$X \ # # $Z A=$xTV/CHAMP.14 \ # # $Z M=$xTV/CHAMP.24 \ # # $Z R=$xTV/CHAMP.31.0004 \ # # $Z $formatI # # # # $Z $xci/reduction_04$X \ # # $Z A=$xTV/CHAMP.31. \ # # $Z premiere=1 \ # # $Z pas=1 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=9 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=225 \ # # $Z R=$xiirv/STRU.bas.10 \ # # $Z $formatI # # # # :Fin_listG_STRU_bas_10: # # # v $xiirv/STRU.bas.11 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_11: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/sinus$X \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$dpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z R=$xTV/CHAMP.11 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.11 \ # # $Z A2=$xTV/CHAMP.11 \ # # $Z R=$xTV/CHAMP.14 \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$dpi \ # # $Z dephaser=VRAI \ # # $Z R=$xTV/CHAMP.21 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.21 \ # # $Z A2=$xTV/CHAMP.21 \ # # $Z R=$xTV/CHAMP.24 \ # # $Z $formatI # # # # $Z set PaLeTtE_1=$xiP/rouge.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CHAMP.14 \ # # $Z p=$PaLeTtE_1 \ # # $Z R=$xTV/CHAMP.14.1 \ # # $Z $formatI # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CHAMP.24 \ # # $Z p=$PaLeTtE_1 \ # # $Z R=$xTV/CHAMP.24.1 \ # # $Z $formatI # # # # $Z set PaLeTtE_2=$xiP/jaune.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CHAMP.14 \ # # $Z p=$PaLeTtE_2 \ # # $Z R=$xTV/CHAMP.14.2 \ # # $Z $formatI # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CHAMP.24 \ # # $Z p=$PaLeTtE_2 \ # # $Z R=$xTV/CHAMP.24.2 \ # # $Z $formatI # # # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.14.2 \ # # $Z $xTV/CHAMP.24.1 \ # # $Z $xTV/CHAMP.31.0001 # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.24.1 \ # # $Z $xTV/CHAMP.14.1 \ # # $Z $xTV/CHAMP.31.0002 # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.24.2 \ # # $Z $xTV/CHAMP.14.2 \ # # $Z $xTV/CHAMP.31.0003 # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.14.1 \ # # $Z $xTV/CHAMP.24.2 \ # # $Z $xTV/CHAMP.31.0004 # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/CHAMP.31. \ # # $Z postfixe=%s \ # # $Z premiere=1 \ # # $Z pas=1 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=9 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=225 \ # # $Z R=$xiirv/STRU.bas.11%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_bas_11: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # # # # Note sur le codage des couleurs dans l'image 'v $xiirv/STRU.bas.11' : # # # # | | # # 24.2 ==|=========== # # | | # # | | # # | | # # | | # # 24.1 ===========|== # # | | # # # # 14.2 14.1 # # # # ou {'14','24'} indexent les images '$xTV/CHAMP.??', alors que {'1','2'} indexent # # les palettes de couleurs des images '$xTV/CHAMP.??.?'. # v $xiirv/STRU.bas.12 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_12: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/sinus$X \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$dpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z R=$xTV/CHAMP.11 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.11 \ # # $Z A2=$xTV/CHAMP.11 \ # # $Z R=$xTV/CHAMP.14 \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$dpi \ # # $Z dephaser=VRAI \ # # $Z R=$xTV/CHAMP.21 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.21 \ # # $Z A2=$xTV/CHAMP.21 \ # # $Z R=$xTV/CHAMP.24 \ # # $Z $formatI # # # # $Z set PaLeTtE_1=$xiP/rouge.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CHAMP.14 \ # # $Z p=$PaLeTtE_1 \ # # $Z R=$xTV/CHAMP.14.1 \ # # $Z $formatI # # # # $Z set PaLeTtE_2=$xiP/jaune.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CHAMP.14 \ # # $Z p=$PaLeTtE_2 \ # # $Z R=$xTV/CHAMP.14.2 \ # # $Z $formatI # # # # $Z set PaLeTtE_3=$xiP/gris.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CHAMP.24 \ # # $Z p=$PaLeTtE_3 \ # # $Z R=$xTV/CHAMP.24.3 \ # # $Z $formatI # # # # $Z set PaLeTtE_4=$xiP/orange.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CHAMP.24 \ # # $Z p=$PaLeTtE_4 \ # # $Z R=$xTV/CHAMP.24.4 \ # # $Z $formatI # # # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.14.1 \ # # $Z $xTV/CHAMP.24.3 \ # # $Z $xTV/CHAMP.31.0001 # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.24.3 \ # # $Z $xTV/CHAMP.14.2 \ # # $Z $xTV/CHAMP.31.0002 # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.24.4 \ # # $Z $xTV/CHAMP.14.1 \ # # $Z $xTV/CHAMP.31.0003 # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.14.2 \ # # $Z $xTV/CHAMP.24.4 \ # # $Z $xTV/CHAMP.31.0004 # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/CHAMP.31. \ # # $Z postfixe=%s \ # # $Z premiere=1 \ # # $Z pas=1 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=9 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=225 \ # # $Z R=$xiirv/STRU.bas.12%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_bas_12: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # # # # Note sur le codage des couleurs dans l'image 'v $xiirv/STRU.bas.12' : # # # # | | # # 24.4 ==|=========== # # | | # # | | # # | | # # | | # # 24.3 ===========|== # # | | # # # # 14.1 14.2 # # # # ou {'14','24'} indexent les images '$xTV/CHAMP.??', alors que {'1','2','3','4'} indexent # # les palettes de couleurs des images '$xTV/CHAMP.??.?'. # v $xiirv/STRU.bas.13 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_13: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/sinus$X \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$dpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z R=$xTV/CHAMP.11 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.11 \ # # $Z A2=$xTV/CHAMP.11 \ # # $Z R=$xTV/CHAMP.14 \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$dpi \ # # $Z dephaser=VRAI \ # # $Z R=$xTV/CHAMP.21 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.21 \ # # $Z A2=$xTV/CHAMP.21 \ # # $Z R=$xTV/CHAMP.24 \ # # $Z $formatI # # # # $Z set PaLeTtE_1=$xiP/rouge.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CHAMP.14 \ # # $Z p=$PaLeTtE_1 \ # # $Z R=$xTV/CHAMP.14.1 \ # # $Z $formatI # # # # $Z set PaLeTtE_2=$xiP/jaune.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CHAMP.14 \ # # $Z p=$PaLeTtE_2 \ # # $Z R=$xTV/CHAMP.14.2 \ # # $Z $formatI # # # # $Z set PaLeTtE_3=$xiP/gris.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CHAMP.24 \ # # $Z p=$PaLeTtE_3 \ # # $Z R=$xTV/CHAMP.24.3 \ # # $Z $formatI # # # # $Z set PaLeTtE_4=$xiP/orange.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CHAMP.24 \ # # $Z p=$PaLeTtE_4 \ # # $Z R=$xTV/CHAMP.24.4 \ # # $Z $formatI # # # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.14.1 \ # # $Z $xTV/CHAMP.24.3 \ # # $Z $xTV/CHAMP.31.0001 # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.24.3 \ # # $Z $xTV/CHAMP.14.2 \ # # $Z $xTV/CHAMP.31.0002 # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.24.4 \ # # $Z $xTV/CHAMP.14.1 \ # # $Z $xTV/CHAMP.31.0005 # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.14.2 \ # # $Z $xTV/CHAMP.24.4 \ # # $Z $xTV/CHAMP.31.0006 # # # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.24.3 \ # # $Z $xTV/CHAMP.14.1 \ # # $Z $xTV/CHAMP.31.0003 # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.14.2 \ # # $Z $xTV/CHAMP.24.3 \ # # $Z $xTV/CHAMP.31.0004 # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.14.1 \ # # $Z $xTV/CHAMP.24.4 \ # # $Z $xTV/CHAMP.31.0007 # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.24.4 \ # # $Z $xTV/CHAMP.14.2 \ # # $Z $xTV/CHAMP.31.0008 # # # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.24.3 \ # # $Z $xTV/CHAMP.14.1 \ # # $Z $xTV/CHAMP.31.0009 # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.14.2 \ # # $Z $xTV/CHAMP.24.3 \ # # $Z $xTV/CHAMP.31.0010 # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.14.1 \ # # $Z $xTV/CHAMP.24.4 \ # # $Z $xTV/CHAMP.31.0013 # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.24.4 \ # # $Z $xTV/CHAMP.14.2 \ # # $Z $xTV/CHAMP.31.0014 # # # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.14.1 \ # # $Z $xTV/CHAMP.24.3 \ # # $Z $xTV/CHAMP.31.0011 # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.24.3 \ # # $Z $xTV/CHAMP.14.2 \ # # $Z $xTV/CHAMP.31.0012 # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.24.4 \ # # $Z $xTV/CHAMP.14.1 \ # # $Z $xTV/CHAMP.31.0015 # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.14.2 \ # # $Z $xTV/CHAMP.24.4 \ # # $Z $xTV/CHAMP.31.0016 # # # # $Z execRVB "$xci/reduction_16$X \ # # $Z A=$xTV/CHAMP.31. \ # # $Z postfixe=%s \ # # $Z premiere=1 \ # # $Z pas=1 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=49 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=225 \ # # $Z R=$xiirv/STRU.bas.13%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_bas_13: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # v $xiirv/STRU.bas.14 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_14: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/sinus$X \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$dpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z R=$xTV/CHAMP.11 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.11 \ # # $Z A2=$xTV/CHAMP.11 \ # # $Z R=$xTV/CHAMP.12 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.12 \ # # $Z A2=$xTV/CHAMP.12 \ # # $Z R=$xTV/CHAMP.13 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.13 \ # # $Z A2=$xTV/CHAMP.13 \ # # $Z R=$xTV/CHAMP.14 \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$dpi \ # # $Z dephaser=VRAI \ # # $Z R=$xTV/CHAMP.21 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.21 \ # # $Z A2=$xTV/CHAMP.21 \ # # $Z R=$xTV/CHAMP.22 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.22 \ # # $Z A2=$xTV/CHAMP.22 \ # # $Z R=$xTV/CHAMP.23 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.23 \ # # $Z A2=$xTV/CHAMP.23 \ # # $Z R=$xTV/CHAMP.24 \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z c=26 \ # # $Z R=$xTV/CHAMP.34 \ # # $Z $formatI # # # # $Z set PaLeTtE_1=$xiP/rouge.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CHAMP.14 \ # # $Z p=$PaLeTtE_1 \ # # $Z R=$xTV/CHAMP.14.1 \ # # $Z $formatI # # # # $Z set PaLeTtE_2=$xiP/jaune.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CHAMP.24 \ # # $Z p=$PaLeTtE_2 \ # # $Z R=$xTV/CHAMP.24.1 \ # # $Z $formatI # # # # $Z set PaLeTtE_3=$xiP/gris.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CHAMP.34 \ # # $Z p=$PaLeTtE_3 \ # # $Z R=$xTV/CHAMP.34.1 \ # # $Z $formatI # # # # $Z $xci/seuil$X \ # # $Z A=$xTV/CHAMP.34 \ # # $Z seuil=$NOIR \ # # $Z R=$xTV/MASQUE.1 \ # # $Z $formatI # # $Z $xci/complement$X \ # # $Z A=$xTV/MASQUE.1 \ # # $Z R=$xTV/MASQUE.2 \ # # $Z $formatI # # # # $Z execRVB $xci/and$X \ # # $Z A1=$xTV/CHAMP.14.1%s \ # # $Z A2=$xTV/MASQUE.2 \ # # $Z R=$xTV/CHAMP.14.2%s \ # # $Z $formatI # # # # $Z execRVB $xci/and$X \ # # $Z A1=$xTV/CHAMP.24.1%s \ # # $Z A2=$xTV/MASQUE.2 \ # # $Z R=$xTV/CHAMP.24.2%s \ # # $Z $formatI # # # # $Z execRVB $xci/and$X \ # # $Z A1=$xTV/CHAMP.34.1%s \ # # $Z A2=$xTV/MASQUE.1 \ # # $Z R=$xTV/CHAMP.34.2%s \ # # $Z $formatI # # # # $Z execRVB "$xci/or_03$X \ # # $Z A1=$xTV/CHAMP.14.2%s \ # # $Z A2=$xTV/CHAMP.24.2%s \ # # $Z A3=$xTV/CHAMP.34.2%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=225 \ # # $Z R=$xiirv/STRU.bas.14%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_bas_14: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # v $xiirv/STRU.bas.15 v $xiirv/STRU.bas.16 v $xiirv/STRU.bas.17 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_15_16_17: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/sinus$X \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$dpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z R=$xTV/CHAMP.11 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.11 \ # # $Z A2=$xTV/CHAMP.11 \ # # $Z R=$xTV/CHAMP.12 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.12 \ # # $Z A2=$xTV/CHAMP.12 \ # # $Z R=$xTV/CHAMP.13 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.13 \ # # $Z A2=$xTV/CHAMP.13 \ # # $Z R=$xTV/CHAMP.14 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.14 \ # # $Z A2=$xTV/CHAMP.14 \ # # $Z R=$xTV/CHAMP.15 \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$dpi \ # # $Z dephaser=VRAI \ # # $Z R=$xTV/CHAMP.21 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.21 \ # # $Z A2=$xTV/CHAMP.21 \ # # $Z R=$xTV/CHAMP.22 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.22 \ # # $Z A2=$xTV/CHAMP.22 \ # # $Z R=$xTV/CHAMP.23 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.23 \ # # $Z A2=$xTV/CHAMP.23 \ # # $Z R=$xTV/CHAMP.24 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.24 \ # # $Z A2=$xTV/CHAMP.24 \ # # $Z R=$xTV/CHAMP.25 \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z c=30 \ # # $Z R=$xTV/CHAMP.35 \ # # $Z $formatI # # # # $Z set PaLeTtE_1=$xiP/rouge.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CHAMP.15 \ # # $Z p=$PaLeTtE_1 \ # # $Z R=$xTV/CHAMP.15.1 \ # # $Z $formatI # # # # $Z set PaLeTtE_2=$xiP/jaune.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CHAMP.25 \ # # $Z p=$PaLeTtE_2 \ # # $Z R=$xTV/CHAMP.25.1 \ # # $Z $formatI # # # # $Z set PaLeTtE_3=$xiP/gris.82 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CHAMP.35 \ # # $Z p=$PaLeTtE_3 \ # # $Z R=$xTV/CHAMP.35.1 \ # # $Z $formatI # # # # $Z $xci/seuil$X \ # # $Z A=$xTV/CHAMP.35 \ # # $Z seuil=$NOIR \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/MASQUE.2 \ # # $Z $formatI # # # # $Z execRVB $xci/and$X \ # # $Z A1=$xTV/CHAMP.15.1%s \ # # $Z A2=$xTV/MASQUE.2 \ # # $Z R=$xTV/CHAMP.15.2%s \ # # $Z $formatI # # # # $Z execRVB $xci/or_02$X \ # # $Z A1=$xTV/CHAMP.15.2%s \ # # $Z A2=$xTV/CHAMP.35.1%s \ # # $Z R=$xTV/CHAMP.45.1%s \ # # $Z $formatI # # # # $Z $xci/seuil$X \ # # $Z A=$xTV/CHAMP.25 \ # # $Z seuil=$NOIR \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/MASQUE.1 \ # # $Z $formatI # # # # $Z execRVB $xci/and$X \ # # $Z A1=$xTV/CHAMP.45.1%s \ # # $Z A2=$xTV/MASQUE.1 \ # # $Z R=$xTV/CHAMP.55.2%s \ # # $Z $formatI # # # # $Z execRVB "$xci/or_02$X \ # # $Z A1=$xTV/CHAMP.25.1%s \ # # $Z A2=$xTV/CHAMP.55.2%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=225 \ # # $Z R=$xiirv/STRU.bas.15%s \ # # $Z $formatI" # # # # $Z execRVB $xci/and$X \ # # $Z A1=$xTV/CHAMP.25.1%s \ # # $Z A2=$xTV/MASQUE.2 \ # # $Z R=$xTV/CHAMP.25.3%s \ # # $Z $formatI # # # # $Z execRVB $xci/or_02$X \ # # $Z A1=$xTV/CHAMP.25.3%s \ # # $Z A2=$xTV/CHAMP.35.1%s \ # # $Z R=$xTV/CHAMP.65.1%s \ # # $Z $formatI # # # # $Z $xci/seuil$X \ # # $Z A=$xTV/CHAMP.15 \ # # $Z seuil=$NOIR \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/MASQUE.3 \ # # $Z $formatI # # # # $Z execRVB $xci/and$X \ # # $Z A1=$xTV/CHAMP.65.1%s \ # # $Z A2=$xTV/MASQUE.3 \ # # $Z R=$xTV/CHAMP.65.2%s \ # # $Z $formatI # # # # $Z execRVB "$xci/or_02$X \ # # $Z A1=$xTV/CHAMP.15.1%s \ # # $Z A2=$xTV/CHAMP.65.2%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=225 \ # # $Z R=$xiirv/STRU.bas.16%s \ # # $Z $formatI" # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$xiirv/STRU.bas.15%s \ # # $Z R=$xTV/CHAMP.71.0001%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$xiirv/STRU.bas.16%s \ # # $Z R=$xTV/CHAMP.71.0002%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$xiirv/STRU.bas.16%s \ # # $Z R=$xTV/CHAMP.71.0003%s \ # # $Z $formatI # # $Z execRVB $xci/neutre$X \ # # $Z A=$xiirv/STRU.bas.15%s \ # # $Z R=$xTV/CHAMP.71.0004%s \ # # $Z $formatI # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/CHAMP.71. \ # # $Z postfixe=%s \ # # $Z premiere=1 \ # # $Z pas=1 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=9 \ # # $Z R=$xiirv/STRU.bas.17%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_bas_15_16_17: # # # # # # Ces images definissent un motif de base periodique pour des entrelacs du type 'STRU'... # v $xiirv/STRU.bas.22 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_22: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/sinus$X \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$dpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z R=$xTV/CHAMP.11 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.11 \ # # $Z A2=$xTV/CHAMP.11 \ # # $Z R=$xTV/CHAMP.14 \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$dpi \ # # $Z dephaser=VRAI \ # # $Z R=$xTV/CHAMP.21 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/CHAMP.21 \ # # $Z A2=$xTV/CHAMP.21 \ # # $Z R=$xTV/CHAMP.24 \ # # $Z $formatI # # # # $Z set PaLeTtE_1=$xiP/rouge.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CHAMP.14 \ # # $Z p=$PaLeTtE_1 \ # # $Z R=$xTV/CHAMP.14.1 \ # # $Z $formatI # # # # $Z set PaLeTtE_2=$xiP/jaune.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CHAMP.14 \ # # $Z p=$PaLeTtE_2 \ # # $Z R=$xTV/CHAMP.14.2 \ # # $Z $formatI # # # # $Z set PaLeTtE_3=$xiP/gris.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CHAMP.24 \ # # $Z p=$PaLeTtE_3 \ # # $Z R=$xTV/CHAMP.24.3 \ # # $Z $formatI # # # # $Z set PaLeTtE_4=$xiP/orange.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CHAMP.24 \ # # $Z p=$PaLeTtE_4 \ # # $Z R=$xTV/CHAMP.24.4 \ # # $Z $formatI # # # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.24.3 \ # # $Z $xTV/CHAMP.14.1 \ # # $Z $xTV/CHAMP.31.0001 # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.14.2 \ # # $Z $xTV/CHAMP.24.3 \ # # $Z $xTV/CHAMP.31.0002 # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.14.1 \ # # $Z $xTV/CHAMP.24.4 \ # # $Z $xTV/CHAMP.31.0003 # # $Z $xci/cache.21$Z \ # # $Z $xTV/CHAMP.24.4 \ # # $Z $xTV/CHAMP.14.2 \ # # $Z $xTV/CHAMP.31.0004 # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/CHAMP.31. \ # # $Z postfixe=%s \ # # $Z premiere=1 \ # # $Z pas=1 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=9 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=225 \ # # $Z R=$xiirv/STRU.bas.22%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_bas_22: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # # # # Note sur le codage des couleurs dans l'image 'v $xiirv/STRU.bas.12' : # # # # | | # # 24.4 ===========|== # # | | # # | | # # | | # # | | # # 24.3 ==|=========== # # | | # # # # 14.1 14.2 # # # # ou {'14','24'} indexent les images '$xTV/CHAMP.??', alors que {'1','2','3','4'} indexent # # les palettes de couleurs des images '$xTV/CHAMP.??.?'. # v $xiirv/STRU.bas.32 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_32: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$xiirv/STRU.bas.12%s \ # # $Z R=$xTV/CHAMP.31.0001%s \ # # $Z $formatI # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$xiirv/STRU.bas.22%s \ # # $Z R=$xTV/CHAMP.31.0002%s \ # # $Z $formatI # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$xiirv/STRU.bas.12%s \ # # $Z R=$xTV/CHAMP.31.0003%s \ # # $Z $formatI # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$xiirv/STRU.bas.22%s \ # # $Z R=$xTV/CHAMP.31.0004%s \ # # $Z $formatI # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/CHAMP.31. \ # # $Z postfixe=%s \ # # $Z premiere=1 \ # # $Z pas=1 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=9 \ # # $Z R=$xiirv/STRU.bas.32%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_bas_32: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # v $xiirv/STRU.bas.41 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_41: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z FileTmpB FiLeTmP # # # # $Z set Noi=$NOIR # # $Z set Bla=$BLANC # # # # $Z echo "0 +0.5 +0.5 +1" | $R "$K_BLANC" "$K_NL" > $FiLeTmP$COORD_X # # $Z echo "+0.5 +1 0 +0.5" | $R "$K_BLANC" "$K_NL" > $FiLeTmP$COORD_Y # # $Z echo "+0.5 +0.5 +0.5 +0.5" | $R "$K_BLANC" "$K_NL" > $FiLeTmP$COORD_Z # # # # $Z echo "+8.5 0 0 +8.5" | $R "$K_BLANC" "$K_NL" > $FiLeTmP""d$COORD_X # # $Z echo "0 +8.5 +8.5 0" | $R "$K_BLANC" "$K_NL" > $FiLeTmP""d$COORD_Y # # $Z echo "+1 +2 -1 -2" | $R "$K_BLANC" "$K_NL" > $FiLeTmP""d$COORD_Z # # # # $Z echo "$Bla $Bla $Bla $Bla" | $R "$K_BLANC" "$K_NL" > $FiLeTmP$ROUGE # # $Z echo "$Bla $Bla $Noi $Noi" | $R "$K_BLANC" "$K_NL" > $FiLeTmP$VERTE # # $Z echo "$Noi $Noi $Noi $Noi" | $R "$K_BLANC" "$K_NL" > $FiLeTmP$BLEUE # # # # $Z set NPoInTsX=`$CA $FiLeTmP$COORD_X | $WCl | $AW ' { print $1 } '` # # $Z set NPoInTsY=`$CA $FiLeTmP$COORD_Y | $WCl | $AW ' { print $1 } '` # # $Z set NPoInTsZ=`$CA $FiLeTmP$COORD_Z | $WCl | $AW ' { print $1 } '` # # # # $Z set NPoInTs=`$xcg/MIN3.01$X x=$NPoInTsX y=$NPoInTsY z=$NPoInTsZ` # # # # $Z $xrv/particule.10$X \ # # $Z npoints=$NPoInTs \ # # $Z LISTE_X=$FiLeTmP$COORD_X \ # # $Z LISTE_Y=$FiLeTmP$COORD_Y \ # # $Z LISTE_Z=$FiLeTmP$COORD_Z \ # # $Z LISTE_dX=$FiLeTmP""d$COORD_X \ # # $Z LISTE_dY=$FiLeTmP""d$COORD_Y \ # # $Z LISTE_dZ=$FiLeTmP""d$COORD_Z \ # # $Z LISTE_ROUGE=$FiLeTmP$ROUGE \ # # $Z LISTE_VERTE=$FiLeTmP$VERTE \ # # $Z LISTE_BLEUE=$FiLeTmP$BLEUE \ # # $Z isoles=FAUX \ # # $Z cubique=VRAI \ # # $Z ajuster_points=VRAI Rpoints=40 \ # # $Z ajuster_coordonnees=FAUX \ # # $Z ajuster_independamment_homothetie=FAUX \ # # $Z ajuster_independamment_translation=FAUX \ # # $Z Lz=1000 \ # # $Z rayon_de_visualisation=0.06 \ # # $Z ROTATION_OX=0 \ # # $Z R=$xiirv/STRU.bas.41 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # # # $Z FileTmpE FiLeTmP # # # # :Fin_listG_STRU_bas_41: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # v $xiirv/STRU.bas.42 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_42: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z FileTmpB FiLeTmP # # # # $Z set Noi=$NOIR # # $Z set Bla=$BLANC # # # # $Z echo "0 +0.5 +0.5 +1" | $R "$K_BLANC" "$K_NL" > $FiLeTmP$COORD_X # # $Z echo "+0.5 +1 0 +0.5" | $R "$K_BLANC" "$K_NL" > $FiLeTmP$COORD_Y # # $Z echo "+0.5 +0.5 +0.5 +0.5" | $R "$K_BLANC" "$K_NL" > $FiLeTmP$COORD_Z # # # # $Z echo "+8.5 0 0 +8.5" | $R "$K_BLANC" "$K_NL" > $FiLeTmP""d$COORD_X # # $Z echo "0 +8.5 +8.5 0" | $R "$K_BLANC" "$K_NL" > $FiLeTmP""d$COORD_Y # # $Z echo "+1 +2 -1 -2" | $R "$K_BLANC" "$K_NL" > $FiLeTmP""d$COORD_Z # # # # $Z echo "$Bla $Bla $Bla $Bla" | $R "$K_BLANC" "$K_NL" > $FiLeTmP$ROUGE # # $Z echo "$Bla $Noi $Noi $Bla" | $R "$K_BLANC" "$K_NL" > $FiLeTmP$VERTE # # $Z echo "$Noi $Noi $Noi $Noi" | $R "$K_BLANC" "$K_NL" > $FiLeTmP$BLEUE # # # # $Z set NPoInTsX=`$CA $FiLeTmP$COORD_X | $WCl | $AW ' { print $1 } '` # # $Z set NPoInTsY=`$CA $FiLeTmP$COORD_Y | $WCl | $AW ' { print $1 } '` # # $Z set NPoInTsZ=`$CA $FiLeTmP$COORD_Z | $WCl | $AW ' { print $1 } '` # # # # $Z set NPoInTs=`$xcg/MIN3.01$X x=$NPoInTsX y=$NPoInTsY z=$NPoInTsZ` # # # # $Z $xrv/particule.10$X \ # # $Z npoints=$NPoInTs \ # # $Z LISTE_X=$FiLeTmP$COORD_X \ # # $Z LISTE_Y=$FiLeTmP$COORD_Y \ # # $Z LISTE_Z=$FiLeTmP$COORD_Z \ # # $Z LISTE_dX=$FiLeTmP""d$COORD_X \ # # $Z LISTE_dY=$FiLeTmP""d$COORD_Y \ # # $Z LISTE_dZ=$FiLeTmP""d$COORD_Z \ # # $Z LISTE_ROUGE=$FiLeTmP$ROUGE \ # # $Z LISTE_VERTE=$FiLeTmP$VERTE \ # # $Z LISTE_BLEUE=$FiLeTmP$BLEUE \ # # $Z isoles=FAUX \ # # $Z cubique=VRAI \ # # $Z ajuster_points=VRAI Rpoints=40 \ # # $Z ajuster_coordonnees=FAUX \ # # $Z ajuster_independamment_homothetie=FAUX \ # # $Z ajuster_independamment_translation=FAUX \ # # $Z Lz=1000 \ # # $Z rayon_de_visualisation=0.06 \ # # $Z ROTATION_OX=0 \ # # $Z R=$xiirv/STRU.bas.42 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # # # $Z FileTmpE FiLeTmP # # # # :Fin_listG_STRU_bas_42: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # # # # ATTENTION : les extremites rouges inferieure et superieure ne se raccordent pas # # exactement pour des raisons liees a la generation tridimensionnelle et a la perspective. # # Cela a ete corrige dans 'v $xiirv/STRU.bas.52' en ajoutant des points intermediaires... # # Il est donc preferable de ne pas utiliser cette image ('v $xiirv/STRU.bas.42'). On notera # # que ce defaut n'est pas genant dans 'v $xiirv/STRU.bas.43' et dans 'v $xiirv/STRU.bas.44' # # a cause des symetries introduites par '$xci/tapisserie$X'... # v $xiirv/STRU.bas.43 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_43: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.42%s \ # # $Z HG_Ix=FAUX HG_Iy=FAUX \ # # $Z HD_Ix=FAUX HD_Iy=VRAI \ # # $Z BG_Ix=VRAI BG_Iy=FAUX \ # # $Z BD_Ix=VRAI BD_Iy=VRAI \ # # $Z R=$xiirv/STRU.bas.43%s \ # # $Z $formatI # # # # :Fin_listG_STRU_bas_43: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # v $xiirv/STRU.bas.44 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_44: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.42%s \ # # $Z HG_Ix=VRAI HG_Iy=FAUX \ # # $Z HD_Ix=VRAI HD_Iy=VRAI \ # # $Z BG_Ix=FAUX BG_Iy=FAUX \ # # $Z BD_Ix=FAUX BD_Iy=VRAI \ # # $Z R=$xiirv/STRU.bas.44%s \ # # $Z $formatI # # # # :Fin_listG_STRU_bas_44: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # v $xiirv/STRU.bas.52 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_52: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z FileTmpB FiLeTmP # # # # $Z set Noi=$NOIR # # $Z set Bla=$BLANC # # # # $Z echo "-0.1 +0.5 +0.5 1 0 0 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "0 +0.5 +0.5 1 0 0 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "0 +0.5 +0.5 +7.9 0 +1 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +0.9 +0.5 0 +7.9 +2 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +0.9 +0.5 0 1 0 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +1 +0.5 0 1 0 $Bla $Noi $Noi" >>! $FiLeTmP # # # # $Z echo "+0.5 0 +0.5 0 1 0 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +0.1 +0.5 0 1 0 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +0.1 +0.5 0 +7.5 -1 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+1.0 +0.5 +0.5 +7.5 0 -2 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "+1.0 +0.5 +0.5 +1 0 0 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "+1.1 +0.5 +0.5 +1 0 0 $Bla $Bla $Noi" >>! $FiLeTmP # # # # $Z set dcX="d"$COORD_X # # $Z set dcY="d"$COORD_Y # # $Z set dcZ="d"$COORD_Z # # # # $Z Fdecoupe $FiLeTmP $COORD_X $COORD_Y $COORD_Z $dcX $dcY $dcZ $ROUGE $VERTE $BLEUE # # # # $Z set NPoInTsX=`$CA $FiLeTmP$COORD_X | $WCl | $AW ' { print $1 } '` # # $Z set NPoInTsY=`$CA $FiLeTmP$COORD_Y | $WCl | $AW ' { print $1 } '` # # $Z set NPoInTsZ=`$CA $FiLeTmP$COORD_Z | $WCl | $AW ' { print $1 } '` # # # # $Z set NPoInTs=`$xcg/MIN3.01$X x=$NPoInTsX y=$NPoInTsY z=$NPoInTsZ` # # # # $Z $xrv/particule.10$X \ # # $Z npoints=$NPoInTs \ # # $Z LISTE_X=$FiLeTmP$COORD_X \ # # $Z LISTE_Y=$FiLeTmP$COORD_Y \ # # $Z LISTE_Z=$FiLeTmP$COORD_Z \ # # $Z LISTE_dX=$FiLeTmP$dcX \ # # $Z LISTE_dY=$FiLeTmP$dcY \ # # $Z LISTE_dZ=$FiLeTmP$dcZ \ # # $Z LISTE_ROUGE=$FiLeTmP$ROUGE \ # # $Z LISTE_VERTE=$FiLeTmP$VERTE \ # # $Z LISTE_BLEUE=$FiLeTmP$BLEUE \ # # $Z isoles=FAUX \ # # $Z cubique=VRAI \ # # $Z ajuster_points=VRAI \ # # $Z equidistance=VRAI distance_minimale=0.01 \ # # $Z ajuster_coordonnees=FAUX \ # # $Z ajuster_independamment_homothetie=FAUX \ # # $Z ajuster_independamment_translation=FAUX \ # # $Z Lz=1000 \ # # $Z rayon_de_visualisation=0.06 \ # # $Z ROTATION_OX=0 \ # # $Z R=$xiirv/STRU.bas.52 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z FileTmpE FiLeTmP # # # # :Fin_listG_STRU_bas_52: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # # # # On notera que les extremites jaunes horizontales debordent du cadre de l'image a gauche # # (-0.1) et a droite (+1.1) afin de faire disparaitre une difference notable du jaune due # # de toute evidence a la troisieme dimension (les "segments" situes aux extremites etant # # dans le meme plan vertical 'Z', ce qui n'est plus vrai ensuite a cause des derivees en # # 'Z' qui sont alors non nulles...). # # # # On notera de plus qu'elle n'est pas exactement sur un tore : cela vient en fait de # # 'v $xrv/champs_5.1C$I store_sphere'. En effet, les spheres tres a gauche de la branche # # jaune de gauche viennent vers nous, alors que les spheres tres a droite de la branche # # jaune de droite s'eloignent de nous. Il s'agit donc a la fois d'un probleme d'anti-aliasing # # et d'ordre de profondeur 'Z' des spheres... # # # # On notera que les extremites jaunes horizontales debordent du cadre de l'image a gauche # # # # ATTENTION : la regeneration a l'identique de l'image 'v $xiirv/STRU.bas.52' demande # # l'option "compatibilite_20081109=VRAI" lors de l'appel a '$xrv/particule.10$X' (ceci # # fut note le 20081231152558)... # # # # ATTENTION : il est preferable d'utiliser 'v $xiirv/STRU.bas.L2' qui est parfaitement # # periodique, plutot que 'v $xiirv/STRU.bas.52' qui ne l'est qu'approximativement... # v $xiirv/STRU.bas.53 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_53: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.52%s \ # # $Z HG_Ix=FAUX HG_Iy=FAUX \ # # $Z HD_Ix=FAUX HD_Iy=VRAI \ # # $Z BG_Ix=VRAI BG_Iy=FAUX \ # # $Z BD_Ix=VRAI BD_Iy=VRAI \ # # $Z R=$xiirv/STRU.bas.53%s \ # # $Z $formatI # # # # :Fin_listG_STRU_bas_53: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # v $xiirv/STRU.bas.54 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_54: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.52%s \ # # $Z HG_Ix=VRAI HG_Iy=FAUX \ # # $Z HD_Ix=VRAI HD_Iy=VRAI \ # # $Z BG_Ix=FAUX BG_Iy=FAUX \ # # $Z BD_Ix=FAUX BD_Iy=VRAI \ # # $Z R=$xiirv/STRU.bas.54%s \ # # $Z $formatI # # # # :Fin_listG_STRU_bas_54: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # v $xiirv/STRU.bas.524 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_524: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z c=4 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xiirv/STRU.bas.52%s \ # # $Z A2=$xiirv/STRU.bas.54%s \ # # $Z P=$xTV/GAUSS \ # # $Z R=$xiirv/STRU.bas.524%s \ # # $Z $formatI # # # # :Fin_listG_STRU_bas_524: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # v $xiirv/STRU.bas.61 v $xiirv/STRU.bas.62 v $xiirv/STRU.bas.63 v $xiirv/STRU.bas.64 v $xiirv/STRU.bas.65 v $xiirv/STRU.bas.66 v $xiirv/STRU.bas.67 v $xiirv/STRU.bas.68 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_61: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z FileTmpB FiLeTmP # # # # $Z set Noi=$NOIR # # $Z set Bla=$BLANC # # # # $Z echo "-0.1 +0.5 +0.5 1 0 0 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "0 +0.5 +0.5 1 0 0 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "0 +0.5 +0.5 +7.9 0 +1 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +0.9 +0.5 0 +7.9 +2 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +0.9 +0.5 0 1 0 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +1 +0.5 0 1 0 $Bla $Noi $Noi" >>! $FiLeTmP # # # # $Z echo "+0.5 0 +0.5 0 1 0 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +0.1 +0.5 0 1 0 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +0.1 +0.5 0 +7.5 -1 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+1.0 +0.5 +0.5 +7.5 0 -2 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "+1.0 +0.5 +0.5 +1 0 0 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "+1.1 +0.5 +0.5 +1 0 0 $Bla $Bla $Noi" >>! $FiLeTmP # # # # $Z set dcX="d"$COORD_X # # $Z set dcY="d"$COORD_Y # # $Z set dcZ="d"$COORD_Z # # # # $Z Fdecoupe $FiLeTmP $COORD_X $COORD_Y $COORD_Z $dcX $dcY $dcZ $ROUGE $VERTE $BLEUE # # # # $Z set NPoInTsX=`$CA $FiLeTmP$COORD_X | $WCl | $AW ' { print $1 } '` # # $Z set NPoInTsY=`$CA $FiLeTmP$COORD_Y | $WCl | $AW ' { print $1 } '` # # $Z set NPoInTsZ=`$CA $FiLeTmP$COORD_Z | $WCl | $AW ' { print $1 } '` # # # # $Z set NPoInTs=`$xcg/MIN3.01$X x=$NPoInTsX y=$NPoInTsY z=$NPoInTsZ` # # # # $Z set PaRaMs_p="$K_VIDE" # # $Z set PaRaMs_p="$PaRaMs_p"" npoints=$NPoInTs" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_X=$FiLeTmP$COORD_X" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_Y=$FiLeTmP$COORD_Y" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_Z=$FiLeTmP$COORD_Z" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_dX=$FiLeTmP$dcX" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_dY=$FiLeTmP$dcY" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_dZ=$FiLeTmP$dcZ" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_ROUGE=$FiLeTmP$ROUGE" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_VERTE=$FiLeTmP$VERTE" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_BLEUE=$FiLeTmP$BLEUE" # # $Z set PaRaMs_p="$PaRaMs_p"" isoles=FAUX" # # $Z set PaRaMs_p="$PaRaMs_p"" cubique=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_points=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" equidistance=VRAI distance_minimale=0.01" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_coordonnees=FAUX" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_independamment_homothetie=FAUX" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_independamment_translation=FAUX" # # $Z set PaRaMs_p="$PaRaMs_p"" Lz=1000" # # $Z set PaRaMs_p="$PaRaMs_p"" rayon_de_visualisation=0.06" # # $Z set PaRaMs_p="$PaRaMs_p"" ROTATION_OX=0" # # $Z set PaRaMs_p="$PaRaMs_p"" fond=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" chiffres=0" # # # # $Z set PaRaMs_t="$K_VIDE" # # $Z set PaRaMs_t="$PaRaMs_t"" HG_Ix=VRAI HG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" HD_Ix=VRAI HD_Iy=VRAI" # # $Z set PaRaMs_t="$PaRaMs_t"" BG_Ix=FAUX BG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" BD_Ix=FAUX BD_Iy=VRAI" # # # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z F=$xiirv/STRU.bas.54 \ # # $Z R=$xiirv/STRU.bas.61 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.61%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.62%s \ # # $Z $formatI # # # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z F=$xiirv/STRU.bas.62 \ # # $Z R=$xiirv/STRU.bas.63 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.63%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.64%s \ # # $Z $formatI # # # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z F=$xiirv/STRU.bas.64 \ # # $Z R=$xiirv/STRU.bas.65 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.65%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.66%s \ # # $Z $formatI # # # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z F=$xiirv/STRU.bas.66 \ # # $Z R=$xiirv/STRU.bas.67 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.67%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.68%s \ # # $Z $formatI # # # # $Z FileTmpE FiLeTmP # # # # :Fin_listG_STRU_bas_61: # # # # # # Ces images definissent des motifs de base periodiques pour des entrelacs du type 'STRU'... # # # # ATTENTION : la regeneration a l'identique des images 'v $xiirv/STRU.bas.6?' demande # # l'option "compatibilite_20081109=VRAI" lors des appels a '$xrv/particule.10$X' (ceci # # fut note le 20081231152558)... # # # # ATTENTION : il est preferable d'utiliser 'v $xiirv/STRU.bas.M?' qui sont parfaitement # # periodiques, plutot que 'v $xiirv/STRU.bas.6?' qui ne les sont qu'approximativement... # XYmaxNe 1079 719 ; v $xiirv/STRU.bat.61 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_bat_61: # # # # $Z XYmaxNe 1079 719 # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z FileTmpB FiLeTmP # # # # $Z set Noi=$NOIR # # $Z set Bla=$BLANC # # # # $Z echo "-0.1 +0.5 +0.5 1 0 0 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "0 +0.5 +0.5 1 0 0 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "0 +0.5 +0.5 +7.9 0 +1 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +0.9 +0.5 0 +7.9 +2 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +0.9 +0.5 0 1 0 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +1 +0.5 0 1 0 $Bla $Noi $Noi" >>! $FiLeTmP # # # # $Z echo "+0.5 0 +0.5 0 1 0 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +0.1 +0.5 0 1 0 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +0.1 +0.5 0 +7.5 -1 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+1.0 +0.5 +0.5 +7.5 0 -2 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "+1.0 +0.5 +0.5 +1 0 0 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "+1.1 +0.5 +0.5 +1 0 0 $Bla $Bla $Noi" >>! $FiLeTmP # # # # $Z set dcX="d"$COORD_X # # $Z set dcY="d"$COORD_Y # # $Z set dcZ="d"$COORD_Z # # # # $Z Fdecoupe $FiLeTmP $COORD_X $COORD_Y $COORD_Z $dcX $dcY $dcZ $ROUGE $VERTE $BLEUE # # # # $Z set NPoInTsX=`$CA $FiLeTmP$COORD_X | $WCl | $AW ' { print $1 } '` # # $Z set NPoInTsY=`$CA $FiLeTmP$COORD_Y | $WCl | $AW ' { print $1 } '` # # $Z set NPoInTsZ=`$CA $FiLeTmP$COORD_Z | $WCl | $AW ' { print $1 } '` # # # # $Z set NPoInTs=`$xcg/MIN3.01$X x=$NPoInTsX y=$NPoInTsY z=$NPoInTsZ` # # # # $Z set PaRaMs_p="$K_VIDE" # # $Z set PaRaMs_p="$PaRaMs_p"" npoints=$NPoInTs" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_X=$FiLeTmP$COORD_X" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_Y=$FiLeTmP$COORD_Y" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_Z=$FiLeTmP$COORD_Z" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_dX=$FiLeTmP$dcX" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_dY=$FiLeTmP$dcY" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_dZ=$FiLeTmP$dcZ" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_ROUGE=$FiLeTmP$ROUGE" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_VERTE=$FiLeTmP$VERTE" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_BLEUE=$FiLeTmP$BLEUE" # # $Z set PaRaMs_p="$PaRaMs_p"" isoles=FAUX" # # $Z set PaRaMs_p="$PaRaMs_p"" cubique=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_points=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" equidistance=VRAI distance_minimale=0.01" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_coordonnees=FAUX" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_independamment_homothetie=FAUX" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_independamment_translation=FAUX" # # $Z set PaRaMs_p="$PaRaMs_p"" Lz=1000" # # $Z set PaRaMs_p="$PaRaMs_p"" rayon_de_visualisation=0.06" # # $Z set PaRaMs_p="$PaRaMs_p"" ROTATION_OX=0" # # $Z set PaRaMs_p="$PaRaMs_p"" fond=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" chiffres=0" # # # # $Z set PaRaMs_t="$K_VIDE" # # $Z set PaRaMs_t="$PaRaMs_t"" HG_Ix=VRAI HG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" HD_Ix=VRAI HD_Iy=VRAI" # # $Z set PaRaMs_t="$PaRaMs_t"" BG_Ix=FAUX BG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" BD_Ix=FAUX BD_Iy=VRAI" # # # # $Z SformatI # # $Z Format $xiirv/STRU.bas.54$ROUGE # # $Z eval "$Format" # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$xiirv/STRU.bas.54%s \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xTV/STRU.bas.54%s \ # # $Z $sformatIR # # # # $Z RformatI # # # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z F=$xTV/STRU.bas.54 \ # # $Z R=$xiirv/STRU.bat.61 \ # # $Z $formatI # # # # $Z FileTmpE FiLeTmP # # # # :Fin_listG_STRU_bat_61: # # # # # # Images formellement identiques a 'v $xiirv/STRU.bas.61' et regeneree pour le CNRS # # ('v $Dcourrier_in/20150407103248 From.Christine.GIRARD@cnrs.fr..Fri.Apr.03.15:16:43.2015'). # v $xiirv/STRU.bas.71 v $xiirv/STRU.bas.72 v $xiirv/STRU.bas.73 v $xiirv/STRU.bas.74 v $xiirv/STRU.bas.75 v $xiirv/STRU.bas.76 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_71: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z FileTmpB FiLeTmP # # # # $Z set Noi=$NOIR # # $Z set Bla=$BLANC # # # # $Z echo "0 0 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "1 0 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "1 0 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "1 1 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "1 1 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "0 1 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "0 1 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "0 0 $Bla $Noi $Noi" >>! $FiLeTmP # # # # $Z Fdecoupe $FiLeTmP $COORD_X $COORD_Y $ROUGE $VERTE $BLEUE # # # # $Z set NPoInTsX=`$CA $FiLeTmP$COORD_X | $WCl | $AW ' { print $1 } '` # # $Z set NPoInTsY=`$CA $FiLeTmP$COORD_Y | $WCl | $AW ' { print $1 } '` # # # # $Z set NPoInTs=`$xcg/MIN2.01$X x=$NPoInTsX y=$NPoInTsY` # # # # $Z set RaYoN=0.10 # # # # $Z set HoMoThEtIeX=`calcul $dimX/$dimY` # # # # $Z set PaRaMs_p="$K_VIDE" # # $Z set PaRaMs_p="$PaRaMs_p"" npoints=$NPoInTs" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_X=$FiLeTmP$COORD_X" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_Y=$FiLeTmP$COORD_Y" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_Z=0.5" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_ROUGE=$FiLeTmP$ROUGE" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_VERTE=$FiLeTmP$VERTE" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_BLEUE=$FiLeTmP$BLEUE" # # $Z set PaRaMs_p="$PaRaMs_p"" isoles=FAUX" # # $Z set PaRaMs_p="$PaRaMs_p"" chainer=FAUX" # # $Z set PaRaMs_p="$PaRaMs_p"" cubique=FAUX" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_points=VRAI Rpoints=10" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_coordonnees=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_independamment_homothetie=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_independamment_translation=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" sAX=$HoMoThEtIeX" # # $Z set PaRaMs_p="$PaRaMs_p"" Lz=1000" # # $Z set PaRaMs_p="$PaRaMs_p"" rayon_de_visualisation=$RaYoN" # # $Z set PaRaMs_p="$PaRaMs_p"" ZOOM=0.78" # # $Z set PaRaMs_p="$PaRaMs_p"" ROTATION_OX=0" # # # # $Z set PaRaMs_t="$K_VIDE" # # $Z set PaRaMs_t="$PaRaMs_t"" HG_Ix=VRAI HG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" HD_Ix=VRAI HD_Iy=VRAI" # # $Z set PaRaMs_t="$PaRaMs_t"" BG_Ix=FAUX BG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" BD_Ix=FAUX BD_Iy=VRAI" # # # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=FAUX \ # # $Z R=$xiirv/STRU.bas.71 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.71%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.72%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xiirv/STRU.bas.72 \ # # $Z R=$xiirv/STRU.bas.72 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.72%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.73%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xiirv/STRU.bas.73 \ # # $Z R=$xiirv/STRU.bas.73 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.73%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.74%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xiirv/STRU.bas.74 \ # # $Z R=$xiirv/STRU.bas.74 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.74%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.75%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xiirv/STRU.bas.75 \ # # $Z R=$xiirv/STRU.bas.75 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.75%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.76%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xiirv/STRU.bas.76 \ # # $Z R=$xiirv/STRU.bas.76 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z FileTmpE FiLeTmP # # # # :Fin_listG_STRU_bas_71: # # # # # # Cette image definit un motif de base periodique pour des effets Larsen du type 'LARS'... # v $xiirv/STRU.bas.81 v $xiirv/STRU.bas.82 v $xiirv/STRU.bas.83 v $xiirv/STRU.bas.84 v $xiirv/STRU.bas.85 v $xiirv/STRU.bas.86 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_81: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z FileTmpB FiLeTmP # # # # $Z set Noi=$NOIR # # $Z set Bla=$BLANC # # # # $Z set dcX="d"$COORD_X # # $Z set dcY="d"$COORD_Y # # # # $Z set De=2 # # # # $Z echo "0 0 +$De +$De $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "1 0 +$De -$De $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "1 0 -$De +$De $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "1 1 +$De +$De $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "1 1 -$De -$De $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "0 1 -$De +$De $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "0 1 +$De -$De $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "0 0 -$De -$De $Bla $Noi $Noi" >>! $FiLeTmP # # # # $Z Fdecoupe $FiLeTmP $COORD_X $COORD_Y $dcX $dcY $ROUGE $VERTE $BLEUE # # # # $Z set NPoInTsX=`$CA $FiLeTmP$COORD_X | $WCl | $AW ' { print $1 } '` # # $Z set NPoInTsY=`$CA $FiLeTmP$COORD_Y | $WCl | $AW ' { print $1 } '` # # # # $Z set NPoInTs=`$xcg/MIN2.01$X x=$NPoInTsX y=$NPoInTsY` # # # # $Z set RaYoN=0.10 # # # # $Z set HoMoThEtIeX=`calcul $dimX/$dimY` # # # # $Z set PaRaMs_p="$K_VIDE" # # $Z set PaRaMs_p="$PaRaMs_p"" npoints=$NPoInTs" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_X=$FiLeTmP$COORD_X" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_Y=$FiLeTmP$COORD_Y" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_Z=0.5" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_dX=$FiLeTmP$dcX" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_dY=$FiLeTmP$dcY" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_ROUGE=$FiLeTmP$ROUGE" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_VERTE=$FiLeTmP$VERTE" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_BLEUE=$FiLeTmP$BLEUE" # # $Z set PaRaMs_p="$PaRaMs_p"" isoles=FAUX" # # $Z set PaRaMs_p="$PaRaMs_p"" chainer=FAUX" # # $Z set PaRaMs_p="$PaRaMs_p"" cubique=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_points=VRAI Rpoints=10" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_coordonnees=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_independamment_homothetie=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_independamment_translation=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" sAX=$HoMoThEtIeX" # # $Z set PaRaMs_p="$PaRaMs_p"" Lz=1000" # # $Z set PaRaMs_p="$PaRaMs_p"" rayon_de_visualisation=$RaYoN" # # $Z set PaRaMs_p="$PaRaMs_p"" ZOOM=0.78" # # $Z set PaRaMs_p="$PaRaMs_p"" ROTATION_OX=0" # # # # $Z set PaRaMs_t="$K_VIDE" # # $Z set PaRaMs_t="$PaRaMs_t"" HG_Ix=VRAI HG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" HD_Ix=VRAI HD_Iy=VRAI" # # $Z set PaRaMs_t="$PaRaMs_t"" BG_Ix=FAUX BG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" BD_Ix=FAUX BD_Iy=VRAI" # # # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=FAUX \ # # $Z R=$xiirv/STRU.bas.81 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.81%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.82%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xiirv/STRU.bas.82 \ # # $Z R=$xiirv/STRU.bas.82 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.82%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.83%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xiirv/STRU.bas.83 \ # # $Z R=$xiirv/STRU.bas.83 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.83%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.84%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xiirv/STRU.bas.84 \ # # $Z R=$xiirv/STRU.bas.84 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.84%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.85%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xiirv/STRU.bas.85 \ # # $Z R=$xiirv/STRU.bas.85 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.85%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.86%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xiirv/STRU.bas.86 \ # # $Z R=$xiirv/STRU.bas.86 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z FileTmpE FiLeTmP # # # # :Fin_listG_STRU_bas_81: # # # # # # Cette image definit un motif de base periodique pour des effets Larsen du type 'LARS'... # XYmaxNe 1079 719 ; v $xiirv/STRU.bat.86 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bat_86: # # # # $Z XYmaxNe 1079 719 # # # # $Z setenv xTV $xTG # # # # $Z FileTmpB FiLeTmP # # # # $Z set Noi=$NOIR # # $Z set Bla=$BLANC # # # # $Z set dcX="d"$COORD_X # # $Z set dcY="d"$COORD_Y # # # # $Z set De=2 # # # # $Z echo "0 0 +$De +$De $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "1 0 +$De -$De $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "1 0 -$De +$De $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "1 1 +$De +$De $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "1 1 -$De -$De $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "0 1 -$De +$De $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "0 1 +$De -$De $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "0 0 -$De -$De $Bla $Noi $Noi" >>! $FiLeTmP # # # # $Z Fdecoupe $FiLeTmP $COORD_X $COORD_Y $dcX $dcY $ROUGE $VERTE $BLEUE # # # # $Z set NPoInTsX=`$CA $FiLeTmP$COORD_X | $WCl | $AW ' { print $1 } '` # # $Z set NPoInTsY=`$CA $FiLeTmP$COORD_Y | $WCl | $AW ' { print $1 } '` # # # # $Z set NPoInTs=`$xcg/MIN2.01$X x=$NPoInTsX y=$NPoInTsY` # # # # $Z set RaYoN=0.10 # # # # $Z set HoMoThEtIeX=`calcul $dimX/$dimY` # # # # $Z set PaRaMs_p="$K_VIDE" # # $Z set PaRaMs_p="$PaRaMs_p"" npoints=$NPoInTs" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_X=$FiLeTmP$COORD_X" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_Y=$FiLeTmP$COORD_Y" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_Z=0.5" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_dX=$FiLeTmP$dcX" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_dY=$FiLeTmP$dcY" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_ROUGE=$FiLeTmP$ROUGE" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_VERTE=$FiLeTmP$VERTE" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_BLEUE=$FiLeTmP$BLEUE" # # $Z set PaRaMs_p="$PaRaMs_p"" isoles=FAUX" # # $Z set PaRaMs_p="$PaRaMs_p"" chainer=FAUX" # # $Z set PaRaMs_p="$PaRaMs_p"" cubique=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_points=VRAI Rpoints=10" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_coordonnees=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_independamment_homothetie=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_independamment_translation=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" sAX=$HoMoThEtIeX" # # $Z set PaRaMs_p="$PaRaMs_p"" Lz=1000" # # $Z set PaRaMs_p="$PaRaMs_p"" rayon_de_visualisation=$RaYoN" # # $Z set PaRaMs_p="$PaRaMs_p"" ZOOM=0.78" # # $Z set PaRaMs_p="$PaRaMs_p"" ROTATION_OX=0" # # # # $Z set PaRaMs_t="$K_VIDE" # # $Z set PaRaMs_t="$PaRaMs_t"" HG_Ix=VRAI HG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" HD_Ix=VRAI HD_Iy=VRAI" # # $Z set PaRaMs_t="$PaRaMs_t"" BG_Ix=FAUX BG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" BD_Ix=FAUX BD_Iy=VRAI" # # # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=FAUX \ # # $Z R=$xTV/STRU.bat.81 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xTV/STRU.bat.81%s \ # # $Z $PaRaMs_t \ # # $Z R=$xTV/STRU.bat.82%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xTV/STRU.bat.82 \ # # $Z R=$xTV/STRU.bat.82 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xTV/STRU.bat.82%s \ # # $Z $PaRaMs_t \ # # $Z R=$xTV/STRU.bat.83%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xTV/STRU.bat.83 \ # # $Z R=$xTV/STRU.bat.83 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xTV/STRU.bat.83%s \ # # $Z $PaRaMs_t \ # # $Z R=$xTV/STRU.bat.84%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xTV/STRU.bat.84 \ # # $Z R=$xTV/STRU.bat.84 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xTV/STRU.bat.84%s \ # # $Z $PaRaMs_t \ # # $Z R=$xTV/STRU.bat.85%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xTV/STRU.bat.85 \ # # $Z R=$xTV/STRU.bat.85 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xTV/STRU.bat.85%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bat.86%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xiirv/STRU.bat.86 \ # # $Z R=$xiirv/STRU.bat.86 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z FileTmpE FiLeTmP # # # # :Fin_listG_STRU_bat_86: # # # # # # Images formellement identiques a 'v $xiirv/STRU.bas.86' et regeneree pour le CNRS # # ('v $Dcourrier_in/20150407103248 From.Christine.GIRARD@cnrs.fr..Fri.Apr.03.15:16:43.2015'). # v $xiirv/STRU.bas.91 v $xiirv/STRU.bas.92 v $xiirv/STRU.bas.93 v $xiirv/STRU.bas.94 v $xiirv/STRU.bas.95 v $xiirv/STRU.bas.96 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_91: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z FileTmpB FiLeTmP # # # # $Z set Noi=$NOIR # # $Z set Bla=$BLANC # # # # $Z set dcX="d"$COORD_X # # $Z set dcY="d"$COORD_Y # # $Z set dcZ="d"$COORD_Z # # # # $Z set De=1 # # # # $Z echo "+0.1 +0.1 +0.5 +$De +$De +1 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+0.9 +0.1 +0.5 +$De -$De -1 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "+0.9 +0.1 +0.5 -$De +$De -1 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "+0.9 +0.9 +0.5 +$De +$De +1 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+0.9 +0.9 +0.5 -$De -$De -1 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+0.1 +0.9 +0.5 -$De +$De +1 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "+0.1 +0.9 +0.5 +$De -$De +1 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "+0.1 +0.1 +0.5 -$De -$De -1 $Bla $Noi $Noi" >>! $FiLeTmP # # # # $Z echo "-0.1 +0.5 +0.5 1 0 0 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "0 +0.5 +0.5 1 0 0 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "0 +0.5 +0.5 +7.9 0 +1 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +0.9 +0.5 0 +7.9 +2 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +0.9 +0.5 0 1 0 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +1 +0.5 0 1 0 $Bla $Noi $Noi" >>! $FiLeTmP # # # # $Z echo "+0.5 0 +0.5 0 1 0 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +0.1 +0.5 0 1 0 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +0.1 +0.5 0 +7.5 -1 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+1.0 +0.5 +0.5 +7.5 0 -2 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "+1.0 +0.5 +0.5 +1 0 0 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "+1.1 +0.5 +0.5 +1 0 0 $Bla $Bla $Noi" >>! $FiLeTmP # # # # $Z Fdecoupe $FiLeTmP $COORD_X $COORD_Y $COORD_Z $dcX $dcY $dcZ $ROUGE $VERTE $BLEUE # # # # $Z set NPoInTsX=`$CA $FiLeTmP$COORD_X | $WCl | $AW ' { print $1 } '` # # $Z set NPoInTsY=`$CA $FiLeTmP$COORD_Y | $WCl | $AW ' { print $1 } '` # # # # $Z set NPoInTs=`$xcg/MIN2.01$X x=$NPoInTsX y=$NPoInTsY` # # # # $Z set RaYoN=0.06 # # # # $Z set HoMoThEtIeX=`calcul $dimX/$dimY` # # # # $Z set PaRaMs_p="$K_VIDE" # # $Z set PaRaMs_p="$PaRaMs_p"" npoints=$NPoInTs" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_X=$FiLeTmP$COORD_X" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_Y=$FiLeTmP$COORD_Y" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_Z=$FiLeTmP$COORD_Z" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_dX=$FiLeTmP$dcX" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_dY=$FiLeTmP$dcY" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_dZ=$FiLeTmP$dcZ" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_ROUGE=$FiLeTmP$ROUGE" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_VERTE=$FiLeTmP$VERTE" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_BLEUE=$FiLeTmP$BLEUE" # # $Z set PaRaMs_p="$PaRaMs_p"" isoles=FAUX" # # $Z set PaRaMs_p="$PaRaMs_p"" chainer=FAUX" # # $Z set PaRaMs_p="$PaRaMs_p"" cubique=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_points=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" equidistance=VRAI distance_minimale=0.01" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_coordonnees=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_independamment_homothetie=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_independamment_translation=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" sAX=$HoMoThEtIeX" # # $Z set PaRaMs_p="$PaRaMs_p"" Lz=1000" # # $Z set PaRaMs_p="$PaRaMs_p"" rayon_de_visualisation=$RaYoN" # # $Z set PaRaMs_p="$PaRaMs_p"" ZOOM=1.0" # # $Z set PaRaMs_p="$PaRaMs_p"" ROTATION_OX=0" # # # # $Z set PaRaMs_t="$K_VIDE" # # $Z set PaRaMs_t="$PaRaMs_t"" HG_Ix=VRAI HG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" HD_Ix=VRAI HD_Iy=VRAI" # # $Z set PaRaMs_t="$PaRaMs_t"" BG_Ix=FAUX BG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" BD_Ix=FAUX BD_Iy=VRAI" # # # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=FAUX \ # # $Z R=$xiirv/STRU.bas.91 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.91%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.92%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xiirv/STRU.bas.92 \ # # $Z R=$xiirv/STRU.bas.92 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.92%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.93%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xiirv/STRU.bas.93 \ # # $Z R=$xiirv/STRU.bas.93 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.93%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.94%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xiirv/STRU.bas.94 \ # # $Z R=$xiirv/STRU.bas.94 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.94%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.95%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xiirv/STRU.bas.95 \ # # $Z R=$xiirv/STRU.bas.95 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.95%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.96%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xiirv/STRU.bas.96 \ # # $Z R=$xiirv/STRU.bas.96 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z FileTmpE FiLeTmP # # # # :Fin_listG_STRU_bas_91: # # # v $xiirv/STRU.bas.A1 v $xiirv/STRU.bas.A2 v $xiirv/STRU.bas.A3 v $xiirv/STRU.bas.A4 v $xiirv/STRU.bas.A5 v $xiirv/STRU.bas.A6 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_A1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z FileTmpB FiLeTmP # # # # $Z set Noi=$GRIS_0 # # $Z set Gri=$GRIS_2 # # $Z set Bla=$GRIS_8 # # # # $Z set dcX="d"$COORD_X # # $Z set dcY="d"$COORD_Y # # $Z set dcZ="d"$COORD_Z # # # # $Z set De=1 # # # # $Z echo "+0.1 +0.1 +0.5 +$De +$De +1 $Gri $Gri $Gri" >>! $FiLeTmP # # $Z echo "+0.9 +0.1 +0.5 +$De -$De -1 $Bla $Bla $Bla" >>! $FiLeTmP # # $Z echo "+0.9 +0.1 +0.5 -$De +$De -1 $Bla $Bla $Bla" >>! $FiLeTmP # # $Z echo "+0.9 +0.9 +0.5 +$De +$De +1 $Gri $Gri $Gri" >>! $FiLeTmP # # $Z echo "+0.9 +0.9 +0.5 -$De -$De -1 $Gri $Gri $Gri" >>! $FiLeTmP # # $Z echo "+0.1 +0.9 +0.5 -$De +$De +1 $Bla $Bla $Bla" >>! $FiLeTmP # # $Z echo "+0.1 +0.9 +0.5 +$De -$De +1 $Bla $Bla $Bla" >>! $FiLeTmP # # $Z echo "+0.1 +0.1 +0.5 -$De -$De -1 $Gri $Gri $Gri" >>! $FiLeTmP # # # # $Z echo "-0.1 +0.5 +0.5 1 0 0 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "0 +0.5 +0.5 1 0 0 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "0 +0.5 +0.5 +7.9 0 +1 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +0.9 +0.5 0 +7.9 +2 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +0.9 +0.5 0 1 0 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +1 +0.5 0 1 0 $Bla $Noi $Noi" >>! $FiLeTmP # # # # $Z echo "+0.5 0 +0.5 0 1 0 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +0.1 +0.5 0 1 0 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+0.5 +0.1 +0.5 0 +7.5 -1 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "+1.0 +0.5 +0.5 +7.5 0 -2 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "+1.0 +0.5 +0.5 +1 0 0 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "+1.1 +0.5 +0.5 +1 0 0 $Bla $Bla $Noi" >>! $FiLeTmP # # # # $Z Fdecoupe $FiLeTmP $COORD_X $COORD_Y $COORD_Z $dcX $dcY $dcZ $ROUGE $VERTE $BLEUE # # # # $Z set NPoInTsX=`$CA $FiLeTmP$COORD_X | $WCl | $AW ' { print $1 } '` # # $Z set NPoInTsY=`$CA $FiLeTmP$COORD_Y | $WCl | $AW ' { print $1 } '` # # # # $Z set NPoInTs=`$xcg/MIN2.01$X x=$NPoInTsX y=$NPoInTsY` # # # # $Z set RaYoN=0.06 # # # # $Z set HoMoThEtIeX=`calcul $dimX/$dimY` # # # # $Z set PaRaMs_p="$K_VIDE" # # $Z set PaRaMs_p="$PaRaMs_p"" npoints=$NPoInTs" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_X=$FiLeTmP$COORD_X" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_Y=$FiLeTmP$COORD_Y" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_Z=$FiLeTmP$COORD_Z" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_dX=$FiLeTmP$dcX" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_dY=$FiLeTmP$dcY" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_dZ=$FiLeTmP$dcZ" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_ROUGE=$FiLeTmP$ROUGE" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_VERTE=$FiLeTmP$VERTE" # # $Z set PaRaMs_p="$PaRaMs_p"" LISTE_BLEUE=$FiLeTmP$BLEUE" # # $Z set PaRaMs_p="$PaRaMs_p"" isoles=FAUX" # # $Z set PaRaMs_p="$PaRaMs_p"" chainer=FAUX" # # $Z set PaRaMs_p="$PaRaMs_p"" cubique=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_points=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" equidistance=VRAI distance_minimale=0.01" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_coordonnees=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_independamment_homothetie=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" ajuster_independamment_translation=VRAI" # # $Z set PaRaMs_p="$PaRaMs_p"" sAX=$HoMoThEtIeX" # # $Z set PaRaMs_p="$PaRaMs_p"" Lz=1000" # # $Z set PaRaMs_p="$PaRaMs_p"" rayon_de_visualisation=$RaYoN" # # $Z set PaRaMs_p="$PaRaMs_p"" ZOOM=1.0" # # $Z set PaRaMs_p="$PaRaMs_p"" ROTATION_OX=0" # # # # $Z set PaRaMs_t="$K_VIDE" # # $Z set PaRaMs_t="$PaRaMs_t"" HG_Ix=VRAI HG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" HD_Ix=VRAI HD_Iy=VRAI" # # $Z set PaRaMs_t="$PaRaMs_t"" BG_Ix=FAUX BG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" BD_Ix=FAUX BD_Iy=VRAI" # # # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=FAUX \ # # $Z R=$xiirv/STRU.bas.A1 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.A1%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.A2%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xiirv/STRU.bas.A2 \ # # $Z R=$xiirv/STRU.bas.A2 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.A2%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.A3%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xiirv/STRU.bas.A3 \ # # $Z R=$xiirv/STRU.bas.A3 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.A3%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.A4%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xiirv/STRU.bas.A4 \ # # $Z R=$xiirv/STRU.bas.A4 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.A4%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.A5%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xiirv/STRU.bas.A5 \ # # $Z R=$xiirv/STRU.bas.A5 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.A5%s \ # # $Z $PaRaMs_t \ # # $Z R=$xiirv/STRU.bas.A6%s \ # # $Z $formatI # # $Z $xrv/particule.10$X \ # # $Z $PaRaMs_p \ # # $Z fond=VRAI \ # # $Z F=$xiirv/STRU.bas.A6 \ # # $Z R=$xiirv/STRU.bas.A6 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z FileTmpE FiLeTmP # # # # :Fin_listG_STRU_bas_A1: # # # v $xiirv/STRU.bas.B1 p=$xiP/gris.01 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_B1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/init$X \ # # $Z n=$NOIR \ # # $Z R=$xTV/DAMIER.0001 \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z n=$BLANC \ # # $Z R=$xTV/DAMIER.0002 \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z n=$BLANC \ # # $Z R=$xTV/DAMIER.0003 \ # # $Z $formatI # # $Z $xci/init$X \ # # $Z n=$NOIR \ # # $Z R=$xTV/DAMIER.0004 \ # # $Z $formatI # # # # $Z set PoInTs=`calculI 49*49` # # # # $Z $xci/reduction_04$X \ # # $Z A=$xTV/DAMIER. \ # # $Z premiere=1 derniere=4 pas=1 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=9 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=$PoInTs \ # # $Z tore=VRAI \ # # $Z R=$xiirv/STRU.bas.B1 \ # # $Z $formatI # # # # :Fin_listG_STRU_bas_B1: # # # v $xiirv/STRU.bas.B2 p=$xiP/gris.01 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_B2: # # # # $Z Pal # # # # $Z $xci/reduction_04$X \ # # $Z A=$xiirv/STRU.bas.B1 \ # # $Z chiffres=0 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=9 \ # # $Z R=$xiirv/STRU.bas.B2 \ # # $Z $formatI # # # # :Fin_listG_STRU_bas_B2: # # # v $xiirv/STRU.bas.B3 p=$xiP/gris.01 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_B3: # # # # $Z Pal # # # # $Z $xci/reduction_04$X \ # # $Z A=$xiirv/STRU.bas.B2 \ # # $Z chiffres=0 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=9 \ # # $Z R=$xiirv/STRU.bas.B3 \ # # $Z $formatI # # # # :Fin_listG_STRU_bas_B3: # # # v $xiirv/STRU.bas.C1 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_C1: # # # # $Z Pal # # # # $Z source $xrd/graph.01$vv$Y # # # # $Z G_Init # # # # $Z set PaLeTtE="$xiP/rouge_orang" # # # # $Z set NChIfFrEs=40 # # # # $Z set Kmin_RaNdOm=0.04 # # $Z set Kmax_RaNdOm=0.04 # # # # $Z set Xmin_RaNdOm=-0.08 # # $Z set Xmax_RaNdOm=+0.90 # # # # $Z set Ymin_RaNdOm=-0.08 # # $Z set Ymax_RaNdOm=+0.82 # # # # $Z set Zmin_RaNdOm=+0.10 # # $Z set Zmax_RaNdOm=+0.20 # # # # $Z set Cmin_RaNdOm=1 # # $Z set Cmax_RaNdOm=10 # # # # $Z set Rmin_RaNdOm=0.03 # # $Z set Rmax_RaNdOm=0.03 # # # # $Z set Nmin_RaNdOm=$GRIS_0 # # $Z set Nmax_RaNdOm=$GRIS_8 # # # # $Z set ArGs="premiere=1 derniere=$NChIfFrEs signe=$K_VIDE" # # # # $Z set ArGsK="inf=$Kmin_RaNdOm sup=$Kmax_RaNdOm entiers=FAUX" # # $Z set ArGsX="inf=$Xmin_RaNdOm sup=$Xmax_RaNdOm entiers=FAUX" # # $Z set ArGsY="inf=$Ymin_RaNdOm sup=$Ymax_RaNdOm entiers=FAUX" # # $Z set ArGsZ="inf=$Zmin_RaNdOm sup=$Zmax_RaNdOm entiers=FAUX" # # $Z set ArGsC="inf=$Cmin_RaNdOm sup=$Cmax_RaNdOm entiers=VRAI mbse=FAUX" # # $Z set ArGsR="inf=$Rmin_RaNdOm sup=$Rmax_RaNdOm entiers=FAUX" # # $Z set ArGsN="inf=$Nmin_RaNdOm sup=$Nmax_RaNdOm entiers=VRAI mbse=FAUX" # # # # $Z set LiStE_K=`$xci/valeurs_alea$X $ArGs $ArGsK graine=3333` # # $Z set LiStE_X=`$xci/valeurs_alea$X $ArGs $ArGsX graine=1111` # # $Z set LiStE_Y=`$xci/valeurs_alea$X $ArGs $ArGsY graine=1133` # # $Z set LiStE_Z=`$xci/valeurs_alea$X $ArGs $ArGsZ graine=1155` # # $Z set LiStE_Cr=`$xci/valeurs_alea$X $ArGs $ArGsC graine=5555` # # $Z set LiStE_Cc=(O 1 2 3 4 5 6 7 8 9) # # $Z set LiStE_R=`$xci/valeurs_alea$X $ArGs $ArGsR graine=7777` # # $Z set LiStE_N=`$xci/valeurs_alea$X $ArGs $ArGsN graine=9999` # # # # $Z set NuMeRo=1 # # # # $Z while ($NuMeRo <= $NChIfFrEs) # # $Z G_K $LiStE_K[$NuMeRo] # # $Z G_Cursor1 $LiStE_X[$NuMeRo] $LiStE_Y[$NuMeRo] $LiStE_Z[$NuMeRo] # # # # $Z set NiVo=$LiStE_N[$NuMeRo] # # $Z set C_RVB=`$xciP/G_NIVEAU$X p=$PaLeTtE n=$NiVo Prme=VRAI` # # $Z G_Cursor2 $C_RVB[1] $C_RVB[2] $C_RVB[3] # # # # $Z G_Cursor3 $LiStE_R[$NuMeRo] # # # # $Z set CaRaCtErE=$LiStE_Cr[$NuMeRo] # # $Z eval `G_Message $LiStE_Cc[$CaRaCtErE]` # # # # $Z @ NuMeRo = $NuMeRo + 1 # # $Z end # # # # $Z set PArGs="$K_VIDE" # # $Z set PArGs="$PArGs"" ZOOM=1" # # $Z set PArGs="$PArGs"" equidistance=VRAI" # # $Z set PArGs="$PArGs"" adapter_coordonnees_format_image=VRAI" # # $Z set PArGs="$PArGs"" adapter_grandement_coordonnees_format_image=VRAI" # # $Z G_Genere $xiirv/STRU.bas.C1 $PArGs # # # # :Fin_listG_STRU_bas_C1: # # # v $xiirv/STRU.bas.D1 v $xiirv/STRU.bas.D2 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_D1: # # # # $Z Pal # # # # $Z source $xrd/graph.01$vv$Y # # # # $Z G_Init # # # # $Z set PaLeTtE="$xiP/rouge_orang" # # # # $Z set NChIfFrEs=20 # # # # $Z set Kmin_RaNdOm=0.04 # # $Z set Kmax_RaNdOm=0.04 # # # # $Z set Xmin_RaNdOm=-0.08 # # $Z set Xmax_RaNdOm=+0.90 # # # # $Z set Ymin_RaNdOm=-0.08 # # $Z set Ymax_RaNdOm=+0.82 # # # # $Z set Zmin_RaNdOm=+0.10 # # $Z set Zmax_RaNdOm=+0.20 # # # # $Z set Cmin_RaNdOm=1 # # $Z set Cmax_RaNdOm=10 # # # # $Z set Rmin_RaNdOm=0.03 # # $Z set Rmax_RaNdOm=0.03 # # # # $Z set Nmin_RaNdOm=$GRIS_0 # # $Z set Nmax_RaNdOm=$GRIS_8 # # # # $Z set ArGs="premiere=1 derniere=$NChIfFrEs signe=$K_VIDE" # # # # $Z set ArGsK="inf=$Kmin_RaNdOm sup=$Kmax_RaNdOm entiers=FAUX" # # $Z set ArGsX="inf=$Xmin_RaNdOm sup=$Xmax_RaNdOm entiers=FAUX" # # $Z set ArGsY="inf=$Ymin_RaNdOm sup=$Ymax_RaNdOm entiers=FAUX" # # $Z set ArGsZ="inf=$Zmin_RaNdOm sup=$Zmax_RaNdOm entiers=FAUX" # # $Z set ArGsC="inf=$Cmin_RaNdOm sup=$Cmax_RaNdOm entiers=VRAI mbse=FAUX" # # $Z set ArGsR="inf=$Rmin_RaNdOm sup=$Rmax_RaNdOm entiers=FAUX" # # $Z set ArGsN="inf=$Nmin_RaNdOm sup=$Nmax_RaNdOm entiers=VRAI mbse=FAUX" # # # # $Z set LiStE_K=`$xci/valeurs_alea$X $ArGs $ArGsK graine=3333` # # $Z set LiStE_X=`$xci/valeurs_alea$X $ArGs $ArGsX graine=1111` # # $Z set LiStE_Y=`$xci/valeurs_alea$X $ArGs $ArGsY graine=1133` # # $Z set LiStE_Z=`$xci/valeurs_alea$X $ArGs $ArGsZ graine=1155` # # $Z set LiStE_Cr=`$xci/valeurs_alea$X $ArGs $ArGsC graine=5555` # # $Z set LiStE_Cc=(O 1 2 3 4 5 6 7 8 9) # # $Z set LiStE_R=`$xci/valeurs_alea$X $ArGs $ArGsR graine=7777` # # $Z set LiStE_N=`$xci/valeurs_alea$X $ArGs $ArGsN graine=9999` # # # # $Z set NuMeRo=1 # # # # $Z while ($NuMeRo <= $NChIfFrEs) # # $Z G_K $LiStE_K[$NuMeRo] # # $Z G_Cursor1 $LiStE_X[$NuMeRo] $LiStE_Y[$NuMeRo] $LiStE_Z[$NuMeRo] # # # # $Z set NiVo=$LiStE_N[$NuMeRo] # # $Z set C_RVB=`$xciP/G_NIVEAU$X p=$PaLeTtE n=$NiVo Prme=VRAI` # # $Z G_Cursor2 $C_RVB[1] $C_RVB[2] $C_RVB[3] # # # # $Z G_Cursor3 $LiStE_R[$NuMeRo] # # # # $Z set CaRaCtErE=$LiStE_Cr[$NuMeRo] # # $Z eval `G_Message $LiStE_Cc[$CaRaCtErE]` # # # # $Z @ NuMeRo = $NuMeRo + 1 # # $Z end # # # # $Z set PArGs="$K_VIDE" # # $Z set PArGs="$PArGs"" ZOOM=1" # # $Z set PArGs="$PArGs"" equidistance=VRAI" # # $Z set PArGs="$PArGs"" adapter_coordonnees_format_image=VRAI" # # $Z set PArGs="$PArGs"" adapter_grandement_coordonnees_format_image=VRAI" # # $Z G_Genere $xiirv/STRU.bas.D1 $PArGs # # # # $Z execRVB "$xci/move$X \ # # $Z A=$xiirv/STRU.bas.D1%s \ # # $Z thR=VRAI tvR=VRAI \ # # $Z xR=0.2 yR=0.7 \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z A=$xiirv/STRU.bas.D1%s \ # # $Z anti_aliasing=VRAI \ # # $Z R=$xiirv/STRU.bas.D2%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_bas_D1: # # # # # # L'image 'v $xiirv/STRU.bas.D2' est donc (contrairement a 'v $xiirv/STRU.bas.D1') # # periodique en 'X' et 'Y'... # v $xiirv/STRU.bas.E1 v $xiirv/STRU.bas.E2 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_E1: # # # # $Z Pal # # # # $Z source $xrd/graph.01$vv$Y # # # # $Z G_Init # # # # $Z set PaLeTtE="$xiP/rouge_orang" # # # # $Z set NChIfFrEs=40 # # # # $Z set Kmin_RaNdOm=0.03 # # $Z set Kmax_RaNdOm=0.03 # # # # $Z set Xmin_RaNdOm=-0.08 # # $Z set Xmax_RaNdOm=+0.90 # # # # $Z set Ymin_RaNdOm=-0.08 # # $Z set Ymax_RaNdOm=+0.82 # # # # $Z set Zmin_RaNdOm=+0.10 # # $Z set Zmax_RaNdOm=+0.20 # # # # $Z set Cmin_RaNdOm=1 # # $Z set Cmax_RaNdOm=10 # # # # $Z set Rmin_RaNdOm=0.03 # # $Z set Rmax_RaNdOm=0.03 # # # # $Z set Nmin_RaNdOm=$GRIS_0 # # $Z set Nmax_RaNdOm=$GRIS_8 # # # # $Z set ArGs="premiere=1 derniere=$NChIfFrEs signe=$K_VIDE" # # # # $Z set ArGsK="inf=$Kmin_RaNdOm sup=$Kmax_RaNdOm entiers=FAUX" # # $Z set ArGsX="inf=$Xmin_RaNdOm sup=$Xmax_RaNdOm entiers=FAUX" # # $Z set ArGsY="inf=$Ymin_RaNdOm sup=$Ymax_RaNdOm entiers=FAUX" # # $Z set ArGsZ="inf=$Zmin_RaNdOm sup=$Zmax_RaNdOm entiers=FAUX" # # $Z set ArGsC="inf=$Cmin_RaNdOm sup=$Cmax_RaNdOm entiers=VRAI mbse=FAUX" # # $Z set ArGsR="inf=$Rmin_RaNdOm sup=$Rmax_RaNdOm entiers=FAUX" # # $Z set ArGsN="inf=$Nmin_RaNdOm sup=$Nmax_RaNdOm entiers=VRAI mbse=FAUX" # # # # $Z set LiStE_K=`$xci/valeurs_alea$X $ArGs $ArGsK graine=3333` # # $Z set LiStE_X=`$xci/valeurs_alea$X $ArGs $ArGsX graine=7111` # # $Z set LiStE_Y=`$xci/valeurs_alea$X $ArGs $ArGsY graine=7133` # # $Z set LiStE_Z=`$xci/valeurs_alea$X $ArGs $ArGsZ graine=7155` # # $Z set LiStE_Cr=`$xci/valeurs_alea$X $ArGs $ArGsC graine=5555` # # $Z set LiStE_Cc=(O 1 2 3 4 5 6 7 8 9) # # $Z set LiStE_R=`$xci/valeurs_alea$X $ArGs $ArGsR graine=7777` # # $Z set LiStE_N=`$xci/valeurs_alea$X $ArGs $ArGsN graine=9999` # # # # $Z set NuMeRo=1 # # # # $Z while ($NuMeRo <= $NChIfFrEs) # # $Z G_K $LiStE_K[$NuMeRo] # # $Z G_Cursor1 $LiStE_X[$NuMeRo] $LiStE_Y[$NuMeRo] $LiStE_Z[$NuMeRo] # # # # $Z set NiVo=$LiStE_N[$NuMeRo] # # $Z set C_RVB=`$xciP/G_NIVEAU$X p=$PaLeTtE n=$NiVo Prme=VRAI` # # $Z G_Cursor2 $C_RVB[1] $C_RVB[2] $C_RVB[3] # # # # $Z G_Cursor3 $LiStE_R[$NuMeRo] # # # # $Z set CaRaCtErE=$LiStE_Cr[$NuMeRo] # # $Z eval `G_Message $LiStE_Cc[$CaRaCtErE]` # # # # $Z @ NuMeRo = $NuMeRo + 1 # # $Z end # # # # $Z set PArGs="$K_VIDE" # # $Z set PArGs="$PArGs"" ZOOM=1" # # $Z set PArGs="$PArGs"" equidistance=VRAI" # # $Z set PArGs="$PArGs"" adapter_coordonnees_format_image=VRAI" # # $Z set PArGs="$PArGs"" adapter_grandement_coordonnees_format_image=VRAI" # # $Z G_Genere $xiirv/STRU.bas.E1 $PArGs # # # # $Z execRVB "$xci/move$X \ # # $Z A=$xiirv/STRU.bas.E1%s \ # # $Z thR=VRAI tvR=VRAI \ # # $Z xR=0.2 yR=0.7 \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z A=$xiirv/STRU.bas.E1%s \ # # $Z anti_aliasing=VRAI \ # # $Z R=$xiirv/STRU.bas.E2%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_bas_E1: # # # # # # L'image 'v $xiirv/STRU.bas.D2' est donc (contrairement a 'v $xiirv/STRU.bas.D1') # # periodique en 'X' et 'Y'... # v $xiirv/STRU.bas.F1 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_F1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SformatI # # # # $Z set PrOpOrTiOn=`calcul $dimX/$dimY` # # $Z set NPoInTsY=6 # # $Z set NPoInTsX=`calculINS ($NPoInTsY+2)*$PrOpOrTiOn-2` # # $Z XYmaxNe 0 `calculINS $NPoInTsX-1` 0 `calculINS $NPoInTsY-1` # # # # $Z FileTmpB FCoOrD_1 # # # # $Z set MiNiMuM_XY=0 # # $Z set MaXiMuM_XY=1 # # # # $Z $xci/valeurs_imag$X \ # # $Z PX=1 PY=0 \ # # $Z ValiderAxes=FAUX \ # # $Z signe="$K_VIDE" \ # # $Z $formatI \ # # $Z > $FCoOrD_1$COORD_X # # $Z $xci/valeurs_imag$X \ # # $Z PX=0 PY=1 \ # # $Z ValiderAxes=FAUX \ # # $Z signe="$K_VIDE" \ # # $Z $formatI \ # # $Z > $FCoOrD_1$COORD_Y # # # # $Z RformatI # # # # $Z $PAST $FCoOrD_1$COORD_X $FCoOrD_1$COORD_Y | \ # # $Z $R "$K_TAB" "$K_BLANC" | \ # # $Z $GRE -v "^$MiNiMuM_XY " | \ # # $Z $GRE -v "^$MaXiMuM_XY " | \ # # $Z $GRE -v " $MiNiMuM_XY"'$' | \ # # $Z $GRE -v " $MaXiMuM_XY"'$' \ # # $Z > $FCoOrD_1 # # # # $Z FileTmpB FCoOrD_2 # # # # $Z $CA $FCoOrD_1 | \ # # $Z $AW ' { print $1 } ' \ # # $Z > $FCoOrD_2$COORD_X # # $Z $CA $FCoOrD_1 | \ # # $Z $AW ' { print $2 } ' \ # # $Z > $FCoOrD_2$COORD_Y # # # # $Z set NChIfX=`$CA $FCoOrD_2$COORD_X | $WCl` # # $Z set NChIfY=`$CA $FCoOrD_2$COORD_Y | $WCl` # # # # $Z set NChIfFrEs=`$xcg/MIN2.01$X x=$NChIfX y=$NChIfY signe="$K_VIDE"` # # # # $Z FileTmpE FCoOrD_1 # # # # $Z source $xrd/graph.01$vv$Y # # # # $Z G_Init # # # # $Z set PaLeTtE="$xiP/rouge_orang" # # # # $Z set Kmin_RaNdOm=0.03 # # $Z set Kmax_RaNdOm=0.03 # # # # $Z set Xmin_RaNdOm=-0.05 # # $Z set Xmax_RaNdOm=+0.05 # # # # $Z set Ymin_RaNdOm=-0.05 # # $Z set Ymax_RaNdOm=+0.05 # # # # $Z set Zmin_RaNdOm=+0.20 # # $Z set Zmax_RaNdOm=+0.30 # # # # $Z set Cmin_RaNdOm=1 # # $Z set Cmax_RaNdOm=$NChIfFrEs # # # # $Z set Rmin_RaNdOm=0.03 # # $Z set Rmax_RaNdOm=0.03 # # # # $Z set Nmin_RaNdOm=$GRIS_0 # # $Z set Nmax_RaNdOm=$GRIS_8 # # # # $Z set ArGs="premiere=1 derniere=$NChIfFrEs signe=$K_VIDE" # # # # $Z set ArGsK="inf=$Kmin_RaNdOm sup=$Kmax_RaNdOm entiers=FAUX" # # $Z set ArGsX="inf=$Xmin_RaNdOm sup=$Xmax_RaNdOm entiers=FAUX" # # $Z set ArGsY="inf=$Ymin_RaNdOm sup=$Ymax_RaNdOm entiers=FAUX" # # $Z set ArGsZ="inf=$Zmin_RaNdOm sup=$Zmax_RaNdOm entiers=FAUX" # # $Z set ArGsC="inf=$Cmin_RaNdOm sup=$Cmax_RaNdOm entiers=VRAI mbse=FAUX sc=VRAI" # # $Z set ArGsR="inf=$Rmin_RaNdOm sup=$Rmax_RaNdOm entiers=FAUX" # # $Z set ArGsN="inf=$Nmin_RaNdOm sup=$Nmax_RaNdOm entiers=VRAI mbse=FAUX" # # # # $Z FileTmpB FCoOrD_3 # # # # $Z $xci/valeurs_alea$X \ # # $Z $ArGs $ArGsX \ # # $Z graine=7111 \ # # $Z signe="$K_VIDE" \ # # $Z $formatI \ # # $Z > $FCoOrD_3$COORD_X # # $Z $xci/valeurs_alea$X \ # # $Z $ArGs $ArGsY \ # # $Z graine=7133 \ # # $Z signe="$K_VIDE" \ # # $Z $formatI \ # # $Z > $FCoOrD_3$COORD_Y # # # # $Z FileTmpB FCoOrD_4 # # # # $Z $xrv/ADD2.11$X \ # # $Z ne=$NChIfFrEs \ # # $Z fichier1=$FCoOrD_2$COORD_X \ # # $Z fichier2=$FCoOrD_3$COORD_X \ # # $Z signe="$K_VIDE" \ # # $Z > $FCoOrD_4$COORD_X # # $Z $xrv/ADD2.11$X \ # # $Z ne=$NChIfFrEs \ # # $Z fichier1=$FCoOrD_2$COORD_Y \ # # $Z fichier2=$FCoOrD_3$COORD_Y \ # # $Z signe="$K_VIDE" \ # # $Z > $FCoOrD_4$COORD_Y # # $Z FileTmpE FCoOrD_3 # # $Z FileTmpE FCoOrD_2 # # # # $Z set LiStE_K=`$xci/valeurs_alea$X $ArGs $ArGsK graine=3333` # # $Z set LiStE_X=`$CA $FCoOrD_4$COORD_X` # # $Z set LiStE_Y=`$CA $FCoOrD_4$COORD_Y` # # $Z set LiStE_Z=`$xci/valeurs_alea$X $ArGs $ArGsZ graine=7155` # # $Z set LiStE_Cr=`$xci/valeurs_alea$X $ArGs $ArGsC graine=1947` # # # # $Z set RePeTiTiOn=`calculINS ($NChIfFrEs/10)+1` # # # # $Z set NuMeRo=1 # # $Z set LiStE_Cc="$K_VIDE" # # $Z set LiStE_0_9=(O 1 2 3 4 5 6 7 8 9) # # # # $Z while ($NuMeRo <= $RePeTiTiOn) # # $Z set LiStE_Cc=($LiStE_Cc $LiStE_0_9) # # # # $Z @ NuMeRo = $NuMeRo + 1 # # $Z end # # # # $Z set LiStE_R=`$xci/valeurs_alea$X $ArGs $ArGsR graine=7777` # # $Z set LiStE_N=`$xci/valeurs_alea$X $ArGs $ArGsN graine=9999` # # # # $Z FileTmpE FCoOrD_4 # # # # $Z set NuMeRo=1 # # # # $Z while ($NuMeRo <= $NChIfFrEs) # # $Z G_K $LiStE_K[$NuMeRo] # # $Z G_Cursor1 $LiStE_X[$NuMeRo] $LiStE_Y[$NuMeRo] $LiStE_Z[$NuMeRo] # # # # $Z set NiVo=$LiStE_N[$NuMeRo] # # $Z set C_RVB=`$xciP/G_NIVEAU$X p=$PaLeTtE n=$NiVo Prme=VRAI` # # $Z G_Cursor2 $C_RVB[1] $C_RVB[2] $C_RVB[3] # # # # $Z G_Cursor3 $LiStE_R[$NuMeRo] # # # # $Z set CaRaCtErE=$LiStE_Cr[$NuMeRo] # # $Z eval `G_Message $LiStE_Cc[$CaRaCtErE]` # # # # $Z @ NuMeRo = $NuMeRo + 1 # # $Z end # # # # $Z set PArGs="$K_VIDE" # # $Z set PArGs="$PArGs"" ZOOM=1.6" # # $Z set PArGs="$PArGs"" equidistance=VRAI" # # $Z set PArGs="$PArGs"" ajuster_coordonnees=VRAI" # # $Z set PArGs="$PArGs"" adapter_coordonnees_format_image=VRAI" # # $Z set PArGs="$PArGs"" adapter_grandement_coordonnees_format_image=VRAI" # # $Z G_Genere $xiirv/STRU.bas.F1 $PArGs # # # # :Fin_listG_STRU_bas_F1: # # # v $xiirv/STRU.bas.G1 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_G1: # # # # $Z Sdu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z SformatI # # # # $Z set PrOpOrTiOn=`calcul $dimX/$dimY` # # $Z set NPoInTsY=10 # # $Z set NPoInTsX=`calculINS ($NPoInTsY+2)*$PrOpOrTiOn-2` # # $Z XYmaxNe 0 `calculINS $NPoInTsX-1` 0 `calculINS $NPoInTsY-1` # # # # $Z FileTmpB FCoOrD_1 # # # # $Z set MiNiMuM_XY=0 # # $Z set MaXiMuM_XY=1 # # # # $Z $xci/valeurs_imag$X \ # # $Z PX=1 PY=0 \ # # $Z ValiderAxes=FAUX \ # # $Z signe="$K_VIDE" \ # # $Z $formatI \ # # $Z > $FCoOrD_1$COORD_X # # $Z $xci/valeurs_imag$X \ # # $Z PX=0 PY=1 \ # # $Z ValiderAxes=FAUX \ # # $Z signe="$K_VIDE" \ # # $Z $formatI \ # # $Z > $FCoOrD_1$COORD_Y # # # # $Z RformatI # # # # $Z $PAST $FCoOrD_1$COORD_X $FCoOrD_1$COORD_Y | \ # # $Z $R "$K_TAB" "$K_BLANC" | \ # # $Z $GRE -v "^$MiNiMuM_XY " | \ # # $Z $GRE -v "^$MaXiMuM_XY " | \ # # $Z $GRE -v " $MiNiMuM_XY"'$' | \ # # $Z $GRE -v " $MaXiMuM_XY"'$' \ # # $Z > $FCoOrD_1 # # # # $Z FileTmpB FCoOrD_2 # # # # $Z $CA $FCoOrD_1 | \ # # $Z $AW ' { print $1 } ' \ # # $Z > $FCoOrD_2$COORD_X # # $Z $CA $FCoOrD_1 | \ # # $Z $AW ' { print $2 } ' \ # # $Z > $FCoOrD_2$COORD_Y # # # # $Z set NChIfX=`$CA $FCoOrD_2$COORD_X | $WCl` # # $Z set NChIfY=`$CA $FCoOrD_2$COORD_Y | $WCl` # # # # $Z set NChIfFrEs=`$xcg/MIN2.01$X x=$NChIfX y=$NChIfY signe="$K_VIDE"` # # # # $Z FileTmpE FCoOrD_1 # # # # $Z source $xrd/graph.01$vv$Y # # # # $Z G_Init # # # # $Z set PaLeTtE="$xiP/trou_noir.94" # # # # $Z set Kmin_RaNdOm=0.02 # # $Z set Kmax_RaNdOm=0.02 # # # # $Z set Xmin_RaNdOm=-0.05 # # $Z set Xmax_RaNdOm=+0.05 # # # # $Z set Ymin_RaNdOm=-0.05 # # $Z set Ymax_RaNdOm=+0.05 # # # # $Z set Zmin_RaNdOm=+0.20 # # $Z set Zmax_RaNdOm=+0.30 # # # # $Z set Cmin_RaNdOm=1 # # $Z set Cmax_RaNdOm=$NChIfFrEs # # # # $Z set Rmin_RaNdOm=0.013 # # $Z set Rmax_RaNdOm=0.013 # # # # $Z set Nmin_RaNdOm=$GRIS_0 # # $Z set Nmax_RaNdOm=$GRIS_8 # # # # $Z set ArGs="premiere=1 derniere=$NChIfFrEs signe=$K_VIDE" # # # # $Z set ArGsK="inf=$Kmin_RaNdOm sup=$Kmax_RaNdOm entiers=FAUX" # # $Z set ArGsX="inf=$Xmin_RaNdOm sup=$Xmax_RaNdOm entiers=FAUX" # # $Z set ArGsY="inf=$Ymin_RaNdOm sup=$Ymax_RaNdOm entiers=FAUX" # # $Z set ArGsZ="inf=$Zmin_RaNdOm sup=$Zmax_RaNdOm entiers=FAUX" # # $Z set ArGsC="inf=$Cmin_RaNdOm sup=$Cmax_RaNdOm entiers=VRAI mbse=FAUX sc=VRAI" # # $Z set ArGsR="inf=$Rmin_RaNdOm sup=$Rmax_RaNdOm entiers=FAUX" # # $Z set ArGsN="inf=$Nmin_RaNdOm sup=$Nmax_RaNdOm entiers=VRAI mbse=FAUX" # # # # $Z FileTmpB FCoOrD_3 # # # # $Z $xci/valeurs_alea$X \ # # $Z $ArGs $ArGsX \ # # $Z graine=7111 \ # # $Z signe="$K_VIDE" \ # # $Z $formatI \ # # $Z > $FCoOrD_3$COORD_X # # $Z $xci/valeurs_alea$X \ # # $Z $ArGs $ArGsY \ # # $Z graine=7133 \ # # $Z signe="$K_VIDE" \ # # $Z $formatI \ # # $Z > $FCoOrD_3$COORD_Y # # # # $Z FileTmpB FCoOrD_4 # # # # $Z $xrv/ADD2.11$X \ # # $Z ne=$NChIfFrEs \ # # $Z fichier1=$FCoOrD_2$COORD_X \ # # $Z fichier2=$FCoOrD_3$COORD_X \ # # $Z signe="$K_VIDE" \ # # $Z > $FCoOrD_4$COORD_X # # $Z $xrv/ADD2.11$X \ # # $Z ne=$NChIfFrEs \ # # $Z fichier1=$FCoOrD_2$COORD_Y \ # # $Z fichier2=$FCoOrD_3$COORD_Y \ # # $Z signe="$K_VIDE" \ # # $Z > $FCoOrD_4$COORD_Y # # $Z FileTmpE FCoOrD_3 # # $Z FileTmpE FCoOrD_2 # # # # $Z set LiStE_K=`$xci/valeurs_alea$X $ArGs $ArGsK graine=3333` # # $Z set LiStE_X=`$CA $FCoOrD_4$COORD_X` # # $Z set LiStE_Y=`$CA $FCoOrD_4$COORD_Y` # # $Z set LiStE_Z=`$xci/valeurs_alea$X $ArGs $ArGsZ graine=7155` # # $Z set LiStE_Cr=`$xci/valeurs_alea$X $ArGs $ArGsC graine=1947` # # # # $Z set RePeTiTiOn=`calculINS ($NChIfFrEs/10)+1` # # # # $Z set NuMeRo=1 # # $Z set LiStE_Cc="$K_VIDE" # # $Z set LiStE_0_9=(O 1 2 3 4 5 6 7 8 9) # # # # $Z while ($NuMeRo <= $RePeTiTiOn) # # $Z set LiStE_Cc=($LiStE_Cc $LiStE_0_9) # # # # $Z @ NuMeRo = $NuMeRo + 1 # # $Z end # # # # $Z set LiStE_R=`$xci/valeurs_alea$X $ArGs $ArGsR graine=7777` # # $Z set LiStE_N=`$xci/valeurs_alea$X $ArGs $ArGsN graine=9999` # # # # $Z FileTmpE FCoOrD_4 # # # # $Z set NuMeRo=1 # # # # $Z while ($NuMeRo <= $NChIfFrEs) # # $Z G_K $LiStE_K[$NuMeRo] # # $Z G_Cursor1 $LiStE_X[$NuMeRo] $LiStE_Y[$NuMeRo] $LiStE_Z[$NuMeRo] # # # # $Z set NiVo=$LiStE_N[$NuMeRo] # # $Z set C_RVB=`$xciP/G_NIVEAU$X p=$PaLeTtE n=$NiVo Prme=VRAI` # # $Z G_Cursor2 $C_RVB[1] $C_RVB[2] $C_RVB[3] # # # # $Z G_Cursor3 $LiStE_R[$NuMeRo] # # # # $Z set CaRaCtErE=$LiStE_Cr[$NuMeRo] # # $Z eval `G_Message $LiStE_Cc[$CaRaCtErE]` # # # # $Z @ NuMeRo = $NuMeRo + 1 # # $Z end # # # # $Z set PArGs="$K_VIDE" # # $Z set PArGs="$PArGs"" ZOOM=1.55" # # $Z set PArGs="$PArGs"" equidistance=VRAI" # # $Z set PArGs="$PArGs"" ajuster_coordonnees=VRAI" # # $Z set PArGs="$PArGs"" adapter_coordonnees_format_image=VRAI" # # $Z set PArGs="$PArGs"" adapter_grandement_coordonnees_format_image=VRAI" # # $Z set PArGs="$PArGs"" equidistance=VRAI" # # $Z G_Genere $xiirv/STRU.bas.G1 $PArGs # # # # $Z execRVB $xci/RepliBloc.01$X \ # # $Z A=$xiirv/STRU.bas.G1%s \ # # $Z $formatI \ # # $Z centrer=VRAI \ # # $Z R=$xiirv/STRU.bas.G1%s \ # # $Z $formatR_Pal # # $Z execRVB $xci/format.01$X \ # # $Z A=$xiirv/STRU.bas.G1%s \ # # $Z $formatI \ # # $Z mode=7 \ # # $Z R=$xiirv/STRU.bas.G1%s \ # # $Z $formatR_Pal # # # # :Fin_listG_STRU_bas_G1: # # # v $xiirv/STRU.bas.H2 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_H2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/sinus$X \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$dpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z R=$xTV/EPAISSEUR.11 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/EPAISSEUR.11 \ # # $Z A2=$xTV/EPAISSEUR.11 \ # # $Z R=$xTV/EPAISSEUR.14 \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$dpi \ # # $Z dephaser=VRAI \ # # $Z R=$xTV/EPAISSEUR.21 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/EPAISSEUR.21 \ # # $Z A2=$xTV/EPAISSEUR.21 \ # # $Z R=$xTV/EPAISSEUR.24 \ # # $Z $formatI # # # # $Z set PaLeTtE_1=$xiP/rouge.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/EPAISSEUR.14 \ # # $Z p=$PaLeTtE_1 \ # # $Z R=$xTV/EPAISSEUR.14.1 \ # # $Z $formatI # # # # $Z set PaLeTtE_2=$xiP/jaune.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/EPAISSEUR.14 \ # # $Z p=$PaLeTtE_2 \ # # $Z R=$xTV/EPAISSEUR.14.2 \ # # $Z $formatI # # # # $Z set PaLeTtE_3=$xiP/gris.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/EPAISSEUR.24 \ # # $Z p=$PaLeTtE_3 \ # # $Z R=$xTV/EPAISSEUR.24.3 \ # # $Z $formatI # # # # $Z set PaLeTtE_4=$xiP/orange.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/EPAISSEUR.24 \ # # $Z p=$PaLeTtE_4 \ # # $Z R=$xTV/EPAISSEUR.24.4 \ # # $Z $formatI # # # # $Z $xci/cache.31$Z \ # # $Z $xTV/EPAISSEUR.24.3 \ # # $Z $xTV/EPAISSEUR.14.1 \ # # $Z $xTV/EPAISSEUR.31.0001 # # $Z $xci/cache.31$Z \ # # $Z $xTV/EPAISSEUR.14.2 \ # # $Z $xTV/EPAISSEUR.24.3 \ # # $Z $xTV/EPAISSEUR.31.0002 # # $Z $xci/cache.31$Z \ # # $Z $xTV/EPAISSEUR.14.1 \ # # $Z $xTV/EPAISSEUR.24.4 \ # # $Z $xTV/EPAISSEUR.31.0003 # # $Z $xci/cache.31$Z \ # # $Z $xTV/EPAISSEUR.24.4 \ # # $Z $xTV/EPAISSEUR.14.2 \ # # $Z $xTV/EPAISSEUR.31.0004 # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/EPAISSEUR.31. \ # # $Z postfixe=%s \ # # $Z premiere=1 \ # # $Z pas=1 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=9 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=225 \ # # $Z R=$xiirv/STRU.bas.H2%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_bas_H2: # # # # # # Cette image est similaire a '$xiirv/STRU.bas.22' si ce n'est qu'elle utilise # # '$xci/cache.31$Z' a la place de '$xci/cache.21$Z' de facon que les masques calcules # # soient les memes pour 'v $xiirv/STRU.bas.H2' et 'v $xiirv/STRU.bas.H2$Z_BUFFER' quelles # # que soient les palettes '$PaLeTtE_?' utilisees pour ces deux images... # Pal ; $xci/acces$X A=$xiirv/STRU.bas.H2$Z_BUFFER standard=FAUX zero=FAUX $formatI | \ $xci/display$X p=$xiP/cercle.35 $formatI # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_H2_Zb: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/sinus$X \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$dpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z R=$xTV/EPAISSEUR.11 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/EPAISSEUR.11 \ # # $Z A2=$xTV/EPAISSEUR.11 \ # # $Z R=$xTV/EPAISSEUR.14 \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$dpi \ # # $Z dephaser=VRAI \ # # $Z R=$xTV/EPAISSEUR.21 \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/EPAISSEUR.21 \ # # $Z A2=$xTV/EPAISSEUR.21 \ # # $Z R=$xTV/EPAISSEUR.24 \ # # $Z $formatI # # # # $Z set PaLeTtE_1=$xiP/rouge.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/EPAISSEUR.14 \ # # $Z p=$PaLeTtE_1 \ # # $Z R=$xTV/EPAISSEUR.14.1 \ # # $Z $formatI # # # # $Z set PaLeTtE_2=$xiP/verte.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/EPAISSEUR.14 \ # # $Z p=$PaLeTtE_2 \ # # $Z R=$xTV/EPAISSEUR.14.2 \ # # $Z $formatI # # # # $Z set PaLeTtE_3=$xiP/bleue.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/EPAISSEUR.24 \ # # $Z p=$PaLeTtE_3 \ # # $Z R=$xTV/EPAISSEUR.24.3 \ # # $Z $formatI # # # # $Z set PaLeTtE_4=$xiP/gris.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/EPAISSEUR.24 \ # # $Z p=$PaLeTtE_4 \ # # $Z R=$xTV/EPAISSEUR.24.4 \ # # $Z $formatI # # # # $Z $xci/cache.31$Z \ # # $Z $xTV/EPAISSEUR.24.3 \ # # $Z $xTV/EPAISSEUR.14.1 \ # # $Z $xTV/EPAISSEUR.31.0001 # # $Z $xci/cache.31$Z \ # # $Z $xTV/EPAISSEUR.14.2 \ # # $Z $xTV/EPAISSEUR.24.3 \ # # $Z $xTV/EPAISSEUR.31.0002 # # $Z $xci/cache.31$Z \ # # $Z $xTV/EPAISSEUR.14.1 \ # # $Z $xTV/EPAISSEUR.24.4 \ # # $Z $xTV/EPAISSEUR.31.0003 # # $Z $xci/cache.31$Z \ # # $Z $xTV/EPAISSEUR.24.4 \ # # $Z $xTV/EPAISSEUR.14.2 \ # # $Z $xTV/EPAISSEUR.31.0004 # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/EPAISSEUR.31. \ # # $Z postfixe=%s \ # # $Z premiere=1 \ # # $Z pas=1 \ # # $Z moyenne=FAUX \ # # $Z maximum=FAUX \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=9 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=225 \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z R=$xTV/EPAISSEUR%s \ # # $Z $formatI" # # # # $Z $xci/and$X \ # # $Z A1=$xTV/EPAISSEUR$ROUGE \ # # $Z A2=$xTV/EPAISSEUR$VERTE \ # # $Z $formatI | \ # # $Z $xci/and$X \ # # $Z A2=$xTV/EPAISSEUR$BLEUE \ # # $Z R=$xTV/EPAISSEUR.41.0001 \ # # $Z $formatI # # $Z $xci/eor$X \ # # $Z A1=$xTV/EPAISSEUR$ROUGE \ # # $Z A2=$xTV/EPAISSEUR.41.0001 \ # # $Z R=$xTV/EPAISSEUR.41.0002 \ # # $Z $formatI # # $Z $xci/eor$X \ # # $Z A1=$xTV/EPAISSEUR$VERTE \ # # $Z A2=$xTV/EPAISSEUR.41.0001 \ # # $Z R=$xTV/EPAISSEUR.41.0004 \ # # $Z $formatI # # $Z $xci/eor$X \ # # $Z A1=$xTV/EPAISSEUR$BLEUE \ # # $Z A2=$xTV/EPAISSEUR.41.0001 \ # # $Z R=$xTV/EPAISSEUR.41.0003 \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/EPAISSEUR.41.0001 \ # # $Z convertir=VRAI normaliser=VRAI \ # # $Z R=$xTV/EPAISSEUR.41.0001 \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/EPAISSEUR.41.0002 \ # # $Z convertir=VRAI normaliser=VRAI \ # # $Z R=$xTV/EPAISSEUR.41.0002 \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/EPAISSEUR.41.0003 \ # # $Z convertir=VRAI normaliser=VRAI \ # # $Z R=$xTV/EPAISSEUR.41.0003 \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/EPAISSEUR.41.0004 \ # # $Z convertir=VRAI normaliser=VRAI \ # # $Z R=$xTV/EPAISSEUR.41.0004 \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$dpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/scroll$X \ # # $Z standard=FAUX \ # # $Z trX=-0.25 toreX=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A2=$xTV/EPAISSEUR.41.0001 \ # # $Z R=$xTV/PROFONDEUR.0001 \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$dpi \ # # $Z dephaser=VRAI \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/scroll$X \ # # $Z standard=FAUX \ # # $Z trY=-0.25 toreY=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A2=$xTV/EPAISSEUR.41.0002 \ # # $Z R=$xTV/PROFONDEUR.0002 \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$dpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/scroll$X \ # # $Z standard=FAUX \ # # $Z trX=+0.25 toreX=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A2=$xTV/EPAISSEUR.41.0003 \ # # $Z R=$xTV/PROFONDEUR.0003 \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$dpi \ # # $Z dephaser=VRAI \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/scroll$X \ # # $Z standard=FAUX \ # # $Z trY=+0.25 toreY=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A2=$xTV/EPAISSEUR.41.0004 \ # # $Z R=$xTV/PROFONDEUR.0004 \ # # $Z $formatI # # # # $Z $xci/maximum$X \ # # $Z A1=$xTV/PROFONDEUR.0001 \ # # $Z A2=$xTV/PROFONDEUR.0002 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z A2=$xTV/PROFONDEUR.0003 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z A2=$xTV/PROFONDEUR.0004 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z origine=-1 \ # # $Z extremite=+1 \ # # $Z R=$xiirv/STRU.bas.H2$Z_BUFFER \ # # $Z $formatI # # # # :Fin_listG_STRU_bas_H2_Zb: # # # # # # Cette image donne un 'Z-Buffer' pour l'image 'v $xiirv/STRU.bas.H2' calcule d'une facon # # arbitraire, mais assez "realiste"... # v $xiirv/STRU.bas.I1 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_I1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirs/PROJ.q1.2D%s \ # # $Z R=$xiirv/STRU.bas.I1%s \ # # $Z $formatI # # # # :Fin_listG_STRU_bas_I1: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # v $xiirv/STRU.bas.I2 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_I2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirs/PROJ.q2.2D%s \ # # $Z R=$xiirv/STRU.bas.I2%s \ # # $Z $formatI # # # # :Fin_listG_STRU_bas_I2: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # v $xiirv/STRU.bas.J1 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_J1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirs/SPHE.E1%s \ # # $Z R=$xiirv/STRU.bas.J1%s \ # # $Z $formatI # # # # :Fin_listG_STRU_bas_J1: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # v $xiirv/STRU.bas.J2 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_J2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirs/SPHE.E2%s \ # # $Z R=$xiirv/STRU.bas.J2%s \ # # $Z $formatI # # # # :Fin_listG_STRU_bas_J2: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # v $xiirv/STRU.bas.K1 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_K1: # # # # $Z Std # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/module$X \ # # $Z arithmetique_etendue_module=VRAI \ # # $Z pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z mode=1 \ # # $Z R=$xTV/CHAMP.K1 \ # # $Z $formatR_Pal # # # # $Z Pal # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/CHAMP.K1 \ # # $Z p=$xiP/rouge_jaune \ # # $Z R=$xiirv/STRU.bas.K1 \ # # $Z $formatI # # # # :Fin_listG_STRU_bas_K1: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # v $xiirv/STRU.bas.L2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_bas_L2: # # # # $Z Pal # # # # $Z set ExTeNsIoN=20 # # # # $Z set PaRaM="entier=VRAI signe=$K_VIDE" # # # # $Z set EXmax=`$xcg/ADD2.01$X a=$Xmax b=$ExTeNsIoN $PaRaM` # # $Z set EXmax=`$xcg/DIVZ.01$X a=$EXmax b=2 $PaRaM` # # $Z set EXmax=`$xcg/MUL2.01$X a=$EXmax b=2 $PaRaM` # # # # $Z set EYmax=`$xcg/ADD2.01$X a=$Ymax b=$ExTeNsIoN $PaRaM` # # $Z set EYmax=`$xcg/DIVZ.01$X a=$EYmax b=2 $PaRaM` # # $Z set EYmax=`$xcg/MUL2.01$X a=$EYmax b=2 $PaRaM` # # # # $Z XYmaxNe $Xmin $EXmax $Ymin $EYmax # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z FileTmpB FiLeTmP # # # # $Z set PaRaM="norm=VRAI signe=$K_VIDE" # # # # $Z set Xm_=`$xci/coordonnees$X $PaRaM eX=VRAI eY=FAUX X=$Xmin` # # $Z set Ym_=`$xci/coordonnees$X $PaRaM eX=FAUX eY=VRAI Y=$Ymin` # # # # $Z set XM_=`$xci/coordonnees$X $PaRaM eX=VRAI eY=FAUX X=$Xmax` # # $Z set YM_=`$xci/coordonnees$X $PaRaM eX=FAUX eY=VRAI Y=$Ymax` # # # # $Z set Xs2=`calcul (($XM_-$Xm_)/2)+$Xm_` # # $Z set Ys2=`calcul (($YM_-$Ym_)/2)+$Ym_` # # $Z set Zs2=0.5 # # # # $Z set TrAnX=0.1 # # $Z set TrAnY=0.1 # # # # $Z set Xm1=`calcul $Xm_+$TrAnX` # # $Z set Ym1=`calcul $Ym_+$TrAnY` # # # # $Z set XM1=`calcul $XM_-$TrAnX` # # $Z set YM1=`calcul $YM_-$TrAnY` # # # # $Z set Noi=$NOIR # # $Z set Bla=$BLANC # # # # $Z echo "$Xm_ $Ys2 $Zs2 +1 0 0 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "$Xm1 $Ys2 $Zs2 +1 0 0 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "$Xm1 $Ys2 $Zs2 +7.9 0 +1 $Bla $Bla $Noi" >>! $FiLeTmP # # $Z echo "$Xs2 $YM1 $Zs2 0 +7.9 +2 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "$Xs2 $YM1 $Zs2 0 +1 0 $Bla $Noi $Noi" >>! $FiLeTmP # # $Z echo "$Xs2 $YM_ $Zs2 0 +1 0 $Bla $Noi $Noi" >>! $FiLeTmP # # # # $Z set dcX="d"$COORD_X # # $Z set dcY="d"$COORD_Y # # $Z set dcZ="d"$COORD_Z # # # # $Z Fdecoupe $FiLeTmP $COORD_X $COORD_Y $COORD_Z $dcX $dcY $dcZ $ROUGE $VERTE $BLEUE # # # # $Z set NPoInTsX=`$CA $FiLeTmP$COORD_X | $WCl | $AW ' { print $1 } '` # # $Z set NPoInTsY=`$CA $FiLeTmP$COORD_Y | $WCl | $AW ' { print $1 } '` # # $Z set NPoInTsZ=`$CA $FiLeTmP$COORD_Z | $WCl | $AW ' { print $1 } '` # # # # $Z set NPoInTs=`$xcg/MIN3.01$X x=$NPoInTsX y=$NPoInTsY z=$NPoInTsZ` # # # # $Z set ArGuMeNtS="$K_VIDE" # # $Z set ArGuMeNtS="$ArGuMeNtS"" npoints=$NPoInTs" # # $Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_X=$FiLeTmP$COORD_X" # # $Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_Y=$FiLeTmP$COORD_Y" # # $Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_Z=$FiLeTmP$COORD_Z" # # $Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_dX=$FiLeTmP$dcX" # # $Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_dY=$FiLeTmP$dcY" # # $Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_dZ=$FiLeTmP$dcZ" # # $Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_ROUGE=$FiLeTmP$ROUGE" # # $Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_VERTE=$FiLeTmP$VERTE" # # $Z set ArGuMeNtS="$ArGuMeNtS"" LISTE_BLEUE=$FiLeTmP$BLEUE" # # $Z set ArGuMeNtS="$ArGuMeNtS"" isoles=FAUX" # # $Z set ArGuMeNtS="$ArGuMeNtS"" cubique=VRAI" # # $Z set ArGuMeNtS="$ArGuMeNtS"" ajuster_points=VRAI" # # $Z set ArGuMeNtS="$ArGuMeNtS"" equidistance=VRAI dm=0.01" # # $Z set ArGuMeNtS="$ArGuMeNtS"" ajuster_coordonnees=FAUX" # # $Z set ArGuMeNtS="$ArGuMeNtS"" ajuster_h=FAUX" # # $Z set ArGuMeNtS="$ArGuMeNtS"" ajuster_t=FAUX" # # $Z set ArGuMeNtS="$ArGuMeNtS"" Lx=$Xs2" # # $Z set ArGuMeNtS="$ArGuMeNtS"" Ly=$Ys2" # # $Z set ArGuMeNtS="$ArGuMeNtS"" Lz=1000000" # # $Z set ArGuMeNtS="$ArGuMeNtS"" rayon_de_visualisation=0.06" # # $Z set ArGuMeNtS="$ArGuMeNtS"" ROTATION_OX=0" # # # # $Z $xrv/particule.10$X \ # # $Z $ArGuMeNtS \ # # $Z fond=FAUX \ # # $Z ZBuffer=VRAI Z=$xTV/Z_BUFFER \ # # $Z ATTENTION=FAUX \ # # $Z R=$xTV/STRU.bas.L2 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z execRVB "$xci/Sx$X \ # # $Z A=$xTV/STRU.bas.L2%s \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRU.bas.L2%s \ # # $Z $formatI" # # # # $Z $xci/Sx$X \ # # $Z A=$xTV/Z_BUFFER \ # # $Z standard=FAUX \ # # $Z valider_IloadF_image=FAUX \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z standard=FAUX \ # # $Z valider_IloadF_image=FAUX \ # # $Z R=$xTV/Z_BUFFER \ # # $Z $formatI # # # # $Z $xrv/particule.10$X \ # # $Z $ArGuMeNtS \ # # $Z fond=VRAI F=$xTV/STRU.bas.L2 \ # # $Z Zfond=VRAI ZF=$xTV/Z_BUFFER \ # # $Z valider_IloadF_image=FAUX \ # # $Z R=$xiirv/STRU.bas.L2 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/STRU.bas.L2 \ # # $Z $formatI | \ # # $Z $xci/gradient.01$X \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z seuil=$GRIS_4 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z R=$xTV/MASQUE \ # # $Z $formatI # # # # $Z execRVB "$xci/convol.02$X \ # # $Z A=$xiirv/STRU.bas.L2%s \ # # $Z V=$BLANC F=$BLANC \ # # $Z N=$xTV/MASQUE \ # # $Z messages_noyau_convolution_variable=FAUX \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=25 \ # # $Z R=$xiirv/STRU.bas.L2%s \ # # $Z $formatI" # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$xiirv/STRU.bas.L2%s \ # # $Z $formatI \ # # $Z mode=7 \ # # $Z R=$xiirv/STRU.bas.L2%s \ # # $Z $formatR_Pal # # # # $Z FileTmpE FiLeTmP # # # # :Fin_listG_STRU_bas_L2: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'. Elle # # est tres semblable a 'v $xiirv/STRU.bas.52' mais en garantissant qu'elle est veritablement # # sur un tore ce qui n'est pas tout a fait le cas de 'v $xiirv/STRU.bas.52'... # # # # On notera au debut l'utilisation d'un 'XYmaxNe' destine a ce que les dimensions en 'X' # # et 'Y' soient impaires afin qu'il y ait un point central permettant la "perfection" des # # symetries en 'X' et en 'Y'... # v $xiirv/STRU.bas.L3 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_bas_L3: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.L2%s \ # # $Z HG_Ix=FAUX HG_Iy=FAUX \ # # $Z HD_Ix=FAUX HD_Iy=VRAI \ # # $Z BG_Ix=VRAI BG_Iy=FAUX \ # # $Z BD_Ix=VRAI BD_Iy=VRAI \ # # $Z R=$xiirv/STRU.bas.L3%s \ # # $Z $formatI # # # # :Fin_listG_STRU_bas_L3: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # v $xiirv/STRU.bas.L4 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_bas_L4: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.L2%s \ # # $Z HG_Ix=VRAI HG_Iy=FAUX \ # # $Z HD_Ix=VRAI HD_Iy=VRAI \ # # $Z BG_Ix=FAUX BG_Iy=FAUX \ # # $Z BD_Ix=FAUX BD_Iy=VRAI \ # # $Z R=$xiirv/STRU.bas.L4%s \ # # $Z $formatI # # # # :Fin_listG_STRU_bas_L4: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # v $xiirv/STRU.bas.M2 v $xiirv/STRU.bas.M3 v $xiirv/STRU.bas.M4 v $xiirv/STRU.bas.M5 v $xiirv/STRU.bas.M6 v $xiirv/STRU.bas.M7 v $xiirv/STRU.bas.M8 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_bas_M2_M8: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set PaRaMs_t="$K_VIDE" # # $Z set PaRaMs_t="$PaRaMs_t"" HG_Ix=VRAI HG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" HD_Ix=VRAI HD_Iy=VRAI" # # $Z set PaRaMs_t="$PaRaMs_t"" BG_Ix=FAUX BG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" BD_Ix=FAUX BD_Iy=VRAI" # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.L2%s \ # # $Z $PaRaMs_t \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xiirv/STRU.bas.L2%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z R=$xiirv/STRU.bas.M2%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.M2%s \ # # $Z $PaRaMs_t \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xiirv/STRU.bas.M2%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z R=$xiirv/STRU.bas.M3%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.M3%s \ # # $Z $PaRaMs_t \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xiirv/STRU.bas.M3%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z R=$xiirv/STRU.bas.M4%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.M4%s \ # # $Z $PaRaMs_t \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xiirv/STRU.bas.M4%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z R=$xiirv/STRU.bas.M5%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.M5%s \ # # $Z $PaRaMs_t \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xiirv/STRU.bas.M5%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z R=$xiirv/STRU.bas.M6%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.M6%s \ # # $Z $PaRaMs_t \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xiirv/STRU.bas.M6%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z R=$xiirv/STRU.bas.M7%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.M7%s \ # # $Z $PaRaMs_t \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xiirv/STRU.bas.M7%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z R=$xiirv/STRU.bas.M8%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.M8%s \ # # $Z $PaRaMs_t \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xiirv/STRU.bas.M8%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z R=$xiirv/STRU.bas.M9%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_bas_M2_M8: # # # # # # Ces images definissent des motifs de base periodiques pour des entrelacs du type 'STRU'... # v $xiirv/STRU.bas.N1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_bas_N1: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiirv/IMPO.31 \ # # $Z p=$xiP/dentscie.01 \ # # $Z R=$xTV/STRU.bas.N1 \ # # $Z $formatI # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$xTV/STRU.bas.N1%s \ # # $Z $formatI \ # # $Z mode=1 \ # # $Z R=$xiirv/STRU.bas.N1%s \ # # $Z $formatR_Pal # # # # :Fin_listG_STRU_bas_N1: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # v $xiirv/STRU.bas.O1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_bas_O1: # # # # $Z Pal # # # # $Z set _____Zoom=1.1 # # $Z set _____Palette=$xiP/rouge_orang.12 # # $Z set _____ImageR=$xiirv/STRU.bas.O1 # # $m4 _____include(_____xiirv/.KNOT.71.1._____U) # # # # :Fin_listG_STRU_bas_O1: # # # v $xiirv/STRU.bas.O2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_bas_O2: # # # # $Z Pal # # # # $Z set PaRaMs_t="$K_VIDE" # # $Z set PaRaMs_t="$PaRaMs_t"" HG_Ix=VRAI HG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" HD_Ix=VRAI HD_Iy=VRAI" # # $Z set PaRaMs_t="$PaRaMs_t"" BG_Ix=FAUX BG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" BD_Ix=FAUX BD_Iy=VRAI" # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.O1%s \ # # $Z $PaRaMs_t \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xiirv/STRU.bas.O1%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z R=$xiirv/STRU.bas.O2%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_bas_O2: # # # v $xiirv/STRU.bas.O3 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_bas_O3: # # # # $Z Pal # # # # $Z set PaRaMs_t="$K_VIDE" # # $Z set PaRaMs_t="$PaRaMs_t"" HG_Ix=VRAI HG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" HD_Ix=VRAI HD_Iy=VRAI" # # $Z set PaRaMs_t="$PaRaMs_t"" BG_Ix=FAUX BG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" BD_Ix=FAUX BD_Iy=VRAI" # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.O2%s \ # # $Z $PaRaMs_t \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xiirv/STRU.bas.O2%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z R=$xiirv/STRU.bas.O3%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_bas_O3: # # # v $xiirv/STRU.bas.O4 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_bas_O4: # # # # $Z Pal # # # # $Z set PaRaMs_t="$K_VIDE" # # $Z set PaRaMs_t="$PaRaMs_t"" HG_Ix=VRAI HG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" HD_Ix=VRAI HD_Iy=VRAI" # # $Z set PaRaMs_t="$PaRaMs_t"" BG_Ix=FAUX BG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" BD_Ix=FAUX BD_Iy=VRAI" # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.O3%s \ # # $Z $PaRaMs_t \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xiirv/STRU.bas.O3%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z R=$xiirv/STRU.bas.O4%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_bas_O4: # # # v $xiirv/STRU.bas.O5 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_bas_O5: # # # # $Z Pal # # # # $Z set PaRaMs_t="$K_VIDE" # # $Z set PaRaMs_t="$PaRaMs_t"" HG_Ix=VRAI HG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" HD_Ix=VRAI HD_Iy=VRAI" # # $Z set PaRaMs_t="$PaRaMs_t"" BG_Ix=FAUX BG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" BD_Ix=FAUX BD_Iy=VRAI" # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.O4%s \ # # $Z $PaRaMs_t \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xiirv/STRU.bas.O4%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z R=$xiirv/STRU.bas.O5%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_bas_O5: # # # v $xiirv/STRU.bas.O6 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_bas_O6: # # # # $Z Pal # # # # $Z set PaRaMs_t="$K_VIDE" # # $Z set PaRaMs_t="$PaRaMs_t"" HG_Ix=VRAI HG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" HD_Ix=VRAI HD_Iy=VRAI" # # $Z set PaRaMs_t="$PaRaMs_t"" BG_Ix=FAUX BG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" BD_Ix=FAUX BD_Iy=VRAI" # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.O5%s \ # # $Z $PaRaMs_t \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xiirv/STRU.bas.O5%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z R=$xiirv/STRU.bas.O6%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_bas_O6: # # # v $xiirv/STRU.bas.O7 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_bas_O7: # # # # $Z Pal # # # # $Z set PaRaMs_t="$K_VIDE" # # $Z set PaRaMs_t="$PaRaMs_t"" HG_Ix=VRAI HG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" HD_Ix=VRAI HD_Iy=VRAI" # # $Z set PaRaMs_t="$PaRaMs_t"" BG_Ix=FAUX BG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" BD_Ix=FAUX BD_Iy=VRAI" # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.O6%s \ # # $Z $PaRaMs_t \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xiirv/STRU.bas.O6%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z R=$xiirv/STRU.bas.O7%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_bas_O7: # # # v $xiirv/STRU.bas.P1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_bas_P1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Co_X1=0.25 # # $Z set _____Co_X3=0.75 # # $Z set _____Co_Y2=0.25 # # $Z set _____Co_Y3=0.30 # # $Z set _____Co_Y5=0.70 # # $Z set _____Co_Y6=0.75 # # $Z set _____De_X1=-0.9 # # $Z set _____De_X3=+0.9 # # $Z set _____De_Y1=-0.9 # # $Z set _____De_Y3=+0.9 # # $Z set _____Rayon=0.050 # # $Z set _____Zoom=1.6 # # $Z set _____Palette=$xiP/rouge_orang.12 # # $Z set _____ImageR=$xTV/KNOT.11 # # $m4 _____include(_____xiirv/.KNOT.71.1._____U) # # # # $Z execRVB $xci/transpose$X \ # # $Z A=$xTV/KNOT.11%s \ # # $Z R=$xTV/KNOT.12%s \ # # $Z $formatI # # # # $Z set _____Fond="fond=VRAI F=$xTV/KNOT.12" # # $Z set _____ImageR=$xTV/KNOT.2.0001 # # $m4 _____include(_____xiirv/.KNOT.71.1._____U) # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$xTV/KNOT.2.0001%s \ # # $Z R=$xTV/KNOT.2.0004%s \ # # $Z $formatI # # # # $Z execRVB $xci/transpose$X \ # # $Z A=$xTV/KNOT.2.0001%s \ # # $Z R=$xTV/KNOT.2.0002%s \ # # $Z $formatI # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$xTV/KNOT.2.0002%s \ # # $Z R=$xTV/KNOT.2.0003%s \ # # $Z $formatI # # # # $Z execRVB $xci/reduction_04$X \ # # $Z A=$xTV/KNOT.2. \ # # $Z postfixe=%s \ # # $Z premiere=1 \ # # $Z pas=1 \ # # $Z moyenne=VRAI \ # # $Z R=$xTV/KNOT.31%s \ # # $Z $formatI # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$xTV/KNOT.31%s \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xiirv/STRU.bas.P1%s \ # # $Z $formatR_Pal # # # # :Fin_listG_STRU_bas_P1: # # # v $xiirv/STRU.bas.P2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_bas_P2: # # # # $Z Pal # # # # $Z set PaRaMs_t="$K_VIDE" # # $Z set PaRaMs_t="$PaRaMs_t"" HG_Ix=VRAI HG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" HD_Ix=VRAI HD_Iy=VRAI" # # $Z set PaRaMs_t="$PaRaMs_t"" BG_Ix=FAUX BG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" BD_Ix=FAUX BD_Iy=VRAI" # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.P1%s \ # # $Z $PaRaMs_t \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xiirv/STRU.bas.P1%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z R=$xiirv/STRU.bas.P2%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_bas_P2: # # # v $xiirv/STRU.bas.P3 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_bas_P3: # # # # $Z Pal # # # # $Z set PaRaMs_t="$K_VIDE" # # $Z set PaRaMs_t="$PaRaMs_t"" HG_Ix=VRAI HG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" HD_Ix=VRAI HD_Iy=VRAI" # # $Z set PaRaMs_t="$PaRaMs_t"" BG_Ix=FAUX BG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" BD_Ix=FAUX BD_Iy=VRAI" # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.P2%s \ # # $Z $PaRaMs_t \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xiirv/STRU.bas.P2%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z R=$xiirv/STRU.bas.P3%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_bas_P3: # # # v $xiirv/STRU.bas.P4 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_bas_P4: # # # # $Z Pal # # # # $Z set PaRaMs_t="$K_VIDE" # # $Z set PaRaMs_t="$PaRaMs_t"" HG_Ix=VRAI HG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" HD_Ix=VRAI HD_Iy=VRAI" # # $Z set PaRaMs_t="$PaRaMs_t"" BG_Ix=FAUX BG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" BD_Ix=FAUX BD_Iy=VRAI" # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.P3%s \ # # $Z $PaRaMs_t \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xiirv/STRU.bas.P3%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z R=$xiirv/STRU.bas.P4%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_bas_P4: # # # v $xiirv/STRU.bas.P5 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_bas_P5: # # # # $Z Pal # # # # $Z set PaRaMs_t="$K_VIDE" # # $Z set PaRaMs_t="$PaRaMs_t"" HG_Ix=VRAI HG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" HD_Ix=VRAI HD_Iy=VRAI" # # $Z set PaRaMs_t="$PaRaMs_t"" BG_Ix=FAUX BG_Iy=FAUX" # # $Z set PaRaMs_t="$PaRaMs_t"" BD_Ix=FAUX BD_Iy=VRAI" # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$xiirv/STRU.bas.P4%s \ # # $Z $PaRaMs_t \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$xiirv/STRU.bas.P4%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=81 \ # # $Z R=$xiirv/STRU.bas.P5%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_bas_P5: # # # v $xiirv/STRU.bas.Q1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_bas_Q1: # # # # $Z Pal # # # # $Z $xci/gauss$X \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/rouge_orang.11 \ # # $Z R=$xiirv/STRU.bas.Q1 \ # # $Z $formatI # # # # :Fin_listG_STRU_bas_Q1: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # v $xiirv/STRU.bas.Q2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_bas_Q2: # # # # $Z Pal # # # # $Z $xci/gauss$X \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/rouge_orang.12 \ # # $Z R=$xiirv/STRU.bas.Q2 \ # # $Z $formatI # # # # :Fin_listG_STRU_bas_Q2: # # # # # # Cette image definit un motif de base periodique pour des entrelacs du type 'STRU'... # v $xiirv/STRU.11 p=$xiP/gris.01 v $xiirv/STRU.11$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.11$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.11$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_11: # # # # $Z Pal # # # # $Z $xci/gauss$X \ # # $Z c=128 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/GAUSS_CENTRE \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Ct=7 \ # # $Z Ex=1.0 Ey=1.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z standard=FAUX \ # # $Z A2=$xTV/GAUSS_CENTRE \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=16 mt=4 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z standard=FAUX \ # # $Z A2=$xTV/GAUSS_CENTRE \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Z \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.10 \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP \ # # $Z $formatI # # # # $Z $xci/deformi.01$X \ # # $Z A=$xTV/CHAMP \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+0.1 mxz=-0.2 \ # # $Z myx=+0.1 myy=+1.0 myz=+0.1 \ # # $Z mzx=-0.2 mzy=+0.1 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.11 \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/CHAMP \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.11.$CHAMP \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.11$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.11$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.11$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRU_11: # # # v $xiirv/STRU.21 p=$xiP/gris.01 v $xiirv/STRU.21$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.21$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_21: # # # # $Z Pal # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=32 mt=+8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=32 mt=-8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.10 \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP \ # # $Z $formatI # # # # $Z $xci/deformi.01$X \ # # $Z A=$xTV/CHAMP \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.21 \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/CHAMP \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.21.$CHAMP \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.21$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.21$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_21: # # # v $xiirv/STRU.31 p=$xiP/gris.01 v $xiirv/STRU.31$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.31$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_31: # # # # $Z Pal # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ex=2.0 Ey=2.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ex=2.0 Ey=2.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.10 \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP \ # # $Z $formatI # # # # $Z $xci/deformi.01$X \ # # $Z A=$xTV/CHAMP \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.31 \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/CHAMP \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.31.$CHAMP \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.31$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.31$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_31: # # # v $xiirv/STRU.41 p=$xiP/gris.01 v $xiirv/STRU.41.$CHAMP p=$xiP/gris.01 v $xiirv/STRU.41$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.41$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_41: # # # # $Z Std # # # # $Z source $xrd/graph.01$vv$Y # # # # $Z G_Dessin "A" 3 $xTV/IMPOSSIBLE # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/IMPOSSIBLE$ROUGE \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xTV/IMPOSSIBLE \ # # $Z $formatR_Pal # # # # $Z Pal # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=32 mt=+8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=32 mt=-8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/IMPOSSIBLE \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP \ # # $Z $formatI # # # # $Z $xci/deformi.01$X \ # # $Z A=$xTV/CHAMP \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.41 \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/CHAMP \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.41.$CHAMP \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.41$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.41$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_41: # # # v $xiirv/STRU.51 p=$xiP/gris.01 v $xiirv/STRU.51.$CHAMP p=$xiP/gris.01 v $xiirv/STRU.51$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.51$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_51: # # # # $Z Std # # # # $Z source $xrd/graph.01$vv$Y # # # # $Z G_Dessin "A" 3 $xTV/IMPOSSIBLE # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/IMPOSSIBLE$ROUGE \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xTV/IMPOSSIBLE \ # # $Z $formatR_Pal # # # # $Z Pal # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ex=1.2 Ey=1.2 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ex=1.2 Ey=1.2 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/IMPOSSIBLE \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP \ # # $Z $formatI # # # # $Z $xci/deformi.01$X \ # # $Z A=$xTV/CHAMP \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.51 \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/CHAMP \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.51.$CHAMP \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.51$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.51$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_51: # # # v $xiirv/STRU.61 p=$xiP/gris.01 v $xiirv/STRU.61.motif p=$xiP/gris.01 v $xiirv/STRU.61.$CHAMP p=$xiP/gris.01 v $xiirv/STRU.61$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.61$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_61: # # # # $Z Std # # # # $Z source $xrd/graph.01$vv$Y # # # # $Z set BMoTiF=3 # # $Z set MoTiF="=AJ.2=HI." # # # # $Z G_Dessin $MoTiF $BMoTiF $xTV/IMPOSSIBLE "LISTE_RAYON=0.04" # # # # $Z $xci/message$X \ # # $Z A=$NOIR \ # # $Z message="$MoTiF" \ # # $Z niveau_fond=$NOIR \ # # $Z niveau_message=$BLANC \ # # $Z bibliotheque=$BMoTiF \ # # $Z centrer=VRAI \ # # $Z anti_aliasing=VRAI \ # # $Z taille=43 \ # # $Z R=$xiirv/STRU.61.motif \ # # $Z $formatI # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/IMPOSSIBLE$ROUGE \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xTV/IMPOSSIBLE \ # # $Z $formatR_Pal # # # # $Z Pal # # # # $Z $xci/acces$X \ # # $Z A=$xTV/IMPOSSIBLE \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP \ # # $Z $formatI # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=16 mt=+4 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=16 mt=-4 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z $xci/deformi.01$X \ # # $Z A=$xTV/CHAMP \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.61 \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/CHAMP \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.61.$CHAMP \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.61$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.61$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_61: # # # # # # En ce qui concerne la justification du 'Std', voir 'v $xiii/alphabet.3$FON 20080910141723'. # # # # Jusqu'au 20080912144335 c'etait "=AJ.2=IH." qui etait utilise, mais "=AJ.2=HI." est bien # # mieux car, en effet, lorsque l'on parcourt le carre central dans le sens trigonometrique, # # ses cotes basculent "dessus-dessous", "dessous-dessus", "dessus-dessous" et enfin # # "dessous-dessus" (lorsque l'on fait tourner a chaque fois l'ensemble de pi/2 evidemment). # v $xiirv/STRU.71 v $xiirv/STRU.71$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.71$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_71: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=32 mt=+8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=32 mt=-8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.11%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.71%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.71$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.71$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_71: # # # v $xiirv/STRU.72 v $xiirv/STRU.72$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.72$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_72: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=32 mt=+8 \ # # $Z Ex=1.0 Ey=1.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=32 mt=+8 \ # # $Z Ex=1.5 Ey=1.5 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/minmax$X \ # # $Z A1=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/Sy$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.11%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.72%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.72$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.72$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_72: # # # v $xiirv/STRU.73 v $xiirv/STRU.73$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.73$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_73: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=16 mt=+4 \ # # $Z Ex=1.0 Ey=1.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=16 mt=+4 \ # # $Z Ex=1.5 Ey=1.5 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/minmax$X \ # # $Z A1=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/Sy$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.11%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.73%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.73$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.73$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_73: # # # v $xiirv/STRU.73.6.2 # Generee (sur '$CMAP28' -ex "abbesses"-) par : # # # # # # :Debut_listG_STRU_73_6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z set _____ImageA=$xiirv/STRU.73 # # $Z SET cPas=1 # # $Z SET cBorneInf=32 # # $Z SET cBorneSup=32 # # $m4 _____include(_____xiav/.STRU.d3.n.1._____U) # # $m4 _____include(_____xiav/.STRU.d3.4.1._____U) # # # # $Z SET cPremiere=$GRIS_0 # # $Z SET cDerniere=$GRIS_8 # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $m4 _____include(_____xiav/.STRU.d3.n.2._____U) # # # # $Z set _____imagesR=$xiirv/STRU.73.6 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_STRU_73_6: # # # v $xiirv/STRU.81 v $xiirv/STRU.81$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.81$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.81$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_81: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z c=128 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/GAUSS_CENTRE \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Ct=7 \ # # $Z Ex=1.0 Ey=1.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=16 mt=4 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z standard=FAUX \ # # $Z A2=$xTV/GAUSS_CENTRE \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Z \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.11%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.2 mxz=-2.8 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=25 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.81 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.81$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.81$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.81$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRU_81: # # # # # # Jusqu'au 20080918162222, j'ai utilise : # # # # mxx=+1.0 mxy=+1.6 mxz=-3.2 # # myx=+1.6 myy=+1.0 myz=+1.6 # # mzx=-3.2 mzy=+1.6 mzz=+1.0 # # # # mais cela creait une structure verticale centrale, d'ou les nouvelles valeurs... # v $xiirv/STRU.81.1 p=$xiP/dentscie.01 v $xiirv/STRU.81.1 p=$xiP/dentscie.02 v $xiirv/STRU.81.1 p=$xiP/gris_oran.12 v $xiirv/STRU.81.1 p=$xiP/paysages.01 v $xiirv/STRU.81.1 p=$xiP/paysages.42 v $xiirv/STRU.81.1 p=$xiP/vert_orange # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_81_1: # # # # $Z Pal # # # # $Z execRVB "$xci/Sx$X \ # # $Z A=$xiirv/STRU.81%s \ # # $Z $formatI | \ # # $Z $xci/minmax$X \ # # $Z A1=$xiirv/STRU.81%s \ # # $Z R=$xTV/SYMETRIE%s \ # # $Z $formatI" # # $Z execRVB "$xci/Sy$X \ # # $Z A=$xTV/SYMETRIE%s \ # # $Z $formatI | \ # # $Z $xci/minmax$X \ # # $Z A1=$xTV/SYMETRIE%s \ # # $Z R=$xTV/SYMETRIES%s \ # # $Z $formatI" # # $Z \ # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/SYMETRIES \ # # $Z R=$xiirv/STRU.81.1 \ # # $Z $formatI # # # # :Fin_listG_STRU_81_1: # # # v $xiirv/STRU.91 v $xiirv/STRU.91$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.91$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_91: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/spiArchimede$X \ # # $Z standard=VRAI \ # # $Z mr=16 mt=+2 \ # # $Z R=$xTV/DEFORMATION \ # # $Z $formatI # # $Z $xci/tapisserie$X \ # # $Z A=$xTV/DEFORMATION \ # # $Z $formatI | \ # # $Z $xci/minmax$X \ # # $Z A1=$xTV/DEFORMATION \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=100 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=VRAI \ # # $Z mr=16 mt=-1 \ # # $Z R=$xTV/DEFORMATION \ # # $Z $formatI # # $Z $xci/tapisserie$X \ # # $Z A=$xTV/DEFORMATION \ # # $Z $formatI | \ # # $Z $xci/minmax$X \ # # $Z A1=$xTV/DEFORMATION \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=100 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.11%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.91 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.91$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.91$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_91: # # # v $xiirv/STRU.A1 v $xiirv/STRU.A1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.A1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_A1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=4 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$qpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z Ex=8.0 Ey=8.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$qpi \ # # $Z dephaser=VRAI \ # # $Z Ex=8.0 Ey=8.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.11%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.A1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.A1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.A1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_A1: # # # v $xiirv/STRU.A2 v $xiirv/STRU.A2$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.A2$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_A2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=4 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$qpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z Ex=0.50 Ey=0.50 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$qpi \ # # $Z dephaser=VRAI \ # # $Z Ex=0.90 Ey=0.90 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.11%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.A2%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.A2$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.A2$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_A2: # # # v $xiirv/STRU.B1 v $xiirv/STRU.B1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.B1$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.B1$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_B1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=4 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$qpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z Ex=3.0 Ey=3.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$qpi \ # # $Z dephaser=VRAI \ # # $Z Ex=3.0 Ey=3.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Z \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.11%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.B1 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.B1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.B1$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.B1$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRU_B1: # # # v $xiirv/STRU.B2 v $xiirv/STRU.B2$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.B2$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.B2$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_B2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=4 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$qpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z Ex=3.0 Ey=3.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$qpi \ # # $Z dephaser=VRAI \ # # $Z Ex=3.0 Ey=3.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Ct=8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Z \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.11%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.B2 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.B2$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.B2$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.B2$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRU_B2: # # # v $xiirv/STRU.B3 v $xiirv/STRU.B3$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.B3$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.B3$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_B3: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=4 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$qpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z Ex=3.0 Ey=3.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$qpi \ # # $Z dephaser=VRAI \ # # $Z Ex=3.0 Ey=3.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z origine=0 extremite=$qpi \ # # $Z $formatI | \ # # $Z $xci/cosinus$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Z \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.11%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.B3 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.B3$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.B3$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.B3$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRU_B3: # # # v $xiirv/STRU.C1 v $xiirv/STRU.C1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.C1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_C1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=32 mt=+8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=32 mt=-8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.14%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.C1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.C1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.C1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_C1: # # # v $xiirv/STRU.D1 v $xiirv/STRU.D1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.D1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_D1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Ct=4 \ # # $Z R=$xTV/TREFLE \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$qpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z Ex=8.0 Ey=8.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/TREFLE \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$qpi \ # # $Z dephaser=VRAI \ # # $Z Ex=8.0 Ey=8.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/TREFLE \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.12%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.D1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.D1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.D1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_D1: # # # v $xiirv/STRU.D2 v $xiirv/STRU.D2$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.D2$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_D2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Ct=4 \ # # $Z R=$xTV/TREFLE \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$qpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z Ex=2.0 Ey=2.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/TREFLE \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$qpi \ # # $Z dephaser=VRAI \ # # $Z Ex=2.0 Ey=2.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/TREFLE \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.12%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.D2%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.D2$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.D2$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_D2: # # # v $xiirv/STRU.D3 v $xiirv/STRU.D3$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.D3$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_D3: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Ct=4 \ # # $Z R=$xTV/TREFLE \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$qpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z Ex=1.0 Ey=1.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/TREFLE \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$qpi \ # # $Z dephaser=VRAI \ # # $Z Ex=1.0 Ey=1.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/TREFLE \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.12%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.D3%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.D3$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.D3$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_D3: # # # v $xiirv/STRU.E1 v $xiirv/STRU.E1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.E1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_E1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Ct=4 \ # # $Z R=$xTV/TREFLE \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=48 mt=+16 \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/TREFLE \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=32 mt=-8 \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/TREFLE \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.12%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRU.E1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.E1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.E1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_E1: # # # v $xiirv/STRU.F1 v $xiirv/STRU.F1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.F1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_F1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=600 \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z standard=FAUX \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z cx=9 cy=7 cr=50 ct=0 \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z R=$xTV/PONDERATEUR \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z cx=7 cy=5 cr=3 ct=4 \ # # $Z Ex=3 Ey=3 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/PONDERATEUR \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/Fermat$X \ # # $Z standard=FAUX \ # # $Z cx=0 cy=0 cn=1 en=3 \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z cx=6 cy=-3 cr=4 ct=3 \ # # $Z Ex=3 Ey=3 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/PONDERATEUR \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/Fermat$X \ # # $Z standard=FAUX \ # # $Z cx=0 cy=0 cn=1 en=3 \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.12%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRU.F1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.F1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.F1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_F1: # # # v $xiirv/STRU.F2 v $xiirv/STRU.F2$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.F2$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_F2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=200 \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z standard=FAUX \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z cx=9 cy=7 cr=20 ct=0 \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z R=$xTV/PONDERATEUR \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z cx=7 cy=5 cr=3 ct=4 \ # # $Z Ex=1 Ey=1 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/PONDERATEUR \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/Fermat$X \ # # $Z standard=FAUX \ # # $Z cx=0 cy=0 cn=1 en=3 \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z cx=6 cy=-3 cr=4 ct=3 \ # # $Z Ex=1 Ey=1 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/PONDERATEUR \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/Fermat$X \ # # $Z standard=FAUX \ # # $Z cx=0 cy=0 cn=1 en=3 \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.13%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=4 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRU.F2%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.F2$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.F2$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_F2: # # # v $xiirv/STRU.F3 v $xiirv/STRU.F3$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.F3$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_F3: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=600 \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z standard=FAUX \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=40 mt=1 \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z R=$xTV/PONDERATEUR \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z cx=7 cy=5 cr=3 ct=4 \ # # $Z Ex=3 Ey=3 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/PONDERATEUR \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/Fermat$X \ # # $Z standard=FAUX \ # # $Z cx=0 cy=0 cn=1 en=3 \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z cx=6 cy=-3 cr=4 ct=3 \ # # $Z Ex=3 Ey=3 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/PONDERATEUR \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/Fermat$X \ # # $Z standard=FAUX \ # # $Z cx=0 cy=0 cn=1 en=3 \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.12%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.F3 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.F3$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.F3$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_F3: # # # v $xiirv/STRU.G1 v $xiirv/STRU.G1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.G1$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.G1$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_G1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=4 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$pi cy=0 \ # # $Z dephaser=VRAI \ # # $Z Ex=8.0 Ey=8.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z origine=0 extremite=$pi \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$pi \ # # $Z dephaser=VRAI \ # # $Z Ex=7.0 Ey=7.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z origine=0 extremite=$dpi \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z origine=0 extremite=$qpi \ # # $Z $formatI | \ # # $Z $xci/cosinus$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z origine=0 extremite=0.5 \ # # $Z R=$xTV/DEFORMATION$COORD_Z \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.11%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z spheriques=VRAI \ # # $Z DR=$xTV/DEFORMATION$COORD_Z \ # # $Z DP=$xTV/DEFORMATION$COORD_X \ # # $Z DT=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.G1 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.G1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.G1$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.G1$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRU_G1: # # # # # # Cette image est "inspiree" de 'v $xiirv/STRU.B3' (mais en coordonnees spheriques...). # # # # On notera au passage que le 'Phi' ("DP=") varie dans [0,pi] et que le 'Theta' ("DT=") varie # # dans [0,2.pi] alors que c'est le contraire ('v $ximD/definit.1$DEF theta.E..0.PI.') # # habituellement... # v $xiirv/STRU.H1 v $xiirv/STRU.H1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.H1$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.H1$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_H1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z sphere.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.11%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.H1 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.H1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.H1$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.H1$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRU_H1: # # # # # # Cette image est basee sur les pseudo-projections de la sphere... # v $xiirv/STRU.H1.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_H1_1: # # # # $Z Pal # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$xiirv/STRU.H1%s \ # # $Z iterations=3 \ # # $Z R=$xiirv/STRU.H1.1%s \ # # $Z $formatI # # # # :Fin_listG_STRU_H1_1: # # # v $xiirv/STRU.H2 v $xiirv/STRU.H2$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.H2$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.H2$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_H2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z bKlein.61 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.11%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.H2 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.H2$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.H2$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.H2$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRU_H2: # # # # # # Cette image est basee sur les pseudo-projections de la triple bouteille de # # Bonan-Jeener-Klein... # v $xiirv/STRU.H2.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_H2_1: # # # # $Z Pal # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$xiirv/STRU.H2%s \ # # $Z iterations=3 \ # # $Z R=$xiirv/STRU.H2.1%s \ # # $Z $formatI # # # # :Fin_listG_STRU_H2_1: # # # v $xiirv/STRU.H3 v $xiirv/STRU.H3$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.H3$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.H3$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_H3: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z sBoy.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.11%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.H3 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.H3$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.H3$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.H3$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRU_H3: # # # # # # Cette image est basee sur les pseudo-projections de la surface de Boy. # v $xiirv/STRU.H3.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_H3_1: # # # # $Z Pal # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$xiirv/STRU.H3%s \ # # $Z iterations=3 \ # # $Z R=$xiirv/STRU.H3.1%s \ # # $Z $formatI # # # # :Fin_listG_STRU_H3_1: # # # v $xiirv/STRU.I1 v $xiirv/STRU.I1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.I1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_I1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z niveau=8 \ # # $Z mx=0.1 my=0.1 \ # # $Z graine=1111 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z niveau=8 \ # # $Z mx=0.1 my=0.1 \ # # $Z graine=3333 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.13%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.I1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.I1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.I1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_I1: # # # v $xiirv/STRU.I2 v $xiirv/STRU.I2$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.I2$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_I2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z niveau=4 \ # # $Z mx=0.1 my=0.1 \ # # $Z graine=1111 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z niveau=4 \ # # $Z mx=0.1 my=0.1 \ # # $Z graine=3333 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.13%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.I2 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.I2$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.I2$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_I2: # # # v $xiirv/STRU.J1 v $xiirv/STRU.J1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.J1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_J1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z niveau=2 \ # # $Z mx=0.10 my=0.10 \ # # $Z graine=1111 \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=200 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z niveau=2 \ # # $Z mx=0.10 my=0.10 \ # # $Z graine=3333 \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=200 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.13%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.J1 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.J1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.J1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_J1: # # # # # # L'utilisation de '$xci/egaliseH$X' est destine a egaliser autant que faire se peut # # l'histogramme des champs generes par '$xci/fract_2D.01$X' qui presentent en fait la # # forme d'une gaussienne centree sur les niveaux moyens. Quant a '$xci/lissage$X', il # # a "gomme" les discontinuites introduites dans le champ par l'egalisation de l'histogramme # # ('v $xiii/di_image$FON 20081001190628'). # v $xiirv/STRU.J2 v $xiirv/STRU.J2$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.J2$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_J2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z mx=0.10 my=0.10 \ # # $Z graine=1111 \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=50 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z mx=0.10 my=0.10 \ # # $Z graine=3333 \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=50 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.32%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.J2 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.J2$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.J2$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_J2: # # # # # # L'utilisation de '$xci/egaliseH$X' est destine a egaliser autant que faire se peut # # l'histogramme des champs generes par '$xci/fract_2D.01$X' qui presentent en fait la # # forme d'une gaussienne centree sur les niveaux moyens. Quant a '$xci/lissage$X', il # # a "gomme" les discontinuites introduites dans le champ par l'egalisation de l'histogramme # # ('v $xiii/di_image$FON 20081001190628'). # v $xiirv/STRU.K1 v $xiirv/STRU.K1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.K1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_K1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Ct=4 \ # # $Z R=$xTV/TREFLE \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=40 mt=-16 \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/TREFLE \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z niveau=2 \ # # $Z mx=0.05 my=0.05 \ # # $Z graine=3333 \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=200 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.12%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.K1 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.K1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.K1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_K1: # # # v $xiirv/STRU.L1 v $xiirv/STRU.L1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.L1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_L1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z arie=VRAI ariec=VRAI pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z Ct=4 \ # # $Z R=$xTV/TREFLE \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z arie=VRAI ariec=VRAI pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/TREFLE \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z niveau=8 \ # # $Z mx=0.20 my=0.20 \ # # $Z graine=3333 \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=200 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.12%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.L1 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.L1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.L1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_L1: # # # v $xiirv/STRU.L2 v $xiirv/STRU.L2$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.L2$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_L2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z arie=VRAI ariec=VRAI pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z Ct=4 \ # # $Z R=$xTV/TREFLE \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=16 mt=+8 \ # # $Z arie=VRAI ariec=VRAI pxADD2_ADD2=0 pxMAX2_ADD2=1 \ # # $Z Ty=0 \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/TREFLE \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z niveau=16 \ # # $Z mx=0.10 my=0.10 \ # # $Z graine=3333 \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=200 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.12%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.L2 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.L2$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.L2$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_L2: # # # v $xiirv/STRU.M1 v $xiirv/STRU.M1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.M1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_M1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z niveau=2 \ # # $Z mx=0.10 my=0.10 \ # # $Z graine=1111 \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z plat=VRAI shuffling=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=200 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z niveau=2 \ # # $Z mx=0.10 my=0.10 \ # # $Z graine=3333 \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z plat=VRAI shuffling=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=200 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.13%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.M1 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.M1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.M1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_M1: # # # v $xiirv/STRU.P3 v $xiirv/STRU.P3$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.P3$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_P3: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=8 mt=+4 \ # # $Z Ex=0.5 Ey=0.5 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=16 mt=+8 \ # # $Z Ex=1.5 Ey=1.5 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/minmax$X \ # # $Z A1=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z plat=VRAI shuffling=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=1000 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/Sy$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.17%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.P3 $xiP/rouge_orang # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.P3$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.P3$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_P3: # # # v $xiirv/STRU.Q1 v $xiirv/STRU.H1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.H1$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.H1$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_Q1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z sphere.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.D3%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.Q1 # # # # :Fin_listG_STRU_Q1: # # # # # # Cette image est basee sur les pseudo-projections de la sphere... # v $xiirv/STRU.Q2 v $xiirv/STRU.H2$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.H2$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.H2$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_Q2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z bKlein.61 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.D3%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.Q2 # # # # :Fin_listG_STRU_Q2: # # # # # # Cette image est basee sur les pseudo-projections de la triple bouteille de # # Bonan-Jeener-Klein... # v $xiirv/STRU.Q3 v $xiirv/STRU.H3$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.H3$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.H3$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_Q3: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z sBoy.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.D3%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.Q3 # # # # :Fin_listG_STRU_Q3: # # # # # # Cette image est basee sur les pseudo-projections de la surface de Boy. # v $xiirv/STRU.Q1Q2Q3 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_Q1Q2Q3: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/STRU.Q1 \ # # $Z R=$xTV/STRUCTURE$ROUGE \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/STRU.Q2 \ # # $Z R=$xTV/STRUCTURE$VERTE \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/STRU.Q3 \ # # $Z R=$xTV/STRUCTURE$BLEUE \ # # $Z $formatI # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.Q1Q2Q3 # # # # :Fin_listG_STRU_Q1Q2Q3: # # # v $xiirv/STRU.Q1Q2Q3.1 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_Q1Q2Q3_1: # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z Pal # # # # $Z set _____ImageA=$xiirv/STRU.Q1Q2Q3 # # $Z set _____Xbg=260 # # $Z set _____Ybg=100 # # $Z set _____Xhd=680 # # $Z set _____Yhd=520 # # $Z set _____ImageR=$xiirv/STRU.Q1Q2Q3.1 # # $m4 _____include(_____xiirf/.BORD.11.1._____U) # # # # :Fin_listG_STRU_Q1Q2Q3_1: # # # v $xiirv/STRU.R1 v $xiirv/STRU.H1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.H1$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.H1$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_R1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z sphere.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.A2%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.R1 # # # # :Fin_listG_STRU_R1: # # # # # # Cette image est basee sur les pseudo-projections de la sphere... # v $xiirv/STRU.R2 v $xiirv/STRU.H2$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.H2$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.H2$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_R2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z bKlein.61 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.A2%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.R2 # # # # :Fin_listG_STRU_R2: # # # # # # Cette image est basee sur les pseudo-projections de la triple bouteille de # # Bonan-Jeener-Klein... # v $xiirv/STRU.R3 v $xiirv/STRU.H3$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.H3$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.H3$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_R3: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z sBoy.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.A2%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.R3 # # # # :Fin_listG_STRU_R3: # # # # # # Cette image est basee sur les pseudo-projections de la surface de Boy. # v $xiirv/STRU.R1R2R3 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_R1R2R3: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/STRU.R1 \ # # $Z R=$xTV/STRUCTURE$ROUGE \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/STRU.R2 \ # # $Z R=$xTV/STRUCTURE$VERTE \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/STRU.R3 \ # # $Z R=$xTV/STRUCTURE$BLEUE \ # # $Z $formatI # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.R1R2R3 # # # # :Fin_listG_STRU_R1R2R3: # # # v $xiirv/STRU.R1R2R3.1 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_R1R2R3_1: # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z Pal # # # # $Z set _____ImageA=$xiirv/STRU.R1R2R3 # # $Z set _____Xbg=260 # # $Z set _____Ybg=100 # # $Z set _____Xhd=680 # # $Z set _____Yhd=520 # # $Z set _____ImageR=$xiirv/STRU.R1R2R3.1 # # $m4 _____include(_____xiirf/.BORD.11.1._____U) # # # # :Fin_listG_STRU_R1R2R3_1: # # # v $xiirv/STRU.S1 v $xiirv/STRU.H1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.H1$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.H1$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_S1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z sphere.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.41%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.S1 # # # # :Fin_listG_STRU_S1: # # # # # # Cette image est basee sur les pseudo-projections de la sphere... # v $xiirv/STRU.S2 v $xiirv/STRU.H2$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.H2$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.H2$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_S2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z bKlein.61 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.41%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.S2 # # # # :Fin_listG_STRU_S2: # # # # # # Cette image est basee sur les pseudo-projections de la triple bouteille de # # Bonan-Jeener-Klein... # v $xiirv/STRU.S3 v $xiirv/STRU.H3$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.H3$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.H3$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_S3: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z sBoy.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.41%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.S3 # # # # :Fin_listG_STRU_S3: # # # # # # Cette image est basee sur les pseudo-projections de la surface de Boy. # v $xiirv/STRU.T1 v $xiirv/STRU.T1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.T1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_T1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Ct=8 \ # # $Z R=$xTV/TREFLE \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$qpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z Ex=4.0 Ey=4.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/TREFLE \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$qpi \ # # $Z dephaser=VRAI \ # # $Z Ex=4.0 Ey=4.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/TREFLE \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.43%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.T1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.T1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.T1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_T1: # # # v $xiirv/STRU.T2 v $xiirv/STRU.T2$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.T2$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_T2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Ct=16 \ # # $Z R=$xTV/TREFLE \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$qpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z Ex=2.0 Ey=2.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/TREFLE \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z plat=VRAI shuffling=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=20 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$qpi \ # # $Z dephaser=VRAI \ # # $Z Ex=2.0 Ey=2.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/TREFLE \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z plat=VRAI shuffling=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=20 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.44%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.T2%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.T2$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.T2$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_T2: # # # v $xiirv/STRU.U1 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_U1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z sphere.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.44%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.U1 # # # # :Fin_listG_STRU_U1: # # # # # # Cette image est basee sur les pseudo-projections de la sphere... # v $xiirv/STRU.U2 v $xiirv/STRU.H2$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.H2$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.H2$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_U2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z bKlein.61 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.44%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.U2 # # # # :Fin_listG_STRU_U2: # # # # # # Cette image est basee sur les pseudo-projections de la triple bouteille de # # Bonan-Jeener-Klein... # v $xiirv/STRU.U3 v $xiirv/STRU.H3$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.H3$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.H3$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_U3: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z sBoy.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.44%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.U3 # # # # :Fin_listG_STRU_U3: # # # # # # Cette image est basee sur les pseudo-projections de la surface de Boy. # v $xiirv/STRU.V1 v $xiirv/STRU.V1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.V1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_V1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=32 mt=+2 \ # # $Z R=$xTV/SPIRALE \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$qpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z Ex=8.0 Ey=8.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/SPIRALE \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z plat=VRAI shuffling=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=20 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$qpi \ # # $Z dephaser=VRAI \ # # $Z Ex=8.0 Ey=8.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/SPIRALE \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z plat=VRAI shuffling=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=20 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.11%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.V1 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.V1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.V1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_V1: # # # v $xiirv/STRU.V2 v $xiirv/STRU.V2$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.V2$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_V2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=32 mt=+2 \ # # $Z R=$xTV/SPIRALE.1 \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$qpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z Ex=8.0 Ey=8.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/SPIRALE.1 \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z plat=VRAI shuffling=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=20 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=32 mt=-2 \ # # $Z R=$xTV/SPIRALE.2 \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$qpi \ # # $Z dephaser=VRAI \ # # $Z Ex=8.0 Ey=8.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/SPIRALE.2 \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z plat=VRAI shuffling=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=20 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.11%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.V2 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.V2$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.V2$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_V2: # # # v $xiirv/STRU.W1 v $xiirv/STRU.W1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.W1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_W1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=4 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=16 mt=+2 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/CHAMP.1 \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/CHAMP.2 \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/CHAMP.1 \ # # $Z A2=$xTV/CHAMP.2 \ # # $Z P=$xTV/GAUSS \ # # $Z inverser_ponderateur=FAUX \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z plat=VRAI shuffling=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=50 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/CHAMP.1 \ # # $Z A2=$xTV/CHAMP.2 \ # # $Z P=$xTV/GAUSS \ # # $Z inverser_ponderateur=VRAI \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z plat=VRAI shuffling=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=50 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.53%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.W1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.W1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.W1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_W1: # # # v $xiirv/STRU.X1 v $xiirv/STRU.X1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.X1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_X1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=4 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$qpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z Ex=1.0 Ey=1.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$qpi \ # # $Z dephaser=VRAI \ # # $Z Ex=1.0 Ey=1.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.65%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.X1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.X1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.X1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_X1: # # # v $xiirv/STRU.Z1 v $xiirv/STRU.Z1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.Z1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_Z1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=400 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=41 mt=+7 \ # # $Z R=$xTV/SPIRALE.1 \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$qpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z Ex=1.0 Ey=1.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/SPIRALE.1 \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z plat=VRAI shuffling=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=20 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=43 mt=-9 \ # # $Z R=$xTV/SPIRALE.2 \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$qpi \ # # $Z dephaser=VRAI \ # # $Z Ex=1.0 Ey=1.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/SPIRALE.2 \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z plat=VRAI shuffling=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=20 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.11%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.Z1 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.Z1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.Z1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_Z1: # # # v $xiirv/STRU.Z2 v $xiirv/STRU.Z2$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.Z2$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_Z2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=400 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=41 mt=+7 \ # # $Z R=$xTV/SPIRALE.1 \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$qpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z Ex=1.0 Ey=1.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/SPIRALE.1 \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z plat=VRAI shuffling=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=20 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=43 mt=-9 \ # # $Z R=$xTV/SPIRALE.2 \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$qpi \ # # $Z dephaser=VRAI \ # # $Z Ex=1.0 Ey=1.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/SPIRALE.2 \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z plat=VRAI shuffling=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=20 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.32%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.Z2 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.Z2$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.Z2$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_Z2: # # # v $xiirv/STRU.b1 v $xiirv/STRU.b1.$CHAMP v $xiirv/STRU.b1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.b1$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.b1$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_b1: # # # # $Z Std # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z execRVB $xci/filtre.01$X \ # # $Z A=$xiit/JFC.13%s \ # # $Z N=$xTV/GAUSS \ # # $Z seuil=250 \ # # $Z R=$xTV/JFC.13%s \ # # $Z $formatI # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$xTV/JFC.13%s \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xTV/JFC.14%s \ # # $Z $formatR_Pal # # # # $Z Pal # # # # $Z execRVB $xci/egaliseH.01$X \ # # $Z A=$xTV/JFC.14%s \ # # $Z plat=VRAI \ # # $Z R=$xiirv/STRU.b1.$CHAMP%s \ # # $Z $formatI # # $Z execRVB "$xci/acces$X \ # # $Z A=$xiirv/STRU.b1.$CHAMP%s \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=50 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/JFC.15%s \ # # $Z $formatI" # # # # $Z $xci/neutre$X \ # # $Z A=$xTV/JFC.15$ROUGE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # $Z $xci/neutre$X \ # # $Z A=$xTV/JFC.15$VERTE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # $Z $xci/neutre$X \ # # $Z A=$xTV/JFC.15$BLEUE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION$COORD_Z \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.b1.$CHAMP%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.2 mxz=-2.8 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=25 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.b1 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.b1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.b1$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.b1$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRU_b1: # # # # # # Cette image presente un auto-portrait "auto-entrelace" ("auto" car, en effet, le portrait # # de base 'v $xiit/JFC.13' definit a la fois la geometrie '$xTV/DEFORMATION' et le motif de # # base '$xTV/CHAMP'...). # v $xiirv/STRU.c1 v $xiirv/STRU.c1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.c1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_c1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=200 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=8 mt=+1 \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=8 mt=-1 \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.11%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z iterer2D=VRAI nombre_iterations2D=1 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.c1 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.c1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.c1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_c1: # # # v $xiirv/STRU.c1.1$m # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_c1_1_m: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/STRU.c1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=100 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z standard=FAUX \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/FRACTAL \ # # $Z A2=$xTV/LUMINANCE \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/STRU.c1%s \ # # $Z avion=VRAI \ # # $Z R=$xiirv/STRU.c1.1$m%s \ # # $Z $formatI # # # # :Fin_listG_STRU_c1_1_m: # # # v $xiirv/STRU.c1.6.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_c1_6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z set _____ImageA=$xiirv/STRU.c1 # # $Z SET cPas=1 # # $Z SET cBorneInf=32 # # $Z SET cBorneSup=32 # # $m4 _____include(_____xiav/.STRU.d3.n.1._____U) # # $m4 _____include(_____xiav/.STRU.d3.4.1._____U) # # # # $Z SET cPremiere=$GRIS_0 # # $Z SET cDerniere=$GRIS_8 # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $m4 _____include(_____xiav/.STRU.d3.n.2._____U) # # # # $Z set _____imagesR=$xiirv/STRU.c1.6 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_STRU_c1_6: # # # v $xiirv/STRU.c2 v $xiirv/STRU.c2$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.c2$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_c2: # # # # $Z ext Squ 0 # # # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=200 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=8 mt=+1 \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=8 mt=-1 \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.11%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z COORDONNEES_____compatibilite_20090929=VRAI \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z iterer2D=VRAI nombre_iterations2D=1 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.c2 # # # # $Z execRVB "$xci/transpose$X \ # # $Z A=$xiirv/STRU.c2%s \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xiirv/STRU.c2%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.c2$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.c2$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_c2: # # # v $xiirv/STRU.c3 v $xiirv/STRU.c3$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.c3$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_c3: # # # # $Z ext Squ 0 # # # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=200 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=8 mt=+1 \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=8 mt=-1 \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.11%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z COORDONNEES_____compatibilite_20090929=VRAI \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z iterer2D=VRAI nombre_iterations2D=2 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.c3 # # # # $Z execRVB "$xci/transpose$X \ # # $Z A=$xiirv/STRU.c3%s \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xiirv/STRU.c3%s \ # # $Z $formatI" # # # # $Z ext Std 1 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.c3$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.c3$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_c3: # # # v $xiirv/STRU.c3$IdM # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_STRU_c3_IdM: # # # # $Z Squ # # # # $Z set _____ImageA=$xiirv/STRU.c3 # # $Z set _____ImageR=$_____ImageA$IdM # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImageA%s \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$_____ImageR%s \ # # $Z $formatR_TvB # # # # :Fin_listG_STRU_c3_IdM: # # # v $xiirv/STRU.c4 v $xiirv/STRU.c4$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.c4$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_c4: # # # # $Z ext Shu 0 # # # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=200 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=8 mt=+1 \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=8 mt=-1 \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.11%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z COORDONNEES_____compatibilite_20090929=VRAI \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z iterer2D=VRAI nombre_iterations2D=3 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE \ # # $Z $xiirv/STRU.c4 \ # # $Z $xiP/gris.01 \ # # $Z $xiP/trou_noir.94 \ # # $Z FAUX \ # # $Z "$xci/chapeau_mexi$X renormaliser=VRAI" # # # # $Z execRVB "$xci/transpose$X \ # # $Z A=$xiirv/STRU.c4%s \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xiirv/STRU.c4%s \ # # $Z $formatI" # # # # $Z ext Std 1 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.c4$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.c4$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_c4: # # # v $xiirv/STRU.c4$IdM # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_STRU_c4_IdM: # # # # $Z Shu # # # # $Z set _____ImageA=$xiirv/STRU.c4 # # $Z set _____ImageR=$_____ImageA$IdM # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImageA%s \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$_____ImageR%s \ # # $Z $formatR_TvB # # # # :Fin_listG_STRU_c4_IdM: # # # v $xiirv/STRU.c5 v $xiirv/STRU.c5$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.c5$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_c5: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=200 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=8 mt=+1 \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=8 mt=-1 \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiia/VASA.11.64%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z iterer2D=VRAI nombre_iterations2D=1 \ # # $Z tridimensionnelle=FAUX \ # # $Z ne_pas_interpoler=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRU.c5%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.c5$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.c5$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_c5: # # # v $xiirv/STRU.d1 v $xiirv/STRU.d1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.d1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_d1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.11%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.d1 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.d1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.d1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_d1: # # # v $xiirv/STRU.d2 v $xiirv/STRU.d2$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.d2$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_d2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.11%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z iterer2D=VRAI nombre_iterations2D=1 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.d2 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.d2$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.d2$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_d2: # # # v $xiirv/STRU.d3 v $xiirv/STRU.d3$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.d3$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_d3: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.67%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=4 mxy=0 mxz=0 \ # # $Z myx=0 myy=4 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.d3%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.d3$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.d3$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_d3: # # # v $xiirv/STRU.d3.0 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_d3_0: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z Frenormaliser=VRAI \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z Frenormaliser=VRAI \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z $xci/init$X \ # # $Z standard=FAUX \ # # $Z valeur=0 \ # # $Z R=$xTV/DEFORMATION$COORD_Z \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.67%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB $xci/deformi.12$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z chiffresA=0 \ # # $Z DIX=$xTV/DEFORMATION$COORD_X \ # # $Z chiffresDIX=0 \ # # $Z DIY=$xTV/DEFORMATION$COORD_Y \ # # $Z chiffresDIY=0 \ # # $Z DIZ=$xTV/DEFORMATION$COORD_Z \ # # $Z chiffresDIZ=0 \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=4 mxy=0 mxz=0 \ # # $Z myx=0 myy=4 myz=0 \ # # $Z mzx=0 mzy=0 mzz=1 \ # # $Z bilineaire=VRAI \ # # $Z R=$xiirv/STRU.d3.0%s \ # # $Z chiffresR=0 \ # # $Z $formatI \ # # $Z Zmin=0 Zmax=0 # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.d3.0%s \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.d3.0%s \ # # $Z $formatI # # # # :Fin_listG_STRU_d3_0: # # # # # # Ceci est en fait un test de 'v $xci/deformi.12$K' qui doit donner 'v $xiirv/STRU.d3'... # # En fait 'v $xiirv/STRU.d3.0' et 'v $xiirv/STRU.d3' sont legerement differentes, mais cela # # vient du fait que 'v $xiirv/STRU.d3' a ete creee le 20081025104547 (et sur '$LACT18'). # # Si on calcule 'v $xiirv/STRU.d3' et 'v $xiirv/STRU.d3.0' aujourd'hui (le 20180929162802), # # en utilisant obligatoirement l'option : # # # # interpoler=FAUX # # # # pour '$xci/deformi.01$X' et '$xci/deformi.12$X', alors, il y a bien stricte identite des # # deux images... # v $xiirv/STRU.d3.1$M p=$xiP/montagnes.91 v $xiirv/STRU.d3.1.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_d3_1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z SET cPremiere=$GRIS_0 # # $Z SET cDerniere=$GRIS_8 # # # # $Z set _____ImageT1=$xTV/STRU.d3 # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/STRU.d3 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z R=$_____ImageT1 \ # # $Z $formatI # # # # $Z $xci/montagne.01$X \ # # $Z A=$_____ImageT1 \ # # $Z T=$BLANC \ # # $Z avion=VRAI \ # # $Z R=$xiirv/STRU.d3.1$M \ # # $Z $formatI # # # # $c #include <stdio.h> # # $c # # $c #define COND(c,v,f) ((c) ? (v) : (f)) # # $c #define MIN2(a,b) COND(((a)<=(b)),(a),(b)) # # $c #define MAX2(a,b) COND(((a)>=(b)),(a),(b)) # # $c # # $c #define N0 cPremiere # # $c #define N cDerniere # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n=n+2) # # $c { # # $c printf("$xci/passe_bande$X # # $c A=$_____ImageT1 # # $c forcer_niveau_intermediaire=VRAI # # $c niveau_intermediaire=$BLANC # # $c niveau_inferieur=$NOIR # # $c niveau_superieur=$NOIR # # $c seuil_inferieur=%d # # $c seuil_superieur=%d # # $c R=$_____ImageT1.%04d # # $c $formatI\n" # # $c ,MAX2(n-1,N0) # # $c ,MIN2(n+2,N) # # $c ,n/2 # # $c ); # # $c } # # $c } # # # # $Z SET cPremiere=$GRIS_0 # # $Z SET cDerniere=$GRIS_4 # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/STRU.d3.1 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_STRU_d3_1: # # # # # # On notera le "chevauchement" (via [n-1,n+2] au lieu du logique [n,n+1]) des lignes de # # niveau extraites par '$xci/passe_bande$X' destine a eviter des trous noirs apparaissant # # dans l'accumulation finale et ce meme en utilisant "dx=4 dy=4 dz=4" dans le calcul de la # # densite... # v $xiirv/STRU.d3.2.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_d3_2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z SET cPremiere=$GRIS_0 # # $Z SET cDerniere=$GRIS_8 # # # # $Z set _____ImageT1=$xTV/STRU.d3 # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/STRU.d3 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z renormaliser=VRAI \ # # $Z R=$_____ImageT1 \ # # $Z $formatI # # # # $c #include <stdio.h> # # $c # # $c #define COND(c,v,f) ((c) ? (v) : (f)) # # $c #define MIN2(a,b) COND(((a)<=(b)),(a),(b)) # # $c #define MAX2(a,b) COND(((a)>=(b)),(a),(b)) # # $c # # $c #define N0 cPremiere # # $c #define N cDerniere # # $c # # $c int main() # # $c { # # $c int n; # # $c # # $c for (n=N0 ; n<=N ; n=n+2) # # $c { # # $c printf("$xci/passe_bande$X # # $c A=$_____ImageT1 # # $c forcer_niveau_intermediaire=VRAI # # $c niveau_intermediaire=$BLANC # # $c niveau_inferieur=$NOIR # # $c niveau_superieur=$NOIR # # $c seuil_inferieur=%d # # $c seuil_superieur=%d # # $c R=$_____ImageT1.%04d # # $c $formatI\n" # # $c ,MAX2(n-1,N0) # # $c ,MIN2(n+2,N) # # $c ,(N-n+N0)/2 # # $c ); # # $c } # # $c } # # # # $Z SET cPremiere=$GRIS_0 # # $Z SET cDerniere=$GRIS_4 # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/STRU.d3.2 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_STRU_d3_2: # # # # # # On notera le "chevauchement" (via [n-1,n+2] au lieu du logique [n,n+1]) des lignes de # # niveau extraites par '$xci/passe_bande$X' destine a eviter des trous noirs apparaissant # # dans l'accumulation finale et ce meme en utilisant "dx=4 dy=4 dz=4" dans le calcul de la # # densite... # v $xiirv/STRU.d3.3.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_d3_3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z set _____ImageA=$xiirv/STRU.d3 # # $Z SET cPas=2 # # $Z SET cBorneInf=1 # # $Z SET cBorneSup=2 # # $m4 _____include(_____xiav/.STRU.d3.n.1._____U) # # $m4 _____include(_____xiav/.STRU.d3.3.1._____U) # # # # $Z SET cPremiere=$GRIS_0 # # $Z SET cDerniere=$GRIS_4 # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $m4 _____include(_____xiav/.STRU.d3.n.2._____U) # # # # $Z set _____imagesR=$xiirv/STRU.d3.3 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_STRU_d3_3: # # # v $xiirv/STRU.d3.3.2.0001 v $xiirv/STRU.d3.3.2.0002 v $xiirv/STRU.d3.3.2.0003 v $xiirv/STRU.d3.3.2.0004 v $xiirv/STRU.d3.3.2.0005 v $xiirv/STRU.d3.3.2.0006 v $xiirv/STRU.d3.3.2.0007 v $xiirv/STRU.d3.3.2.0008 v $xiirv/STRU.d3.3.2.0009 v $xiirv/STRU.d3.3.2.0010 v $xiirv/STRU.d3.3.2.0011 v $xiirv/STRU.d3.3.2.0012 v $xiirv/STRU.d3.3.2.0013 v $xiirv/STRU.d3.3.2.0014 v $xiirv/STRU.d3.3.2.0015 v $xiirv/STRU.d3.3.2.0016 Pal ; anim3 A=$xiirv/STRU.d3.3.2. premiere=1 derniere=16 # Correspond aux images de la sequence : # # # # 'v $xiav/STRU.d3.3.2$R16' # # # v $xiirv/STRU.d3.4.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_d3_4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z set _____ImageA=$xiirv/STRU.d3 # # $Z SET cPas=2 # # $Z SET cBorneInf=1 # # $Z SET cBorneSup=2 # # $m4 _____include(_____xiav/.STRU.d3.n.1._____U) # # $m4 _____include(_____xiav/.STRU.d3.4.1._____U) # # # # $Z SET cPremiere=$GRIS_0 # # $Z SET cDerniere=$GRIS_4 # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $m4 _____include(_____xiav/.STRU.d3.n.2._____U) # # # # $Z set _____imagesR=$xiirv/STRU.d3.4 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_STRU_d3_4: # # # v $xiirv/STRU.d3.4.2.0001 v $xiirv/STRU.d3.4.2.0002 v $xiirv/STRU.d3.4.2.0003 v $xiirv/STRU.d3.4.2.0004 v $xiirv/STRU.d3.4.2.0005 v $xiirv/STRU.d3.4.2.0006 v $xiirv/STRU.d3.4.2.0007 v $xiirv/STRU.d3.4.2.0008 v $xiirv/STRU.d3.4.2.0009 v $xiirv/STRU.d3.4.2.0010 v $xiirv/STRU.d3.4.2.0011 v $xiirv/STRU.d3.4.2.0012 v $xiirv/STRU.d3.4.2.0013 v $xiirv/STRU.d3.4.2.0014 v $xiirv/STRU.d3.4.2.0015 v $xiirv/STRU.d3.4.2.0016 Pal ; anim3 A=$xiirv/STRU.d3.4.2. premiere=1 derniere=16 # Correspond aux images de la sequence : # # # # 'v $xiav/STRU.d3.4.2$R16' # # # v $xiirv/STRU.d3.5.2 # Generee (sur '$CMAP28' -ex "abbesses"-) par : # # # # # # :Debut_listG_STRU_d3_5: # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z Pdu # # # # $Z set _____ImageA=$xTV/STRU.d3 # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$xiirv/STRU.d3%s \ # # $Z $format_Pal \ # # $Z mode=2 \ # # $Z R=$_____ImageA%s \ # # $Z $formatR_Pdu # # # # $Z SET cPas=1 # # $Z SET cBorneInf=32 # # $Z SET cBorneSup=32 # # $m4 _____include(_____xiav/.STRU.d3.n.1._____U) # # $m4 _____include(_____xiav/.STRU.d3.3.1._____U) # # # # $Z SET cPremiere=$GRIS_0 # # $Z SET cDerniere=$GRIS_8 # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $m4 _____include(_____xiav/.STRU.d3.n.2._____U) # # # # $Z set _____imagesR=$xiirv/STRU.d3.5 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_STRU_d3_5: # # # v $xiirv/STRU.d3.5.2.0001 v $xiirv/STRU.d3.5.2.0002 v $xiirv/STRU.d3.5.2.0003 v $xiirv/STRU.d3.5.2.0004 v $xiirv/STRU.d3.5.2.0005 v $xiirv/STRU.d3.5.2.0006 v $xiirv/STRU.d3.5.2.0007 v $xiirv/STRU.d3.5.2.0008 v $xiirv/STRU.d3.5.2.0009 v $xiirv/STRU.d3.5.2.0010 v $xiirv/STRU.d3.5.2.0011 v $xiirv/STRU.d3.5.2.0012 v $xiirv/STRU.d3.5.2.0013 v $xiirv/STRU.d3.5.2.0014 v $xiirv/STRU.d3.5.2.0015 v $xiirv/STRU.d3.5.2.0016 Pal ; anim3 A=$xiirv/STRU.d3.5.2. premiere=1 derniere=16 # Correspond aux images de la sequence : # # # # 'v $xiav/STRU.d3.5.2$R16' # # # v $xiirv/STRU.d3.6.2 # Generee (sur '$CMAP28' -ex "robespierre"-) par : # # # # # # :Debut_listG_STRU_d3_6: # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z Pdu # # # # $Z set _____ImageA=$xTV/STRU.d3 # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$xiirv/STRU.d3%s \ # # $Z $format_Pal \ # # $Z mode=2 \ # # $Z R=$_____ImageA%s \ # # $Z $formatR_Pdu # # # # $Z SET cPas=1 # # $Z SET cBorneInf=32 # # $Z SET cBorneSup=32 # # $m4 _____include(_____xiav/.STRU.d3.n.1._____U) # # $m4 _____include(_____xiav/.STRU.d3.4.1._____U) # # # # $Z SET cPremiere=$GRIS_0 # # $Z SET cDerniere=$GRIS_8 # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $m4 _____include(_____xiav/.STRU.d3.n.2._____U) # # # # $Z set _____imagesR=$xiirv/STRU.d3.6 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_STRU_d3_6: # # # v $xiirv/STRU.d3.6.2.0001 v $xiirv/STRU.d3.6.2.0002 v $xiirv/STRU.d3.6.2.0003 v $xiirv/STRU.d3.6.2.0004 v $xiirv/STRU.d3.6.2.0005 v $xiirv/STRU.d3.6.2.0006 v $xiirv/STRU.d3.6.2.0007 v $xiirv/STRU.d3.6.2.0008 v $xiirv/STRU.d3.6.2.0009 v $xiirv/STRU.d3.6.2.0010 v $xiirv/STRU.d3.6.2.0011 v $xiirv/STRU.d3.6.2.0012 v $xiirv/STRU.d3.6.2.0013 v $xiirv/STRU.d3.6.2.0014 v $xiirv/STRU.d3.6.2.0015 v $xiirv/STRU.d3.6.2.0016 Pal ; anim3 A=$xiirv/STRU.d3.6.2. premiere=1 derniere=16 # Correspond aux images de la sequence : # # # # 'v $xiav/STRU.d3.6.2$R16' # # # v $xiirv/STRU.d3.6.2.6.2 # Generee (sur '$CMAP28' -ex "robespierre"-) par : # # # # # # :Debut_listG_STRU_d3_6_2_6: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z set _____ImageA=$xiirv/STRU.d3.6.2 # # $Z SET cPas=1 # # $Z SET cBorneInf=32 # # $Z SET cBorneSup=32 # # $m4 _____include(_____xiav/.STRU.d3.n.1._____U) # # $m4 _____include(_____xiav/.STRU.d3.4.1._____U) # # # # $Z SET cPremiere=$GRIS_0 # # $Z SET cDerniere=$GRIS_8 # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $m4 _____include(_____xiav/.STRU.d3.n.2._____U) # # # # $Z set _____imagesR=$xiirv/STRU.d3.6.2.6 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_STRU_d3_6_2_6: # # # v $xiirv/STRU.d3.7.2.0001 v $xiirv/STRU.d3.7.2.0002 v $xiirv/STRU.d3.7.2.0003 v $xiirv/STRU.d3.7.2.0004 v $xiirv/STRU.d3.7.2.0005 v $xiirv/STRU.d3.7.2.0006 v $xiirv/STRU.d3.7.2.0007 v $xiirv/STRU.d3.7.2.0008 v $xiirv/STRU.d3.7.2.0009 v $xiirv/STRU.d3.7.2.0010 v $xiirv/STRU.d3.7.2.0011 v $xiirv/STRU.d3.7.2.0012 v $xiirv/STRU.d3.7.2.0013 v $xiirv/STRU.d3.7.2.0014 v $xiirv/STRU.d3.7.2.0015 v $xiirv/STRU.d3.7.2.0016 Pal ; anim3 A=$xiirv/STRU.d3.7.2. premiere=1 derniere=16 # Correspond aux images de la sequence : # # # # 'v $xiav/STRU.d3.7.2$R16' # # # v $xiirv/STRU.d3.8.2.0001 v $xiirv/STRU.d3.8.2.0002 v $xiirv/STRU.d3.8.2.0003 v $xiirv/STRU.d3.8.2.0004 v $xiirv/STRU.d3.8.2.0005 v $xiirv/STRU.d3.8.2.0006 v $xiirv/STRU.d3.8.2.0007 v $xiirv/STRU.d3.8.2.0008 v $xiirv/STRU.d3.8.2.0009 v $xiirv/STRU.d3.8.2.0010 v $xiirv/STRU.d3.8.2.0011 v $xiirv/STRU.d3.8.2.0012 v $xiirv/STRU.d3.8.2.0013 v $xiirv/STRU.d3.8.2.0014 v $xiirv/STRU.d3.8.2.0015 v $xiirv/STRU.d3.8.2.0016 Pal ; anim3 A=$xiirv/STRU.d3.8.2. premiere=1 derniere=16 # Correspond aux images de la sequence : # # # # 'v $xiav/STRU.d3.8.2$R16' # # # v $xiirv/STRU.d4$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.d4$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') avec les animations 'v $xiav/STRU.d4$R16' et 'v $xiav/STRU.d4$R64'. # v $xiirv/STRU.d5 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_d5: # # # # $Z ext Sdu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.67%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=4 mxy=0 mxz=0 \ # # $Z myx=0 myy=4 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.d5%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_d5: # # # # # # Image formellement identique a 'v $xiirv/STRU.d3' et regeneree pour le CNRS # # ('v $Dcourrier_in/20150413164028 From.Christine.GIRARD@cnrs.fr..Mon.Apr.13.16.14.22.2015'). # v $xiirv/STRU.e4$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.e4$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') avec les animations 'v $xiav/STRU.e4$R16' et 'v $xiav/STRU.e4$R64'. # v $xiirv/STRU.f1 v $xiirv/STRU.f1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.f1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_f1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X0Y1=0 X1Y0=1 X0Y3=8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X0Y1=1 X1Y0=0 X3Y0=8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.32%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=8 mxy=0 mxz=0 \ # # $Z myx=0 myy=8 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.f1 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.f1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.f1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_f1: # # # v $xiirv/STRU.f2 v $xiirv/STRU.f2$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.f2$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_f2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X0Y1=0 X1Y0=1 X0Y3=8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X0Y1=1 X1Y0=0 X3Y0=8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.B2 \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=8 mxy=0 mxz=0 \ # # $Z myx=0 myy=8 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.f2%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.f2$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.f2$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_f2: # # # v $xiirv/STRU.f3 v $xiirv/STRU.f3.1 v $xiirv/STRU.f3$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.f3$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_f3: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X0Y1=0 X1Y0=1 X0Y3=8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X0Y1=1 X1Y0=0 X3Y0=8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.B2 \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=8 mxy=0 mxz=0 \ # # $Z myx=0 myy=8 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z iterer2D=VRAI nombre_iterations2D=2 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=25 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRU.f3%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.f3$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.f3$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$xiirv/STRU.f3%s \ # # $Z R=$xTV/TAPISSERIE.1%s \ # # $Z $formatI # # # # $Z $xci/color_NB.01$Z $xTV/TAPISSERIE.1 $xTV/TAPISSERIE.2 # # # # $Z $xci/fract_2D.01$X \ # # $Z niveau=4 \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # # # $Z execRVB $xci/minmax$X \ # # $Z A1=$xTV/TAPISSERIE.2%s \ # # $Z A2=$xTV/FRACTAL \ # # $Z R=$xiirv/STRU.f3.1%s \ # # $Z $formatI # # # # :Fin_listG_STRU_f3: # # # v $xiirv/STRU.f4 v $xiirv/STRU.f4$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.f4$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_f4: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X0Y1=0 X1Y0=1 X0Y3=2 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X0Y1=1 X1Y0=0 X3Y0=2 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiia/ESCA.C2%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=4 mxy=0 mxz=0 \ # # $Z myx=0 myy=4 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.f4%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.f4$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.f4$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_f4: # # # v $xiirv/STRU.f5 v $xiirv/STRU.f5$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.f5$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_f5: # # # # $Z Sdu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X0Y1=0 X1Y0=1 X0Y3=8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X0Y1=1 X1Y0=0 X3Y0=8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/CARR.17%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=1.5 mxy=0 mxz=0 \ # # $Z myx=0 myy=1.5 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRU.f5%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.f5$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.f5$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_f5: # # # v $xiirv/STRU.f6 v $xiirv/STRU.f6$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.f6$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_f6: # # # # $Z Std # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X0Y1=0 X1Y0=1 X0Y3=8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X0Y1=1 X1Y0=0 X3Y0=8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiit/JFC.13%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=1.5 mxy=0 mxz=0 \ # # $Z myx=0 myy=1.5 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRU.f6%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.f6$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.f6$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_f6: # # # v $xiirv/STRU.f6$m # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRU_f6_m: # # # # $Z Std # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/STRU.f6 # # $Z set _____ImageR=$_____ImageA$m # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z R=$xTV/STRU.f6 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/STRU.f6 \ # # $Z p=$xiP/random.A5 \ # # $Z R=$xTV/TEXTURE \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/STRU.f6 \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=200 \ # # $Z normaliser_avant_apres=VRAI \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_STRU_f6_m: # # # v $xiirv/STRU.f7 v $xiirv/STRU.f7$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.f7$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_STRU_f7: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X0Y1=0 X1Y0=1 X0Y3=8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X0Y1=1 X1Y0=0 X3Y0=8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiia/VASA.11.64%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=4 mxy=0 mxz=0 \ # # $Z myx=0 myy=4 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRU.f7% \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.f7$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.f7$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_f7: # # # v $xiirv/STRU.f8 v $xiirv/STRU.f8$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.f8$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_f8: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X0Y1=0 X1Y0=1 X0Y3=8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X0Y1=1 X1Y0=0 X3Y0=8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiia/VASA.25.256%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=8 mxy=0 mxz=0 \ # # $Z myx=0 myy=8 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRU.f8%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.f8$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.f8$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_f8: # # # v $xiirv/STRU.g1 v $xiirv/STRU.g1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.g1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_g1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=3 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/INTERPOLATEUR \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=32 mt=+8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION.1$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=32 mt=-8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION.1$COORD_Y \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ex=1.0 Ey=1.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION.2$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ex=1.0 Ey=1.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION.2$COORD_Y \ # # $Z $formatI # # # # # # $Z $xci/interpole.02$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/DEFORMATION.2$COORD_X \ # # $Z A2=$xTV/DEFORMATION.1$COORD_X \ # # $Z P=$xTV/INTERPOLATEUR \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/DEFORMATION.2$COORD_Y \ # # $Z A2=$xTV/DEFORMATION.1$COORD_Y \ # # $Z P=$xTV/INTERPOLATEUR \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.32%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.g1 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.g1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.g1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_g1: # # # v $xiirv/STRU.g2 v $xiirv/STRU.g2$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.g2$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_g2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X0Y1=0 X1Y0=1 X2Y0=3 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/INTERPOLATEUR \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=32 mt=+8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION.1$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=32 mt=-8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION.1$COORD_Y \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ex=1.0 Ey=1.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION.2$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ex=1.0 Ey=1.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION.2$COORD_Y \ # # $Z $formatI # # # # # # $Z $xci/interpole.02$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/DEFORMATION.1$COORD_X \ # # $Z A2=$xTV/DEFORMATION.2$COORD_X \ # # $Z P=$xTV/INTERPOLATEUR \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/DEFORMATION.1$COORD_Y \ # # $Z A2=$xTV/DEFORMATION.2$COORD_Y \ # # $Z P=$xTV/INTERPOLATEUR \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.32%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.g2 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.g2$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.g2$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_g2: # # # v $xiirv/STRU.h1 v $xiirv/STRU.h1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.h1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_h1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=32 mt=+2 \ # # $Z R=$xTV/SPIRALE.1 \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=$qpi cy=0 \ # # $Z dephaser=VRAI \ # # $Z Ex=8.0 Ey=8.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/SPIRALE.1 \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z plat=VRAI shuffling=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=20 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=32 mt=-2 \ # # $Z R=$xTV/SPIRALE.2 \ # # $Z $formatI # # # # $Z $xci/sinus$X \ # # $Z standard=FAUX \ # # $Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \ # # $Z cx=0 cy=$qpi \ # # $Z dephaser=VRAI \ # # $Z Ex=8.0 Ey=8.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/SPIRALE.2 \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z plat=VRAI shuffling=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=20 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.81%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.h1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.h1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.h1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_h1: # # # # # # Cette image utilise les memes parametres de deformation que 'v $xiirv/STRU.V2'... # v $xiirv/STRU.i1 v $xiirv/STRU.i1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.i1$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.i3.1 v $xiirv/STRU.i3.2.1 v $xiirv/STRU.i3.2.2 v $xiirv/STRU.i3.2.2$ROUGE p=$xiP/abso.11 v $xiirv/STRU.i3.2.2$ROUGE p=$xiP/dentscie.01 v $xiirv/STRU.i3.2.2$ROUGE p=$xiP/dentscie.02 v $xiirv/STRU.i3.2.2$ROUGE p=$xiP/dentscie.04 v $xiirv/STRU.i3.2.2$ROUGE p=$xiP/fractal.11 v $xiirv/STRU.i3.2.2$ROUGE p=$xiP/fractal.32 v $xiirv/STRU.i3.2.2$ROUGE p=$xiP/gris.01 v $xiirv/STRU.i3.2.2$ROUGE p=$xiP/iles.11 v $xiirv/STRU.i3.2.2$ROUGE p=$xiP/random.A5 v $xiirv/STRU.i3.2.2$VERTE p=$xiP/dentscie.02 v $xiirv/STRU.i3.2.2$VERTE p=$xiP/dentscie.04 v $xiirv/STRU.i3.2.2$VERTE p=$xiP/fractal.33 v $xiirv/STRU.i3.2.2$VERTE p=$xiP/gris.01 v $xiirv/STRU.i3.2.2$VERTE p=$xiP/random.A5 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_i1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z niveau=2 \ # # $Z mx=0.10 my=0.10 \ # # $Z graine=1111 \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=200 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z niveau=2 \ # # $Z mx=0.10 my=0.10 \ # # $Z graine=3333 \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=200 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.81%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.i1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.i1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.i1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRU_i1: # # # # # # Cette image utilise les memes parametres de deformation que 'v $xiirv/STRU.J1'... # v $xiirv/STRU.j3 v $xiirv/STRU.j3$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.j3$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_j3: # # # # $Z Pqu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB "$xci/format.01$X \ # # $Z A=$xiirv/STRU.bas.A6%s \ # # $Z $format_Pal \ # # $Z mode=2 \ # # $Z $formatR_Pqu | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z Xpave2D=3 Ypave2D=3 \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=4 mxy=0 mxz=0 \ # # $Z myx=0 myy=4 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xiirv/STRU.j3%s \ # # $Z $formatR_Pal" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xiirv/STRU.j3$COORD_X \ # # $Z $formatR_Pal # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xiirv/STRU.j3$COORD_Y \ # # $Z $formatR_Pal # # # # :Fin_listG_STRU_j3: # # # v $xiirv/STRU.k1 v $xiirv/STRU.k1$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.k1$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.k1$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_k1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z sphere.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.B3 \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.k1 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.k1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.k1$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.k1$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRU_k1: # # # # # # Cette image est basee sur les pseudo-projections de la sphere... # v $xiirv/STRU.k2 v $xiirv/STRU.k2$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.k2$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.k2$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_k2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z bKlein.61 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.B3 \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.k2 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.k2$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.k2$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.k2$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRU_k2: # # # # # # Cette image est basee sur les pseudo-projections de la triple bouteille de # # Bonan-Jeener-Klein... # v $xiirv/STRU.k3 v $xiirv/STRU.k3$COORD_X p=$xiP/cercle.35 v $xiirv/STRU.k3$COORD_Y p=$xiP/cercle.35 v $xiirv/STRU.k3$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_k3: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z sBoy.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.B3 \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRU.k3 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.k3$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.k3$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRU.k3$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRU_k3: # # # # # # Cette image est basee sur les pseudo-projections de la surface de Boy. # v $xiirv/STRU.l1 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_l1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z sphere.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.D2%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.l1%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_l1: # # # # # # Cette image est basee sur les pseudo-projections de la sphere... # v $xiirv/STRU.l2 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_l2: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/cache$X \ # # $Z A=$xiirv/STRU.l1%s \ # # $Z M=$xiirv/STRU.f2%s \ # # $Z anti_aliasing=VRAI \ # # $Z R=$xTV/DAMIER%s \ # # $Z $formatI # # # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xiirv/STRU.l1%s \ # # $Z A2=$xTV/DAMIER%s \ # # $Z P=$xTV/GAUSS \ # # $Z R=$xiirv/STRU.l2%s \ # # $Z $formatI # # # # :Fin_listG_STRU_l2: # # # v $xiirv/STRU.l3 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_l3: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$xiirv/STRU.l2%s \ # # $Z iterations=3 \ # # $Z R=$xiirv/STRU.l3%s \ # # $Z $formatI # # # # :Fin_listG_STRU_l3: # # # v $xiirv/STRU.l4 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_l4: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z niveau=6 \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=10 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.A1 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xiirv/STRU.l3%s \ # # $Z A2=$xiirv/STRU.l2%s \ # # $Z P=$xTV/FRACTAL \ # # $Z R=$xiirv/STRU.l4%s \ # # $Z $formatI # # # # :Fin_listG_STRU_l4: # # # v $xiirv/STRU.m1$m v $xiirv/STRU.m1$M v $xiirv/STRU.m2$M v $xiirv/STRU.m3$M # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_m123_mM: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z Y0X1=1 X0Y0=0 Y1X0=0 X1Y1=2 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z Y0X1=0 X0Y0=0 Y1X0=1 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.B2 \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=8 mxy=0 mxz=0 \ # # $Z myx=0 myy=8 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xTV/DAMIER%s \ # # $Z $formatI" # # # # $Z $xci/fract_2D.01$X \ # # $Z mX=0.1 mY=0.1 \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.C6 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/FRACTAL \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/FRACTAL \ # # $Z p=$xiP/trou_noir.94 \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # # # $Z execRVB $xci/cache$X \ # # $Z A=$xTV/DAMIER%s \ # # $Z M=$xTV/FRACTAL%s \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xTV/TEXTURE%s \ # # $Z $formatI # # $Z execRVB $xci/montagne.01$X A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=FAUX \ # # $Z falaise=VRAI \ # # $Z Ty=0.76 \ # # $Z R=$xiirv/STRU.m1$M%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z R=$xiirv/STRU.m1$m%s \ # # $Z $formatI # # # # $Z $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$BLANC \ # # $Z avion=FAUX \ # # $Z falaise=VRAI \ # # $Z Ty=0.76 \ # # $Z Z-Buffer=VRAI \ # # $Z R=$xTV/MONTAGNE \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/BRUME \ # # $Z $formatI # # # # $Z execRVB $xci/brume.11$X \ # # $Z A=$xiirv/STRU.m1$M%s \ # # $Z B=$xTV/BRUME \ # # $Z R=$xiirv/STRU.m2$M%s \ # # $Z $formatI # # $Z execRVB $xci/pt_isole.01$X \ # # $Z A=$xiirv/STRU.m2$M%s \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRU.m2$M%s \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z c=16 \ # # $Z Ty=1 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xiirv/STRU.l1%s \ # # $Z A2=$xiirv/STRU.m2$M%s \ # # $Z P=$xTV/GAUSS \ # # $Z R=$xiirv/STRU.m3$M%s \ # # $Z $formatI # # # # :Fin_listG_STRU_m123_mM: # # # v $xiirv/STRU.m4$M # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_m4_M: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/detourage.13$Z \ # # $Z $xiirv/STRU.m3$M \ # # $Z $xTV/STRU_DETOURE \ # # $Z 12 \ # # $Z 80 \ # # $Z $NEXIST \ # # $Z $NEXIST # # # # $Z execRVB "$xci/convol.01$X \ # # $Z A=$xTV/STRU_DETOURE%s \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z A=$xiirv/STRU.m3$M%s \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xiirv/STRU.m4$M%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_m4_M: # # # v $xiirv/STRU.m5$M # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_m5_M: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=0 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/enfer.01 \ # # $Z R=$xTV/DEGRADE \ # # $Z $formatI # # # # $Z $xci/vitre.53$Z \ # # $Z $xiirv/STRU.m3$M \ # # $Z $xTV/DEGRADE \ # # $Z $xiirv/STRU.m5$M # # # # :Fin_listG_STRU_m5_M: # # # v $xiirv/STRU.n1$m v $xiirv/STRU.n1$M v $xiirv/STRU.n2$M v $xiirv/STRU.n3$M v $xiirv/STRU.n4$M # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_n1234_mM: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z Y0X1=1 X0Y0=0 Y1X0=0 X1Y1=2 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z Y0X1=0 X0Y0=0 Y1X0=1 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.B2 \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=8 mxy=0 mxz=0 \ # # $Z myx=0 myy=8 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xTV/DAMIER%s \ # # $Z $formatI" # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=-1 C=0 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z origine=0.5 extremite=1.0 \ # # $Z R=$xTV/ATTENUATION \ # # $Z $formatI # # # # # # $Z $xci/fract_2D.01$X \ # # $Z graine=1947 \ # # $Z mX=0.5 mY=0.5 \ # # $Z OX=0 EX=1 \ # # $Z OY=0 EY=1 \ # # $Z valider=FAUX \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.C6 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/FRACTAL \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=8 \ # # $Z $formatI | \ # # $Z $xci/deformi.01$X \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=2 mxy=0 mxz=0 \ # # $Z myx=0 myy=2 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/ATTENUATION \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/FRACTAL \ # # $Z p=$xiP/trou_noir.94 \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # # # $Z execRVB $xci/cache$X \ # # $Z A=$xTV/DAMIER%s \ # # $Z M=$xTV/FRACTAL%s \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xTV/TEXTURE%s \ # # $Z $formatI # # $Z execRVB $xci/montagne.01$X A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=FAUX \ # # $Z falaise=VRAI \ # # $Z Ty=0.76 \ # # $Z R=$xiirv/STRU.n1$M%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z R=$xiirv/STRU.n1$m%s \ # # $Z $formatI # # # # $Z $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$BLANC \ # # $Z avion=FAUX \ # # $Z falaise=VRAI \ # # $Z Ty=0.76 \ # # $Z Z-Buffer=VRAI \ # # $Z R=$xTV/MONTAGNE \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/BRUME \ # # $Z $formatI # # # # $Z execRVB $xci/brume.11$X \ # # $Z A=$xiirv/STRU.n1$M%s \ # # $Z B=$xTV/BRUME \ # # $Z R=$xiirv/STRU.n2$M%s \ # # $Z $formatI # # $Z execRVB $xci/pt_isole.01$X \ # # $Z A=$xiirv/STRU.n2$M%s \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRU.n2$M%s \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z c=16 \ # # $Z Ty=1 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xiirv/STRU.l1%s \ # # $Z A2=$xiirv/STRU.n2$M%s \ # # $Z P=$xTV/GAUSS \ # # $Z R=$xiirv/STRU.n3$M%s \ # # $Z $formatI # # # # $Z $xci/detourage.13$Z \ # # $Z $xiirv/STRU.n3$M \ # # $Z $xTV/STRU_DETOURE \ # # $Z 12 \ # # $Z 80 \ # # $Z $NEXIST \ # # $Z $NEXIST # # # # $Z execRVB "$xci/convol.01$X \ # # $Z A=$xTV/STRU_DETOURE%s \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z A=$xiirv/STRU.n3$M%s \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xiirv/STRU.n4$M%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_n1234_mM: # # # v $xiirv/STRU.n5$M # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_n5_M: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=0 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/enfer.01 \ # # $Z R=$xTV/DEGRADE \ # # $Z $formatI # # # # $Z $xci/vitre.53$Z \ # # $Z $xiirv/STRU.n3$M \ # # $Z $xTV/DEGRADE \ # # $Z $xiirv/STRU.n5$M # # # # :Fin_listG_STRU_n5_M: # # # v $xiirv/STRU.o1$m v $xiirv/STRU.o1$M v $xiirv/STRU.o2$M v $xiirv/STRU.o3$M v $xiirv/STRU.o4$M v $xiirv/STRU.o5$M # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_o12345_mM: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z Y0X1=1 X0Y0=0 Y1X0=0 X1Y1=2 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z Y0X1=0 X0Y0=0 Y1X0=1 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.B3 \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=8 mxy=0 mxz=0 \ # # $Z myx=0 myy=8 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xTV/DAMIER%s \ # # $Z $formatI" # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=-1 C=0 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z origine=0.5 extremite=1.0 \ # # $Z R=$xTV/ATTENUATION \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z mX=0.05 mY=0.05 \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.C6 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/FRACTAL \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=4 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/ATTENUATION \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/FRACTAL \ # # $Z p=$xiP/trou_noir.94 \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # # # $Z execRVB $xci/cache$X \ # # $Z A=$xTV/DAMIER%s \ # # $Z M=$xTV/FRACTAL%s \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xTV/TEXTURE%s \ # # $Z $formatI # # $Z execRVB $xci/montagne.01$X A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=FAUX \ # # $Z falaise=VRAI \ # # $Z Ty=0.76 \ # # $Z R=$xiirv/STRU.o1$M%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z R=$xiirv/STRU.o1$m%s \ # # $Z $formatI # # # # $Z $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$BLANC \ # # $Z avion=FAUX \ # # $Z falaise=VRAI \ # # $Z Ty=0.76 \ # # $Z Z-Buffer=VRAI \ # # $Z R=$xTV/MONTAGNE \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/BRUME \ # # $Z $formatI # # # # $Z execRVB $xci/brume.11$X \ # # $Z A=$xiirv/STRU.o1$M%s \ # # $Z B=$xTV/BRUME \ # # $Z R=$xiirv/STRU.o2$M%s \ # # $Z $formatI # # $Z execRVB $xci/pt_isole.01$X \ # # $Z A=$xiirv/STRU.o2$M%s \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRU.o2$M%s \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z c=4 \ # # $Z Ty=1 \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.41 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xiirv/STRU.l1%s \ # # $Z A2=$xiirv/STRU.o2$M%s \ # # $Z P=$xTV/GAUSS \ # # $Z R=$xiirv/STRU.o3$M%s \ # # $Z $formatI # # # # $Z $xci/detourage.13$Z \ # # $Z $xiirv/STRU.o3$M \ # # $Z $xTV/STRU_DETOURE \ # # $Z 12 \ # # $Z 80 \ # # $Z $NEXIST \ # # $Z $NEXIST # # # # $Z execRVB "$xci/convol.01$X \ # # $Z A=$xTV/STRU_DETOURE%s \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z A=$xiirv/STRU.o3$M%s \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xiirv/STRU.o4$M%s \ # # $Z $formatI" # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=0 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/enfer.01 \ # # $Z R=$xTV/DEGRADE \ # # $Z $formatI # # # # $Z $xci/vitre.53$Z \ # # $Z $xiirv/STRU.o3$M \ # # $Z $xTV/DEGRADE \ # # $Z $xiirv/STRU.o5$M # # # # :Fin_listG_STRU_o12345_mM: # # # v $xiirv/STRU.p1 v $xiirv/STRU.p2 v $xiirv/STRU.p3 v $xiirv/STRU.p4 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_p1234: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z bKlein.41 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.D2%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.p1%s \ # # $Z $formatI" # # # # $Z execRVB $xci/cache$X \ # # $Z A=$xiirv/STRU.p1%s \ # # $Z M=$xiirv/STRU.f2%s \ # # $Z anti_aliasing=VRAI \ # # $Z R=$xTV/DAMIER%s \ # # $Z $formatI # # # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xiirv/STRU.p1%s \ # # $Z A2=$xTV/DAMIER%s \ # # $Z P=$xTV/GAUSS \ # # $Z R=$xiirv/STRU.p2%s \ # # $Z $formatI # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$xiirv/STRU.p2%s \ # # $Z iterations=3 \ # # $Z R=$xiirv/STRU.p3%s \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z niveau=6 \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=10 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.A1 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xiirv/STRU.p3%s \ # # $Z A2=$xiirv/STRU.p2%s \ # # $Z P=$xTV/FRACTAL \ # # $Z R=$xiirv/STRU.p4%s \ # # $Z $formatI # # # # :Fin_listG_STRU_p1234: # # # # # # Ces images sont basees sur les pseudo-projections de la bouteille de Klein... # v $xiirv/STRU.q1 v $xiirv/STRU.q2 v $xiirv/STRU.q3 v $xiirv/STRU.q4 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_q1234: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z sBoy.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.D2%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.q1%s \ # # $Z $formatI" # # # # $Z execRVB $xci/cache$X \ # # $Z A=$xiirv/STRU.q1%s \ # # $Z M=$xiirv/STRU.f2%s \ # # $Z anti_aliasing=VRAI \ # # $Z R=$xTV/DAMIER%s \ # # $Z $formatI # # # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xiirv/STRU.q1%s \ # # $Z A2=$xTV/DAMIER%s \ # # $Z P=$xTV/GAUSS \ # # $Z R=$xiirv/STRU.q2%s \ # # $Z $formatI # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$xiirv/STRU.q2%s \ # # $Z iterations=3 \ # # $Z R=$xiirv/STRU.q3%s \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z niveau=6 \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=10 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.A1 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xiirv/STRU.q3%s \ # # $Z A2=$xiirv/STRU.q2%s \ # # $Z P=$xTV/FRACTAL \ # # $Z R=$xiirv/STRU.q4%s \ # # $Z $formatI # # # # :Fin_listG_STRU_q1234: # # # # # # Ces images sont basees sur les pseudo-projections de la surface de Boy... # v $xiirv/STRU.r1 v $xiirv/STRU.r2 v $xiirv/STRU.r3 v $xiirv/STRU.r4 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_r1234: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z bKlein.61 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.D2%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.r1%s \ # # $Z $formatI" # # # # $Z execRVB $xci/cache$X \ # # $Z A=$xiirv/STRU.r1%s \ # # $Z M=$xiirv/STRU.f2%s \ # # $Z anti_aliasing=VRAI \ # # $Z R=$xTV/DAMIER%s \ # # $Z $formatI # # # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xiirv/STRU.r1%s \ # # $Z A2=$xTV/DAMIER%s \ # # $Z P=$xTV/GAUSS \ # # $Z R=$xiirv/STRU.r2%s \ # # $Z $formatI # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$xiirv/STRU.r2%s \ # # $Z iterations=3 \ # # $Z R=$xiirv/STRU.r3%s \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z niveau=6 \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=10 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.A1 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xiirv/STRU.r3%s \ # # $Z A2=$xiirv/STRU.r2%s \ # # $Z P=$xTV/FRACTAL \ # # $Z R=$xiirv/STRU.r4%s \ # # $Z $formatI # # # # :Fin_listG_STRU_r1234: # # # # # # Ces images sont basees sur les pseudo-projections de la triple bouteille de # # Bonan-Jeener-Klein... # v $xiirv/STRU.s1 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_s1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z sphere.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.F1%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.s1%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_s1: # # # # # # Cette image est basee sur les pseudo-projections de la sphere... # v $xiirv/STRU.t1 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_t1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z bKlein.41 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.F1%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.t1%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_t1: # # # # # # Ces images sont basees sur les pseudo-projections de la bouteille de Klein... # v $xiirv/STRU.u1 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_u1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z sBoy.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.F1%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.u1%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_u1: # # # # # v $xiirv/STRU.v1 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_v1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z bKlein.61 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.F1%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRU.v1%s \ # # $Z $formatI" # # # # :Fin_listG_STRU_v1: # # # # # # Ces images sont basees sur les pseudo-projections de la triple bouteille de # # Bonan-Jeener-Klein... # v $xiirv/STRU.w3$M v $xiirv/STRU.w4$M v $xiirv/STRU.w5$M # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_w345_mM: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z Y0X1=1 X0Y0=0 Y1X0=0 X1Y1=2 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z Y0X1=0 X0Y0=0 Y1X0=1 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.B3 \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=8 mxy=0 mxz=0 \ # # $Z myx=0 myy=8 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xTV/DAMIER%s \ # # $Z $formatI" # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=-1 C=0 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z origine=0.5 extremite=1.0 \ # # $Z R=$xTV/ATTENUATION \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z mX=0.05 mY=0.05 \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.C6 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/FRACTAL \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=4 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/ATTENUATION \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/FRACTAL \ # # $Z p=$xiP/trou_noir.94 \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # # # $Z execRVB $xci/cache$X \ # # $Z A=$xTV/DAMIER%s \ # # $Z M=$xTV/FRACTAL%s \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xTV/TEXTURE%s \ # # $Z $formatI # # $Z execRVB $xci/montagne.01$X A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=FAUX \ # # $Z falaise=VRAI \ # # $Z Ty=0.76 \ # # $Z R=$xTV/STRU.w1$M%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z R=$xTV/STRU.w1$m%s \ # # $Z $formatI # # # # $Z $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$BLANC \ # # $Z avion=FAUX \ # # $Z falaise=VRAI \ # # $Z Ty=0.76 \ # # $Z Z-Buffer=VRAI \ # # $Z R=$xTV/MONTAGNE \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/BRUME \ # # $Z $formatI # # # # $Z execRVB $xci/brume.11$X \ # # $Z A=$xTV/STRU.w1$M%s \ # # $Z B=$xTV/BRUME \ # # $Z R=$xTV/STRU.w2$M%s \ # # $Z $formatI # # $Z execRVB $xci/pt_isole.01$X \ # # $Z A=$xTV/STRU.w2$M%s \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRU.w2$M%s \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z c=4 \ # # $Z Ty=1 \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.41 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xiirv/STRU.s1%s \ # # $Z A2=$xTV/STRU.w2$M%s \ # # $Z P=$xTV/GAUSS \ # # $Z R=$xiirv/STRU.w3$M%s \ # # $Z $formatI # # # # $Z $xci/detourage.13$Z \ # # $Z $xiirv/STRU.w3$M \ # # $Z $xTV/STRU_DETOURE \ # # $Z 12 \ # # $Z 80 \ # # $Z $NEXIST \ # # $Z $NEXIST # # # # $Z execRVB "$xci/convol.01$X \ # # $Z A=$xTV/STRU_DETOURE%s \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z A=$xiirv/STRU.w3$M%s \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xiirv/STRU.w4$M%s \ # # $Z $formatI" # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=0 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/enfer.01 \ # # $Z R=$xTV/DEGRADE \ # # $Z $formatI # # # # $Z $xci/vitre.53$Z \ # # $Z $xiirv/STRU.w3$M \ # # $Z $xTV/DEGRADE \ # # $Z $xiirv/STRU.w5$M # # # # :Fin_listG_STRU_w345_mM: # # # v $xiirv/STRU.x3$M v $xiirv/STRU.x4$M v $xiirv/STRU.x5$M # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_x345_mM: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z Y0X1=1 X0Y0=0 Y1X0=0 X1Y1=2 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z Y0X1=0 X0Y0=0 Y1X0=1 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.B3 \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=8 mxy=0 mxz=0 \ # # $Z myx=0 myy=8 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xTV/DAMIER%s \ # # $Z $formatI" # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=-1 C=0 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z origine=0.5 extremite=1.0 \ # # $Z R=$xTV/ATTENUATION \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z mX=0.05 mY=0.05 \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.C6 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/FRACTAL \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=4 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/ATTENUATION \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/FRACTAL \ # # $Z p=$xiP/trou_noir.94 \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # # # $Z execRVB $xci/cache$X \ # # $Z A=$xTV/DAMIER%s \ # # $Z M=$xTV/FRACTAL%s \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xTV/TEXTURE%s \ # # $Z $formatI # # $Z execRVB $xci/montagne.01$X A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=FAUX \ # # $Z falaise=VRAI \ # # $Z Ty=0.76 \ # # $Z R=$xTV/STRU.x1$M%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z R=$xTV/STRU.x1$m%s \ # # $Z $formatI # # # # $Z $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$BLANC \ # # $Z avion=FAUX \ # # $Z falaise=VRAI \ # # $Z Ty=0.76 \ # # $Z Z-Buffer=VRAI \ # # $Z R=$xTV/MONTAGNE \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/BRUME \ # # $Z $formatI # # # # $Z execRVB $xci/brume.11$X \ # # $Z A=$xTV/STRU.x1$M%s \ # # $Z B=$xTV/BRUME \ # # $Z R=$xTV/STRU.x2$M%s \ # # $Z $formatI # # $Z execRVB $xci/pt_isole.01$X \ # # $Z A=$xTV/STRU.x2$M%s \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRU.x2$M%s \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z c=4 \ # # $Z Ty=1 \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.41 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xiirv/STRU.t1%s \ # # $Z A2=$xTV/STRU.x2$M%s \ # # $Z P=$xTV/GAUSS \ # # $Z R=$xiirv/STRU.x3$M%s \ # # $Z $formatI # # # # $Z $xci/detourage.13$Z \ # # $Z $xiirv/STRU.x3$M \ # # $Z $xTV/STRU_DETOURE \ # # $Z 12 \ # # $Z 80 \ # # $Z $NEXIST \ # # $Z $NEXIST # # # # $Z execRVB "$xci/convol.01$X \ # # $Z A=$xTV/STRU_DETOURE%s \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z A=$xiirv/STRU.x3$M%s \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xiirv/STRU.x4$M%s \ # # $Z $formatI" # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=0 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/enfer.01 \ # # $Z R=$xTV/DEGRADE \ # # $Z $formatI # # # # $Z $xci/vitre.53$Z \ # # $Z $xiirv/STRU.x3$M \ # # $Z $xTV/DEGRADE \ # # $Z $xiirv/STRU.x5$M # # # # :Fin_listG_STRU_x345_mM: # # # v $xiirv/STRU.y3$M v $xiirv/STRU.y4$M v $xiirv/STRU.y5$M # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_y345_mM: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z Y0X1=1 X0Y0=0 Y1X0=0 X1Y1=2 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z Y0X1=0 X0Y0=0 Y1X0=1 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.B3 \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=8 mxy=0 mxz=0 \ # # $Z myx=0 myy=8 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xTV/DAMIER%s \ # # $Z $formatI" # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=-1 C=0 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z origine=0.5 extremite=1.0 \ # # $Z R=$xTV/ATTENUATION \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z mX=0.05 mY=0.05 \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.C6 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/FRACTAL \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=4 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/ATTENUATION \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/FRACTAL \ # # $Z p=$xiP/trou_noir.94 \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # # # $Z execRVB $xci/cache$X \ # # $Z A=$xTV/DAMIER%s \ # # $Z M=$xTV/FRACTAL%s \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xTV/TEXTURE%s \ # # $Z $formatI # # $Z execRVB $xci/montagne.01$X A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=FAUX \ # # $Z falaise=VRAI \ # # $Z Ty=0.76 \ # # $Z R=$xTV/STRU.y1$M%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z R=$xTV/STRU.y1$m%s \ # # $Z $formatI # # # # $Z $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$BLANC \ # # $Z avion=FAUX \ # # $Z falaise=VRAI \ # # $Z Ty=0.76 \ # # $Z Z-Buffer=VRAI \ # # $Z R=$xTV/MONTAGNE \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/BRUME \ # # $Z $formatI # # # # $Z execRVB $xci/brume.11$X \ # # $Z A=$xTV/STRU.y1$M%s \ # # $Z B=$xTV/BRUME \ # # $Z R=$xTV/STRU.y2$M%s \ # # $Z $formatI # # $Z execRVB $xci/pt_isole.01$X \ # # $Z A=$xTV/STRU.y2$M%s \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRU.y2$M%s \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z c=4 \ # # $Z Ty=1 \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.41 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xiirv/STRU.u1%s \ # # $Z A2=$xTV/STRU.y2$M%s \ # # $Z P=$xTV/GAUSS \ # # $Z R=$xiirv/STRU.y3$M%s \ # # $Z $formatI # # # # $Z $xci/detourage.13$Z \ # # $Z $xiirv/STRU.y3$M \ # # $Z $xTV/STRU_DETOURE \ # # $Z 12 \ # # $Z 80 \ # # $Z $NEXIST \ # # $Z $NEXIST # # # # $Z execRVB "$xci/convol.01$X \ # # $Z A=$xTV/STRU_DETOURE%s \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z A=$xiirv/STRU.y3$M%s \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xiirv/STRU.y4$M%s \ # # $Z $formatI" # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=0 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/enfer.01 \ # # $Z R=$xTV/DEGRADE \ # # $Z $formatI # # # # $Z $xci/vitre.53$Z \ # # $Z $xiirv/STRU.y3$M \ # # $Z $xTV/DEGRADE \ # # $Z $xiirv/STRU.y5$M # # # # :Fin_listG_STRU_y345_mM: # # # v $xiirv/STRU.z3$M v $xiirv/STRU.z4$M v $xiirv/STRU.z5$M # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRU_z345_mM: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z Y0X1=1 X0Y0=0 Y1X0=0 X1Y1=2 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z Y0X1=0 X0Y0=0 Y1X0=1 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.B3 \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=8 mxy=0 mxz=0 \ # # $Z myx=0 myy=8 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xTV/DAMIER%s \ # # $Z $formatI" # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=-1 C=0 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z origine=0.5 extremite=1.0 \ # # $Z R=$xTV/ATTENUATION \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z mX=0.05 mY=0.05 \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.C6 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/FRACTAL \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=4 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/ATTENUATION \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/FRACTAL \ # # $Z p=$xiP/trou_noir.94 \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # # # $Z execRVB $xci/cache$X \ # # $Z A=$xTV/DAMIER%s \ # # $Z M=$xTV/FRACTAL%s \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xTV/TEXTURE%s \ # # $Z $formatI # # $Z execRVB $xci/montagne.01$X A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=FAUX \ # # $Z falaise=VRAI \ # # $Z Ty=0.76 \ # # $Z R=$xTV/STRU.z1$M%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z R=$xTV/STRU.z1$m%s \ # # $Z $formatI # # # # $Z $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$BLANC \ # # $Z avion=FAUX \ # # $Z falaise=VRAI \ # # $Z Ty=0.76 \ # # $Z Z-Buffer=VRAI \ # # $Z R=$xTV/MONTAGNE \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/BRUME \ # # $Z $formatI # # # # $Z execRVB $xci/brume.11$X \ # # $Z A=$xTV/STRU.z1$M%s \ # # $Z B=$xTV/BRUME \ # # $Z R=$xTV/STRU.z2$M%s \ # # $Z $formatI # # $Z execRVB $xci/pt_isole.01$X \ # # $Z A=$xTV/STRU.z2$M%s \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRU.z2$M%s \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z c=4 \ # # $Z Ty=1 \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.41 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xiirv/STRU.v1%s \ # # $Z A2=$xTV/STRU.z2$M%s \ # # $Z P=$xTV/GAUSS \ # # $Z R=$xiirv/STRU.z3$M%s \ # # $Z $formatI # # # # $Z $xci/detourage.13$Z \ # # $Z $xiirv/STRU.z3$M \ # # $Z $xTV/STRU_DETOURE \ # # $Z 12 \ # # $Z 80 \ # # $Z $NEXIST \ # # $Z $NEXIST # # # # $Z execRVB "$xci/convol.01$X \ # # $Z A=$xTV/STRU_DETOURE%s \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z A=$xiirv/STRU.z3$M%s \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xiirv/STRU.z4$M%s \ # # $Z $formatI" # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=0 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/enfer.01 \ # # $Z R=$xTV/DEGRADE \ # # $Z $formatI # # # # $Z $xci/vitre.53$Z \ # # $Z $xiirv/STRU.z3$M \ # # $Z $xTV/DEGRADE \ # # $Z $xiirv/STRU.z5$M # # # # :Fin_listG_STRU_z345_mM: # # # v $xiirv/STRV.11$m v $xiirv/STRV.11$M v $xiirv/STRV.12$M v $xiirv/STRV.12$M$ROUGE p=$xiP/dentscie.02 v $xiirv/STRV.12$M$ROUGE p=$xiP/fractal.A1 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_112_mM: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z Y0X1=1 X0Y0=0 Y1X0=0 X1Y1=2 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z Y0X1=0 X0Y0=0 Y1X0=1 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.B2 \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=8 mxy=0 mxz=0 \ # # $Z myx=0 myy=8 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xTV/DAMIER.1%s \ # # $Z $formatI" # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=-1 C=0 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z origine=0.5 extremite=1.0 \ # # $Z R=$xTV/ATTENUATION \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.F1%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=16 mxy=0 mxz=0 \ # # $Z myx=0 myy=16 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xTV/DAMIER.2%s \ # # $Z $formatI" # # # # $Z $xci/fract_2D.01$X \ # # $Z mX=0.1 mY=0.1 \ # # $Z graine=1789 \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.C6 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/FRACTAL.1 \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/FRACTAL.1 \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=4 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/ATTENUATION \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/FRACTAL.1 \ # # $Z p=$xiP/trou_noir.94 \ # # $Z R=$xTV/FRACTAL.1 \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z mX=0.075 mY=0.075 \ # # $Z graine=1947 \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z plat=VRAI shuffling=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.B6 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/FRACTAL.2 \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xTV/DAMIER.2%s \ # # $Z A2=$xTV/DAMIER.1%s \ # # $Z P=$xTV/FRACTAL.2 \ # # $Z R=$xTV/DAMIER%s \ # # $Z $formatI # # # # $Z execRVB $xci/cache$X \ # # $Z A=$xTV/DAMIER%s \ # # $Z M=$xTV/FRACTAL.1%s \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xTV/TEXTURE%s \ # # $Z $formatI # # $Z execRVB $xci/montagne.01$X A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=FAUX \ # # $Z falaise=VRAI \ # # $Z Ty=0.96 \ # # $Z R=$xiirv/STRV.11$M%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z R=$xiirv/STRV.11$m%s \ # # $Z $formatI # # # # $Z $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z echelle=0.6 \ # # $Z T=$BLANC \ # # $Z avion=FAUX \ # # $Z falaise=VRAI \ # # $Z Ty=0.96 \ # # $Z Z-Buffer=VRAI \ # # $Z R=$xTV/MONTAGNE \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/BRUME \ # # $Z $formatI # # # # $Z execRVB $xci/brume.11$X \ # # $Z A=$xiirv/STRV.11$M%s \ # # $Z B=$xTV/BRUME \ # # $Z R=$xiirv/STRV.12$M%s \ # # $Z $formatI # # $Z execRVB $xci/pt_isole.01$X \ # # $Z A=$xiirv/STRV.12$M%s \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRV.12$M%s \ # # $Z $formatI # # # # :Fin_listG_STRV_112_mM: # # # v $xiirv/STRV.13$M # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_13_M: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z c=2 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiirv/STRV.12$M$ROUGE \ # # $Z p=$xiP/dentscie.02 \ # # $Z R=$xTV/STRUCTURE \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xiirv/STRV.12$M%s \ # # $Z A2=$xTV/STRUCTURE%s \ # # $Z P=$xTV/GAUSS \ # # $Z R=$xiirv/STRV.13$M%s \ # # $Z $formatI # # # # :Fin_listG_STRV_13_M: # # # v $xiirv/STRV.14$M # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_14_M: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z c=8 \ # # $Z Ty=1 \ # # $Z R=$xTV/SOLEIL \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/SOLEIL \ # # $Z p=$xiP/rougB_jaunB \ # # $Z R=$xTV/SOLEIL \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xTV/SOLEIL%s \ # # $Z A2=$xiirv/STRV.12$M%s \ # # $Z P=$xTV/SOLEIL \ # # $Z R=$xiirv/STRV.14$M%s \ # # $Z $formatI # # # # :Fin_listG_STRV_14_M: # # # v $xiirv/STRV.15$M # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_15_M: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z c=8 \ # # $Z Ty=1 \ # # $Z R=$xTV/SOLEIL \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/SOLEIL \ # # $Z p=$xiP/rougB_jaunB \ # # $Z R=$xTV/SOLEIL \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xTV/SOLEIL%s \ # # $Z A2=$xiirv/STRV.13$M%s \ # # $Z P=$xTV/SOLEIL \ # # $Z R=$xiirv/STRV.15$M%s \ # # $Z $formatI # # # # :Fin_listG_STRV_15_M: # # # v $xiirv/STRV.21 v $xiirv/STRV.21$ROUGE p=$xiP/abso.11 v $xiirv/STRV.21$ROUGE p=$xiP/bleu_roug.01 v $xiirv/STRV.21$ROUGE p=$xiP/cotes.11 v $xiirv/STRV.21$ROUGE p=$xiP/dentscie.01 v $xiirv/STRV.21$ROUGE p=$xiP/gris_oran.25 v $xiirv/STRV.21$ROUGE p=$xiP/random.B7$Fi v $xiirv/STRV.21$ROUGE p=$xiP/sunset.11 v $xiirv/STRV.21$ROUGE p=$xiP/vert_orange v $xiirv/STRV.21$ROUGE p=$xiP/trou_noir.94 v $xiirv/STRV.21$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.21$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_21: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z mr=+32 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SPIRALE \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/SPIRALE \ # # $Z A2=$xTV/SPIRALE \ # # $Z standard=FAUX \ # # $Z R=$xTV/SPIRALE \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/SPIRALE \ # # $Z A2=$xTV/SPIRALE \ # # $Z standard=FAUX \ # # $Z R=$xTV/SPIRALE \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/SPIRALE \ # # $Z A2=$xTV/SPIRALE \ # # $Z standard=FAUX \ # # $Z R=$xTV/SPIRALE \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/SPIRALE \ # # $Z A2=$xTV/SPIRALE \ # # $Z standard=FAUX \ # # $Z R=$xTV/SPIRALE \ # # $Z $formatI # # $Z $xci/complement$X \ # # $Z A=$xTV/SPIRALE \ # # $Z standard=FAUX \ # # $Z R=$xTV/SPIRALE \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/SPIRALE \ # # $Z A2=$xTV/GAUSS \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z standard=FAUX \ # # $Z points=625 \ # # $Z Pcumul=0 Pmaximum=1 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z noyau_carre=FAUX \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z standard=FAUX \ # # $Z points=81 \ # # $Z Pcumul=1 Pmaximum=0 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z noyau_carre=FAUX \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z mr=-16 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SPIRALE \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/SPIRALE \ # # $Z A2=$xTV/SPIRALE \ # # $Z standard=FAUX \ # # $Z R=$xTV/SPIRALE \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/SPIRALE \ # # $Z A2=$xTV/SPIRALE \ # # $Z standard=FAUX \ # # $Z R=$xTV/SPIRALE \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/SPIRALE \ # # $Z A2=$xTV/SPIRALE \ # # $Z standard=FAUX \ # # $Z R=$xTV/SPIRALE \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/SPIRALE \ # # $Z A2=$xTV/SPIRALE \ # # $Z standard=FAUX \ # # $Z R=$xTV/SPIRALE \ # # $Z $formatI # # $Z $xci/complement$X \ # # $Z A=$xTV/SPIRALE \ # # $Z standard=FAUX \ # # $Z R=$xTV/SPIRALE \ # # $Z $formatI # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/SPIRALE \ # # $Z A2=$xTV/GAUSS \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z standard=FAUX \ # # $Z points=625 \ # # $Z Pcumul=0 Pmaximum=1 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z noyau_carre=FAUX \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z standard=FAUX \ # # $Z points=81 \ # # $Z Pcumul=1 Pmaximum=0 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z noyau_carre=FAUX \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.B1 \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=1 mxy=0 mxz=0 \ # # $Z myx=0 myy=1 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.21%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.21$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.21$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_21: # # # v $xiirv/STRV.22 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_22: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/random.01$X \ # # $Z R=$xTV/RANDOM \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z cx2=0.05 cy2=60 \ # # $Z R=$xTV/GAUSS.1 \ # # $Z $formatI # # $Z $xci/gauss$X \ # # $Z cx2=60 cy2=0.05 \ # # $Z R=$xTV/GAUSS.2 \ # # $Z $formatI # # $Z $xci/maximum$X \ # # $Z A1=$xTV/GAUSS.1 \ # # $Z A2=$xTV/GAUSS.2 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/RANDOM \ # # $Z N=$xTV/GAUSS \ # # $Z seuil=60 \ # # $Z avertir_non_implicite=FAUX \ # # $Z R=$xTV/TEXTURE \ # # $Z $formatI # # # # $Z $xci/scale$X \ # # $Z A=$xTV/TEXTURE \ # # $Z a=0.4 \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/gris.01 \ # # $Z R=$xTV/BRUME \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiirv/STRV.21$ROUGE \ # # $Z p=$xiP/trou_noir.14 \ # # $Z R=$xTV/STRV.21 \ # # $Z $formatI # # # # $Z $xci/vitre.53$Z \ # # $Z $xTV/STRV.21 \ # # $Z $xTV/BRUME \ # # $Z $xiirv/STRV.22 # # # # :Fin_listG_STRV_22: # # # v $xiirv/STRV.31 v $xiirv/STRV.31$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.31$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_31: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z c=1 \ # # $Z standard=FAUX \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=1 B=0 C=0 \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/LINEAIRE$COORD_X \ # # $Z $formatI # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=0 \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/LINEAIRE$COORD_Y \ # # $Z $formatI # # # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/LINEAIRE$COORD_X \ # # $Z A2=$xTV/LINEAIRE$COORD_Y \ # # $Z P=$xTV/GAUSS \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/LINEAIRE$COORD_Y \ # # $Z A2=$xTV/LINEAIRE$COORD_X \ # # $Z P=$xTV/GAUSS \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.B3 \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=8 mxy=0 mxz=0 \ # # $Z myx=0 myy=8 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.31%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.31$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.31$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_31: # # # v $xiirv/STRV.41 v $xiirv/STRV.41$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.41$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_41: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z c=1 \ # # $Z standard=FAUX \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=1 B=0 C=0 \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/DEFORMATION.0$COORD_X \ # # $Z $formatI # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=0 \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/DEFORMATION.0$COORD_Y \ # # $Z $formatI # # # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.0$COORD_X \ # # $Z A2=$xTV/DEFORMATION.0$COORD_Y \ # # $Z P=$xTV/GAUSS \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.1$COORD_X \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.0$COORD_Y \ # # $Z A2=$xTV/DEFORMATION.0$COORD_X \ # # $Z P=$xTV/GAUSS \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.1$COORD_Y \ # # $Z $formatI # # # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.1$COORD_X \ # # $Z A2=$xTV/DEFORMATION.1$COORD_Y \ # # $Z P=$xTV/GAUSS \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.2$COORD_X \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.1$COORD_Y \ # # $Z A2=$xTV/DEFORMATION.1$COORD_X \ # # $Z P=$xTV/GAUSS \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.2$COORD_Y \ # # $Z $formatI # # # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.2$COORD_X \ # # $Z A2=$xTV/DEFORMATION.2$COORD_Y \ # # $Z P=$xTV/GAUSS \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.3$COORD_X \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.2$COORD_Y \ # # $Z A2=$xTV/DEFORMATION.2$COORD_X \ # # $Z P=$xTV/GAUSS \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.3$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.32%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION.3$COORD_X \ # # $Z DY=$xTV/DEFORMATION.3$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=16 mxy=0 mxz=0 \ # # $Z myx=0 myy=16 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=4 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRV.41%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION.3$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.41$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION.3$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.41$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_41: # # # v $xiirv/STRV.42 v $xiirv/STRV.42$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.42$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_42: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/spiArchimede$X \ # # $Z mr=8 mt=2 \ # # $Z standard=FAUX \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/SPIRALE \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=1 B=0 C=0 \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/DEFORMATION.0$COORD_X \ # # $Z $formatI # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=0 \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/DEFORMATION.0$COORD_Y \ # # $Z $formatI # # # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.0$COORD_X \ # # $Z A2=$xTV/DEFORMATION.0$COORD_Y \ # # $Z P=$xTV/SPIRALE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.1$COORD_X \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.0$COORD_Y \ # # $Z A2=$xTV/DEFORMATION.0$COORD_X \ # # $Z P=$xTV/SPIRALE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.1$COORD_Y \ # # $Z $formatI # # # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.1$COORD_X \ # # $Z A2=$xTV/DEFORMATION.1$COORD_Y \ # # $Z P=$xTV/SPIRALE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.2$COORD_X \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.1$COORD_Y \ # # $Z A2=$xTV/DEFORMATION.1$COORD_X \ # # $Z P=$xTV/SPIRALE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.2$COORD_Y \ # # $Z $formatI # # # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.2$COORD_X \ # # $Z A2=$xTV/DEFORMATION.2$COORD_Y \ # # $Z P=$xTV/SPIRALE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.3$COORD_X \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.2$COORD_Y \ # # $Z A2=$xTV/DEFORMATION.2$COORD_X \ # # $Z P=$xTV/SPIRALE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.3$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.32%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION.3$COORD_X \ # # $Z DY=$xTV/DEFORMATION.3$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=16 mxy=0 mxz=0 \ # # $Z myx=0 myy=16 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=4 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRV.42%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION.3$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.42$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION.3$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.42$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_42: # # # v $xiirv/STRV.43 v $xiirv/STRV.43$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.43$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_43: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/chapeau_mexi$X \ # # $Z standard=FAUX \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/SPIRALE \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=1 B=0 C=0 \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/DEFORMATION.0$COORD_X \ # # $Z $formatI # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=0 \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/DEFORMATION.0$COORD_Y \ # # $Z $formatI # # # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.0$COORD_X \ # # $Z A2=$xTV/DEFORMATION.0$COORD_Y \ # # $Z P=$xTV/SPIRALE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.1$COORD_X \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.0$COORD_Y \ # # $Z A2=$xTV/DEFORMATION.0$COORD_X \ # # $Z P=$xTV/SPIRALE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.1$COORD_Y \ # # $Z $formatI # # # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.1$COORD_X \ # # $Z A2=$xTV/DEFORMATION.1$COORD_Y \ # # $Z P=$xTV/SPIRALE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.2$COORD_X \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.1$COORD_Y \ # # $Z A2=$xTV/DEFORMATION.1$COORD_X \ # # $Z P=$xTV/SPIRALE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.2$COORD_Y \ # # $Z $formatI # # # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.2$COORD_X \ # # $Z A2=$xTV/DEFORMATION.2$COORD_Y \ # # $Z P=$xTV/SPIRALE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.3$COORD_X \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.2$COORD_Y \ # # $Z A2=$xTV/DEFORMATION.2$COORD_X \ # # $Z P=$xTV/SPIRALE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.3$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.32%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION.3$COORD_X \ # # $Z DY=$xTV/DEFORMATION.3$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=16 mxy=0 mxz=0 \ # # $Z myx=0 myy=16 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=4 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRV.43%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION.3$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.43$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION.3$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.43$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_43: # # # v $xiirv/STRV.44 v $xiirv/STRV.44$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.44$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_44: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z graine=1947 \ # # $Z iterations=2 \ # # $Z mx=0.20 my=0.20 \ # # $Z renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z plat=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=200 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=1 B=0 C=0 \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/DEFORMATION.0$COORD_X \ # # $Z $formatI # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=0 \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/DEFORMATION.0$COORD_Y \ # # $Z $formatI # # # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.0$COORD_X \ # # $Z A2=$xTV/DEFORMATION.0$COORD_Y \ # # $Z P=$xTV/FRACTAL \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.1$COORD_X \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.0$COORD_Y \ # # $Z A2=$xTV/DEFORMATION.0$COORD_X \ # # $Z P=$xTV/FRACTAL \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.1$COORD_Y \ # # $Z $formatI # # # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.1$COORD_X \ # # $Z A2=$xTV/DEFORMATION.1$COORD_Y \ # # $Z P=$xTV/FRACTAL \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.2$COORD_X \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.1$COORD_Y \ # # $Z A2=$xTV/DEFORMATION.1$COORD_X \ # # $Z P=$xTV/FRACTAL \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.2$COORD_Y \ # # $Z $formatI # # # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.2$COORD_X \ # # $Z A2=$xTV/DEFORMATION.2$COORD_Y \ # # $Z P=$xTV/FRACTAL \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.3$COORD_X \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.2$COORD_Y \ # # $Z A2=$xTV/DEFORMATION.2$COORD_X \ # # $Z P=$xTV/FRACTAL \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.3$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.32%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION.3$COORD_X \ # # $Z DY=$xTV/DEFORMATION.3$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=12 mxy=0 mxz=0 \ # # $Z myx=0 myy=12 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=4 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRV.44%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION.3$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.44$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION.3$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.44$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_44: # # # v $xiirv/STRV.44.6.2 # Generee (sur '$CMAP28' -ex "abbesses"-) par : # # # # # # :Debut_listG_STRV_44_6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z set _____ImageA=$xiirv/STRV.44 # # $Z SET cPas=1 # # $Z SET cBorneInf=32 # # $Z SET cBorneSup=32 # # $m4 _____include(_____xiav/.STRU.d3.n.1._____U) # # $m4 _____include(_____xiav/.STRU.d3.4.1._____U) # # # # $Z SET cPremiere=$GRIS_0 # # $Z SET cDerniere=$GRIS_8 # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $m4 _____include(_____xiav/.STRU.d3.n.2._____U) # # # # $Z set _____imagesR=$xiirv/STRV.44.6 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_STRV_44_6: # # # v $xiirv/STRV.51 v $xiirv/STRV.51$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.51$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_51: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X4Y0=+1 X0Y4=+1 X2Y2=+2 \ # # $Z X2Y0=+2 X0Y2=-2 \ # # $Z X0Y1=0 X1Y0=0 \ # # $Z Ex=2 Ey=2 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z plat=FAUX \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=100 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X4Y0=+1 X0Y4=+1 X2Y2=+2 \ # # $Z X2Y0=-2 X0Y2=+2 \ # # $Z X0Y1=0 X1Y0=0 \ # # $Z Ex=2 Ey=2 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z plat=FAUX \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=100 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.32%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=8 mxy=0 mxz=0 \ # # $Z myx=0 myy=8 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=4 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRV.51%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.51$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.51$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_51: # # # v $xiirv/STRV.61 v $xiirv/STRV.61$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.61$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_61: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/PONDERATEUR \ # # $Z $formatI # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=10 \ # # $Z renormaliser=VRAI \ # # $Z origine=0 extremite=0.5 \ # # $Z R=$xTV/CENTRE \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=16 mt=2 \ # # $Z dephasage=0 \ # # $Z renormaliser=VRAI \ # # $Z origine=0 extremite=0.5 \ # # $Z R=$xTV/SPIRALE$COORD_X \ # # $Z $formatI # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=1 B=0 C=0 \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/LINEAIRE$COORD_X \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/SPIRALE$COORD_X \ # # $Z A2=$xTV/LINEAIRE$COORD_X \ # # $Z standard=FAUX \ # # $Z P=$xTV/PONDERATEUR \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z A2=$xTV/CENTRE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=16 mt=2 \ # # $Z dephasage=$pis2 \ # # $Z renormaliser=VRAI \ # # $Z origine=0 extremite=0.5 \ # # $Z R=$xTV/SPIRALE$COORD_Y \ # # $Z $formatI # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=0 \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/LINEAIRE$COORD_Y \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/SPIRALE$COORD_Y \ # # $Z A2=$xTV/LINEAIRE$COORD_Y \ # # $Z standard=FAUX \ # # $Z P=$xTV/PONDERATEUR \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z A2=$xTV/CENTRE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.B3 \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=2 mxy=0 mxz=0 \ # # $Z myx=0 myy=2 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.61%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.61$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.61$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_61: # # # v $xiirv/STRV.62 v $xiirv/STRV.62$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.62$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_62: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/PONDERATEUR \ # # $Z $formatI # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=10 \ # # $Z renormaliser=VRAI \ # # $Z origine=0 extremite=0.5 \ # # $Z R=$xTV/CENTRE \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=16 mt=2 \ # # $Z dephasage=0 \ # # $Z renormaliser=VRAI \ # # $Z origine=0 extremite=0.5 \ # # $Z R=$xTV/SPIRALE$COORD_X \ # # $Z $formatI # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=1 B=0 C=0 \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/LINEAIRE$COORD_X \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/SPIRALE$COORD_X \ # # $Z A2=$xTV/LINEAIRE$COORD_X \ # # $Z standard=FAUX \ # # $Z P=$xTV/PONDERATEUR \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z A2=$xTV/CENTRE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=16 mt=2 \ # # $Z dephasage=$pis2 \ # # $Z renormaliser=VRAI \ # # $Z origine=0 extremite=0.5 \ # # $Z R=$xTV/SPIRALE$COORD_Y \ # # $Z $formatI # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=0 \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/LINEAIRE$COORD_Y \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/SPIRALE$COORD_Y \ # # $Z A2=$xTV/LINEAIRE$COORD_Y \ # # $Z standard=FAUX \ # # $Z P=$xTV/PONDERATEUR \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z A2=$xTV/CENTRE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.68%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=2 mxy=0 mxz=0 \ # # $Z myx=0 myy=2 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=4 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRV.62%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.62$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.62$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_62: # # # v $xiirv/STRV.62.1 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_62_1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z c=4 \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.43 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/INTERPOLATEUR \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xiirv/LARS.41$m%s \ # # $Z A2=$xiirv/STRV.62%s \ # # $Z P=$xTV/INTERPOLATEUR \ # # $Z R=$xTV/INTERPOLE%s \ # # $Z $formatI # # # # $Z $xci/color_NB.01$Z $xTV/INTERPOLE $xiirv/STRV.62.1 # # # # :Fin_listG_STRV_62_1: # # # v $xiirv/STRV.63 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_63: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/STRV.62 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=1000 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/STRV.61%s \ # # $Z avion=VRAI \ # # $Z ombres=FAUX \ # # $Z R=$xTV/MONTAGNE%s \ # # $Z $formatI # # # # $Z $xci/color_NB.01$Z $xTV/MONTAGNE $xiirv/STRV.63 # # # # :Fin_listG_STRV_63: # # # v $xiirv/STRV.72 v $xiirv/STRV.72$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.72$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_72: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/PONDERATEUR \ # # $Z $formatI # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=400 \ # # $Z renormaliser=VRAI \ # # $Z origine=0 extremite=0.5 \ # # $Z R=$xTV/CENTRE \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=16 mt=2 \ # # $Z dephasage=0 \ # # $Z renormaliser=VRAI \ # # $Z origine=0 extremite=0.5 \ # # $Z R=$xTV/SPIRALE$COORD_X \ # # $Z $formatI # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=1 B=0 C=0 \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/LINEAIRE$COORD_X \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/SPIRALE$COORD_X \ # # $Z A2=$xTV/LINEAIRE$COORD_X \ # # $Z standard=FAUX \ # # $Z P=$xTV/PONDERATEUR \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z A2=$xTV/CENTRE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=16 mt=2 \ # # $Z dephasage=$pis2 \ # # $Z renormaliser=VRAI \ # # $Z origine=0 extremite=0.5 \ # # $Z R=$xTV/SPIRALE$COORD_Y \ # # $Z $formatI # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=0 \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/LINEAIRE$COORD_Y \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/SPIRALE$COORD_Y \ # # $Z A2=$xTV/LINEAIRE$COORD_Y \ # # $Z standard=FAUX \ # # $Z P=$xTV/PONDERATEUR \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z A2=$xTV/CENTRE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.524%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=2 mxy=0 mxz=0 \ # # $Z myx=0 myy=2 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=4 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRV.72%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.72$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.72$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_72: # # # v $xiirv/STRV.81.0015 # Generee (sur '$LACT18') avec les animations 'v $xiav/STRV.81$R16' et 'v $xiav/STRV.81$R64'. # v $xiirv/STRV.91 v $xiirv/STRV.91$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.91$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_91: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z niveau=2 \ # # $Z mx=0.10 my=0.10 \ # # $Z graine=1111 \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=200 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION.1$COORD_X \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z niveau=2 \ # # $Z mx=0.10 my=0.10 \ # # $Z graine=3333 \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=200 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION.1$COORD_Y \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=16 mt=+4 \ # # $Z Ex=1.0 Ey=1.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z R=$xTV/DEFORMATION.2$COORD_X \ # # $Z $formatI # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=16 mt=+4 \ # # $Z Ex=1.5 Ey=1.5 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/minmax$X \ # # $Z A1=$xTV/DEFORMATION.2$COORD_X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION.2$COORD_X \ # # $Z $formatI # # # # $Z $xci/Sy$X \ # # $Z A=$xTV/DEFORMATION.2$COORD_X \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION.2$COORD_Y \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=1 B=0 C=0 \ # # $Z Frenormaliser=VRAI \ # # $Z R=$xTV/INTERPOLATEUR \ # # $Z $formatI # # # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.1$COORD_X \ # # $Z A2=$xTV/DEFORMATION.2$COORD_X \ # # $Z P=$xTV/INTERPOLATEUR \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEFORMATION.1$COORD_Y \ # # $Z A2=$xTV/DEFORMATION.2$COORD_Y \ # # $Z P=$xTV/INTERPOLATEUR \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.13%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRV.91 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.91$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.91$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_91: # # # # # # L'utilisation de '$xci/egaliseH$X' est destine a egaliser autant que faire se peut # # l'histogramme des champs generes par '$xci/fract_2D.01$X' qui presentent en fait la # # forme d'une gaussienne centree sur les niveaux moyens. Quant a '$xci/lissage$X', il # # a "gomme" les discontinuites introduites dans le champ par l'egalisation de l'histogramme # # ('v $xiii/di_image$FON 20081001190628'). # v $xiirv/STRV.A1 v $xiirv/STRV.A1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.A1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_A1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=200 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=4 mt=+2 \ # # $Z Ex=1.0 Ey=1.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z Frenormaliser=VRAI \ # # $Z R=$xTV/DEFORMATION.1$COORD_X \ # # $Z $formatI # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=16 mt=+2 \ # # $Z Ex=1.0 Ey=1.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z Frenormaliser=VRAI \ # # $Z R=$xTV/DEFORMATION.2$COORD_X \ # # $Z $formatI # # $Z $xci/minmax$X \ # # $Z A1=$xTV/DEFORMATION.1$COORD_X \ # # $Z A2=$xTV/DEFORMATION.2$COORD_X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=4 mt=-2 \ # # $Z Ex=1.0 Ey=1.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z Frenormaliser=VRAI \ # # $Z R=$xTV/DEFORMATION.1$COORD_Y \ # # $Z $formatI # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=16 mt=-2 \ # # $Z Ex=1.0 Ey=1.0 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z Frenormaliser=VRAI \ # # $Z R=$xTV/DEFORMATION.2$COORD_Y \ # # $Z $formatI # # $Z $xci/minmax$X \ # # $Z A1=$xTV/DEFORMATION.1$COORD_Y \ # # $Z A2=$xTV/DEFORMATION.2$COORD_Y \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.32%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRV.A1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.A1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.A1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_A1: # # # v $xiirv/STRV.B1 v $xiirv/STRV.B1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.B1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_B1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=800 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=8 mt=+1 \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=8 mt=-1 \ # # $Z $formatI | \ # # $Z $xci/maximum$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirs/PROJ.F4.F5.1%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z iterer2D=FAUX \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRV.B1 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.B1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.B1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_B1: # # # v $xiirv/STRV.C1 v $xiirv/STRV.C1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.C1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_C1: # # # # $Z Pqu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z setenv SETENV $EXIST # # # # $Z setenv P__rseIl VRAI # # $Z setenv P__mrseIl 1 # # # # $Z setenv P__rseIlF VRAI # # $Z setenv P__mrseIlF 1 # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=8 mt=+1 \ # # $Z Frenormaliser=VRAI \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=8 mt=-1 \ # # $Z Frenormaliser=VRAI \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.68%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformii.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z iterer_indirection=VRAI \ # # $Z nombre_iterations_indirection=1 \ # # $Z IX=$xTV/DEFORMATION$COORD_X \ # # $Z IY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=25 \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.C1%s \ # # $Z $formatR_Pal" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.C1$COORD_X \ # # $Z $formatR_Pal # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.C1$COORD_Y \ # # $Z $formatR_Pal # # # # :Fin_listG_STRV_C1: # # # v $xiirv/STRV.C1.6.2 # Generee (sur '$CMAP28' -ex "abbesses"-) par : # # # # # # :Debut_listG_STRV_C1_6: # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z Pdu # # # # $Z set _____ImageA=$xTV/STRV.C1 # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$xiirv/STRV.C1%s \ # # $Z $format_Pal \ # # $Z mode=2 \ # # $Z R=$_____ImageA%s \ # # $Z $formatR_Pdu # # # # $Z SET cPas=1 # # $Z SET cBorneInf=32 # # $Z SET cBorneSup=32 # # $m4 _____include(_____xiav/.STRU.d3.n.1._____U) # # $m4 _____include(_____xiav/.STRU.d3.4.1._____U) # # # # $Z SET cPremiere=$GRIS_0 # # $Z SET cDerniere=$GRIS_8 # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $m4 _____include(_____xiav/.STRU.d3.n.2._____U) # # # # $Z set _____imagesR=$xiirv/STRV.C1.6 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_STRV_C1_6: # # # v $xiirv/STRV.C1.6.2.6.2 # Generee (sur '$CMAP28' -ex "abbesses"-) par : # # # # # # :Debut_listG_STRV_C1_6_2_6: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z set _____ImageA=$xiirv/STRV.C1.6.2 # # $Z SET cPas=1 # # $Z SET cBorneInf=32 # # $Z SET cBorneSup=32 # # $m4 _____include(_____xiav/.STRU.d3.n.1._____U) # # $m4 _____include(_____xiav/.STRU.d3.4.1._____U) # # # # $Z SET cPremiere=$GRIS_0 # # $Z SET cDerniere=$GRIS_8 # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $m4 _____include(_____xiav/.STRU.d3.n.2._____U) # # # # $Z set _____imagesR=$xiirv/STRV.C1.6.2.6 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_STRV_C1_6_2_6: # # # v $xiirv/STRV.D1 v $xiirv/STRV.D1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.D1$COORD_Y p=$xiP/cercle.35 v $xiirv/STRV.D1$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_D1: # # # # $Z Pqu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z setenv SETENV $EXIST # # # # $Z setenv P__rseIl VRAI # # $Z setenv P__mrseIl 1 # # # # $Z setenv P__rseIlF VRAI # # $Z setenv P__mrseIlF 1 # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$xiit/JFC.13%s \ # # $Z $format_Std \ # # $Z mode=2 \ # # $Z R=$xTV/JFC.13%s \ # # $Z $formatR_Pqu # # # # $Z $xci/gauss$X \ # # $Z c=32 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z execRVB $xci/filtre.01$X \ # # $Z A=$xTV/JFC.13%s \ # # $Z N=$xTV/GAUSS \ # # $Z seuil=253 \ # # $Z avertir_non_implicite=FAUX \ # # $Z R=$xTV/JFC.14%s \ # # $Z $formatI # # # # $Z execRVB "$xci/egaliseH.01$X \ # # $Z A=$xTV/JFC.14%s \ # # $Z plat=FAUX \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=50 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/JFC.15%s \ # # $Z $formatI" # # # # $Z $xci/neutre$X \ # # $Z A=$xTV/JFC.15$ROUGE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # $Z $xci/neutre$X \ # # $Z A=$xTV/JFC.15$VERTE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # $Z $xci/neutre$X \ # # $Z A=$xTV/JFC.15$BLEUE \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION$COORD_Z \ # # $Z $formatI # # # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.68%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.2 mxz=-2.8 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=25 \ # # $Z circulaire=VRAI \ # # $Z circulaire_optimale=VRAI \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.D1%s \ # # $Z $formatR_Pal" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.D1$COORD_X \ # # $Z $formatR_Pal # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.D1$COORD_Y \ # # $Z $formatR_Pal # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.D1$COORD_Z \ # # $Z $formatR_Pal # # # # :Fin_listG_STRV_D1: # # # # # # On notera l'option "plat=FAUX" dans '$xci/egaliseH.01$X' car, en effet, utiliser l'option # # "plat=VRAI" introduirait des discontinuites lineaires horizontales tres visibles dans les # # champs de deformation '$xTV/DEFORMATION'... # v $xiirv/STRV.E1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.E1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') avec les animations 'v $xiav/STRV.E1$R16' et 'v $xiav/STRV.E1$R64'. # v $xiirv/STRV.F1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.F1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') avec les animations 'v $xiav/STRV.F1$R16' et 'v $xiav/STRV.F1$R64'. # v $xiirv/STRV.G1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.G1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') avec les animations 'v $xiav/STRV.G1$R16' et 'v $xiav/STRV.G1$R64'. # v $xiirv/STRV.H1 v $xiirv/STRV.H1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.H1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_H1: # # # # $Z Pqu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mt=0 mr=10 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mt=4 mr=0 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB "$xci/format.01$X \ # # $Z A=$xiirv/STRU.bas.A6%s \ # # $Z $format_Pal \ # # $Z mode=2 \ # # $Z $formatR_Pqu | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z Xpave2D=3 Ypave2D=3 \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=4 mxy=0 mxz=0 \ # # $Z myx=0 myy=4 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.H1%s \ # # $Z $formatR_Pal" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.H1$COORD_X \ # # $Z $formatR_Pal # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.H1$COORD_Y \ # # $Z $formatR_Pal # # # # :Fin_listG_STRV_H1: # # # v $xiirv/STRV.I1 v $xiirv/STRV.I1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.I1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_I1: # # # # $Z Pqu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB "$xci/format.01$X \ # # $Z A=$xiirv/STRU.bas.I1%s \ # # $Z $format_Pal \ # # $Z mode=2 \ # # $Z $formatR_Pqu | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z Xpave2D=3 Ypave2D=3 \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=1 mxy=0 mxz=0 \ # # $Z myx=0 myy=1 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatR_Pal" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.I1$COORD_X \ # # $Z $formatR_Pal # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.I1$COORD_Y \ # # $Z $formatR_Pal # # # # $Z Pal # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRV.I1 # # # # :Fin_listG_STRV_I1: # # # v $xiirv/STRV.J1 v $xiirv/STRV.J1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.J1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_J1: # # # # $Z Pqu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB "$xci/format.01$X \ # # $Z A=$xiirv/STRU.bas.J1%s \ # # $Z $format_Pal \ # # $Z mode=2 \ # # $Z $formatR_Pqu | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z Xpave2D=3 Ypave2D=3 \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=1 mxy=0 mxz=0 \ # # $Z myx=0 myy=1 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatR_Pal" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.J1$COORD_X \ # # $Z $formatR_Pal # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.J1$COORD_Y \ # # $Z $formatR_Pal # # # # $Z Pal # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRV.J1 # # # # :Fin_listG_STRV_J1: # # # v $xiirv/STRV.J2 v $xiirv/STRV.J2$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.J2$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_J2: # # # # $Z Pqu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB "$xci/format.01$X \ # # $Z A=$xiirv/STRU.bas.J2%s \ # # $Z $format_Pal \ # # $Z mode=2 \ # # $Z $formatR_Pqu | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z Xpave2D=3 Ypave2D=3 \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=1 mxy=0 mxz=0 \ # # $Z myx=0 myy=1 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatR_Pal" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.J2$COORD_X \ # # $Z $formatR_Pal # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.J2$COORD_Y \ # # $Z $formatR_Pal # # # # $Z Pal # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRV.J2 # # # # :Fin_listG_STRV_J2: # # # v $xiirv/STRV.K1 v $xiirv/STRV.K1.motif p=$xiP/gris.01 v $xiirv/STRV.K1.$CHAMP p=$xiP/gris.01 v $xiirv/STRV.K1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.K1$COORD_Y p=$xiP/cercle.35 v $xiirv/STRV.K1$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_K1: # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z Std # # # # $Z source $xrd/graph.01$vv$Y # # # # $Z set BMoTiF=3 # # $Z set MoTiF="=AJ.2=HI." # # # # $Z G_Dessin $MoTiF $BMoTiF $xTV/IMPOSSIBLE "LISTE_RAYON=0.02" # # # # $Z $xci/message$X \ # # $Z A=$NOIR \ # # $Z message="$MoTiF" \ # # $Z niveau_fond=$NOIR \ # # $Z niveau_message=$BLANC \ # # $Z bibliotheque=$BMoTiF \ # # $Z centrer=VRAI \ # # $Z anti_aliasing=VRAI \ # # $Z taille=43 \ # # $Z R=$xiirv/STRV.K1.motif \ # # $Z $formatI # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/IMPOSSIBLE$ROUGE \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xTV/IMPOSSIBLE \ # # $Z $formatR_Pal # # # # $Z Pal # # # # $Z $xci/acces$X \ # # $Z A=$xTV/IMPOSSIBLE \ # # $Z R=$xiirv/STRV.K1.$CHAMP \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRV.K1.$CHAMP \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z $xrs/project2D.01$Z sphere.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRV.K1 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.K1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.K1$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.K1$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRV_K1: # # # # # # Cette image est basee sur les pseudo-projections de la sphere... # v $xiirv/STRV.K2 v $xiirv/STRV.K2.motif p=$xiP/gris.01 v $xiirv/STRV.K2.$CHAMP p=$xiP/gris.01 v $xiirv/STRV.K2$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.K2$COORD_Y p=$xiP/cercle.35 v $xiirv/STRV.K2$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_K2: # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z Std # # # # $Z source $xrd/graph.01$vv$Y # # # # $Z set BMoTiF=3 # # $Z set MoTiF="=AJ.2=HI." # # # # $Z G_Dessin $MoTiF $BMoTiF $xTV/IMPOSSIBLE "LISTE_RAYON=0.02" # # # # $Z $xci/message$X \ # # $Z A=$NOIR \ # # $Z message="$MoTiF" \ # # $Z niveau_fond=$NOIR \ # # $Z niveau_message=$BLANC \ # # $Z bibliotheque=$BMoTiF \ # # $Z centrer=VRAI \ # # $Z anti_aliasing=VRAI \ # # $Z taille=43 \ # # $Z R=$xiirv/STRV.K2.motif \ # # $Z $formatI # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/IMPOSSIBLE$ROUGE \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xTV/IMPOSSIBLE \ # # $Z $formatR_Pal # # # # $Z Pal # # # # $Z $xci/acces$X \ # # $Z A=$xTV/IMPOSSIBLE \ # # $Z R=$xiirv/STRV.K2.$CHAMP \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRV.K2.$CHAMP \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z $xrs/project2D.01$Z bKlein.61 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRV.K2 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.K2$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.K2$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.K2$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRV_K2: # # # # # # Cette image est basee sur les pseudo-projections de la triple bouteille de # # Bonan-Jeener-Klein... # # # # Elle est identique a 'v $xiirv/STRV.K2' mais en mode '$HauteDef' pour le livre de # # Tom Mikulic ('v $Dcourrier_in/20150504091726 From.tmikulic@gmail.com..Thu.Apr.30.18:15'). # v $xiirv/STRV.K2$HauteDef v $xiirv/STRV.K2$HauteDef.motif p=$xiP/gris.01 v $xiirv/STRV.K2$HauteDef.$CHAMP p=$xiP/gris.01 v $xiirv/STRV.K2$HauteDef$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.K2$HauteDef$COORD_Y p=$xiP/cercle.35 v $xiirv/STRV.K2$HauteDef$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_K2_HauteDef: # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z Shu # # # # $Z source $xrd/graph.01$vv$Y # # # # $Z set BMoTiF=3 # # $Z set MoTiF="=AJ.2=HI." # # # # $Z G_Dessin $MoTiF $BMoTiF $xTV/IMPOSSIBLE "LISTE_RAYON=0.02" # # # # $Z $xci/message$X \ # # $Z A=$NOIR \ # # $Z message="$MoTiF" \ # # $Z niveau_fond=$NOIR \ # # $Z niveau_message=$BLANC \ # # $Z bibliotheque=$BMoTiF \ # # $Z centrer=VRAI \ # # $Z anti_aliasing=VRAI \ # # $Z taille=43 \ # # $Z R=$xiirv/STRV.K2$HauteDef.motif \ # # $Z $formatI # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/IMPOSSIBLE$ROUGE \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xTV/IMPOSSIBLE \ # # $Z $formatR_Phu # # # # $Z Phu # # # # $Z $xci/acces$X \ # # $Z A=$xTV/IMPOSSIBLE \ # # $Z R=$xiirv/STRV.K2$HauteDef.$CHAMP \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRV.K2$HauteDef.$CHAMP \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z $xrs/project2D.01$Z bKlein.61 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRV.K2$HauteDef # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.K2$HauteDef$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.K2$HauteDef$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.K2$HauteDef$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRV_K2_HauteDef: # # # # # # Cette image est basee sur les pseudo-projections de la triple bouteille de # # Bonan-Jeener-Klein... # v $xiirv/STRV.K3 v $xiirv/STRV.K3.motif p=$xiP/gris.01 v $xiirv/STRV.K3.$CHAMP p=$xiP/gris.01 v $xiirv/STRV.K3$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.K3$COORD_Y p=$xiP/cercle.35 v $xiirv/STRV.K3$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_K3: # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z Std # # # # $Z source $xrd/graph.01$vv$Y # # # # $Z set BMoTiF=3 # # $Z set MoTiF="=AJ.2=HI." # # # # $Z G_Dessin $MoTiF $BMoTiF $xTV/IMPOSSIBLE "LISTE_RAYON=0.02" # # # # $Z $xci/message$X \ # # $Z A=$NOIR \ # # $Z message="$MoTiF" \ # # $Z niveau_fond=$NOIR \ # # $Z niveau_message=$BLANC \ # # $Z bibliotheque=$BMoTiF \ # # $Z centrer=VRAI \ # # $Z anti_aliasing=VRAI \ # # $Z taille=43 \ # # $Z R=$xiirv/STRV.K3.motif \ # # $Z $formatI # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/IMPOSSIBLE$ROUGE \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xTV/IMPOSSIBLE \ # # $Z $formatR_Pal # # # # $Z Pal # # # # $Z $xci/acces$X \ # # $Z A=$xTV/IMPOSSIBLE \ # # $Z R=$xiirv/STRV.K3.$CHAMP \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRV.K3.$CHAMP \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z $xrs/project2D.01$Z sBoy.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+1.6 mxz=-3.2 \ # # $Z myx=+1.6 myy=+1.0 myz=+1.6 \ # # $Z mzx=-3.2 mzy=+1.6 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI" # # # # $Z $xci/color_NB.01$Z $xTV/STRUCTURE $xiirv/STRV.K3 # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.K3$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.K3$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.K3$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRV_K3: # # # # # # Cette image est basee sur les pseudo-projections de la surface de Boy. # v $xiirv/STRV.L4 v $xiirv/STRV.L4$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.L4$COORD_Y p=$xiP/cercle.35 v $xiirv/STRV.L4$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_L4: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xrs/project2D.01$Z plan.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiia/ESCA.C2%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+4.0 mxy=0 mxz=0 \ # # $Z myx=0 myy=+4.0 myz=0 \ # # $Z mzx=0 mzy=0 mzz=+4.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.L4%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.L4$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.L4$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z message_extrema=FAUX \ # # $Z R=$xiirv/STRV.L4$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRV_L4: # # # # # # Cette image est basee sur les pseudo-projections du plan... # v $xiirv/STRV.M1 v $xiirv/STRV.M1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.M1$COORD_Y p=$xiP/cercle.35 v $xiirv/STRV.M1$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_M1: # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z Pal # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiia/ESCA.C2%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z $xrs/project2D.01$Z sphere.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=0 mxz=0 \ # # $Z myx=0 myy=+1.0 myz=0 \ # # $Z mzx=0 mzy=0 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.M1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.M1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.M1$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.M1$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRV_M1: # # # # # # Cette image est basee sur les pseudo-projections de la sphere... # v $xiirv/STRV.M2 v $xiirv/STRV.M2$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.M2$COORD_Y p=$xiP/cercle.35 v $xiirv/STRV.M2$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_M2: # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z Pal # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiia/ESCA.C2%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z $xrs/project2D.01$Z bKlein.61 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=0 mxz=0 \ # # $Z myx=0 myy=+1.0 myz=0 \ # # $Z mzx=0 mzy=0 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.M2%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.M2$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.M2$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.M2$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRV_M2: # # # # # # Cette image est basee sur les pseudo-projections de la triple bouteille de # # Bonan-Jeener-Klein... # v $xiirv/STRV.M3 v $xiirv/STRV.M3$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.M3$COORD_Y p=$xiP/cercle.35 v $xiirv/STRV.M3$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_M3: # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z Pal # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiia/ESCA.C2%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z $xrs/project2D.01$Z sBoy.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=0 mxz=0 \ # # $Z myx=0 myy=+1.0 myz=0 \ # # $Z mzx=0 mzy=0 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.M3%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.M3$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.M3$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.M3$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRV_M3: # # # # # # Cette image est basee sur les pseudo-projections de la surface de Boy. # v $xiirv/STRV.N1 v $xiirv/STRV.N1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.N1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_N1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/argument$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/module$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.32%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=8 mxy=0 mxz=0 \ # # $Z myx=0 myy=8 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.N1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.N1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.N1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_N1: # # # v $xiirv/STRV.N2 v $xiirv/STRV.N2$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.N2$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_STRV_N2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z $xci/argument$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/module$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiia/VASA.11.64%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=2 mxy=0 mxz=0 \ # # $Z myx=0 myy=2 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.N2%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.N2$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.N2$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_N2: # # # v $xiirv/STRV.O1 v $xiirv/STRV.O1.$CHAMP p=$xiP/gris.01 v $xiirv/STRV.O1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.O1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_O1: # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set SPaRaDoXaLe="$K_VIDE" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # $Z set SPaRaDoXaLe="$SPaRaDoXaLe""aaaaaaaa333333332" # # # # $Z set TaIlLe=16 # # # # $Z set DiMeNsIoN=`$xcg/MAX2.01$X x=$dimXStd y=$dimYStd` # # $Z set NoMbRe=`calculINS $DiMeNsIoN/(6*$TaIlLe)` # # $Z set MaXiMa=`calculINS ($NoMbRe*(6*$TaIlLe))-1` # # # # $Z XYmaxNe $MaXiMa $MaXiMa # # # # $Z $xci/message$X \ # # $Z A=$NOIR \ # # $Z centrer=FAUX X=0 Y=0 \ # # $Z SKH=FAUX \ # # $Z message="$SPaRaDoXaLe" \ # # $Z taille=$TaIlLe \ # # $Z anti_aliasing=VRAI \ # # $Z bibliotheque=03 \ # # $Z R=$xTV/IMPOSSIBLE \ # # $Z $formatI # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/IMPOSSIBLE \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xTV/IMPOSSIBLE \ # # $Z $formatR_Pal # # # # $Z Pal # # # # $Z $xci/dilate.01$X \ # # $Z A=$xTV/IMPOSSIBLE \ # # $Z dilater=VRAI \ # # $Z R=$xiirv/STRV.O1.$CHAMP \ # # $Z $formatI # # # # $Z $xci/argument$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/module$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRV.O1.$CHAMP \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z seuil=240 \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=9 \ # # $Z R=$xTV/CENTRE \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=2 mxy=0 mxz=0 \ # # $Z myx=0 myy=2 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z A2=$xTV/CENTRE \ # # $Z R=$xiirv/STRV.O1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.O1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.O1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_O1: # # # v $xiirv/STRV.P1 v $xiirv/STRV.P1.$CHAMP p=$xiP/gris.01 v $xiirv/STRV.P1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.P1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_P1: # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # $Z set SPaRaD="$K_VIDE" # # $Z set SPaRaD="$SPaRaD""KPJOBLRYHIGNUQVYOEDSC3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""OEDSCKPJOBLRYHIGNUQVY3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""NUQVYOEDSCKPJOBLRYHIG3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""RYHIGNUQVYOEDSCKPJOBL3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""PJOBLRYHIGNUQVYOEDSCK3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""EDSCKPJOBLRYHIGNUQVYO3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""UQVYOEDSCKPJOBLRYHIGN3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""YHIGNUQVYOEDSCKPJOBLR3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""JOBLRYHIGNUQVYOEDSCKP3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""DSCKPJOBLRYHIGNUQVYOE3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""QVYOEDSCKPJOBLRYHIGNU3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""HIGNUQVYOEDSCKPJOBLRY3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""OBLRYHIGNUQVYOEDSCKPJ3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""SCKPJOBLRYHIGNUQVYOED3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""VYOEDSCKPJOBLRYHIGNUQ3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""IGNUQVYOEDSCKPJOBLRYH3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""BLRYHIGNUQVYOEDSCKPJO3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""CKPJOBLRYHIGNUQVYOEDS3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""YOEDSCKPJOBLRYHIGNUQV3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""GNUQVYOEDSCKPJOBLRYHI3333333333333333333332" # # $Z set SPaRaD="$SPaRaD""LRYHIGNUQVYOEDSCKPJOB3333333333333333333332" # # # # $Z set TaIlLe=16 # # # # $Z set DiMeNsIoN=`$xcg/MAX2.01$X x=$dimXStd y=$dimYStd` # # $Z set NoMbRe=`calculINS $DiMeNsIoN/(6*$TaIlLe)` # # $Z set MaXiMa=`calculINS ($NoMbRe*(6*$TaIlLe))-1` # # # # $Z XYmaxNe $MaXiMa $MaXiMa # # # # $Z $xci/message$X \ # # $Z A=$NOIR \ # # $Z centrer=FAUX X=0 Y=0 \ # # $Z SKH=FAUX \ # # $Z message="$SPaRaD" \ # # $Z taille=$TaIlLe \ # # $Z anti_aliasing=VRAI \ # # $Z bibliotheque=03 \ # # $Z R=$xTV/IMPOSSIBLE \ # # $Z $formatI # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/IMPOSSIBLE \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xTV/IMPOSSIBLE \ # # $Z $formatR_Pal # # # # $Z Pal # # # # $Z $xci/dilate.01$X \ # # $Z A=$xTV/IMPOSSIBLE \ # # $Z dilater=VRAI \ # # $Z R=$xiirv/STRV.P1.$CHAMP \ # # $Z $formatI # # # # $Z $xci/argument$X \ # # $Z standard=FAUX \ # # $Z TRANSLATION_OY=+0.7 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/module$X \ # # $Z standard=FAUX \ # # $Z TRANSLATION_OY=+0.7 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRV.P1.$CHAMP \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=2 mxy=0 mxz=0 \ # # $Z myx=0 myy=2 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.P1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.P1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.P1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_P1: # # # v $xiirv/STRV.P1.$CHAMP.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRV_P1_champ_1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/STRV.P1.$CHAMP # # $Z set _____ImageR=$_____ImageA.1 # # # # $Z set _____Palette=$xiP/random.A5 # # $Z FileTmpB FPalette # # # # $Z $xciP/S_NIVEAU$X \ # # $Z paletteA=$_____Palette \ # # $Z niveau=$NOIR \ # # $Z ROUGE=VRAI nR=$NOIR \ # # $Z VERTE=VRAI nV=$NOIR \ # # $Z BLEUE=VRAI nB=$NOIR \ # # $Z paletteR=$FPalette # # # # $Z set ArGs="$K_VIDE" # # $Z set ArGs="$ArGs"" A=$_____ImageA" # # $Z set ArGs="$ArGs"" editer=VRAI" # # $Z set ArGs="$ArGs"" R=$xTV/STRV.P1.1" # # $Z set ChAiNe="IncrementOptimal=" # # $Z set InCr=`$xci/contours.22$X $ArGs |& $GRE "$ChAiNe" | $SE -e "s/^.*=//"` # # # # $Z $xci/contours.22$X \ # # $Z A=$_____ImageA \ # # $Z increment_niveau=$InCr \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$FPalette \ # # $Z R=$xTV/STRV.P1.2 \ # # $Z $formatI # # # # $Z FileTmpE FPalette # # # # $Z execRVB "$xci/scale$X \ # # $Z A=$xTV/STRV.P1.2%s \ # # $Z a=0.5 \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$_____ImageA \ # # $Z anti_aliaser=VRAI \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=9 \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_STRV_P1_champ_1: # # # v $xiirv/STRV.P1.$CHAMP.1$IdM # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_STRV_P1_champ_1_IdM: # # # # $Z ext TvB # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/STRV.P1.$CHAMP # # $Z set _____ImageR=$_____ImageA.1$IdM # # # # $Z set _____Palette=$xiP/random.A5 # # $Z FileTmpB FPalette # # # # $Z $xciP/S_NIVEAU$X \ # # $Z paletteA=$_____Palette \ # # $Z niveau=$NOIR \ # # $Z ROUGE=VRAI nR=$NOIR \ # # $Z VERTE=VRAI nV=$NOIR \ # # $Z BLEUE=VRAI nB=$NOIR \ # # $Z paletteR=$FPalette # # # # $Z set ArGs="$K_VIDE" # # $Z set ArGs="$ArGs"" A=$_____ImageA" # # $Z set ArGs="$ArGs"" editer=VRAI" # # $Z set ArGs="$ArGs"" R=$xTV/STRV.P1.1" # # $Z set ChAiNe="IncrementOptimal=" # # $Z set InCr=`$xci/contours.22$X $ArGs |& $GRE "$ChAiNe" | $SE -e "s/^.*=//"` # # # # $Z $xci/contours.22$X \ # # $Z A=$_____ImageA \ # # $Z increment_niveau=$InCr \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$FPalette \ # # $Z R=$xTV/STRV.P1.2 \ # # $Z $formatI # # # # $Z FileTmpE FPalette # # # # $Z execRVB "$xci/scale$X \ # # $Z A=$xTV/STRV.P1.2%s \ # # $Z a=0.5 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z dilater=VRAI \ # # $Z points=25 \ # # $Z $formatI | \ # # $Z $xci/cache$X \ # # $Z M=$_____ImageA \ # # $Z anti_aliaser=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_STRV_P1_champ_1_IdM: # # # v $xiirv/STRV.Q1 v $xiirv/STRV.Q1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.Q1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_Q1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/argument$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/module$X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.63%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=4 mxy=0 mxz=0 \ # # $Z myx=0 myy=4 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.Q1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.Q1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.Q1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_Q1: # # # v $xiirv/STRV.Q1.6.2 # Generee (sur '$CMAP28' -ex "abbesses"-) par : # # # # # # :Debut_listG_STRV_Q1_6: # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z Pdu # # # # $Z set _____ImageA=$xTV/STRV.Q1 # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$xiirv/STRV.Q1%s \ # # $Z $format_Pal \ # # $Z mode=2 \ # # $Z R=$_____ImageA%s \ # # $Z $formatR_Pdu # # # # $Z SET cPas=1 # # $Z SET cBorneInf=32 # # $Z SET cBorneSup=32 # # $m4 _____include(_____xiav/.STRU.d3.n.1._____U) # # $m4 _____include(_____xiav/.STRU.d3.4.1._____U) # # # # $Z SET cPremiere=$GRIS_0 # # $Z SET cDerniere=$GRIS_8 # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $m4 _____include(_____xiav/.STRU.d3.n.2._____U) # # # # $Z set _____imagesR=$xiirv/STRV.Q1.6 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_STRV_Q1_6: # # # v $xiirv/STRV.Q1.6.2.6.2 # Generee (sur '$CMAP28' -ex "abbesses"-) par : # # # # # # :Debut_listG_STRV_Q1_6_2_6: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # # # $Z set _____ImageA=$xiirv/STRV.Q1.6.2 # # $Z SET cPas=1 # # $Z SET cBorneInf=32 # # $Z SET cBorneSup=32 # # $m4 _____include(_____xiav/.STRU.d3.n.1._____U) # # $m4 _____include(_____xiav/.STRU.d3.4.1._____U) # # # # $Z SET cPremiere=$GRIS_0 # # $Z SET cDerniere=$GRIS_8 # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirc/.MANE.41.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $m4 _____include(_____xiav/.STRU.d3.n.2._____U) # # # # $Z set _____imagesR=$xiirv/STRV.Q1.6.2.6 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # :Fin_listG_STRV_Q1_6_2_6: # # # v $xiirv/STRV.R1 v $xiirv/STRV.R1.motif p=$xiP/gris.01 v $xiirv/STRV.R1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.R1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_R1: # # # # $Z Std # # # # $Z source $xrd/graph.01$vv$Y # # # # $Z set BMoTiF=3 # # $Z set MoTiF="=AJ.2=HI." # # # # $Z G_Dessin $MoTiF $BMoTiF $xTV/IMPOSSIBLE "LISTE_RAYON=0.02" # # # # $Z $xci/message$X \ # # $Z A=$NOIR \ # # $Z message="$MoTiF" \ # # $Z niveau_fond=$NOIR \ # # $Z niveau_message=$BLANC \ # # $Z bibliotheque=$BMoTiF \ # # $Z centrer=VRAI \ # # $Z anti_aliasing=VRAI \ # # $Z taille=43 \ # # $Z R=$xiirv/STRV.R1.motif \ # # $Z $formatI # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/IMPOSSIBLE$ROUGE \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xTV/IMPOSSIBLE \ # # $Z $formatR_Pal # # # # $Z Pal # # # # $Z $xci/acces$X \ # # $Z A=$xTV/IMPOSSIBLE \ # # $Z R=$xiirv/STRV.R1.$CHAMP \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRV.R1.$CHAMP \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z recursivite=4 \ # # $Z graine=1947 \ # # $Z mX=0.5 mY=0.5 \ # # $Z OX=0 EX=1 \ # # $Z OY=0 EY=1 \ # # $Z valider=FAUX \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z origine=-0.05 extremite=+0.05 \ # # $Z R=$xTV/FRACTAL$COORD_X \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z recursivite=4 \ # # $Z graine=1789 \ # # $Z mX=0.5 mY=0.5 \ # # $Z OX=0 EX=1 \ # # $Z OY=0 EY=1 \ # # $Z valider=FAUX \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z origine=-0.05 extremite=+0.05 \ # # $Z R=$xTV/FRACTAL$COORD_Y \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z A=1 B=0 C=0 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z A=0 B=1 C=0 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z $xci/somme_02$X \ # # $Z A1=$xTV/DEFORMATION$COORD_X \ # # $Z A2=$xTV/FRACTAL$COORD_X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/somme_02$X \ # # $Z A1=$xTV/DEFORMATION$COORD_Y \ # # $Z A2=$xTV/FRACTAL$COORD_Y \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=8 mxy=0 mxz=0 \ # # $Z myx=0 myy=8 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.R1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.R1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.R1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_R1: # # # v $xiirv/STRV.R1.1 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_R1_1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiirf/NUAG.11.0033 \ # # $Z p=$xiP/nuages.02 \ # # $Z R=$xTV/NUAGES \ # # $Z $formatI # # # # $Z execRVB $xci/scale$X \ # # $Z A=$xiirv/STRV.R1%s \ # # $Z a=0.75 \ # # $Z R=$xTV/STRUCTURE%s \ # # $Z $formatI # # # # $Z execRVB $xci/maximum$X \ # # $Z A1=$xTV/STRUCTURE%s \ # # $Z A2=$xTV/NUAGES%s \ # # $Z R=$xiirv/STRV.R1.1%s \ # # $Z $formatI # # # # # # :Fin_listG_STRV_R1_1: # # # v $xiirv/STRV.R2 v $xiirv/STRV.R2.$CHAMP p=$xiP/gris.01 v $xiirv/STRV.R2.motif p=$xiP/gris.01 v $xiirv/STRV.R2$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.R2$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_R2: # # # # $Z Std # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z source $xrd/graph.01$vv$Y # # # # $Z set BMoTiF=3 # # $Z set MoTiF="=AJ.2=HI." # # # # $Z G_Dessin $MoTiF $BMoTiF $xTV/IMPOSSIBLE "LISTE_RAYON=0.02" # # # # $Z $xci/message$X \ # # $Z A=$NOIR \ # # $Z message="$MoTiF" \ # # $Z niveau_fond=$NOIR \ # # $Z niveau_message=$BLANC \ # # $Z bibliotheque=$BMoTiF \ # # $Z centrer=VRAI \ # # $Z anti_aliasing=VRAI \ # # $Z taille=43 \ # # $Z R=$xiirv/STRV.R2.motif \ # # $Z $formatI # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/IMPOSSIBLE$ROUGE \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xTV/IMPOSSIBLE \ # # $Z $formatR_Pal # # # # $Z Pal # # # # $Z $xci/acces$X \ # # $Z A=$xTV/IMPOSSIBLE \ # # $Z R=$xiirv/STRV.R2.$CHAMP \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRV.R2.$CHAMP \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z recursivite=4 \ # # $Z graine=1947 \ # # $Z mX=0.5 mY=0.5 \ # # $Z OX=0 EX=1 \ # # $Z OY=0 EY=1 \ # # $Z valider=FAUX \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z origine=-0.075 extremite=+0.075 \ # # $Z R=$xTV/FRACTAL$COORD_X \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z recursivite=4 \ # # $Z graine=1789 \ # # $Z mX=0.5 mY=0.5 \ # # $Z OX=0 EX=1 \ # # $Z OY=0 EY=1 \ # # $Z valider=FAUX \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z origine=-0.075 extremite=+0.075 \ # # $Z R=$xTV/FRACTAL$COORD_Y \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z A=1 B=0 C=0 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEGRADE$COORD_X \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z A=0 B=1 C=0 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEGRADE$COORD_Y \ # # $Z $formatI # # # # $Z $xci/somme_02$X \ # # $Z A1=$xTV/DEGRADE$COORD_X \ # # $Z A2=$xTV/FRACTAL$COORD_X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEGRADE_FRACTAL$COORD_X \ # # $Z $formatI # # # # $Z $xci/somme_02$X \ # # $Z A1=$xTV/DEGRADE$COORD_Y \ # # $Z A2=$xTV/FRACTAL$COORD_Y \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEGRADE_FRACTAL$COORD_Y \ # # $Z $formatI # # # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEGRADE_FRACTAL$COORD_X \ # # $Z A2=$xTV/DEGRADE$COORD_X \ # # $Z P=$xTV/DEGRADE$COORD_X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEGRADE_FRACTAL$COORD_Y \ # # $Z A2=$xTV/DEGRADE$COORD_Y \ # # $Z P=$xTV/DEGRADE$COORD_Y \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=8 mxy=0 mxz=0 \ # # $Z myx=0 myy=8 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.R2%s \ # # $Z $formatI" # # # # $Z $xci/somme_02$X \ # # $Z A1=$xTV/DEGRADE$COORD_X \ # # $Z A2=$xTV/DEGRADE$COORD_Y \ # # $Z R=$xTV/DEGRADE \ # # $Z standard=FAUX \ # # $Z $formatI # # # # $Z $xci/somme_02$X \ # # $Z A1=$xTV/FRACTAL$COORD_X \ # # $Z A2=$xTV/FRACTAL$COORD_Y \ # # $Z R=$xTV/FRACTAL \ # # $Z standard=FAUX \ # # $Z $formatI # # # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/DEGRADE \ # # $Z A2=$xTV/FRACTAL \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/arc_ciel.C1 \ # # $Z R=$xTV/TEXTURE \ # # $Z $formatI # # # # $Z execRVB $xci/multi_02.01$X \ # # $Z A1=$xTV/TEXTURE%s \ # # $Z A2=$xiirv/STRV.R2%s \ # # $Z R=$xiirv/STRV.R2%s \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.R2$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.R2$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_R2: # # # v $xiirv/STRV.R2$HauteDef v $xiirv/STRV.R2$HauteDef.$CHAMP p=$xiP/gris.01 v $xiirv/STRV.R2$HauteDef.motif p=$xiP/gris.01 v $xiirv/STRV.R2$HauteDef$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.R2$HauteDef$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_STRV_R2_HauteDef: # # # # $Z Shu # # # # $Z setenv xTV $xTG # # # # $Z source $xrd/graph.01$vv$Y # # # # $Z set BMoTiF=3 # # $Z set MoTiF="=AJ.2=HI." # # # # $Z G_Dessin $MoTiF $BMoTiF $xTV/IMPOSSIBLE "LISTE_RAYON=0.02" # # # # $Z $xci/message$X \ # # $Z A=$NOIR \ # # $Z message="$MoTiF" \ # # $Z niveau_fond=$NOIR \ # # $Z niveau_message=$BLANC \ # # $Z bibliotheque=$BMoTiF \ # # $Z centrer=VRAI \ # # $Z anti_aliasing=VRAI \ # # $Z taille=43 \ # # $Z R=$xiirv/STRV.R2$HauteDef.motif \ # # $Z $formatI # # # # $Z $xci/format.01$X \ # # $Z A=$xTV/IMPOSSIBLE$ROUGE \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xTV/IMPOSSIBLE \ # # $Z $formatR_Phu # # # # $Z Phu # # # # $Z $xci/acces$X \ # # $Z A=$xTV/IMPOSSIBLE \ # # $Z R=$xiirv/STRV.R2$HauteDef.$CHAMP \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRV.R2$HauteDef.$CHAMP \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z recursivite=4 \ # # $Z graine=1947 \ # # $Z mX=0.5 mY=0.5 \ # # $Z OX=0 EX=1 \ # # $Z OY=0 EY=1 \ # # $Z valider=FAUX \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z origine=-0.075 extremite=+0.075 \ # # $Z R=$xTV/FRACTAL$COORD_X \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z recursivite=4 \ # # $Z graine=1789 \ # # $Z mX=0.5 mY=0.5 \ # # $Z OX=0 EX=1 \ # # $Z OY=0 EY=1 \ # # $Z valider=FAUX \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z origine=-0.075 extremite=+0.075 \ # # $Z R=$xTV/FRACTAL$COORD_Y \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z A=1 B=0 C=0 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEGRADE$COORD_X \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z A=0 B=1 C=0 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEGRADE$COORD_Y \ # # $Z $formatI # # # # $Z $xci/somme_02$X \ # # $Z A1=$xTV/DEGRADE$COORD_X \ # # $Z A2=$xTV/FRACTAL$COORD_X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEGRADE_FRACTAL$COORD_X \ # # $Z $formatI # # # # $Z $xci/somme_02$X \ # # $Z A1=$xTV/DEGRADE$COORD_Y \ # # $Z A2=$xTV/FRACTAL$COORD_Y \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEGRADE_FRACTAL$COORD_Y \ # # $Z $formatI # # # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEGRADE_FRACTAL$COORD_X \ # # $Z A2=$xTV/DEGRADE$COORD_X \ # # $Z P=$xTV/DEGRADE$COORD_X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/interpole.02$X \ # # $Z A1=$xTV/DEGRADE_FRACTAL$COORD_Y \ # # $Z A2=$xTV/DEGRADE$COORD_Y \ # # $Z P=$xTV/DEGRADE$COORD_Y \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=8 mxy=0 mxz=0 \ # # $Z myx=0 myy=8 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.R2$HauteDef%s \ # # $Z $formatI" # # # # $Z $xci/somme_02$X \ # # $Z A1=$xTV/DEGRADE$COORD_X \ # # $Z A2=$xTV/DEGRADE$COORD_Y \ # # $Z R=$xTV/DEGRADE \ # # $Z standard=FAUX \ # # $Z $formatI # # # # $Z $xci/somme_02$X \ # # $Z A1=$xTV/FRACTAL$COORD_X \ # # $Z A2=$xTV/FRACTAL$COORD_Y \ # # $Z R=$xTV/FRACTAL \ # # $Z standard=FAUX \ # # $Z $formatI # # # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/DEGRADE \ # # $Z A2=$xTV/FRACTAL \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/trou_noir.H4 \ # # $Z R=$xTV/TEXTURE \ # # $Z $formatI # # # # $Z execRVB $xci/multi_02.01$X \ # # $Z A1=$xTV/TEXTURE%s \ # # $Z A2=$xiirv/STRV.R2$HauteDef%s \ # # $Z message_extrema=FAUX \ # # $Z R=$xiirv/STRV.R2$HauteDef%s \ # # $Z $formatI # # # # L'argument "message_extrema=FAUX" vient du fait que la palette '$xiP/trou_noir.H4' ne # # contient pas de '$BLEUE'... # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.R2$HauteDef$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.R2$HauteDef$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_R2_HauteDef: # # # # # # Pour 'v $xiMt/Exposition_EcolePolytechnique_FeteDeLaScience_201910.01$vv.$m4.$I"" STRV.R2' # # cette image a ete recalculee aux formats {Shu,Phu}... # # # # On notera la structure '"" STRV' introduite le 20220504184450 et ce pour contrer l'action # # de '$xiMt/x_____.substitution.91$vv$I.$m4.$I' lorsqu'il gere les fichiers '$I'... # v $xiirv/STRV.S1 v $xiirv/STRV.S1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.S1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_S1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X0Y1=0 X1Y0=1 X0Y3=8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X0Y1=1 X1Y0=0 X3Y0=2 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.K1%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=32 mxy=0 mxz=0 \ # # $Z myx=0 myy=32 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.S1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.S1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.S1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_S1: # # # v $xiirv/STRV.T3 v $xiirv/STRV.T3$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.T3$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_T3: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.M7%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=4 mxy=0 mxz=0 \ # # $Z myx=0 myy=4 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.T3%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.T3$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.T3$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_T3: # # # # # # Ceci est une evolution de 'v $xiirv/STRU.d3' ou 'v $xiirv/STRU.bas.M7' remplace # # 'v $xiirv/STRU.bas.67'... # v $xiirv/STRV.U1 v $xiirv/STRV.U1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.U1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_U1: # # # # $Z Pqu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z setenv SETENV $EXIST # # # # $Z setenv P__rseIl VRAI # # $Z setenv P__mrseIl 0 # # # # $Z setenv P__rseIlF VRAI # # $Z setenv P__mrseIlF 0 # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=8 mt=+1 \ # # $Z Frenormaliser=VRAI \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/spiArchimede$X \ # # $Z standard=FAUX \ # # $Z mr=8 mt=-1 \ # # $Z Frenormaliser=VRAI \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.M8%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformii.01$X \ # # $Z COORDONNEES_____compatibilite_20090929=VRAI \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z iterer_indirection=VRAI \ # # $Z nombre_iterations_indirection=1 \ # # $Z IX=$xTV/DEFORMATION$COORD_X \ # # $Z IY=$xTV/DEFORMATION$COORD_Y \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=25 \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.U1%s \ # # $Z $formatR_Pal" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.U1$COORD_X \ # # $Z $formatR_Pal # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/format.01$X \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.U1$COORD_Y \ # # $Z $formatR_Pal # # # # :Fin_listG_STRV_U1: # # # # # # Ceci est une evolution de 'v $xiirv/STRV.C1' ou 'v $xiirv/STRU.bas.M8' remplace # # 'v $xiirv/STRU.bas.68'... # v $xiirv/STRV.V1 v $xiirv/STRV.V1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.V1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_V1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z c=4 \ # # $Z standard=FAUX \ # # $Z Frenormaliser=VRAI \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/GenDeform.01$X \ # # $Z C1=1 \ # # $Z C2=$xTV/GAUSS \ # # $Z seuil_contour_2=0.35 \ # # $Z dX=$xTV/DEFORMATION$COORD_X \ # # $Z dY=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z $xci/neutre$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/neutre$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiit/JFC.F1.F2%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z ignorer_diX_diY=VRAI \ # # $Z ignorer_diX=0 \ # # $Z ignorer_diY=0 \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=1 mxy=0 mxz=0 \ # # $Z myx=0 myy=1 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z periodiser_X2D=FAUX \ # # $Z periodiser_Y2D=FAUX \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.V1%s \ # # $Z $formatI" # # # # $Z set PoInTs=25 # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/STRV.V1 \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z eroder=VRAI \ # # $Z circulaire=VRAI \ # # $Z circulaire_optimale=VRAI \ # # $Z points=$PoInTs \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z circulaire=VRAI \ # # $Z circulaire_optimale=VRAI \ # # $Z points=$PoInTs \ # # $Z R=$xTV/MASQUE \ # # $Z $formatI # # # # $Z execRVB $xci/multi_02.01$X \ # # $Z A1=$xTV/MASQUE \ # # $Z A2=$xiirv/STRV.V1%s \ # # $Z R=$xiirv/STRV.V1%s \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.V1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.V1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_V1: # # # v $xiirv/STRV.W1 v $xiirv/STRV.bas.W1 v $xiirv/STRV.W1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.W1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_W1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z OX=0 EX=1 mX=0.25 \ # # $Z OY=0 EY=1 mY=0.25 \ # # $Z iterations=4 \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/dentscie.08 \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z ct=4 \ # # $Z matrice=VRAI aXX=0.75 aYY=1 \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.47 \ # # $Z substitution=ROUGE \ # # $Z R=$xTV/PONDERATEUR \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xTV/FRACTAL%s \ # # $Z A2=$xiirv/STRU.bas.96%s \ # # $Z P=$xTV/PONDERATEUR \ # # $Z R=$xiirv/STRV.bas.W1%s \ # # $Z $formatI # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRV.bas.W1%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=1 mxy=0 mxz=0 \ # # $Z myx=0 myy=1 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.W1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.W1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.W1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_W1: # # # # # # L'image 'v $xiirv/STRV.X1' est calculee selon le meme principe que 'v $xiirv/STRV.W1', # # mais en format 'Pqu' et ce pour voir la difference... # v $xiirv/STRV.W1$m # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRV_W1_m: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/STRV.W1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=1000 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z avion=VRAI \ # # $Z Sy=20 \ # # $Z T=$xiirv/STRV.W1%s \ # # $Z R=$xiirv/STRV.W1$m%s \ # # $Z $formatI # # # # :Fin_listG_STRV_W1_m: # # # v $xiirv/STRV.X1 v $xiirv/STRV.bas.X1 v $xiirv/STRV.X1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.X1$COORD_Y p=$xiP/cercle.35 v $xiirv/STRV.X1$m # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRV_X1: # # # # $Z Pqu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z OX=0 EX=1 mX=0.25 \ # # $Z OY=0 EY=1 mY=0.25 \ # # $Z iterations=4 \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/dentscie.08 \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z ct=4 \ # # $Z matrice=VRAI aXX=0.75 aYY=1 \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.47 \ # # $Z substitution=ROUGE \ # # $Z R=$xTV/PONDERATEUR \ # # $Z $formatI # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$xiirv/STRU.bas.96%s \ # # $Z $format_Pal \ # # $Z mode=2 \ # # $Z R=$xTV/STRU.bas.96%s \ # # $Z $formatR_Pqu # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xTV/FRACTAL%s \ # # $Z A2=$xTV/STRU.bas.96%s \ # # $Z P=$xTV/PONDERATEUR \ # # $Z R=$xiirv/STRV.bas.X1%s \ # # $Z $formatI # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRV.bas.X1%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=1 mxy=0 mxz=0 \ # # $Z myx=0 myy=1 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.X1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.X1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.X1$COORD_Y \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/STRV.X1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=1000 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z avion=VRAI \ # # $Z Sy=20 \ # # $Z T=$xiirv/STRV.X1%s \ # # $Z R=$xiirv/STRV.X1$m%s \ # # $Z $formatI # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$xiirv/STRV.bas.X1%s \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.bas.X1%s \ # # $Z $formatR_Pal # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$xiirv/STRV.X1%s \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.X1%s \ # # $Z $formatR_Pal # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$xiirv/STRV.X1$m%s \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.X1$m%s \ # # $Z $formatR_Pal # # # # $Z $xci/format.01$X \ # # $Z A=$xiirv/STRV.X1$COORD_X \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.X1$COORD_X \ # # $Z $formatR_Pal # # # # $Z $xci/format.01$X \ # # $Z A=$xiirv/STRV.X1$COORD_Y \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.X1$COORD_Y \ # # $Z $formatR_Pal # # # # :Fin_listG_STRV_X1: # # # # # # L'image 'v $xiirv/STRV.X1' est calculee selon le meme principe que 'v $xiirv/STRV.W1', # # mais en format 'Pqu' et ce pour voir la difference... # v $xiirv/STRV.Y3 v $xiirv/STRV.Y3$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.Y3$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRV_Y3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.P4%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=1 mxy=0 mxz=0 \ # # $Z myx=0 myy=1 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.Y3%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.Y3$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.Y3$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_Y3: # # # v $xiirv/STRV.Y3$m v $xiirv/STRV.Y3$m.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRV_Y3_m: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/STRV.Y3 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=100 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z avion=VRAI \ # # $Z Sy=20 \ # # $Z T=$xiirv/STRV.Y3%s \ # # $Z R=$xiirv/STRV.Y3$m%s \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z c=6 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xiirv/STRV.Y3%s \ # # $Z A2=$xiirv/STRV.Y3$m%s \ # # $Z P=$xTV/GAUSS \ # # $Z R=$xiirv/STRV.Y3$m.1%s \ # # $Z $formatI # # # # :Fin_listG_STRV_Y3_m: # # # v $xiirv/STRV.Z1 v $xiirv/STRV.Z1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.Z1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRV_Z1: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X4Y0=+1 X0Y4=+1 X2Y2=+2 \ # # $Z X2Y0=+2 X0Y2=-2 \ # # $Z X0Y1=0 X1Y0=0 \ # # $Z Ex=2 Ey=2 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z plat=FAUX \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=100 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X4Y0=+1 X0Y4=+1 X2Y2=+2 \ # # $Z X2Y0=-2 X0Y2=+2 \ # # $Z X0Y1=0 X1Y0=0 \ # # $Z Ex=2 Ey=2 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z renormaliser=VRAI \ # # $Z $formatI | \ # # $Z $xci/egaliseH.01$X \ # # $Z standard=FAUX \ # # $Z plat=FAUX \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=100 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.P3%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=2 mxy=0 mxz=0 \ # # $Z myx=0 myy=2 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=4 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRV.Z1%s \ # # $Z $formatI" # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$xiirv/STRV.Z1%s \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.Z1%s \ # # $Z $formatR_Sdu # # # # $Z Sdu # # # # $Z execRVB $xci/transpose$X \ # # $Z A=$xiirv/STRV.Z1%s \ # # $Z R=$xiirv/STRV.Z1%s \ # # $Z $formatI # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$xiirv/STRV.Z1%s \ # # $Z $formatI \ # # $Z mode=2 \ # # $Z R=$xiirv/STRV.Z1%s \ # # $Z $formatR_Pal # # # # $Z Pal # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.Z1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.Z1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_Z1: # # # v $xiirv/STRV.b1 v $xiirv/STRV.b1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.b1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRV_b1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z graine=1957 \ # # $Z iterations=4 \ # # $Z renormaliser=VRAI origine=0 extremite=1 \ # # $Z R=$xTV/FRACTAL$COORD_X \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=1 B=0 C=0 \ # # $Z renormaliser=VRAI origine=0 extremite=1 \ # # $Z R=$xTV/LINEAIRE$COORD_X \ # # $Z $formatI # # # # $Z $xci/interpole.01$X \ # # $Z alpha=0.6 \ # # $Z A1=$xTV/LINEAIRE$COORD_X \ # # $Z beta=0.4 \ # # $Z A2=$xTV/FRACTAL$COORD_X \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z graine=1789 \ # # $Z iterations=4 \ # # $Z renormaliser=VRAI origine=0 extremite=1 \ # # $Z R=$xTV/FRACTAL$COORD_Y \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=0 \ # # $Z renormaliser=VRAI origine=0 extremite=1 \ # # $Z R=$xTV/LINEAIRE$COORD_Y \ # # $Z $formatI # # # # $Z $xci/interpole.01$X \ # # $Z alpha=0.6 \ # # $Z A1=$xTV/LINEAIRE$COORD_Y \ # # $Z beta=0.4 \ # # $Z A2=$xTV/FRACTAL$COORD_Y \ # # $Z standard=FAUX \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.32%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=8 mxy=0 mxz=0 \ # # $Z myx=0 myy=8 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRV.b1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.b1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.b1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_b1: # # # v $xiirv/STRV.c1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRV_c1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X0Y1=0 X1Y0=1 X0Y3=8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/PolyCartes_2D$X \ # # $Z standard=FAUX \ # # $Z X0Y1=1 X1Y0=0 X3Y0=8 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z A=1 B=1 C=0 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z p=$xiP/dentscie.01 \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z p=$xiP/gris.06 \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/trou_noir.84 \ # # $Z R=$xTV/CHAMP \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xTV/CHAMP% \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=8 mxy=0 mxz=0 \ # # $Z myx=0 myy=8 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRV.c1%s \ # # $Z $formatI" # # # # :Fin_listG_STRV_c1: # # # # # # "La diagonale du Flou"... # v $xiirv/STRV.c2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRV_c2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=1 B=0 C=0 \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/DEFORMATION.1$COORD_X \ # # $Z $formatI # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z profondeur=8 \ # # $Z graine=1789 \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/DEFORMATION.2$COORD_X \ # # $Z $formatI # # $Z $xci/interpole.01$X \ # # $Z standard=FAUX \ # # $Z a=0.8 \ # # $Z A1=$xTV/DEFORMATION.1$COORD_X \ # # $Z b=0.2 \ # # $Z A2=$xTV/DEFORMATION.2$COORD_X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=0 \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/DEFORMATION.1$COORD_Y \ # # $Z $formatI # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z profondeur=8 \ # # $Z graine=1947 \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/DEFORMATION.2$COORD_Y \ # # $Z $formatI # # $Z $xci/interpole.01$X \ # # $Z standard=FAUX \ # # $Z a=0.8 \ # # $Z A1=$xTV/DEFORMATION.1$COORD_Y \ # # $Z b=0.2 \ # # $Z A2=$xTV/DEFORMATION.2$COORD_Y \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z A=1 B=1 C=0 \ # # $Z standard=FAUX \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX zero=FAUX \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z p=$xiP/dentscie.01 \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z p=$xiP/gris.01 \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/random.B3$Fi \ # # $Z R=$xTV/CHAMP \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xTV/CHAMP% \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=4 mxy=0 mxz=0 \ # # $Z myx=0 myy=4 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRV.c2%s \ # # $Z $formatI" # # # # :Fin_listG_STRV_c2: # # # # # # "La diagonale du Flou"... # v $xiirv/STRV.d1 v $xiirv/STRV.d1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.d1$COORD_Y p=$xiP/cercle.35 v $xiirv/STRV.d1$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRV_d1: # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z Pal # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRV.P1.$CHAMP.1%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z $xrs/project2D.01$Z sphere.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=0 mxz=0 \ # # $Z myx=0 myy=+1.0 myz=0 \ # # $Z mzx=0 mzy=0 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.d1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.d1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.d1$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.d1$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRV_d1: # # # # # # Cette image est basee sur les pseudo-projections de la sphere... # v $xiirv/STRV.d2 v $xiirv/STRV.d2$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.d2$COORD_Y p=$xiP/cercle.35 v $xiirv/STRV.d2$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRV_d2: # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z Pal # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRV.P1.$CHAMP.1%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z $xrs/project2D.01$Z bKlein.61 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=0 mxz=0 \ # # $Z myx=0 myy=+1.0 myz=0 \ # # $Z mzx=0 mzy=0 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.d2%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.d2$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.d2$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.d2$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRV_d2: # # # # # # Cette image est basee sur les pseudo-projections de la triple bouteille de # # Bonan-Jeener-Klein... # v $xiirv/STRV.d3 v $xiirv/STRV.d3$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.d3$COORD_Y p=$xiP/cercle.35 v $xiirv/STRV.d3$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRV_d3: # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z Pal # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRV.P1.$CHAMP.1%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z $xrs/project2D.01$Z sBoy.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=0 mxz=0 \ # # $Z myx=0 myy=+1.0 myz=0 \ # # $Z mzx=0 mzy=0 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.d3%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.d3$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.d3$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.d3$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRV_d3: # # # # # # Cette image est basee sur les pseudo-projections de la surface de Boy. # v $xiirv/STRV.e1 v $xiirv/STRV.e1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.e1$COORD_Y p=$xiP/cercle.35 v $xiirv/STRV.e1$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRV_e1: # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z Std # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiit/JFC.13%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z $xrs/project2D.01$Z sphere.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=+0.5 mxz=0 \ # # $Z myx=+0.5 myy=+1.0 myz=0 \ # # $Z mzx=0 mzy=0 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.e1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.e1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.e1$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.e1$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRV_e1: # # # # # # Cette image est basee sur les pseudo-projections de la sphere... # v $xiirv/STRV.e2 v $xiirv/STRV.e2$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.e2$COORD_Y p=$xiP/cercle.35 v $xiirv/STRV.e2$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRV_e2: # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z Std # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiit/JFC.13%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z $xrs/project2D.01$Z bKlein.61 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+0.5 mxy=0 mxz=0 \ # # $Z myx=0 myy=+0.5 myz=0 \ # # $Z mzx=0 mzy=0 mzz=+0.1 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.e2%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.e2$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.e2$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.e2$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRV_e2: # # # # # # Cette image est basee sur les pseudo-projections de la triple bouteille de # # Bonan-Jeener-Klein... # v $xiirv/STRV.e3 v $xiirv/STRV.e3$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.e3$COORD_Y p=$xiP/cercle.35 v $xiirv/STRV.e3$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRV_e3: # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z Std # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiit/JFC.13%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z $xrs/project2D.01$Z sBoy.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+0.5 mxy=0 mxz=0 \ # # $Z myx=0 myy=+0.5 myz=0 \ # # $Z mzx=0 mzy=0 mzz=+0.9 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.e3%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.e3$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.e3$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.e3$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRV_e3: # # # # # # Cette image est basee sur les pseudo-projections de la surface de Boy. # v $xiirv/STRV.e3$m # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRV_e3_m: # # # # $Z Std # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/STRV.e3 # # $Z set _____ImageR=$_____ImageA$m # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z R=$xTV/STRV.e3 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/STRV.e3 \ # # $Z p=$xiP/bleu_roug.11 \ # # $Z R=$xTV/TEXTURE \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/STRV.e3 \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=20 \ # # $Z normaliser_avant_apres=VRAI \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_STRV_e3_m: # # # v $xiirv/STRV.f3 v $xiirv/STRV.f3$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.f3$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_f3: # # # # $Z ext Sdu 7 # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirs/BKLN.E5.3 # # $Z set _____ImageR=$xiirv/STRV.f3 # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ct=4 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ct=4 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z $xci/tapisserie$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/trou_noir.A4 \ # # $Z R=$xTV/CHAMP \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=1 mxy=0 mxz=0 \ # # $Z myx=0 myy=1 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_f3: # # # v $xiirv/STRV.g3 v $xiirv/STRV.g3$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.g3$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_g3: # # # # $Z ext Sdu 7 # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirs/EPIC.46.3 # # $Z set _____ImageR=$xiirv/STRV.g3 # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ct=4 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ct=4 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z $xci/tapisserie$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/trou_noir.A4 \ # # $Z R=$xTV/CHAMP \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=1 mxy=0 mxz=0 \ # # $Z myx=0 myy=1 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_g3: # # # v $xiirv/STRV.h3 v $xiirv/STRV.h3$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.h3$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_h3: # # # # $Z ext Sdu 7 # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirs/BKLN.47.3 # # $Z set _____ImageR=$xiirv/STRV.h3 # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z $xci/tapisserie$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/trou_noir.A4 \ # # $Z R=$xTV/CHAMP \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=2 mxy=5 mxz=0 \ # # $Z myx=5 myy=2 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_h3: # # # v $xiirv/STRV.i3 v $xiirv/STRV.i3$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.i3$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRV_i3: # # # # $Z ext Sdu 7 # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirs/FLEU.22.3 # # $Z set _____ImageR=$xiirv/STRV.i3 # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z $xci/tapisserie$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/trou_noir.A4 \ # # $Z R=$xTV/CHAMP \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=1 mxy=0 mxz=0 \ # # $Z myx=0 myy=1 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_i3: # # # v $xiirv/STRV.j1 v $xiirv/STRV.j1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.j1$COORD_Y p=$xiP/cercle.35 v $xiirv/STRV.j1$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_STRV_j1: # # # # $Z setenv xTV $xTG # # # # $Z Sdu # # # # $Z set _____ImageA=$xiia/VASA.11.64 # # $Z set _____ImageR=$xiirv/STRV.j1 # # # # $Z execRVB $xci/acces$X \ # # $Z A=$_____ImageA%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z $xrs/project2D.01$Z sphere.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=0 mxz=0 \ # # $Z myx=0 myy=+1.0 myz=0 \ # # $Z mzx=0 mzy=0 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRV_j1: # # # # # # Cette image est basee sur les pseudo-projections de la sphere... # v $xiirv/STRV.j2 v $xiirv/STRV.j2$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.j2$COORD_Y p=$xiP/cercle.35 v $xiirv/STRV.j2$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_STRV_j2: # # # # $Z setenv xTV $xTG # # # # $Z Sdu # # # # $Z set _____ImageA=$xiia/VASA.11.64 # # $Z set _____ImageR=$xiirv/STRV.j2 # # # # $Z execRVB $xci/acces$X \ # # $Z A=$_____ImageA%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z $xrs/project2D.01$Z bKlein.61 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+2.0 mxy=0 mxz=0 \ # # $Z myx=0 myy=+2.0 myz=0 \ # # $Z mzx=0 mzy=0 mzz=+2.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRV_j2: # # # # # # Cette image est basee sur les pseudo-projections de la triple bouteille de # # Bonan-Jeener-Klein... # v $xiirv/STRV.j3 v $xiirv/STRV.j3$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.j3$COORD_Y p=$xiP/cercle.35 v $xiirv/STRV.j3$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_STRV_j3: # # # # $Z setenv xTV $xTG # # # # $Z Sdu # # # # $Z set _____ImageA=$xiia/VASA.11.64 # # $Z set _____ImageR=$xiirv/STRV.j3 # # # # $Z execRVB $xci/acces$X \ # # $Z A=$_____ImageA%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z $xrs/project2D.01$Z sBoy.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+2.0 mxy=0 mxz=0 \ # # $Z myx=0 myy=+2.0 myz=0 \ # # $Z mzx=0 mzy=0 mzz=+2.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRV_j3: # # # # # # Cette image est basee sur les pseudo-projections de la surface de Boy. # v $xiirv/STRV.k3 v $xiirv/STRV.k3$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.k3$COORD_Y p=$xiP/cercle.35 v $xiirv/STRV.k3$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_STRV_k3: # # # # $Z setenv xTV $xTG # # # # $Z Sdu # # # # $Z set _____ImageA=$xiia/VASA.22.256 # # $Z set _____ImageR=$xiirv/STRV.k3 # # # # $Z execRVB $xci/acces$X \ # # $Z A=$_____ImageA%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z $xrs/project2D.01$Z sBoy.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.0 mxy=0 mxz=0 \ # # $Z myx=0 myy=+1.0 myz=0 \ # # $Z mzx=0 mzy=0 mzz=+1.0 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRV_k3: # # # # # # Cette image est basee sur les pseudo-projections de la surface de Boy. # v $xiirv/STRV.l3 v $xiirv/STRV.l3$m v $xiirv/STRV.l3$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.l3$COORD_Y p=$xiP/cercle.35 v $xiirv/STRV.l3$COORD_Z p=$xiP/cercle.35 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_STRV_l3: # # # # $Z setenv xTV $xTG # # # # $Z Sdu # # # # $Z set _____ImageA=$xiia/VASA.23.256 # # $Z set _____ImageR=$xiirv/STRV.l3 # # # # $Z execRVB $xci/acces$X \ # # $Z A=$_____ImageA%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z $xrs/project2D.01$Z sBoy.11 $xTV/SURFACE # # # # $Z execXYZ $xci/normalise.01$X \ # # $Z A=$xTV/SURFACE%s \ # # $Z R=$xTV/DEFORMATION%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z DZ=$xTV/DEFORMATION$COORD_Z \ # # $Z tridimensionnelle=VRAI \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=+1.5 mxy=0 mxz=0 \ # # $Z myx=0 myy=+1.5 myz=0 \ # # $Z mzx=0 mzy=0 mzz=+1.5 \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z normaliser_avant_apres=VRAI \ # # $Z passes=1000 \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$_____ImageR%s \ # # $Z avion=VRAI \ # # $Z Sy=30 \ # # $Z R=$_____ImageR$m%s \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_Y \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Z \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_Z \ # # $Z $formatI # # # # :Fin_listG_STRV_l3: # # # # # # Cette image est basee sur les pseudo-projections de la surface de Boy. # v $xiirv/STRV.m1 v $xiirv/STRV.m1$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.m1$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRV_m1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=5 \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z standard=FAUX \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=1 B=0 C=-1.0 \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z puissance_image=VRAI exposant=2 \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=-1.0 \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z puissance_image=VRAI exposant=2 \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.61.champ \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=8 mxy=0 mxz=0 \ # # $Z myx=0 myy=8 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$xiirv/STRV.m1%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.m1$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.m1$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_m1: # # # v $xiirv/STRV.m2 v $xiirv/STRV.m2$COORD_X p=$xiP/cercle.35 v $xiirv/STRV.m2$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRV_m2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z standard=FAUX \ # # $Z c=5 \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z standard=FAUX \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=1 B=0 C=-1.0 \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z puissance_image=VRAI exposant=2 \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/lineaire$X \ # # $Z standard=FAUX \ # # $Z A=0 B=1 C=-1.0 \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z puissance_image=VRAI exposant=2 \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z standard=FAUX \ # # $Z A1=$xTV/GAUSS \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.32%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=4 mxy=0 mxz=0 \ # # $Z myx=0 myy=4 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/pt_isole.01$X \ # # $Z points=9 \ # # $Z seuil=0.05 \ # # $Z R=$xiirv/STRV.m2%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.m2$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRV.m2$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRV_m2: # # # v $xiirv/STRW.11 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRW_11: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/STRU.81 # # $Z set _____Xbg=460 # # $Z set _____Ybg=260 # # $Z set _____Xhd=680 # # $Z set _____Yhd=480 # # $Z set _____ImageR=$xTV/STRU.81 # # $m4 _____include(_____xiirf/.BORD.11.1._____U) # # # # $Z set _____ImageA=$xiirv/STRU.c1 # # $Z set _____Xbg=160 # # $Z set _____Ybg=60 # # $Z set _____Xhd=380 # # $Z set _____Yhd=280 # # $Z set _____ImageR=$xTV/STRU.c1 # # $m4 _____include(_____xiirf/.BORD.11.1._____U) # # # # $Z $xci/fract_2D.01$X \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.47 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xTV/STRU.81%s \ # # $Z A2=$xTV/STRU.c1%s \ # # $Z P=$xTV/FRACTAL \ # # $Z R=$xTV/STRUCTURE.1%s \ # # $Z $formatI # # # # $Z execRVB $xci/complement$X \ # # $Z A=$xTV/STRUCTURE.1%s \ # # $Z R=$xTV/STRUCTURE.2%s \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z c=3 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xTV/STRUCTURE.1%s \ # # $Z A2=$xTV/STRUCTURE.2%s \ # # $Z P=$xTV/GAUSS \ # # $Z R=$xiirv/STRW.11%s \ # # $Z $formatI # # # # :Fin_listG_STRW_11: # # # v $xiirv/STRW.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRW_21: # # # # $Z Pdu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/STRU.d3.6.2 \ # # $Z R=$xTV/STRW.21$ROUGE \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/STRV.C1.6.2 \ # # $Z R=$xTV/STRW.21$VERTE \ # # $Z $formatI # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/STRV.Q1.6.2 \ # # $Z R=$xTV/STRW.21$BLEUE \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRW.21 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=1000 \ # # $Z R=$xTV/STRW.25 \ # # $Z $formatI # # # # $Z $xci/RVB_en_HLS$X \ # # $Z A=$xTV/STRW.21 \ # # $Z R=$xTV/STRW.22 \ # # $Z $formatI # # $Z execHLS \ # # $Z $xci/egaliseH.01$X \ # # $Z A=$xTV/STRW.22%s \ # # $Z plat=VRAI \ # # $Z shuffling=VRAI \ # # $Z R=$xTV/STRW.23%s \ # # $Z $formatI # # $Z $xci/HLS_en_RVB$X \ # # $Z A=$xTV/STRW.23 \ # # $Z editer_messages_erreur=FAUX \ # # $Z R=$xTV/STRW.24 \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/STRW.25 \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z avion=VRAI \ # # $Z sy=20 \ # # $Z T=$xTV/STRW.24%s \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xiirv/STRW.21%s \ # # $Z $formatI" # # # # :Fin_listG_STRW_21: # # # v $xiirv/STRW.33 v $xiirv/STRW.33$COORD_X p=$xiP/cercle.35 v $xiirv/STRW.33$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRW_33: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$xiirv/STRU.bas.N1%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=1 mxy=0 mxz=0 \ # # $Z myx=0 myy=1 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z R=$xiirv/STRW.33%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRW.33$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$xiirv/STRW.33$COORD_Y \ # # $Z $formatI # # # # :Fin_listG_STRW_33: # # # v $xiirv/STRW.43 v $xiirv/STRW.43.bas v $xiirv/STRW.43$COORD_X p=$xiP/cercle.35 v $xiirv/STRW.43$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRW_43: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRW.43 # # $m4 _____include(_____xiirv/.STRW.43.1._____U) # # $m4 _____include(_____xiirv/.STRW.43.2._____U) # # $m4 _____include(_____xiirv/.STRW.43.3._____U) # # # # :Fin_listG_STRW_43: # # # v $xiirv/STRW.43$m v $xiirv/STRW.43.1$M v $xiirv/STRW.43.2$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRW_43_M: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Ty=0.54 # # $Z set _____imageR=$xiirv/STRW.43 # # $m4 _____include(_____xiirf/.FRB3.Z1.21.M.1._____U) # # # # :Fin_listG_STRW_43_M: # # # v $xiirv/STRW.44 v $xiirv/STRW.44.bas v $xiirv/STRW.44$COORD_X p=$xiP/cercle.35 v $xiirv/STRW.44$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRW_44: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____MailleX=0.4 # # $Z set _____MailleY=0.4 # # $Z set _____Palette=$xiP/ondes.11 # # $Z set _____ImageR=$xiirv/STRW.44 # # $m4 _____include(_____xiirv/.STRW.43.1._____U) # # $m4 _____include(_____xiirv/.STRW.43.2._____U) # # $m4 _____include(_____xiirv/.STRW.43.3._____U) # # # # :Fin_listG_STRW_44: # # # v $xiirv/STRW.44$m v $xiirv/STRW.44.1$M v $xiirv/STRW.44.2$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRW_44_M: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Ty=0.52 # # $Z set _____imageR=$xiirv/STRW.44 # # $m4 _____include(_____xiirf/.FRB3.Z1.21.M.1._____U) # # # # :Fin_listG_STRW_44_M: # # # v $xiirv/STRW.53 v $xiirv/STRW.53.bas v $xiirv/STRW.53$COORD_X p=$xiP/cercle.35 v $xiirv/STRW.53$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRW_53: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Combinaison=$xci/cache$X # # $Z set _____PCombinaison="anti_aliaser=VRAI" # # $Z set _____ImageR=$xiirv/STRW.53 # # $m4 _____include(_____xiirv/.STRW.43.1._____U) # # $m4 _____include(_____xiirv/.STRW.43.2._____U) # # $m4 _____include(_____xiirv/.STRW.43.3._____U) # # # # :Fin_listG_STRW_53: # # # v $xiirv/STRW.53$m v $xiirv/STRW.53.1$M v $xiirv/STRW.53.2$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRW_53_M: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Ty=0.54 # # $Z set _____imageR=$xiirv/STRW.53 # # $m4 _____include(_____xiirf/.FRB3.Z1.21.M.1._____U) # # # # :Fin_listG_STRW_53_M: # # # v $xiirv/STRW.54 v $xiirv/STRW.54.bas v $xiirv/STRW.54$COORD_X p=$xiP/cercle.35 v $xiirv/STRW.54$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRW_54: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____MailleX=0.4 # # $Z set _____MailleY=0.4 # # $Z set _____Combinaison=$xci/cache$X # # $Z set _____PCombinaison="anti_aliaser=VRAI" # # $Z set _____Palette=$xiP/ondes.11 # # $Z set _____ImageR=$xiirv/STRW.54 # # $m4 _____include(_____xiirv/.STRW.43.1._____U) # # $m4 _____include(_____xiirv/.STRW.43.2._____U) # # $m4 _____include(_____xiirv/.STRW.43.3._____U) # # # # :Fin_listG_STRW_54: # # # v $xiirv/STRW.54$m v $xiirv/STRW.54.1$M v $xiirv/STRW.54.2$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRW_54_M: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Ty=0.52 # # $Z set _____imageR=$xiirv/STRW.54 # # $m4 _____include(_____xiirf/.FRB3.Z1.21.M.1._____U) # # # # :Fin_listG_STRW_54_M: # # # v $xiirv/STRW.63 v $xiirv/STRW.63.bas v $xiirv/STRW.63$COORD_X p=$xiP/cercle.35 v $xiirv/STRW.63$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRW_63: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRW.63 # # $m4 _____include(_____xiirv/.STRW.43.1._____U) # # $m4 _____include(_____xiirv/.STRW.43.2._____U) # # $m4 _____include(_____xiirv/.STRW.43.3._____U) # # # # :Fin_listG_STRW_63: # # # v $xiirv/STRW.63$m v $xiirv/STRW.63.1$M v $xiirv/STRW.63.2$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRW_63_M: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____CGauss=64 # # $Z set _____Ty=0.54 # # $Z set _____imageR=$xiirv/STRW.63 # # $m4 _____include(_____xiirf/.FRB3.Z1.21.M.1._____U) # # # # :Fin_listG_STRW_63_M: # # # v $xiirv/STRW.73 v $xiirv/STRW.73.bas v $xiirv/STRW.73$COORD_X p=$xiP/cercle.35 v $xiirv/STRW.73$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRW_73: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRW.73 # # $m4 _____include(_____xiirv/.STRW.43.1._____U) # # $m4 _____include(_____xiirv/.STRW.73.2._____U) # # $m4 _____include(_____xiirv/.STRW.43.3._____U) # # # # :Fin_listG_STRW_73: # # # v $xiirv/STRW.73$m v $xiirv/STRW.73.1$M v $xiirv/STRW.73.2$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRW_73_M: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____CGauss=64 # # $Z set _____Ty=0.54 # # $Z set _____imageR=$xiirv/STRW.73 # # $m4 _____include(_____xiirf/.FRB3.Z1.21.M.1._____U) # # # # :Fin_listG_STRW_73_M: # # # v $xiirv/STRW.83 v $xiirv/STRW.83.bas v $xiirv/STRW.83$COORD_X p=$xiP/cercle.35 v $xiirv/STRW.83$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRW_83: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set Npart=48 # # $Z @ NpartS2 = $Npart / 2 # # $Z set _____Zoom=1.3 # # $Z set _____RayonI=0.020 # # $Z set _____RayonS=0.030 # # $Z set _____Cubique="VRAI LISTE_dX=2 LISTE_dY=2 LISTE_dZ=2" # # $m4 _____include(_____xiirv/.STRW.8.11._____U) # # $m4 _____include(_____xiirv/.PART.4.14._____U) # # $m4 _____include(_____xiirv/.STRW.8.15._____U) # # # # $Z set _____ImageR=$xiirv/STRW.83 # # $m4 _____include(_____xiirv/.STRW.8.13._____U) # # $m4 _____include(_____xiirv/.STRW.8.11._____U) # # # # $m4 _____include(_____xiirv/.STRW.43.1._____U) # # $m4 _____include(_____xiirv/.STRW.83.2._____U) # # $m4 _____include(_____xiirv/.STRW.43.3._____U) # # # # :Fin_listG_STRW_83: # # # v $xiirv/STRW.93 v $xiirv/STRW.93.3 v $xiirv/STRW.93$m v $xiirv/STRW.93.bas v $xiirv/STRW.93$COORD_X p=$xiP/cercle.35 v $xiirv/STRW.93$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRW_93: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____PetitRayon=0.12 # # $Z set _____ImageT=$xTV/TORES # # $m4 _____include(_____xiirs/.PROJ.s1.1._____U) # # # # $Z set PaRaMs="$K_VIDE" # # $Z set PaRaMs="$PaRaMs"" N_AU_CARRE=FAUX" # # $Z set PaRaMs="$PaRaMs"" eu=80 ev=80" # # $Z set PaRaMs="$PaRaMs"" interpoler=FAUX" # # $Z set PaRaMs="$PaRaMs"" dxFxuv=0 dyFyuv=0 dzFzuv=0" # # $Z set PaRaMs="$PaRaMs"" dxFx=1 dyFy=1 dzFz=1" # # $Z set PaRaMs="$PaRaMs"" projection_parallele=VRAI" # # $Z set PaRaMs="$PaRaMs"" ignorer_points_lointains=VRAI" # # $Z set PaRaMs="$PaRaMs"" distance_points_lointains=$InFiNi" # # # # $Z set _____ImageR=$xiirv/STRW.93 # # # # $Z $xrs/project2D.02$Z $_____ImageT \ # # $Z $_____ImageR.bas \ # # $Z "$PaRaMs" \ # # $Z $COORD_X $COORD_Y $COORD_Z \ # # $Z 1.50 \ # # $Z 0 0 0 \ # # $Z VRAI \ # # $Z "$K_VIDE" "$K_VIDE" \ # # $Z $NEXIST # # # # $m4 _____include(_____xiirv/.STRW.43.1._____U) # # $m4 _____include(_____xiirv/.STRW.83.2._____U) # # $m4 _____include(_____xiirv/.STRW.43.3._____U) # # # # $Z execRVB "$xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=3 \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$_____ImageR.3%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z R=$xTV/STRW.93$LUMIN \ # # # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/STRW.93$LUMIN \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=50 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/STRW.93 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/STRW.93$LUMIN \ # # $Z p=$xiP/trou_noir.12 \ # # $Z R=$xTV/STRW.93$LUMIN \ # # $Z $formatI | \ # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/STRW.93 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/STRW.93$LUMIN%s \ # # $Z avion=VRAI \ # # $Z Sy=16 \ # # $Z R=$_____ImageR$m%s \ # # $Z $formatI # # # # :Fin_listG_STRW_93: # # # # # # Cette image est inspiree de 'v $xiirs/PROJ.s1'. # v $xiirv/STRW.A3 v $xiirv/STRW.A3.2 v $xiirv/STRW.A3$m v $xiirv/STRW.A3.bas v $xiirv/STRW.A3$COORD_X p=$xiP/cercle.35 v $xiirv/STRW.A3$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRW_A3: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRW.A3 # # # # $Z set _____SurfaceA=tore.11 # # $Z set _____Iterations=1 # # $Z set Q_pi=`calcul 2*$dpi` # # $Z set PaS_uv=`calcul $Q_pi/40` # # $Z set _____Aduv=+1 # # $Z set _____Bduv=`calcul -5/2` # # $Z set _____Cduv=0 # # $Z set _____SurfaceParam1="PARAMETRE_R2=0.5" # # $Z set _____SurfaceParam2="Mu=$Q_pi Mv=$Q_pi pu=$PaS_uv pv=$PaS_uv" # # $Z set _____Zoom=1.2 # # $Z set _____RayonDroite=0.160 # # $Z set Save_ImageR=$_____ImageR # # $Z set _____ImageR=$_____ImageR.bas # # $m4 _____include(_____xiirv/.KNOT.31.1._____U) # # $Z set _____ImageR=$Save_ImageR # # # # $m4 _____include(_____xiirv/.STRW.43.1._____U) # # $m4 _____include(_____xiirv/.STRW.83.2._____U) # # $m4 _____include(_____xiirv/.STRW.43.3._____U) # # # # $Z execRVB "$xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=2 \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$_____ImageR.2%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z R=$xTV/STRW.A3$LUMIN \ # # # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/STRW.A3$LUMIN \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=200 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/STRW.A3 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/STRW.A3$LUMIN \ # # $Z p=$xiP/trou_noir.12 \ # # $Z R=$xTV/STRW.A3$LUMIN \ # # $Z $formatI | \ # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/STRW.A3 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/STRW.A3$LUMIN%s \ # # $Z avion=VRAI \ # # $Z Sy=16 \ # # $Z R=$_____ImageR$m%s \ # # $Z $formatI # # # # :Fin_listG_STRW_A3: # # # # # # Cette image est inspiree de 'v $xiirv/KNOT.31.5.1'. # v $xiirv/STRW.A4 v $xiirv/STRW.A4.2 v $xiirv/STRW.A4$m v $xiirv/STRW.A4.bas v $xiirv/STRW.A4$COORD_X p=$xiP/cercle.35 v $xiirv/STRW.A4$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRW_A4: # # # # $Z Squ # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRW.A4 # # # # $Z set _____SurfaceA=tore.11 # # $Z set _____Iterations=1 # # $Z set Q_pi=`calcul 2*$dpi` # # $Z set PaS_uv=`calcul $Q_pi/40` # # $Z set _____Aduv=+1 # # $Z set _____Bduv=`calcul -5/2` # # $Z set _____Cduv=0 # # $Z set _____SurfaceParam1="PARAMETRE_R2=0.5" # # $Z set _____SurfaceParam2="Mu=$Q_pi Mv=$Q_pi pu=$PaS_uv pv=$PaS_uv" # # $Z set _____Zoom=1.2 # # $Z set _____RayonDroite=0.160 # # $Z set Save_ImageR=$_____ImageR # # $Z set _____ImageR=$_____ImageR.bas # # $m4 _____include(_____xiirv/.KNOT.31.1._____U) # # $Z set _____ImageR=$Save_ImageR # # # # $Z set _____Ex=1.6 # # $Z set _____Ey=1.6 # # $m4 _____include(_____xiirv/.STRW.43.1._____U) # # $m4 _____include(_____xiirv/.STRW.83.2._____U) # # $Z set _____DIterations=1 # # $m4 _____include(_____xiirv/.STRW.43.3._____U) # # # # $Z execRVB "$xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=2 \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$_____ImageR.2%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z R=$xTV/STRW.A4$LUMIN \ # # # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/STRW.A4$LUMIN \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=200 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/STRW.A4 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/STRW.A4$LUMIN \ # # $Z p=$xiP/trou_noir.12 \ # # $Z R=$xTV/STRW.A4$LUMIN \ # # $Z $formatI | \ # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/STRW.A4 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/STRW.A4$LUMIN%s \ # # $Z avion=VRAI \ # # $Z Sy=16 \ # # $Z R=$_____ImageR$m%s \ # # $Z $formatI # # # # :Fin_listG_STRW_A4: # # # # # # Cette image est inspiree de 'v $xiirv/KNOT.31.5.1', mais en iterant une fois la # # deformation... # v $xiirv/STRW.B3 v $xiirv/STRW.B3$m v $xiirv/STRW.B3.bas v $xiirv/STRW.B3$COORD_X p=$xiP/cercle.35 v $xiirv/STRW.B3$COORD_Y p=$xiP/cercle.35 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_STRW_B3: # # # # $Z Sdu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRW.B3 # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ct=3 \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z $xrf/recursif.22$X \ # # $Z recursivite=3 \ # # $Z ZOOM=2 \ # # $Z ROTATION_OZ=$pis4 \ # # $Z chiffres=0 \ # # $Z R=$_____ImageR.bas \ # # $Z $formatI # # # # $Z execRVB $xci/complement$X \ # # $Z A=$_____ImageR.bas%s \ # # $Z R=$_____ImageR.bas%s \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$_____ImageR.bas%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=1 mxy=0 mxz=0 \ # # $Z myx=0 myy=1 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_X \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_X \ # # $Z $formatI # # $Z $xci/acces$X \ # # $Z A=$xTV/DEFORMATION$COORD_Y \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z R=$_____ImageR$COORD_Y \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=200 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/STRW.A4 \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/STRW.A4 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$_____ImageR%s \ # # $Z avion=VRAI \ # # $Z R=$_____ImageR$m%s \ # # $Z $formatI # # # # :Fin_listG_STRW_B3: # # # v $xiav/STRX.11.1$R16 v $xiav/STRX.11.1$R64 v $xiav/STRX.11$COORD_X$R16 v $xiav/STRX.11$COORD_X$R64 v $xiav/STRX.11$COORD_Y$R16 v $xiav/STRX.11$COORD_Y$R64 v $xiav/STRX.11$COORD_Z$R16 v $xiav/STRX.11$COORD_Z$R64 v $xiav/STRX.11.2$R16 v $xiav/STRX.11.2$R64 v $xiirv/STRX.11.1 v $xiirv/STRX.11.2 v $xiirv/STRX.11.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_11: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.11.1 # # $Z setenv _____ImageT2 $xTV/STRX.11.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cZ._____U) # # $m4 _____include(_____xiirv/.STRX.11.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set CoNvErS="$K_VIDE" # # $Z set CoNvErS="$CoNvErS"" $xci/acces$X" # # $Z set CoNvErS="$CoNvErS"" standard=FAUX zero=FAUX" # # $Z set CoNvErS="$CoNvErS"" $formatI" # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.11.1 # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.11$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.11$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.11$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.11.2 # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____imagesR=$xiirv/STRX.11 # # $m4 _____include(_____xiirs/.PROK.41.4.2._____U) # # # # :Fin_listG_STRX_11: # # # # # # Un entrelacs tridimensionnel {1,1,1}. # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:03:27 # # # # $xci/accumule.42$X : 00:08:18 # # # v $xiav/STRX.12.1$R16 v $xiav/STRX.12.1$R64 v $xiav/STRX.12$COORD_X$R16 v $xiav/STRX.12$COORD_X$R64 v $xiav/STRX.12$COORD_Y$R16 v $xiav/STRX.12$COORD_Y$R64 v $xiav/STRX.12$COORD_Z$R16 v $xiav/STRX.12$COORD_Z$R64 v $xiav/STRX.12.2$R16 v $xiav/STRX.12.2$R64 v $xiirv/STRX.12.1 v $xiirv/STRX.12.2 v $xiirv/STRX.12.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_12: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.12.1 # # $Z setenv _____ImageT2 $xTV/STRX.12.2 # # # # $m4 _____include(_____xiirv/.STRX.12.1._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cZ._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=8" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=8" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=8" # # $m4 _____include(_____xiirv/.STRX.11.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set CoNvErS="$K_VIDE" # # $Z set CoNvErS="$CoNvErS"" $xci/acces$X" # # $Z set CoNvErS="$CoNvErS"" standard=FAUX zero=FAUX" # # $Z set CoNvErS="$CoNvErS"" $formatI" # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.12.1 # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.12$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.12$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.12$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.12.2 # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____imagesR=$xiirv/STRX.12 # # $m4 _____include(_____xiirs/.PROK.41.4.2._____U) # # # # :Fin_listG_STRX_12: # # # # # # Un entrelacs tridimensionnel {2,2,2}. # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:44:36 # # # # $xci/ombrage.11$X : 00:05:12 # # # # $xci/accumule.42$X : 00:20:52 # # # v $xiav/STRX.21.1$R16 v $xiav/STRX.21.1$R64 v $xiav/STRX.21$COORD_X$R16 v $xiav/STRX.21$COORD_X$R64 v $xiav/STRX.21$COORD_Y$R16 v $xiav/STRX.21$COORD_Y$R64 v $xiav/STRX.21$COORD_Z$R16 v $xiav/STRX.21$COORD_Z$R64 v $xiav/STRX.21.2$R16 v $xiav/STRX.21.2$R64 v $xiirv/STRX.21.1 v $xiirv/STRX.21.2 v $xiirv/STRX.21.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_21: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.21.1 # # $Z setenv _____ImageT2 $xTV/STRX.21.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.21.1.R._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.V._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.B._____U) # # # # $m4 _____include(_____xiirv/.STRX.21.5._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.21.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.21.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.21 # # $m4 _____include(_____xiirv/.STRX.21.4.2._____U) # # # # $Z set CoNvErS="$K_VIDE" # # $Z set CoNvErS="$CoNvErS"" $xci/acces$X" # # $Z set CoNvErS="$CoNvErS"" standard=FAUX zero=FAUX" # # $Z set CoNvErS="$CoNvErS"" message_extrema=FAUX" # # $Z set CoNvErS="$CoNvErS"" $formatI" # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.21$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.21$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.21$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_21: # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:01:38 # # # # $xci/ombrage.11$X : 00:07:04 # # # # $xci/accumule.42$X : 00:38:11 # # # v $xiav/STRX.24.1$R16 v $xiav/STRX.24.1$R64 v $xiav/STRX.24$COORD_X$R16 v $xiav/STRX.24$COORD_X$R64 v $xiav/STRX.24$COORD_Y$R16 v $xiav/STRX.24$COORD_Y$R64 v $xiav/STRX.24$COORD_Z$R16 v $xiav/STRX.24$COORD_Z$R64 v $xiav/STRX.24.2$R16 v $xiav/STRX.24.2$R64 v $xiirv/STRX.24.1 v $xiirv/STRX.24.2 v $xiirv/STRX.24.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_STRX_24: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.24.1 # # $Z setenv _____ImageT2 $xTV/STRX.24.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.21.1.R._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.V._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.B._____U) # # # # $m4 _____include(_____xiirv/.STRX.21.5._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.24.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.24.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.24 # # $m4 _____include(_____xiirv/.STRX.21.4.2._____U) # # # # $Z set CoNvErS="$K_VIDE" # # $Z set CoNvErS="$CoNvErS"" $xci/acces$X" # # $Z set CoNvErS="$CoNvErS"" standard=FAUX zero=FAUX" # # $Z set CoNvErS="$CoNvErS"" message_extrema=FAUX" # # $Z set CoNvErS="$CoNvErS"" $formatI" # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.24$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.24$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.24$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_24: # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:00 # # # # $xci/ombrage.11$X : 00:05:45 # # # # $xci/accumule.42$X : 00:34:56 # # # v $xiav/STRX.31.1$R16 v $xiav/STRX.31.1$R64 v $xiav/STRX.31$COORD_X$R16 v $xiav/STRX.31$COORD_X$R64 v $xiav/STRX.31$COORD_Y$R16 v $xiav/STRX.31$COORD_Y$R64 v $xiav/STRX.31$COORD_Z$R16 v $xiav/STRX.31$COORD_Z$R64 v $xiav/STRX.31.2$R16 v $xiav/STRX.31.2$R64 v $xiirv/STRX.31.1 v $xiirv/STRX.31.2 v $xiirv/STRX.31.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_31: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.31.1 # # $Z setenv _____ImageT2 $xTV/STRX.31.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.21.1.R._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.V._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.B._____U) # # # # $m4 _____include(_____xiirv/.STRX.21.5._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.31.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.31.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.31 # # $m4 _____include(_____xiirv/.STRX.21.4.2._____U) # # # # $Z set CoNvErS="$K_VIDE" # # $Z set CoNvErS="$CoNvErS"" $xci/acces$X" # # $Z set CoNvErS="$CoNvErS"" standard=FAUX zero=FAUX" # # $Z set CoNvErS="$CoNvErS"" message_extrema=FAUX" # # $Z set CoNvErS="$CoNvErS"" $formatI" # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.31$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.31$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.31$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_31: # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:01:55 # # # # $xci/ombrage.11$X : 00:05:27 # # # # $xci/accumule.42$X : 00:30:37 # # # v $xiav/STRX.34.1$R16 v $xiav/STRX.34.1$R64 v $xiav/STRX.34$COORD_X$R16 v $xiav/STRX.34$COORD_X$R64 v $xiav/STRX.34$COORD_Y$R16 v $xiav/STRX.34$COORD_Y$R64 v $xiav/STRX.34$COORD_Z$R16 v $xiav/STRX.34$COORD_Z$R64 v $xiav/STRX.34.2$R16 v $xiav/STRX.34.2$R64 v $xiirv/STRX.34.1 v $xiirv/STRX.34.2 v $xiirv/STRX.34.21 # Generee (sur '$CMAP28' -ex "porte-d-orleans"-) par : # # # # # # :Debut_listG_STRX_34: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.34.1 # # $Z setenv _____ImageT2 $xTV/STRX.34.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.21.1.R._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.V._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.B._____U) # # # # $m4 _____include(_____xiirv/.STRX.21.5._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.34.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.34.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.34 # # $m4 _____include(_____xiirv/.STRX.21.4.2._____U) # # # # $Z set CoNvErS="$K_VIDE" # # $Z set CoNvErS="$CoNvErS"" $xci/acces$X" # # $Z set CoNvErS="$CoNvErS"" standard=FAUX zero=FAUX" # # $Z set CoNvErS="$CoNvErS"" message_extrema=FAUX" # # $Z set CoNvErS="$CoNvErS"" $formatI" # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.34$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.34$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.34$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_34: # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:16 # # # # $xci/ombrage.11$X : 00:04:33 # # # # $xci/accumule.42$X : 00:30:30 # # # v $xiav/STRX.41.1$R16 v $xiav/STRX.41.1$R64 v $xiav/STRX.41$COORD_X$R16 v $xiav/STRX.41$COORD_X$R64 v $xiav/STRX.41$COORD_Y$R16 v $xiav/STRX.41$COORD_Y$R64 v $xiav/STRX.41$COORD_Z$R16 v $xiav/STRX.41$COORD_Z$R64 v $xiav/STRX.41.2$R16 v $xiav/STRX.41.2$R64 v $xiirv/STRX.41.1 v $xiirv/STRX.41.2 v $xiirv/STRX.41.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_41: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.41.1 # # $Z setenv _____ImageT2 $xTV/STRX.41.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.41.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.41.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.41 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.41$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.41$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.41$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_41: # # # # # # Un entrelacs tridimensionnel {1,1,1} a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:01:56 # # # # $xci/ombrage.11$X : 00:04:09 # # # # $xci/accumule.42$X : 00:15:20 # # # v $xiav/STRX.42.1$R16 v $xiav/STRX.42.1$R64 v $xiav/STRX.42$COORD_X$R16 v $xiav/STRX.42$COORD_X$R64 v $xiav/STRX.42$COORD_Y$R16 v $xiav/STRX.42$COORD_Y$R64 v $xiav/STRX.42$COORD_Z$R16 v $xiav/STRX.42$COORD_Z$R64 v $xiav/STRX.42.2$R16 v $xiav/STRX.42.2$R64 v $xiirv/STRX.42.1 v $xiirv/STRX.42.2 v $xiirv/STRX.42.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_42: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.42.1 # # $Z setenv _____ImageT2 $xTV/STRX.42.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=2" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.42.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.42.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.42 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.42$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.42$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.42$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_42: # # # # # # Un entrelacs tridimensionnel {2,2,2} a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:12 # # # # $xci/ombrage.11$X : 00:04:07 # # # # $xci/accumule.42$X : 00:16:50 # # # v $xiav/STRX.43.1$R16 v $xiav/STRX.43.1$R64 v $xiav/STRX.43$COORD_X$R16 v $xiav/STRX.43$COORD_X$R64 v $xiav/STRX.43$COORD_Y$R16 v $xiav/STRX.43$COORD_Y$R64 v $xiav/STRX.43$COORD_Z$R16 v $xiav/STRX.43$COORD_Z$R64 v $xiav/STRX.43.2$R16 v $xiav/STRX.43.2$R64 v $xiirv/STRX.43.1 v $xiirv/STRX.43.2 v $xiirv/STRX.43.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_43: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.43.1 # # $Z setenv _____ImageT2 $xTV/STRX.43.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=3" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.43.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.43.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.43 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.43$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.43$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.43$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_43: # # # # # # Un entrelacs tridimensionnel {3,3,3} a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:02 # # # # $xci/ombrage.11$X : 00:03:24 # # # # $xci/accumule.42$X : 00:16:03 # # # v $xiav/STRX.44.1$R16 v $xiav/STRX.44.1$R64 v $xiav/STRX.44$COORD_X$R16 v $xiav/STRX.44$COORD_X$R64 v $xiav/STRX.44$COORD_Y$R16 v $xiav/STRX.44$COORD_Y$R64 v $xiav/STRX.44$COORD_Z$R16 v $xiav/STRX.44$COORD_Z$R64 v $xiav/STRX.44.2$R16 v $xiav/STRX.44.2$R64 v $xiirv/STRX.44.1 v $xiirv/STRX.44.2 v $xiirv/STRX.44.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_44: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.44.1 # # $Z setenv _____ImageT2 $xTV/STRX.44.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.44.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.44.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.44 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.44$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.44$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.44$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_44: # # # # # # Un entrelacs tridimensionnel {4,4,4} a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:11 # # # # $xci/ombrage.11$X : 00:03:26 # # # # $xci/accumule.42$X : 00:17:25 # # # v $xiav/STRX.51.1$R16 v $xiav/STRX.51.1$R64 v $xiav/STRX.51$COORD_X$R16 v $xiav/STRX.51$COORD_X$R64 v $xiav/STRX.51$COORD_Y$R16 v $xiav/STRX.51$COORD_Y$R64 v $xiav/STRX.51$COORD_Z$R16 v $xiav/STRX.51$COORD_Z$R64 v $xiav/STRX.51.2$R16 v $xiav/STRX.51.2$R64 v $xiirs/STRX.51$COORD_X p=$xiP/cercle.35 v $xiirs/STRX.51$COORD_Y p=$xiP/cercle.35 v $xiirs/STRX.51$COORD_Z p=$xiP/cercle.35 v $xiirs/STRX.51$COORD_X$COORD_Y$COORD_Z v $xiirv/STRX.51.0 v $xiirv/STRX.51.1 v $xiirv/STRX.51.2 v $xiirv/STRX.51.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_51: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.51.1 # # $Z setenv _____ImageT2 $xTV/STRX.51.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.51 # # # # $m4 _____include(_____xiirv/.STRX.51.2._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.51.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.51.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.51$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.51$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.51$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_51: # # # # # # 'Corps celeste' fractal base sur un tore ('v $xiirs/TORE.12') et un entrelacs # # tridimensionnel {1,1,1} a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xrv/store_album$X : 00:02:08 # # # # $xci/deformi.12$X : 00:01:55 # # # # $xci/ombrage.11$X : 00:03:18 # # # # $xci/accumule.42$X : 00:10:27 # # # v $xiav/STRX.52.1$R16 v $xiav/STRX.52.1$R64 v $xiav/STRX.52$COORD_X$R16 v $xiav/STRX.52$COORD_X$R64 v $xiav/STRX.52$COORD_Y$R16 v $xiav/STRX.52$COORD_Y$R64 v $xiav/STRX.52$COORD_Z$R16 v $xiav/STRX.52$COORD_Z$R64 v $xiav/STRX.52.2$R16 v $xiav/STRX.52.2$R64 v $xiirs/STRX.52$COORD_X p=$xiP/cercle.35 v $xiirs/STRX.52$COORD_Y p=$xiP/cercle.35 v $xiirs/STRX.52$COORD_Z p=$xiP/cercle.35 v $xiirs/STRX.52$COORD_X$COORD_Y$COORD_Z v $xiirv/STRX.52.0 v $xiirv/STRX.52.1 v $xiirv/STRX.52.2 v $xiirv/STRX.52.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_52: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.52.1 # # $Z setenv _____ImageT2 $xTV/STRX.52.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.52 # # # # $m4 _____include(_____xiirv/.STRX.51.2._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=2" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.52.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.52.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.52$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.52$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.52$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_52: # # # # # # 'Corps celeste' fractal base sur un tore ('v $xiirs/TORE.12') et un entrelacs # # tridimensionnel {2,2,2} a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xrv/store_album$X : 00:02:07 # # # # $xci/deformi.12$X : 00:02:16 # # # # $xci/ombrage.11$X : 00:03:27 # # # # $xci/accumule.42$X : 00:11:01 # # # v $xiav/STRX.53.1$R16 v $xiav/STRX.53.1$R64 v $xiav/STRX.53$COORD_X$R16 v $xiav/STRX.53$COORD_X$R64 v $xiav/STRX.53$COORD_Y$R16 v $xiav/STRX.53$COORD_Y$R64 v $xiav/STRX.53$COORD_Z$R16 v $xiav/STRX.53$COORD_Z$R64 v $xiav/STRX.53.2$R16 v $xiav/STRX.53.2$R64 v $xiirs/STRX.53$COORD_X p=$xiP/cercle.35 v $xiirs/STRX.53$COORD_Y p=$xiP/cercle.35 v $xiirs/STRX.53$COORD_Z p=$xiP/cercle.35 v $xiirs/STRX.53$COORD_X$COORD_Y$COORD_Z v $xiirv/STRX.53.0 v $xiirv/STRX.53.1 v $xiirv/STRX.53.2 v $xiirv/STRX.53.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_53: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.53.1 # # $Z setenv _____ImageT2 $xTV/STRX.53.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.53 # # # # $m4 _____include(_____xiirv/.STRX.51.2._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=3" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.53.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.53.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.53$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.53$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.53$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_53: # # # # # # 'Corps celeste' fractal base sur un tore ('v $xiirs/TORE.12') et un entrelacs # # tridimensionnel {3,3,3} a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xrv/store_album$X : 00:01:38 # # # # $xci/deformi.12$X : 00:02:05 # # # # $xci/ombrage.11$X : 00:03:03 # # # # $xci/accumule.42$X : 00:09:42 # # # v $xiav/STRX.54.1$R16 v $xiav/STRX.54.1$R64 v $xiav/STRX.54$COORD_X$R16 v $xiav/STRX.54$COORD_X$R64 v $xiav/STRX.54$COORD_Y$R16 v $xiav/STRX.54$COORD_Y$R64 v $xiav/STRX.54$COORD_Z$R16 v $xiav/STRX.54$COORD_Z$R64 v $xiav/STRX.54.2$R16 v $xiav/STRX.54.2$R64 v $xiirs/STRX.54$COORD_X p=$xiP/cercle.35 v $xiirs/STRX.54$COORD_Y p=$xiP/cercle.35 v $xiirs/STRX.54$COORD_Z p=$xiP/cercle.35 v $xiirs/STRX.54$COORD_X$COORD_Y$COORD_Z v $xiirv/STRX.54.0 v $xiirv/STRX.54.1 v $xiirv/STRX.54.2 v $xiirv/STRX.54.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_54: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.54.1 # # $Z setenv _____ImageT2 $xTV/STRX.54.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.54 # # # # $m4 _____include(_____xiirv/.STRX.51.2._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.54.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.54.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.54$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.54$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.54$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_54: # # # # # # 'Corps celeste' fractal base sur un tore ('v $xiirs/TORE.12') et un entrelacs # # tridimensionnel {4,4,4} a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xrv/store_album$X : 00:01:37 # # # # $xci/deformi.12$X : 00:02:09 # # # # $xci/ombrage.11$X : 00:03:14 # # # # $xci/accumule.42$X : 00:10:33 # # # v $xiav/STRX.61.1$R16 v $xiav/STRX.61.1$R64 v $xiav/STRX.61$COORD_X$R16 v $xiav/STRX.61$COORD_X$R64 v $xiav/STRX.61$COORD_Y$R16 v $xiav/STRX.61$COORD_Y$R64 v $xiav/STRX.61$COORD_Z$R16 v $xiav/STRX.61$COORD_Z$R64 v $xiav/STRX.61.2$R16 v $xiav/STRX.61.2$R64 v $xiirv/STRX.61.1 v $xiirv/STRX.61.2 v $xiirv/STRX.61.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_61: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.61.1 # # $Z setenv _____ImageT2 $xTV/STRX.61.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" iterer=VRAI" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" iterations=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.61.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.61.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.61 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.61$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.61$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.61$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_61: # # # # # # Un entrelacs tridimensionnel {1,1,1} 'recursif' -une iteration- a l'interieur # # d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:03:03 # # # # $xci/ombrage.11$X : 00:04:32 # # # # $xci/accumule.42$X : 00:17:52 # # # v $xiav/STRX.71.1$R16 v $xiav/STRX.71.1$R64 v $xiav/STRX.71$COORD_X$R16 v $xiav/STRX.71$COORD_X$R64 v $xiav/STRX.71$COORD_Y$R16 v $xiav/STRX.71$COORD_Y$R64 v $xiav/STRX.71$COORD_Z$R16 v $xiav/STRX.71$COORD_Z$R64 v $xiav/STRX.71.2$R16 v $xiav/STRX.71.2$R64 v $xiirs/STRX.71$COORD_X p=$xiP/cercle.35 v $xiirs/STRX.71$COORD_Y p=$xiP/cercle.35 v $xiirs/STRX.71$COORD_Z p=$xiP/cercle.35 v $xiirs/STRX.71$COORD_X$COORD_Y$COORD_Z v $xiirv/STRX.71.0 v $xiirv/STRX.71.1 v $xiirv/STRX.71.2 v $xiirv/STRX.71.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_71: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.71.1 # # $Z setenv _____ImageT2 $xTV/STRX.71.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.71 # # # # $m4 _____include(_____xiirv/.STRX.51.2._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" iterer=VRAI" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" iterations=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.71.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.71.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.71$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.71$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.71$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_71: # # # # # # 'Corps celeste' fractal base sur un tore ('v $xiirs/TORE.12') et un entrelacs # # tridimensionnel {1,1,1} 'recursif' -une iteration- a l'interieur d'une sphere # # ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xrv/store_album$X : 00:01:38 # # # # $xci/deformi.12$X : 00:02:52 # # # # $xci/ombrage.11$X : 00:03:04 # # # # $xci/accumule.42$X : 00:10:30 # # # v $xiav/STRX.81.1$R16 v $xiav/STRX.81.1$R64 v $xiav/STRX.81$COORD_X$R16 v $xiav/STRX.81$COORD_X$R64 v $xiav/STRX.81$COORD_Y$R16 v $xiav/STRX.81$COORD_Y$R64 v $xiav/STRX.81$COORD_Z$R16 v $xiav/STRX.81$COORD_Z$R64 v $xiav/STRX.81.2$R16 v $xiav/STRX.81.2$R64 v $xiirv/STRX.81.1 v $xiirv/STRX.81.2 v $xiirv/STRX.81.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_81: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.81.1 # # $Z setenv _____ImageT2 $xTV/STRX.81.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" iterer=VRAI" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" iterations=2" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.81.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.81.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.81 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.81$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.81$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.81$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_81: # # # # # # Un entrelacs tridimensionnel {1,1,1} 'recursif' -deux iterations- a l'interieur d'une # # sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:04:08 # # # # $xci/ombrage.11$X : 00:04:53 # # # # $xci/accumule.42$X : 00:20:39 # # # v $xiav/STRX.91.1$R16 v $xiav/STRX.91.1$R64 v $xiav/STRX.91$COORD_X$R16 v $xiav/STRX.91$COORD_X$R64 v $xiav/STRX.91$COORD_Y$R16 v $xiav/STRX.91$COORD_Y$R64 v $xiav/STRX.91$COORD_Z$R16 v $xiav/STRX.91$COORD_Z$R64 v $xiav/STRX.91.2$R16 v $xiav/STRX.91.2$R64 v $xiirs/STRX.91$COORD_X p=$xiP/cercle.35 v $xiirs/STRX.91$COORD_Y p=$xiP/cercle.35 v $xiirs/STRX.91$COORD_Z p=$xiP/cercle.35 v $xiirs/STRX.91$COORD_X$COORD_Y$COORD_Z v $xiirv/STRX.91.0 v $xiirv/STRX.91.1 v $xiirv/STRX.91.2 v $xiirv/STRX.91.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_91: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.91.1 # # $Z setenv _____ImageT2 $xTV/STRX.91.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.91 # # # # $m4 _____include(_____xiirv/.STRX.51.2._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" iterer=VRAI" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" iterations=2" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.91.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.91.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.91$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.91$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.91$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_91: # # # # # # 'Corps celeste' fractal base sur un tore ('v $xiirs/TORE.12') et un entrelacs # # tridimensionnel {1,1,1} 'recursif' -deux iterations- a l'interieur d'une sphere # # ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xrv/store_album$X : 00:01:37 # # # # $xci/deformi.12$X : 00:03:50 # # # # $xci/ombrage.11$X : 00:03:58 # # # # $xci/accumule.42$X : 00:12:04 # # # v $xiav/STRX.A1.1$R16 v $xiav/STRX.A1.1$R64 v $xiav/STRX.A1$COORD_X$R16 v $xiav/STRX.A1$COORD_X$R64 v $xiav/STRX.A1$COORD_Y$R16 v $xiav/STRX.A1$COORD_Y$R64 v $xiav/STRX.A1$COORD_Z$R16 v $xiav/STRX.A1$COORD_Z$R64 v $xiav/STRX.A1.2$R16 v $xiav/STRX.A1.2$R64 v $xiirv/STRX.A1.1 v $xiirv/STRX.A1.2 v $xiirv/STRX.A1.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_A1: # # # # $Z Sdu # # $Z SformatI # # $Z set RaCiNe_2=`calcul sqrt(pow(1,2)+pow(1,2))` # # $Z XYmaxNe `calculINS $Xmax*$RaCiNe_2` `calculINS $Ymax*$RaCiNe_2` # # # # Et ce afin qu'il n'y ait pas de points hors du cadre des images 'Sdu' a generer ci-apres... # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.A1.1 # # $Z setenv _____ImageT2 $xTV/STRX.A1.2 # # # # $Z $xrs/project2D.01$Z bKlein.61 $xTV/SURFACE "PARAMETRE_M=4" # # # # $m4 _____include(_____xiirv/.STRX.A1.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.A1.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.A1.1.cZ._____U) # # # # $Z RformatI # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.A1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.A1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.A1 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.A1$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.A1$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.A1$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_A1: # # # # # # Un entrelacs tridimensionnel {1,1,1} base sur la triple bouteille de # # Bonan-Jeener-Klein ('v $xiirs/BKLN.52') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:03:42 # # # # $xci/ombrage.11$X : 00:03:27 # # # # $xci/accumule.42$X : 00:14:04 # # # v $xiav/STRX.B1.1$R16 v $xiav/STRX.B1.1$R64 v $xiav/STRX.B1$COORD_X$R16 v $xiav/STRX.B1$COORD_X$R64 v $xiav/STRX.B1$COORD_Y$R16 v $xiav/STRX.B1$COORD_Y$R64 v $xiav/STRX.B1$COORD_Z$R16 v $xiav/STRX.B1$COORD_Z$R64 v $xiav/STRX.B1.2$R16 v $xiav/STRX.B1.2$R64 v $xiirs/STRX.B1$COORD_X p=$xiP/cercle.35 v $xiirs/STRX.B1$COORD_Y p=$xiP/cercle.35 v $xiirs/STRX.B1$COORD_Z p=$xiP/cercle.35 v $xiirs/STRX.B1$COORD_X$COORD_Y$COORD_Z v $xiirv/STRX.B1.0 v $xiirv/STRX.B1.1 v $xiirv/STRX.B1.2 v $xiirv/STRX.B1.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_B1: # # # # $Z Sdu # # $Z SformatI # # $Z set RaCiNe_2=`calcul sqrt(pow(1,2)+pow(1,2))` # # $Z XYmaxNe `calculINS $Xmax*$RaCiNe_2` `calculINS $Ymax*$RaCiNe_2` # # # # Et ce afin qu'il n'y ait pas de points hors du cadre des images 'Sdu' a generer ci-apres... # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.A1.1 # # $Z setenv _____ImageT2 $xTV/STRX.A1.2 # # # # $Z $xrs/project2D.01$Z bKlein.61 $xTV/SURFACE "PARAMETRE_M=4" # # # # $m4 _____include(_____xiirv/.STRX.A1.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.A1.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.A1.1.cZ._____U) # # # # $Z RformatI # # # # $Z set _____ImagesR=$xiirv/STRX.B1 # # # # $m4 _____include(_____xiirv/.STRX.51.2._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.B1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.B1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.B1$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.B1$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.B1$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_B1: # # # # # # 'Corps celeste' fractal base sur un tore ('v $xiirs/TORE.12') et un entrelacs # # tridimensionnel {1,1,1} base sur la triple bouteille de Bonan-Jeener-Klein # # ('v $xiirs/BKLN.52') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xrv/store_album$X : 00:02:08 # # # # $xci/deformi.12$X : 00:04:15 # # # # $xci/ombrage.11$X : 00:04:06 # # # # $xci/accumule.42$X : 00:11:34 # # # v $xiav/STRX.C1.1$R16 v $xiav/STRX.C1.1$R64 v $xiav/STRX.C1$COORD_X$R16 v $xiav/STRX.C1$COORD_X$R64 v $xiav/STRX.C1$COORD_Y$R16 v $xiav/STRX.C1$COORD_Y$R64 v $xiav/STRX.C1$COORD_Z$R16 v $xiav/STRX.C1$COORD_Z$R64 v $xiav/STRX.C1.2$R16 v $xiav/STRX.C1.2$R64 v $xiirv/STRX.C1.1 v $xiirv/STRX.C1.2 v $xiirv/STRX.C1.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_C1: # # # # $Z Sdu # # $Z SformatI # # $Z set RaCiNe_2=`calcul sqrt(pow(1,2)+pow(1,2))` # # $Z XYmaxNe `calculINS $Xmax*$RaCiNe_2` `calculINS $Ymax*$RaCiNe_2` # # # # Et ce afin qu'il n'y ait pas de points hors du cadre des images 'Sdu' a generer ci-apres... # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.C1.1 # # $Z setenv _____ImageT2 $xTV/STRX.C1.2 # # # # $Z $xrs/project2D.01$Z sphere.11 $xTV/SURFACE # # # # $m4 _____include(_____xiirv/.STRX.A1.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.A1.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.A1.1.cZ._____U) # # # # $Z RformatI # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.C1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.C1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.C1 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.C1$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.C1$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.C1$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_C1: # # # # # # Un entrelacs tridimensionnel {1,1,1} base sur une sphere ('v $xiirs/SPHE.53') a # # l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:04:38 # # # # $xci/ombrage.11$X : 00:04:19 # # # # $xci/accumule.42$X : 00:17:11 # # # v $xiav/STRX.D1.1$R16 v $xiav/STRX.D1.1$R64 v $xiav/STRX.D1$COORD_X$R16 v $xiav/STRX.D1$COORD_X$R64 v $xiav/STRX.D1$COORD_Y$R16 v $xiav/STRX.D1$COORD_Y$R64 v $xiav/STRX.D1$COORD_Z$R16 v $xiav/STRX.D1$COORD_Z$R64 v $xiav/STRX.D1.2$R16 v $xiav/STRX.D1.2$R64 v $xiirs/STRX.D1$COORD_X p=$xiP/cercle.35 v $xiirs/STRX.D1$COORD_Y p=$xiP/cercle.35 v $xiirs/STRX.D1$COORD_Z p=$xiP/cercle.35 v $xiirs/STRX.D1$COORD_X$COORD_Y$COORD_Z v $xiirv/STRX.D1.0 v $xiirv/STRX.D1.1 v $xiirv/STRX.D1.2 v $xiirv/STRX.D1.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_D1: # # # # $Z Sdu # # $Z SformatI # # $Z set RaCiNe_2=`calcul sqrt(pow(1,2)+pow(1,2))` # # $Z XYmaxNe `calculINS $Xmax*$RaCiNe_2` `calculINS $Ymax*$RaCiNe_2` # # # # Et ce afin qu'il n'y ait pas de points hors du cadre des images 'Sdu' a generer ci-apres... # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.A1.1 # # $Z setenv _____ImageT2 $xTV/STRX.A1.2 # # # # $Z $xrs/project2D.01$Z sphere.11 $xTV/SURFACE # # # # $m4 _____include(_____xiirv/.STRX.A1.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.A1.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.A1.1.cZ._____U) # # # # $Z RformatI # # # # $Z set _____ImagesR=$xiirv/STRX.D1 # # # # $m4 _____include(_____xiirv/.STRX.51.2._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.D1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.D1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.D1$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.D1$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.D1$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_D1: # # # # # # 'Corps celeste' fractal base sur un tore ('v $xiirs/TORE.12') et un entrelacs # # tridimensionnel {1,1,1} base sur une sphere ('v $xiirs/SPHE.53') a l'interieur # # d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xrv/store_album$X : 00:02:09 # # # # $xci/deformi.12$X : 00:04:41 # # # # $xci/ombrage.11$X : 00:03:48 # # # # $xci/accumule.42$X : 00:10:52 # # # v $xiav/STRX.E1.1$R16 v $xiav/STRX.E1.1$R64 v $xiav/STRX.E1$COORD_X$R16 v $xiav/STRX.E1$COORD_X$R64 v $xiav/STRX.E1$COORD_Y$R16 v $xiav/STRX.E1$COORD_Y$R64 v $xiav/STRX.E1$COORD_Z$R16 v $xiav/STRX.E1$COORD_Z$R64 v $xiav/STRX.E1.2$R16 v $xiav/STRX.E1.2$R64 v $xiirv/STRX.E1.1 v $xiirv/STRX.E1.2 v $xiirv/STRX.E1.21 # Generee (sur '$CMAP28' -ex "porte-d-orleans"-) par : # # # # # # :Debut_listG_STRX_E1: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.E1.1 # # $Z setenv _____ImageT2 $xTV/STRX.E1.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.E1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.E1 # # $Z set _____GSurface=$xrs/tore.11 # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.E1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.E1$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.E1$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.E1$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_E1: # # # # # # Un entrelacs tridimensionnel {1,1,1} a l'interieur d'un tore ('v $xiirs/TORE.12'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:01:47 # # # # $xrv/store_album$X : 00:08:02 # # # # $xci/ombrage.11$X : 00:02:13 # # # # $xci/accumule.42$X : 00:08:17 # # # v $xiav/STRX.E2.1$R16 v $xiav/STRX.E2.1$R64 v $xiav/STRX.E2$COORD_X$R16 v $xiav/STRX.E2$COORD_X$R64 v $xiav/STRX.E2$COORD_Y$R16 v $xiav/STRX.E2$COORD_Y$R64 v $xiav/STRX.E2$COORD_Z$R16 v $xiav/STRX.E2$COORD_Z$R64 v $xiav/STRX.E2.2$R16 v $xiav/STRX.E2.2$R64 v $xiirv/STRX.E2.1 v $xiirv/STRX.E2.2 v $xiirv/STRX.E2.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_E2: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.E2.1 # # $Z setenv _____ImageT2 $xTV/STRX.E2.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=2" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.E2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.E2 # # $Z set _____GSurface=$xrs/tore.11 # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.E2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.E2$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.E2$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.E2$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_E2: # # # # # # Un entrelacs tridimensionnel {2,2,2} a l'interieur d'un tore ('v $xiirs/TORE.12'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:06 # # # # $xrv/store_album$X : 00:06:26 # # # # $xci/ombrage.11$X : 00:02:21 # # # # $xci/accumule.42$X : 00:07:33 # # # v $xiav/STRX.E3.1$R16 v $xiav/STRX.E3.1$R64 v $xiav/STRX.E3$COORD_X$R16 v $xiav/STRX.E3$COORD_X$R64 v $xiav/STRX.E3$COORD_Y$R16 v $xiav/STRX.E3$COORD_Y$R64 v $xiav/STRX.E3$COORD_Z$R16 v $xiav/STRX.E3$COORD_Z$R64 v $xiav/STRX.E3.2$R16 v $xiav/STRX.E3.2$R64 v $xiirv/STRX.E3.1 v $xiirv/STRX.E3.2 v $xiirv/STRX.E3.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_STRX_E3: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.E3.1 # # $Z setenv _____ImageT2 $xTV/STRX.E3.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=3" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.E3.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.E3 # # $Z set _____GSurface=$xrs/tore.11 # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.E3.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.E3$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.E3$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.E3$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_E3: # # # # # # Un entrelacs tridimensionnel {3,3,3} a l'interieur d'un tore ('v $xiirs/TORE.12'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:32 # # # # $xrv/store_album$X : 00:07:08 # # # # $xci/ombrage.11$X : 00:02:26 # # # # $xci/accumule.42$X : 00:07:55 # # # v $xiav/STRX.E4.1$R16 v $xiav/STRX.E4.1$R64 v $xiav/STRX.E4$COORD_X$R16 v $xiav/STRX.E4$COORD_X$R64 v $xiav/STRX.E4$COORD_Y$R16 v $xiav/STRX.E4$COORD_Y$R64 v $xiav/STRX.E4$COORD_Z$R16 v $xiav/STRX.E4$COORD_Z$R64 v $xiav/STRX.E4.2$R16 v $xiav/STRX.E4.2$R64 v $xiirv/STRX.E4.1 v $xiirv/STRX.E4.2 v $xiirv/STRX.E4.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_E4: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.E4.1 # # $Z setenv _____ImageT2 $xTV/STRX.E4.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.E4.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.E4 # # $Z set _____GSurface=$xrs/tore.11 # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.E4.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.E4$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.E4$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.E4$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_E4: # # # # # # Un entrelacs tridimensionnel {4,4,4} a l'interieur d'un tore ('v $xiirs/TORE.12'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:34 # # # # $xrv/store_album$X : 00:08:19 # # # # $xci/ombrage.11$X : 00:03:24 # # # # $xci/accumule.42$X : 00:09:28 # # # v $xiirv/STRX.E1234.1 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_STRX_E1234_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRX.E1234.1 # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z set _____ImageA=$xiirv/STRX.E1.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.E1%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.E1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.E1%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.E1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.E2.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.E2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.E2 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.E2%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.E1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.E3.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.E3%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.E3 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.E3%s \ # # $Z $ArgMontagne \ # # $Z R=$xTV/STRX.E1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.E4.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.E4%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.E4 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.E4%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.E1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.E1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_STRX_E1234_1: # # # v $xiirv/STRX.E1234.1$LUMIN p=$xiP/trou_noir.B4 v $xiirv/STRX.E1234.1$LUMIN p=$xiP/rouge_orang.33 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_STRX_E1234_1_L: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/STRX.E1.1 # # $Z set _____ImageR=$xiirv/STRX.E1234.1$LUMIN # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.E1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.E2.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.E1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.E3.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z R=$xTV/STRX.E1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.E4.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.E1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.E1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.E1234.1%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.E1234.1 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_STRX_E1234_1_L: # # # v $xiav/STRX.F4.1$R16 v $xiav/STRX.F4.1$R64 v $xiav/STRX.F4$COORD_X$R16 v $xiav/STRX.F4$COORD_X$R64 v $xiav/STRX.F4$COORD_Y$R16 v $xiav/STRX.F4$COORD_Y$R64 v $xiav/STRX.F4$COORD_Z$R16 v $xiav/STRX.F4$COORD_Z$R64 v $xiav/STRX.F4.2$R16 v $xiav/STRX.F4.2$R64 v $xiirs/STRX.F4$COORD_X p=$xiP/cercle.35 v $xiirs/STRX.F4$COORD_Y p=$xiP/cercle.35 v $xiirs/STRX.F4$COORD_Z p=$xiP/cercle.35 v $xiirs/STRX.F4$COORD_X$COORD_Y$COORD_Z v $xiirv/STRX.F4.0 v $xiirv/STRX.F4.1 v $xiirv/STRX.F4.2 v $xiirv/STRX.F4.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_F4: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.F4.1 # # $Z setenv _____ImageT2 $xTV/STRX.F4.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.F4 # # # # $m4 _____include(_____xiirv/.STRX.51.2._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.F4.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____GSurface=$xrs/tore.11 # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.F4.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.F4$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.F4$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.F4$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_F4: # # # # # # 'Corps celeste' fractal base sur un tore ('v $xiirs/TORE.12') et un entrelacs # # tridimensionnel {4,4,4} a l'interieur d'un tore ('v $xiirs/TORE.12'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xrv/store_album$X : 00:02:07 # # # # $xci/deformi.12$X : 00:02:38 # # # # $xrv/store_album$X : 00:08:19 # # # # $xci/ombrage.11$X : 00:02:13 # # # # $xci/accumule.42$X : 00:08:26 # # # v $xiav/STRX.G1.1$R16 v $xiav/STRX.G1.1$R64 v $xiav/STRX.G1$COORD_X$R16 v $xiav/STRX.G1$COORD_X$R64 v $xiav/STRX.G1$COORD_Y$R16 v $xiav/STRX.G1$COORD_Y$R64 v $xiav/STRX.G1$COORD_Z$R16 v $xiav/STRX.G1$COORD_Z$R64 v $xiav/STRX.G1.2$R16 v $xiav/STRX.G1.2$R64 v $xiirv/STRX.G1.1 v $xiirv/STRX.G1.2 v $xiirv/STRX.G1.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_STRX_G1: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.G1.1 # # $Z setenv _____ImageT2 $xTV/STRX.G1.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.G1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.G1 # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_M=4" # # $Z set _____GSurface=$xrs/bKlein.61 # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.G1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.G1$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.G1$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.G1$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_G1: # # # # # # Un entrelacs tridimensionnel {1,1,1} a l'interieur de la triple bouteille de # # Bonan-Jeener-Klein ('v $xiirs/BKLN.52'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:01:57 # # # # $xrv/store_album$X : 00:06:07 # # # # $xci/ombrage.11$X : 00:01:34 # # # # $xci/accumule.42$X : 00:07:23 # # # v $xiav/STRX.G2.1$R16 v $xiav/STRX.G2.1$R64 v $xiav/STRX.G2$COORD_X$R16 v $xiav/STRX.G2$COORD_X$R64 v $xiav/STRX.G2$COORD_Y$R16 v $xiav/STRX.G2$COORD_Y$R64 v $xiav/STRX.G2$COORD_Z$R16 v $xiav/STRX.G2$COORD_Z$R64 v $xiav/STRX.G2.2$R16 v $xiav/STRX.G2.2$R64 v $xiirv/STRX.G2.1 v $xiirv/STRX.G2.2 v $xiirv/STRX.G2.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_G2: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.G2.1 # # $Z setenv _____ImageT2 $xTV/STRX.G2.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=2" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.G2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.G2 # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_M=4" # # $Z set _____GSurface=$xrs/bKlein.61 # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.G2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.G2$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.G2$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.G2$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_G2: # # # # # # Un entrelacs tridimensionnel {2,2,2} a l'interieur de la triple bouteille de # # Bonan-Jeener-Klein ('v $xiirs/BKLN.52'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:10 # # # # $xrv/store_album$X : 00:06:24 # # # # $xci/ombrage.11$X : 00:02:11 # # # # $xci/accumule.42$X : 00:07:36 # # # v $xiav/STRX.G3.1$R16 v $xiav/STRX.G3.1$R64 v $xiav/STRX.G3$COORD_X$R16 v $xiav/STRX.G3$COORD_X$R64 v $xiav/STRX.G3$COORD_Y$R16 v $xiav/STRX.G3$COORD_Y$R64 v $xiav/STRX.G3$COORD_Z$R16 v $xiav/STRX.G3$COORD_Z$R64 v $xiav/STRX.G3.2$R16 v $xiav/STRX.G3.2$R64 v $xiirv/STRX.G3.1 v $xiirv/STRX.G3.2 v $xiirv/STRX.G3.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_STRX_G3: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.G3.1 # # $Z setenv _____ImageT2 $xTV/STRX.G3.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=3" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.G3.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.G3 # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_M=4" # # $Z set _____GSurface=$xrs/bKlein.61 # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.G3.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.G3$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.G3$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.G3$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_G3: # # # # # # Un entrelacs tridimensionnel {3,3,3} a l'interieur de la triple bouteille de # # Bonan-Jeener-Klein ('v $xiirs/BKLN.52'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:28 # # # # $xrv/store_album$X : 00:06:12 # # # # $xci/ombrage.11$X : 00:01:57 # # # # $xci/accumule.42$X : 00:07:39 # # # v $xiav/STRX.G4.1$R16 v $xiav/STRX.G4.1$R64 v $xiav/STRX.G4$COORD_X$R16 v $xiav/STRX.G4$COORD_X$R64 v $xiav/STRX.G4$COORD_Y$R16 v $xiav/STRX.G4$COORD_Y$R64 v $xiav/STRX.G4$COORD_Z$R16 v $xiav/STRX.G4$COORD_Z$R64 v $xiav/STRX.G4.2$R16 v $xiav/STRX.G4.2$R64 v $xiirv/STRX.G4.1 v $xiirv/STRX.G4.2 v $xiirv/STRX.G4.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_G4: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.G4.1 # # $Z setenv _____ImageT2 $xTV/STRX.G4.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.G4.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.G4 # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_M=4" # # $Z set _____GSurface=$xrs/bKlein.61 # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.G4.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.G4$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.G4$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.G4$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_G4: # # # # # # Un entrelacs tridimensionnel {4,4,4} a l'interieur de la triple bouteille de # # Bonan-Jeener-Klein ('v $xiirs/BKLN.52'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:37 # # # # $xrv/store_album$X : 00:08:30 # # # # $xci/ombrage.11$X : 00:03:07 # # # # $xci/accumule.42$X : 00:09:33 # # # v $xiirv/STRX.G1234.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_G1234_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRX.G1234.1 # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z set _____ImageA=$xiirv/STRX.G1.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.G1%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.G1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.G1%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.G1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.G2.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.G2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.G2 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.G2%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.G1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.G3.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.G3%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.G3 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.G3%s \ # # $Z $ArgMontagne \ # # $Z R=$xTV/STRX.G1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.G4.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.G4%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.G4 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.G4%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.G1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.G1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_STRX_G1234_1: # # # v $xiirv/STRX.G1234.1$LUMIN p=$xiP/trou_noir.B4 v $xiirv/STRX.G1234.1$LUMIN p=$xiP/rouge_orang.33 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_G1234_1_L: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/STRX.G1.1 # # $Z set _____ImageR=$xiirv/STRX.G1234.1$LUMIN # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.G1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.G2.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.G1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.G3.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z R=$xTV/STRX.G1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.G4.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.G1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.G1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.G1234.1%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.G1234.1 \ # # $Z $formatI | \ # # $Z $xci/transpose$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_STRX_G1234_1_L: # # # v $xiav/STRX.H4.1$R16 v $xiav/STRX.H4.1$R64 v $xiav/STRX.H4$COORD_X$R16 v $xiav/STRX.H4$COORD_X$R64 v $xiav/STRX.H4$COORD_Y$R16 v $xiav/STRX.H4$COORD_Y$R64 v $xiav/STRX.H4$COORD_Z$R16 v $xiav/STRX.H4$COORD_Z$R64 v $xiav/STRX.H4.2$R16 v $xiav/STRX.H4.2$R64 v $xiirs/STRX.H4$COORD_X p=$xiP/cercle.35 v $xiirs/STRX.H4$COORD_Y p=$xiP/cercle.35 v $xiirs/STRX.H4$COORD_Z p=$xiP/cercle.35 v $xiirs/STRX.H4$COORD_X$COORD_Y$COORD_Z v $xiirv/STRX.H4.0 v $xiirv/STRX.H4.1 v $xiirv/STRX.H4.2 v $xiirv/STRX.H4.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_H4: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.H4.1 # # $Z setenv _____ImageT2 $xTV/STRX.H4.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.H4 # # # # $m4 _____include(_____xiirv/.STRX.51.2._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.H4.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_M=4" # # $Z set _____GSurface=$xrs/bKlein.61 # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.H4.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.H4$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.H4$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.H4$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_H4: # # # # # # 'Corps celeste' fractal base sur un tore ('v $xiirs/TORE.12') et un entrelacs # # tridimensionnel {4,4,4} a l'interieur de la triple bouteille de Bonan-Jeener-Klein # # ('v $xiirs/BKLN.52'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xrv/store_album$X : 00:01:37 # # # # $xci/deformi.12$X : 00:02:16 # # # # $xrv/store_album$X : 00:06:23 # # # # $xci/ombrage.11$X : 00:01:41 # # # # $xci/accumule.42$X : 00:07:06 # # # v $xiav/STRX.I1.1$R16 v $xiav/STRX.I1.1$R64 v $xiav/STRX.I1$COORD_X$R16 v $xiav/STRX.I1$COORD_X$R64 v $xiav/STRX.I1$COORD_Y$R16 v $xiav/STRX.I1$COORD_Y$R64 v $xiav/STRX.I1$COORD_Z$R16 v $xiav/STRX.I1$COORD_Z$R64 v $xiav/STRX.I1.2$R16 v $xiav/STRX.I1.2$R64 v $xiirv/STRX.I1.1 v $xiirv/STRX.I1.2 v $xiirv/STRX.I1.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_I1: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.I1.1 # # $Z setenv _____ImageT2 $xTV/STRX.I1.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.I1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.I1 # # # # $m4 _____include(_____xiirs/.EPIC.41.2._____U) # # # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_Ra=+0.8" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_Rb=+0.8" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_B=$PaRaMeTrE_B" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_C=$PaRaMeTrE_C" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_D=$PaRaMeTrE_D" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_E=$PaRaMeTrE_E" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_F=$PaRaMeTrE_F" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_G=$PaRaMeTrE_G" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_H=$PaRaMeTrE_H" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_I=$PaRaMeTrE_I" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_M=$PaRaMeTrE_M" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_N=$PaRaMeTrE_N" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_O=$PaRaMeTrE_O" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_P=$PaRaMeTrE_P" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_paralleles=20" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npp=4" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_meridiens=640" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npm=10" # # $Z set _____ArgGSurface="$_____ArgGSurface"" fpuv=VRAI" # # $Z set _____ArgGSurface="$_____ArgGSurface"" emeni=FAUX" # # # # Ce sont les arguments definis dans 'v $xiirs/.EPIC.41.1.$U' pour 'v $xiirs/EPIC.41' en # # particulier... # # # # $Z set _____GSurface=$xrs/epicycloide.21 # # $Z set _____NormaliseSurface=$EXIST # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.I1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.I1$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.I1$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.I1$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_I1: # # # # # # Un entrelacs tridimensionnel {1,1,1} a l'interieur d'un pseudo-tore ('v $xiirs/EPIC.41') # # 'epicycloidal tridimensionnel'. # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:01:48 # # # # $xrv/store_album$X : 00:06:26 # # # # $xci/ombrage.11$X : 00:01:24 # # # # $xci/accumule.42$X : 00:07:11 # # # v $xiav/STRX.I2.1$R16 v $xiav/STRX.I2.1$R64 v $xiav/STRX.I2$COORD_X$R16 v $xiav/STRX.I2$COORD_X$R64 v $xiav/STRX.I2$COORD_Y$R16 v $xiav/STRX.I2$COORD_Y$R64 v $xiav/STRX.I2$COORD_Z$R16 v $xiav/STRX.I2$COORD_Z$R64 v $xiav/STRX.I2.2$R16 v $xiav/STRX.I2.2$R64 v $xiirv/STRX.I2.1 v $xiirv/STRX.I2.2 v $xiirv/STRX.I2.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_I2: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.I2.1 # # $Z setenv _____ImageT2 $xTV/STRX.I2.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=2" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.I2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.I2 # # # # $m4 _____include(_____xiirs/.EPIC.41.2._____U) # # # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_Ra=+0.8" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_Rb=+0.8" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_B=$PaRaMeTrE_B" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_C=$PaRaMeTrE_C" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_D=$PaRaMeTrE_D" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_E=$PaRaMeTrE_E" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_F=$PaRaMeTrE_F" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_G=$PaRaMeTrE_G" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_H=$PaRaMeTrE_H" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_I=$PaRaMeTrE_I" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_M=$PaRaMeTrE_M" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_N=$PaRaMeTrE_N" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_O=$PaRaMeTrE_O" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_P=$PaRaMeTrE_P" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_paralleles=20" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npp=4" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_meridiens=640" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npm=10" # # $Z set _____ArgGSurface="$_____ArgGSurface"" fpuv=VRAI" # # $Z set _____ArgGSurface="$_____ArgGSurface"" emeni=FAUX" # # # # Ce sont les arguments definis dans 'v $xiirs/.EPIC.41.1.$U' pour 'v $xiirs/EPIC.41' en # # particulier... # # # # $Z set _____GSurface=$xrs/epicycloide.21 # # $Z set _____NormaliseSurface=$EXIST # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.I2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.I2$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.I2$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.I2$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_I2: # # # # # # Un entrelacs tridimensionnel {2,2,2} a l'interieur d'un pseudo-tore ('v $xiirs/EPIC.41') # # 'epicycloidal tridimensionnel'. # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:05 # # # # $xrv/store_album$X : 00:06:25 # # # # $xci/ombrage.11$X : 00:01:32 # # # # $xci/accumule.42$X : 00:07:11 # # # v $xiav/STRX.I3.1$R16 v $xiav/STRX.I3.1$R64 v $xiav/STRX.I3$COORD_X$R16 v $xiav/STRX.I3$COORD_X$R64 v $xiav/STRX.I3$COORD_Y$R16 v $xiav/STRX.I3$COORD_Y$R64 v $xiav/STRX.I3$COORD_Z$R16 v $xiav/STRX.I3$COORD_Z$R64 v $xiav/STRX.I3.2$R16 v $xiav/STRX.I3.2$R64 v $xiirv/STRX.I3.1 v $xiirv/STRX.I3.2 v $xiirv/STRX.I3.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_STRX_I3: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.I3.1 # # $Z setenv _____ImageT2 $xTV/STRX.I3.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=3" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.I3.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.I3 # # # # $m4 _____include(_____xiirs/.EPIC.41.2._____U) # # # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_Ra=+0.8" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_Rb=+0.8" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_B=$PaRaMeTrE_B" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_C=$PaRaMeTrE_C" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_D=$PaRaMeTrE_D" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_E=$PaRaMeTrE_E" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_F=$PaRaMeTrE_F" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_G=$PaRaMeTrE_G" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_H=$PaRaMeTrE_H" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_I=$PaRaMeTrE_I" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_M=$PaRaMeTrE_M" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_N=$PaRaMeTrE_N" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_O=$PaRaMeTrE_O" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_P=$PaRaMeTrE_P" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_paralleles=20" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npp=4" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_meridiens=640" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npm=10" # # $Z set _____ArgGSurface="$_____ArgGSurface"" fpuv=VRAI" # # $Z set _____ArgGSurface="$_____ArgGSurface"" emeni=FAUX" # # # # Ce sont les arguments definis dans 'v $xiirs/.EPIC.41.1.$U' pour 'v $xiirs/EPIC.41' en # # particulier... # # # # $Z set _____GSurface=$xrs/epicycloide.21 # # $Z set _____NormaliseSurface=$EXIST # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.I3.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.I3$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.I3$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.I3$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_I3: # # # # # # Un entrelacs tridimensionnel {3,3,3} a l'interieur d'un pseudo-tore ('v $xiirs/EPIC.41') # # 'epicycloidal tridimensionnel'. # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:21 # # # # $xrv/store_album$X : 00:06:12 # # # # $xci/ombrage.11$X : 00:01:22 # # # # $xci/accumule.42$X : 00:07:16 # # # v $xiav/STRX.I4.1$R16 v $xiav/STRX.I4.1$R64 v $xiav/STRX.I4$COORD_X$R16 v $xiav/STRX.I4$COORD_X$R64 v $xiav/STRX.I4$COORD_Y$R16 v $xiav/STRX.I4$COORD_Y$R64 v $xiav/STRX.I4$COORD_Z$R16 v $xiav/STRX.I4$COORD_Z$R64 v $xiav/STRX.I4.2$R16 v $xiav/STRX.I4.2$R64 v $xiirv/STRX.I4.1 v $xiirv/STRX.I4.2 v $xiirv/STRX.I4.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_I4: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.I4.1 # # $Z setenv _____ImageT2 $xTV/STRX.I4.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.I4.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.I4 # # # # $m4 _____include(_____xiirs/.EPIC.41.2._____U) # # # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_Ra=+0.8" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_Rb=+0.8" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_B=$PaRaMeTrE_B" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_C=$PaRaMeTrE_C" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_D=$PaRaMeTrE_D" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_E=$PaRaMeTrE_E" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_F=$PaRaMeTrE_F" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_G=$PaRaMeTrE_G" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_H=$PaRaMeTrE_H" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_I=$PaRaMeTrE_I" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_M=$PaRaMeTrE_M" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_N=$PaRaMeTrE_N" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_O=$PaRaMeTrE_O" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_P=$PaRaMeTrE_P" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_paralleles=20" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npp=4" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_meridiens=640" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npm=10" # # $Z set _____ArgGSurface="$_____ArgGSurface"" fpuv=VRAI" # # $Z set _____ArgGSurface="$_____ArgGSurface"" emeni=FAUX" # # # # Ce sont les arguments definis dans 'v $xiirs/.EPIC.41.1.$U' pour 'v $xiirs/EPIC.41' en # # particulier... # # # # $Z set _____GSurface=$xrs/epicycloide.21 # # $Z set _____NormaliseSurface=$EXIST # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.I4.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.I4$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.I4$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.I4$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_I4: # # # # # # Un entrelacs tridimensionnel {4,4,4} a l'interieur d'un pseudo-tore ('v $xiirs/EPIC.41') # # 'epicycloidal tridimensionnel'. # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:36 # # # # $xrv/store_album$X : 00:08:30 # # # # $xci/ombrage.11$X : 00:02:12 # # # # $xci/accumule.42$X : 00:08:43 # # # v $xiirv/STRX.I1234.1 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_STRX_I1234_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRX.I1234.1 # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z set _____ImageA=$xiirv/STRX.I1.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.I1%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.I1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.I1%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.I1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.I2.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.I2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.I2 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.I2%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.I1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.I3.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.I3%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.I3 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.I3%s \ # # $Z $ArgMontagne \ # # $Z R=$xTV/STRX.I1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.I4.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.I4%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.I4 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.I4%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.I1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.I1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_STRX_I1234_1: # # # v $xiirv/STRX.I1234.1$LUMIN p=$xiP/trou_noir.B4 v $xiirv/STRX.I1234.1$LUMIN p=$xiP/rouge_orang.33 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_STRX_I1234_1_L: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/STRX.I1.1 # # $Z set _____ImageR=$xiirv/STRX.I1234.1$LUMIN # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.I1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.I2.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.I1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.I3.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z R=$xTV/STRX.I1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.I4.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.I1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.I1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.I1234.1%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.I1234.1 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_STRX_I1234_1_L: # # # v $xiav/STRX.J1.1$R16 v $xiav/STRX.J1.1$R64 v $xiav/STRX.J1$COORD_X$R16 v $xiav/STRX.J1$COORD_X$R64 v $xiav/STRX.J1$COORD_Y$R16 v $xiav/STRX.J1$COORD_Y$R64 v $xiav/STRX.J1$COORD_Z$R16 v $xiav/STRX.J1$COORD_Z$R64 v $xiav/STRX.J1.2$R16 v $xiav/STRX.J1.2$R64 v $xiirv/STRX.J1.1 v $xiirv/STRX.J1.2 v $xiirv/STRX.J1.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_J1: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.J1.1 # # $Z setenv _____ImageT2 $xTV/STRX.J1.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.J1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.J1 # # # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_paralleles=20" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npp=20" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_meridiens=1200" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npm=80" # # $Z set _____ArgGSurface="$_____ArgGSurface"" fpuv=VRAI" # # $Z set _____ArgGSurface="$_____ArgGSurface"" emeni=FAUX" # # # # Ce sont les memes arguments que pour l'image 'v $xiirs/BKLN.J1.21'... # # # # $Z set _____GSurface=$xrs/bKlein.F1 # # $Z set _____NormaliseSurface=$EXIST # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.J1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.J1$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.J1$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.J1$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_J1: # # # # # # Un entrelacs tridimensionnel {1,1,1} a l'interieur d'un entrelacs de Jeener # # ('v $xiirs/BKLN.J1.1$LUMIN'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:01:50 # # # # $xrv/store_album$X : 00:06:25 # # # # $xci/ombrage.11$X : 00:01:54 # # # # $xci/accumule.42$X : 00:07:36 # # # v $xiav/STRX.J2.1$R16 v $xiav/STRX.J2.1$R64 v $xiav/STRX.J2$COORD_X$R16 v $xiav/STRX.J2$COORD_X$R64 v $xiav/STRX.J2$COORD_Y$R16 v $xiav/STRX.J2$COORD_Y$R64 v $xiav/STRX.J2$COORD_Z$R16 v $xiav/STRX.J2$COORD_Z$R64 v $xiav/STRX.J2.2$R16 v $xiav/STRX.J2.2$R64 v $xiirv/STRX.J2.1 v $xiirv/STRX.J2.2 v $xiirv/STRX.J2.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_J2: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.J2.1 # # $Z setenv _____ImageT2 $xTV/STRX.J2.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=2" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.J2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.J2 # # # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_paralleles=20" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npp=20" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_meridiens=1200" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npm=80" # # $Z set _____ArgGSurface="$_____ArgGSurface"" fpuv=VRAI" # # $Z set _____ArgGSurface="$_____ArgGSurface"" emeni=FAUX" # # # # Ce sont les memes arguments que pour l'image 'v $xiirs/BKLN.J1.21'... # # # # $Z set _____GSurface=$xrs/bKlein.F1 # # $Z set _____NormaliseSurface=$EXIST # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.J2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.J2$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.J2$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.J2$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_J2: # # # # # # Un entrelacs tridimensionnel {2,2,2} a l'interieur d'un entrelacs de Jeener # # ('v $xiirs/BKLN.J1.1$LUMIN'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:14 # # # # $xrv/store_album$X : 00:06:26 # # # # $xci/ombrage.11$X : 00:01:58 # # # # $xci/accumule.42$X : 00:07:43 # # # v $xiav/STRX.J3.1$R16 v $xiav/STRX.J3.1$R64 v $xiav/STRX.J3$COORD_X$R16 v $xiav/STRX.J3$COORD_X$R64 v $xiav/STRX.J3$COORD_Y$R16 v $xiav/STRX.J3$COORD_Y$R64 v $xiav/STRX.J3$COORD_Z$R16 v $xiav/STRX.J3$COORD_Z$R64 v $xiav/STRX.J3.2$R16 v $xiav/STRX.J3.2$R64 v $xiirv/STRX.J3.1 v $xiirv/STRX.J3.2 v $xiirv/STRX.J3.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_J3: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.J3.1 # # $Z setenv _____ImageT2 $xTV/STRX.J3.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=3" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.J3.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.J3 # # # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_paralleles=20" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npp=20" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_meridiens=1200" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npm=80" # # $Z set _____ArgGSurface="$_____ArgGSurface"" fpuv=VRAI" # # $Z set _____ArgGSurface="$_____ArgGSurface"" emeni=FAUX" # # # # Ce sont les memes arguments que pour l'image 'v $xiirs/BKLN.J1.21'... # # # # $Z set _____GSurface=$xrs/bKlein.F1 # # $Z set _____NormaliseSurface=$EXIST # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.J3.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.J3$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.J3$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.J3$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_J3: # # # # # # Un entrelacs tridimensionnel {3,3,3} a l'interieur d'un entrelacs de Jeener # # ('v $xiirs/BKLN.J1.1$LUMIN'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:36 # # # # $xrv/store_album$X : 00:08:26 # # # # $xci/ombrage.11$X : 00:02:45 # # # # $xci/accumule.42$X : 00:09:21 # # # v $xiav/STRX.J4.1$R16 v $xiav/STRX.J4.1$R64 v $xiav/STRX.J4$COORD_X$R16 v $xiav/STRX.J4$COORD_X$R64 v $xiav/STRX.J4$COORD_Y$R16 v $xiav/STRX.J4$COORD_Y$R64 v $xiav/STRX.J4$COORD_Z$R16 v $xiav/STRX.J4$COORD_Z$R64 v $xiav/STRX.J4.2$R16 v $xiav/STRX.J4.2$R64 v $xiirv/STRX.J4.1 v $xiirv/STRX.J4.2 v $xiirv/STRX.J4.21 # Generee (sur '$CMAP28' -ex "porte-d-orleans"-) par : # # # # # # :Debut_listG_STRX_J4: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.J4.1 # # $Z setenv _____ImageT2 $xTV/STRX.J4.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.J4.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.J4 # # # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_paralleles=20" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npp=20" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_meridiens=1200" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npm=80" # # $Z set _____ArgGSurface="$_____ArgGSurface"" fpuv=VRAI" # # $Z set _____ArgGSurface="$_____ArgGSurface"" emeni=FAUX" # # # # Ce sont les memes arguments que pour l'image 'v $xiirs/BKLN.J1.21'... # # # # $Z set _____GSurface=$xrs/bKlein.F1 # # $Z set _____NormaliseSurface=$EXIST # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.J4.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.J4$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.J4$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.J4$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_J4: # # # # # # Un entrelacs tridimensionnel {4,4,4} a l'interieur d'un entrelacs de Jeener # # ('v $xiirs/BKLN.J1.1$LUMIN'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:03:27 # # # # $xrv/store_album$X : 00:08:27 # # # # $xci/ombrage.11$X : 00:02:59 # # # # $xci/accumule.42$X : 00:12:28 # # # v $xiirv/STRX.J1234.1 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_STRX_J1234_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRX.J1234.1 # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z set _____ImageA=$xiirv/STRX.J1.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.J1%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.J1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.J1%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.J1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.J2.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.J2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.J2 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.J2%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.J1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.J3.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.J3%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.J3 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.J3%s \ # # $Z $ArgMontagne \ # # $Z R=$xTV/STRX.J1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.J4.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.J4%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.J4 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.J4%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.J1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.J1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_STRX_J1234_1: # # # v $xiirv/STRX.J1234.1$LUMIN p=$xiP/trou_noir.B4 v $xiirv/STRX.J1234.1$LUMIN p=$xiP/rouge_orang.33 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_STRX_J1234_1_L: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/STRX.J1.1 # # $Z set _____ImageR=$xiirv/STRX.J1234.1$LUMIN # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.J1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.J2.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.J1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.J3.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z R=$xTV/STRX.J1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.J4.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.J1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.J1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.J1234.1%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.J1234.1 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_STRX_J1234_1_L: # # # v $xiav/STRX.K1.1$R16 v $xiav/STRX.K1.1$R64 v $xiav/STRX.K1$COORD_X$R16 v $xiav/STRX.K1$COORD_X$R64 v $xiav/STRX.K1$COORD_Y$R16 v $xiav/STRX.K1$COORD_Y$R64 v $xiav/STRX.K1$COORD_Z$R16 v $xiav/STRX.K1$COORD_Z$R64 v $xiav/STRX.K1.2$R16 v $xiav/STRX.K1.2$R64 v $xiirv/STRX.K1.1 v $xiirv/STRX.K1.2 v $xiirv/STRX.K1.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_K1: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.K1.1 # # $Z setenv _____ImageT2 $xTV/STRX.K1.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.K1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.K1 # # # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_paralleles=40" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npp=20" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_meridiens=400" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npm=80" # # $Z set _____ArgGSurface="$_____ArgGSurface"" fpuv=VRAI" # # $Z set _____ArgGSurface="$_____ArgGSurface"" emeni=FAUX" # # # # Ce sont les memes arguments que pour l'image 'v $xiirs/TRIT.11.21'... # # # # $Z set _____GSurface=$xrs/triton.11 # # $Z set _____NormaliseSurface=$EXIST # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.K1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.K1$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.K1$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.K1$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_K1: # # # # # # Un entrelacs tridimensionnel {1,1,1} a l'interieur du triton de Jeener # # ('v $xiirs/TRIT.11.21'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:01:39 # # # # $xrv/store_album$X : 00:06:25 # # # # $xci/ombrage.11$X : 00:01:26 # # # # $xci/accumule.42$X : 00:07:13 # # # v $xiav/STRX.K2.1$R16 v $xiav/STRX.K2.1$R64 v $xiav/STRX.K2$COORD_X$R16 v $xiav/STRX.K2$COORD_X$R64 v $xiav/STRX.K2$COORD_Y$R16 v $xiav/STRX.K2$COORD_Y$R64 v $xiav/STRX.K2$COORD_Z$R16 v $xiav/STRX.K2$COORD_Z$R64 v $xiav/STRX.K2.2$R16 v $xiav/STRX.K2.2$R64 v $xiirv/STRX.K2.1 v $xiirv/STRX.K2.2 v $xiirv/STRX.K2.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_K2: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.K2.1 # # $Z setenv _____ImageT2 $xTV/STRX.K2.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=2" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.K2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.K2 # # # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_paralleles=40" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npp=20" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_meridiens=400" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npm=80" # # $Z set _____ArgGSurface="$_____ArgGSurface"" fpuv=VRAI" # # $Z set _____ArgGSurface="$_____ArgGSurface"" emeni=FAUX" # # # # Ce sont les memes arguments que pour l'image 'v $xiirs/TRIT.11.21'... # # # # $Z set _____GSurface=$xrs/triton.11 # # $Z set _____NormaliseSurface=$EXIST # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.K2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.K2$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.K2$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.K2$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_K2: # # # # # # Un entrelacs tridimensionnel {2,2,2} a l'interieur du triton de Jeener # # ('v $xiirs/TRIT.11.21'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:20 # # # # $xrv/store_album$X : 00:08:18 # # # # $xci/ombrage.11$X : 00:02:09 # # # # $xci/accumule.42$X : 00:08:41 # # # v $xiav/STRX.K3.1$R16 v $xiav/STRX.K3.1$R64 v $xiav/STRX.K3$COORD_X$R16 v $xiav/STRX.K3$COORD_X$R64 v $xiav/STRX.K3$COORD_Y$R16 v $xiav/STRX.K3$COORD_Y$R64 v $xiav/STRX.K3$COORD_Z$R16 v $xiav/STRX.K3$COORD_Z$R64 v $xiav/STRX.K3.2$R16 v $xiav/STRX.K3.2$R64 v $xiirv/STRX.K3.1 v $xiirv/STRX.K3.2 v $xiirv/STRX.K3.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_K3: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.K3.1 # # $Z setenv _____ImageT2 $xTV/STRX.K3.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=3" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.K3.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.K3 # # # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_paralleles=40" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npp=20" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_meridiens=400" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npm=80" # # $Z set _____ArgGSurface="$_____ArgGSurface"" fpuv=VRAI" # # $Z set _____ArgGSurface="$_____ArgGSurface"" emeni=FAUX" # # # # Ce sont les memes arguments que pour l'image 'v $xiirs/TRIT.11.21'... # # # # $Z set _____GSurface=$xrs/triton.11 # # $Z set _____NormaliseSurface=$EXIST # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.K3.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.K3$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.K3$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.K3$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_K3: # # # # # # Un entrelacs tridimensionnel {3,3,3} a l'interieur du triton de Jeener # # ('v $xiirs/TRIT.11.21'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:17 # # # # $xrv/store_album$X : 00:06:26 # # # # $xci/ombrage.11$X : 00:01:49 # # # # $xci/accumule.42$X : 00:07:28 # # # v $xiav/STRX.K4.1$R16 v $xiav/STRX.K4.1$R64 v $xiav/STRX.K4$COORD_X$R16 v $xiav/STRX.K4$COORD_X$R64 v $xiav/STRX.K4$COORD_Y$R16 v $xiav/STRX.K4$COORD_Y$R64 v $xiav/STRX.K4$COORD_Z$R16 v $xiav/STRX.K4$COORD_Z$R64 v $xiav/STRX.K4.2$R16 v $xiav/STRX.K4.2$R64 v $xiirv/STRX.K4.1 v $xiirv/STRX.K4.2 v $xiirv/STRX.K4.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_K4: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.K4.1 # # $Z setenv _____ImageT2 $xTV/STRX.K4.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.K4.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.K4 # # # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_paralleles=40" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npp=20" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_meridiens=400" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npm=80" # # $Z set _____ArgGSurface="$_____ArgGSurface"" fpuv=VRAI" # # $Z set _____ArgGSurface="$_____ArgGSurface"" emeni=FAUX" # # # # Ce sont les memes arguments que pour l'image 'v $xiirs/TRIT.11.21'... # # # # $Z set _____GSurface=$xrs/triton.11 # # $Z set _____NormaliseSurface=$EXIST # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.K4.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$_____ImagesR # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.K4$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.K4$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.K4$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_K4: # # # # # # Un entrelacs tridimensionnel {4,4,4} a l'interieur du triton de Jeener # # ('v $xiirs/TRIT.11.21'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:38 # # # # $xrv/store_album$X : 00:08:30 # # # # $xci/ombrage.11$X : 00:02:26 # # # # $xci/accumule.42$X : 00:09:03 # # # v $xiirv/STRX.K1234.1 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_STRX_K1234_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRX.K1234.1 # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z set _____ImageA=$xiirv/STRX.K1.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.K1%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.K1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.K1%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.K1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.K2.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.K2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.K2 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.K2%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.K1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.K3.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.K3%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.K3 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.K3%s \ # # $Z $ArgMontagne \ # # $Z R=$xTV/STRX.K1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.K4.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.K4%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.K4 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.K4%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.K1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.K1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_STRX_K1234_1: # # # v $xiirv/STRX.K1234.1$LUMIN p=$xiP/trou_noir.B4 v $xiirv/STRX.K1234.1$LUMIN p=$xiP/rouge_orang.33 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_STRX_K1234_1_L: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/STRX.K1.1 # # $Z set _____ImageR=$xiirv/STRX.K1234.1$LUMIN # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.K1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.K2.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.K1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.K3.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z R=$xTV/STRX.K1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.K4.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.K1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.K1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.K1234.1%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.K1234.1 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_STRX_K1234_1_L: # # # v $xiav/STRX.L1.1$R16 v $xiav/STRX.L1.1$R64 v $xiav/STRX.L1$COORD_X$R16 v $xiav/STRX.L1$COORD_X$R64 v $xiav/STRX.L1$COORD_Y$R16 v $xiav/STRX.L1$COORD_Y$R64 v $xiav/STRX.L1$COORD_Z$R16 v $xiav/STRX.L1$COORD_Z$R64 v $xiav/STRX.L1.2$R16 v $xiav/STRX.L1.2$R64 v $xiirv/STRX.L1.1 v $xiirv/STRX.L1.2 v $xiirv/STRX.L1.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_L1: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.L1.1 # # $Z setenv _____ImageT2 $xTV/STRX.L1.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # $m4 _____include(_____xiirf/.MENG.31.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.L1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.L1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.L1 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.L1$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.L1$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.L1$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_L1: # # # # # # Un entrelacs tridimensionnel {1,1,1} fait d'une coupe tres etonnante dans l'eponge de # # Menger -iteration 5- ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere # # ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:02 # # # # $xci/ombrage.11$X : 00:02:38 # # # # $xci/accumule.42$X : 00:09:26 # # # v $xiav/STRX.L2.1$R16 v $xiav/STRX.L2.1$R64 v $xiav/STRX.L2$COORD_X$R16 v $xiav/STRX.L2$COORD_X$R64 v $xiav/STRX.L2$COORD_Y$R16 v $xiav/STRX.L2$COORD_Y$R64 v $xiav/STRX.L2$COORD_Z$R16 v $xiav/STRX.L2$COORD_Z$R64 v $xiav/STRX.L2.2$R16 v $xiav/STRX.L2.2$R64 v $xiirv/STRX.L2.1 v $xiirv/STRX.L2.2 v $xiirv/STRX.L2.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_L2: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.L2.1 # # $Z setenv _____ImageT2 $xTV/STRX.L2.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # $m4 _____include(_____xiirf/.MENG.31.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=2" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.L2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.L2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.L2 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.L2$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.L2$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.L2$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_L2: # # # # # # Un entrelacs tridimensionnel {2,2,2} fait d'une coupe tres etonnante dans l'eponge de # # Menger -iteration 5- ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere # # ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:22 # # # # $xci/ombrage.11$X : 00:02:22 # # # # $xci/accumule.42$X : 00:09:36 # # # v $xiav/STRX.L3.1$R16 v $xiav/STRX.L3.1$R64 v $xiav/STRX.L3$COORD_X$R16 v $xiav/STRX.L3$COORD_X$R64 v $xiav/STRX.L3$COORD_Y$R16 v $xiav/STRX.L3$COORD_Y$R64 v $xiav/STRX.L3$COORD_Z$R16 v $xiav/STRX.L3$COORD_Z$R64 v $xiav/STRX.L3.2$R16 v $xiav/STRX.L3.2$R64 v $xiirv/STRX.L3.1 v $xiirv/STRX.L3.2 v $xiirv/STRX.L3.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_L3: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.L3.1 # # $Z setenv _____ImageT2 $xTV/STRX.L3.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # $m4 _____include(_____xiirf/.MENG.31.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=3" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.L3.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.L3.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.L3 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.L3$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.L3$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.L3$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_L3: # # # # # # Un entrelacs tridimensionnel {3,3,3} fait d'une coupe tres etonnante dans l'eponge de # # Menger -iteration 5- ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere # # ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:28 # # # # $xci/ombrage.11$X : 00:03:36 # # # # $xci/accumule.42$X : 00:10:24 # # # v $xiav/STRX.L4.1$R16 v $xiav/STRX.L4.1$R64 v $xiav/STRX.L4$COORD_X$R16 v $xiav/STRX.L4$COORD_X$R64 v $xiav/STRX.L4$COORD_Y$R16 v $xiav/STRX.L4$COORD_Y$R64 v $xiav/STRX.L4$COORD_Z$R16 v $xiav/STRX.L4$COORD_Z$R64 v $xiav/STRX.L4.2$R16 v $xiav/STRX.L4.2$R64 v $xiirv/STRX.L4.1 v $xiirv/STRX.L4.2 v $xiirv/STRX.L4.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_L4: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.L4.1 # # $Z setenv _____ImageT2 $xTV/STRX.L4.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # $m4 _____include(_____xiirf/.MENG.31.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.L4.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.L4.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.L4 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.L4$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.L4$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.L4$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_L4: # # # # # # Un entrelacs tridimensionnel {4,4,4} fait d'une coupe tres etonnante dans l'eponge de # # Menger -iteration 5- ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere # # ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:36 # # # # $xci/ombrage.11$X : 00:03:21 # # # # $xci/accumule.42$X : 00:10:04 # # # v $xiirv/STRX.L1234.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_L1234_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRX.L1234.1 # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z set _____ImageA=$xiirv/STRX.L1.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.L1%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.L1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.L1%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.L1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.L2.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.L2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.L2 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.L2%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.L1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.L3.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.L3%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.L3 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.L3%s \ # # $Z $ArgMontagne \ # # $Z R=$xTV/STRX.L1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.L4.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.L4%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.L4 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.L4%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.L1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.L1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_STRX_L1234_1: # # # v $xiirv/STRX.L1234.1$LUMIN p=$xiP/trou_noir.B4 v $xiirv/STRX.L1234.1$LUMIN p=$xiP/rouge_orang.33 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_L1234_1_L: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/STRX.L1.1 # # $Z set _____ImageR=$xiirv/STRX.L1234.1$LUMIN # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.L1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.L2.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.L1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.L3.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z R=$xTV/STRX.L1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.L4.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.L1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.L1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.L1234.1%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.L1234.1 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_STRX_L1234_1_L: # # # v $xiav/STRX.M1.1$R16 v $xiav/STRX.M1.1$R64 v $xiav/STRX.M1$COORD_X$R16 v $xiav/STRX.M1$COORD_X$R64 v $xiav/STRX.M1$COORD_Y$R16 v $xiav/STRX.M1$COORD_Y$R64 v $xiav/STRX.M1$COORD_Z$R16 v $xiav/STRX.M1$COORD_Z$R64 v $xiav/STRX.M1.2$R16 v $xiav/STRX.M1.2$R64 v $xiirv/STRX.M1.0 v $xiirv/STRX.M1.1 v $xiirv/STRX.M1.2 v $xiirv/STRX.M1.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_M1: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.M1.1 # # $Z setenv _____ImageT2 $xTV/STRX.M1.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____imagesR=$xiirv/STRX.M1 # # $m4 _____include(_____xiirv/.STRX.M1.1._____U) # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z SET Premiere=$cPremiere # # $Z SET Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.M1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.M1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.M1$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.M1$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.M1$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_M1: # # # # # # Un entrelacs tridimensionnel {1,1,1} fait d'un reseau cubique tridimensionnel # # ('v $xiirv/STRX.M1.0') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:01 # # # # $xci/ombrage.11$X : 00:02:59 # # # # $xci/accumule.42$X : 00:09:57 # # # v $xiav/STRX.M2.1$R16 v $xiav/STRX.M2.1$R64 v $xiav/STRX.M2$COORD_X$R16 v $xiav/STRX.M2$COORD_X$R64 v $xiav/STRX.M2$COORD_Y$R16 v $xiav/STRX.M2$COORD_Y$R64 v $xiav/STRX.M2$COORD_Z$R16 v $xiav/STRX.M2$COORD_Z$R64 v $xiav/STRX.M2.2$R16 v $xiav/STRX.M2.2$R64 v $xiirv/STRX.M2.0 v $xiirv/STRX.M2.1 v $xiirv/STRX.M2.2 v $xiirv/STRX.M2.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_M2: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.M2.1 # # $Z setenv _____ImageT2 $xTV/STRX.M2.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____imagesR=$xiirv/STRX.M2 # # $m4 _____include(_____xiirv/.STRX.M1.1._____U) # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=2" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z SET Premiere=$cPremiere # # $Z SET Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.M2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.M2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.M2$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.M2$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.M2$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_M2: # # # # # # Un entrelacs tridimensionnel {2,2,2} fait d'un reseau cubique tridimensionnel # # ('v $xiirv/STRX.M1.0') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:18 # # # # $xci/ombrage.11$X : 00:02:42 # # # # $xci/accumule.42$X : 00:09:14 # # # v $xiav/STRX.M3.1$R16 v $xiav/STRX.M3.1$R64 v $xiav/STRX.M3$COORD_X$R16 v $xiav/STRX.M3$COORD_X$R64 v $xiav/STRX.M3$COORD_Y$R16 v $xiav/STRX.M3$COORD_Y$R64 v $xiav/STRX.M3$COORD_Z$R16 v $xiav/STRX.M3$COORD_Z$R64 v $xiav/STRX.M3.2$R16 v $xiav/STRX.M3.2$R64 v $xiirv/STRX.M3.0 v $xiirv/STRX.M3.1 v $xiirv/STRX.M3.2 v $xiirv/STRX.M3.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_M3: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.M3.1 # # $Z setenv _____ImageT2 $xTV/STRX.M3.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____imagesR=$xiirv/STRX.M3 # # $m4 _____include(_____xiirv/.STRX.M1.1._____U) # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=3" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z SET Premiere=$cPremiere # # $Z SET Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.M3.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.M3.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.M3$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.M3$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.M3$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_M3: # # # # # # Un entrelacs tridimensionnel {3,3,3} fait d'un reseau cubique tridimensionnel # # ('v $xiirv/STRX.M1.0') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:30 # # # # $xci/ombrage.11$X : 00:03:47 # # # # $xci/accumule.42$X : 00:10:17 # # # v $xiav/STRX.M4.1$R16 v $xiav/STRX.M4.1$R64 v $xiav/STRX.M4$COORD_X$R16 v $xiav/STRX.M4$COORD_X$R64 v $xiav/STRX.M4$COORD_Y$R16 v $xiav/STRX.M4$COORD_Y$R64 v $xiav/STRX.M4$COORD_Z$R16 v $xiav/STRX.M4$COORD_Z$R64 v $xiav/STRX.M4.2$R16 v $xiav/STRX.M4.2$R64 v $xiirv/STRX.M4.0 v $xiirv/STRX.M4.1 v $xiirv/STRX.M4.2 v $xiirv/STRX.M4.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_M4: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.M4.1 # # $Z setenv _____ImageT2 $xTV/STRX.M4.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____imagesR=$xiirv/STRX.M4 # # $m4 _____include(_____xiirv/.STRX.M1.1._____U) # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z SET Premiere=$cPremiere # # $Z SET Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.M4.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.M4.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.M4$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.M4$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.M4$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_M4: # # # # # # Un entrelacs tridimensionnel {4,4,4} fait d'un reseau cubique tridimensionnel # # ('v $xiirv/STRX.M1.0') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:39 # # # # $xci/ombrage.11$X : 00:03:18 # # # # $xci/accumule.42$X : 00:08:34 # # # v $xiirv/STRX.M1234.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_M1234_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRX.M1234.1 # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z set _____ImageA=$xiirv/STRX.M1.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.M1%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.M1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.M1%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.M1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.M2.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.M2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.M2 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.M2%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.M1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.M3.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.M3%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.M3 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.M3%s \ # # $Z $ArgMontagne \ # # $Z R=$xTV/STRX.M1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.M4.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.M4%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.M4 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.M4%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.M1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.M1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_STRX_M1234_1: # # # v $xiirv/STRX.M1234.1$LUMIN p=$xiP/trou_noir.B4 v $xiirv/STRX.M1234.1$LUMIN p=$xiP/rouge_orang.33 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_M1234_1_L: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/STRX.M1.1 # # $Z set _____ImageR=$xiirv/STRX.M1234.1$LUMIN # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.M1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.M2.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.M1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.M3.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z R=$xTV/STRX.M1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.M4.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.M1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.M1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.M1234.1%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.M1234.1 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_STRX_M1234_1_L: # # # v $xiav/STRX.N1.1$R16 v $xiav/STRX.N1.1$R64 v $xiav/STRX.N1$COORD_X$R16 v $xiav/STRX.N1$COORD_X$R64 v $xiav/STRX.N1$COORD_Y$R16 v $xiav/STRX.N1$COORD_Y$R64 v $xiav/STRX.N1$COORD_Z$R16 v $xiav/STRX.N1$COORD_Z$R64 v $xiav/STRX.N1.2$R16 v $xiav/STRX.N1.2$R64 v $xiirv/STRX.N1.1 v $xiirv/STRX.N1.2 v $xiirv/STRX.N1.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_N1: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.N1.1 # # $Z setenv _____ImageT2 $xTV/STRX.N1.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.N1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.N1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.N1 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.N1$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.N1$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.N1$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_N1: # # # # # # Un entrelacs tridimensionnel {1,1,1} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:01:42 # # # # $xci/ombrage.11$X : 00:03:07 # # # # $xci/accumule.42$X : 00:11:09 # # # v $xiav/STRX.N2.1$R16 v $xiav/STRX.N2.1$R64 v $xiav/STRX.N2$COORD_X$R16 v $xiav/STRX.N2$COORD_X$R64 v $xiav/STRX.N2$COORD_Y$R16 v $xiav/STRX.N2$COORD_Y$R64 v $xiav/STRX.N2$COORD_Z$R16 v $xiav/STRX.N2$COORD_Z$R64 v $xiav/STRX.N2.2$R16 v $xiav/STRX.N2.2$R64 v $xiirv/STRX.N2.1 v $xiirv/STRX.N2.2 v $xiirv/STRX.N2.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_N2: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.N2.1 # # $Z setenv _____ImageT2 $xTV/STRX.N2.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=2" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.N2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.N2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.N2 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.N2$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.N2$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.N2$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_N2: # # # # # # Un entrelacs tridimensionnel {2,2,2} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:22 # # # # $xci/ombrage.11$X : 00:03:49 # # # # $xci/accumule.42$X : 00:13:07 # # # v $xiav/STRX.N3.1$R16 v $xiav/STRX.N3.1$R64 v $xiav/STRX.N3$COORD_X$R16 v $xiav/STRX.N3$COORD_X$R64 v $xiav/STRX.N3$COORD_Y$R16 v $xiav/STRX.N3$COORD_Y$R64 v $xiav/STRX.N3$COORD_Z$R16 v $xiav/STRX.N3$COORD_Z$R64 v $xiav/STRX.N3.2$R16 v $xiav/STRX.N3.2$R64 v $xiirv/STRX.N3.1 v $xiirv/STRX.N3.2 v $xiirv/STRX.N3.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_N3: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.N3.1 # # $Z setenv _____ImageT2 $xTV/STRX.N3.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=3" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.N3.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.N3.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.N3 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.N3$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.N3$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.N3$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_N3: # # # # # # Un entrelacs tridimensionnel {3,3,3} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:29 # # # # $xci/ombrage.11$X : 00:04:04 # # # # $xci/accumule.42$X : 00:12:46 # # # v $xiav/STRX.N4.1$R16 v $xiav/STRX.N4.1$R64 v $xiav/STRX.N4$COORD_X$R16 v $xiav/STRX.N4$COORD_X$R64 v $xiav/STRX.N4$COORD_Y$R16 v $xiav/STRX.N4$COORD_Y$R64 v $xiav/STRX.N4$COORD_Z$R16 v $xiav/STRX.N4$COORD_Z$R64 v $xiav/STRX.N4.2$R16 v $xiav/STRX.N4.2$R64 v $xiirv/STRX.N4.1 v $xiirv/STRX.N4.2 v $xiirv/STRX.N4.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_N4: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.N4.1 # # $Z setenv _____ImageT2 $xTV/STRX.N4.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.N4.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.N4.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.N4 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.N4$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.N4$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.N4$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_N4: # # # # # # Un entrelacs tridimensionnel {4,4,4} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:22 # # # # $xci/ombrage.11$X : 00:03:29 # # # # $xci/accumule.42$X : 00:11:18 # # # v $xiirv/STRX.N1234.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_N1234_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRX.N1234.1 # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z set _____ImageA=$xiirv/STRX.N1.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.N1%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.N1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.N1%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.N1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.N2.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.N2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.N2 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.N2%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.N1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.N3.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.N3%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.N3 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.N3%s \ # # $Z $ArgMontagne \ # # $Z R=$xTV/STRX.N1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.N4.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.N4%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.N4 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.N4%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.N1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.N1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_STRX_N1234_1: # # # v $xiirv/STRX.N1234.1$LUMIN p=$xiP/trou_noir.B4 v $xiirv/STRX.N1234.1$LUMIN p=$xiP/rouge_orang.33 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_N1234_1_L: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/STRX.N1.1 # # $Z set _____ImageR=$xiirv/STRX.N1234.1$LUMIN # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.N1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.N2.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.N1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.N3.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z R=$xTV/STRX.N1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.N4.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.N1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.N1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.N1234.1%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.N1234.1 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_STRX_N1234_1_L: # # # v $xiav/STRX.N9.1$R16 v $xiav/STRX.N9.1$R64 v $xiav/STRX.N9$COORD_X$R16 v $xiav/STRX.N9$COORD_X$R64 v $xiav/STRX.N9$COORD_Y$R16 v $xiav/STRX.N9$COORD_Y$R64 v $xiav/STRX.N9$COORD_Z$R16 v $xiav/STRX.N9$COORD_Z$R64 v $xiav/STRX.N9.2$R16 v $xiav/STRX.N9.2$R64 v $xiirv/STRX.N9.1 v $xiirv/STRX.N9.1$LUMIN p=$xiP/enfer.43 v $xiirv/STRX.N9.2 v $xiirv/STRX.N9.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_N9: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.N9.1 # # $Z setenv _____ImageT2 $xTV/STRX.N9.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=0.5" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=0.5" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=0.5" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. On notera que j'ai essaye des {mxx,myy} # # plus petits que 1.0 (0.8 et 0.5 par exemple) et cela ne donne que du NOIR. Ce probleme # # semble lie a l'eponge de Menger puisqu'en effet, j'ai teste mxx=myy=mzz=0.5 avec succes # # pour 'v $xiirv/STRX.M1.21'. Ce n'est pas non plus la coupe spherique qui suit dans # # 'v $xiirv/.STRX.31.2.$U' qui est responsable. Je crois avoir compris : ces tests avec # # des petis {mxx,myy} avait ete faits avec le format 'Sud'. L'eponge de Menger alors generee, # # sauf pour '_____MIterations=0', devait se reduire au cube central qui est vide (et donc # # NOIR...), cette "reduction" etant due a 'v $xiirf/.MENG.11.1.$U mode=7"... # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.N9.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.N9.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.N9 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____imagesR.1 \ # # $Z R=$_____imagesR.1$LUMIN \ # # $Z $formatI # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.N9$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.N9$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.N9$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_N9: # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:01:37 # # # # $xci/ombrage.11$X : 00:02:47 # # # # $xci/accumule.42$X : 00:14:23 # # # v $xiav/STRX.O1.1$R16 v $xiav/STRX.O1.1$R64 v $xiav/STRX.O1$COORD_X$R16 v $xiav/STRX.O1$COORD_X$R64 v $xiav/STRX.O1$COORD_Y$R16 v $xiav/STRX.O1$COORD_Y$R64 v $xiav/STRX.O1$COORD_Z$R16 v $xiav/STRX.O1$COORD_Z$R64 v $xiav/STRX.O1.2$R16 v $xiav/STRX.O1.2$R64 v $xiirv/STRX.O1.1 v $xiirv/STRX.O1.2 v $xiirv/STRX.O1.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_O1: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.O1.1 # # $Z setenv _____ImageT2 $xTV/STRX.O1.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z SET _____OJ=-1.070 # # $Z SET _____EJ=+1.120 # # $Z SET _____Puissance=4 # # $Z SET _____PuissanceR=0 # # $Z SET _____PuissanceA=0 # # $Z SET _____PuissanceA1=0 # # $Z SET _____PuissanceA2=1 # # $Z SET _____PuissanceA3=2 # # $Z SET _____PuissanceA4=3 # # $Z SET _____PuissanceA5=4 # # $Z SET _____PuissanceA6=5 # # $Z SET _____PuissanceA7=6 # # $Z SET _____JRotationX=+0.7 # # $m4 _____include(_____xiirc/.JULJ.N2.1._____U) # # # # Ces parametres sont ceux qui definissent 'v $xiirc/JULJ.U5.21' # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.O1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.O1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.O1 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.O1$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.O1$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.O1$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_O1: # # # # # # Un entrelacs tridimensionnel {1,1,1} fait d'une section tridimensionnelle dans un ensemble # # de Julia dans l'ensemble des pseudo-octonions ('v $xiirc/JULJ.U5.21') a l'interieur d'une # # sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:01:38 # # # # $xci/ombrage.11$X : 00:03:04 # # # # $xci/accumule.42$X : 00:10:11 # # # v $xiav/STRX.O2.1$R16 v $xiav/STRX.O2.1$R64 v $xiav/STRX.O2$COORD_X$R16 v $xiav/STRX.O2$COORD_X$R64 v $xiav/STRX.O2$COORD_Y$R16 v $xiav/STRX.O2$COORD_Y$R64 v $xiav/STRX.O2$COORD_Z$R16 v $xiav/STRX.O2$COORD_Z$R64 v $xiav/STRX.O2.2$R16 v $xiav/STRX.O2.2$R64 v $xiirv/STRX.O2.1 v $xiirv/STRX.O2.2 v $xiirv/STRX.O2.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_O2: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.O2.1 # # $Z setenv _____ImageT2 $xTV/STRX.O2.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z SET _____OJ=-1.070 # # $Z SET _____EJ=+1.120 # # $Z SET _____Puissance=4 # # $Z SET _____PuissanceR=0 # # $Z SET _____PuissanceA=0 # # $Z SET _____PuissanceA1=0 # # $Z SET _____PuissanceA2=1 # # $Z SET _____PuissanceA3=2 # # $Z SET _____PuissanceA4=3 # # $Z SET _____PuissanceA5=4 # # $Z SET _____PuissanceA6=5 # # $Z SET _____PuissanceA7=6 # # $Z SET _____JRotationX=+0.7 # # $m4 _____include(_____xiirc/.JULJ.N2.1._____U) # # # # Ces parametres sont ceux qui definissent 'v $xiirc/JULJ.U5.21' # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=2" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.O2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.O2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.O2 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.O2$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.O2$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.O2$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_O2: # # # # # # Un entrelacs tridimensionnel {2,2,2} fait d'une section tridimensionnelle dans un ensemble # # de Julia dans l'ensemble des pseudo-octonions ('v $xiirc/JULJ.U5.21') a l'interieur d'une # # sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:24 # # # # $xci/ombrage.11$X : 00:03:57 # # # # $xci/accumule.42$X : 00:12:35 # # # v $xiav/STRX.P1.1$R16 v $xiav/STRX.P1.1$R64 v $xiav/STRX.P1$COORD_X$R16 v $xiav/STRX.P1$COORD_X$R64 v $xiav/STRX.P1$COORD_Y$R16 v $xiav/STRX.P1$COORD_Y$R64 v $xiav/STRX.P1$COORD_Z$R16 v $xiav/STRX.P1$COORD_Z$R64 v $xiav/STRX.P1.2$R16 v $xiav/STRX.P1.2$R64 v $xiirv/STRX.P1.1 v $xiirv/STRX.P1.2 v $xiirv/STRX.P1.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_STRX_P1: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.P1.1 # # $Z setenv _____ImageT2 $xTV/STRX.P1.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____ParamMenger="$K_VIDE" # # $Z set _____ParamMenger="$_____ParamMenger"" lc=" # # $Z set _____ParamMenger="$_____ParamMenger""STTTFTTTTTFTFFFTFTTTTTFTTTS" # # $Z set _____ParamMenger="$_____ParamMenger""FFFFSFFFFFTFTSTFTFFFFFSFFFF" # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.P1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.P1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.P1 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.P1$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.P1$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.P1$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_P1: # # # # # # Un entrelacs tridimensionnel {1,1,1} fait d'une eponge de Menger generalisee -iteration 5- # # ('v $xiirf/MENG.o1.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:01:45 # # # # $xci/ombrage.11$X : 00:02:20 # # # # $xci/accumule.42$X : 00:08:55 # # # v $xiav/STRX.P2.1$R16 v $xiav/STRX.P2.1$R64 v $xiav/STRX.P2$COORD_X$R16 v $xiav/STRX.P2$COORD_X$R64 v $xiav/STRX.P2$COORD_Y$R16 v $xiav/STRX.P2$COORD_Y$R64 v $xiav/STRX.P2$COORD_Z$R16 v $xiav/STRX.P2$COORD_Z$R64 v $xiav/STRX.P2.2$R16 v $xiav/STRX.P2.2$R64 v $xiirv/STRX.P2.1 v $xiirv/STRX.P2.2 v $xiirv/STRX.P2.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_P2: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.P2.1 # # $Z setenv _____ImageT2 $xTV/STRX.P2.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____ParamMenger="$K_VIDE" # # $Z set _____ParamMenger="$_____ParamMenger"" lc=" # # $Z set _____ParamMenger="$_____ParamMenger""STTTFTTTTTFTFFFTFTTTTTFTTTS" # # $Z set _____ParamMenger="$_____ParamMenger""FFFFSFFFFFTFTSTFTFFFFFSFFFF" # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=2" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.P2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.P2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.P2 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.P2$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.P2$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.P2$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_P2: # # # # # # Un entrelacs tridimensionnel {2,2,2} fait d'une eponge de Menger generalisee -iteration 5- # # ('v $xiirf/MENG.o1.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:49 # # # # $xci/ombrage.11$X : 00:03:27 # # # # $xci/accumule.42$X : 00:12:48 # # # v $xiav/STRX.P3.1$R16 v $xiav/STRX.P3.1$R64 v $xiav/STRX.P3$COORD_X$R16 v $xiav/STRX.P3$COORD_X$R64 v $xiav/STRX.P3$COORD_Y$R16 v $xiav/STRX.P3$COORD_Y$R64 v $xiav/STRX.P3$COORD_Z$R16 v $xiav/STRX.P3$COORD_Z$R64 v $xiav/STRX.P3.2$R16 v $xiav/STRX.P3.2$R64 v $xiirv/STRX.P3.1 v $xiirv/STRX.P3.2 v $xiirv/STRX.P3.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_STRX_P3: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.P3.1 # # $Z setenv _____ImageT2 $xTV/STRX.P3.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____ParamMenger="$K_VIDE" # # $Z set _____ParamMenger="$_____ParamMenger"" lc=" # # $Z set _____ParamMenger="$_____ParamMenger""STTTFTTTTTFTFFFTFTTTTTFTTTS" # # $Z set _____ParamMenger="$_____ParamMenger""FFFFSFFFFFTFTSTFTFFFFFSFFFF" # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=3" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.P3.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.P3.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.P3 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.P3$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.P3$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.P3$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_P3: # # # # # # Un entrelacs tridimensionnel {3,3,3} fait d'une eponge de Menger generalisee -iteration 5- # # ('v $xiirf/MENG.o1.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:22 # # # # $xci/ombrage.11$X : 00:02:26 # # # # $xci/accumule.42$X : 00:07:57 # # # v $xiav/STRX.P4.1$R16 v $xiav/STRX.P4.1$R64 v $xiav/STRX.P4$COORD_X$R16 v $xiav/STRX.P4$COORD_X$R64 v $xiav/STRX.P4$COORD_Y$R16 v $xiav/STRX.P4$COORD_Y$R64 v $xiav/STRX.P4$COORD_Z$R16 v $xiav/STRX.P4$COORD_Z$R64 v $xiav/STRX.P4.2$R16 v $xiav/STRX.P4.2$R64 v $xiirv/STRX.P4.1 v $xiirv/STRX.P4.2 v $xiirv/STRX.P4.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_P4: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.P4.1 # # $Z setenv _____ImageT2 $xTV/STRX.P4.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____ParamMenger="$K_VIDE" # # $Z set _____ParamMenger="$_____ParamMenger"" lc=" # # $Z set _____ParamMenger="$_____ParamMenger""STTTFTTTTTFTFFFTFTTTTTFTTTS" # # $Z set _____ParamMenger="$_____ParamMenger""FFFFSFFFFFTFTSTFTFFFFFSFFFF" # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.P4.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.P4.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.P4 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.P4$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.P4$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.P4$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_P4: # # # # # # Un entrelacs tridimensionnel {4,4,4} fait d'une eponge de Menger generalisee -iteration 5- # # ('v $xiirf/MENG.o1.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:59 # # # # $xci/ombrage.11$X : 00:03:59 # # # # $xci/accumule.42$X : 00:12:24 # # # v $xiirv/STRX.P1234.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_P1234_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRX.P1234.1 # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z set _____ImageA=$xiirv/STRX.P1.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.P1%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.P1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.P1%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.P1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.P2.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.P2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.P2 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.P2%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.P1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.P3.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.P3%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.P3 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.P3%s \ # # $Z $ArgMontagne \ # # $Z R=$xTV/STRX.P1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.P4.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.P4%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.P4 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.P4%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.P1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.P1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_STRX_P1234_1: # # # v $xiirv/STRX.P1234.1$LUMIN p=$xiP/trou_noir.B4 v $xiirv/STRX.P1234.1$LUMIN p=$xiP/rouge_orang.33 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_P1234_1_L: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/STRX.P1.1 # # $Z set _____ImageR=$xiirv/STRX.P1234.1$LUMIN # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.P1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.P2.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.P1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.P3.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z R=$xTV/STRX.P1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.P4.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.P1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.P1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.P1234.1%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.P1234.1 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_STRX_P1234_1_L: # # # v $xiav/STRX.Q1.1$R16 v $xiav/STRX.Q1.1$R64 v $xiav/STRX.Q1$COORD_X$R16 v $xiav/STRX.Q1$COORD_X$R64 v $xiav/STRX.Q1$COORD_Y$R16 v $xiav/STRX.Q1$COORD_Y$R64 v $xiav/STRX.Q1$COORD_Z$R16 v $xiav/STRX.Q1$COORD_Z$R64 v $xiav/STRX.Q1.2$R16 v $xiav/STRX.Q1.2$R64 v $xiirv/STRX.Q1.0 v $xiirv/STRX.Q1.1 v $xiirv/STRX.Q1.2 v $xiirv/STRX.Q1.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_Q1: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.Q1.1 # # $Z setenv _____ImageT2 $xTV/STRX.Q1.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____imagesR=$xiirv/STRX.Q1 # # $Z set _____ImagesR=$_____imagesR # # # # $Z set GSuRfAcE=$xrs/opera.11$X # # # # $Z FilSTmpB FLiStEP # # # # $Z set PaRaMeTrEs_2="$K_VIDE" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" np=1 brume=FAUX" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" ROTATION_OX=0.9" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" ZOOM=0.025" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" Lz=1000" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" emeni=FAUX" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" editer_extrema_hors=FAUX" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" chiffres=0" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" N_AU_CARRE=FAUX" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" lister_les_points=VRAI" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" lister_les_points_apres=VRAI" # # # # $Z $GSuRfAcE \ # # $Z nombre_paralleles=80 \ # # $Z nombre_points_entre_deux_paralleles=5 \ # # $Z nombre_meridiens=80 \ # # $Z nombre_points_entre_deux_meridiens=5 \ # # $Z faciliter_parametrage_u_v=VRAI \ # # $Z Vrayon=0.10 \ # # $Z $PaRaMeTrEs_2 \ # # $Z R=$_____imagesR.0 \ # # $Z $formatI \ # # $Z >> $FLiStEP # # # # $Z set _____DemiPave=20 # # $Z set _____InverserZStructure=VRAI # # $m4 _____include(_____xiirv/.NDIM.43.1._____U) # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_paralleles=80" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npp=5" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_meridiens=80" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npm=5" # # $Z set _____ArgGSurface="$_____ArgGSurface"" fpuv=VRAI" # # $Z set _____ArgGSurface="$_____ArgGSurface"" emeni=FAUX" # # # # Ce sont les memes arguments que pour l'image 'v $xiirs/OPER.11.21'... # # # # $Z set _____GSurface=$xrs/opera.11 # # $Z set _____NormaliseSurface=$EXIST # # $Z set SaVe_____imagesR=$_____imagesR # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # $Z set _____imagesR=$SaVe_____imagesR # # # # $Z SET Premiere=$cPremiere # # $Z SET Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.Q1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.Q1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Q1$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Q1$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Q1$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_Q1: # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:01:53 # # # # $xci/ombrage.11$X : 00:00:50 # # # # $xci/accumule.42$X : 00:06:54 # # # v $xiav/STRX.Q2.1$R16 v $xiav/STRX.Q2.1$R64 v $xiav/STRX.Q2$COORD_X$R16 v $xiav/STRX.Q2$COORD_X$R64 v $xiav/STRX.Q2$COORD_Y$R16 v $xiav/STRX.Q2$COORD_Y$R64 v $xiav/STRX.Q2$COORD_Z$R16 v $xiav/STRX.Q2$COORD_Z$R64 v $xiav/STRX.Q2.2$R16 v $xiav/STRX.Q2.2$R64 v $xiirv/STRX.Q2.0 v $xiirv/STRX.Q2.1 v $xiirv/STRX.Q2.2 v $xiirv/STRX.Q2.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_Q2: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.Q2.1 # # $Z setenv _____ImageT2 $xTV/STRX.Q2.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____imagesR=$xiirv/STRX.Q2 # # $Z set _____ImagesR=$_____imagesR # # # # $Z set GSuRfAcE=$xrs/opera.11$X # # # # $Z FilSTmpB FLiStEP # # # # $Z set PaRaMeTrEs_2="$K_VIDE" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" np=1 brume=FAUX" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" ROTATION_OX=0.9" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" ZOOM=0.025" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" Lz=1000" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" emeni=FAUX" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" editer_extrema_hors=FAUX" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" chiffres=0" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" N_AU_CARRE=FAUX" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" lister_les_points=VRAI" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" lister_les_points_apres=VRAI" # # # # $Z $GSuRfAcE \ # # $Z nombre_paralleles=80 \ # # $Z nombre_points_entre_deux_paralleles=5 \ # # $Z nombre_meridiens=80 \ # # $Z nombre_points_entre_deux_meridiens=5 \ # # $Z faciliter_parametrage_u_v=VRAI \ # # $Z Vrayon=0.10 \ # # $Z $PaRaMeTrEs_2 \ # # $Z R=$_____imagesR.0 \ # # $Z $formatI \ # # $Z >> $FLiStEP # # # # $Z set _____DemiPave=20 # # $Z set _____InverserZStructure=VRAI # # $m4 _____include(_____xiirv/.NDIM.43.1._____U) # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=2" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_paralleles=80" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npp=5" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_meridiens=80" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npm=5" # # $Z set _____ArgGSurface="$_____ArgGSurface"" fpuv=VRAI" # # $Z set _____ArgGSurface="$_____ArgGSurface"" emeni=FAUX" # # # # Ce sont les memes arguments que pour l'image 'v $xiirs/OPER.11.21'... # # # # $Z set _____GSurface=$xrs/opera.11 # # $Z set _____NormaliseSurface=$EXIST # # $Z set SaVe_____imagesR=$_____imagesR # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # $Z set _____imagesR=$SaVe_____imagesR # # # # $Z SET Premiere=$cPremiere # # $Z SET Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.Q2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.Q2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Q2$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Q2$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Q2$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_Q2: # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:12 # # # # $xci/ombrage.11$X : 00:00:55 # # # # $xci/accumule.42$X : 00:07:05 # # # v $xiav/STRX.Q3.1$R16 v $xiav/STRX.Q3.1$R64 v $xiav/STRX.Q3$COORD_X$R16 v $xiav/STRX.Q3$COORD_X$R64 v $xiav/STRX.Q3$COORD_Y$R16 v $xiav/STRX.Q3$COORD_Y$R64 v $xiav/STRX.Q3$COORD_Z$R16 v $xiav/STRX.Q3$COORD_Z$R64 v $xiav/STRX.Q3.2$R16 v $xiav/STRX.Q3.2$R64 v $xiirv/STRX.Q3.0 v $xiirv/STRX.Q3.1 v $xiirv/STRX.Q3.2 v $xiirv/STRX.Q3.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_Q3: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.Q3.1 # # $Z setenv _____ImageT2 $xTV/STRX.Q3.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____imagesR=$xiirv/STRX.Q3 # # $Z set _____ImagesR=$_____imagesR # # # # $Z set GSuRfAcE=$xrs/opera.11$X # # # # $Z FilSTmpB FLiStEP # # # # $Z set PaRaMeTrEs_2="$K_VIDE" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" np=1 brume=FAUX" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" ROTATION_OX=0.9" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" ZOOM=0.025" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" Lz=1000" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" emeni=FAUX" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" editer_extrema_hors=FAUX" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" chiffres=0" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" N_AU_CARRE=FAUX" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" lister_les_points=VRAI" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" lister_les_points_apres=VRAI" # # # # $Z $GSuRfAcE \ # # $Z nombre_paralleles=80 \ # # $Z nombre_points_entre_deux_paralleles=5 \ # # $Z nombre_meridiens=80 \ # # $Z nombre_points_entre_deux_meridiens=5 \ # # $Z faciliter_parametrage_u_v=VRAI \ # # $Z Vrayon=0.10 \ # # $Z $PaRaMeTrEs_2 \ # # $Z R=$_____imagesR.0 \ # # $Z $formatI \ # # $Z >> $FLiStEP # # # # $Z set _____DemiPave=20 # # $Z set _____InverserZStructure=VRAI # # $m4 _____include(_____xiirv/.NDIM.43.1._____U) # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=3" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_paralleles=80" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npp=5" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_meridiens=80" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npm=5" # # $Z set _____ArgGSurface="$_____ArgGSurface"" fpuv=VRAI" # # $Z set _____ArgGSurface="$_____ArgGSurface"" emeni=FAUX" # # # # Ce sont les memes arguments que pour l'image 'v $xiirs/OPER.11.21'... # # # # $Z set _____GSurface=$xrs/opera.11 # # $Z set _____NormaliseSurface=$EXIST # # $Z set SaVe_____imagesR=$_____imagesR # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # $Z set _____imagesR=$SaVe_____imagesR # # # # $Z SET Premiere=$cPremiere # # $Z SET Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.Q3.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.Q3.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Q3$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Q3$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Q3$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_Q3: # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:25 # # # # $xci/ombrage.11$X : 00:00:53 # # # # $xci/accumule.42$X : 00:07:06 # # # v $xiav/STRX.Q4.1$R16 v $xiav/STRX.Q4.1$R64 v $xiav/STRX.Q4$COORD_X$R16 v $xiav/STRX.Q4$COORD_X$R64 v $xiav/STRX.Q4$COORD_Y$R16 v $xiav/STRX.Q4$COORD_Y$R64 v $xiav/STRX.Q4$COORD_Z$R16 v $xiav/STRX.Q4$COORD_Z$R64 v $xiav/STRX.Q4.2$R16 v $xiav/STRX.Q4.2$R64 v $xiirv/STRX.Q4.0 v $xiirv/STRX.Q4.1 v $xiirv/STRX.Q4.2 v $xiirv/STRX.Q4.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_Q4: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.Q4.1 # # $Z setenv _____ImageT2 $xTV/STRX.Q4.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____imagesR=$xiirv/STRX.Q4 # # $Z set _____ImagesR=$_____imagesR # # # # $Z set GSuRfAcE=$xrs/opera.11$X # # # # $Z FilSTmpB FLiStEP # # # # $Z set PaRaMeTrEs_2="$K_VIDE" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" np=1 brume=FAUX" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" ROTATION_OX=0.9" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" ZOOM=0.025" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" Lz=1000" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" emeni=FAUX" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" editer_extrema_hors=FAUX" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" chiffres=0" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" N_AU_CARRE=FAUX" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" lister_les_points=VRAI" # # $Z set PaRaMeTrEs_2="$PaRaMeTrEs_2"" lister_les_points_apres=VRAI" # # # # $Z $GSuRfAcE \ # # $Z nombre_paralleles=80 \ # # $Z nombre_points_entre_deux_paralleles=5 \ # # $Z nombre_meridiens=80 \ # # $Z nombre_points_entre_deux_meridiens=5 \ # # $Z faciliter_parametrage_u_v=VRAI \ # # $Z Vrayon=0.10 \ # # $Z $PaRaMeTrEs_2 \ # # $Z R=$_____imagesR.0 \ # # $Z $formatI \ # # $Z >> $FLiStEP # # # # $Z set _____DemiPave=20 # # $Z set _____InverserZStructure=VRAI # # $m4 _____include(_____xiirv/.NDIM.43.1._____U) # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_paralleles=80" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npp=5" # # $Z set _____ArgGSurface="$_____ArgGSurface"" nombre_meridiens=80" # # $Z set _____ArgGSurface="$_____ArgGSurface"" npm=5" # # $Z set _____ArgGSurface="$_____ArgGSurface"" fpuv=VRAI" # # $Z set _____ArgGSurface="$_____ArgGSurface"" emeni=FAUX" # # # # Ce sont les memes arguments que pour l'image 'v $xiirs/OPER.11.21'... # # # # $Z set _____GSurface=$xrs/opera.11 # # $Z set _____NormaliseSurface=$EXIST # # $Z set SaVe_____imagesR=$_____imagesR # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # $Z set _____imagesR=$SaVe_____imagesR # # # # $Z SET Premiere=$cPremiere # # $Z SET Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.Q4.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.Q4.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Q4$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Q4$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Q4$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_Q4: # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:25 # # # # $xci/ombrage.11$X : 00:01:03 # # # # $xci/accumule.42$X : 00:07:06 # # # v $xiirv/STRX.Q1234.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_Q1234_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRX.Q1234.1 # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=8" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.6" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z set _____ImageA=$xiirv/STRX.Q1.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.Q1%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.Q1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.Q1%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.Q1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.Q2.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.Q2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.Q2 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.Q2%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.Q1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.Q3.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.Q3%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.Q3 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.Q3%s \ # # $Z $ArgMontagne \ # # $Z R=$xTV/STRX.Q1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.Q4.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.Q4%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.Q4 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.Q4%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.Q1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.Q1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_STRX_Q1234_1: # # # v $xiirv/STRX.Q1234.1$LUMIN p=$xiP/trou_noir.B4 v $xiirv/STRX.Q1234.1$LUMIN p=$xiP/rouge_orang.33 v $xiirv/STRX.Q1234.1$LUMIN p=$xiP/vert_orange # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_Q1234_1_L: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/STRX.Q1.1 # # $Z set _____ImageR=$xiirv/STRX.Q1234.1$LUMIN # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=8" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.6" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.Q1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.Q2.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.Q1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.Q3.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z R=$xTV/STRX.Q1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.Q4.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.Q1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.Q1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.Q1234.1%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.Q1234.1 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_STRX_Q1234_1_L: # # # v $xiav/STRX.R1.1$R16 v $xiav/STRX.R1.1$R64 v $xiav/STRX.R1$COORD_X$R16 v $xiav/STRX.R1$COORD_X$R64 v $xiav/STRX.R1$COORD_Y$R16 v $xiav/STRX.R1$COORD_Y$R64 v $xiav/STRX.R1$COORD_Z$R16 v $xiav/STRX.R1$COORD_Z$R64 v $xiav/STRX.R1.2$R16 v $xiav/STRX.R1.2$R64 v $xiirv/STRX.R1.1 v $xiirv/STRX.R1.2 v $xiirv/STRX.R1.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_R1: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.R1.1 # # $Z setenv _____ImageT2 $xTV/STRX.R1.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____imagesR=$xiirv/STRX.R1 # # $m4 _____include(_____xiirv/.TREE.B6.2._____U) # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z SET Premiere=$cPremiere # # $Z SET Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.R1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.R1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.R1$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.R1$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.R1$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_R1: # # # # # # Un entrelacs tridimensionnel {1,1,1} fait d'un arbre binaire tridimensionnel aleatoire # # ('v $xiirv/TREE.B6.21') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:01:40 # # # # $xci/ombrage.11$X : 00:02:05 # # # # $xci/accumule.42$X : 00:07:52 # # # v $xiav/STRX.R2.1$R16 v $xiav/STRX.R2.1$R64 v $xiav/STRX.R2$COORD_X$R16 v $xiav/STRX.R2$COORD_X$R64 v $xiav/STRX.R2$COORD_Y$R16 v $xiav/STRX.R2$COORD_Y$R64 v $xiav/STRX.R2$COORD_Z$R16 v $xiav/STRX.R2$COORD_Z$R64 v $xiav/STRX.R2.2$R16 v $xiav/STRX.R2.2$R64 v $xiirv/STRX.R2.1 v $xiirv/STRX.R2.2 v $xiirv/STRX.R2.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_R2: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.R2.1 # # $Z setenv _____ImageT2 $xTV/STRX.R2.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____imagesR=$xiirv/STRX.R2 # # $m4 _____include(_____xiirv/.TREE.B6.2._____U) # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=2" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z SET Premiere=$cPremiere # # $Z SET Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.R2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.R2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.R2$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.R2$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.R2$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_R2: # # # # # # Un entrelacs tridimensionnel {2,2,2} fait d'un arbre binaire tridimensionnel aleatoire # # ('v $xiirv/TREE.B6.21') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:03 # # # # $xci/ombrage.11$X : 00:02:02 # # # # $xci/accumule.42$X : 00:07:41 # # # v $xiav/STRX.R3.1$R16 v $xiav/STRX.R3.1$R64 v $xiav/STRX.R3$COORD_X$R16 v $xiav/STRX.R3$COORD_X$R64 v $xiav/STRX.R3$COORD_Y$R16 v $xiav/STRX.R3$COORD_Y$R64 v $xiav/STRX.R3$COORD_Z$R16 v $xiav/STRX.R3$COORD_Z$R64 v $xiav/STRX.R3.2$R16 v $xiav/STRX.R3.2$R64 v $xiirv/STRX.R3.1 v $xiirv/STRX.R3.2 v $xiirv/STRX.R3.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_R3: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.R3.1 # # $Z setenv _____ImageT2 $xTV/STRX.R3.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____imagesR=$xiirv/STRX.R3 # # $m4 _____include(_____xiirv/.TREE.B6.2._____U) # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=3" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z SET Premiere=$cPremiere # # $Z SET Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.R3.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.R3.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.R3$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.R3$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.R3$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_R3: # # # # # # Un entrelacs tridimensionnel {3,3,3} fait d'un arbre binaire tridimensionnel aleatoire # # ('v $xiirv/TREE.B6.21') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:14 # # # # $xci/ombrage.11$X : 00:02:22 # # # # $xci/accumule.42$X : 00:07:32 # # # v $xiav/STRX.R4.1$R16 v $xiav/STRX.R4.1$R64 v $xiav/STRX.R4$COORD_X$R16 v $xiav/STRX.R4$COORD_X$R64 v $xiav/STRX.R4$COORD_Y$R16 v $xiav/STRX.R4$COORD_Y$R64 v $xiav/STRX.R4$COORD_Z$R16 v $xiav/STRX.R4$COORD_Z$R64 v $xiav/STRX.R4.2$R16 v $xiav/STRX.R4.2$R64 v $xiirv/STRX.R4.1 v $xiirv/STRX.R4.2 v $xiirv/STRX.R4.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_R4: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.R4.1 # # $Z setenv _____ImageT2 $xTV/STRX.R4.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____imagesR=$xiirv/STRX.R4 # # $m4 _____include(_____xiirv/.TREE.B6.2._____U) # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z SET Premiere=$cPremiere # # $Z SET Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.R4.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.R4.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.R4$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.R4$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.R4$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_R4: # # # # # # Un entrelacs tridimensionnel {4,4,4} fait d'un arbre binaire tridimensionnel aleatoire # # ('v $xiirv/TREE.B6.21') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:20 # # # # $xci/ombrage.11$X : 00:02:40 # # # # $xci/accumule.42$X : 00:08:05 # # # v $xiirv/STRX.R1234.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_R1234_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRX.R1234.1 # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z set _____ImageA=$xiirv/STRX.R1.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.R1%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.R1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.R1%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.R1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.R2.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.R2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.R2 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.R2%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.R1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.R3.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.R3%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.R3 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.R3%s \ # # $Z $ArgMontagne \ # # $Z R=$xTV/STRX.R1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.R4.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.R4%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.R4 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.R4%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.R1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.R1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_STRX_R1234_1: # # # v $xiirv/STRX.R1234.1$LUMIN p=$xiP/trou_noir.B4 v $xiirv/STRX.R1234.1$LUMIN p=$xiP/rouge_orang.33 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_R1234_1_L: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/STRX.R1.1 # # $Z set _____ImageR=$xiirv/STRX.R1234.1$LUMIN # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.R1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.R2.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.R1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.R3.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z R=$xTV/STRX.R1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.R4.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.R1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.R1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.R1234.1%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.R1234.1 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_STRX_R1234_1_L: # # # v $xiav/STRX.S1.1$R16 v $xiav/STRX.S1.1$R64 v $xiav/STRX.S1$COORD_X$R16 v $xiav/STRX.S1$COORD_X$R64 v $xiav/STRX.S1$COORD_Y$R16 v $xiav/STRX.S1$COORD_Y$R64 v $xiav/STRX.S1$COORD_Z$R16 v $xiav/STRX.S1$COORD_Z$R64 v $xiav/STRX.S1.2$R16 v $xiav/STRX.S1.2$R64 v $xiirv/STRX.S1.1 v $xiirv/STRX.S1.2 v $xiirv/STRX.S1.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_S1: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.S1.1 # # $Z setenv _____ImageT2 $xTV/STRX.S1.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____imagesR=$xiirv/STRX.S1 # # # # $Z FilSTmpB LiStEDeRiVeEs # # # # $Z set _____NArbitraireDXYZ=10000 # # $Z set _____BInferieureDXYZ=-1.0 # # $Z set _____BSuperieureDXYZ=+1.0 # # $m4 _____include(_____xiirv/.TREE.74.1._____U) # # # # $Z set _____Unique=$EXIST # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=$LiStEDeRiVeEs$COORD_X # # $Z set _____DeriveeY=$LiStEDeRiVeEs$COORD_Y # # $Z set _____DeriveeZ=$LiStEDeRiVeEs$COORD_Z # # $m4 _____include(_____xiirv/.TREE.B6.2._____U) # # # # $Z FilSTmpE LiStEDeRiVeEs # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z SET Premiere=$cPremiere # # $Z SET Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.S1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.S1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.S1$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.S1$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.S1$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_S1: # # # # # # Un entrelacs tridimensionnel {1,1,1} fait d'un arbre binaire tridimensionnel aleatoire # # ('v $xiirv/TREE.B8.21') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:01:47 # # # # $xci/ombrage.11$X : 00:02:15 # # # # $xci/accumule.42$X : 00:08:56 # # # v $xiav/STRX.S2.1$R16 v $xiav/STRX.S2.1$R64 v $xiav/STRX.S2$COORD_X$R16 v $xiav/STRX.S2$COORD_X$R64 v $xiav/STRX.S2$COORD_Y$R16 v $xiav/STRX.S2$COORD_Y$R64 v $xiav/STRX.S2$COORD_Z$R16 v $xiav/STRX.S2$COORD_Z$R64 v $xiav/STRX.S2.2$R16 v $xiav/STRX.S2.2$R64 v $xiirv/STRX.S2.1 v $xiirv/STRX.S2.2 v $xiirv/STRX.S2.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_S2: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.S2.1 # # $Z setenv _____ImageT2 $xTV/STRX.S2.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____imagesR=$xiirv/STRX.S2 # # # # $Z FilSTmpB LiStEDeRiVeEs # # # # $Z set _____NArbitraireDXYZ=10000 # # $Z set _____BInferieureDXYZ=-1.0 # # $Z set _____BSuperieureDXYZ=+1.0 # # $m4 _____include(_____xiirv/.TREE.74.1._____U) # # # # $Z set _____Unique=$EXIST # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=$LiStEDeRiVeEs$COORD_X # # $Z set _____DeriveeY=$LiStEDeRiVeEs$COORD_Y # # $Z set _____DeriveeZ=$LiStEDeRiVeEs$COORD_Z # # $m4 _____include(_____xiirv/.TREE.B6.2._____U) # # # # $Z FilSTmpE LiStEDeRiVeEs # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=2" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z SET Premiere=$cPremiere # # $Z SET Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.S2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.S2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.S2$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.S2$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.S2$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_S2: # # # # # # Un entrelacs tridimensionnel {2,2,2} fait d'un arbre binaire tridimensionnel aleatoire # # ('v $xiirv/TREE.B8.21') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:11 # # # # $xci/ombrage.11$X : 00:02:19 # # # # $xci/accumule.42$X : 00:08:31 # # # v $xiav/STRX.S3.1$R16 v $xiav/STRX.S3.1$R64 v $xiav/STRX.S3$COORD_X$R16 v $xiav/STRX.S3$COORD_X$R64 v $xiav/STRX.S3$COORD_Y$R16 v $xiav/STRX.S3$COORD_Y$R64 v $xiav/STRX.S3$COORD_Z$R16 v $xiav/STRX.S3$COORD_Z$R64 v $xiav/STRX.S3.2$R16 v $xiav/STRX.S3.2$R64 v $xiirv/STRX.S3.1 v $xiirv/STRX.S3.2 v $xiirv/STRX.S3.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_S3: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.S3.1 # # $Z setenv _____ImageT2 $xTV/STRX.S3.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____imagesR=$xiirv/STRX.S3 # # # # $Z FilSTmpB LiStEDeRiVeEs # # # # $Z set _____NArbitraireDXYZ=10000 # # $Z set _____BInferieureDXYZ=-1.0 # # $Z set _____BSuperieureDXYZ=+1.0 # # $m4 _____include(_____xiirv/.TREE.74.1._____U) # # # # $Z set _____Unique=$EXIST # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=$LiStEDeRiVeEs$COORD_X # # $Z set _____DeriveeY=$LiStEDeRiVeEs$COORD_Y # # $Z set _____DeriveeZ=$LiStEDeRiVeEs$COORD_Z # # $m4 _____include(_____xiirv/.TREE.B6.2._____U) # # # # $Z FilSTmpE LiStEDeRiVeEs # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=3" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z SET Premiere=$cPremiere # # $Z SET Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.S3.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.S3.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.S3$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.S3$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.S3$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_S3: # # # # # # Un entrelacs tridimensionnel {3,3,3} fait d'un arbre binaire tridimensionnel aleatoire # # ('v $xiirv/TREE.B8.21') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:20 # # # # $xci/ombrage.11$X : 00:02:36 # # # # $xci/accumule.42$X : 00:08:27 # # # v $xiav/STRX.S4.1$R16 v $xiav/STRX.S4.1$R64 v $xiav/STRX.S4$COORD_X$R16 v $xiav/STRX.S4$COORD_X$R64 v $xiav/STRX.S4$COORD_Y$R16 v $xiav/STRX.S4$COORD_Y$R64 v $xiav/STRX.S4$COORD_Z$R16 v $xiav/STRX.S4$COORD_Z$R64 v $xiav/STRX.S4.2$R16 v $xiav/STRX.S4.2$R64 v $xiirv/STRX.S4.1 v $xiirv/STRX.S4.2 v $xiirv/STRX.S4.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_S4: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.S4.1 # # $Z setenv _____ImageT2 $xTV/STRX.S4.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____imagesR=$xiirv/STRX.S4 # # # # $Z FilSTmpB LiStEDeRiVeEs # # # # $Z set _____NArbitraireDXYZ=10000 # # $Z set _____BInferieureDXYZ=-1.0 # # $Z set _____BSuperieureDXYZ=+1.0 # # $m4 _____include(_____xiirv/.TREE.74.1._____U) # # # # $Z set _____Unique=$EXIST # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=$LiStEDeRiVeEs$COORD_X # # $Z set _____DeriveeY=$LiStEDeRiVeEs$COORD_Y # # $Z set _____DeriveeZ=$LiStEDeRiVeEs$COORD_Z # # $m4 _____include(_____xiirv/.TREE.B6.2._____U) # # # # $Z FilSTmpE LiStEDeRiVeEs # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z SET Premiere=$cPremiere # # $Z SET Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.S4.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.S4.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.S4$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.S4$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.S4$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_S4: # # # # # # Un entrelacs tridimensionnel {4,4,4} fait d'un arbre binaire tridimensionnel aleatoire # # ('v $xiirv/TREE.B8.21') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:26 # # # # $xci/ombrage.11$X : 00:02:57 # # # # $xci/accumule.42$X : 00:09:03 # # # v $xiirv/STRX.S1234.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_S1234_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRX.S1234.1 # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z set _____ImageA=$xiirv/STRX.S1.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.S1%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.S1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.S1%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.S1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.S2.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.S2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.S2 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.S2%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.S1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.S3.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.S3%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.S3 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.S3%s \ # # $Z $ArgMontagne \ # # $Z R=$xTV/STRX.S1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.S4.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.S4%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.S4 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.S4%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.S1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.S1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_STRX_S1234_1: # # # v $xiirv/STRX.S1234.1$LUMIN p=$xiP/trou_noir.B4 v $xiirv/STRX.S1234.1$LUMIN p=$xiP/rouge_orang.33 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_S1234_1_L: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/STRX.S1.1 # # $Z set _____ImageR=$xiirv/STRX.S1234.1$LUMIN # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.S1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.S2.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.S1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.S3.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z R=$xTV/STRX.S1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.S4.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.S1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.S1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.S1234.1%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.S1234.1 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_STRX_S1234_1_L: # # # v $xiirv/STRX.T1.1 v $xiirv/STRX.T1.2 v $xiirv/STRX.T1.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_T1: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.T1.1 # # $Z setenv _____ImageT2 $xTV/STRX.T1.2 # # # # $m4 _____include(_____xiirv/.STRX.41.1._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____imagesR=$xiirv/STRX.T1 # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # # # $Z execALB_F $cPremiere $cDerniere \ # # $Z $xci/maximum_03$X \ # # $Z A1=$_____ImageT1.%04d$ROUGE \ # # $Z A2=$_____ImageT1.%04d$VERTE \ # # $Z A3=$_____ImageT1.%04d$BLEUE \ # # $Z R=$_____ImageTd.%04d \ # # $Z $formatI # # # # $Z SET _____Standard=VRAI # # $Z set _____SourceZ=1.0 # # $Z set _____AttenuationOmbre=0.5 # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # # # $Z execALB_F $cPremiere $cDerniere \ # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____ImageTo.%04d \ # # $Z R=$_____ImageTT.%04d%%s \ # # $Z $formatI # # # # $Z set _____ccXYZ=VRAI # # $Z set _____PostfixeT="%s" # # $Z set _____ValidMalo=FAUX # # $Z set _____RotationX=-0.4 # # $Z set _____RotationY=-0.2 # # # # $Z set _____ParamAccumule="$K_VIDE" # # $Z set _____ParamAccumule="$_____ParamAccumule"" accepter_points_isoles=VRAI" # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z set _____Format="$formatIR" # # # # $Z set _____imageR=$_____imagesR.1 # # $m4 _____include(_____xiirf/.MENG.21.2._____U) # # $Z set _____imageR=$_____imagesR.2 # # $m4 _____include(_____xiirf/.MENG.21.2._____U) # # $Z set _____imageR=$_____imagesR.21 # # $m4 _____include(_____xiirf/.MENG.21.2._____U) # # # # :Fin_listG_STRX_T1: # # # # # # Une structure tridimensionnelle arbitraire utilisee par des entrelacs tridimensionnels # # et par exemple 'v $xiirv/STRX.41.21'... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:35:52 # # # # $xci/accumule.42$X : 00:15:59 # # # v $xiav/STRX.U1.1$R16 v $xiav/STRX.U1.1$R64 v $xiav/STRX.U1$COORD_X$R16 v $xiav/STRX.U1$COORD_X$R64 v $xiav/STRX.U1$COORD_Y$R16 v $xiav/STRX.U1$COORD_Y$R64 v $xiav/STRX.U1$COORD_Z$R16 v $xiav/STRX.U1$COORD_Z$R64 v $xiav/STRX.U1.2$R16 v $xiav/STRX.U1.2$R64 v $xiirv/STRX.U1.1 v $xiirv/STRX.U1.2 v $xiirv/STRX.U1.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_U1: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.U1.1 # # $Z setenv _____ImageT2 $xTV/STRX.U1.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.U1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.U1 # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_M=4" # # $Z set _____GSurface=$xrs/bKlein.61 # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.U1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.U1 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.U1$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.U1$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.U1$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_U1: # # # # # # Un entrelacs tridimensionnel {1,1,1} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur de la triple bouteille de Bonan-Jeener-Klein # # ('v $xiirs/BKLN.52'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:01:53 # # # # $xci/ombrage.11$X : 00:01:47 # # # # $xci/accumule.42$X : 00:07:33 # # # v $xiav/STRX.U2.1$R16 v $xiav/STRX.U2.1$R64 v $xiav/STRX.U2$COORD_X$R16 v $xiav/STRX.U2$COORD_X$R64 v $xiav/STRX.U2$COORD_Y$R16 v $xiav/STRX.U2$COORD_Y$R64 v $xiav/STRX.U2$COORD_Z$R16 v $xiav/STRX.U2$COORD_Z$R64 v $xiav/STRX.U2.2$R16 v $xiav/STRX.U2.2$R64 v $xiirv/STRX.U2.1 v $xiirv/STRX.U2.2 v $xiirv/STRX.U2.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_U2: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.U2.1 # # $Z setenv _____ImageT2 $xTV/STRX.U2.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=2" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.U2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.U2 # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_M=4" # # $Z set _____GSurface=$xrs/bKlein.61 # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.U2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.U2 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.U2$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.U2$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.U2$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_U2: # # # # # # Un entrelacs tridimensionnel {2,2,2} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur de la triple bouteille de Bonan-Jeener-Klein # # ('v $xiirs/BKLN.52'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:17 # # # # $xci/ombrage.11$X : 00:01:43 # # # # $xci/accumule.42$X : 00:07:20 # # # v $xiav/STRX.U3.1$R16 v $xiav/STRX.U3.1$R64 v $xiav/STRX.U3$COORD_X$R16 v $xiav/STRX.U3$COORD_X$R64 v $xiav/STRX.U3$COORD_Y$R16 v $xiav/STRX.U3$COORD_Y$R64 v $xiav/STRX.U3$COORD_Z$R16 v $xiav/STRX.U3$COORD_Z$R64 v $xiav/STRX.U3.2$R16 v $xiav/STRX.U3.2$R64 v $xiirv/STRX.U3.1 v $xiirv/STRX.U3.2 v $xiirv/STRX.U3.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_U3: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.U3.1 # # $Z setenv _____ImageT2 $xTV/STRX.U3.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=3" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.U3.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.U3 # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_M=4" # # $Z set _____GSurface=$xrs/bKlein.61 # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.U3.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.U3 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.U3$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.U3$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.U3$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_U3: # # # # # # Un entrelacs tridimensionnel {3,3,3} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur de la triple bouteille de Bonan-Jeener-Klein # # ('v $xiirs/BKLN.52'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:28 # # # # $xci/ombrage.11$X : 00:01:41 # # # # $xci/accumule.42$X : 00:07:12 # # # v $xiav/STRX.U4.1$R16 v $xiav/STRX.U4.1$R64 v $xiav/STRX.U4$COORD_X$R16 v $xiav/STRX.U4$COORD_X$R64 v $xiav/STRX.U4$COORD_Y$R16 v $xiav/STRX.U4$COORD_Y$R64 v $xiav/STRX.U4$COORD_Z$R16 v $xiav/STRX.U4$COORD_Z$R64 v $xiav/STRX.U4.2$R16 v $xiav/STRX.U4.2$R64 v $xiirv/STRX.U4.1 v $xiirv/STRX.U4.2 v $xiirv/STRX.U4.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_U4: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.U4.1 # # $Z setenv _____ImageT2 $xTV/STRX.U4.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.U4.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.U4 # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____ArgGSurface="$_____ArgGSurface"" PARAMETRE_M=4" # # $Z set _____GSurface=$xrs/bKlein.61 # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.E1.3._____U) # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.U4.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.U4 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.U4$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.U4$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.U4$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_U4: # # # # # # Un entrelacs tridimensionnel {4,4,4} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur de la triple bouteille de Bonan-Jeener-Klein # # ('v $xiirs/BKLN.52'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:36 # # # # $xci/ombrage.11$X : 00:01:55 # # # # $xci/accumule.42$X : 00:07:26 # # # v $xiirv/STRX.U1234.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_U1234_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRX.U1234.1 # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z set _____ImageA=$xiirv/STRX.U1.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.U1%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.U1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.U1%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.U1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.U2.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.U2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.U2 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.U2%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.U1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.U3.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.U3%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.U3 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.U3%s \ # # $Z $ArgMontagne \ # # $Z R=$xTV/STRX.U1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.U4.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.U4%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.U4 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.U4%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.U1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.U1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_STRX_U1234_1: # # # v $xiirv/STRX.U1234.1$LUMIN p=$xiP/trou_noir.B4 v $xiirv/STRX.U1234.1$LUMIN p=$xiP/rouge_orang.33 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_U1234_1_L: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/STRX.U1.1 # # $Z set _____ImageR=$xiirv/STRX.U1234.1$LUMIN # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.U1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.U2.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.U1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.U3.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z R=$xTV/STRX.U1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.U4.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.U1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.U1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.U1234.1%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.U1234.1 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_STRX_U1234_1_L: # # # v $xiav/STRX.V1.1$R16 v $xiav/STRX.V1.1$R64 v $xiav/STRX.V1$COORD_X$R16 v $xiav/STRX.V1$COORD_X$R64 v $xiav/STRX.V1$COORD_Y$R16 v $xiav/STRX.V1$COORD_Y$R64 v $xiav/STRX.V1$COORD_Z$R16 v $xiav/STRX.V1$COORD_Z$R64 v $xiav/STRX.V1.2$R16 v $xiav/STRX.V1.2$R64 v $xiirv/STRX.V1.1 v $xiirv/STRX.V1.2 v $xiirv/STRX.V1.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_V1: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.V1.1 # # $Z setenv _____ImageT2 $xTV/STRX.V1.2 # # # # $m4 _____include(_____xiirv/.STRX.V1.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.V1.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.V1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.V1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.V1 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.V1$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.V1$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.V1$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_V1: # # # # # # Un entrelacs tridimensionnel {1,1,1} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:16 # # # # $xci/ombrage.11$X : 00:03:36 # # # # $xci/accumule.42$X : 00:11:28 # # # v $xiav/STRX.V2.1$R16 v $xiav/STRX.V2.1$R64 v $xiav/STRX.V2$COORD_X$R16 v $xiav/STRX.V2$COORD_X$R64 v $xiav/STRX.V2$COORD_Y$R16 v $xiav/STRX.V2$COORD_Y$R64 v $xiav/STRX.V2$COORD_Z$R16 v $xiav/STRX.V2$COORD_Z$R64 v $xiav/STRX.V2.2$R16 v $xiav/STRX.V2.2$R64 v $xiirv/STRX.V2.1 v $xiirv/STRX.V2.2 v $xiirv/STRX.V2.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_V2: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.V2.1 # # $Z setenv _____ImageT2 $xTV/STRX.V2.2 # # # # $m4 _____include(_____xiirv/.STRX.V1.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.V1.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=2" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.V2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.V2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.V2 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.V2$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.V2$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.V2$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_V2: # # # # # # Un entrelacs tridimensionnel {2,2,2} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:46 # # # # $xci/ombrage.11$X : 00:04:26 # # # # $xci/accumule.42$X : 00:13:37 # # # v $xiav/STRX.V3.1$R16 v $xiav/STRX.V3.1$R64 v $xiav/STRX.V3$COORD_X$R16 v $xiav/STRX.V3$COORD_X$R64 v $xiav/STRX.V3$COORD_Y$R16 v $xiav/STRX.V3$COORD_Y$R64 v $xiav/STRX.V3$COORD_Z$R16 v $xiav/STRX.V3$COORD_Z$R64 v $xiav/STRX.V3.2$R16 v $xiav/STRX.V3.2$R64 v $xiirv/STRX.V3.1 v $xiirv/STRX.V3.2 v $xiirv/STRX.V3.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_V3: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.V3.1 # # $Z setenv _____ImageT2 $xTV/STRX.V3.2 # # # # $m4 _____include(_____xiirv/.STRX.V1.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.V1.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=3" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.V3.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.V3.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.V3 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.V3$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.V3$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.V3$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_V3: # # # # # # Un entrelacs tridimensionnel {3,3,3} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:37 # # # # $xci/ombrage.11$X : 00:03:38 # # # # $xci/accumule.42$X : 00:10:10 # # # v $xiav/STRX.V4.1$R16 v $xiav/STRX.V4.1$R64 v $xiav/STRX.V4$COORD_X$R16 v $xiav/STRX.V4$COORD_X$R64 v $xiav/STRX.V4$COORD_Y$R16 v $xiav/STRX.V4$COORD_Y$R64 v $xiav/STRX.V4$COORD_Z$R16 v $xiav/STRX.V4$COORD_Z$R64 v $xiav/STRX.V4.2$R16 v $xiav/STRX.V4.2$R64 v $xiirv/STRX.V4.1 v $xiirv/STRX.V4.2 v $xiirv/STRX.V4.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_V4: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.V4.1 # # $Z setenv _____ImageT2 $xTV/STRX.V4.2 # # # # $m4 _____include(_____xiirv/.STRX.V1.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.V1.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.V4.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.V4.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.V4 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.V4$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.V4$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.V4$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_V4: # # # # # # Un entrelacs tridimensionnel {4,4,4} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:34 # # # # $xci/ombrage.11$X : 00:03:38 # # # # $xci/accumule.42$X : 00:11:59 # # # v $xiirv/STRX.V1234.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_V1234_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRX.V1234.1 # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z set _____ImageA=$xiirv/STRX.V1.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.V1%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.V1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.V1%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.V1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.V2.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.V2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.V2 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.V2%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.V1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.V3.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.V3%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.V3 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.V3%s \ # # $Z $ArgMontagne \ # # $Z R=$xTV/STRX.V1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.V4.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.V4%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.V4 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.V4%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.V1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.V1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_STRX_V1234_1: # # # v $xiirv/STRX.V1234.1$LUMIN p=$xiP/trou_noir.B4 v $xiirv/STRX.V1234.1$LUMIN p=$xiP/rouge_orang.33 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_V1234_1_L: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/STRX.V1.1 # # $Z set _____ImageR=$xiirv/STRX.V1234.1$LUMIN # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.V1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.V2.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.V1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.V3.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z R=$xTV/STRX.V1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.V4.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.V1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.V1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.V1234.1%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.V1234.1 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_STRX_V1234_1_L: # # # v $xiav/STRX.W1.1$R16 v $xiav/STRX.W1.1$R64 v $xiav/STRX.W1$COORD_X$R16 v $xiav/STRX.W1$COORD_X$R64 v $xiav/STRX.W1$COORD_Y$R16 v $xiav/STRX.W1$COORD_Y$R64 v $xiav/STRX.W1$COORD_Z$R16 v $xiav/STRX.W1$COORD_Z$R64 v $xiav/STRX.W1.2$R16 v $xiav/STRX.W1.2$R64 v $xiirv/STRX.W1.1 v $xiirv/STRX.W1.2 v $xiirv/STRX.W1.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_W1: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.W1.1 # # $Z setenv _____ImageT2 $xTV/STRX.W1.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.V1.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.W1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.W1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.W1 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.W1$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.W1$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.W1$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_W1: # # # # # # Un entrelacs tridimensionnel {1,1,1} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:18 # # # # $xci/ombrage.11$X : 00:03:47 # # # # $xci/accumule.42$X : 00:11:37 # # # v $xiav/STRX.W2.1$R16 v $xiav/STRX.W2.1$R64 v $xiav/STRX.W2$COORD_X$R16 v $xiav/STRX.W2$COORD_X$R64 v $xiav/STRX.W2$COORD_Y$R16 v $xiav/STRX.W2$COORD_Y$R64 v $xiav/STRX.W2$COORD_Z$R16 v $xiav/STRX.W2$COORD_Z$R64 v $xiav/STRX.W2.2$R16 v $xiav/STRX.W2.2$R64 v $xiirv/STRX.W2.1 v $xiirv/STRX.W2.2 v $xiirv/STRX.W2.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_W2: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.W2.1 # # $Z setenv _____ImageT2 $xTV/STRX.W2.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.V1.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=2" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.W2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.W2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.W2 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.W2$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.W2$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.W2$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_W2: # # # # # # Un entrelacs tridimensionnel {2,2,2} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:43 # # # # $xci/ombrage.11$X : 00:04:26 # # # # $xci/accumule.42$X : 00:13:01 # # # v $xiav/STRX.W3.1$R16 v $xiav/STRX.W3.1$R64 v $xiav/STRX.W3$COORD_X$R16 v $xiav/STRX.W3$COORD_X$R64 v $xiav/STRX.W3$COORD_Y$R16 v $xiav/STRX.W3$COORD_Y$R64 v $xiav/STRX.W3$COORD_Z$R16 v $xiav/STRX.W3$COORD_Z$R64 v $xiav/STRX.W3.2$R16 v $xiav/STRX.W3.2$R64 v $xiirv/STRX.W3.1 v $xiirv/STRX.W3.2 v $xiirv/STRX.W3.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_W3: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.W3.1 # # $Z setenv _____ImageT2 $xTV/STRX.W3.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.V1.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=3" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.W3.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.W3.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.W3 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.W3$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.W3$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.W3$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_W3: # # # # # # Un entrelacs tridimensionnel {3,3,3} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:29 # # # # $xci/ombrage.11$X : 00:03:28 # # # # $xci/accumule.42$X : 00:10:23 # # # v $xiav/STRX.W4.1$R16 v $xiav/STRX.W4.1$R64 v $xiav/STRX.W4$COORD_X$R16 v $xiav/STRX.W4$COORD_X$R64 v $xiav/STRX.W4$COORD_Y$R16 v $xiav/STRX.W4$COORD_Y$R64 v $xiav/STRX.W4$COORD_Z$R16 v $xiav/STRX.W4$COORD_Z$R64 v $xiav/STRX.W4.2$R16 v $xiav/STRX.W4.2$R64 v $xiirv/STRX.W4.1 v $xiirv/STRX.W4.2 v $xiirv/STRX.W4.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_W4: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.W4.1 # # $Z setenv _____ImageT2 $xTV/STRX.W4.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.V1.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.W4.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.W4.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.W4 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.W4$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.W4$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.W4$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_W4: # # # # # # Un entrelacs tridimensionnel {4,4,4} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:32 # # # # $xci/ombrage.11$X : 00:03:43 # # # # $xci/accumule.42$X : 00:12:01 # # # v $xiirv/STRX.W1234.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_W1234_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRX.W1234.1 # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z set _____ImageA=$xiirv/STRX.W1.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.W1%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.W1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.W1%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.W1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.W2.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.W2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.W2 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.W2%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.W1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.W3.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.W3%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.W3 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.W3%s \ # # $Z $ArgMontagne \ # # $Z R=$xTV/STRX.W1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.W4.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.W4%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.W4 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.W4%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.W1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.W1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_STRX_W1234_1: # # # v $xiirv/STRX.W1234.1$LUMIN p=$xiP/trou_noir.B4 v $xiirv/STRX.W1234.1$LUMIN p=$xiP/rouge_orang.33 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_W1234_1_L: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/STRX.W1.1 # # $Z set _____ImageR=$xiirv/STRX.W1234.1$LUMIN # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.W1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.W2.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.W1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.W3.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z R=$xTV/STRX.W1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.W4.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.W1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.W1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.W1234.1%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.W1234.1 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_STRX_W1234_1_L: # # # v $xiav/STRX.X1.1$R16 v $xiav/STRX.X1.1$R64 v $xiav/STRX.X1$COORD_X$R16 v $xiav/STRX.X1$COORD_X$R64 v $xiav/STRX.X1$COORD_Y$R16 v $xiav/STRX.X1$COORD_Y$R64 v $xiav/STRX.X1$COORD_Z$R16 v $xiav/STRX.X1$COORD_Z$R64 v $xiav/STRX.X1.2$R16 v $xiav/STRX.X1.2$R64 v $xiirv/STRX.X1.1 v $xiirv/STRX.X1.2 v $xiirv/STRX.X1.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_X1: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.X1.1 # # $Z setenv _____ImageT2 $xTV/STRX.X1.2 # # # # $m4 _____include(_____xiirv/.STRX.X1.1._____U) # # $m4 _____include(_____xiirv/.STRX.X1.2._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.X1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.X1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.X1 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.X1$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.X1$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.X1$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_X1: # # # # # # Un entrelacs tridimensionnel {1,1,1} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:04:33 # # # # $xci/ombrage.11$X : 00:04:14 # # # # $xci/accumule.42$X : 00:15:29 # # # v $xiav/STRX.X2.1$R16 v $xiav/STRX.X2.1$R64 v $xiav/STRX.X2$COORD_X$R16 v $xiav/STRX.X2$COORD_X$R64 v $xiav/STRX.X2$COORD_Y$R16 v $xiav/STRX.X2$COORD_Y$R64 v $xiav/STRX.X2$COORD_Z$R16 v $xiav/STRX.X2$COORD_Z$R64 v $xiav/STRX.X2.2$R16 v $xiav/STRX.X2.2$R64 v $xiirv/STRX.X2.1 v $xiirv/STRX.X2.2 v $xiirv/STRX.X2.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_X2: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.X2.1 # # $Z setenv _____ImageT2 $xTV/STRX.X2.2 # # # # $m4 _____include(_____xiirv/.STRX.X1.1._____U) # # $m4 _____include(_____xiirv/.STRX.X1.2._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=2" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.X2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.X2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.X2 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.X2$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.X2$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.X2$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_X2: # # # # # # Un entrelacs tridimensionnel {2,2,2} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:04:33 # # # # $xci/ombrage.11$X : 00:04:14 # # # # $xci/accumule.42$X : 00:15:29 # # # v $xiav/STRX.X3.1$R16 v $xiav/STRX.X3.1$R64 v $xiav/STRX.X3$COORD_X$R16 v $xiav/STRX.X3$COORD_X$R64 v $xiav/STRX.X3$COORD_Y$R16 v $xiav/STRX.X3$COORD_Y$R64 v $xiav/STRX.X3$COORD_Z$R16 v $xiav/STRX.X3$COORD_Z$R64 v $xiav/STRX.X3.2$R16 v $xiav/STRX.X3.2$R64 v $xiirv/STRX.X3.1 v $xiirv/STRX.X3.2 v $xiirv/STRX.X3.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_X3: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.X3.1 # # $Z setenv _____ImageT2 $xTV/STRX.X3.2 # # # # $m4 _____include(_____xiirv/.STRX.X1.1._____U) # # $m4 _____include(_____xiirv/.STRX.X1.2._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=3" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.X3.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.X3.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.X3 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.X3$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.X3$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.X3$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_X3: # # # # # # Un entrelacs tridimensionnel {3,3,3} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:04:45 # # # # $xci/ombrage.11$X : 00:04:00 # # # # $xci/accumule.42$X : 00:12:34 # # # v $xiav/STRX.X4.1$R16 v $xiav/STRX.X4.1$R64 v $xiav/STRX.X4$COORD_X$R16 v $xiav/STRX.X4$COORD_X$R64 v $xiav/STRX.X4$COORD_Y$R16 v $xiav/STRX.X4$COORD_Y$R64 v $xiav/STRX.X4$COORD_Z$R16 v $xiav/STRX.X4$COORD_Z$R64 v $xiav/STRX.X4.2$R16 v $xiav/STRX.X4.2$R64 v $xiirv/STRX.X4.1 v $xiirv/STRX.X4.2 v $xiirv/STRX.X4.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_X4: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.X4.1 # # $Z setenv _____ImageT2 $xTV/STRX.X4.2 # # # # $m4 _____include(_____xiirv/.STRX.X1.1._____U) # # $m4 _____include(_____xiirv/.STRX.X1.2._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.X4.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.X4.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.X4 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.X4$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.X4$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.X4$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_X4: # # # # # # Un entrelacs tridimensionnel {4,4,4} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:04:42 # # # # $xci/ombrage.11$X : 00:04:07 # # # # $xci/accumule.42$X : 00:12:45 # # # v $xiirv/STRX.X1234.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_X1234_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRX.X1234.1 # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z set _____ImageA=$xiirv/STRX.X1.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.X1%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.X1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.X1%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.X1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.X2.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.X2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.X2 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.X2%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.X1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.X3.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.X3%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.X3 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.X3%s \ # # $Z $ArgMontagne \ # # $Z R=$xTV/STRX.X1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.X4.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.X4%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.X4 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.X4%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.X1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.X1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_STRX_X1234_1: # # # v $xiirv/STRX.X1234.1$LUMIN p=$xiP/trou_noir.B4 v $xiirv/STRX.X1234.1$LUMIN p=$xiP/rouge_orang.33 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_X1234_1_L: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/STRX.X1.1 # # $Z set _____ImageR=$xiirv/STRX.X1234.1$LUMIN # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.X1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.X2.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.X1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.X3.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z R=$xTV/STRX.X1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.X4.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.X1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.X1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.X1234.1%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.X1234.1 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_STRX_X1234_1_L: # # # v $xiav/STRX.Y1.1$R16 v $xiav/STRX.Y1.1$R64 v $xiav/STRX.Y1$COORD_X$R16 v $xiav/STRX.Y1$COORD_X$R64 v $xiav/STRX.Y1$COORD_Y$R16 v $xiav/STRX.Y1$COORD_Y$R64 v $xiav/STRX.Y1$COORD_Z$R16 v $xiav/STRX.Y1$COORD_Z$R64 v $xiav/STRX.Y1.2$R16 v $xiav/STRX.Y1.2$R64 v $xiirv/STRX.Y1.1 v $xiirv/STRX.Y1.2 v $xiirv/STRX.Y1.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_Y1: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.Y1.1 # # $Z setenv _____ImageT2 $xTV/STRX.Y1.2 # # # # $m4 _____include(_____xiirv/.STRX.Y1.1._____U) # # $m4 _____include(_____xiirv/.STRX.X1.2._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.Y1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.Y1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.Y1 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Y1$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Y1$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Y1$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_Y1: # # # # # # Un entrelacs tridimensionnel {1,1,1} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:03:36 # # # # $xci/ombrage.11$X : 00:03:20 # # # # $xci/accumule.42$X : 00:11:37 # # # v $xiav/STRX.Y2.1$R16 v $xiav/STRX.Y2.1$R64 v $xiav/STRX.Y2$COORD_X$R16 v $xiav/STRX.Y2$COORD_X$R64 v $xiav/STRX.Y2$COORD_Y$R16 v $xiav/STRX.Y2$COORD_Y$R64 v $xiav/STRX.Y2$COORD_Z$R16 v $xiav/STRX.Y2$COORD_Z$R64 v $xiav/STRX.Y2.2$R16 v $xiav/STRX.Y2.2$R64 v $xiirv/STRX.Y2.1 v $xiirv/STRX.Y2.2 v $xiirv/STRX.Y2.21 # Generee (sur '$CMAP28' -ex "porte-brancion"-) : # # # # # # :Debut_listG_STRX_Y2: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.Y2.1 # # $Z setenv _____ImageT2 $xTV/STRX.Y2.2 # # # # $m4 _____include(_____xiirv/.STRX.Y1.1._____U) # # $m4 _____include(_____xiirv/.STRX.X1.2._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=2" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.Y2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.Y2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.Y2 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Y2$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Y2$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Y2$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_Y2: # # # # # # Un entrelacs tridimensionnel {2,2,2} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:04:37 # # # # $xci/ombrage.11$X : 00:03:35 # # # # $xci/accumule.42$X : 00:12:03 # # # v $xiav/STRX.Y3.1$R16 v $xiav/STRX.Y3.1$R64 v $xiav/STRX.Y3$COORD_X$R16 v $xiav/STRX.Y3$COORD_X$R64 v $xiav/STRX.Y3$COORD_Y$R16 v $xiav/STRX.Y3$COORD_Y$R64 v $xiav/STRX.Y3$COORD_Z$R16 v $xiav/STRX.Y3$COORD_Z$R64 v $xiav/STRX.Y3.2$R16 v $xiav/STRX.Y3.2$R64 v $xiirv/STRX.Y3.1 v $xiirv/STRX.Y3.2 v $xiirv/STRX.Y3.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_Y3: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.Y3.1 # # $Z setenv _____ImageT2 $xTV/STRX.Y3.2 # # # # $m4 _____include(_____xiirv/.STRX.Y1.1._____U) # # $m4 _____include(_____xiirv/.STRX.X1.2._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=3" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.Y3.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.Y3.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.Y3 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Y3$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Y3$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Y3$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_Y3: # # # # # # Un entrelacs tridimensionnel {3,3,3} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:04:37 # # # # $xci/ombrage.11$X : 00:04:10 # # # # $xci/accumule.42$X : 00:12:44 # # # v $xiav/STRX.Y4.1$R16 v $xiav/STRX.Y4.1$R64 v $xiav/STRX.Y4$COORD_X$R16 v $xiav/STRX.Y4$COORD_X$R64 v $xiav/STRX.Y4$COORD_Y$R16 v $xiav/STRX.Y4$COORD_Y$R64 v $xiav/STRX.Y4$COORD_Z$R16 v $xiav/STRX.Y4$COORD_Z$R64 v $xiav/STRX.Y4.2$R16 v $xiav/STRX.Y4.2$R64 v $xiirv/STRX.Y4.1 v $xiirv/STRX.Y4.2 v $xiirv/STRX.Y4.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_Y4: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.Y4.1 # # $Z setenv _____ImageT2 $xTV/STRX.Y4.2 # # # # $m4 _____include(_____xiirv/.STRX.Y1.1._____U) # # $m4 _____include(_____xiirv/.STRX.X1.2._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # $m4 _____include(_____xiirv/.STRX.31.2._____U) # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.Y4.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.Y4.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.Y4 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Y4$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Y4$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Y4$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_Y4: # # # # # # Un entrelacs tridimensionnel {4,4,4} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'une sphere ('v $xiirs/SPHE.53'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:04:54 # # # # $xci/ombrage.11$X : 00:03:59 # # # # $xci/accumule.42$X : 00:12:38 # # # v $xiirv/STRX.Y1234.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_Y1234_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRX.Y1234.1 # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z set _____ImageA=$xiirv/STRX.Y1.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.Y1%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.Y1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.Y1%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.Y1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.Y2.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.Y2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.Y2 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.Y2%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.Y1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.Y3.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.Y3%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.Y3 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.Y3%s \ # # $Z $ArgMontagne \ # # $Z R=$xTV/STRX.Y1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.Y4.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.Y4%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.Y4 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.Y4%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.Y1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.Y1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_STRX_Y1234_1: # # # v $xiirv/STRX.Y1234.1$LUMIN p=$xiP/trou_noir.B4 v $xiirv/STRX.Y1234.1$LUMIN p=$xiP/rouge_orang.33 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_Y1234_1_L: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/STRX.Y1.1 # # $Z set _____ImageR=$xiirv/STRX.Y1234.1$LUMIN # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.Y1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.Y2.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.Y1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.Y3.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z R=$xTV/STRX.Y1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.Y4.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.Y1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.Y1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.Y1234.1%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.Y1234.1 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_STRX_Y1234_1_L: # # # v $xiirv/STRX.Z1.0 v $xiav/STRX.Z1.1$R16 v $xiav/STRX.Z1.1$R64 v $xiav/STRX.Z1$COORD_X$R16 v $xiav/STRX.Z1$COORD_X$R64 v $xiav/STRX.Z1$COORD_Y$R16 v $xiav/STRX.Z1$COORD_Y$R64 v $xiav/STRX.Z1$COORD_Z$R16 v $xiav/STRX.Z1$COORD_Z$R64 v $xiav/STRX.Z1.2$R16 v $xiav/STRX.Z1.2$R64 v $xiirv/STRX.Z1.1 v $xiirv/STRX.Z1.2 v $xiirv/STRX.Z1.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_Z1: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.Z1.1 # # $Z setenv _____ImageT2 $xTV/STRX.Z1.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=1" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=1" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.Z1.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.Z1 # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____GSurface=tore.11 # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.Z1.3._____U) # # $Z set _____Tinterpoler=FAUX # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.Z1.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.Z1 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Z1$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Z1$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Z1$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_Z1: # # # # # # Un entrelacs tridimensionnel {1,1,1} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'un tore ('v $xiirs/TORE.11'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:01:57 # # # # $xci/ombrage.11$X : 00:02:26 # # # # $xci/accumule.42$X : 00:08:33 # # # v $xiirv/STRX.Z2.0 v $xiav/STRX.Z2.1$R16 v $xiav/STRX.Z2.1$R64 v $xiav/STRX.Z2$COORD_X$R16 v $xiav/STRX.Z2$COORD_X$R64 v $xiav/STRX.Z2$COORD_Y$R16 v $xiav/STRX.Z2$COORD_Y$R64 v $xiav/STRX.Z2$COORD_Z$R16 v $xiav/STRX.Z2$COORD_Z$R64 v $xiav/STRX.Z2.2$R16 v $xiav/STRX.Z2.2$R64 v $xiirv/STRX.Z2.1 v $xiirv/STRX.Z2.2 v $xiirv/STRX.Z2.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_STRX_Z2: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.Z2.1 # # $Z setenv _____ImageT2 $xTV/STRX.Z2.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=2" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=2" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.Z2.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.Z2 # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____GSurface=tore.11 # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.Z1.3._____U) # # $Z set _____Tinterpoler=FAUX # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.Z2.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.Z2 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Z2$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Z2$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Z2$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_Z2: # # # # # # Un entrelacs tridimensionnel {2,2,2} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'un tore ('v $xiirs/TORE.11'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:17 # # # # $xci/ombrage.11$X : 00:02:24 # # # # $xci/accumule.42$X : 00:08:15 # # # v $xiirv/STRX.Z3.0 v $xiav/STRX.Z3.1$R16 v $xiav/STRX.Z3.1$R64 v $xiav/STRX.Z3$COORD_X$R16 v $xiav/STRX.Z3$COORD_X$R64 v $xiav/STRX.Z3$COORD_Y$R16 v $xiav/STRX.Z3$COORD_Y$R64 v $xiav/STRX.Z3$COORD_Z$R16 v $xiav/STRX.Z3$COORD_Z$R64 v $xiav/STRX.Z3.2$R16 v $xiav/STRX.Z3.2$R64 v $xiirv/STRX.Z3.1 v $xiirv/STRX.Z3.2 v $xiirv/STRX.Z3.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_Z3: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.Z3.1 # # $Z setenv _____ImageT2 $xTV/STRX.Z3.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=3" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=3" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.Z3.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.Z3 # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____GSurface=tore.11 # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.Z1.3._____U) # # $Z set _____Tinterpoler=FAUX # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.Z3.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.Z3 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Z3$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Z3$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Z3$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_Z3: # # # # # # Un entrelacs tridimensionnel {3,3,3} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'un tore ('v $xiirs/TORE.11'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:40 # # # # $xci/ombrage.11$X : 00:02:54 # # # # $xci/accumule.42$X : 00:09:24 # # # v $xiirv/STRX.Z4.0 v $xiav/STRX.Z4.1$R16 v $xiav/STRX.Z4.1$R64 v $xiav/STRX.Z4$COORD_X$R16 v $xiav/STRX.Z4$COORD_X$R64 v $xiav/STRX.Z4$COORD_Y$R16 v $xiav/STRX.Z4$COORD_Y$R64 v $xiav/STRX.Z4$COORD_Z$R16 v $xiav/STRX.Z4$COORD_Z$R64 v $xiav/STRX.Z4.2$R16 v $xiav/STRX.Z4.2$R64 v $xiirv/STRX.Z4.1 v $xiirv/STRX.Z4.2 v $xiirv/STRX.Z4.21 # Generee (sur '$CMAP28' -ex "porte-pouchet"-) par : # # # # # # :Debut_listG_STRX_Z4: # # # # $Z Sdu # # # # $Z setenv xTV $DStemporairesG # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z setenv _____ImageT1 $xTV/STRX.Z4.1 # # $Z setenv _____ImageT2 $xTV/STRX.Z4.2 # # # # $m4 _____include(_____xiirv/.STRX.11.1.cX._____U) # # $m4 _____include(_____xiirv/.STRX.11.1.cY._____U) # # $m4 _____include(_____xiirv/.STRX.21.1.cZ._____U) # # # # $Z set _____MIterations=5 # # $Z SET _____CoteCube=0.7 # # $m4 _____include(_____xiirf/.MENG.21.1._____U) # # # # $Z neutre # # # # $m4 _____include(_____xiirf/.MENG.11.1._____U) # # # # Ainsi, on retablit le format d'image demande... # # # # $m4 _____include(_____xiirv/.STRX.L1.1._____U) # # $Z set _____ParamDeformi_12="$K_VIDE" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mxx=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" myy=4" # # $Z set _____ParamDeformi_12="$_____ParamDeformi_12"" mzz=4" # # $m4 _____include(_____xiirv/.STRX.21.2._____U) # # # # Deformation de '$_____ImageT1' en '$_____ImageT2'. # # # # # # $Z set Premiere=$cPremiere # # $Z set Derniere=$cDerniere # # # # $Z set _____images=$_____ImageT1 # # $Z set _____animation=$xiav/STRX.Z4.1 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____ImagesR=$xiirv/STRX.Z4 # # $Z set _____ArgGSurface="$K_VIDE" # # $Z set _____GSurface=tore.11 # # $m4 _____include(_____xiirv/.STRX.E1.2._____U) # # $m4 _____include(_____xiirv/.STRX.Z1.3._____U) # # $Z set _____Tinterpoler=FAUX # # $m4 _____include(_____xiirv/.STRX.E1.4._____U) # # # # $Z set _____images=$_____ImageT2 # # $Z set _____animation=$xiav/STRX.Z4.2 # # $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) # # # # $Z set _____imagesR=$xiirv/STRX.Z4 # # $m4 _____include(_____xiirv/.STRX.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 $_____imagesR.21 \ # # $Z RBV # # # # $m4 _____include(_____xiirv/.STRX.21.6._____U) # # # # $Z set _____images=$_____ImageT1$COORD_X # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Z4$COORD_X # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Y # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Z4$COORD_Y # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # $Z set _____images=$_____ImageT1$COORD_Z # # $Z execALBUM $cPremiere $cDerniere $CoNvErS A=$_____images.%04d R=$_____images.%04d # # $Z set _____animation=$xiav/STRX.Z4$COORD_Z # # $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) # # # # :Fin_listG_STRX_Z4: # # # # # # Un entrelacs tridimensionnel {4,4,4} fait de l'eponge de Menger -iteration 5- # # ('v $xiirf/MENG.23.5.1') a l'interieur d'un tore ('v $xiirs/TORE.11'). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/deformi.12$X : 00:02:46 # # # # $xci/ombrage.11$X : 00:03:22 # # # # $xci/accumule.42$X : 00:10:02 # # # v $xiirv/STRX.Z1234.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_Z1234_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR=$xiirv/STRX.Z1234.1 # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z set _____ImageA=$xiirv/STRX.Z1.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.Z1%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.Z1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.Z1%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.Z1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.Z2.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.Z2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.Z2 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.Z2%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.Z1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.Z3.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.Z3%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.Z3 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.Z3%s \ # # $Z $ArgMontagne \ # # $Z R=$xTV/STRX.Z1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.Z4.1 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.Z4%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.Z4 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$xTV/STRX.Z4%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.Z1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.Z1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_STRX_Z1234_1: # # # v $xiirv/STRX.Z1234.1$LUMIN p=$xiP/trou_noir.B4 v $xiirv/STRX.Z1234.1$LUMIN p=$xiP/rouge_orang.33 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_STRX_Z1234_1_L: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/STRX.Z1.1 # # $Z set _____ImageR=$xiirv/STRX.Z1234.1$LUMIN # # # # $Z set ArgTapisserie="$K_VIDE" # # $Z set ArgTapisserie="$ArgTapisserie"" cache=VRAI" # # $Z set ArgTapisserie="$ArgTapisserie"" iterations=5" # # $Z set ArgTapisserie="$ArgTapisserie"" anti_aliaser=FAUX" # # $Z set ArgTapisserie="$ArgTapisserie"" echelle=VRAI a=0.8" # # # # $Z set ArgLissage="$K_VIDE" # # $Z set ArgLissage="$ArgLissage"" standard=FAUX" # # $Z set ArgLissage="$ArgLissage"" navap=VRAI" # # $Z set ArgLissage="$ArgLissage"" passes=20" # # # # $Z set ArgMontagne="$K_VIDE" # # $Z set ArgMontagne="$ArgMontagne"" standard=FAUX zero=FAUX" # # $Z set ArgMontagne="$ArgMontagne"" avion=VRAI" # # $Z set ArgMontagne="$ArgMontagne"" Sy=100" # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z R=$xTV/STRX.Z1234.0001%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.Z2.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sx$X \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.Z1234.0002%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.Z3.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z R=$xTV/STRX.Z1234.0003%s \ # # $Z $formatI" # # # # $Z set _____ImageA=$xiirv/STRX.Z4.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z $ArgLissage \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z T=$_____ImageA%s \ # # $Z $ArgMontagne \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z $formatI | \ # # $Z $xci/Sy$X \ # # $Z R=$xTV/STRX.Z1234.0004%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/reduction_04$X \ # # $Z A=$xTV/STRX.Z1234. \ # # $Z postfixe=%s \ # # $Z premiere=1 pas=1 \ # # $Z moyenne=VRAI \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z $ArgTapisserie \ # # $Z R=$xTV/STRX.Z1234.1%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/STRX.Z1234.1 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # :Fin_listG_STRX_Z1234_1_L: # # # v $xiirv/SUDO.11 p=$xiP/Sudoku.01 v $xiirv/SUDO.11$m # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SUDO_11: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.SUDO.11.1._____U) # # $m4 _____include(_____xiirv/.SUDO.11.2._____U) # # $Z set _____ImageR=$xiirv/SUDO.11 # # $m4 _____include(_____xiirv/.SUDO.11.3._____U) # # $m4 _____include(_____xiirv/.SUDO.11.4._____U) # # # # :Fin_listG_SUDO_11: # # # # # # Visualisation de la grille de Sudoku 'Sudoku1' : # # # # Y=9 415|638|972 # # Y=8 362|479|185 # # Y=7 789|215|364 # # ---+---+--- # # Y=6 926|341|758 # # Y=5 138|756|429 # # Y=4 574|982|631 # # ---+---+--- # # Y=3 257|164|893 # # Y=2 843|597|216 # # Y=1 691|823|547 # # | | # # | -------> X=9 # # | . # # | . # # | . # # -----------------> X=1 # # # v $xiirv/SUDO.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SUDO_21: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.SUDO.11.1._____U) # # $m4 _____include(_____xiirv/.SUDO.11.2._____U) # # $Z set _____Zoom=0.9 # # $Z set _____Grossissement=2 # # # # $Z execRVB $xci/init$X \ # # $Z niveau=$BLANC \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" fond=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" F=$xTV/FOND" # # # # $Z set _____ImageR=$xiirv/SUDO.21 # # $m4 _____include(_____xiirv/.SUDO.21.2._____U) # # $m4 _____include(_____xiirv/.SUDO.11.4._____U) # # # # :Fin_listG_SUDO_21: # # # # # # Visualisation de la grille de Sudoku 'Sudoku1'. # v $xiirv/SUDO.22 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SUDO_22: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.SUDO.11.1._____U) # # $m4 _____include(_____xiirv/.SUDO.11.2._____U) # # # # $Z set _____Zoom=0.89 # # $Z set _____Grossissement=2 # # $Z set _____Cubique=FAUX # # $Z SET _____Palette=$xiP/Sudoku.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiirv/SUDO.11 \ # # $Z p=$_____Palette \ # # $Z R=$xTV/FOND \ # # $Z $formatI # # # # $Z execRVB $xci/scale$X \ # # $Z A=$xTV/FOND%s \ # # $Z a=0.5 \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" fond=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" F=$xTV/FOND" # # # # $Z set _____ImageR=$xiirv/SUDO.22 # # $m4 _____include(_____xiirv/.SUDO.21.2._____U) # # $m4 _____include(_____xiirv/.SUDO.11.4._____U) # # # # :Fin_listG_SUDO_22: # # # # # # Visualisation de la grille de Sudoku 'Sudoku1'. # v $xiirv/SUDO.23 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SUDO_23: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.SUDO.11.1._____U) # # $m4 _____include(_____xiirv/.SUDO.11.2._____U) # # # # $Z set _____Zoom=0.89 # # $Z set _____Grossissement=2 # # $Z SET _____Palette=$xiP/Sudoku.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiirv/SUDO.11 \ # # $Z p=$_____Palette \ # # $Z R=$xTV/FOND \ # # $Z $formatI # # # # $Z execRVB $xci/scale$X \ # # $Z A=$xTV/FOND%s \ # # $Z a=0.5 \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" fond=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" F=$xTV/FOND" # # # # $Z set _____ImageR=$xiirv/SUDO.23 # # $m4 _____include(_____xiirv/.SUDO.21.2._____U) # # $m4 _____include(_____xiirv/.SUDO.11.4._____U) # # # # :Fin_listG_SUDO_23: # # # # # # Visualisation de la grille de Sudoku 'Sudoku1'. # v $xiirv/SUDO.31 p=$xiP/Sudoku.01 v $xiirv/SUDO.31$m # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SUDO_31: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.SUDO.11.1._____U) # # $m4 _____include(_____xiirv/.SUDO.31.2._____U) # # $Z set _____ImageR=$xiirv/SUDO.31 # # $m4 _____include(_____xiirv/.SUDO.11.3._____U) # # $m4 _____include(_____xiirv/.SUDO.11.4._____U) # # # # :Fin_listG_SUDO_31: # # # # # # Visualisation de la grille de Sudoku 'Sudoku2' : # # # # Y=9 123|456|789 # # Y=8 456|789|123 # # Y=7 789|123|456 # # ---+---+--- # # Y=6 234|567|891 # # Y=5 567|891|234 # # Y=4 891|234|567 # # ---+---+--- # # Y=3 345|678|912 # # Y=2 678|912|345 # # Y=1 912|345|678 # # | | # # | -------> X=9 # # | . # # | . # # | . # # -----------------> X=1 # # # v $xiirv/SUDO.41 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SUDO_41: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.SUDO.11.1._____U) # # $m4 _____include(_____xiirv/.SUDO.31.2._____U) # # $Z set _____Zoom=0.9 # # $Z set _____Grossissement=2 # # # # $Z execRVB $xci/init$X \ # # $Z niveau=$BLANC \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" fond=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" F=$xTV/FOND" # # # # $Z set _____ImageR=$xiirv/SUDO.41 # # $m4 _____include(_____xiirv/.SUDO.21.2._____U) # # $m4 _____include(_____xiirv/.SUDO.11.4._____U) # # # # :Fin_listG_SUDO_41: # # # # # # Visualisation de la grille de Sudoku 'Sudoku2'. # v $xiirv/SUDO.42 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SUDO_42: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.SUDO.11.1._____U) # # $m4 _____include(_____xiirv/.SUDO.31.2._____U) # # # # $Z set _____Zoom=0.89 # # $Z set _____Grossissement=2 # # $Z set _____Cubique=FAUX # # $Z SET _____Palette=$xiP/Sudoku.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiirv/SUDO.11 \ # # $Z p=$_____Palette \ # # $Z R=$xTV/FOND \ # # $Z $formatI # # # # $Z execRVB $xci/scale$X \ # # $Z A=$xTV/FOND%s \ # # $Z a=0.5 \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" fond=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" F=$xTV/FOND" # # # # $Z set _____ImageR=$xiirv/SUDO.42 # # $m4 _____include(_____xiirv/.SUDO.21.2._____U) # # $m4 _____include(_____xiirv/.SUDO.11.4._____U) # # # # :Fin_listG_SUDO_42: # # # # # # Visualisation de la grille de Sudoku 'Sudoku2'. # v $xiirv/SUDO.43 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SUDO_43: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.SUDO.11.1._____U) # # $m4 _____include(_____xiirv/.SUDO.31.2._____U) # # # # $Z set _____Zoom=0.89 # # $Z set _____Grossissement=2 # # $Z SET _____Palette=$xiP/Sudoku.01 # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiirv/SUDO.11 \ # # $Z p=$_____Palette \ # # $Z R=$xTV/FOND \ # # $Z $formatI # # # # $Z execRVB $xci/scale$X \ # # $Z A=$xTV/FOND%s \ # # $Z a=0.5 \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" fond=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" F=$xTV/FOND" # # # # $Z set _____ImageR=$xiirv/SUDO.43 # # $m4 _____include(_____xiirv/.SUDO.21.2._____U) # # $m4 _____include(_____xiirv/.SUDO.11.4._____U) # # # # :Fin_listG_SUDO_43: # # # # # # Visualisation de la grille de Sudoku 'Sudoku2'. # v $xiirv/SUDO.51 p=$xiP/gris.01 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SUDO_51: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.SUDO.11.1._____U) # # $m4 _____include(_____xiirv/.SUDO.11.2._____U) # # $Z set _____ImageR=$xiirv/SUDO.51 # # $m4 _____include(_____xiirv/.SUDO.51.1._____U) # # $m4 _____include(_____xiirv/.SUDO.11.4._____U) # # # # :Fin_listG_SUDO_51: # # # # # # Visualisation de la grille de Sudoku 'Sudoku1'. # v $xiirv/SUDO.52 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SUDO_52: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.SUDO.11.1._____U) # # $m4 _____include(_____xiirv/.SUDO.11.2._____U) # # $Z set _____ImageR=$xiirv/SUDO.52 # # $m4 _____include(_____xiirv/.SUDO.52.1._____U) # # $m4 _____include(_____xiirv/.SUDO.52.2._____U) # # $m4 _____include(_____xiirv/.SUDO.11.4._____U) # # # # :Fin_listG_SUDO_52: # # # # # # Visualisation de la grille de Sudoku 'Sudoku1'. # v $xiirv/SUDO.53 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SUDO_53: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.SUDO.11.1._____U) # # $m4 _____include(_____xiirv/.SUDO.11.2._____U) # # $Z set _____ImageR=$xiirv/SUDO.53 # # $m4 _____include(_____xiirv/.SUDO.53.1._____U) # # $m4 _____include(_____xiirv/.SUDO.52.2._____U) # # $m4 _____include(_____xiirv/.SUDO.11.4._____U) # # # # :Fin_listG_SUDO_53: # # # # # # Visualisation de la grille de Sudoku 'Sudoku1'. # v $xiirv/SUDO.61 p=$xiP/gris.01 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SUDO_61: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.SUDO.11.1._____U) # # $m4 _____include(_____xiirv/.SUDO.31.2._____U) # # $Z set _____ImageR=$xiirv/SUDO.61 # # $m4 _____include(_____xiirv/.SUDO.51.1._____U) # # $m4 _____include(_____xiirv/.SUDO.11.4._____U) # # # # :Fin_listG_SUDO_61: # # # v $xiirv/SUDO.62 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SUDO_62: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.SUDO.11.1._____U) # # $m4 _____include(_____xiirv/.SUDO.31.2._____U) # # $Z set _____ImageR=$xiirv/SUDO.62 # # $m4 _____include(_____xiirv/.SUDO.52.1._____U) # # $m4 _____include(_____xiirv/.SUDO.52.2._____U) # # $m4 _____include(_____xiirv/.SUDO.11.4._____U) # # # # :Fin_listG_SUDO_62: # # # # # # Visualisation de la grille de Sudoku 'Sudoku2'. # v $xiirv/SUDO.63 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SUDO_63: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.SUDO.11.1._____U) # # $m4 _____include(_____xiirv/.SUDO.31.2._____U) # # $Z set _____ImageR=$xiirv/SUDO.63 # # $m4 _____include(_____xiirv/.SUDO.53.1._____U) # # $m4 _____include(_____xiirv/.SUDO.52.2._____U) # # $m4 _____include(_____xiirv/.SUDO.11.4._____U) # # # # :Fin_listG_SUDO_63: # # # # # # Visualisation de la grille de Sudoku 'Sudoku2'. # v $xiirv/SUDO.72 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SUDO_72: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.SUDO.11.1._____U) # # $m4 _____include(_____xiirv/.SUDO.11.2._____U) # # $Z set _____ImageR=$xiirv/SUDO.72 # # $m4 _____include(_____xiirv/.SUDO.72.2.1._____U) # # $m4 _____include(_____xiirv/.SUDO.72.2._____U) # # $m4 _____include(_____xiirv/.SUDO.72.2.2._____U) # # $m4 _____include(_____xiirv/.SUDO.11.4._____U) # # # # :Fin_listG_SUDO_72: # # # # # # Visualisation de la grille de Sudoku 'Sudoku1'. # v $xiirv/SUDO.73$m # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SUDO_73_m: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.SUDO.11.1._____U) # # $m4 _____include(_____xiirv/.SUDO.11.2._____U) # # $Z set _____ImageR=$xiirv/SUDO.73$m # # $m4 _____include(_____xiirv/.SUDO.72.2.1._____U) # # $m4 _____include(_____xiirv/.SUDO.73.2._____U) # # $m4 _____include(_____xiirv/.SUDO.72.2.2._____U) # # $m4 _____include(_____xiirv/.SUDO.11.4._____U) # # # # :Fin_listG_SUDO_73_m: # # # # # # Visualisation de la grille de Sudoku 'Sudoku1'. # v $xiirv/SUDO.73$M v $xiirv/SUDO.73$M.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SUDO_73_M: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.SUDO.11.1._____U) # # $m4 _____include(_____xiirv/.SUDO.11.2._____U) # # $Z set _____NiveauGrille=$GRIS_6 # # $Z set _____ImageR=$xiirv/SUDO.73$M # # $m4 _____include(_____xiirv/.SUDO.72.2.1._____U) # # $Z SET _____Palette=$xiP/pmc.51 # # $Z SET _____PointsConvol=9 # # $Z set _____Avion=FAUX # # $Z set _____ParamMontagne="Ty=0.65" # # $m4 _____include(_____xiirv/.SUDO.73.2._____U) # # $m4 _____include(_____xiirv/.SUDO.72.2.2._____U) # # $m4 _____include(_____xiirv/.SUDO.73.4._____U) # # $m4 _____include(_____xiirv/.SUDO.11.4._____U) # # # # :Fin_listG_SUDO_73_M: # # # # # # Visualisation de la grille de Sudoku 'Sudoku1'. # v $xiirv/SUDO.82 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SUDO_82: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.SUDO.11.1._____U) # # $m4 _____include(_____xiirv/.SUDO.31.2._____U) # # $Z set _____ImageR=$xiirv/SUDO.82 # # $m4 _____include(_____xiirv/.SUDO.72.2.1._____U) # # $m4 _____include(_____xiirv/.SUDO.72.2._____U) # # $m4 _____include(_____xiirv/.SUDO.72.2.2._____U) # # $m4 _____include(_____xiirv/.SUDO.11.4._____U) # # # # :Fin_listG_SUDO_82: # # # # # # Visualisation de la grille de Sudoku 'Sudoku2'. # v $xiirv/SUDO.83$m # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SUDO_83_m: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.SUDO.11.1._____U) # # $m4 _____include(_____xiirv/.SUDO.31.2._____U) # # $Z set _____ImageR=$xiirv/SUDO.83$m # # $m4 _____include(_____xiirv/.SUDO.72.2.1._____U) # # $m4 _____include(_____xiirv/.SUDO.73.2._____U) # # $m4 _____include(_____xiirv/.SUDO.72.2.2._____U) # # $m4 _____include(_____xiirv/.SUDO.11.4._____U) # # # # :Fin_listG_SUDO_83_m: # # # # # # Visualisation de la grille de Sudoku 'Sudoku2'. # v $xiirv/SUDO.83$M v $xiirv/SUDO.83$M.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_SUDO_83_M: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.SUDO.11.1._____U) # # $m4 _____include(_____xiirv/.SUDO.31.2._____U) # # $Z set _____NiveauGrille=$GRIS_6 # # $Z set _____ImageR=$xiirv/SUDO.83$M # # $m4 _____include(_____xiirv/.SUDO.72.2.1._____U) # # $Z SET _____Palette=$xiP/pmc.51 # # $Z SET _____PointsConvol=9 # # $Z set _____Avion=FAUX # # $Z set _____ParamMontagne="Ty=0.65" # # $m4 _____include(_____xiirv/.SUDO.73.2._____U) # # $m4 _____include(_____xiirv/.SUDO.72.2.2._____U) # # $m4 _____include(_____xiirv/.SUDO.73.4._____U) # # $m4 _____include(_____xiirv/.SUDO.11.4._____U) # # # # :Fin_listG_SUDO_83_M: # # # v $xiirv/SURR.11 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_SURR_11: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $DELETE $xTV/NOMBRES # # $Z $DELETE $xTV/NOMBRES$COORD_X # # $Z $DELETE $xTV/NOMBRES$COORD_Y # # # # $Z set DernierJour=5 # # # # $Z $xci/valeurs_SurR$X premier=0 dernier=$DernierJour \ # # $Z nombres_decimaux=VRAI \ # # $Z filiations=VRAI \ # # $Z > $xTV/NOMBRES # # # # $Z $CA $xTV/NOMBRES | \ # # $Z $AW ' { print $2 } ' \ # # $Z > $xTV/NOMBRES$COORD_X # # $Z $CA $xTV/NOMBRES | \ # # $Z $AW ' { print $1 } ' \ # # $Z > $xTV/NOMBRES$COORD_Y # # # # $Z set HoMoX=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_X fhs=VRAI` # # $Z set TrAnX=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_X ts=VRAI` # # # # $Z set HoMoY=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_Y fhs=VRAI` # # $Z set TrAnY=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_Y ts=VRAI` # # # # $Z set NPaRtIcUlEs=`$CA $xTV/NOMBRES | $WCl` # # # # $Z $xrv/particule.10$X np=1 iterations=$NPaRtIcUlEs \ # # $Z AX=$HoMoX BX=$TrAnX \ # # $Z LISTE_X=$xTV/NOMBRES$COORD_X \ # # $Z AY=$HoMoY BY=$TrAnY \ # # $Z LISTE_Y=$xTV/NOMBRES$COORD_Y \ # # $Z LISTE_Z=0 \ # # $Z apparies=VRAI \ # # $Z equidistance=VRAI \ # # $Z Vrayon=0.0075 \ # # $Z grossissement=2.5 \ # # $Z LISTE_ROUGE=$BLANC \ # # $Z LISTE_VERTE=$BLANC \ # # $Z LISTE_BLEUE=$BLANC \ # # $Z Lz=1000 \ # # $Z ZOOM=1.2 \ # # $Z ROTATION_OZ=$pi \ # # $Z R=$xiirv/SURR.11 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # :Fin_listG_SURR_11: # # # # # # Cette image montre les 63 (2^(5+1)-1) premiers nombres surreels. # v $xiirv/SURR.12 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_SURR_12: # # # # $Z Sdu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $DELETE $xTV/NOMBRES* >& $nul # # # # $Z set DernierJour=5 # # # # $Z $xci/valeurs_SurR$X premier=0 dernier=$DernierJour \ # # $Z nombres_decimaux=VRAI \ # # $Z filiations=VRAI \ # # $Z > $xTV/NOMBRES # # # # $Z $CA $xTV/NOMBRES | \ # # $Z $AW ' { print $2 } ' \ # # $Z > $xTV/NOMBRES$COORD_X # # $Z $CA $xTV/NOMBRES | \ # # $Z $AW ' { print $1 } ' \ # # $Z > $xTV/NOMBRES$COORD_Y # # # # $Z set HoMoX=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_X fhs=VRAI` # # $Z set TrAnX=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_X ts=VRAI` # # # # $Z set HoMoY=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_Y fhs=VRAI` # # $Z set TrAnY=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_Y ts=VRAI` # # # # $Z set NPaRtIcUlEs=`$CA $xTV/NOMBRES | $WCl` # # # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES$COORD_X \ # # $Z > $xTV/NOMBRES.1$COORD_X # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES$COORD_Y \ # # $Z > $xTV/NOMBRES.1$COORD_Y # # # # $Z $xrv/ADD2.11$X ne=0 \ # # $Z fichier1=$xTV/NOMBRES.1$COORD_X \ # # $Z fichier2=$xTV/NOMBRES.1$COORD_Y | \ # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier== \ # # $Z minimum=$NOIR maximum=$BLANC \ # # $Z formater=VRAI entiers=VRAI \ # # $Z > $xTV/NOMBRES$NIVEAU # # # # $Z execRVB $xci/init$X \ # # $Z n=$GRIS_4 \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z $xrv/particule.10$X np=1 iterations=$NPaRtIcUlEs \ # # $Z AX=$HoMoX BX=$TrAnX \ # # $Z LISTE_X=$xTV/NOMBRES$COORD_X \ # # $Z AY=$HoMoY BY=$TrAnY \ # # $Z LISTE_Y=$xTV/NOMBRES$COORD_Y \ # # $Z LISTE_Z=0 \ # # $Z apparies=VRAI \ # # $Z equidistance=VRAI \ # # $Z Vrayon=0.0075 \ # # $Z grossissement=2.5 \ # # $Z LISTE_NIVEAU=$xTV/NOMBRES$NIVEAU \ # # $Z palette=$xiP/arc_ciel.C1 \ # # $Z Lz=1000 \ # # $Z ZOOM=1.2 \ # # $Z ROTATION_OZ=$pi \ # # $Z fond=VRAI F=$xTV/FOND \ # # $Z R=$xiirv/SURR.12 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # :Fin_listG_SURR_12: # # # # # # Cette image montre les 63 (2^(5+1)-1) premiers nombres surreels. On notera que la couleur # # choisie pour chaque nombre est une combinaison lineaire des coordonnees {X,Y} ce qui # # garantit que le meme nombre surreel est toujours represente avec la meme couleur (ou # # plutot le meme niveau dans '$xTV/NOMBRES$NIVEAU') alors qu'il est en general visualise # # trois fois (une fois comme "fils", puis deux fois comme "pere" lors de la visualisation # # des connexions...). # v $xiirv/SURR.22 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_SURR_22: # # # # $Z Sdu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $DELETE $xTV/NOMBRES* >& $nul # # # # $Z set DernierJour=5 # # # # $Z $xci/valeurs_SurR$X premier=0 dernier=$DernierJour \ # # $Z date=FAUX \ # # $Z nombres_decimaux=VRAI \ # # $Z filiations=FAUX \ # # $Z > $xTV/NOMBRES.1 # # # # $Z $xrv/CombTenso.01$X ne=0 \ # # $Z fichier1=$xTV/NOMBRES.1 \ # # $Z fichier2=$xTV/NOMBRES.1 \ # # $Z > $xTV/NOMBRES.2 # # # # $Z $xrv/un_sur_N.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES.2 \ # # $Z taille=2 premier=VRAI dernier=FAUX \ # # $Z Men_tete=FAUX \ # # $Z > $xTV/NOMBRES$COORD_X # # $Z $xrv/un_sur_N.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES.2 \ # # $Z taille=2 premier=FAUX dernier=VRAI \ # # $Z Men_tete=FAUX \ # # $Z > $xTV/NOMBRES$COORD_Y # # # # $Z set HoMoX=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_X fhs=VRAI` # # $Z set TrAnX=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_X ts=VRAI` # # # # $Z set HoMoY=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_Y fhs=VRAI` # # $Z set TrAnY=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_Y ts=VRAI` # # # # $Z set NPaRtIcUlEsX=`$CA $xTV/NOMBRES$COORD_X | $WCl` # # $Z set NPaRtIcUlEsY=`$CA $xTV/NOMBRES$COORD_Y | $WCl` # # $Z set NPaRtIcUlEs=`$xcg/MIN2.01$X x=$NPaRtIcUlEsX y=$NPaRtIcUlEsY` # # # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES$COORD_X \ # # $Z > $xTV/NOMBRES.1$COORD_X # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES$COORD_Y \ # # $Z > $xTV/NOMBRES.1$COORD_Y # # # # $Z $xrv/ADD2.11$X ne=0 \ # # $Z fichier1=$xTV/NOMBRES.1$COORD_X \ # # $Z fichier2=$xTV/NOMBRES.1$COORD_Y | \ # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier== \ # # $Z minimum=$NOIR maximum=$BLANC \ # # $Z formater=VRAI entiers=VRAI \ # # $Z > $xTV/NOMBRES$NIVEAU # # # # $Z execRVB $xci/init$X \ # # $Z n=$GRIS_4 \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z $xrv/particule.10$X np=1 iterations=$NPaRtIcUlEs \ # # $Z AX=$HoMoX BX=$TrAnX \ # # $Z LISTE_X=$xTV/NOMBRES$COORD_X \ # # $Z AY=$HoMoY BY=$TrAnY \ # # $Z LISTE_Y=$xTV/NOMBRES$COORD_Y \ # # $Z LISTE_Z=0 \ # # $Z apparies=FAUX \ # # $Z equidistance=VRAI \ # # $Z Vrayon=0.01 \ # # $Z LISTE_NIVEAU=$xTV/NOMBRES$NIVEAU \ # # $Z palette=$xiP/arc_ciel.C1 \ # # $Z Lz=1000 \ # # $Z ZOOM=1.2 \ # # $Z fond=VRAI F=$xTV/FOND \ # # $Z R=$xiirv/SURR.22 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # :Fin_listG_SURR_22: # # # # # # Cette image montre les 63x63 premiers Nombres Complexes SurReels. # v $xiirv/SURR.32 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_SURR_32: # # # # $Z Pal # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $DELETE $xTV/NOMBRES* >& $nul # # # # $Z set DernierJour=5 # # # # $Z $xci/valeurs_SurR$X premier=0 dernier=$DernierJour \ # # $Z date=VRAI \ # # $Z nombres_decimaux=VRAI \ # # $Z filiations=VRAI \ # # $Z > $xTV/NOMBRES # # # # $Z $CA $xTV/NOMBRES | \ # # $Z $AW ' { print $2 } ' \ # # $Z > $xTV/NOMBRES.nombres.pf # # # # $Z $xrv/un_sur_N.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES.nombres.pf \ # # $Z taille=2 premier=VRAI dernier=FAUX \ # # $Z Men_tete=FAUX \ # # $Z > $xTV/NOMBRES.nombres.p # # $Z $xrv/CombTenso.01$X ne=0 \ # # $Z fichier1=$xTV/NOMBRES.nombres.p \ # # $Z fichier2=$xTV/NOMBRES.nombres.p \ # # $Z > $xTV/NOMBRES.nombres.pp # # $Z $xrv/un_sur_N.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES.nombres.pp \ # # $Z taille=2 premier=VRAI dernier=FAUX \ # # $Z Men_tete=FAUX \ # # $Z > $xTV/NOMBRES.nombres.pp$COORD_X # # $Z $xrv/un_sur_N.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES.nombres.pp \ # # $Z taille=2 premier=FAUX dernier=VRAI \ # # $Z Men_tete=FAUX \ # # $Z > $xTV/NOMBRES.nombres.pp$COORD_Y # # # # $Z $xrv/un_sur_N.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES.nombres.pf \ # # $Z taille=2 premier=FAUX dernier=VRAI \ # # $Z Men_tete=FAUX \ # # $Z > $xTV/NOMBRES.nombres.f # # $Z $xrv/CombTenso.01$X ne=0 \ # # $Z fichier1=$xTV/NOMBRES.nombres.f \ # # $Z fichier2=$xTV/NOMBRES.nombres.f \ # # $Z > $xTV/NOMBRES.nombres.ff # # $Z $xrv/un_sur_N.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES.nombres.ff \ # # $Z taille=2 premier=VRAI dernier=FAUX \ # # $Z Men_tete=FAUX \ # # $Z > $xTV/NOMBRES.nombres.ff$COORD_X # # $Z $xrv/un_sur_N.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES.nombres.ff \ # # $Z taille=2 premier=FAUX dernier=VRAI \ # # $Z Men_tete=FAUX \ # # $Z > $xTV/NOMBRES.nombres.ff$COORD_Y # # $Z $xrv/mixage_2.11$X ne=0 \ # # $Z fichier1=$xTV/NOMBRES.nombres.pp$COORD_X \ # # $Z fichier2=$xTV/NOMBRES.nombres.ff$COORD_X \ # # $Z > $xTV/NOMBRES$COORD_X # # $Z $xrv/mixage_2.11$X ne=0 \ # # $Z fichier1=$xTV/NOMBRES.nombres.pp$COORD_Y \ # # $Z fichier2=$xTV/NOMBRES.nombres.ff$COORD_Y \ # # $Z > $xTV/NOMBRES$COORD_Y # # # # $Z $CA $xTV/NOMBRES | \ # # $Z $SE -e 's+^\([^ ]*\) *\([^ ]*\)$+s/^\2$/\1/+' \ # # $Z > $xTV/NOMBRES$sed # # # # $Z $CA $xTV/NOMBRES$COORD_X | \ # # $Z $SE -f $xTV/NOMBRES$sed \ # # $Z > $xTV/NOMBRES$COORD_X$COORD_Z # # $Z $CA $xTV/NOMBRES$COORD_Y | \ # # $Z $SE -f $xTV/NOMBRES$sed \ # # $Z > $xTV/NOMBRES$COORD_Y$COORD_Z # # # # $Z $xrv/MAX2.11$X ne=0 \ # # $Z fichier1=$xTV/NOMBRES$COORD_X$COORD_Z \ # # $Z fichier2=$xTV/NOMBRES$COORD_Y$COORD_Z \ # # $Z > $xTV/NOMBRES$COORD_Z # # # # $Z set HoMoX=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_X fhs=VRAI` # # $Z set TrAnX=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_X ts=VRAI` # # # # $Z set HoMoY=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_Y fhs=VRAI` # # $Z set TrAnY=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_Y ts=VRAI` # # # # $Z set HoMoZ=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_Z fhs=VRAI` # # $Z set TrAnZ=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_Z ts=VRAI` # # # # $Z set NPaRtX=`$CA $xTV/NOMBRES$COORD_X | $WCl` # # $Z set NPaRtY=`$CA $xTV/NOMBRES$COORD_Y | $WCl` # # $Z set NPaRtZ=`$CA $xTV/NOMBRES$COORD_Z | $WCl` # # $Z set NPaRtIcUlEs=`$xcg/MIN3.01$X x=$NPaRtX y=$NPaRtY z=$NPaRtZ` # # # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES$COORD_X \ # # $Z > $xTV/NOMBRES.1$COORD_X # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES$COORD_Y \ # # $Z > $xTV/NOMBRES.1$COORD_Y # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES$COORD_Z \ # # $Z > $xTV/NOMBRES.1$COORD_Z # # # # $Z $xrv/ADD3.11$X ne=0 \ # # $Z fichier1=$xTV/NOMBRES.1$COORD_X \ # # $Z fichier2=$xTV/NOMBRES.1$COORD_Y \ # # $Z fichier3=$xTV/NOMBRES.1$COORD_Z | \ # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier== \ # # $Z minimum=1 maximum=$NPaRtIcUlEs \ # # $Z formater=VRAI entiers=VRAI | \ # # $Z $xrv/MODF.01$X ne=0 \ # # $Z fichier== \ # # $Z origine=$NOIR extremite=$BLANC \ # # $Z formater=VRAI entiers=VRAI \ # # $Z > $xTV/NOMBRES$NIVEAU # # # # $Z $xrv/particule.10$X np=1 iterations=$NPaRtIcUlEs \ # # $Z AX=$HoMoX BX=$TrAnX \ # # $Z LISTE_X=$xTV/NOMBRES$COORD_X \ # # $Z AY=$HoMoY BY=$TrAnY \ # # $Z LISTE_Y=$xTV/NOMBRES$COORD_Y \ # # $Z AZ=$HoMoZ BZ=$TrAnZ \ # # $Z LISTE_Z=$xTV/NOMBRES$COORD_Z \ # # $Z apparies=VRAI \ # # $Z equidistance=VRAI \ # # $Z Vrayon=0.0075 \ # # $Z grossissement=2.5 \ # # $Z LISTE_NIVEAU=$xTV/NOMBRES$NIVEAU \ # # $Z palette=$xiP/arc_ciel.C1 \ # # $Z Zminimum=0.2 Zmaximum=1.0 \ # # $Z ZminimumT=0.2 ZmaximumT=1.0 \ # # $Z Lz=1000 \ # # $Z ROTATION_OY=+0.5 \ # # $Z ROTATION_OX=+1.8 \ # # $Z TRANSLATION_OY=+0.2 \ # # $Z ZOOM=0.7 \ # # $Z N_AU_CARRE=FAUX \ # # $Z R=$xiirv/SURR.32 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # :Fin_listG_SURR_32: # # # # # # Cette image montre le debut de la construction des 63x63 premiers Nombres Complexes # # SurReels. Malheureusement, a la date du 20081111134330 l'arbre est incomplet, peut-etre # # parce que je ne sais pas tres bien ce que je veux. En fait, ce que je veux est impossible # # car, en effet, le processus 'v $xrv/CombTenso.01$K' cree des paires {X,Y} dont les # # composantes 'X' et 'Y' n'ont en general pas ete creees a la meme "date" ; il est donc # # impossible de construire l'arbre que je souhaitais. Je garde malgre tout cette image car # # elle est "esthetiquement" interessante, meme si elle ne presente pas un grand interet # # scientifique... # v $xiirv/SURR.42 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_SURR_42: # # # # $Z Sdu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $DELETE $xTV/NOMBRES* >& $nul # # # # $Z set DernierJour=5 # # # # $Z $xci/valeurs_SurR$X premier=0 dernier=$DernierJour \ # # $Z nombres_decimaux=VRAI \ # # $Z filiations=VRAI \ # # $Z > $xTV/NOMBRES # # # # $Z set NNoMnBrEs=`$CA $xTV/NOMBRES | $WCl` # # # # $Z $CA $xTV/NOMBRES | \ # # $Z $AW ' { print $2 } ' \ # # $Z > $xTV/NOMBRES.XZ$COORD_X # # $Z $xrv/neutre$X ne=$NNoMnBrEs \ # # $Z fichier=0 \ # # $Z > $xTV/NOMBRES.XZ$COORD_Y # # $Z $CA $xTV/NOMBRES | \ # # $Z $AW ' { print $1 } ' \ # # $Z > $xTV/NOMBRES.XZ$COORD_Z # # # # $Z $xrv/neutre$X ne=$NNoMnBrEs \ # # $Z fichier=0 \ # # $Z > $xTV/NOMBRES.YZ$COORD_X # # $Z $CA $xTV/NOMBRES | \ # # $Z $AW ' { print $2 } ' \ # # $Z > $xTV/NOMBRES.YZ$COORD_Y # # $Z $CA $xTV/NOMBRES | \ # # $Z $AW ' { print $1 } ' \ # # $Z > $xTV/NOMBRES.YZ$COORD_Z # # # # $Z $CA $xTV/NOMBRES.XZ$COORD_X $xTV/NOMBRES.YZ$COORD_X \ # # $Z > $xTV/NOMBRES$COORD_X # # $Z $CA $xTV/NOMBRES.XZ$COORD_Y $xTV/NOMBRES.YZ$COORD_Y \ # # $Z > $xTV/NOMBRES$COORD_Y # # $Z $CA $xTV/NOMBRES.XZ$COORD_Z $xTV/NOMBRES.YZ$COORD_Z \ # # $Z > $xTV/NOMBRES$COORD_Z # # # # $Z set NPaRtX=`$CA $xTV/NOMBRES$COORD_X | $WCl` # # $Z set NPaRtY=`$CA $xTV/NOMBRES$COORD_Y | $WCl` # # $Z set NPaRtZ=`$CA $xTV/NOMBRES$COORD_Z | $WCl` # # $Z set NPaRtIcUlEs=`$xcg/MIN3.01$X x=$NPaRtX y=$NPaRtY z=$NPaRtZ` # # # # $Z set HoMoX=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_X fhs=VRAI` # # $Z set TrAnX=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_X ts=VRAI` # # # # $Z set HoMoY=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_Y fhs=VRAI` # # $Z set TrAnY=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_Y ts=VRAI` # # # # $Z set HoMoZ=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_Z fhs=VRAI` # # $Z set TrAnZ=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_Z ts=VRAI` # # # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES$COORD_X \ # # $Z > $xTV/NOMBRES.1$COORD_X # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES$COORD_Y \ # # $Z > $xTV/NOMBRES.1$COORD_Y # # # # $Z $xrv/ADD2.11$X ne=0 \ # # $Z fichier1=$xTV/NOMBRES.1$COORD_X \ # # $Z fichier2=$xTV/NOMBRES.1$COORD_Y | \ # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier== \ # # $Z minimum=$NOIR maximum=$BLANC \ # # $Z formater=VRAI entiers=VRAI \ # # $Z > $xTV/NOMBRES$NIVEAU # # # # $Z execRVB $xci/init$X \ # # $Z n=$GRIS_4 \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z $xrv/particule.10$X np=1 iterations=$NPaRtIcUlEs \ # # $Z AX=$HoMoX BX=$TrAnX \ # # $Z LISTE_X=$xTV/NOMBRES$COORD_X \ # # $Z AY=$HoMoY BY=$TrAnY \ # # $Z LISTE_Y=$xTV/NOMBRES$COORD_Y \ # # $Z AZ=$HoMoZ BZ=$TrAnZ \ # # $Z LISTE_Z=$xTV/NOMBRES$COORD_Z \ # # $Z apparies=VRAI \ # # $Z equidistance=VRAI \ # # $Z Vrayon=0.0075 \ # # $Z grossissement=2.5 \ # # $Z LISTE_NIVEAU=$xTV/NOMBRES$NIVEAU \ # # $Z palette=$xiP/arc_ciel.C1 \ # # $Z Zminimum=0.2 Zmaximum=1.0 \ # # $Z ZminimumT=0.2 ZmaximumT=1.0 \ # # $Z Lz=1000 \ # # $Z ROTATION_OZ=+0.1 \ # # $Z ROTATION_OY=+0.5 \ # # $Z ROTATION_OX=+1.8 \ # # $Z TRANSLATION_OY=+0.16 \ # # $Z ZOOM=0.8 \ # # $Z fond=VRAI F=$xTV/FOND \ # # $Z R=$xiirv/SURR.42 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # :Fin_listG_SURR_42: # # # # # # Cette image montre le processus de construction du plan complexe surreel a partir des # # 63 (2^(5+1)-1) premiers nombres surreels. # v $xiirv/SURR.52 # Generee (sur '$LACT18') par : # # # # # # :Debut_listG_SURR_52: # # # # $Z Sdu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z $DELETE $xTV/NOMBRES* >& $nul # # # # $Z set DernierJour=5 # # # # $Z $xci/valeurs_SurR$X premier=0 dernier=$DernierJour \ # # $Z nombres_decimaux=VRAI \ # # $Z filiations=VRAI \ # # $Z > $xTV/NOMBRES # # # # $Z set NNoMnBrEs=`$CA $xTV/NOMBRES | $WCl` # # # # $Z $CA $xTV/NOMBRES | \ # # $Z $AW ' { print $2 } ' \ # # $Z > $xTV/NOMBRES.XZ$COORD_X # # $Z $xrv/neutre$X ne=$NNoMnBrEs \ # # $Z fichier=0 \ # # $Z > $xTV/NOMBRES.XZ$COORD_Y # # $Z $CA $xTV/NOMBRES | \ # # $Z $AW ' { print $1 } ' \ # # $Z > $xTV/NOMBRES.XZ$COORD_Z # # # # $Z $xrv/neutre$X ne=$NNoMnBrEs \ # # $Z fichier=0 \ # # $Z > $xTV/NOMBRES.YZ$COORD_X # # $Z $CA $xTV/NOMBRES | \ # # $Z $AW ' { print $2 } ' \ # # $Z > $xTV/NOMBRES.YZ$COORD_Y # # $Z $CA $xTV/NOMBRES | \ # # $Z $AW ' { print $1 } ' \ # # $Z > $xTV/NOMBRES.YZ$COORD_Z # # # # # # $Z $xci/valeurs_SurR$X premier=0 dernier=$DernierJour \ # # $Z nombres_decimaux=VRAI \ # # $Z filiations=FAUX \ # # $Z > $xTV/NOMBRES.0 # # # # $Z set ExEmPlAiRe=2 # # $Z set DeRnIeRJoUr=0 # # # # $Z while ($DeRnIeRJoUr <= $DernierJour) # # $Z $DELETE $xTV/NOMBRES.1 # # $Z $DELETE $xTV/NOMBRES.2 # # # # $Z $CA $xTV/NOMBRES.0 | \ # # $Z $GRE "^$DeRnIeRJoUr " | \ # # $Z $AW ' { print $2 } ' \ # # $Z > $xTV/NOMBRES.1 # # $Z $xrv/CombTenso.01$X ne=0 \ # # $Z fichier1=$xTV/NOMBRES.1 \ # # $Z fichier2=$xTV/NOMBRES.1 \ # # $Z > $xTV/NOMBRES.2 # # # # $Z $xrv/un_sur_N.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES.2 \ # # $Z taille=2 premier=VRAI dernier=FAUX \ # # $Z Men_tete=FAUX | \ # # $Z $xrv/neutre$X ne=0 \ # # $Z fichier== \ # # $Z exemplaires=$ExEmPlAiRe \ # # $Z >>! $xTV/NOMBRES.XY$COORD_X # # $Z $xrv/un_sur_N.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES.2 \ # # $Z taille=2 premier=FAUX dernier=VRAI \ # # $Z Men_tete=FAUX | \ # # $Z $xrv/neutre$X ne=0 \ # # $Z fichier== \ # # $Z exemplaires=$ExEmPlAiRe \ # # $Z >>! $xTV/NOMBRES.XY$COORD_Y # # # # $Z set NNoMnBrXY=`$CA $xTV/NOMBRES.2 | $WCl` # # $Z set NNoMnBrXY=`$xcg/DIVZ.01$X a=$NNoMnBrXY b=2` # # # # $Z $xrv/neutre$X ne=$NNoMnBrXY \ # # $Z fichier=$DeRnIeRJoUr \ # # $Z exemplaires=$ExEmPlAiRe \ # # $Z >>! $xTV/NOMBRES.XY$COORD_Z # # # # $Z @ DeRnIeRJoUr = $DeRnIeRJoUr + 1 # # $Z end # # # # $Z $CA $xTV/NOMBRES.XZ$COORD_X \ # # $Z $xTV/NOMBRES.YZ$COORD_X \ # # $Z $xTV/NOMBRES.XY$COORD_X \ # # $Z > $xTV/NOMBRES$COORD_X # # $Z $CA $xTV/NOMBRES.XZ$COORD_Y \ # # $Z $xTV/NOMBRES.YZ$COORD_Y \ # # $Z $xTV/NOMBRES.XY$COORD_Y \ # # $Z > $xTV/NOMBRES$COORD_Y # # $Z $CA $xTV/NOMBRES.XZ$COORD_Z \ # # $Z $xTV/NOMBRES.YZ$COORD_Z \ # # $Z $xTV/NOMBRES.XY$COORD_Z \ # # $Z > $xTV/NOMBRES$COORD_Z # # # # $Z set NPaRtX=`$CA $xTV/NOMBRES.XZ$COORD_X | $WCl` # # $Z set NPaRtY=`$CA $xTV/NOMBRES.XZ$COORD_Y | $WCl` # # $Z set NPaRtZ=`$CA $xTV/NOMBRES.XZ$COORD_Z | $WCl` # # $Z set NPaRtIcUlEs=`$xcg/MIN3.01$X x=$NPaRtX y=$NPaRtY z=$NPaRtZ` # # # # $Z $xrv/neutre$X ne=$NPaRtIcUlEs \ # # $Z fichier=0.0075 \ # # $Z >>! $xTV/NOMBRES.rayon # # # # $Z set NPaRtX=`$CA $xTV/NOMBRES.YZ$COORD_X | $WCl` # # $Z set NPaRtY=`$CA $xTV/NOMBRES.YZ$COORD_Y | $WCl` # # $Z set NPaRtZ=`$CA $xTV/NOMBRES.YZ$COORD_Z | $WCl` # # $Z set NPaRtIcUlEs=`$xcg/MIN3.01$X x=$NPaRtX y=$NPaRtY z=$NPaRtZ` # # # # $Z $xrv/neutre$X ne=$NPaRtIcUlEs \ # # $Z fichier=0.0075 \ # # $Z >>! $xTV/NOMBRES.rayon # # # # $Z set NPaRtX=`$CA $xTV/NOMBRES.XY$COORD_X | $WCl` # # $Z set NPaRtY=`$CA $xTV/NOMBRES.XY$COORD_Y | $WCl` # # $Z set NPaRtZ=`$CA $xTV/NOMBRES.XY$COORD_Z | $WCl` # # $Z set NPaRtIcUlEs=`$xcg/MIN3.01$X x=$NPaRtX y=$NPaRtY z=$NPaRtZ` # # # # $Z $xrv/neutre$X ne=$NPaRtIcUlEs \ # # $Z fichier=0.0052 \ # # $Z >>! $xTV/NOMBRES.rayon # # # # $Z set NPaRtX=`$CA $xTV/NOMBRES$COORD_X | $WCl` # # $Z set NPaRtY=`$CA $xTV/NOMBRES$COORD_Y | $WCl` # # $Z set NPaRtZ=`$CA $xTV/NOMBRES$COORD_Z | $WCl` # # $Z set NPaRtIcUlEs=`$xcg/MIN3.01$X x=$NPaRtX y=$NPaRtY z=$NPaRtZ` # # # # $Z set HoMoX=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_X fhs=VRAI` # # $Z set TrAnX=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_X ts=VRAI` # # # # $Z set HoMoY=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_Y fhs=VRAI` # # $Z set TrAnY=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_Y ts=VRAI` # # # # $Z set HoMoZ=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_Z fhs=VRAI` # # $Z set TrAnZ=`$xrv/extrema.01$X ne=0 fichier=$xTV/NOMBRES$COORD_Z ts=VRAI` # # # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES$COORD_X \ # # $Z > $xTV/NOMBRES.1$COORD_X # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier=$xTV/NOMBRES$COORD_Y \ # # $Z > $xTV/NOMBRES.1$COORD_Y # # # # $Z $xrv/ADD2.11$X ne=0 \ # # $Z fichier1=$xTV/NOMBRES.1$COORD_X \ # # $Z fichier2=$xTV/NOMBRES.1$COORD_Y | \ # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier== \ # # $Z minimum=$NOIR maximum=$BLANC \ # # $Z formater=VRAI entiers=VRAI \ # # $Z > $xTV/NOMBRES$NIVEAU # # # # $Z execRVB $xci/init$X \ # # $Z n=$GRIS_4 \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z $xrv/particule.10$X np=1 iterations=$NPaRtIcUlEs \ # # $Z AX=$HoMoX BX=$TrAnX \ # # $Z LISTE_X=$xTV/NOMBRES$COORD_X \ # # $Z AY=$HoMoY BY=$TrAnY \ # # $Z LISTE_Y=$xTV/NOMBRES$COORD_Y \ # # $Z AZ=$HoMoZ BZ=$TrAnZ \ # # $Z LISTE_Z=$xTV/NOMBRES$COORD_Z \ # # $Z apparies=VRAI \ # # $Z equidistance=VRAI \ # # $Z LISTE_RAYON=$xTV/NOMBRES.rayon \ # # $Z grossissement=2.5 \ # # $Z LISTE_NIVEAU=$xTV/NOMBRES$NIVEAU \ # # $Z palette=$xiP/arc_ciel.C1 \ # # $Z Zminimum=0.2 Zmaximum=1.0 \ # # $Z ZminimumT=0.2 ZmaximumT=1.0 \ # # $Z Lz=1000 \ # # $Z ROTATION_OZ=+0.1 \ # # $Z ROTATION_OY=+0.5 \ # # $Z ROTATION_OX=+1.8 \ # # $Z TRANSLATION_OY=+0.25 \ # # $Z ZOOM=0.70 \ # # $Z fond=VRAI F=$xTV/FOND \ # # $Z R=$xiirv/SURR.52 \ # # $Z chiffres=0 \ # # $Z $formatI # # # # :Fin_listG_SURR_52: # # # # # # Cette image montre le processus de construction du plan complexe surreel a partir des # # 63 (2^(5+1)-1) premiers nombres surreels. # v $xiirv/TDBO.11 # Pour avoir plus d'informations sur ces images, voir les commentaires de la sequence video : # # # # xivPdf 7 1 / 001289_001416 # # # # cette image en etant la premiere. Il s'agit d'une visualisation de l'evolution au cours # # du temps d'une simulation d'un tableau de bord... # v $xiirv/TDBO.18 # Pour avoir plus d'informations sur ces images, voir les commentaires de la sequence video : # # # # xivPdf 7 1 / 001417_001544 # # # # cette image en etant la premiere. Il s'agit d'une visualisation de l'evolution au cours # # du temps d'une simulation d'un tableau de bord... # v $xiirv/TDBO.21 # Cette image resulte de l'accumulation de la sequence : # # # # xivPdf 7 1 / 001545_001672 # # # # par : # # # # Std # # $xci/accumule.01$X A=$xw1/PART.4. postfixe=.? \ # # premiere=1 derniere=128 \ # # renormaliser=VRAI \ # # trx=0 try=0.00195695 \ # # $formatI | # # $xci/substitue$X substitution=L_SUBSTITUTION_ROUGE \ # # p=$xiP/gris.04 \ # # R=$xiirv/TDBO.21.? \ # # $formatI # # # # On notera un petit defaut : le gris de materialisation de la carte de France n'est plus # # gris ; cela vient du fait qu'avec '$xci/accumule.01$X' les trois composantes chromatiques # # sont renormalisees independamment les unes des autres... # v $xiirv/TREE.11 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_11: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____TranslationY=-0.50 # # $Z set _____ImageR=$xiirv/TREE.11 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_11: # # # # # # qui montre un arbre parfaitement non aleatoire bidimensionnel... # v $xiirv/TREE.12 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_12: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____TranslationY=-0.50 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/TREE.12 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_12: # # # # # # qui montre un arbre parfaitement non aleatoire bidimensionnel... # v $xiirv/TREE.22 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_22: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Arbre="1/" # # $Z set _____SousArbre="1/1/" # # $Z set _____TranslationY=-0.50 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/TREE.22 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_22: # # # # # # qui montre un arbre parfaitement non aleatoire et partitionne bidimensionnel... # v $xiirv/TREE.22.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_22_1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/scale$X \ # # $Z A=$xiirv/TREE.22%s \ # # $Z a=0.60 \ # # $Z R=$xTV/TREE.22%s \ # # $Z $formatI # # # # $Z set _____Arbre="1/1/" # # $Z set _____SousArbre="1/1/1/" # # $Z set _____TranslationX=+0.70 # # $Z set _____TranslationY=-1.52 # # $Z set _____RotationZ=+$pis4 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Fond="fond=VRAI F=$xTV/TREE.22" # # $Z set _____ImageR=$xiirv/TREE.22.1 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_22_1: # # # # # # qui montre un arbre parfaitement non aleatoire et partitionne bidimensionnel, avec # # l'une de ses plus grosses branches... # v $xiirv/TREE.22.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_22_2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/scale$X \ # # $Z A=$xiirv/TREE.22.1%s \ # # $Z a=0.60 \ # # $Z R=$xTV/TREE.22.1%s \ # # $Z $formatI # # # # $Z set _____Arbre="1/1/1/" # # $Z set _____SousArbre="1/1/1/1/" # # $Z set _____TranslationX=+1.70 # # $Z set _____TranslationY=-2.06 # # $Z set _____RotationZ=+$pis2 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Fond="fond=VRAI F=$xTV/TREE.22.1" # # $Z set _____ImageR=$xiirv/TREE.22.2 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_22_2: # # # # # # qui montre un arbre parfaitement non aleatoire et partitionne bidimensionnel, avec # # l'une de ses plus grosses branches et ainsi de suite... # v $xiirv/TREE.22.3 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_22_3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/scale$X \ # # $Z A=$xiirv/TREE.22.2%s \ # # $Z a=0.60 \ # # $Z R=$xTV/TREE.22.2%s \ # # $Z $formatI # # # # $Z set _____Arbre="1/1/1/1/" # # $Z set _____SousArbre="1/1/1/1/1/" # # $Z set _____TranslationX=+2.65 # # $Z set _____TranslationY=-1.93 # # $Z set _____RotationZ=`calcul +$pis2+$pis4` # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Fond="fond=VRAI F=$xTV/TREE.22.2" # # $Z set _____ImageR=$xiirv/TREE.22.3 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_22_3: # # # # # # qui montre un arbre parfaitement non aleatoire et partitionne bidimensionnel, avec # # l'une de ses plus grosses branches et ainsi de suite... # v $xiirv/TREE.23 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_23: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Arbre="1/" # # $Z set _____SousArbre="$_____Arbre" # # $Z set _____TranslationY=-0.50 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/TREE.23 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_23: # # # # # # qui montre un arbre parfaitement non aleatoire bidimensionnel... # v $xiirv/TREE.23.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_23_1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/scale$X \ # # $Z A=$xiirv/TREE.23%s \ # # $Z a=0.60 \ # # $Z R=$xTV/TREE.23%s \ # # $Z $formatI # # # # $Z set _____Arbre="1/1/" # # $Z set _____SousArbre="$_____Arbre" # # $Z set _____TranslationX=+0.70 # # $Z set _____TranslationY=-1.52 # # $Z set _____RotationZ=+$pis4 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Fond="fond=VRAI F=$xTV/TREE.23" # # $Z set _____ImageR=$xiirv/TREE.23.1 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_23_1: # # # # # # qui montre un arbre parfaitement non aleatoire bidimensionnel, avec # # l'une de ses plus grosses branches... # v $xiirv/TREE.23.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_23_2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/scale$X \ # # $Z A=$xiirv/TREE.23.1%s \ # # $Z a=0.60 \ # # $Z R=$xTV/TREE.23.1%s \ # # $Z $formatI # # # # $Z set _____Arbre="1/1/1/" # # $Z set _____SousArbre="$_____Arbre" # # $Z set _____TranslationX=+1.70 # # $Z set _____TranslationY=-2.06 # # $Z set _____RotationZ=+$pis2 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Fond="fond=VRAI F=$xTV/TREE.23.1" # # $Z set _____ImageR=$xiirv/TREE.23.2 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_23_2: # # # # # # qui montre un arbre parfaitement non aleatoire bidimensionnel, avec # # l'une de ses plus grosses branches et ainsi de suite... # v $xiirv/TREE.23.3 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_23_3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/scale$X \ # # $Z A=$xiirv/TREE.23.2%s \ # # $Z a=0.60 \ # # $Z R=$xTV/TREE.23.2%s \ # # $Z $formatI # # # # $Z set _____Arbre="1/1/1/1/" # # $Z set _____SousArbre="$_____Arbre" # # $Z set _____TranslationX=+2.65 # # $Z set _____TranslationY=-1.93 # # $Z set _____RotationZ=`calcul +$pis2+$pis4` # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Fond="fond=VRAI F=$xTV/TREE.23.2" # # $Z set _____ImageR=$xiirv/TREE.23.3 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_23_3: # # # # # # qui montre un arbre parfaitement non aleatoire bidimensionnel, avec # # l'une de ses plus grosses branches et ainsi de suite... # v $xiirv/TREE.23.4 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_23_4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/scale$X \ # # $Z A=$xiirv/TREE.23.3%s \ # # $Z a=0.60 \ # # $Z R=$xTV/TREE.23.3%s \ # # $Z $formatI # # # # $Z set _____Arbre="1/1/1/1/1/" # # $Z set _____SousArbre="$_____Arbre" # # $Z set _____TranslationX=+3.12 # # $Z set _____TranslationY=-1.30 # # $Z set _____RotationZ=`calcul +$pis2+$pis4+$pis4` # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Fond="fond=VRAI F=$xTV/TREE.23.3" # # $Z set _____ImageR=$xiirv/TREE.23.4 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_23_4: # # # # # # qui montre un arbre parfaitement non aleatoire bidimensionnel, avec # # l'une de ses plus grosses branches et ainsi de suite... # v $xiirv/TREE.24.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_24_1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/scale$X \ # # $Z A=$xiirv/TREE.23%s \ # # $Z a=0.60 \ # # $Z R=$xTV/TREE.23%s \ # # $Z $formatI # # # # $Z set _____Arbre="1/1/" # # $Z set _____SousArbre="1/1/1/" # # $Z set _____TranslationX=+0.70 # # $Z set _____TranslationY=-1.52 # # $Z set _____RotationZ=+$pis4 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Fond="fond=VRAI F=$xTV/TREE.23" # # $Z set _____ImageR=$xiirv/TREE.24.1 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_24_1: # # # # # # qui montre un arbre parfaitement non aleatoire et partitionne bidimensionnel, avec # # l'une de ses plus grosses branches... # v $xiirv/TREE.24.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_24_2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/scale$X \ # # $Z A=$xiirv/TREE.23.1%s \ # # $Z a=0.60 \ # # $Z R=$xTV/TREE.23.1%s \ # # $Z $formatI # # # # $Z set _____Arbre="1/1/1/" # # $Z set _____SousArbre="1/1/1/1/" # # $Z set _____TranslationX=+1.70 # # $Z set _____TranslationY=-2.06 # # $Z set _____RotationZ=+$pis2 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Fond="fond=VRAI F=$xTV/TREE.23.1" # # $Z set _____ImageR=$xiirv/TREE.24.2 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_24_2: # # # # # # qui montre un arbre parfaitement non aleatoire et partitionne bidimensionnel, avec # # l'une de ses plus grosses branches et ainsi de suite... # v $xiirv/TREE.24.3 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_24_3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/scale$X \ # # $Z A=$xiirv/TREE.23.2%s \ # # $Z a=0.60 \ # # $Z R=$xTV/TREE.23.2%s \ # # $Z $formatI # # # # $Z set _____Arbre="1/1/1/1/" # # $Z set _____SousArbre="1/1/1/1/1/" # # $Z set _____TranslationX=+2.65 # # $Z set _____TranslationY=-1.93 # # $Z set _____RotationZ=`calcul +$pis2+$pis4` # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Fond="fond=VRAI F=$xTV/TREE.23.2" # # $Z set _____ImageR=$xiirv/TREE.24.3 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_24_3: # # # # # # qui montre un arbre parfaitement non aleatoire et partitionne bidimensionnel, avec # # l'une de ses plus grosses branches et ainsi de suite... # v $xiirv/TREE.32 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_32: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____BIBranchesTheta=-2 # # $Z set _____BSBranchesTheta=+2 # # $Z set _____BIRho=-0.1 # # $Z set _____BSRho=+0.1 # # $Z set _____BITheta=-0.2 # # $Z set _____BSTheta=+0.2 # # $Z set _____Zoom=0.45 # # $Z set _____TranslationY=-1.00 # # $Z set _____SousArbre="1/1/" # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/TREE.32 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_32: # # # # # # qui montre un arbre aleatoire et partitionne bidimensionnel... # v $xiirv/TREE.32.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_32_1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/scale$X \ # # $Z A=$xiirv/TREE.32%s \ # # $Z a=0.60 \ # # $Z R=$xTV/TREE.32%s \ # # $Z $formatI # # # # $Z set _____BIBranchesTheta=-2 # # $Z set _____BSBranchesTheta=+2 # # $Z set _____BIRho=-0.1 # # $Z set _____BSRho=+0.1 # # $Z set _____BITheta=-0.2 # # $Z set _____BSTheta=+0.2 # # $Z set _____Zoom=0.45 # # $Z set _____Arbre="1/1/" # # $Z set _____SousArbre="1/1/1/" # # $Z set _____TranslationX=`calcul (0.70*0.6)/$_____Zoom` # # $Z set _____TranslationY=-2.02 # # $Z set _____ARotationZ=$EXIST # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Fond="fond=VRAI F=$xTV/TREE.32" # # $Z set _____ImageR=$xiirv/TREE.32.1 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_32_1: # # # # # # qui montre un arbre parfaitement aleatoire et partitionne bidimensionnel, avec # # l'une de ses plus grosses branches... # v $xiirv/TREE.32.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_32_2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/scale$X \ # # $Z A=$xiirv/TREE.32.1%s \ # # $Z a=0.60 \ # # $Z R=$xTV/TREE.32.1%s \ # # $Z $formatI # # # # $Z set _____BIBranchesTheta=-2 # # $Z set _____BSBranchesTheta=+2 # # $Z set _____BIRho=-0.1 # # $Z set _____BSRho=+0.1 # # $Z set _____BITheta=-0.2 # # $Z set _____BSTheta=+0.2 # # $Z set _____Zoom=0.45 # # $Z set _____Arbre="1/1/1/" # # $Z set _____SousArbre="1/1/1/1/" # # $Z set _____TranslationX=`calcul (1.70*0.6)/$_____Zoom` # # $Z set _____TranslationY=-2.56 # # $Z set _____ARotationZ=$EXIST # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Fond="fond=VRAI F=$xTV/TREE.32.1" # # $Z set _____ImageR=$xiirv/TREE.32.2 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_32_2: # # # # # # qui montre un arbre parfaitement aleatoire et partitionne bidimensionnel, avec # # l'une de ses plus grosses branches et ainsi de suite... # v $xiirv/TREE.32.3 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_32_3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z execRVB $xci/scale$X \ # # $Z A=$xiirv/TREE.32.2%s \ # # $Z a=0.60 \ # # $Z R=$xTV/TREE.32.2%s \ # # $Z $formatI # # # # $Z set _____BIBranchesTheta=-2 # # $Z set _____BSBranchesTheta=+2 # # $Z set _____BIRho=-0.1 # # $Z set _____BSRho=+0.1 # # $Z set _____BITheta=-0.2 # # $Z set _____BSTheta=+0.2 # # $Z set _____Zoom=0.45 # # $Z set _____Arbre="1/1/1/1/" # # $Z set _____SousArbre="1/1/1/1/1/" # # $Z set _____TranslationX=`calcul (2.52*0.6)/$_____Zoom` # # $Z set _____TranslationY=-2.33 # # $Z set _____ARotationZ=$EXIST # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____Fond="fond=VRAI F=$xTV/TREE.32.2" # # $Z set _____ImageR=$xiirv/TREE.32.3 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_32_3: # # # # # # qui montre un arbre parfaitement aleatoire et partitionne bidimensionnel, avec # # l'une de ses plus grosses branches et ainsi de suite... # v $xiirv/TREE.33 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_33: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____BIBranchesTheta=-2 # # $Z set _____BSBranchesTheta=+2 # # $Z set _____BIRho=-0.1 # # $Z set _____BSRho=+0.1 # # $Z set _____BITheta=-0.2 # # $Z set _____BSTheta=+0.2 # # $Z set _____BIZ=-0.3 # # $Z set _____BSZ=+0.3 # # $Z set _____Zoom=0.45 # # $Z set _____TranslationY=-1.00 # # $Z set _____SousArbre="1/1/" # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/TREE.33 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_33: # # # # # # qui montre un arbre aleatoire et partitionne tridimensionnel... # v $xiirv/TREE.34 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_34: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____BIBranchesTheta=-2 # # $Z set _____BSBranchesTheta=+2 # # $Z set _____BIRho=-0.1 # # $Z set _____BSRho=+0.1 # # $Z set _____BITheta=-0.2 # # $Z set _____BSTheta=+0.2 # # $Z set _____BIZ=-0.3 # # $Z set _____BSZ=+0.3 # # $Z set _____Zoom=0.45 # # $Z set _____TranslationY=-1.00 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/TREE.34 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_34: # # # # # # qui montre un arbre aleatoire tridimensionnel... # v $xiirv/TREE.43 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_43: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____BIBranchesTheta=-2 # # $Z set _____BSBranchesTheta=+2 # # $Z set _____BIRho=-0.1 # # $Z set _____BSRho=+0.1 # # $Z set _____BITheta=-0.2 # # $Z set _____BSTheta=+0.2 # # $Z set _____BIZ=-0.3 # # $Z set _____BSZ=+0.3 # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=1 # # $Z set _____DeriveeY=1 # # $Z set _____DeriveeZ=1 # # $Z set _____Zoom=0.45 # # $Z set _____TranslationY=-1.00 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/TREE.43 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_43: # # # # # # qui montre un arbre aleatoire tridimensionnel et "tordu"... # v $xiirv/TREE.52 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_52: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____3D=VRAI # # $Z set _____NBranchesTheta=3 # # $Z set _____NBranchesPhi=3 # # $Z set _____EvasementPhi=$pis2 # # $Z set _____TranslationY=-0.50 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____NAuCarre=FAUX # # $Z set _____ImageR=$xiirv/TREE.52 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_52: # # # # # # qui montre un arbre parfaitement non aleatoire tridimensionnel... # v $xiirv/TREE.62 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_62: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____3D=VRAI # # $Z set _____NBranchesTheta=3 # # $Z set _____NBranchesPhi=3 # # $Z set _____EvasementPhi=$pis2 # # $Z set _____BIBranchesTheta=-1 # # $Z set _____BSBranchesTheta=+1 # # $Z set _____BIBranchesPhi=-1 # # $Z set _____BSBranchesPhi=+1 # # $Z set _____BIRho=-0.1 # # $Z set _____BSRho=+0.1 # # $Z set _____BITheta=-0.2 # # $Z set _____BSTheta=+0.2 # # $Z set _____BIPhi=-0.2 # # $Z set _____BSPhi=+0.2 # # $Z set _____TranslationY=-0.50 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____NAuCarre=FAUX # # $Z set _____ImageR=$xiirv/TREE.62 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_62: # # # # # # qui montre un arbre aleatoire tridimensionnel... # v $xiirv/TREE.74 v $xiirv/TREE.74.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_74: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB LiStEDeRiVeEs # # # # $Z set _____NArbitraireDXYZ=10000 # # $Z set _____BInferieureDXYZ=-1 # # $Z set _____BSuperieureDXYZ=+1 # # $m4 _____include(_____xiirv/.TREE.74.1._____U) # # # # $Z set _____BIBranchesTheta=-2 # # $Z set _____BSBranchesTheta=+2 # # $Z set _____BIRho=-0.1 # # $Z set _____BSRho=+0.1 # # $Z set _____BITheta=-0.2 # # $Z set _____BSTheta=+0.2 # # $Z set _____BIZ=-0.3 # # $Z set _____BSZ=+0.3 # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=$LiStEDeRiVeEs$COORD_X # # $Z set _____DeriveeY=$LiStEDeRiVeEs$COORD_Y # # $Z set _____DeriveeZ=$LiStEDeRiVeEs$COORD_Z # # $Z set _____Zoom=0.45 # # $Z set _____TranslationY=-1.00 # # $Z set _____Palette=$xiP/inter.02.21 # # $Z set _____ImageR=$xiirv/TREE.74 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # $Z FilSTmpE LiStEDeRiVeEs # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageR%s \ # # $Z cache=VRAI \ # # $Z iterations=2 \ # # $Z anti_aliaser=VRAI \ # # $Z echelle=VRAI a=0.8 \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI # # # # :Fin_listG_TREE_74: # # # # # # qui montre un arbre aleatoire tridimensionnel... # # # # On notera le nombre '$_____NArbitraireDXYZ' arbitraire de derivees calculees. En effet, # # il est quasiment impossible de savoir le nombre de points '$Npart' qui sera vraiment # # utile avant l'utilisation de 'v $xci/valeurs_Arbre.01$K'... # v $xiirv/TREE.75 v $xiirv/TREE.75.1 v $xiirv/TREE.75.1$m # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_75: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB LiStEDeRiVeEs # # # # $Z set _____NArbitraireDXYZ=20000 # # $Z set _____BInferieureDXYZ=-1 # # $Z set _____BSuperieureDXYZ=+1 # # $m4 _____include(_____xiirv/.TREE.74.1._____U) # # # # $Z set _____Iterations=6 # # $Z set _____BIBranchesTheta=-2 # # $Z set _____BSBranchesTheta=+2 # # $Z set _____BIRho=-0.1 # # $Z set _____BSRho=+0.1 # # $Z set _____BITheta=-0.2 # # $Z set _____BSTheta=+0.2 # # $Z set _____BIZ=-0.3 # # $Z set _____BSZ=+0.3 # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=$LiStEDeRiVeEs$COORD_X # # $Z set _____DeriveeY=$LiStEDeRiVeEs$COORD_Y # # $Z set _____DeriveeZ=$LiStEDeRiVeEs$COORD_Z # # $Z set _____Zoom=0.35 # # $Z set _____TranslationY=-1.00 # # $Z set _____Palette=$xiP/random.A5 # # $Z set _____NAuCarre=FAUX # # $Z set _____ImageR=$xiirv/TREE.75 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # $Z FilSTmpE LiStEDeRiVeEs # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageR%s \ # # $Z cache=VRAI \ # # $Z iterations=2 \ # # $Z anti_aliaser=VRAI \ # # $Z echelle=VRAI a=0.8 \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR.1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=1000 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$_____ImageR.1%s \ # # $Z avion=VRAI \ # # $Z Sy=30 \ # # $Z R=$_____ImageR.1$m%s \ # # $Z $formatI # # # # :Fin_listG_TREE_75: # # # # # # qui montre un arbre aleatoire tridimensionnel... # v $xiirv/TREE.75$HauteDef v $xiirv/TREE.75$HauteDef.1 v $xiirv/TREE.75$HauteDef.1$m # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_75_HauteDef: # # # # $Z Phu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB LiStEDeRiVeEs # # # # $Z set _____NArbitraireDXYZ=20000 # # $Z set _____BInferieureDXYZ=-1 # # $Z set _____BSuperieureDXYZ=+1 # # $m4 _____include(_____xiirv/.TREE.74.1._____U) # # # # $Z set _____Iterations=6 # # $Z set _____BIBranchesTheta=-2 # # $Z set _____BSBranchesTheta=+2 # # $Z set _____BIRho=-0.1 # # $Z set _____BSRho=+0.1 # # $Z set _____BITheta=-0.2 # # $Z set _____BSTheta=+0.2 # # $Z set _____BIZ=-0.3 # # $Z set _____BSZ=+0.3 # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=$LiStEDeRiVeEs$COORD_X # # $Z set _____DeriveeY=$LiStEDeRiVeEs$COORD_Y # # $Z set _____DeriveeZ=$LiStEDeRiVeEs$COORD_Z # # $Z set _____Zoom=0.35 # # $Z set _____TranslationY=-1.00 # # $Z set _____Palette=$xiP/random.A5 # # $Z set _____NAuCarre=FAUX # # $Z set _____ImageR=$xiirv/TREE.75$HauteDef # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # $Z FilSTmpE LiStEDeRiVeEs # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageR%s \ # # $Z cache=VRAI \ # # $Z iterations=2 \ # # $Z anti_aliaser=VRAI \ # # $Z echelle=VRAI a=0.8 \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR.1 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=1000 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$_____ImageR.1%s \ # # $Z avion=VRAI \ # # $Z Sy=30 \ # # $Z R=$_____ImageR.1$m%s \ # # $Z $formatI # # # # :Fin_listG_TREE_75_HauteDef: # # # # # # qui montre un arbre aleatoire tridimensionnel... # # # # Elle est identique a 'v $xiirv/TREE.75' mais en mode '$HauteDef' pour le livre de # # Tom Mikulic ('v $Dcourrier_in/20150504091726 From.tmikulic@gmail.com..Thu.Apr.30.18:15'). # v $xiirv/TREE.76 v $xiirv/TREE.76.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_76: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB LiStEDeRiVeEs # # # # $Z set _____NArbitraireDXYZ=10000 # # $Z set _____BInferieureDXYZ=-0.5 # # $Z set _____BSuperieureDXYZ=+0.5 # # $m4 _____include(_____xiirv/.TREE.74.1._____U) # # # # $Z set _____CDI=VRAI # # $Z set _____Graine=1947 # # $Z set _____BIBranchesTheta=-2 # # $Z set _____BSBranchesTheta=+2 # # $Z set _____BIRho=-0.1 # # $Z set _____BSRho=+0.1 # # $Z set _____BITheta=-0.2 # # $Z set _____BSTheta=+0.2 # # $Z set _____BIZ=-1.0 # # $Z set _____BSZ=+1.0 # # $Z SET _____Rayon=(0.010 0.080) # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=$LiStEDeRiVeEs$COORD_X # # $Z set _____DeriveeY=$LiStEDeRiVeEs$COORD_Y # # $Z set _____DeriveeZ=$LiStEDeRiVeEs$COORD_Z # # $Z set _____Zoom=0.55 # # $Z set _____TranslationY=-0.70 # # $Z set _____Palette=$xiP/trou_noir.C4 # # $Z set _____ImageR=$xiirv/TREE.76 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # $Z FilSTmpE LiStEDeRiVeEs # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageR%s \ # # $Z cache=VRAI \ # # $Z iterations=2 \ # # $Z anti_aliaser=VRAI \ # # $Z echelle=VRAI a=0.8 \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI # # # # :Fin_listG_TREE_76: # # # # # # qui montre un arbre aleatoire tridimensionnel evoquant l'inflation cosmique fractale... # v $xiirv/TREE.77 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_77: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB LiStEDeRiVeEs # # # # $Z set _____NArbitraireDXYZ=10000 # # $Z set _____BInferieureDXYZ=-0.5 # # $Z set _____BSuperieureDXYZ=+0.5 # # $m4 _____include(_____xiirv/.TREE.74.1._____U) # # # # $Z set _____CDI=VRAI # # $Z set _____Graine=1947 # # $Z set _____BIBranchesTheta=-2 # # $Z set _____BSBranchesTheta=+2 # # $Z set _____BIRho=-0.1 # # $Z set _____BSRho=+0.1 # # $Z set _____BITheta=-0.2 # # $Z set _____BSTheta=+0.2 # # $Z set _____BIZ=-1.0 # # $Z set _____BSZ=+1.0 # # $Z SET _____Complet=$EXIST # # $Z SET _____Rayon=(0.010 0.080) # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=$LiStEDeRiVeEs$COORD_X # # $Z set _____DeriveeY=$LiStEDeRiVeEs$COORD_Y # # $Z set _____DeriveeZ=$LiStEDeRiVeEs$COORD_Z # # $Z set _____NAuCarre=FAUX # # $Z set _____Zoom=0.55 # # $Z set _____TranslationY=-0.70 # # $Z set _____Palette=$xiP/trou_noir.C4 # # $Z set _____ImageR=$xiirv/TREE.77 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # $Z FilSTmpE LiStEDeRiVeEs # # # # :Fin_listG_TREE_77: # # # # # # Cette image est identique de 'v $xiirv/TREE.76' mais utilise '$_____Complet'. Cela fait # # que l'on "repasse" plusieurs fois par chacun des noeuds. Or les derivees sont aleatoires # # et determinees independemment les unes des autres lors de chacun de ces passages. Cela # # explique donc l'aspect "multiple" et torsade de chaque branche (qui sont donc tracees # # plusieurs fois avec des derivees differentes...), mais aussi les variations de couleurs. # v $xiirv/TREE.78 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_78: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____CDI=VRAI # # $Z set _____Graine=1947 # # $Z set _____BIBranchesTheta=-2 # # $Z set _____BSBranchesTheta=+2 # # $Z set _____Reduction=1 # # $Z set _____BIRho=0 # # $Z set _____BSRho=0 # # $Z set _____BITheta=-0.2 # # $Z set _____BSTheta=+0.2 # # $Z set _____BIZ=0 # # $Z set _____BSZ=0 # # $Z SET _____Rayon=0.040 # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=0 # # $Z set _____DeriveeY=0 # # $Z set _____DeriveeZ=0 # # $Z set _____Zoom=0.35 # # $Z set _____TranslationY=-1.30 # # $Z set _____Palette=$xiP/trou_noir.C4 # # $Z set _____ImageR=$xiirv/TREE.78 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_78: # # # # # # Image qui montre un arbre non aleatoire ou toutes les branches ont meme longueur et rayon # # (en projection) contrairement a 'v $xiirv/TREE.76'. Il existe de plus toujours, en partant # # de chaque noeud, une suite de branches alignees (grace a '$_____CDI'...). # v $xiirv/TREE.79 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_79: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____CDI=VRAI # # $Z set _____ArgumentsArbre="numeroter=VRAI" # # $Z SET _____RayonAligne=$EXIST # # $Z set _____Iterations=6 # # $Z set _____NBranchesTheta=3 # # $Z set _____EvasementTheta=$pi # # $Z set _____Graine=1947 # # $Z set _____BIBranchesTheta=0 # # $Z set _____BSBranchesTheta=0 # # $Z set _____Reduction=0.5 # # $Z set _____BIRho=0 # # $Z set _____BSRho=0 # # $Z set _____BITheta=0 # # $Z set _____BSTheta=0 # # $Z set _____BIZ=0 # # $Z set _____BSZ=0 # # $Z set _____Cubique=FAUX # # $Z set _____DeriveeX=0 # # $Z set _____DeriveeY=0 # # $Z set _____DeriveeZ=0 # # $Z set _____DistanceMini=0.010 # # $Z set _____Zoom=0.95 # # $Z set _____TranslationY=0 # # $Z set _____Palette=$xiP/trou_noir.C4 # # $Z set _____ImageR=$xiirv/TREE.79 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_79: # # # # # # Image qui montre un arbre non aleatoire ou toutes les branches ont meme longueur et dont # # les rayons sont proportionnels aux nombres d'occurence des "NumeroAligne"s... # v $xiirv/TREE.79.1 v $xiirv/TREE.79.1.1 v $xiirv/TREE.79.1.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_79_1: # # # # $Z Pdu # # # # $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/TREE.79 # # $Z set _____ImageR=$_____ImageA.1 # # # # $Z set PhAsE=`calcul $pis2+$pi` # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=+1.0 \ # # $Z Ct=3 \ # # $Z Pt=$PhAsE \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_X \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z standard=FAUX \ # # $Z Cc=-1.0 \ # # $Z Ct=3 \ # # $Z Pt=$PhAsE \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/DEFORMATION$COORD_Y \ # # $Z $formatI # # # # $Z execRVB $xci/acces$X \ # # $Z A=$_____ImageA%s \ # # $Z convertir=VRAI \ # # $Z R=$xTV/CHAMP%s \ # # $Z $formatI # # # # $Z execRVB "$xci/deformi.01$X \ # # $Z A=$xTV/CHAMP%s \ # # $Z DX=$xTV/DEFORMATION$COORD_X \ # # $Z DY=$xTV/DEFORMATION$COORD_Y \ # # $Z appliquer_une_matrice_de_transformation=VRAI \ # # $Z mxx=0.5 mxy=0 mxz=0 \ # # $Z myx=0 myy=0.5 myz=0 \ # # $Z mzx=0 mzy=0 mzz=0 \ # # $Z tridimensionnelle=FAUX \ # # $Z bilineaire=VRAI \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z standard=FAUX \ # # $Z brutal=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/tapisserie$X \ # # $Z A=$_____ImageR%s \ # # $Z cache=VRAI \ # # $Z iterations=1 \ # # $Z anti_aliaser=VRAI \ # # $Z echelle=VRAI a=0.8 \ # # $Z $formatI | \ # # $Z $xci/jeu_vie.01$X \ # # $Z iterations=3 \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____ImageR \ # # $Z $_____ImageR.1 \ # # $Z VBR # # # # $Z set PhAsE=$pis2 # # # # $Z $xci/trefle$X \ # # $Z Cc=+1.0 \ # # $Z Ct=3 \ # # $Z Pt=$PhAsE \ # # $Z Ex=0.8 Ey=0.8 \ # # $Z carre_X_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z carre_Y_CHAMP_3D_____compatibilite_20100210=VRAI \ # # $Z R=$xTV/TREFLE \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$_____ImageR.1%s \ # # $Z A2=$_____ImageR%s \ # # $Z P=$xTV/TREFLE \ # # $Z R=$_____ImageR.2%s \ # # $Z $formatI # # # # :Fin_listG_TREE_79_1: # # # v $xiirv/TREE.7A # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_7A: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB LiStEDeRiVeEs # # # # $Z set _____NArbitraireDXYZ=10000 # # $Z set _____BInferieureDXYZ=-0.5 # # $Z set _____BSuperieureDXYZ=+0.5 # # $m4 _____include(_____xiirv/.TREE.74.1._____U) # # # # $Z set _____CDI=VRAI # # $Z set _____ArgumentsArbre="numeroter=VRAI" # # $Z SET _____RayonAligne=$EXIST # # $Z set _____Iterations=6 # # $Z set _____NBranchesTheta=3 # # $Z set _____EvasementTheta=$pi # # $Z set _____Graine=1947 # # $Z set _____BIBranchesTheta=0 # # $Z set _____BSBranchesTheta=0 # # $Z set _____Reduction=0.7 # # $Z set _____BIRho=0 # # $Z set _____BSRho=0 # # $Z set _____BITheta=0 # # $Z set _____BSTheta=0 # # $Z set _____BIZ=0 # # $Z set _____BSZ=0 # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=$LiStEDeRiVeEs$COORD_X # # $Z set _____DeriveeY=$LiStEDeRiVeEs$COORD_Y # # $Z set _____DeriveeZ=$LiStEDeRiVeEs$COORD_Z # # $Z set _____NAuCarre=FAUX # # $Z set _____DistanceMini=0.002 # # $Z set _____Zoom=0.55 # # $Z set _____TranslationY=-0.32 # # $Z set _____Palette=$xiP/trou_noir.C4 # # $Z set _____ImageR=$xiirv/TREE.7A # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # $Z FilSTmpE LiStEDeRiVeEs # # # # :Fin_listG_TREE_7A: # # # # # # Image identique a 'v $xiirv/TREE.79' mais en version non lineaire... # v $xiirv/TREE.7A$m # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_7A_m: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/TREE.7A # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageA%s \ # # $Z iterations=3 \ # # $Z R=$xTV/JEU_VIE%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/JEU_VIE \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=500 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/JEU_VIE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/JEU_VIE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/JEU_VIE%s \ # # $Z avion=VRAI \ # # $Z Sy=40 \ # # $Z ombres=FAUX \ # # $Z R=$_____ImageA$m%s \ # # $Z $formatI # # # # :Fin_listG_TREE_7A_m: # # # v $xiirv/TREE.7B # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_7B: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB LiStEDeRiVeEs # # # # $Z set _____NArbitraireDXYZ=10000 # # $Z set _____BInferieureDXYZ=-0.5 # # $Z set _____BSuperieureDXYZ=+0.5 # # $m4 _____include(_____xiirv/.TREE.74.1._____U) # # # # $Z set _____CDI=VRAI # # $Z set _____ArgumentsArbre="numeroter=VRAI" # # $Z SET _____RayonAligne=$EXIST # # $Z set _____Iterations=6 # # $Z set _____NBranchesTheta=3 # # $Z set _____EvasementTheta=$pi # # $Z set _____Graine=1947 # # $Z set _____BIBranchesTheta=0 # # $Z set _____BSBranchesTheta=0 # # $Z set _____Reduction=0.7 # # $Z set _____BIRho=-0.1 # # $Z set _____BSRho=+0.1 # # $Z set _____BITheta=-0.2 # # $Z set _____BSTheta=+0.2 # # $Z set _____BIZ=-1.0 # # $Z set _____BSZ=+1.0 # # $Z SET _____FRayonAligne=0.012 # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=$LiStEDeRiVeEs$COORD_X # # $Z set _____DeriveeY=$LiStEDeRiVeEs$COORD_Y # # $Z set _____DeriveeZ=$LiStEDeRiVeEs$COORD_Z # # $Z set _____NAuCarre=FAUX # # $Z set _____DistanceMini=0.002 # # $Z set _____Zoom=0.35 # # $Z set _____TranslationY=-0.30 # # $Z set _____Palette=$xiP/trou_noir.C4 # # $Z set _____ImageR=$xiirv/TREE.7B # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # $Z FilSTmpE LiStEDeRiVeEs # # # # :Fin_listG_TREE_7B: # # # # # # Image identique a 'v $xiirv/TREE.79' mais en version non lineaire... # v $xiirv/TREE.85 v $xiirv/TREE.85.1 v $xiirv/TREE.85.1$m # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_85: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB LiStEDeRiVeEs # # # # $Z set _____NArbitraireDXYZ=20000 # # $Z set _____BInferieureDXYZ=-1 # # $Z set _____BSuperieureDXYZ=+1 # # $m4 _____include(_____xiirv/.TREE.74.1._____U) # # # # $Z set _____Iterations=3 # # $Z set _____BIBranchesTheta=-2 # # $Z set _____BSBranchesTheta=+2 # # $Z set _____BIRho=-0.1 # # $Z set _____BSRho=+0.1 # # $Z set _____BITheta=-0.2 # # $Z set _____BSTheta=+0.2 # # $Z set _____BIZ=-0.3 # # $Z set _____BSZ=+0.3 # # $Z set _____Grossissement=2 # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=$LiStEDeRiVeEs$COORD_X # # $Z set _____DeriveeY=$LiStEDeRiVeEs$COORD_Y # # $Z set _____DeriveeZ=$LiStEDeRiVeEs$COORD_Z # # $Z set _____Zoom=0.55 # # $Z set _____RotationY=$pi # # $Z set _____TranslationY=-0.60 # # $Z set _____Palette=$xiP/bleu_blanc_rouge.02 # # $Z set _____NAuCarre=FAUX # # $Z set _____ImageR=$xiirv/TREE.85 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # $Z FilSTmpE LiStEDeRiVeEs # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageR%s \ # # $Z cache=VRAI \ # # $Z iterations=2 \ # # $Z anti_aliaser=VRAI \ # # $Z echelle=VRAI a=0.8 \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI # # # # $Z $xci/init$X \ # # $Z n=$GRIS_4 \ # # $Z R=$xTV/FOND \ # # $Z $formatI # # # # $Z execRVB "$xci/cache$X \ # # $Z A=$xTV/FOND \ # # $Z M=$_____ImageR.1%s \ # # $Z anti_aliaser=FAUX \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=25 \ # # $Z R=$xTV/TEXTURE%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/TEXTURE \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=1000 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z Sy=30 \ # # $Z R=$_____ImageR.1$m%s \ # # $Z $formatI # # # # :Fin_listG_TREE_85: # # # # # # qui montre un arbre aleatoire tridimensionnel en hommage aux victimes des attentats # # du 13/11/2015 a Paris. # v $xiirv/TREE.86 v $xiirv/TREE.86.1 v $xiirv/TREE.86.1$m # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_86: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB LiStEDeRiVeEs # # # # $Z set _____NArbitraireDXYZ=20000 # # $Z set _____BInferieureDXYZ=-1 # # $Z set _____BSuperieureDXYZ=+1 # # $m4 _____include(_____xiirv/.TREE.74.1._____U) # # # # $Z set _____Iterations=3 # # $Z set _____BIBranchesTheta=-2 # # $Z set _____BSBranchesTheta=+2 # # $Z set _____BIRho=-0.1 # # $Z set _____BSRho=+0.1 # # $Z set _____BITheta=-0.2 # # $Z set _____BSTheta=+0.2 # # $Z set _____BIZ=-0.3 # # $Z set _____BSZ=+0.3 # # $Z set _____Grossissement=2 # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=$LiStEDeRiVeEs$COORD_X # # $Z set _____DeriveeY=$LiStEDeRiVeEs$COORD_Y # # $Z set _____DeriveeZ=$LiStEDeRiVeEs$COORD_Z # # $Z set _____Zoom=0.55 # # $Z set _____RotationY=$pi # # $Z set _____TranslationY=-0.60 # # $Z set _____Palette=$xiP/bleu_blanc_rouge.03 # # $Z set _____NAuCarre=FAUX # # $Z set _____ImageR=$xiirv/TREE.86 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # $Z FilSTmpE LiStEDeRiVeEs # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageR%s \ # # $Z cache=VRAI \ # # $Z iterations=2 \ # # $Z anti_aliaser=VRAI \ # # $Z echelle=VRAI a=0.8 \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI # # # # $Z execRVB $xci/init$X \ # # $Z n=$GRIS_2 \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR.1 \ # # $Z $formatI | \ # # $Z $xci/seuil$X \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z R=$xTV/MASQUE \ # # $Z $formatI # # $Z execRVB $xci/and$X \ # # $Z A1=$xTV/FOND%s \ # # $Z A2=$xTV/MASQUE \ # # $Z R=$xTV/FOND%s \ # # $Z $formatI # # # # $Z execRVB "$xci/or_02$X \ # # $Z A1=$xTV/FOND%s \ # # $Z A2=$_____ImageR.1%s \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=25 \ # # $Z R=$xTV/TEXTURE%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/TEXTURE \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=100 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z ombres=FAUX \ # # $Z Sy=30 \ # # $Z R=$_____ImageR.1$m%s \ # # $Z $formatI # # # # :Fin_listG_TREE_86: # # # # # # qui montre un arbre aleatoire tridimensionnel en hommage aux victimes des attentats # # du 13/11/2015 a Paris. # v $xiirv/TREE.91.256 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_91_256: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.TREE.91.1._____U) # # # # $Z $xrv/neutre$X ne=1 \ # # $Z fichier=$BLANC \ # # $Z exemplaires=$Nparticules_ \ # # $Z > $LiStEPoInTs$ROUGE # # # # $Z $xrv/neutre$X ne=1 \ # # $Z fichier=$BLANC \ # # $Z exemplaires=$Nparticules_ \ # # $Z > $LiStEPoInTs$VERTE # # # # $Z $xrv/neutre$X ne=1 \ # # $Z fichier=$BLANC \ # # $Z exemplaires=$Nparticules_ \ # # $Z > $LiStEPoInTs$BLEUE # # # # $Z set _____Rayon=0.01 # # # # $Z $xrv/neutre$X ne=1 \ # # $Z fichier=$_____Rayon \ # # $Z exemplaires=$Nparticules_ \ # # $Z > $LiStEPoInTs$RAYON # # # # $Z set _____ImageR=$xiirv/TREE.91.$NFeUiLlEs # # $m4 _____include(_____xiirv/.TREE.91.2._____U) # # # # :Fin_listG_TREE_91_256: # # # # # # Cette image montre un arbre binaire a 256 feuilles (noir et blanc)... # v $xiirv/TREE.92.256 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_92_256: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.TREE.91.1._____U) # # # # $Z $CA $LiStEPoInTs$COORD_X | \ # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier== \ # # $Z origine=$GRIS_1 extremite=$GRIS_8 \ # # $Z entiers=VRAI \ # # $Z > $LiStEPoInTs$ROUGE # # # # $Z $CA $LiStEPoInTs$COORD_Y | \ # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier== \ # # $Z origine=$GRIS_1 extremite=$GRIS_8 \ # # $Z entiers=VRAI \ # # $Z > $LiStEPoInTs$VERTE # # # # $Z $xrv/neutre$X ne=1 \ # # $Z fichier=$NOIR \ # # $Z exemplaires=$Nparticules_ \ # # $Z > $LiStEPoInTs$BLEUE # # # # $Z set _____RayonMin=0.005 # # $Z set _____RayonMax=0.020 # # $m4 _____include(_____xiirv/.TREE.C4.1._____U) # # # # $Z set _____ImageR=$xiirv/TREE.92.$NFeUiLlEs # # $m4 _____include(_____xiirv/.TREE.91.2._____U) # # # # :Fin_listG_TREE_92_256: # # # # # # Cette image montre un arbre binaire a 256 feuilles (en couleurs)... # v $xiirv/TREE.92.256.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_92_256_1: # # # # $Z Pal # # # # $Z set _____ImageA=$xiirv/TREE.92.256 # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageA%s \ # # $Z iterations=2 \ # # $Z R=$_____ImageA.1%s \ # # $Z $formatI # # # # :Fin_listG_TREE_92_256_1: # # # v $xiirv/TREE.92.256.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_92_256_2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/TREE.92.256 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z cache=VRAI \ # # $Z iterations=4 \ # # $Z anti_aliaser=VRAI \ # # $Z echelle=VRAI a=0.8 \ # # $Z R=$xTV/TAPISSERIE%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/TAPISSERIE \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/enfer.02 \ # # $Z R=$xTV/TAPISSERIE \ # # $Z $formatI # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$xTV/TAPISSERIE%s \ # # $Z iterations=1 \ # # $Z R=$_____ImageA.2%s \ # # $Z $formatI # # # # :Fin_listG_TREE_92_256_2: # # # v $xiirv/TREE.92.4096 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_92_4096: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Iterations=12 # # $m4 _____include(_____xiirv/.TREE.91.1._____U) # # # # $Z $CA $LiStEPoInTs$COORD_X | \ # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier== \ # # $Z origine=$GRIS_1 extremite=$GRIS_8 \ # # $Z entiers=VRAI \ # # $Z > $LiStEPoInTs$ROUGE # # # # $Z $CA $LiStEPoInTs$COORD_Y | \ # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier== \ # # $Z origine=$GRIS_1 extremite=$GRIS_8 \ # # $Z entiers=VRAI \ # # $Z > $LiStEPoInTs$VERTE # # # # $Z $xrv/neutre$X ne=1 \ # # $Z fichier=$NOIR \ # # $Z exemplaires=$Nparticules_ \ # # $Z > $LiStEPoInTs$BLEUE # # # # $Z set _____RayonMin=0.005 # # $Z set _____RayonMax=0.005 # # $Z set _____DistanceMin=0.007 # # $Z set _____Zoom=0.95 # # $m4 _____include(_____xiirv/.TREE.C4.1._____U) # # # # $Z set _____NAuCarre=FAUX # # $Z set _____ImageR=$xiirv/TREE.92.$NFeUiLlEs # # $m4 _____include(_____xiirv/.TREE.91.2._____U) # # # # :Fin_listG_TREE_92_4096: # # # # # # Cette image montre un arbre binaire a 4096 feuilles (en couleurs)... # # # # On notera que dans 'v $xiirv/.TREE.91.1.$U .xci.valeurs_Arbre.01.Z' est cree le fichier # # temporaire 'v $xci/valeurs_Arbre.01$Z FArBrE_CoMplEt' ; ce fichier contient plus de # # 98305 lignes et demande plusieurs longues minutes pour etre calcule et au total, cette # # image demande 00:25:00... # v $xiirv/TREE.93.256 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_93_256: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.TREE.91.1._____U) # # # # $Z $CA $LiStEPoInTs$COORD_X | \ # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier== \ # # $Z origine=$GRIS_1 extremite=$GRIS_8 \ # # $Z entiers=VRAI \ # # $Z > $LiStEPoInTs$ROUGE # # # # $Z $CA $LiStEPoInTs$COORD_Y | \ # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier== \ # # $Z origine=$GRIS_1 extremite=$GRIS_8 \ # # $Z entiers=VRAI \ # # $Z > $LiStEPoInTs$VERTE # # # # $Z $xrv/neutre$X ne=1 \ # # $Z fichier=$NOIR \ # # $Z exemplaires=$Nparticules_ \ # # $Z > $LiStEPoInTs$BLEUE # # # # $Z set _____RayonMin=0.020 # # $Z set _____RayonMax=0.020 # # $Z set _____DistanceMin=0.01 # # $m4 _____include(_____xiirv/.TREE.C4.1._____U) # # # # $Z set _____ImageR=$xiirv/TREE.93.$NFeUiLlEs # # $m4 _____include(_____xiirv/.TREE.91.2._____U) # # # # :Fin_listG_TREE_93_256: # # # # # # Cette image montre un arbre binaire a 256 feuilles (en couleurs)... # v $xiirv/TREE.A3 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_A3: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Arbre="1/" # # $Z set _____SousArbre="$_____Arbre" # # $Z set _____Iterations=8 # # $Z set _____NBranchesTheta=2 # # $Z set _____EvasementTheta=2.8 # # $Z set _____FEvasementTheta=0.7 # # $Z set _____Zoom=0.50 # # $Z set _____TranslationY=-0.20 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/TREE.A3 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_A3: # # # # # # qui montre un arbre parfaitement non aleatoire bidimensionnel assez semblable a # # l'acinus pulmonaire... # v $xiirv/TREE.B3 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_B3: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____3D=VRAI # # $Z set _____Arbre="1/" # # $Z set _____SousArbre="$_____Arbre" # # $Z set _____Iterations=8 # # $Z set _____Reduction=0.80 # # $Z set _____NBranchesTheta=2 # # $Z set _____NBranchesPhi=1 # # $Z set _____EvasementTheta=$pi # # $Z set _____FEvasementTheta=0.90 # # $Z set _____EvasementPhi=$pis2 # # $Z set _____FEvasementPhi=0.90 # # $Z set _____BITheta=-0.5 # # $Z set _____BSTheta=+0.5 # # $Z set _____BIPhi=-0.5 # # $Z set _____BSPhi=+0.5 # # $Z set _____Zoom=0.60 # # $Z set _____TranslationY=-0.35 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/TREE.B3 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_B3: # # # # # # qui montre un arbre aleatoire tridimensionnel. # v $xiirv/TREE.B4.1 v $xiirv/TREE.B4.2 v $xiirv/TREE.B4.21 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_B4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Iterations=8 # # $Z set _____Facteur=0.80 # # $Z set _____Zoom=0.52 # # # # $Z set _____3D=VRAI # # $Z set _____Reduction=0.80 # # $Z set _____NBranchesTheta=2 # # $Z set _____NBranchesPhi=1 # # $Z set _____EvasementTheta=$pi # # $Z set _____FEvasementTheta=0.90 # # $Z set _____EvasementPhi=$pis2 # # $Z set _____FEvasementPhi=0.90 # # $Z set _____BITheta=-0.5 # # $Z set _____BSTheta=+0.5 # # $Z set _____BIPhi=-0.5 # # $Z set _____BSPhi=+0.5 # # # # $Z set ArGs="$K_VIDE" # # $Z set ArGs="$ArGs"" tridimensionnel=$_____3D" # # $Z set ArGs="$ArGs"" nombre_branches_theta=$_____NBranchesTheta" # # $Z set ArGs="$ArGs"" evasement_theta=$_____EvasementTheta" # # $Z set ArGs="$ArGs"" facteur_evasement_theta=$_____FEvasementTheta" # # $Z set ArGs="$ArGs"" nombre_branches_phi=$_____NBranchesPhi" # # $Z set ArGs="$ArGs"" evasement_phi=$_____EvasementPhi" # # $Z set ArGs="$ArGs"" facteur_evasement_phi=$_____FEvasementPhi" # # $Z set ArGs="$ArGs"" facteur_reduction=$_____Reduction" # # $Z set ArGs="$ArGs"" borne_inferieure_theta=$_____BITheta" # # $Z set ArGs="$ArGs"" borne_superieure_theta=$_____BSTheta" # # $Z set ArGs="$ArGs"" borne_inferieure_phi=$_____BIPhi" # # $Z set ArGs="$ArGs"" borne_superieure_phi=$_____BSPhi" # # # # $Z set _____ArgsArbre="$ArGs" # # # # $Z set _____DistanceMin=0.02 # # $m4 _____include(_____xiird/.ACIS.61.1._____U) # # $Z SET PremiereM=1 # # $Z SET DerniereM=512 # # $Z set _____DemiPaveX=10 # # $Z set _____DemiPaveY=10 # # $Z set _____DemiPaveZ=10 # # $Z set _____PCubique=FAUX # # $m4 _____include(_____xiird/.ACIS.61.2._____U) # # # # $m4 _____include(_____xiirv/.KNOT.81.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/TREE.B4 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.1 \ # # $Z $_____imagesR.1 \ # # $Z BVR # # # # :Fin_listG_TREE_B4: # # # # # # qui montre un arbre aleatoire tridimensionnel semblable a 'v $xiirv/TREE.B3' # # avec ombres portees sur un fond... # v $xiirv/TREE.B5.1 v $xiirv/TREE.B5.2 v $xiirv/TREE.B5.21 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_TREE_B5: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Iterations=8 # # $Z set _____Facteur=0.80 # # $Z set _____Zoom=0.52 # # # # $Z set _____3D=VRAI # # $Z set _____Reduction=0.80 # # $Z set _____NBranchesTheta=2 # # $Z set _____NBranchesPhi=1 # # $Z set _____EvasementTheta=$pis2 # # $Z set _____FEvasementTheta=0.90 # # $Z set _____EvasementPhi=$pis4 # # $Z set _____FEvasementPhi=0.90 # # $Z set _____BITheta=-0.5 # # $Z set _____BSTheta=+0.5 # # $Z set _____BIPhi=-0.5 # # $Z set _____BSPhi=+0.5 # # # # $Z set ArGs="$K_VIDE" # # $Z set ArGs="$ArGs"" tridimensionnel=$_____3D" # # $Z set ArGs="$ArGs"" nombre_branches_theta=$_____NBranchesTheta" # # $Z set ArGs="$ArGs"" evasement_theta=$_____EvasementTheta" # # $Z set ArGs="$ArGs"" facteur_evasement_theta=$_____FEvasementTheta" # # $Z set ArGs="$ArGs"" nombre_branches_phi=$_____NBranchesPhi" # # $Z set ArGs="$ArGs"" evasement_phi=$_____EvasementPhi" # # $Z set ArGs="$ArGs"" facteur_evasement_phi=$_____FEvasementPhi" # # $Z set ArGs="$ArGs"" facteur_reduction=$_____Reduction" # # $Z set ArGs="$ArGs"" borne_inferieure_theta=$_____BITheta" # # $Z set ArGs="$ArGs"" borne_superieure_theta=$_____BSTheta" # # $Z set ArGs="$ArGs"" borne_inferieure_phi=$_____BIPhi" # # $Z set ArGs="$ArGs"" borne_superieure_phi=$_____BSPhi" # # # # $Z set _____ArgsArbre="$ArGs" # # # # $Z set _____DistanceMin=0.004 # # $Z set _____NAuCarre=FAUX # # $m4 _____include(_____xiird/.ACIS.61.1._____U) # # # # $m4 _____include(_____xiirv/.TREE.B5.2._____U) # # # # $Z SET PremiereM=1 # # $Z SET DerniereM=$mdimXY # # $Z set _____DemiPaveX=$LiStEPoInTs.distances # # $Z set _____DemiPaveY=$LiStEPoInTs.distances # # $Z set _____DemiPaveZ=$LiStEPoInTs.distances # # $Z set _____PCubique=FAUX # # $m4 _____include(_____xiird/.ACIS.61.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/TREE.B5 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.1 \ # # $Z $_____imagesR.1 \ # # $Z BVR # # # # :Fin_listG_TREE_B5: # # # # # # qui montre un arbre aleatoire tridimensionnel semblable a 'v $xiirv/TREE.B3', mais # # moins evase afin de pouvoir evaluer facilement la distance de chaque point des branches # # a la racine (en effet, un arbre plus evase tel 'v $xiirv/TREE.B3' peut avoir des feuilles # # tres proches de la racine, lorsque des branches retombent...). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:04:15 # # # # $xci/accumule.42$X : 00:15:00 # # # v $xiirv/TREE.B6.1 v $xiirv/TREE.B6.2 v $xiirv/TREE.B6.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_TREE_B6: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $m4 _____include(_____xiirv/.TREE.B6.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/TREE.B6 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.1 \ # # $Z $_____imagesR.1 \ # # $Z BVR # # # # :Fin_listG_TREE_B6: # # # # # # qui montre un arbre aleatoire tridimensionnel semblable a 'v $xiirv/TREE.B5', mais # # avec des branches plus "courbees". On notera que le diametre des branches est une fonction # # decroissante de la distance euclidienne a la racine de l'arbre. Etant donne que certaines # # branches redescendent, il est alors normal qu'elles soient plus grosses que l'on pourrait # # le souhaiter. Pour ce faire, il conviendrait que la distance utilisee soit le nombre de # # branches parcourues depuis la racine ou bien encore la somme des longueurs des branches # # depuis la racine... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:05:09 # # # # $xci/accumule.42$X : 00:08:54 # # # v $xiirv/TREE.B7.1 v $xiirv/TREE.B7.2 v $xiirv/TREE.B7.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_TREE_B7: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB LiStEDeRiVeEs # # # # $Z set _____NArbitraireDXYZ=10000 # # $Z set _____BInferieureDXYZ=-1.0 # # $Z set _____BSuperieureDXYZ=+1.0 # # $m4 _____include(_____xiirv/.TREE.74.1._____U) # # # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=$LiStEDeRiVeEs$COORD_X # # $Z set _____DeriveeY=$LiStEDeRiVeEs$COORD_Y # # $Z set _____DeriveeZ=$LiStEDeRiVeEs$COORD_Z # # $m4 _____include(_____xiirv/.TREE.B6.2._____U) # # # # $Z FilSTmpE LiStEDeRiVeEs # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/TREE.B7 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.1 \ # # $Z $_____imagesR.1 \ # # $Z BVR # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 \ # # $Z $_____imagesR.21 \ # # $Z RBV # # # # :Fin_listG_TREE_B7: # # # # # # qui montre un arbre aleatoire tridimensionnel semblable a 'v $xiirv/TREE.B6', mais # # avec des branches tordues et dupliquees plusieurs fois (suivant leur "profondeur")... # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:08:14 # # # # $xci/accumule.42$X : 00:15:27 # # # v $xiirv/TREE.B8.1 v $xiirv/TREE.B8.2 v $xiirv/TREE.B8.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_TREE_B8: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z FilSTmpB LiStEDeRiVeEs # # # # $Z set _____NArbitraireDXYZ=10000 # # $Z set _____BInferieureDXYZ=-1.0 # # $Z set _____BSuperieureDXYZ=+1.0 # # $m4 _____include(_____xiirv/.TREE.74.1._____U) # # # # $Z set _____Unique=$EXIST # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=$LiStEDeRiVeEs$COORD_X # # $Z set _____DeriveeY=$LiStEDeRiVeEs$COORD_Y # # $Z set _____DeriveeZ=$LiStEDeRiVeEs$COORD_Z # # $m4 _____include(_____xiirv/.TREE.B6.2._____U) # # # # $Z FilSTmpE LiStEDeRiVeEs # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/TREE.B8 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.1 \ # # $Z $_____imagesR.1 \ # # $Z BVR # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 \ # # $Z $_____imagesR.21 \ # # $Z RBV # # # # :Fin_listG_TREE_B8: # # # # # # qui montre un arbre aleatoire tridimensionnel semblable a 'v $xiirv/TREE.B7', mais # # dont les branches tordues ne sont pas dupliquees (voir '$_____Unique'...). # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:06:35 # # # # $xci/accumule.42$X : 00:11:11 # # # v $xiirv/TREE.C3.256 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_C3_256: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Iterations=8 # # $Z set _____Facteur=0.75 # # $Z set _____NBifurcations=2 # # # # $Z set _____ArgsArbre="$K_VIDE" # # $Z set _____ArgsArbre="$_____ArgsArbre"" evasement_theta=2.8" # # $Z set _____ArgsArbre="$_____ArgsArbre"" facteurt=0.7" # # # # $m4 _____include(_____xiirv/.TREE.91.1._____U) # # # # $Z $CA $LiStEPoInTs$COORD_X | \ # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier== \ # # $Z origine=$GRIS_1 extremite=$GRIS_8 \ # # $Z entiers=VRAI \ # # $Z > $LiStEPoInTs$ROUGE # # # # $Z $CA $LiStEPoInTs$COORD_Y | \ # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier== \ # # $Z origine=$GRIS_1 extremite=$GRIS_8 \ # # $Z entiers=VRAI \ # # $Z > $LiStEPoInTs$VERTE # # # # $Z $xrv/neutre$X ne=1 \ # # $Z fichier=$NOIR \ # # $Z exemplaires=$Nparticules_ \ # # $Z > $LiStEPoInTs$BLEUE # # # # $Z set _____RayonMin=0.005 # # $Z set _____RayonMax=0.020 # # $m4 _____include(_____xiirv/.TREE.C4.1._____U) # # # # $Z set _____Zoom=0.5 # # $Z set _____ImageR=$xiirv/TREE.C3.$NFeUiLlEs # # $m4 _____include(_____xiirv/.TREE.91.2._____U) # # # # :Fin_listG_TREE_C3_256: # # # # # # Cette image montre un arbre binaire a 256 feuilles (en couleurs) similaire a l'arbre # # 'v $xiirv/TREE.A3' mais calcule differemment (chaque branche depuis la racine jusqu'a # # sa feuille est visualisee...). # v $xiirv/TREE.C3.256.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_C3_256_1: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/TREE.C3.256 # # # # $Z execRVB $xci/tapisserie$X \ # # $Z A=$_____ImageA%s \ # # $Z cache=VRAI \ # # $Z iterations=3 \ # # $Z anti_aliaser=VRAI \ # # $Z echelle=VRAI a=0.8 \ # # $Z R=$xTV/TAPISSERIE%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/TAPISSERIE \ # # $Z $formatI | \ # # $Z $xci/vraies_C$X \ # # $Z p=$xiP/random.B7$Fi \ # # $Z R=$xTV/TAPISSERIE \ # # $Z $formatI # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$xTV/TAPISSERIE%s \ # # $Z iterations=3 \ # # $Z R=$_____ImageA.1%s \ # # $Z $formatI # # # # :Fin_listG_TREE_C3_256_1: # # # v $xiirv/TREE.C4.4 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_C4_4: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Iterations=2 # # $Z set _____Facteur=0.90 # # $Z set _____NBifurcations=2 # # # # $Z set _____ArgsArbre="$K_VIDE" # # $Z set _____ArgsArbre="$_____ArgsArbre"" evasement_theta=1.6" # # $Z set _____ArgsArbre="$_____ArgsArbre"" facteurt=0.9" # # # # $m4 _____include(_____xiirv/.TREE.91.1._____U) # # # # $Z $CA $LiStEPoInTs$COORD_X | \ # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier== \ # # $Z origine=$GRIS_1 extremite=$GRIS_8 \ # # $Z entiers=VRAI \ # # $Z > $LiStEPoInTs$ROUGE # # # # $Z $CA $LiStEPoInTs$COORD_Y | \ # # $Z $xrv/normalise.01$X ne=0 \ # # $Z fichier== \ # # $Z origine=$GRIS_1 extremite=$GRIS_8 \ # # $Z entiers=VRAI \ # # $Z > $LiStEPoInTs$VERTE # # # # $Z $xrv/neutre$X ne=1 \ # # $Z fichier=$NOIR \ # # $Z exemplaires=$Nparticules_ \ # # $Z > $LiStEPoInTs$BLEUE # # # # $Z set _____RayonMin=0.120 # # $Z set _____RayonMax=0.160 # # $m4 _____include(_____xiirv/.TREE.C4.1._____U) # # # # $Z set _____TranslationY=-0.2 # # $Z set _____Zoom=0.6 # # $Z set _____DistanceMin=0.40 # # $Z set _____ImageR=$xiirv/TREE.C4.$NFeUiLlEs # # $m4 _____include(_____xiirv/.TREE.91.2._____U) # # # # :Fin_listG_TREE_C4_4: # # # # # # Cette image montre un arbre binaire a 4 feuilles (en couleurs) similaire aux principes # # de l'arbre 'v $xiirv/TREE.C3.256'. L'arbre obtenu ressemble beaucoup aux extremites de # # l'acinus pulmonaore... # v $xiirv/TREE.D1 p=$xiP/abso.11 v $xiirv/TREE.D1 p=$xiP/enfer.22 v $xiirv/TREE.D1 p=$xiP/random.96 v $xiirv/TREE.D1 p=$xiP/vert_orange v $xiirv/TREE.D1$m # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_D1: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Iterations=3 # # $Z set _____Facteur=0.80 # # $Z set _____Zoom=0.52 # # $m4 _____include(_____xiird/.ACIS.61.1._____U) # # # # $Z FilSTmpB FDeMiPaVe # # # # $Z set _____FacteurDemiPave=500 # # # # $Z $CA $LiStEPoInTs | \ # # $Z $AW ' { print $8 } ' | \ # # $Z $SE -e "s/^.*=//" | \ # # $Z $xrv/MUL2.11$X \ # # $Z ne=0 \ # # $Z fichier1== \ # # $Z fichier2=$_____FacteurDemiPave \ # # $Z formater=VRAI entiers=VRAI \ # # $Z >> $FDeMiPaVe # # # # $Z set _____DemiPaveX=$FDeMiPaVe # # $Z set _____DemiPaveY=$FDeMiPaVe # # $Z set _____DemiPaveZ=$FDeMiPaVe # # # # $Z set _____MinX=0.15 # # $Z set _____MaxX=0.85 # # $Z set _____MinY=0.15 # # $Z set _____MaxY=0.85 # # # # $m4 _____include(_____xiird/.ACIS.61.2._____U) # # # # $Z FilSTmpE FDeMiPaVe # # # # $Z set MiLiEu=`calculINS ($cDerniere-$cPremiere+1)/2` # # $Z set MiLiEu=`$xci/nombres$X premiere=$MiLiEu derniere=$MiLiEu` # # # # $Z $xci/neutre$X \ # # $Z A=$_____ImageT1.$MiLiEu \ # # $Z R=$xTV/TREE.11 \ # # $Z $formatI # # # # $Z set _____ImageR=$xiirv/TREE.D1 # # # # $Z set PoInTs1=`calculINS pow(35,2)` # # $Z set PoInTs2=`calculINS pow(35,2)` # # $Z set PoInTs3=`calculINS pow(9,2)` # # # # $Z $xci/dilate.01$X \ # # $Z A=$xTV/TREE.11 \ # # $Z dilater=VRAI \ # # $Z points=$PoInTs1 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$xTV/TREE.12 \ # # $Z $formatI # # # # $Z $xci/dilate.01$X \ # # $Z A=$xTV/TREE.11 \ # # $Z dilater=FAUX \ # # $Z points=$PoInTs2 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$xTV/TREE.21 \ # # $Z $formatI # # # # $Z $xci/eor$X \ # # $Z A1=$xTV/TREE.11 \ # # $Z A2=$xTV/TREE.12 \ # # $Z $formatI | \ # # $Z $xci/eor$X \ # # $Z A1=$xTV/TREE.21 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=$PoInTs3 \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z $formatI | \ # # $Z $xci/tapisserie$X \ # # $Z cache=VRAI \ # # $Z iterations=7 \ # # $Z anti_aliaser=VRAI \ # # $Z echelle=VRAI a=0.7 \ # # $Z R=$_____ImageR \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$_____ImageR \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=80 \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z R=$xTV/TREE.31 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$_____ImageR \ # # $Z p=$xiP/random.96 \ # # $Z R=$xTV/TREE.32 \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/TREE.31 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/TREE.32%s \ # # $Z avion=VRAI \ # # $Z R=$_____ImageR$m%s \ # # $Z $formatI # # # # :Fin_listG_TREE_D1: # # # # # # Le debut utilise l'arbre de 'v $xiad/ACIS.83$R16'... # # # # On notera que l'image est, au niveau geometrique (et non pas au niveau des ombres...) # # parfaitement symetrique (d'axe 'OY'). Cela a ete verifie aux environs du 20160525113421 # # en comparant les images '$xTV/TREE.??' et leurs symetriques (d'axe 'OY') qui etaient alors # # parfaitement identiques. Ce que l'on observe est donc une sorte d'illusion due a l'ombrage. # # En effet, on voit en particulier une sorte de ligne lumineuse verticale situee au milieu # # de l'image qui semble, mais n'est pas, un axe de symetrie vertical. Cette ligne lumineuse # # possede en fait evidemment sa propre symetrique, mais elle est sombre puisqu'a l'ombre et # # tout semble decale alors qu'il n'en est rien... # v $xiirv/TREE.E6.1 v $xiirv/TREE.E6.2 v $xiirv/TREE.E6.21 # Generee (sur '$CMAP28' -ex "republique"-) par : # # # # # # :Debut_listG_TREE_E6: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ArgsArbresIteres="$K_VIDE" # # # # $Z set _____ArgsArbresIteres="$_____ArgsArbresIteres"" X1=-0.2" # # $Z set _____ArgsArbresIteres="$_____ArgsArbresIteres"" X2=-0.1" # # $Z set _____ArgsArbresIteres="$_____ArgsArbresIteres"" Y1=+0.0" # # $Z set _____ArgsArbresIteres="$_____ArgsArbresIteres"" Y2=+0.5" # # $Z set _____ArgsArbresIteres="$_____ArgsArbresIteres"" graine=1789" # # # # $Z set _____ArgsArbresIteres="$_____ArgsArbresIteres"" X1=+0.6" # # $Z set _____ArgsArbresIteres="$_____ArgsArbresIteres"" X2=+0.5" # # $Z set _____ArgsArbresIteres="$_____ArgsArbresIteres"" Y1=+0.0" # # $Z set _____ArgsArbresIteres="$_____ArgsArbresIteres"" Y2=+0.3" # # $Z set _____ArgsArbresIteres="$_____ArgsArbresIteres"" graine=1947" # # # # $Z set _____ArgsArbresIteres="$_____ArgsArbresIteres"" X1=+1.2" # # $Z set _____ArgsArbresIteres="$_____ArgsArbresIteres"" X2=+1.1" # # $Z set _____ArgsArbresIteres="$_____ArgsArbresIteres"" Y1=+0.0" # # $Z set _____ArgsArbresIteres="$_____ArgsArbresIteres"" Y2=+0.4" # # $Z set _____ArgsArbresIteres="$_____ArgsArbresIteres"" graine=2001" # # # # $m4 _____include(_____xiirv/.TREE.B6.2._____U) # # # # $m4 _____include(_____xiirc/.MANE.41.1._____U) # # $m4 _____include(_____xiirf/.MENG.22.2._____U) # # $m4 _____include(_____xiirc/.MANE.41.3._____U) # # $Z set _____ImageTT=$_____ImageTo # # $Z set _____imagesR=$xiirv/TREE.E6 # # $m4 _____include(_____xiirc/.MANE.41.4._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.1 \ # # $Z $_____imagesR.1 \ # # $Z BVR # # # # Non, ce n'est pas une erreur ces trois applications successives de la permutation 'BVR'... # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.1 \ # # $Z $_____imagesR.1 \ # # $Z BVR # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.1 \ # # $Z $_____imagesR.1 \ # # $Z BVR # # # # :Fin_listG_TREE_E6: # # # # # # qui montre plusieurs arbres aleatoires tridimensionnels semblables a 'v $xiirv/TREE.B6'. # # # # # # Pour information, voici les durees intermediaires : # # # # $xci/ombrage.11$X : 00:15:22 # # # # $xci/accumule.42$X : 00:18:20 # # # v $xiirv/TREE.E6.1$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TREE_E6_1_M: # # # # $Z ext Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____imagesA=$xiirv/TREE.E6.1 # # $Z set _____imagesR=$_____imagesA$M # # # # $Z $xci/vraies_C$X \ # # $Z A=$xiirf/PAYU.H2$M \ # # $Z p=$xiP/marron.06 \ # # $Z R=$xTV/PAYU.H2$M \ # # $Z $formatI # # # # $Z $xci/cache.41$Z \ # # $Z $xTV/PAYU.H2$M \ # # $Z $_____imagesA \ # # $Z $_____imagesR \ # # $Z 9 \ # # $Z VRAI # # # # :Fin_listG_TREE_E6_1_M: # # # v $xiirv/TREE.E6.1$M.impressionniste # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_TREE_E6_1_M_impressionniste: # # # # $Z Pdu # # # # $Z set _____ImageA=$xiirv/TREE.E6.1$M # # $Z set _____ImageR=$_____ImageA.impressionniste # # # # $Z execRVB $xci/pointillisme.01$Z \ # # $Z $_____ImageA%s \ # # $Z $_____ImageR%s # # # # :Fin_listG_TREE_E6_1_M_impressionniste: # # # v $xiirv/TREE.F3 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_TREE_F3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____BIBranchesTheta=-2 # # $Z set _____BSBranchesTheta=+2 # # $Z set _____BIRho=-0.1 # # $Z set _____BSRho=+0.1 # # $Z set _____BITheta=-0.2 # # $Z set _____BSTheta=+0.2 # # $Z set _____BIZ=-0.3 # # $Z set _____BSZ=+0.3 # # $Z set _____Zoom=0.70 # # $Z set _____TranslationY=-1.20 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xiirv/TREE.F3 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # :Fin_listG_TREE_F3: # # # # # # qui montre un arbre aleatoire et partitionne tridimensionnel... # v $xiirv/TREE.G3 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_TREE_G3: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Reduction=1 # # $Z set _____EvasementTheta=2.5 # # $Z set _____Arbre="1/" # # $Z set _____SousArbre="$_____Arbre" # # $Z set _____Zoom=1.0 # # # # Il est essentiel que le zoom soit egal a 1 si l'on veut pouvoir positionner correctement # # l'image '$_____ImageA' sur l'arborescence... # # # # $Z set _____NiveauD=1 # # $Z set _____TranslationY=-0.00 # # $Z set _____DistanceMini=0.008 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=2" # # # # $Z set _____Iterations=0 # # $Z SET _____Rayon=(0.050 0.025) # # $Z set _____Palette=$xiP/random.97 # # $Z set _____ImageR=$xTV/TREE.G3.1 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # $Z FilSTmpB _____FCoordonnees # # # # $Z set _____Iterations=1 # # $Z SET _____Rayon=(0.040 0.020) # # $Z set _____Palette=$xiP/trou_noir.D4 # # $Z set _____ImageR=$xTV/TREE.G3.2 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # $Z set _____ImageR=$xiirv/TREE.G3 # # # # $Z execRVB $xci/cache$X \ # # $Z A=$xTV/TREE.G3.2%s \ # # $Z M=$xTV/TREE.G3.1%s \ # # $Z anti_aliasing=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # $Z set _____ImageA=$xiirr/UNIV.51 # # # # $m4 _____include(_____xiirv/.TREE.G3.1._____U) # # # # $Z FilSTmpE _____FCoordonnees # # # # :Fin_listG_TREE_G3: # # # # # # qui montre un arbre parfaitement non aleatoire bidimensionnel destine a visualiser les # # mondes paralleles de Hugh Everett... # v $xiirv/TREE.G4 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_TREE_G4: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Reduction=1 # # $Z set _____EvasementTheta=2.5 # # $Z set _____Arbre="1/" # # $Z set _____SousArbre="$_____Arbre" # # $Z set _____Zoom=1.0 # # # # Il est essentiel que le zoom soit egal a 1 si l'on veut pouvoir positionner correctement # # l'image '$_____ImageA' sur l'arborescence... # # # # $Z set _____NiveauD=1 # # $Z set _____TranslationY=-0.00 # # $Z set _____DistanceMini=0.008 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" couronne=2" # # # # $Z set _____Iterations=0 # # $Z SET _____Rayon=(0.050 0.025) # # $Z set _____Palette=$xiP/random.97 # # $Z set _____ImageR=$xTV/TREE.G4.1 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # $Z FilSTmpB _____FCoordonnees # # # # $Z set _____Iterations=1 # # $Z SET _____Rayon=(0.040 0.020) # # $Z set _____Palette=$xiP/trou_noir.D4 # # $Z set _____ImageR=$xTV/TREE.G4.2 # # $m4 _____include(_____xiirv/.TREE.11._____U) # # # # $Z set _____ImageR=$xiirv/TREE.G4 # # # # $Z execRVB $xci/cache$X \ # # $Z A=$xTV/TREE.G4.2%s \ # # $Z M=$xTV/TREE.G4.1%s \ # # $Z anti_aliasing=VRAI \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # $Z set _____ImageA=$xTV/TREE.G4.3 # # # # $Z SformatI # # # # $Z ext Pud # # # # $Z $xci/neutre$X \ # # $Z A=$xiirv/CARB.D4$Fi \ # # $Z R=$xTV/TREE.G4.11 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/TREE.G4.11 \ # # $Z p=$xiP/enfer.53 \ # # $Z R=$xTV/TREE.G4.12 \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z c=8 \ # # $Z $formatI | \ # # $Z $xci/passe_bande$X \ # # $Z inf=$GRIS_2 niveau_inferieur=$GRIS_2 \ # # $Z sup=$GRIS_8 niveau_superieur=$GRIS_8 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z r=VRAI \ # # $Z R=$xTV/TREE.G4.21 \ # # $Z $formatI # # # # $Z execRVB "$xci/multi_02.01$X \ # # $Z A1=$xTV/TREE.G4.21 \ # # $Z A2=$xTV/TREE.G4.12%s \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.81 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$_____ImageA%s \ # # $Z $formatI" # # # # $Z $xci/acces_RVB.11$Z $_____ImageA $_____ImageA # # # # $Z RformatI # # # # $m4 _____include(_____xiirv/.TREE.G3.1._____U) # # # # $Z FilSTmpE _____FCoordonnees # # # # :Fin_listG_TREE_G4: # # # # # # qui montre un arbre parfaitement non aleatoire bidimensionnel destine a visualiser les # # mondes paralleles de Hugh Everett... # v $xiirv/TROR.11.M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_11_M: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=1 # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Tplats=FAUX # # $Z set _____GaleatoireM=FAUX # # $Z set _____PbrancheM=VRAI # # $Z set _____Rayon=0.008 # # $Z set _____Zoom=1.50 # # $Z set _____ImageR=$xiirv/TROR.11.M # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_11_M: # # # # # # qui montre un triangle d'Or "mince". # v $xiirv/TROR.11.M.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_11_M_1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=2 # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Tplats=FAUX # # $Z set _____GaleatoireM=FAUX # # $Z set _____MbrancheP=VRAI # # $Z set _____Rayon=0.008 # # $Z set _____Zoom=1.50 # # $Z set _____ImageR=$xiirv/TROR.11.M.1 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_11_M_1: # # # # # # qui montre un triangle d'Or "mince" subdivise une fois via la branche "1". # v $xiirv/TROR.11.M.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_11_M_2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=2 # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Tplats=FAUX # # $Z set _____GaleatoireM=FAUX # # $Z set _____MbrancheP=FAUX # # $Z set _____Rayon=0.008 # # $Z set _____Zoom=1.50 # # $Z set _____ImageR=$xiirv/TROR.11.M.2 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_11_M_2: # # # # # # qui montre un triangle d'Or "mince" subdivise une fois via la branche "1". # v $xiirv/TROR.11.P # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_11_P: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=1 # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Tplats=VRAI # # $Z set _____GaleatoireP=FAUX # # $Z set _____PbrancheP=VRAI # # $Z set _____Rayon=0.008 # # $Z set _____Zoom=1.50 # # $Z set _____ImageR=$xiirv/TROR.11.P # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_11_P: # # # # # # qui montre un triangle d'Or "plat". # v $xiirv/TROR.11.P.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_11_P_1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=2 # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Tplats=VRAI # # $Z set _____GaleatoireP=FAUX # # $Z set _____PbrancheP=VRAI # # $Z set _____Rayon=0.008 # # $Z set _____Zoom=1.50 # # $Z set _____ImageR=$xiirv/TROR.11.P.1 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_11_P_1: # # # # # # qui montre un triangle d'Or "plat" subdivise une fois via la branche "1". # v $xiirv/TROR.11.P.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_11_P_2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=2 # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Tplats=VRAI # # $Z set _____GaleatoireP=FAUX # # $Z set _____PbrancheP=FAUX # # $Z set _____Rayon=0.008 # # $Z set _____Zoom=1.50 # # $Z set _____ImageR=$xiirv/TROR.11.P.2 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_11_P_2: # # # # # # qui montre un triangle d'Or "plat" subdivise une fois via la branche "1". # v $xiirv/TROR.12.M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_12_M: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z $xci/neutre$X \ # # $Z A=$xiirv/TROR.11.M.1$ROUGE \ # # $Z R=$xiirv/TROR.12.M$ROUGE \ # # $Z $formatI # # $Z $xci/neutre$X \ # # $Z A=$xiirv/TROR.11.M.2$VERTE \ # # $Z R=$xiirv/TROR.12.M$VERTE \ # # $Z $formatI # # $Z $xci/neutre$X \ # # $Z A=$xiirv/TROR.11.M$BLEUE \ # # $Z R=$xiirv/TROR.12.M$BLEUE \ # # $Z $formatI # # # # :Fin_listG_TROR_12_M: # # # # # # qui montre un triangle d'Or "mince" et ses deux premieres subdivisions possibles... # v $xiirv/TROR.12.P # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_12_P: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z $xci/neutre$X \ # # $Z A=$xiirv/TROR.11.P.1$ROUGE \ # # $Z R=$xiirv/TROR.12.P$ROUGE \ # # $Z $formatI # # $Z $xci/neutre$X \ # # $Z A=$xiirv/TROR.11.P.2$VERTE \ # # $Z R=$xiirv/TROR.12.P$VERTE \ # # $Z $formatI # # $Z $xci/neutre$X \ # # $Z A=$xiirv/TROR.11.P$BLEUE \ # # $Z R=$xiirv/TROR.12.P$BLEUE \ # # $Z $formatI # # # # :Fin_listG_TROR_12_P: # # # # # # qui montre un triangle d'Or "plat" et ses deux premieres subdivisions possibles... # v $xiirv/TROR.13.M.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_13_M_1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=2 # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Tplats=FAUX # # $Z set _____GaleatoireM=FAUX # # $Z set _____MbrancheP=VRAI # # $Z set _____Rayon=0.008 # # $Z set _____Zoom=1.50 # # $Z set _____ImageR=$xiirv/TROR.13.M.1 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z $xci/contours.12$X \ # # $Z A=$_____ImageR$ROUGE \ # # $Z x=0.5 y=0.3 \ # # $Z niveau=$GRIS_4 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=25 \ # # $Z R=$xTV/TRIANGLE$ROUGE \ # # $Z $formatI # # # # $Z $xci/contours.12$X \ # # $Z A=$_____ImageR$ROUGE \ # # $Z x=0.5 y=0.6 \ # # $Z niveau=$GRIS_4 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=25 \ # # $Z R=$xTV/TRIANGLE$VERTE \ # # $Z $formatI # # # # $Z $xci/init$X \ # # $Z niveau=$NOIR \ # # $Z R=$xTV/TRIANGLE$BLEUE \ # # $Z $formatI # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" fond=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" F=$xTV/TRIANGLE" # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_13_M_1: # # # # # # qui montre un triangle d'Or "mince" subdivise une fois via la branche "1". # v $xiirv/TROR.13.M.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_13_M_2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=2 # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Tplats=FAUX # # $Z set _____GaleatoireM=FAUX # # $Z set _____MbrancheP=FAUX # # $Z set _____Rayon=0.008 # # $Z set _____Zoom=1.50 # # $Z set _____ImageR=$xiirv/TROR.13.M.2 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z $xci/contours.12$X \ # # $Z A=$_____ImageR$ROUGE \ # # $Z x=0.5 y=0.3 \ # # $Z niveau=$GRIS_4 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=25 \ # # $Z R=$xTV/TRIANGLE$ROUGE \ # # $Z $formatI # # # # $Z $xci/contours.12$X \ # # $Z A=$_____ImageR$ROUGE \ # # $Z x=0.5 y=0.6 \ # # $Z niveau=$GRIS_4 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=25 \ # # $Z R=$xTV/TRIANGLE$VERTE \ # # $Z $formatI # # # # $Z $xci/init$X \ # # $Z niveau=$NOIR \ # # $Z R=$xTV/TRIANGLE$BLEUE \ # # $Z $formatI # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" fond=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" F=$xTV/TRIANGLE" # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_13_M_2: # # # # # # qui montre un triangle d'Or "mince" subdivise une fois via la branche "1". # v $xiirv/TROR.13.P.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_13_P_1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=2 # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Tplats=VRAI # # $Z set _____GaleatoireP=FAUX # # $Z set _____PbrancheP=VRAI # # $Z set _____Rayon=0.008 # # $Z set _____Zoom=1.50 # # $Z set _____ImageR=$xiirv/TROR.13.P.1 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z $xci/contours.12$X \ # # $Z A=$_____ImageR$ROUGE \ # # $Z x=0.5 y=0.5 \ # # $Z niveau=$GRIS_4 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=25 \ # # $Z R=$xTV/TRIANGLE$ROUGE \ # # $Z $formatI # # # # $Z $xci/contours.12$X \ # # $Z A=$_____ImageR$ROUGE \ # # $Z x=0.3 y=0.5 \ # # $Z niveau=$GRIS_4 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=25 \ # # $Z R=$xTV/TRIANGLE$VERTE \ # # $Z $formatI # # # # $Z $xci/contours.12$X \ # # $Z A=$_____ImageR$ROUGE \ # # $Z x=0.7 y=0.5 \ # # $Z niveau=$GRIS_4 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=25 \ # # $Z $formatI | \ # # $Z $xci/or_02$X \ # # $Z A1=$xTV/TRIANGLE$VERTE \ # # $Z R=$xTV/TRIANGLE$VERTE \ # # $Z $formatI # # # # $Z $xci/init$X \ # # $Z niveau=$NOIR \ # # $Z R=$xTV/TRIANGLE$BLEUE \ # # $Z $formatI # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" fond=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" F=$xTV/TRIANGLE" # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_13_P_1: # # # # # # qui montre un triangle d'Or "plat" subdivise une fois via la branche "1". # v $xiirv/TROR.13.P.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_13_P_2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=2 # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Tplats=VRAI # # $Z set _____GaleatoireP=FAUX # # $Z set _____PbrancheP=FAUX # # $Z set _____Rayon=0.008 # # $Z set _____Zoom=1.50 # # $Z set _____ImageR=$xiirv/TROR.13.P.2 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z $xci/contours.12$X \ # # $Z A=$_____ImageR$ROUGE \ # # $Z x=0.5 y=0.5 \ # # $Z niveau=$GRIS_4 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=25 \ # # $Z R=$xTV/TRIANGLE$ROUGE \ # # $Z $formatI # # # # $Z $xci/contours.12$X \ # # $Z A=$_____ImageR$ROUGE \ # # $Z x=0.3 y=0.5 \ # # $Z niveau=$GRIS_4 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=25 \ # # $Z R=$xTV/TRIANGLE$VERTE \ # # $Z $formatI # # # # $Z $xci/contours.12$X \ # # $Z A=$_____ImageR$ROUGE \ # # $Z x=0.7 y=0.5 \ # # $Z niveau=$GRIS_4 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=25 \ # # $Z $formatI | \ # # $Z $xci/or_02$X \ # # $Z A1=$xTV/TRIANGLE$VERTE \ # # $Z R=$xTV/TRIANGLE$VERTE \ # # $Z $formatI # # # # $Z $xci/init$X \ # # $Z niveau=$NOIR \ # # $Z R=$xTV/TRIANGLE$BLEUE \ # # $Z $formatI # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" fond=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" F=$xTV/TRIANGLE" # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_13_P_2: # # # # # # qui montre un triangle d'Or "plat" subdivise une fois via la branche "1". # v $xiirv/TROR.14.M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_14_M: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=1 # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Tplats=FAUX # # $Z set _____GaleatoireM=FAUX # # $Z set _____PbrancheM=VRAI # # $Z set _____Rayon=0.008 # # $Z set _____Zoom=1.50 # # $Z set _____ImageR=$xiirv/TROR.14.M # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z $xci/contours.12$X \ # # $Z A=$_____ImageR$ROUGE \ # # $Z x=0.5 y=0.5 \ # # $Z niveau=$GRIS_4 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=25 \ # # $Z R=$xTV/TRIANGLE$ROUGE \ # # $Z $formatI # # # # $Z $xci/init$X \ # # $Z niveau=$NOIR \ # # $Z R=$xTV/TRIANGLE$VERTE \ # # $Z $formatI # # # # $Z $xci/init$X \ # # $Z niveau=$NOIR \ # # $Z R=$xTV/TRIANGLE$BLEUE \ # # $Z $formatI # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" fond=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" F=$xTV/TRIANGLE" # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_14_M: # # # # # # qui montre un triangle d'Or "mince". # v $xiirv/TROR.14.P # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_14_P: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=1 # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Tplats=VRAI # # $Z set _____GaleatoireP=FAUX # # $Z set _____PbrancheP=VRAI # # $Z set _____Rayon=0.008 # # $Z set _____Zoom=1.50 # # $Z set _____ImageR=$xiirv/TROR.14.P # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z $xci/init$X \ # # $Z niveau=$NOIR \ # # $Z R=$xTV/TRIANGLE$ROUGE \ # # $Z $formatI # # # # $Z $xci/contours.12$X \ # # $Z A=$_____ImageR$ROUGE \ # # $Z x=0.5 y=0.5 \ # # $Z niveau=$GRIS_4 \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z points=25 \ # # $Z R=$xTV/TRIANGLE$VERTE \ # # $Z $formatI # # # # $Z $xci/init$X \ # # $Z niveau=$NOIR \ # # $Z R=$xTV/TRIANGLE$BLEUE \ # # $Z $formatI # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" fond=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" F=$xTV/TRIANGLE" # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_14_P: # # # # # # qui montre un triangle d'Or "plat". # v $xiirv/TROR.21 v $xiirv/TROR.21.1 v $xiirv/TROR.21.3 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_21: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=7 # # $Z set _____Graine=1789 # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.002 # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/TROR.21 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=1 \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=3 \ # # $Z R=$_____ImageR.3%s \ # # $Z $formatI # # # # :Fin_listG_TROR_21: # # # # # # qui montre un triangle d'Or "plat" subdivise de facon aleatoire et quelques variations... # XYmaxNe 1079 719 ; v $xiirv/TROR.22 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_22: # # # # $Z XYmaxNe 1079 719 # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=7 # # $Z set _____Graine=1789 # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.002 # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/TROR.22 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_22: # # # # # # qui montre un triangle d'Or "plat" subdivise de facon aleatoire et quelques variations... # # # # Image formellement identique a 'v $xiirv/TROR.21' et regeneree pour le CNRS # # ('v $Dcourrier_in/20150407103248 From.Christine.GIRARD@cnrs.fr..Fri.Apr.03.15:16:43.2015'). # v $xiirv/TROR.31 v $xiirv/TROR.31.1 v $xiirv/TROR.31.3 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_31: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=7 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.002 # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/TROR.31 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=1 \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=3 \ # # $Z R=$_____ImageR.3%s \ # # $Z $formatI # # # # :Fin_listG_TROR_31: # # # # # # qui montre un triangle d'Or "plat" subdivise de facon pseudo-periodique et quelques # # variations... # v $xiirv/TROR.32 v $xiirv/TROR.32.1 v $xiirv/TROR.32.3 v $xiirv/TROR.32.5 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_32: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=7 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.002 # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/TROR.32 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=1 \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=3 \ # # $Z R=$_____ImageR.3%s \ # # $Z $formatI # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=5 \ # # $Z R=$_____ImageR.5%s \ # # $Z $formatI # # # # :Fin_listG_TROR_32: # # # # # # qui montre un triangle d'Or "plat" subdivise de facon pseudo-periodique puis simplifie # # en se ramenant a des losanges et quelques variations... # v $xiirv/TROR.31_32 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_31_32: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR1=$xTV/TROR.31 # # $Z set _____ImageR2=$xTV/TROR.32 # # # # $Z set _____Profondeur=7 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.002 # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$_____ImageR1 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____Profondeur=7 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.002 # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$_____ImageR2 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____ImageR=$xiirv/TROR.31_32 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR1 \ # # $Z R=$_____ImageR$ROUGE \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR2 \ # # $Z R=$_____ImageR$VERTE \ # # $Z $formatI # # # # $Z $xci/init$X \ # # $Z n=$NOIR \ # # $Z R=$_____ImageR$BLEUE \ # # $Z $formatI # # # # :Fin_listG_TROR_31_32: # # # # # # qui montre le processus d'effacement des cotes communs... # # # # On notera que : # # # # #LosangesCarres/#LosangesMinces = 106/68 = 1.559... (~1.618033988..., le nombre d'or). # # # XYmaxNe 1079 719 ; v $xiirv/TROR.33 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_33: # # # # $Z XYmaxNe 1079 719 # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=7 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.002 # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/TROR.33 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_33: # # # # # # qui montre un triangle d'Or "plat" subdivise de facon pseudo-periodique puis simplifie # # en se ramenant a des losanges et quelques variations... # # # # Image formellement identique a 'v $xiirv/TROR.32' et regeneree pour le CNRS # # ('v $Dcourrier_in/20150407103248 From.Christine.GIRARD@cnrs.fr..Fri.Apr.03.15:16:43.2015'). # v $xiirv/TROR.34 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_34: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=7 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.0020 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.0001" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" N_AU_CARRE=FAUX" # # # # Ainsi, les centres des spheres cote a cote definissent parfaitement les "interstices" # # entre les carreaux du carrelage... # # # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xiirv/TROR.34 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____AttenuationA=1 # # $Z set _____PaletteC=$xiP/random.B7$Fi # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_34: # # # # # # qui montre un triangle d'Or "plat" subdivise de facon pseudo-periodique puis simplifie # # en se ramenant a des losanges... # v $xiirv/TROR.34.1$m v $xiirv/TROR.34.1$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_34_1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____imagesA=$xiirv/TROR.34 # # $Z set _____imagesR=$_____imagesA.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____imagesA \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z normaliser_avant_apres=VRAI \ # # $Z passes=100 \ # # $Z R=$xTV/TROR.34 \ # # $Z $formatI # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesA%s \ # # $Z R=$xTV/TROR.34%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/TROR.34 \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$xTV/TROR.34%s \ # # $Z avion=VRAI \ # # $Z R=$_____imagesR$m%s \ # # $Z $formatI # # # # $Z set PaRaMeTrEs="echelle=0.2 Ty=0.90 perspective=0.5" # # # # $Z $xci/montagne.01$X \ # # $Z A=$xTV/TROR.34 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$BLANC \ # # $Z avion=FAUX \ # # $Z $PaRaMeTrEs \ # # $Z Z-Buffer=VRAI \ # # $Z R=$xTV/MONTAGNE \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z exponentiation_image=VRAI \ # # $Z exposant=4 \ # # $Z R=$xTV/BRUME \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/TROR.34 \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$xTV/TROR.34%s \ # # $Z avion=FAUX \ # # $Z $PaRaMeTrEs \ # # $Z R=$_____imagesR$M%s \ # # $Z $formatI # # # # $Z execRVB $xci/brume.11$X \ # # $Z A=$_____imagesR$M%s \ # # $Z B=$xTV/BRUME \ # # $Z R=$_____imagesR$M%s \ # # $Z $formatI # # # # :Fin_listG_TROR_34_1: # # # v $xiirv/TROR.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_35: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=10 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.0010 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.00008" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" N_AU_CARRE=FAUX" # # # # Ainsi, les centres des spheres cote a cote definissent parfaitement les "interstices" # # entre les carreaux du carrelage... # # # # $Z set _____NAuCarre=FAUX # # # # $Z set _____DistanceMini=0.005 # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xiirv/TROR.35 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____AttenuationA=1 # # $Z set _____PaletteC=$xiP/random.11$Fi # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_35: # # # # # # qui montre un triangle d'Or "plat" subdivise de facon pseudo-periodique puis simplifie # # en se ramenant a des losanges... # v $xiirv/TROR.36 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_TROR_36: # # # # $Z set BoRdUrE=200 # # $Z XYmaxNe `calcul $XmaxPdu+$BoRdUrE` `calcul $YmaxPdu+$BoRdUrE` # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=10 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.0006 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.00008" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" N_AU_CARRE=FAUX" # # # # Ainsi, les centres des spheres cote a cote definissent parfaitement les "interstices" # # entre les carreaux du carrelage... # # # # $Z set _____NAuCarre=FAUX # # # # $Z set _____DistanceMini=0.005 # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xiirv/TROR.36 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____UtiliserTaille=VRAI # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____AttenuationA=1 # # $Z set _____PaletteC=$xiP/random.A5 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImageR%s \ # # $Z $formatI \ # # $Z methode=7 \ # # $Z R=$_____ImageR%s \ # # $Z $formatR_Pdu # # # # :Fin_listG_TROR_36: # # # # # # qui montre un triangle d'Or "plat" subdivise de facon pseudo-periodique puis simplifie # # en se ramenant a des losanges. Les deux types de losange sont ici colories avec deux # # couleurs differentes et c'est pour resoudre le probleme des losanges partiellement # # hors images qu'il y a un brutal changement de format, le calcul se faisant dans un # # espace plus "spacieux" que 'Pdu' (voir la bordure de taille '$BoRdUrE'... # v $xiirv/TROR.36$IdM # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_TROR_36_IdM: # # # # $Z set BoRdUrE=100 # # $Z XYmaxNe `calcul $XmaxTvB+$BoRdUrE` `calcul $YmaxTvB+$BoRdUrE` # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=10 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.0009 # # $Z set _____Couronne=2 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.00008" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" N_AU_CARRE=FAUX" # # # # Ainsi, les centres des spheres cote a cote definissent parfaitement les "interstices" # # entre les carreaux du carrelage... # # # # $Z set _____NAuCarre=FAUX # # # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xiirv/TROR.36$IdM # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____UtiliserTaille=VRAI # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____AttenuationA=1 # # $Z set _____PaletteC=$xiP/random.A5 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImageR%s \ # # $Z $formatI \ # # $Z methode=7 \ # # $Z R=$_____ImageR%s \ # # $Z $formatR_TvB # # # # :Fin_listG_TROR_36_IdM: # # # v $xiirv/TROR.37 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_TROR_37: # # # # $Z set BoRdUrE=200 # # $Z XYmaxNe `calcul $XmaxPdu+$BoRdUrE` `calcul $YmaxPdu+$BoRdUrE` # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=10 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.0006 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.00008" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" N_AU_CARRE=FAUX" # # # # Ainsi, les centres des spheres cote a cote definissent parfaitement les "interstices" # # entre les carreaux du carrelage... # # # # $Z SET _____Distord=$EXIST # # $Z set _____DistordChamp=$xTV/TREFLE # # # # $Z $xci/trefle$X \ # # $Z Ct=4 \ # # $Z standard=FAUX \ # # $Z renormaliser=VRAI \ # # $Z origine=0 extremite=0.5 \ # # $Z R=$_____DistordChamp \ # # $Z $formatI # # # # $Z set _____NAuCarre=FAUX # # # # $Z set _____DistanceMini=0.005 # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xiirv/TROR.37 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____UtiliserTaille=VRAI # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____AttenuationA=1 # # $Z set _____PaletteC=$xiP/random.A5 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImageR%s \ # # $Z $formatI \ # # $Z methode=7 \ # # $Z R=$_____ImageR%s \ # # $Z $formatR_Pdu # # # # :Fin_listG_TROR_37: # # # # # # qui montre l'image 'v $xiirv/TROR.36' distordue par un trefle a quatre feuilles... # v $xiirv/TROR.38 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_38: # # # # $Z set BoRdUrE=200 # # $Z XYmaxNe `calcul $XmaxPdu+$BoRdUrE` `calcul $YmaxPdu+$BoRdUrE` # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=10 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.0006 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.00008" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" N_AU_CARRE=FAUX" # # # # Ainsi, les centres des spheres cote a cote definissent parfaitement les "interstices" # # entre les carreaux du carrelage... # # # # $Z SET _____Distord=$EXIST # # $Z set _____DistordChamp=$xTV/TREFLE # # # # $Z FilSTmpB FTrIaNgLe # # # # $Z $xci/valeurs_TriangleOr$X \ # # $Z profondeur=1 | \ # # $Z $R "$K_BLANC" "$K_NL" | \ # # $Z $GRE "^[xy]" \ # # $Z >> $FTrIaNgLe # # $Z $CA $FTrIaNgLe | \ # # $Z $GRE "^x" | \ # # $Z $SE -e 's/^.*=//' \ # # $Z > $FTrIaNgLe$COORD_X # # $Z $CA $FTrIaNgLe | \ # # $Z $GRE "^y" | \ # # $Z $SE -e 's/^.*=//' \ # # $Z > $FTrIaNgLe$COORD_Y # # # # $Z set MiNiMuM_X=`$xrv/extrema.01$X ne=0 fichier=$FTrIaNgLe$COORD_X ms=VRAI` # # $Z set MaXiMuM_X=`$xrv/extrema.01$X ne=0 fichier=$FTrIaNgLe$COORD_X Ms=VRAI` # # $Z set MiNiMuM_Y=`$xrv/extrema.01$X ne=0 fichier=$FTrIaNgLe$COORD_Y ms=VRAI` # # $Z set MaXiMuM_Y=`$xrv/extrema.01$X ne=0 fichier=$FTrIaNgLe$COORD_Y Ms=VRAI` # # # # $Z FilSTmpE FTrIaNgLe # # # # $Z $xci/trefle$X \ # # $Z Ct=4 \ # # $Z standard=FAUX \ # # $Z renormaliser=VRAI \ # # $Z origine=0 extremite=0.5 \ # # $Z centrer_xbg_xhd=VRAI xbg=$MiNiMuM_X xhd=$MaXiMuM_X \ # # $Z centrer_ybg_yhd=VRAI ybg=$MiNiMuM_Y yhd=$MaXiMuM_Y \ # # $Z R=$_____DistordChamp \ # # $Z $formatI # # # # Le trefle doit etre centre a l'origine si l'on veut qu'il le reste dans '$_____ImageR' # # et ce a cause du centrage auquel procede '$xrv/particule.10$X'... # # # # $Z set _____NAuCarre=FAUX # # # # $Z set _____DistanceMini=0.005 # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xiirv/TROR.38 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____UtiliserTaille=VRAI # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____AttenuationA=1 # # $Z set _____PaletteC=$xiP/random.03$Fi # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImageR%s \ # # $Z $formatI \ # # $Z methode=7 \ # # $Z R=$_____ImageR%s \ # # $Z $formatR_Pdu # # # # :Fin_listG_TROR_38: # # # # # # qui montre l'image 'v $xiirv/TROR.36' distordue par un trefle a quatre feuilles centre # # sur l'origine... # v $xiirv/TROR.39 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_39: # # # # $Z set BoRdUrE=200 # # $Z XYmaxNe `calcul $XmaxPdu+$BoRdUrE` `calcul $YmaxPdu+$BoRdUrE` # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=10 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.0006 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.00008" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" N_AU_CARRE=FAUX" # # # # Ainsi, les centres des spheres cote a cote definissent parfaitement les "interstices" # # entre les carreaux du carrelage... # # # # $Z set _____NAuCarre=FAUX # # # # $Z set _____DistanceMini=0.005 # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xiirv/TROR.39 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____UtiliserTaille=FAUX # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____OptimiserIncrement=VRAI # # $Z set _____AttenuationA=1 # # $Z set _____PaletteC=$xiP/rouge_orang.32 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImageR%s \ # # $Z $formatI \ # # $Z methode=7 \ # # $Z R=$_____ImageR%s \ # # $Z $formatR_Pdu # # # # :Fin_listG_TROR_39: # # # # # # Image identique a 'v $xiirv/TROR.36', sauf que le coloriage n'est pas fait en utilisant # # la taille des deux losanges differents... # v $xiirv/TROR.36.39 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_36_39: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z c=4 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z execRVB $xci/interpole.02$X \ # # $Z A1=$xiirv/TROR.36%s \ # # $Z A2=$xiirv/TROR.39%s \ # # $Z P=$xTV/GAUSS \ # # $Z R=$xiirv/TROR.36.39%s \ # # $Z $formatI # # # # :Fin_listG_TROR_36_39: # # # v $xiirv/TROR.36.39$m v $xiirv/TROR.36.39$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_36_39_mM: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImagesA=$xiirv/TROR.36.39 # # $Z set _____ImagesT=$_____ImagesA # # $Z set _____ImagesR=$_____ImagesA # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImagesA \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z normaliser_avant_apres=VRAI \ # # $Z passes=60 \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z echelle=0.1 \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$_____ImagesA%s \ # # $Z avion=VRAI \ # # $Z Sy=10 \ # # $Z R=$_____ImagesR$m%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z echelle=0.1 \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$_____ImagesT%s \ # # $Z avion=FAUX \ # # $Z Ty=0.95 \ # # $Z Sy=10 \ # # $Z R=$_____ImagesR$M%s \ # # $Z $formatI # # # # :Fin_listG_TROR_36_39_mM: # # # v $xiirv/TROR.36.39.1$m v $xiirv/TROR.36.39.1$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_36_39_1_mM: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImagesA=$xiirv/TROR.36.39 # # $Z set _____ImagesT=$_____ImagesA # # $Z set _____ImagesR=$_____ImagesA.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImagesA \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z normaliser_avant_apres=VRAI \ # # $Z passes=60 \ # # $Z R=$xTV/PAVAGE \ # # $Z $formatI # # # # $Z $xci/fract_2D.01$X \ # # $Z iterations=4 \ # # $Z mx=0.02 my=0.02 \ # # $Z standard=FAUX \ # # $Z renormaliser=VRAI \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # # # $Z $xci/interpole.01$X \ # # $Z alpha=0.5 \ # # $Z A1=$xTV/PAVAGE \ # # $Z beta=0.5 \ # # $Z A2=$xTV/FRACTAL \ # # $Z standard=FAUX \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z echelle=0.1 \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$_____ImagesA%s \ # # $Z avion=VRAI \ # # $Z Sy=10 \ # # $Z R=$_____ImagesR$m%s \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z echelle=0.1 \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$_____ImagesT%s \ # # $Z avion=FAUX \ # # $Z Ty=0.95 \ # # $Z Sy=10 \ # # $Z R=$_____ImagesR$M%s \ # # $Z $formatI # # # # :Fin_listG_TROR_36_39_1_mM: # # # v $xiirv/TROR.42 v $xiirv/TROR.42.1 v $xiirv/TROR.42.3 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_42: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=9 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.0015 # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/TROR.42 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=1 \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=3 \ # # $Z R=$_____ImageR.3%s \ # # $Z $formatI # # # # :Fin_listG_TROR_42: # # # # # # qui montre un triangle d'Or "plat" subdivise de facon pseudo-periodique puis simplifie # # en se ramenant a des losanges et quelques variations... # v $xiirv/TROR.42$M v $xiirv/TROR.42$M.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_42_M: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/TROR.42 \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/LUMINANCE \ # # $Z N=$xTV/GAUSS \ # # $Z seuil=240 \ # # $Z R=$xTV/LUMINANCE$Fi \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/LUMINANCE$Fi \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=100 \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/TROR.42.1%s \ # # $Z avion=VRAI \ # # $Z Sy=32 \ # # $Z R=$xiirv/TROR.42$M%s \ # # $Z $formatI # # # # $Z $xci/egaliseH.03$X \ # # $Z A=$xiirv/TROR.42$M \ # # $Z plat=VRAI shuffling=VRAI \ # # $Z R=$xTV/TROR.42$M \ # # $Z $formatI # # # # $Z execRVB $xci/complement$X \ # # $Z A=$xTV/TROR.42$M%s \ # # $Z R=$xiirv/TROR.42$M.1%s \ # # $Z $formatI # # # # :Fin_listG_TROR_42_M: # # # XYmaxNe 1079 719 ; v $xiirv/TROR.43 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_43: # # # # $Z XYmaxNe 1079 719 # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=9 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.0015 # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/TROR.43 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_43: # # # # # # Image formellement identique a 'v $xiirv/TROR.42' et regeneree pour le CNRS # # ('v $Dcourrier_in/20150407103248 From.Christine.GIRARD@cnrs.fr..Fri.Apr.03.15:16:43.2015'). # v $xiirv/TROR.44 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_44: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=9 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.0010 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.0001" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" N_AU_CARRE=FAUX" # # # # Ainsi, les centres des spheres cote a cote definissent parfaitement les "interstices" # # entre les carreaux du carrelage... # # # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xiirv/TROR.44 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____IncrementNiveau=0.377777777777777768 # # $Z set _____AttenuationA=0.75 # # $Z set _____PaletteC=$xiP/random.B3$Fi # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_44: # # # # # # qui montre un triangle d'Or "plat" subdivise de facon pseudo-periodique puis simplifie # # en se ramenant a des losanges... # v $xiirv/TROR.45 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_45: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=9 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.0012 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.0001" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" N_AU_CARRE=FAUX" # # # # Ainsi, les centres des spheres cote a cote definissent parfaitement les "interstices" # # entre les carreaux du carrelage... # # # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/NOIR_PLANCHER # # $Z set _____ImageR=$xiirv/TROR.45 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____OptimiserIncrement=VRAI # # $Z set _____AttenuationA=1.00 # # $Z set _____PaletteC=$xiP/Mondrian.02 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImageR%s \ # # $Z $formatI \ # # $Z mode=1 \ # # $Z R=$_____ImageR%s \ # # $Z $formatR_Pal # # # # :Fin_listG_TROR_45: # # # # # # qui montre l'image 'v $xiirv/TROR.44' a "la Mondrian"... # v $xiirv/TROR.45$HauteDef # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_TROR_45_HauteDef: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=9 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.0008 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.0001" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" N_AU_CARRE=FAUX" # # # # Ainsi, les centres des spheres cote a cote definissent parfaitement les "interstices" # # entre les carreaux du carrelage... # # # # $Z set _____NAuCarre=FAUX # # $Z set _____DistanceMini=0.0005 # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/NOIR_PLANCHER # # $Z set _____ImageR=$xiirv/TROR.45$HauteDef # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____OptimiserIncrement=VRAI # # $Z set _____AttenuationA=1.00 # # $Z set _____PaletteC=$xiP/Mondrian.02 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_45_HauteDef: # # # v $xiirv/TROR.46 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_46: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=10 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.0006 # # # # $Z set _____NAuCarre=FAUX # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.00005" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # # # Ainsi, les centres des spheres cote a cote definissent parfaitement les "interstices" # # entre les carreaux du carrelage. On notera qu'en passant de 'Pqu' a 'Pdu', il a fallu # # passer de "LISTE_RAYON=0.0001" a "LISTE_RAYON=0.00005" afin qu'il n'y ait pas de trous # # dans les contours et que donc tous soient bien remplis... # # # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/NOIR_PLANCHER # # $Z set _____ImageR=$xiirv/TROR.46 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____AttenuationA=1.00 # # $Z set _____PaletteC=$xiP/Mondrian.02 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # # # $Z unset _____DistanceMini # # $Z set _____DistanceMini=0.005 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_46: # # # # # # qui montre l'image 'v $xiirv/TROR.44' a "la Mondrian"... # v $xiirv/TROR.46$IdM # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_TROR_46_IdM: # # # # $Z set BoRdUrE=100 # # $Z XYmaxNe `calcul $XmaxTvB+$BoRdUrE` `calcul $YmaxTvB+$BoRdUrE` # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=10 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.0008 # # $Z set _____Couronne=2 # # # # $Z set _____NAuCarre=FAUX # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.00005" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/NOIR_PLANCHER # # $Z set _____ImageR=$xiirv/TROR.46$IdM # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____AvertirCouleurs=FAUX # # $Z set _____AttenuationA=1.00 # # $Z set _____PaletteC=$xiP/Mondrian.02 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # # # $Z unset _____DistanceMini # # $Z set _____DistanceMini=0.005 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImageR%s \ # # $Z $formatI \ # # $Z methode=7 \ # # $Z R=$_____ImageR%s \ # # $Z $formatR_TvB # # # # :Fin_listG_TROR_46_IdM: # # # v $xiirv/TROR.52 v $xiirv/TROR.52.1 v $xiirv/TROR.52.2 v $xiirv/TROR.52.3 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_52: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=9 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=0.04 # # $Z set _____DeriveeY=0.04 # # $Z set _____DeriveeZ=0.00 # # $Z set _____Rayon=0.0015 # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/random.32 # # $Z set _____ImageR=$xiirv/TROR.52 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=1 \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=2 \ # # $Z R=$_____ImageR.2%s \ # # $Z $formatI # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=3 \ # # $Z R=$_____ImageR.3%s \ # # $Z $formatI # # # # :Fin_listG_TROR_52: # # # # # # qui montre un triangle d'Or "plat" subdivise de facon pseudo-periodique puis simplifie # # en se ramenant a des losanges "tordus" et quelques variations... # v $xiirv/TROR.54 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_54: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=9 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Cubique=VRAI # # $Z set _____DeriveeX=0.04 # # $Z set _____DeriveeY=0.04 # # $Z set _____DeriveeZ=0.00 # # $Z set _____Rayon=0.0010 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.0001" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" N_AU_CARRE=FAUX" # # # # Ainsi, les centres des spheres cote a cote definissent parfaitement les "interstices" # # entre les carreaux du carrelage... # # # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xiirv/TROR.54 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____IncrementNiveau=0.339095744680851074 # # $Z set _____AttenuationA=0.75 # # $Z set _____PaletteC=$xiP/random.B3$Fi # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_54: # # # # # # qui montre un triangle d'Or "plat" subdivise de facon pseudo-periodique puis simplifie # # en se ramenant a des losanges "tordus"... # # # # On notera l'existence de morceaux de carrelage qui apparaissent tres sombres (presque # # noirs), comme s'ils n'etaient pas colories. En fait c'est bien le cas et cela vient du # # fait que l'anti-aliasing est tres epais et que ce qui peut apparaitre comme un contours # # possedant un interieur ne l'est pas en realite, tous les cotes se touchant en fait a # # l'interieur (interieur qui est donc vide et ne peut donc pas etre rempli...). # v $xiirv/TROR.62 v $xiirv/TROR.62.1 v $xiirv/TROR.62.3 v $xiirv/TROR.62.5 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_62: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z set _____Centrer=FAUX # # $Z SET _____Symetrique=VRAI # # $Z SET _____Etoile=$EXIST # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.006 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.6 # # $Z set _____RotationZ=`calcul $pi/10` # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/TROR.62 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=1 \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=3 \ # # $Z R=$_____ImageR.3%s \ # # $Z $formatI # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=5 \ # # $Z R=$_____ImageR.5%s \ # # $Z $formatI # # # # :Fin_listG_TROR_62: # # # # # # qui montre une etoile d'Or a cinq branches et quelques variations... # v $xiirv/TROR.62$M v $xiirv/TROR.62$M.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_62_M: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z $xci/luminance.01$X \ # # $Z A=$xiirv/TROR.62 \ # # $Z R=$xTV/LUMINANCE \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z $xci/filtre.01$X \ # # $Z A=$xTV/LUMINANCE \ # # $Z N=$xTV/GAUSS \ # # $Z seuil=240 \ # # $Z R=$xTV/LUMINANCE$Fi \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/LUMINANCE$Fi \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/normalise.01$X \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=100 \ # # $Z R=$xTV/SURFACE \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/SURFACE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xiirv/TROR.62.1%s \ # # $Z avion=VRAI \ # # $Z Sy=32 \ # # $Z ombres=FAUX \ # # $Z R=$xiirv/TROR.62$M%s \ # # $Z $formatI # # # # $Z $xci/egaliseH.03$X \ # # $Z A=$xiirv/TROR.62$M \ # # $Z plat=VRAI shuffling=VRAI \ # # $Z R=$xTV/TROR.62$M \ # # $Z $formatI # # # # $Z execRVB $xci/complement$X \ # # $Z A=$xTV/TROR.62$M%s \ # # $Z R=$xiirv/TROR.62$M.1%s \ # # $Z $formatI # # # # :Fin_listG_TROR_62_M: # # # v $xiirv/TROR.63 v $xiirv/TROR.63.1 v $xiirv/TROR.63.3 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_63: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z $xci/gauss$X \ # # $Z c=64.0 \ # # $Z standard=FAUX \ # # $Z renormaliser=VRAI origine=0 extremite=7.0 \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z set _____Profondeur=5 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z set _____Centrer=FAUX # # $Z SET _____Symetrique=VRAI # # $Z SET _____Etoile=$EXIST # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z SET _____Distord=$EXIST # # $Z set _____DistordChamp=$xTV/GAUSS # # $Z set _____Rayon=0.006 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.6 # # $Z set _____RotationZ=`calcul $pi/10` # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/TROR.63 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=1 \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=3 \ # # $Z R=$_____ImageR.3%s \ # # $Z $formatI # # # # :Fin_listG_TROR_63: # # # # # # qui montre une etoile d'Or a cinq branches distordues par un champ gaussien # # tridimensionnel et quelques variations... # v $xiirv/TROR.64 v $xiirv/TROR.64.1 v $xiirv/TROR.64.3 v $xiirv/TROR.64$M v $xiirv/TROR.64.1$M v $xiirv/TROR.64.3$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_64: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z $xci/trefle$X \ # # $Z Ct=5 \ # # $Z matrice=VRAI \ # # $Z aXX=4 aYY=4 \ # # $Z standard=FAUX \ # # $Z renormaliser=VRAI origine=0 extremite=3.0 \ # # $Z R=$xTV/TREFLE.1 \ # # $Z $formatI # # # # $Z set _____Profondeur=5 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z set _____Centrer=FAUX # # $Z SET _____Symetrique=VRAI # # $Z SET _____Etoile=$EXIST # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z SET _____Distord=$EXIST # # $Z set _____DistordChamp=$xTV/TREFLE.1 # # $Z set _____DistordPeriodX=FAUX # # $Z set _____DistordPeriodY=FAUX # # $Z set _____Rayon=0.006 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.6 # # $Z set _____RotationZ=0 # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/TROR.64 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=1 \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=3 \ # # $Z R=$_____ImageR.3%s \ # # $Z $formatI # # # # $Z execRVB $xci/substitue$X \ # # $Z A=$_____ImageR%s \ # # $Z substitution=L_SUBSTITUTION_02 \ # # $Z R=$xTV/TEXTURE%s \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z Ct=5 \ # # $Z standard=FAUX \ # # $Z renormaliser=VRAI origine=0 extremite=3.0 \ # # $Z R=$xTV/TREFLE.2 \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/TREFLE.2 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/TEXTURE%s \ # # $Z avion=VRAI \ # # $Z $formatI | \ # # $Z $xci/transpose$X \ # # $Z R=$_____ImageR$M%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/TREFLE.2 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$_____ImageR.1%s \ # # $Z avion=VRAI \ # # $Z $formatI | \ # # $Z $xci/transpose$X \ # # $Z R=$_____ImageR.1$M%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/TREFLE.2 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$_____ImageR.3%s \ # # $Z avion=VRAI \ # # $Z $formatI | \ # # $Z $xci/transpose$X \ # # $Z R=$_____ImageR.3$M%s \ # # $Z $formatI" # # # # $Z execRVB "$xci/transpose$X \ # # $Z R=$_____ImageR%s \ # # $Z A=$_____ImageR%s \ # # $Z $formatI" # # # # $Z execRVB $xci/transpose$X \ # # $Z A=$_____ImageR.1%s \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI # # # # $Z execRVB $xci/transpose$X \ # # $Z A=$_____ImageR.3%s \ # # $Z R=$_____ImageR.3%s \ # # $Z $formatI # # # # :Fin_listG_TROR_64: # # # # # # qui montre une etoile d'Or a cinq branches distordues par un champ "5-trefle" (ce qui # # est logique...) tridimensionnel et quelques variations... # # # # ATTENTION : on notera le '_____RotationZ=0' (qui oriente de facon peu esthetique le # # decagone, contrairement a 'v $xiirv/TROR.62') qui est destine a permettre ensuite # # les '$xci/transpose$X's qui orientent "joliment" les ombres. Ceci est ensuite compense, # # la-aussi, par des '$xci/transpose$X's... # XYmaxNe 1079 719 ; v $xiirv/TROR.65 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_65: # # # # $Z XYmaxNe 1079 719 # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z set _____Centrer=FAUX # # $Z SET _____Symetrique=VRAI # # $Z SET _____Etoile=$EXIST # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.008 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.6 # # $Z set _____RotationZ=`calcul $pi/10` # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/TROR.65 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_65: # # # # # # qui montre une etoile d'Or a cinq branches et quelques variations... # # # # Image formellement identique a 'v $xiirv/TROR.62' et regeneree pour le CNRS # # ('v $Dcourrier_in/20150407103248 From.Christine.GIRARD@cnrs.fr..Fri.Apr.03.15:16:43.2015'). # v $xiirv/TROR.66 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_66: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z set _____Centrer=FAUX # # $Z SET _____Symetrique=VRAI # # $Z SET _____Etoile=$EXIST # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.008 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.0001" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" N_AU_CARRE=FAUX" # # # # Ainsi, les centres des spheres cote a cote definissent parfaitement les "interstices" # # entre les carreaux du carrelage... # # # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.6 # # $Z set _____RotationZ=`calcul $pi/10` # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xiirv/TROR.66 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____IncrementNiveau=0.789473684210526327 # # $Z set _____AttenuationA=1 # # $Z set _____PaletteC=$xiP/random.B7$Fi # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_66: # # # # # # qui montre une etoile d'Or a cinq branches remplie... # v $xiirv/TROR.66.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_66_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z set _____Centrer=FAUX # # $Z SET _____Symetrique=VRAI # # $Z SET _____Etoile=$EXIST # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.008 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.0001" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" N_AU_CARRE=FAUX" # # # # Ainsi, les centres des spheres cote a cote definissent parfaitement les "interstices" # # entre les carreaux du carrelage... # # # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.6 # # $Z set _____RotationZ=`calcul $pi/10` # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageA=$xiirv/TROR.66 # # $Z set _____ImageR=$_____ImageA.1 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____AttenuationA=1 # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____IncrementNiveau=0.789473684210526327 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.TROR.66.1._____U) # # # # :Fin_listG_TROR_66_1: # # # # # # qui montre une etoile d'Or a cinq branches remplie avec visualisation des centres # # de gravite... # v $xiirv/TROR.66.1.1$m v $xiirv/TROR.66.1.1$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_66_1_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____imagesA=$xiirv/TROR.66.1 # # $Z set _____imagesR=$_____imagesA.1 # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____imagesA \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z normaliser_avant_apres=VRAI \ # # $Z passes=1000 \ # # $Z R=$xTV/TROR.66.1 \ # # $Z $formatI # # # # $Z execRVB $xci/neutre$X \ # # $Z A=$_____imagesA%s \ # # $Z R=$xTV/TROR.66.1%s \ # # $Z $formatI # # # # $Z set PaRaMeTrEs="echelle=0.4 Sy=100 Ty=0.90" # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/TROR.66.1 \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$xTV/TROR.66.1%s \ # # $Z avion=VRAI \ # # $Z $PaRaMeTrEs \ # # $Z R=$_____imagesR$m%s \ # # $Z $formatI # # # # $Z $xci/montagne.01$X \ # # $Z A=$xTV/TROR.66.1 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$BLANC \ # # $Z avion=FAUX \ # # $Z $PaRaMeTrEs \ # # $Z Z-Buffer=VRAI \ # # $Z R=$xTV/MONTAGNE \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z exponentiation_image=VRAI \ # # $Z exposant=4 \ # # $Z R=$xTV/BRUME \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z A=$xTV/TROR.66.1 \ # # $Z standard=FAUX \ # # $Z zero=FAUX \ # # $Z T=$xTV/TROR.66.1%s \ # # $Z avion=FAUX \ # # $Z $PaRaMeTrEs \ # # $Z R=$_____imagesR$M%s \ # # $Z $formatI # # # # $Z execRVB $xci/brume.11$X \ # # $Z A=$_____imagesR$M%s \ # # $Z B=$xTV/BRUME \ # # $Z R=$_____imagesR$M%s \ # # $Z $formatI # # # # :Fin_listG_TROR_66_1_1: # # # v $xiirv/TROR.66.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_66_2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z set _____Centrer=FAUX # # $Z SET _____Symetrique=VRAI # # $Z SET _____Etoile=$EXIST # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.008 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.0001" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" N_AU_CARRE=FAUX" # # # # Ainsi, les centres des spheres cote a cote definissent parfaitement les "interstices" # # entre les carreaux du carrelage... # # # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.6 # # $Z set _____RotationZ=`calcul $pi/10` # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageA=$xiirv/TROR.66 # # $Z set _____ImageR=$_____ImageA.2 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____AttenuationA=1 # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____IncrementNiveau=0.789473684210526327 # # $Z SET _____JoindreG=$EXIST # # $Z set _____MinRayon=0.004 # # $Z set _____MaxDistances=0.048 # # # # Cette valeur "tres precise" de 0.048 est destinee a garantir une symetrie d'ordre 5 # # pour le maillage (elle est tres liee a 'v $xiirv/TROR.66'...). # # # # $Z set _____LzG=100 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.TROR.66.1._____U) # # # # :Fin_listG_TROR_66_2: # # # # # # qui montre une etoile d'Or a cinq branches remplie avec visualisation des centres # # de gravite et les jonctions entre eux (parmi les plus proches voisins). # v $xiirv/TROR.66.2.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_66_2_1: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/TROR.66.2 # # $Z set _____ImageR=$_____ImageA.1 # # # # $Z $xci/trefle$X \ # # $Z pr=0.7 \ # # $Z ct=5 \ # # $Z pt=`calcul $pis2+$pi` \ # # $Z matrice=VRAI aXX=0.5 aYY=0.5 \ # # $Z R=$xTV/TREFLE \ # # $Z $formatI # # # # $Z execRVB "$xci/multi_02.01$X \ # # $Z A1=$xTV/TREFLE \ # # $Z A2=$_____ImageA%s \ # # $Z $formatI | \ # # $Z $xci/jeu_vie.01$X \ # # $Z iterations=1 \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # :Fin_listG_TROR_66_2_1: # # # # # # qui montre une etoile d'Or a cinq branches remplie avec visualisation des centres # # de gravite et les jonctions entre eux (parmi les plus proches voisins). # v $xiirv/TROR.67 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_67: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z set _____Centrer=FAUX # # $Z SET _____Symetrique=VRAI # # $Z SET _____Etoile=$EXIST # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.008 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.0001" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" N_AU_CARRE=FAUX" # # # # Ainsi, les centres des spheres cote a cote definissent parfaitement les "interstices" # # entre les carreaux du carrelage... # # # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.6 # # $Z set _____RotationZ=`calcul $pi/10` # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xiirv/TROR.67 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____IncrementNiveau=0.789473684210526327 # # # # $Z set _____AttenuationA=1 # # $Z set _____PaletteC=$xiP/random.B7$Fi # # $Z FileTmpB FPaletteC # # # # $Z $xciP/S_NIVEAU$X \ # # $Z paletteA=$_____PaletteC \ # # $Z niveau=$NOIR \ # # $Z ROUGE=VRAI nR=$NOIR \ # # $Z VERTE=VRAI nV=$NOIR \ # # $Z BLEUE=VRAI nB=$NOIR \ # # $Z paletteR=$FPaletteC # # # # $Z $xciP/S_NIVEAU$X \ # # $Z paletteA=$FPaletteC \ # # $Z niveau=$NOIR_PLANCHER \ # # $Z ROUGE=VRAI nR=$NOIR \ # # $Z VERTE=VRAI nV=$NOIR \ # # $Z BLEUE=VRAI nB=$NOIR \ # # $Z paletteR=$FPaletteC # # $Z set _____PaletteC=$FPaletteC # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # # # $Z FileTmpE FPaletteC # # # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z execRVB "$xci/Sx$X \ # # $Z A=$_____ImagesR%s \ # # $Z $formatI | \ # # $Z $xci/minmax$X \ # # $Z A1=$_____ImagesR%s \ # # $Z R=$_____ImagesR%s \ # # $Z $formatI" # # # # :Fin_listG_TROR_67: # # # # # # qui montre une etoile d'Or a dix branches remplie... # v $xiirv/TROR.72 v $xiirv/TROR.72.1 v $xiirv/TROR.72.3 v $xiirv/TROR.72.5 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_72: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z set _____Centrer=FAUX # # $Z SET _____Symetrique=VRAI # # $Z SET _____Etoile=$EXIST # # $Z SET _____TriNumerique=$EXIST # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.006 # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.6 # # $Z set _____RotationZ=`calcul $pi/10` # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/TROR.72 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=1 \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=3 \ # # $Z R=$_____ImageR.3%s \ # # $Z $formatI # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=5 \ # # $Z R=$_____ImageR.5%s \ # # $Z $formatI # # # # :Fin_listG_TROR_72: # # # # # # qui montre une etoile d'Or a cinq branches et quelques variations... # v $xiirv/TROR.73 v $xiirv/TROR.73.4 v $xiirv/TROR.73.4$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_73: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/TROR.72 # # $Z set _____ImageR=$xiirv/TROR.73 # # # # $Z execRVB "$xci/Sx$X \ # # $Z A=$_____ImageA%s \ # # $Z $formatI | \ # # $Z $xci/minmax$X \ # # $Z A1=$_____ImageA%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=4 \ # # $Z R=$_____ImageR.4%s \ # # $Z $formatI # # # # $Z $xci/trefle$X \ # # $Z Ct=4 \ # # $Z standard=FAUX \ # # $Z R=$xTV/TREFLE \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/TREFLE \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$_____ImageR.4%s \ # # $Z avion=VRAI \ # # $Z $formatI | \ # # $Z $xci/transpose$X \ # # $Z R=$_____ImageR.4$M%s \ # # $Z $formatI" # # # # :Fin_listG_TROR_73: # # # v $xiirv/TROR.83 v $xiirv/TROR.83.1 v $xiirv/TROR.83.3 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_83: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z $xci/fract_2D.01$X \ # # $Z standard=FAUX \ # # $Z iterations=8 \ # # $Z renormaliser=VRAI origine=0 extremite=2.0 \ # # $Z R=$xTV/FRACTAL \ # # $Z $formatI # # # # $Z set _____Profondeur=6 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z set _____Centrer=FAUX # # $Z SET _____Symetrique=VRAI # # $Z SET _____Etoile=$EXIST # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z SET _____Distord=$EXIST # # $Z set _____DistordChamp=$xTV/FRACTAL # # $Z set _____Rayon=0.006 # # $Z set _____DistanceMini=0.004 # # $Z set _____RotationX=-0.4 # # $Z set _____TranslationX=+0.07 # # $Z set _____TranslationY=-0.36 # # $Z set _____Zoom=0.52 # # $Z set _____RotationZ=`calcul $pi/10` # # $Z set _____Palette=$xiP/arc_ciel.C1 # # $Z set _____ImageR=$xiirv/TROR.83 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=1 \ # # $Z R=$_____ImageR.1%s \ # # $Z $formatI # # # # $Z execRVB $xci/jeu_vie.01$X \ # # $Z A=$_____ImageR%s \ # # $Z iterations=3 \ # # $Z R=$_____ImageR.3%s \ # # $Z $formatI # # # # :Fin_listG_TROR_83: # # # # # # qui montre une etoile d'Or a cinq branches distordues par un champ fractal # # tridimensionnel et quelques variations... # v $xiirv/TROR.92 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_92: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z SET FiLeTmP_DOUBLE_PAVAGE=$UNDEF # # # # Ce 'set' afin d'eviter ulterieurement un "FiLeTmP_DOUBLE_PAVAGE: Undefined variable."... # # # # $Z FilSTmpB FiLeTmP_DOUBLE_PAVAGE # # # # $Z set _____Profondeur=7 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # # # $Z set _____Rayon=0.002 # # $Z set _____Zoom=5.25 # # # # $Z set _____Palette=$xiP/bleue # # $Z SET _____FSavePavage=$FiLeTmP_DOUBLE_PAVAGE.1 # # $Z set _____SymetriePP=FAUX # # $Z set _____CoordonneeZ=0.00 # # $Z set _____ImageR=$xTV/TROR.92.1 # # $Z _____include(_____xiirv/.TROR.11._____U) # # $Z set Npart1=$Npart # # # # $Z set _____Palette=$xiP/rouge # # $Z SET _____FSavePavage=$FiLeTmP_DOUBLE_PAVAGE.2 # # $Z set _____SymetriePP=VRAI # # $Z set _____CoordonneeZ=+0.10 # # $Z set _____ImageR=$xTV/TROR.92.2 # # $Z _____include(_____xiirv/.TROR.11._____U) # # $Z set Npart2=$Npart # # # # $Z FilSTmpB FiLeTmP_TRIANGLE_OR # # # # On notera que les commandes suivantes executees par 'execXYZ' et 'execRVB' s'executent # # sous '$SHELL_SH'. Alors que '$CSH' demande '>>!' pour concatener successivement des # # informations dans des fichiers et ce meme si ces fichiers n'existent pas initialement, # # mais pour ce qui est de '$SHELL_SH', '>>' suffit pour cela... # # # # $Z set exec123_no_EnTete_X=$EXIST # # # # $Z execXYZ "$xrv/neutre$X ne=$Npart1 \ # # $Z fichier=$FiLeTmP_DOUBLE_PAVAGE.1%s \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s" # # # # $Z execRVB "$xrv/neutre$X ne=$Npart1 \ # # $Z fichier=$FiLeTmP_DOUBLE_PAVAGE.1%s \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s" # # # # $Z execXYZ "$xrv/neutre$X ne=$Npart2 \ # # $Z fichier=$FiLeTmP_DOUBLE_PAVAGE.2%s \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s" # # # # $Z execRVB "$xrv/neutre$X ne=$Npart2 \ # # $Z fichier=$FiLeTmP_DOUBLE_PAVAGE.2%s \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s" # # # # $Z execXYZ '$PAST $FiLeTmP_DOUBLE_PAVAGE.1%s \ # # $Z $FiLeTmP_DOUBLE_PAVAGE.2%s | \ # # $Z $AW $K_QS { print $K_DOLLAR""1 $K_QD$K_NL$K_QD $K_DOLLAR""2 } $K_QS \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s' # # # # $Z execRVB '$PAST $FiLeTmP_DOUBLE_PAVAGE.1%s \ # # $Z $FiLeTmP_DOUBLE_PAVAGE.2%s | \ # # $Z $AW $K_QS { print $K_DOLLAR""1 $K_QD$K_NL$K_QD $K_DOLLAR""2 } $K_QS \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s' # # # # $Z set NpartX=`$CA $FiLeTmP_TRIANGLE_OR$COORD_X | $WCl` # # $Z set NpartY=`$CA $FiLeTmP_TRIANGLE_OR$COORD_Y | $WCl` # # $Z set Npart=`$xcg/MIN2.01$X x=$NpartX y=$NpartY` # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" DepthCueingMinimal=0.2" # # $Z set _____ParticulePara1="$_____ParticulePara1"" DepthCueingMaximal=1.0" # # # # $Z set _____RotationX=1.2 # # $Z set _____TranslationY=-0.05 # # $Z set _____Zoom=5.25 # # $Z set _____NAuCarre=FAUX # # $Z set _____ImageR=$xiirv/TROR.92 # # $m4 _____include(_____xiirv/.TROR.11.2._____U) # # # # $Z FilSTmpE FiLeTmP_TRIANGLE_OR # # $Z FilSTmpE FiLeTmP_DOUBLE_PAVAGE # # # # :Fin_listG_TROR_92: # # # # # # qui montre un pavage de Penrose empile tridimensionnellement avec son symetrique (par # # Rapport a 'OY'). # v $xiirv/TROR.93 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_TROR_93: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET FiLeTmP_TRIPLE_PAVAGE=$UNDEF # # # # Ce 'set' afin d'eviter ulterieurement un "FiLeTmP_TRIPLE_PAVAGE: Undefined variable."... # # # # $Z FilSTmpB FiLeTmP_TRIPLE_PAVAGE # # # # $Z set _____Profondeur=8 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # # # $Z set _____Zoom=5.25 # # $Z set _____Rayon=0.0011 # # $Z set _____DistanceMini=0.005 # # $Z set _____NAuCarre=FAUX # # # # $Z set _____Palette=$xiP/blanc # # $Z SET _____FSavePavage=$FiLeTmP_TRIPLE_PAVAGE.1 # # $Z set _____SymetriePP=FAUX # # $Z set _____CoordonneeZ=0.00 # # $Z set _____ImageR=$xTV/TROR.93.1 # # $Z _____include(_____xiirv/.TROR.11._____U) # # $Z set Npart1=$Npart # # # # $Z set _____Palette=$xiP/rouge # # $Z SET _____FSavePavage=$FiLeTmP_TRIPLE_PAVAGE.2 # # $Z set _____SymetriePP=VRAI # # $Z set _____CoordonneeZ=+0.06 # # $Z set _____ImageR=$xTV/TROR.93.2 # # $Z _____include(_____xiirv/.TROR.11._____U) # # $Z set Npart2=$Npart # # # # $Z set _____Palette=$xiP/orange # # $Z SET _____FSavePavage=$FiLeTmP_TRIPLE_PAVAGE.3 # # $Z set _____SymetriePP=VRAI # # $Z set _____CoordonneeZ=-0.06 # # $Z set _____ImageR=$xTV/TROR.93.3 # # $Z _____include(_____xiirv/.TROR.11._____U) # # $Z set Npart3=$Npart # # # # $Z FilSTmpB FiLeTmP_TRIANGLE_OR # # # # On notera que les commandes suivantes executees par 'execXYZ' et 'execRVB' s'executent # # sous '$SHELL_SH'. Alors que '$CSH' demande '>>!' pour concatener successivement des # # informations dans des fichiers et ce meme si ces fichiers n'existent pas initialement, # # mais pour ce qui est de '$SHELL_SH', '>>' suffit pour cela... # # # # $Z set exec123_no_EnTete_X=$EXIST # # # # $Z execXYZ "$xrv/neutre$X ne=$Npart1 \ # # $Z fichier=$FiLeTmP_TRIPLE_PAVAGE.1%s \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s" # # # # $Z execRVB "$xrv/neutre$X ne=$Npart1 \ # # $Z fichier=$FiLeTmP_TRIPLE_PAVAGE.1%s \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s" # # # # $Z execXYZ "$xrv/neutre$X ne=$Npart2 \ # # $Z fichier=$FiLeTmP_TRIPLE_PAVAGE.2%s \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s" # # # # $Z execRVB "$xrv/neutre$X ne=$Npart2 \ # # $Z fichier=$FiLeTmP_TRIPLE_PAVAGE.2%s \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s" # # # # $Z execXYZ "$xrv/neutre$X ne=$Npart3 \ # # $Z fichier=$FiLeTmP_TRIPLE_PAVAGE.3%s \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s" # # # # $Z execRVB "$xrv/neutre$X ne=$Npart3 \ # # $Z fichier=$FiLeTmP_TRIPLE_PAVAGE.3%s \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s" # # # # # # $Z execXYZ '$PAST $FiLeTmP_TRIPLE_PAVAGE.1%s \ # # $Z $FiLeTmP_TRIPLE_PAVAGE.2%s | \ # # $Z $AW $K_QS { print $K_DOLLAR""1 $K_QD$K_NL$K_QD $K_DOLLAR""2 } $K_QS \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s' # # # # $Z execRVB '$PAST $FiLeTmP_TRIPLE_PAVAGE.1%s \ # # $Z $FiLeTmP_TRIPLE_PAVAGE.2%s | \ # # $Z $AW $K_QS { print $K_DOLLAR""1 $K_QD$K_NL$K_QD $K_DOLLAR""2 } $K_QS \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s' # # # # $Z execXYZ '$PAST $FiLeTmP_TRIPLE_PAVAGE.1%s \ # # $Z $FiLeTmP_TRIPLE_PAVAGE.3%s | \ # # $Z $AW $K_QS { print $K_DOLLAR""1 $K_QD$K_NL$K_QD $K_DOLLAR""2 } $K_QS \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s' # # # # $Z execRVB '$PAST $FiLeTmP_TRIPLE_PAVAGE.1%s \ # # $Z $FiLeTmP_TRIPLE_PAVAGE.3%s | \ # # $Z $AW $K_QS { print $K_DOLLAR""1 $K_QD$K_NL$K_QD $K_DOLLAR""2 } $K_QS \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s' # # # # $Z set NpartX=`$CA $FiLeTmP_TRIANGLE_OR$COORD_X | $WCl` # # $Z set NpartY=`$CA $FiLeTmP_TRIANGLE_OR$COORD_Y | $WCl` # # $Z set Npart=`$xcg/MIN2.01$X x=$NpartX y=$NpartY` # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" DepthCueingMinimal=0.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" DepthCueingMaximal=1.0" # # # # $Z set _____RotationX=1.2 # # $Z set _____TranslationY=-0.10 # # $Z set _____Zoom=5.25 # # $Z set _____NAuCarre=FAUX # # $Z set _____ImageR=$xiirv/TROR.93 # # $m4 _____include(_____xiirv/.TROR.11.2._____U) # # # # $Z FilSTmpE FiLeTmP_TRIANGLE_OR # # $Z FilSTmpE FiLeTmP_TRIPLE_PAVAGE # # # # :Fin_listG_TROR_93: # # # # # # qui montre un pavage de Penrose empile tridimensionnellement avec son symetrique (par # # Rapport a 'OY'). # # # # Le visualisation finale necessite le tri de 1.626.231 points en mode "_____NAuCarre=FAUX", # # ce qui a demande environ 00:03:53 sur '$LACT1A' a comparer a 02:18:55 pour # # 'v $xiirv/TROR.94' sur '$CMAP28' -ex "porte-de-la-chapelle"- en mode "_____NAuCarre=VRAI". # # # # Tres paradoxalement 'v $xiirv/TROR.93' est de meilleure qualite que 'v $xiirv/TROR.94' # # alors qu'on aurait pu croire que le tri en 'N^2' ('v $xiirv/TROR.93') donnerait de # # meilleurs resultats que le tris en 'N.log(N)' ('v $xiirv/TROR.94')... # v $xiirv/TROR.94 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_TROR_94: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z SET FiLeTmP_TRIPLE_PAVAGE=$UNDEF # # # # Ce 'set' afin d'eviter ulterieurement un "FiLeTmP_TRIPLE_PAVAGE: Undefined variable."... # # # # $Z FilSTmpB FiLeTmP_TRIPLE_PAVAGE # # # # $Z set _____Profondeur=8 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # # # $Z set _____Zoom=5.25 # # $Z set _____Rayon=0.0011 # # $Z set _____DistanceMini=0.005 # # $Z set _____NAuCarre=FAUX # # # # $Z set _____Palette=$xiP/blanc # # $Z SET _____FSavePavage=$FiLeTmP_TRIPLE_PAVAGE.1 # # $Z set _____SymetriePP=FAUX # # $Z set _____CoordonneeZ=0.00 # # $Z set _____ImageR=$xTV/TROR.94.1 # # $Z _____include(_____xiirv/.TROR.11._____U) # # $Z set Npart1=$Npart # # # # $Z set _____Palette=$xiP/rouge # # $Z SET _____FSavePavage=$FiLeTmP_TRIPLE_PAVAGE.2 # # $Z set _____SymetriePP=VRAI # # $Z set _____CoordonneeZ=+0.06 # # $Z set _____ImageR=$xTV/TROR.94.2 # # $Z _____include(_____xiirv/.TROR.11._____U) # # $Z set Npart2=$Npart # # # # $Z set _____Palette=$xiP/orange # # $Z SET _____FSavePavage=$FiLeTmP_TRIPLE_PAVAGE.3 # # $Z set _____SymetriePP=VRAI # # $Z set _____CoordonneeZ=-0.06 # # $Z set _____ImageR=$xTV/TROR.94.3 # # $Z _____include(_____xiirv/.TROR.11._____U) # # $Z set Npart3=$Npart # # # # $Z FilSTmpB FiLeTmP_TRIANGLE_OR # # # # On notera que les commandes suivantes executees par 'execXYZ' et 'execRVB' s'executent # # sous '$SHELL_SH'. Alors que '$CSH' demande '>>!' pour concatener successivement des # # informations dans des fichiers et ce meme si ces fichiers n'existent pas initialement, # # mais pour ce qui est de '$SHELL_SH', '>>' suffit pour cela... # # # # $Z set exec123_no_EnTete_X=$EXIST # # # # $Z execXYZ "$xrv/neutre$X ne=$Npart1 \ # # $Z fichier=$FiLeTmP_TRIPLE_PAVAGE.1%s \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s" # # # # $Z execRVB "$xrv/neutre$X ne=$Npart1 \ # # $Z fichier=$FiLeTmP_TRIPLE_PAVAGE.1%s \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s" # # # # $Z execXYZ "$xrv/neutre$X ne=$Npart2 \ # # $Z fichier=$FiLeTmP_TRIPLE_PAVAGE.2%s \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s" # # # # $Z execRVB "$xrv/neutre$X ne=$Npart2 \ # # $Z fichier=$FiLeTmP_TRIPLE_PAVAGE.2%s \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s" # # # # $Z execXYZ "$xrv/neutre$X ne=$Npart3 \ # # $Z fichier=$FiLeTmP_TRIPLE_PAVAGE.3%s \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s" # # # # $Z execRVB "$xrv/neutre$X ne=$Npart3 \ # # $Z fichier=$FiLeTmP_TRIPLE_PAVAGE.3%s \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s" # # # # # # $Z execXYZ '$PAST $FiLeTmP_TRIPLE_PAVAGE.1%s \ # # $Z $FiLeTmP_TRIPLE_PAVAGE.2%s | \ # # $Z $AW $K_QS { print $K_DOLLAR""1 $K_QD$K_NL$K_QD $K_DOLLAR""2 } $K_QS \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s' # # # # $Z execRVB '$PAST $FiLeTmP_TRIPLE_PAVAGE.1%s \ # # $Z $FiLeTmP_TRIPLE_PAVAGE.2%s | \ # # $Z $AW $K_QS { print $K_DOLLAR""1 $K_QD$K_NL$K_QD $K_DOLLAR""2 } $K_QS \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s' # # # # $Z execXYZ '$PAST $FiLeTmP_TRIPLE_PAVAGE.1%s \ # # $Z $FiLeTmP_TRIPLE_PAVAGE.3%s | \ # # $Z $AW $K_QS { print $K_DOLLAR""1 $K_QD$K_NL$K_QD $K_DOLLAR""2 } $K_QS \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s' # # # # $Z execRVB '$PAST $FiLeTmP_TRIPLE_PAVAGE.1%s \ # # $Z $FiLeTmP_TRIPLE_PAVAGE.3%s | \ # # $Z $AW $K_QS { print $K_DOLLAR""1 $K_QD$K_NL$K_QD $K_DOLLAR""2 } $K_QS \ # # $Z >> $FiLeTmP_TRIANGLE_OR%s' # # # # $Z set NpartX=`$CA $FiLeTmP_TRIANGLE_OR$COORD_X | $WCl` # # $Z set NpartY=`$CA $FiLeTmP_TRIANGLE_OR$COORD_Y | $WCl` # # $Z set Npart=`$xcg/MIN2.01$X x=$NpartX y=$NpartY` # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" DepthCueingMinimal=0.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" DepthCueingMaximal=1.0" # # $Z set _____ParticulePara1="$_____ParticulePara1"" message_N_AU_CARRE=FAUX" # # # # $Z set _____RotationX=1.2 # # $Z set _____TranslationY=-0.10 # # $Z set _____Zoom=5.25 # # $Z set _____NAuCarre=VRAI # # $Z set _____ImageR=$xiirv/TROR.94 # # $m4 _____include(_____xiirv/.TROR.11.2._____U) # # # # $Z FilSTmpE FiLeTmP_TRIANGLE_OR # # $Z FilSTmpE FiLeTmP_TRIPLE_PAVAGE # # # # :Fin_listG_TROR_94: # # # # # # qui montre un pavage de Penrose empile tridimensionnellement avec son symetrique (par # # Rapport a 'OY'). # # # # Le visualisation finale necessite le tri de 1.626.231 points en mode "_____NAuCarre=VRAI", # # ce qui a demande 02:18:55 sur '$CMAP28' -ex "porte-de-la-chapelle"- a comparer a 00:03:53 # # pour 'v $xiirv/TROR.93' sur '$LACT1A' en mode "_____NAuCarre=FAUX"... # # # # Tres paradoxalement 'v $xiirv/TROR.93' est de meilleure qualite que 'v $xiirv/TROR.94' # # alors qu'on aurait pu croire que le tri en 'N^2' ('v $xiirv/TROR.93') donnerait de # # meilleurs resultats que le tris en 'N.log(N)' ('v $xiirv/TROR.94')... # v $xiirv/TROR.A5 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_A5: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z set _____Centrer=FAUX # # $Z SET _____Symetrique=VRAI # # $Z SET _____Etoile=$EXIST # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.010 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.0001" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" N_AU_CARRE=FAUX" # # # # Ainsi, les centres des spheres cote a cote definissent parfaitement les "interstices" # # entre les carreaux du carrelage... # # # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.6 # # $Z set _____RotationZ=`calcul $pi/10` # # $Z set _____Palette=$xiP/NOIR_PLANCHER # # $Z set _____ImageR=$xiirv/TROR.A5 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____OptimiserIncrement=VRAI # # $Z set _____AttenuationA=1.00 # # $Z set _____PaletteC=$xiP/Mondrian.02 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImageR%s \ # # $Z $formatI \ # # $Z mode=1 \ # # $Z R=$_____ImageR%s \ # # $Z $formatR_Pal # # # # :Fin_listG_TROR_A5: # # # # # # qui montre l'image 'v $xiirv/TROR.62' a "la Mondrian"... # v $xiirv/TROR.A5$HauteDef # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_TROR_A5_HauteDef: # # # # $Z Pqu # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z set _____Centrer=FAUX # # $Z SET _____Symetrique=VRAI # # $Z SET _____Etoile=$EXIST # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.006 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.0001" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" N_AU_CARRE=FAUX" # # # # Ainsi, les centres des spheres cote a cote definissent parfaitement les "interstices" # # entre les carreaux du carrelage... # # # # $Z set _____NAuCarre=FAUX # # $Z set _____DistanceMini=0.004 # # $Z set _____Zoom=0.6 # # $Z set _____RotationZ=`calcul $pi/10` # # $Z set _____Palette=$xiP/NOIR_PLANCHER # # $Z set _____ImageR=$xiirv/TROR.A5$HauteDef # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____OptimiserIncrement=VRAI # # $Z set _____AttenuationA=1.00 # # $Z set _____PaletteC=$xiP/Mondrian.02 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_A5_HauteDef: # # # v $xiirv/TROR.B6 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_TROR_B6: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Rayon=0.010 # # $Z set _____OptimiserIncrement=VRAI # # $Z set _____PaletteC=$xiP/rouge_orang.32 # # $Z set _____ImageR=$xiirv/TROR.B6 # # $m4 _____include(_____xiirv/.TROR.B6._____U) # # # # :Fin_listG_TROR_B6: # # # # # # qui montre une etoile d'Or a cinq branches remplie avec cinq cubes visibles en bascule... # # # # # # Numerotage des contours en format 'Sdu' obtenu en regenerant 'v $xiirv/TROR.B6' avec # # la palette '_____PaletteC=$xiP/gris.01' ('loupe' permet d'avoir ensuite le niveau de # # remplissage de chaque contour qui est donc son numero...) : # # # # # # .. # # . .. # # . . . # # . . .. # # . . . # # . . . # # . 24 . 25 . # # . . . # # . . .. # # . . . # # . ... ...... . # # . ... . . ... . # # ... . . ... # # ... . . . .... # # ... .. . . . .. # # ... . 22 . .. 23 . ... # # .. . . . . ... # # .. 18 . . .. . 21 .. # # .. ... . ... . 17 . ... . ... . # # . ... .. ... . . ... . ... . # # . .. . . ... .. # # . . . . . .. . # # . . . . . . . . # # .. 13 . . 15 . . 16 . . 14 . # # . . . ... . . . # # . . . ...... . . . # # . . . ... . ... . . . # # . . . ... . .. .. . . # # .. . . . . . # # . 11 . . . 12 .. # # .. . . . .. # # . . . 9 . 10 . . . # # . . . . . . . # # . . . . . . . # # . . . . . .. . # # . . . .. ... . . . # # . . . ... ... .. . # # . ... ... . # # . 4 . ... 8 ... . 7 . # # . . ... ... . . # # . . .... . . # # . . 5 ... .. 6 . . # # . . ... ... . . # # . .. ... ... . . # # .. .. ... .. # # . # # # # # # Numerotage des contours en format 'Std' obtenu en regenerant 'v $xiirv/TROR.B6.4' (par # # exemple...) avec la palette '_____PaletteC=$xiP/gris.01' ('loupe' permet d'avoir ensuite # # le niveau de remplissage de chaque contour qui est donc son numero...) : # # # # # # .. # # . .. # # . . . # # . . .. # # . . . # # . . . # # . 26 . 27 . # # . . . # # . . .. # # . . . # # . ... ...... . # # . ... . . ... . # # ... . . ... # # ... . . . .... # # ... .. . . . .. # # ... . 20 . .. 21 . ... # # .. . . . . ... # # .. 18 . . .. . 19 .. # # .. ... . ... . 17 . ... . ... . # # . ... .. ... . . ... . ... . # # . .. . . ... .. # # . . . . . .. . # # . . . . . . . . # # .. 13 . . 15 . . 16 . . 14 . # # . . . ... . . . # # . . . ...... . . . # # . . . ... . ... . . . # # . . . ... . .. .. . . # # .. . . . . . # # . 11 . . . 12 .. # # .. . . . .. # # . . . 9 . 10 . . . # # . . . . . . . # # . . . . . . . # # . . . . . .. . # # . . . .. ... . . . # # . . . ... ... .. . # # . ... ... . # # . 4 . ... 8 ... . 7 . # # . . ... ... . . # # . . .... . . # # . . 5 ... .. 6 . . # # . . ... ... . . # # . .. ... ... . . # # .. .. ... .. # # . # # # # # # On notera des differences entre les deux numerotages : pour 'Std', il manque {22,23,24,25} # # et pour 'Sdu', il manque {19,20}. Cela provient fort probablement de "micro-contours" que # # l'on ne voit pas, mais qui existent... # v $xiirv/TROR.B6.1 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_B6_1: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z set _____Rayon=0.012 # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____PaletteC=$xiP/cubes.11 # # $Z set _____ImageR=$xiirv/TROR.B6.1 # # $m4 _____include(_____xiirv/.TROR.B6._____U) # # # # :Fin_listG_TROR_B6_1: # # # v $xiirv/TROR.B6.2 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_B6_2: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z set _____Rayon=0.012 # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____PaletteC=$xiP/cubes.12 # # $Z set _____ImageR=$xiirv/TROR.B6.2 # # $m4 _____include(_____xiirv/.TROR.B6._____U) # # # # :Fin_listG_TROR_B6_2: # # # v $xiirv/TROR.B6.3 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_B6_3: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z set _____Rayon=0.012 # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____PaletteC=$xiP/cubes.13 # # $Z set _____ImageR=$xiirv/TROR.B6.3 # # $m4 _____include(_____xiirv/.TROR.B6._____U) # # # # :Fin_listG_TROR_B6_3: # # # v $xiirv/TROR.B6.4 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_B6_4: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z set _____Rayon=0.012 # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____PaletteC=$xiP/cubes.14 # # $Z set _____ImageR=$xiirv/TROR.B6.4 # # $m4 _____include(_____xiirv/.TROR.B6._____U) # # # # :Fin_listG_TROR_B6_4: # # # v $xiirv/TROR.B6.5 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_B6_5: # # # # $Z Std # # # # $Z setenv xTV $xTG # # # # $Z set _____Rayon=0.012 # # $Z set _____OptimiserIncrement=FAUX # # $Z set _____PaletteC=$xiP/cubes.15 # # $Z set _____ImageR=$xiirv/TROR.B6.5 # # $m4 _____include(_____xiirv/.TROR.B6._____U) # # # # :Fin_listG_TROR_B6_5: # # # v $xiirv/TROR.B7 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_B7: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/TROR.B6 # # $Z set _____ImageR=$xiirv/TROR.B7 # # # # $Z $xci/gauss$X \ # # $Z c=7.9 \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.47 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z execRVB "$xci/scroll$X \ # # $Z trX=0 \ # # $Z trY=+0.044 \ # # $Z A=$_____ImageA%s \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/GAUSS \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # Le "trY=+0.15" est destine a compenser le 'v $xiirv/.TROR.B6.$U _____TranslationY=-0.15' # # sans oublier le 'v $xiirv/.TROR.B6.$U _____Zoom=0.6'... # # # # :Fin_listG_TROR_B7: # # # # # # Cette image montre 'v $xiirv/TROR.B6" avec un effacement partiel du decagone... # v $xiirv/TROR.B8 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_TROR_B8: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Rayon=0.010 # # $Z set _____OptimiserIncrement=VRAI # # $Z set _____PaletteC=$xiP/noir # # $Z set _____ImageR=$xTV/TROR.B6 # # $m4 _____include(_____xiirv/.TROR.B6._____U) # # # # # # $Z set _____ImageA=$_____ImageR # # $Z set _____ImageR=$xiirv/TROR.B8 # # # # $Z $xci/gauss$X \ # # $Z c=8.2 \ # # $Z $formatI | \ # # $Z $xci/substitue$X \ # # $Z p=$xiP/gris.47 \ # # $Z substitution=L_SUBSTITUTION_ROUGE \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # # # $Z execRVB "$xci/scroll$X \ # # $Z trX=0 \ # # $Z trY=+0.044 \ # # $Z A=$_____ImageA%s \ # # $Z $formatI | \ # # $Z $xci/multi_02.01$X \ # # $Z A1=$xTV/GAUSS \ # # $Z R=$_____ImageR%s \ # # $Z $formatI" # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____ImageR \ # # $Z $formatI | \ # # $Z $xci/contours.12$X \ # # $Z seuil=$GRIS_1 \ # # $Z $formatI | \ # # $Z $xci/complement$X \ # # $Z $formatI | \ # # $Z $xci/dilate.01$X \ # # $Z dilater=FAUX \ # # $Z points=49 \ # # $Z $formatI | \ # # $Z $xci/convol.01$X \ # # $Z points=49 \ # # $Z R=$xTV/PONDERATION \ # # $Z $formatI # # # # $Z set _____ImageA=$xiirv/TROR.B7 # # # # $Z execRVB $xci/multi_02.01$X \ # # $Z A1=$xTV/PONDERATION \ # # $Z A2=$_____ImageA%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # :Fin_listG_TROR_B8: # # # # # # Image proche de 'v $xiirv/TROR.B7' mais mieux detouree... # v $xiirv/TROR.C2.0001 v $xiirv/TROR.C2.0002 v $xiirv/TROR.C2.0003 v $xiirv/TROR.C2.0004 v $xiirv/TROR.C2.0005 v $xiirv/TROR.C2.0006 v $xiirv/TROR.C2 # Generee (sur '$LACT1A') par : # # # # # # :Debut_listG_TROR_C2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImagesR=$xiirv/TROR.C2 # # # # $m4 _____include(_____xiirv/.TROR.C2._____U) # # # # :Fin_listG_TROR_C2: # # # # # # qui montre six etoiles d'Or a cinq branches... # v $xiirv/TROR.C3.0 v $xiirv/TROR.C3.1 v $xiirv/TROR.C3.2 v $xiirv/TROR.C3.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_TROR_C3: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesUG # # # # $Z set _____imagesR=$xiirv/TROR.C3 # # # # $Z FilSTmpB FLiStEP # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $FLiStEP" # # # # $Z set _____ImagesR=$xTV/TROR.C3 # # # # $m4 _____include(_____xiirv/.TROR.C2._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=$mdimXY # # # # $Z set _____Ppu=0.1 # # $Z set _____Ppv=0.1 # # $Z set _____Ppw=0.1 # # # # $Z set _____Zoom=1.0 # # $Z set _____DemiPave=10 # # # # $Z set _____imageR=$_____ImagesR # # # # $Z setenv _____ImageT2 $xTV/SECTIONS.1 # # # # $Z SET _____NormaliserX=$EXIST # # $Z SET _____MinNormaliserX=+0.10 # # $Z SET _____MaxNormaliserX=+0.90 # # $Z SET _____NormaliserY=$EXIST # # $Z SET _____MinNormaliserY=+0.05 # # $Z SET _____MaxNormaliserY=+0.95 # # $Z SET _____NormaliserZ=$EXIST # # $Z SET _____MinNormaliserZ=+0.08 # # $Z SET _____MaxNormaliserZ=+0.92 # # $Z set _____InverserZStructure=VRAI # # $m4 _____include(_____xiirv/.NDIM.43.1._____U) # # # # $m4 _____include(_____xiirs/.EPIC.41.12._____U) # # # # $Z FilSTmpE FLiStEP # # # # $m4 _____include(_____xiirs/.PROK.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 \ # # $Z $_____imagesR.21 \ # # $Z VRB # # # # :Fin_listG_TROR_C3: # # # # # # Pour information, voici les durees intermediaires : # # # # $xrv/store_album$X : 00:01:15 # # # # $xci/ombrage.11$X : 00:14:39 # # # # $xci/accumule.42$X : 01:07:15 # # # v $xiirv/TROR.C3.3 p=$xiP/trou_noir.A4 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_TROR_C3_3: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesA=$xiirv/TROR.C3 # # $Z set _____imagesR=$_____imagesA.3 # # $Z set _____imagesA=$_____imagesA.1 # # # # On notera que l'image Argument est 'v $xiirv/TROR.C3.1' et non pas 'v $xiirv/TROR.C3.21' # # qui elle a subi un '$xci/permute_RVB.11$Z (...) VRB'... # # # # $Z $xci/luminance.01$X \ # # $Z A=$_____imagesA \ # # $Z R=$xTV/TROR.C3$LUMIN \ # # $Z $formatI # # # # $Z set TrAnSlAtIoNs=`$xci/extremaXY$X A=$xTV/TROR.C3$LUMIN $formatI Prme=VRAI` # # # # $Z execRVB $xci/scroll$X \ # # $Z A=$_____imagesA%s \ # # $Z toreX=FAUX \ # # $Z $TrAnSlAtIoNs \ # # $Z R=$xTV/TROR.C3.1%s \ # # $Z $formatI # # # # $Z set NPoInTs=25 # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$xTV/TROR.C3.1%s \ # # $Z points=`calcul $NPoInTs*$NPoInTs` \ # # $Z circulaire=VRAI circulaire_optimale=VRAI \ # # $Z R=$xTV/TROR.C3.2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/TROR.C3.2 \ # # $Z R=$_____imagesR \ # # $Z $formatI # # # # :Fin_listG_TROR_C3_3: # # # v $xiirv/TROR.C3.3$m # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_C3_3_m: # # # # $Z Squ # # # # $Z setenv xTV $DStemporairesG # # # # $Z set _____imagesA=$xiirv/TROR.C3.3 # # $Z set _____imagesR=$_____imagesA$m # # # # $Z $xci/tapisserie$X \ # # $Z A=$_____imagesA \ # # $Z iterations=4 \ # # $Z cache=VRAI \ # # $Z anti_aliaser=FAUX \ # # $Z echelle=VRAI a=0.5 \ # # $Z anti_aliaser=VRAI \ # # $Z R=$xTV/TROR.C3.3.1 \ # # $Z $formatI # # # # $Z $xci/vraies_C$X \ # # $Z A=$xTV/TROR.C3.3.1 \ # # $Z p=$xiP/random.86 \ # # $Z R=$xTV/TROR.C3.3.2 \ # # $Z $formatI # # # # $Z $xci/acces$X \ # # $Z A=$xTV/TROR.C3.3.1 \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z navap=VRAI \ # # $Z passes=200 \ # # $Z R=$xTV/TROR.C3.3.3 \ # # $Z $formatI # # # # $Z execRVB "$xci/montagne.01$X \ # # $Z A=$xTV/TROR.C3.3.3 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/TROR.C3.3.2%s \ # # $Z avion=VRAI \ # # $Z R=$_____imagesR%s \ # # $Z $formatI" # # # # :Fin_listG_TROR_C3_3_m: # # # v $xiirv/TROR.C4.0 v $xiirv/TROR.C4.1 v $xiirv/TROR.C4.2 v $xiirv/TROR.C4.21 # Generee (sur '$CMAP28' -ex "porte-de-la-chapelle"-) par : # # # # # # :Debut_listG_TROR_C4: # # # # $Z ext Squ # # # # $Z setenv xTV $DStemporairesUG # # # # $Z set _____imagesR=$xiirv/TROR.C4 # # # # $Z FilSTmpB FLiStEP # # # # $Z set _____ParticulePara2="$K_VIDE" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centrer_coordonnees=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" lister_les_points_apres=VRAI" # # $Z set _____ParticulePara2="$_____ParticulePara2"" points_non_listes=VRAI" # # # # $Z set _____Redirection="$K_VIDE" # # $Z set _____Redirection="$_____Redirection >> $FLiStEP" # # # # $Z set _____ImagesR=$xTV/TROR.C4 # # # # $m4 _____include(_____xiirv/.TROR.C2._____U) # # # # $Z SET cPremiere=1 # # $Z SET cDerniere=512 # # # # $Z @ Nimages = $cDerniere - $cPremiere # # $Z @ Nimages = $Nimages + 1 # # # # $Z set _____Ppu=0.1 # # $Z set _____Ppv=0.1 # # $Z set _____Ppw=0.1 # # # # $Z set _____Zoom=1.0 # # $Z set _____DemiPave=10 # # # # $Z set _____imageR=$_____ImagesR # # # # $Z SET _____NormaliserX=$EXIST # # $Z SET _____MinNormaliserX=+0.10 # # $Z SET _____MaxNormaliserX=+0.90 # # $Z SET _____NormaliserY=$EXIST # # $Z SET _____MinNormaliserY=+0.05 # # $Z SET _____MaxNormaliserY=+0.95 # # $Z SET _____NormaliserZ=$EXIST # # $Z SET _____MinNormaliserZ=+0.08 # # $Z SET _____MaxNormaliserZ=+0.92 # # $Z set _____InverserZStructure=VRAI # # $m4 _____include(_____xiirv/.NDIM.43.1._____U) # # # # $Z setenv _____ImageT3 $_____ImageT1 # # $Z setenv _____ImageT2 $xiff/FRB3.32.0125x0125x0125$D/SECTIONS.1 # # $Z setenv _____ImageT4 $xTV/SECTIONS.9 # # # # $m4 _____include(_____xiirf/.FRB3.32.2.1._____U) # # # # $m4 _____include(_____xiirf/.FRB3.D4.2._____U) # # # # $Z setenv _____ImageT2 $_____ImageT4 # # # # $Z FilSTmpE FLiStEP # # # # $m4 _____include(_____xiirs/.PROK.41.4.2._____U) # # # # $Z $xci/permute_RVB.11$Z \ # # $Z $_____imagesR.21 \ # # $Z $_____imagesR.21 \ # # $Z VRB # # # # :Fin_listG_TROR_C4: # # # # # # Pour information, voici les durees intermediaires : # # # # $xrv/store_album$X : 00:00:50 # # # # $xci/ombrage.11$X : 00:05:47 # # # # $xci/accumule.42$X : 00:15:57 # # # v $xiirv/TROR.D1.1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_TROR_D1_1: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=1 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.004 # # $Z set _____Zoom=1.65 # # $Z set _____Palette=$xiP/jaune # # # # $Z set _____ImageR=$xiirv/TROR.D1.$_____Profondeur # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_D1_1: # # # # # # qui montre le processus de construction d'un pavage de Penrose par subdivision d'un # # triangle d'or... # v $xiirv/TROR.D1.2 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_TROR_D1_2: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=2 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.004 # # $Z set _____Zoom=1.65 # # $Z set _____Palette=$xiP/jaune # # # # $Z set _____ImageR=$xiirv/TROR.D1.$_____Profondeur # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_D1_2: # # # # # # qui montre le processus de construction d'un pavage de Penrose par subdivision d'un # # triangle d'or... # v $xiirv/TROR.D1.3 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_TROR_D1_3: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=3 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.004 # # $Z set _____Zoom=1.65 # # $Z set _____Palette=$xiP/jaune # # # # $Z set _____ImageR=$xiirv/TROR.D1.$_____Profondeur # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_D1_3: # # # # # # qui montre le processus de construction d'un pavage de Penrose par subdivision d'un # # triangle d'or... # v $xiirv/TROR.D1.4 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_TROR_D1_4: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=4 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.004 # # $Z set _____Zoom=1.65 # # $Z set _____Palette=$xiP/jaune # # # # $Z set _____ImageR=$xiirv/TROR.D1.$_____Profondeur # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_D1_4: # # # # # # qui montre le processus de construction d'un pavage de Penrose par subdivision d'un # # triangle d'or... # v $xiirv/TROR.D1.5 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_TROR_D1_5: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=5 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.004 # # $Z set _____Zoom=1.65 # # $Z set _____Palette=$xiP/jaune # # # # $Z set _____ImageR=$xiirv/TROR.D1.$_____Profondeur # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_D1_5: # # # # # # qui montre le processus de construction d'un pavage de Penrose par subdivision d'un # # triangle d'or... # v $xiirv/TROR.D1.6 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_TROR_D1_6: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=6 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.004 # # $Z set _____Zoom=1.65 # # $Z set _____Palette=$xiP/jaune # # # # $Z set _____ImageR=$xiirv/TROR.D1.$_____Profondeur # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_D1_6: # # # # # # qui montre le processus de construction d'un pavage de Penrose par subdivision d'un # # triangle d'or... # v $xiirv/TROR.D1.7 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_TROR_D1_7: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=7 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.004 # # $Z set _____Zoom=1.65 # # $Z set _____Palette=$xiP/jaune # # # # $Z set _____ImageR=$xiirv/TROR.D1.$_____Profondeur # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_D1_7: # # # # # # qui montre le processus de construction d'un pavage de Penrose par subdivision d'un # # triangle d'or... # v $xiirv/TROR.D2.7 v $xiirv/TROR.D3.7 v $xiirv/TROR.D4.7 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_D2_7: # # # # $Z Pal # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageR1=$xTV/TROR.31 # # $Z set _____ImageR2=$xTV/TROR.32 # # # # $Z set _____Profondeur=7 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=FAUX # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.004 # # $Z set _____Zoom=1.65 # # $Z set _____Palette=$xiP/rouge # # $Z set _____ImageR=$_____ImageR1 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____Profondeur=7 # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Palette=$xiP/jaune # # $Z set _____ImageR=$_____ImageR2 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____ImageR=$xiirv/TROR.D2.7 # # # # $Z execRVB $xci/cache$X \ # # $Z A=$_____ImageR1%s \ # # $Z M=$_____ImageR2%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # $Z set _____Palette=$xiP/blanc # # $Z set _____ImageR=$xiirv/TROR.D3.7 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____Rayon=0.002 # # $Z set _____Zoom=5.25 # # $Z set _____ImageR=$xiirv/TROR.D4.7 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # :Fin_listG_TROR_D2_7: # # # # # # qui montre le processus d'effacement des cotes communs... # # # # On notera que : # # # # #LosangesCarres/#LosangesMinces = 106/68 = 1.559... (~1.618033988..., le nombre d'or). # # # v $xiirv/TROR.E5 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TROR_E5: # # # # $Z Pdu # # # # $Z setenv xTV $xTG # # # # $Z set _____Profondeur=9 # # $Z set _____PseudoPeriodique=VRAI # # $Z SET _____Segments=VRAI # # $Z SET _____Simplifier=$EXIST # # $Z set _____Tquelconque=FAUX # # $Z set _____Rayon=0.0012 # # # # $Z set _____ParticulePara1="$K_VIDE" # # $Z set _____ParticulePara1="$_____ParticulePara1"" LISTE_RAYON=0.0001" # # $Z set _____ParticulePara1="$_____ParticulePara1"" centre_des_spheres=VRAI" # # $Z set _____ParticulePara1="$_____ParticulePara1"" N_AU_CARRE=FAUX" # # # # Ainsi, les centres des spheres cote a cote definissent parfaitement les "interstices" # # entre les carreaux du carrelage... # # # # $Z set _____Zoom=5.25 # # $Z set _____Palette=$xiP/NOIR_PLANCHER # # $Z set _____ImageR=$xiirv/TROR.E5 # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z set _____NiveauAleatoire=VRAI # # $Z set _____OptimiserIncrement=VRAI # # $Z set _____AttenuationA=1.00 # # $Z set _____PaletteC=$xiP/RubikSCube.01 # # $Z set _____ImagesR=$_____ImageR # # $m4 _____include(_____xiirv/.CARR.33.1._____U) # # $m4 _____include(_____xiirv/.TROR.11._____U) # # # # $Z execRVB $xci/format.01$X \ # # $Z A=$_____ImageR%s \ # # $Z $formatI \ # # $Z mode=1 \ # # $Z R=$_____ImageR%s \ # # $Z $formatR_Pal # # # # :Fin_listG_TROR_E5: # # # # # # qui montre l'image 'v $xiirv/TROR.44' a "la Rubik's Cube"... # # # # On notera que : # # # # #LosangesCarres/#LosangesMinces = 771/483 = 1.596... (~1.618033988..., le nombre d'or). # # # v $xiirv/TROR.E5.1 # Generee (sur '$LACT1B') par : # # # # # # :Debut_listG_TROR_E5_1: # # # # $Z Pal # # # # $Z set _____ImageA=$xiirv/TROR.E5 # # $Z set _____ImageR=$_____ImageA.1 # # # # $Z execRVB $xci/spiralise$X \ # # $Z A=$_____ImageA%s \ # # $Z R=$_____ImageR%s \ # # $Z $formatI # # # # :Fin_listG_TROR_E5_1: # # # v $xiirv/TRPA.11.63.2 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TRPA_11_63_2: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Cn=63 # # $Z set _____NombresPremiers=2 # # $Z set _____ImageR=$xiirv/TRPA.11.63.2 # # $m4 _____include(_____xiirv/.TRPA.11._____U) # # # # :Fin_listG_TRPA_11_63_2: # # # v $xiirv/TRPA.11.63.3 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TRPA_11_63_3: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Cn=63 # # $Z set _____NombresPremiers=3 # # $Z set _____ImageR=$xiirv/TRPA.11.63.3 # # $m4 _____include(_____xiirv/.TRPA.11._____U) # # # # :Fin_listG_TRPA_11_63_3: # # # v $xiirv/TRPA.11.63.5 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TRPA_11_63_5: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Cn=63 # # $Z set _____NombresPremiers=5 # # $Z set _____ImageR=$xiirv/TRPA.11.63.5 # # $m4 _____include(_____xiirv/.TRPA.11._____U) # # # # :Fin_listG_TRPA_11_63_5: # # # v $xiirv/TRPA.11.63.7 p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TRPA_11_63_7: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Cn=63 # # $Z set _____NombresPremiers=7 # # $Z set _____ImageR=$xiirv/TRPA.11.63.7 # # $m4 _____include(_____xiirv/.TRPA.11._____U) # # # # :Fin_listG_TRPA_11_63_7: # # # v $xiirv/TRPA.11.63.2357 p=$xiP/cercle.35 v $xiirv/TRPA.11.63.2357.LOG p=$xiP/cercle.35 # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TRPA_11_63_2357: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z SET _____Cn=63 # # $Z set _____NombresPremiers=(2 3 5 7) # # $Z set _____ImageR=$xiirv/TRPA.11.63.2357 # # $m4 _____include(_____xiirv/.TRPA.11._____U) # # # # :Fin_listG_TRPA_11_63_2357: # # # # # # On notera dans 'v $xiirv/TRPA.11.63.2357 p=$xiP/cercle.35' l'absence de jaune. Cela est # # du au fait que les niveaux etant proportionnels a des produits de nombres choisis dans # # {1,2,3,5,7}, ils ne sont pas equirepartis... # v $xiirv/TRPA.11.63.2357$m v $xiirv/TRPA.11.63.2357$M # Generee (sur '$LACT19') par : # # # # # # :Debut_listG_TRPA_11_63_2357_M: # # # # $Z Sdu # # # # $Z setenv xTV $xTG # # # # $Z set _____ImageA=$xiirv/TRPA.11.63.2357 # # $Z set _____ImageR=$_____ImageA # # $m4 _____include(_____xiirv/.TRPA.12._____U) # # # # :Fin_listG_TRPA_11_63_2357_M: # # # v $xiirv/TUR2.11 # Cette image resulte d'une exploitation des images "intermediaires" de la sequence : # # # # xivPdf 4 1 / 000184_000202 # # # # par : # # # # Std # # $xrv/champs_5.20$X np=1 \ # # evolution=VRAI . \ # # premiere=1 derniere=19 \ # # A=$xw1/champ.21. \ # # seuil=20 \ # # cRAYON=$xw1/champ.21. \ # # facteurR=16 \ # # cROUGE=$xw1/champ.22$ROUGE \ # # cVERTE=$xw1/champ.22$VERTE \ # # cBLEUE=$xw1/champ.22$BLEUE \ # # Lz=1000 \ # # ROTATION_OY=0.8 ROTATION_OX=-0.7 \ # # ZOOM=0.9 \ # # px=16 py=16 \ # # R=$xiirv/TUR2... \ # # $formatI # # # # en notant que les composantes des noms des images du type '$xw1/champ.22$ROUGE' ont ete # # permutees afin que les postfixes de couleur (tel '$ROUGE') ne soient plus en queue... # v $xiirv/TUR2.21 # Cette image resulte de l'accumulation de la sequence : # # # # xivPdf 4 1 / 000184_000202 # # # # par : # # # # Std # # $xci/accumule.01$X A=$xw1/champ.2. \ # # premiere=1 derniere=19 \ # # A=$xw1/champ.2. \ # # postfixe=.? \ # # attenuation=0.93 \ # # trx=-0.019569 try=-0.023483 \ # # R=$xiirv/TUR2.21.? \ # # $formatI # # # v $xiirv/VIBR.11 p=$xiP/dentscie.01 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_VIBR_11: # # # # $Z Pal # # # # $Z $xci/spiArchimede$X \ # # $Z mr=64 mt=16 \ # # $Z FXYZmodulo=VRAI \ # # $Z FXmodulo_inf=-0.1 FXmodulo_sup=+0.1 \ # # $Z FYmodulo_inf=-0.1 FYmodulo_sup=+0.1 \ # # $Z FXYZsymetrique=VRAI \ # # $Z FXsymetrique_inf=-0.1 FXsymetrique_sup=+0.1 \ # # $Z FYsymetrique_inf=-0.1 FYsymetrique_sup=+0.1 \ # # $Z R=$xiirv/VIBR.11 \ # # $Z $formatI # # # # :Fin_listG_VIBR_11: # # # v $xiirv/VIBR.21 p=$xiP/dentscie.01 # Generee (sur '$LACT16') par : # # # # # # :Debut_listG_VIBR_21: # # # # $Z Pal # # # # $Z $xci/sinus$X \ # # $Z cx=80 cy=20 cr=-300 \ # # $Z R=$xiirv/VIBR.21 \ # # $Z $formatI # # # # :Fin_listG_VIBR_21: # # # v $xiirv/VITR.11 p=$xiP/vert_orange v $xiirv/VITR.11 p=$xiP/fractal.03 v $xiirv/VITR.11$m # # # # # :Debut_listG_VITR_11: # # # # $Z Pdu # # # # $Z set _____FIterations=4 # # # # $Z set _____Fmx=0.040 # # $Z set _____Fmy=0.020 # # # # $Z set _____SeuilInferieur=112 # # $Z set _____SeuilSuperieur=144 # # # # $m4 _____include(_____xiirk/.ISIN.D1.1._____U) # # # # $Z set _____imagesR=$xiirv/VITR.11 # # # # $Z $xci/complement$X \ # # $Z A=$xTV/FRACTAL_BINAIRE \ # # $Z $formatI | \ # # $Z $xci/contours.22$X \ # # $Z niveau_aleatoire=VRAI \ # # $Z R=$_____imagesR \ # # $Z $formatI # # # # # # $Z set _____Palette=$xiP/vert_orange # # # # $Z $xci/vraies_C$X \ # # $Z A=$_____imagesR \ # # $Z p=$_____Palette \ # # $Z R=$xTV/VITR.11.1 \ # # $Z $formatI # # # # $Z execRVB $xci/convol.01$X \ # # $Z A=$xTV/VITR.11.1%s \ # # $Z points=25 \ # # $Z R=$xTV/VITR.11.2%s \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z A=$xTV/VITR.11.2 \ # # $Z $formatI | \ # # $Z $xci/acces$X \ # # $Z convertir=VRAI \ # # $Z $formatI | \ # # $Z $xci/lissage$X \ # # $Z standard=FAUX \ # # $Z passes=100 \ # # $Z navap=VRAI \ # # $Z R=$xTV/VITR.11.3 \ # # $Z $formatI # # # # $Z execRVB $xci/montagne.01$X \ # # $Z echelle=0.1 \ # # $Z A=$xTV/VITR.11.3 \ # # $Z standard=FAUX zero=FAUX \ # # $Z T=$xTV/VITR.11.2%s \ # # $Z avion=VRAI \ # # $Z R=$_____imagesR$m%s \ # # $Z $formatI # # # # :Fin_listG_VITR_11: # # # v $xiirv/WMY2000.11 v $xiirv/WMY2000.12 v $xiirv/WMY2000.12 p=$xiP/fractal.11 v $xiirv/WMY2000.12 p=$xiP/gris.01 v $xiirv/WMY2000.12 p=$xiP/random.06 # Generee par : # # # # $Z Pal # # # # $Z $DELETE $xT/lM # # $Z $DELETE $xT/lW # # $Z $DELETE $xT/lY # # $Z $DELETE $xT/l2 # # $Z $DELETE $xT/l0.1 # # $Z $DELETE $xT/l0.2 # # $Z $DELETE $xT/l0.3 # # $Z $DELETE $xT/lWMY2000 # # $Z $DELETE $xT/COORDONNEES$COORD_X # # $Z $DELETE $xT/COORDONNEES$COORD_Y # # $Z $DELETE $xT/COORDONNEES$COORD_Z # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$DELETE $xT/COULEUR%s' # # # # # # $Z echo " X=-1.00 Y=-1.00 Z=+1.00 ROUGE=255 VERTE=000 BLEUE=000 " >>! $xT/lM # # $Z echo " X=-0.50 Y=+1.00 Z=-1.00 ROUGE=255 VERTE=000 BLEUE=000 " >>! $xT/lM # # $Z echo " X=-0.50 Y=+1.00 Z=-1.00 ROUGE=255 VERTE=000 BLEUE=000 " >>! $xT/lM # # $Z echo " X=0 Y=-1.00 Z=+1.00 ROUGE=255 VERTE=000 BLEUE=000 " >>! $xT/lM # # $Z echo " X=0 Y=-1.00 Z=+1.00 ROUGE=255 VERTE=000 BLEUE=000 " >>! $xT/lM # # $Z echo " X=+0.50 Y=+1.00 Z=-1.00 ROUGE=255 VERTE=000 BLEUE=000 " >>! $xT/lM # # $Z echo " X=+0.50 Y=+1.00 Z=-1.00 ROUGE=255 VERTE=000 BLEUE=000 " >>! $xT/lM # # $Z echo " X=+1.00 Y=-1.00 Z=+1.00 ROUGE=255 VERTE=000 BLEUE=000 " >>! $xT/lM # # # # $Z echo " X=-1.00 Y=+1.00 Z=+1.00 ROUGE=000 VERTE=255 BLEUE=000 " >>! $xT/lW # # $Z echo " X=-0.50 Y=-1.00 Z=-1.00 ROUGE=000 VERTE=255 BLEUE=000 " >>! $xT/lW # # $Z echo " X=-0.50 Y=-1.00 Z=-1.00 ROUGE=000 VERTE=255 BLEUE=000 " >>! $xT/lW # # $Z echo " X=0 Y=+1.00 Z=+1.00 ROUGE=000 VERTE=255 BLEUE=000 " >>! $xT/lW # # $Z echo " X=0 Y=+1.00 Z=+1.00 ROUGE=000 VERTE=255 BLEUE=000 " >>! $xT/lW # # $Z echo " X=+0.50 Y=-1.00 Z=-1.00 ROUGE=000 VERTE=255 BLEUE=000 " >>! $xT/lW # # $Z echo " X=+0.50 Y=-1.00 Z=-1.00 ROUGE=000 VERTE=255 BLEUE=000 " >>! $xT/lW # # $Z echo " X=+1.00 Y=+1.00 Z=+1.00 ROUGE=000 VERTE=255 BLEUE=000 " >>! $xT/lW # # # # $Z echo " X=-0.50 Y=+1.00 Z=-1.00 ROUGE=000 VERTE=000 BLEUE=255 " >>! $xT/lY # # $Z echo " X=0 Y=0 Z=+2.00 ROUGE=000 VERTE=000 BLEUE=255 " >>! $xT/lY # # $Z echo " X=0 Y=0 Z=+2.00 ROUGE=000 VERTE=000 BLEUE=255 " >>! $xT/lY # # $Z echo " X=0 Y=-1.00 Z=+1.00 ROUGE=000 VERTE=000 BLEUE=255 " >>! $xT/lY # # $Z echo " X=0 Y=0 Z=+2.00 ROUGE=000 VERTE=000 BLEUE=255 " >>! $xT/lY # # $Z echo " X=+0.50 Y=+1.00 Z=-1.00 ROUGE=000 VERTE=000 BLEUE=255 " >>! $xT/lY # # # # $Z echo " X=-0.95 Y=+0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l2 # # $Z echo " X=-0.55 Y=+0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l2 # # $Z echo " X=-0.55 Y=+0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l2 # # $Z echo " X=-0.55 Y=0 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l2 # # $Z echo " X=-0.55 Y=0 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l2 # # $Z echo " X=-0.95 Y=0 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l2 # # $Z echo " X=-0.95 Y=0 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l2 # # $Z echo " X=-0.95 Y=-0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l2 # # $Z echo " X=-0.95 Y=-0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l2 # # $Z echo " X=-0.55 Y=-0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l2 # # # # $Z echo " X=-0.45 Y=+0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.1 # # $Z echo " X=-0.05 Y=+0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.1 # # $Z echo " X=-0.05 Y=+0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.1 # # $Z echo " X=-0.05 Y=-0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.1 # # $Z echo " X=-0.05 Y=-0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.1 # # $Z echo " X=-0.45 Y=-0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.1 # # $Z echo " X=-0.45 Y=-0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.1 # # $Z echo " X=-0.45 Y=+0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.1 # # # # $Z echo " X=+0.05 Y=+0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.2 # # $Z echo " X=+0.45 Y=+0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.2 # # $Z echo " X=+0.45 Y=+0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.2 # # $Z echo " X=+0.45 Y=-0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.2 # # $Z echo " X=+0.45 Y=-0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.2 # # $Z echo " X=+0.05 Y=-0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.2 # # $Z echo " X=+0.05 Y=-0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.2 # # $Z echo " X=+0.05 Y=+0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.2 # # # # $Z echo " X=+0.55 Y=+0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.3 # # $Z echo " X=+0.95 Y=+0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.3 # # $Z echo " X=+0.95 Y=+0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.3 # # $Z echo " X=+0.95 Y=-0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.3 # # $Z echo " X=+0.95 Y=-0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.3 # # $Z echo " X=+0.55 Y=-0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.3 # # $Z echo " X=+0.55 Y=-0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.3 # # $Z echo " X=+0.55 Y=+0.20 Z=+0.50 ROUGE=200 VERTE=180 BLEUE=000 " >>! $xT/l0.3 # # # # $Z $CA \ # # $Z $xT/lM \ # # $Z $xT/lW \ # # $Z $xT/lY \ # # $Z $xT/l2 \ # # $Z $xT/l0.1 \ # # $Z $xT/l0.2 \ # # $Z $xT/l0.3 \ # # $Z > $xT/lWMY2000 # # # # $Z $CA $xT/lWMY2000 \ # # $Z | $SE -e "s/.* X=\([^ ]*\) .*/\1/" > $xT/COORDONNEES$COORD_X # # $Z $CA $xT/lWMY2000 \ # # $Z | $SE -e "s/.* Y=\([^ ]*\) .*/\1/" > $xT/COORDONNEES$COORD_Y # # $Z $CA $xT/lWMY2000 \ # # $Z | $SE -e "s/.* Z=\([^ ]*\) .*/\1/" > $xT/COORDONNEES$COORD_Z # # # # $Z $CA $xT/lWMY2000 \ # # $Z | $SE -e "s/.* ROUGE=\([^ ]*\) .*/\1/" > $xT/COULEUR$ROUGE # # $Z $CA $xT/lWMY2000 \ # # $Z | $SE -e "s/.* VERTE=\([^ ]*\) .*/\1/" > $xT/COULEUR$VERTE # # $Z $CA $xT/lWMY2000 \ # # $Z | $SE -e "s/.* BLEUE=\([^ ]*\) .*/\1/" > $xT/COULEUR$BLEUE # # # # $Z set Nparticules=`wc $xT/lWMY2000` # # $Z set Nparticules=$Nparticules[$WC1] # # # # $Z $xrv/particule.10$X np=1 iterations=$Nparticules \ # # $Z LISTE_X=$xT/COORDONNEES$COORD_X \ # # $Z LISTE_Y=$xT/COORDONNEES$COORD_Y \ # # $Z LISTE_Z=$xT/COORDONNEES$COORD_Z \ # # $Z r=0.1 \ # # $Z LISTE_ROUGE=$xT/COULEUR$ROUGE \ # # $Z LISTE_VERTE=$xT/COULEUR$VERTE \ # # $Z LISTE_BLEUE=$xT/COULEUR$BLEUE \ # # $Z Lz=1000 ZOOM=0.4 \ # # $Z isoles=FAUX points=32 \ # # $Z RVB=VRAI \ # # $Z TRANSLATION_OX=1 \ # # $Z TRANSLATION_OY=1 \ # # $Z R=$xTV/WMY2K.1. \ # # $Z $formatI # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/acces$X \ # # $X A=$xTV/WMY2K.1.0001%s \ # # $X R=$xiirv/WMY2000.11%s \ # # $X $formatI' # # # # # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/complement$X \ # # $X A=$xiirv/WMY2000.11%s \ # # $X R=$xTV/WMY2000.2%s \ # # $X $formatI ; \ # # $X $xci/gauss$X \ # # $X $formatI | \ # # $X $xci/interpole.02$X \ # # $X A1=$xTV/WMY2000.2%s \ # # $X A2=$xiirv/WMY2000.11%s \ # # $X R=$xiirv/WMY2000.12%s \ # # $X $formatI' # # # # $Z $xci/luminance.01$X \ # # $Z AR=$xiirv/WMY2000.12$ROUGE \ # # $Z AV=$xiirv/WMY2000.12$VERTE \ # # $Z AB=$xiirv/WMY2000.12$BLEUE \ # # $Z R=$xiirv/WMY2000.12 \ # # $Z $formatI # # # # $Z $DELETE $xT/lM # # $Z $DELETE $xT/lW # # $Z $DELETE $xT/lY # # $Z $DELETE $xT/l2 # # $Z $DELETE $xT/l0.1 # # $Z $DELETE $xT/l0.2 # # $Z $DELETE $xT/l0.3 # # $Z $DELETE $xT/lWMY2000 # # $Z $DELETE $xT/COORDONNEES$COORD_X # # $Z $DELETE $xT/COORDONNEES$COORD_Y # # $Z $DELETE $xT/COORDONNEES$COORD_Z # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$DELETE $xT/COULEUR%s' # # # v $xiirv/WMY2000.21 v $xiirv/WMY2000.21 p=$xiP/rouge_jaune v $xiirv/WMY2000.21$Fi p=$xiP/rouge_jaune v $xiirv/WMY2000.22 v $xiirv/WMY2000.22 p=$xiP/fractal.11 v $xiirv/WMY2000.22 p=$xiP/gris.01 v $xiirv/WMY2000.22 p=$xiP/random.06 # Generee par : # # # # $Z Pal # # # # $Z $DELETE $xT/lM # # $Z $DELETE $xT/lW # # $Z $DELETE $xT/lY # # $Z $DELETE $xT/l2 # # $Z $DELETE $xT/l0.1 # # $Z $DELETE $xT/l0.2 # # $Z $DELETE $xT/l0.3 # # $Z $DELETE $xT/lWMY2000 # # $Z $DELETE $xT/COORDONNEES$COORD_X # # $Z $DELETE $xT/COORDONNEES$COORD_Y # # $Z $DELETE $xT/COORDONNEES$COORD_Z # # $Z $DELETE $xT/RAYON # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$DELETE $xT/COULEUR%s' # # # # # # $Z echo " X=-1.00 Y=-1.00 Z=+2.00 R=0.1 ROUGE=255 VERTE=100 BLEUE=000 " >>! $xT/lM # # $Z echo " X=-0.50 Y=+1.00 Z=-1.00 R=0.1 ROUGE=255 VERTE=100 BLEUE=000 " >>! $xT/lM # # $Z echo " X=-0.50 Y=+1.00 Z=-1.00 R=0.1 ROUGE=255 VERTE=100 BLEUE=000 " >>! $xT/lM # # $Z echo " X=0 Y=-1.00 Z=+2.00 R=0.1 ROUGE=255 VERTE=100 BLEUE=000 " >>! $xT/lM # # $Z echo " X=0 Y=-1.00 Z=+2.00 R=0.1 ROUGE=255 VERTE=100 BLEUE=000 " >>! $xT/lM # # $Z echo " X=+0.50 Y=+1.00 Z=-1.00 R=0.1 ROUGE=255 VERTE=100 BLEUE=000 " >>! $xT/lM # # $Z echo " X=+0.50 Y=+1.00 Z=-1.00 R=0.1 ROUGE=255 VERTE=100 BLEUE=000 " >>! $xT/lM # # $Z echo " X=+1.00 Y=-1.00 Z=+2.00 R=0.1 ROUGE=255 VERTE=100 BLEUE=000 " >>! $xT/lM # # # # $Z echo " X=-1.00 Y=+1.00 Z=+2.00 R=0.1 ROUGE=120 VERTE=255 BLEUE=000 " >>! $xT/lW # # $Z echo " X=-0.50 Y=-1.00 Z=-1.00 R=0.1 ROUGE=120 VERTE=255 BLEUE=000 " >>! $xT/lW # # $Z echo " X=-0.50 Y=-1.00 Z=-1.00 R=0.1 ROUGE=120 VERTE=255 BLEUE=000 " >>! $xT/lW # # $Z echo " X=0 Y=+1.00 Z=+2.00 R=0.1 ROUGE=120 VERTE=255 BLEUE=000 " >>! $xT/lW # # $Z echo " X=0 Y=+1.00 Z=+2.00 R=0.1 ROUGE=120 VERTE=255 BLEUE=000 " >>! $xT/lW # # $Z echo " X=+0.50 Y=-1.00 Z=-1.00 R=0.1 ROUGE=120 VERTE=255 BLEUE=000 " >>! $xT/lW # # $Z echo " X=+0.50 Y=-1.00 Z=-1.00 R=0.1 ROUGE=120 VERTE=255 BLEUE=000 " >>! $xT/lW # # $Z echo " X=+1.00 Y=+1.00 Z=+2.00 R=0.1 ROUGE=120 VERTE=255 BLEUE=000 " >>! $xT/lW # # # # $Z echo " X=-0.50 Y=+1.00 Z=-1.00 R=0.1 ROUGE=000 VERTE=192 BLEUE=255 " >>! $xT/lY # # $Z echo " X=0 Y=0 Z=+2.00 R=0.1 ROUGE=000 VERTE=192 BLEUE=255 " >>! $xT/lY # # $Z echo " X=0 Y=0 Z=+2.00 R=0.1 ROUGE=000 VERTE=192 BLEUE=255 " >>! $xT/lY # # $Z echo " X=0 Y=-1.00 Z=+1.00 R=0.1 ROUGE=000 VERTE=192 BLEUE=255 " >>! $xT/lY # # $Z echo " X=0 Y=0 Z=+2.00 R=0.1 ROUGE=000 VERTE=192 BLEUE=255 " >>! $xT/lY # # $Z echo " X=+0.50 Y=+1.00 Z=-1.00 R=0.1 ROUGE=000 VERTE=192 BLEUE=255 " >>! $xT/lY # # # # $Z echo " X=-0.95 Y=+0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l2 # # $Z echo " X=-0.55 Y=+0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l2 # # $Z echo " X=-0.55 Y=+0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l2 # # $Z echo " X=-0.55 Y=0 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l2 # # $Z echo " X=-0.55 Y=0 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l2 # # $Z echo " X=-0.95 Y=0 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l2 # # $Z echo " X=-0.95 Y=0 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l2 # # $Z echo " X=-0.95 Y=-0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l2 # # $Z echo " X=-0.95 Y=-0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l2 # # $Z echo " X=-0.55 Y=-0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l2 # # # # $Z echo " X=-0.45 Y=+0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.1 # # $Z echo " X=-0.05 Y=+0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.1 # # $Z echo " X=-0.05 Y=+0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.1 # # $Z echo " X=-0.05 Y=-0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.1 # # $Z echo " X=-0.05 Y=-0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.1 # # $Z echo " X=-0.45 Y=-0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.1 # # $Z echo " X=-0.45 Y=-0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.1 # # $Z echo " X=-0.45 Y=+0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.1 # # # # $Z echo " X=+0.05 Y=+0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.2 # # $Z echo " X=+0.45 Y=+0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.2 # # $Z echo " X=+0.45 Y=+0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.2 # # $Z echo " X=+0.45 Y=-0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.2 # # $Z echo " X=+0.45 Y=-0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.2 # # $Z echo " X=+0.05 Y=-0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.2 # # $Z echo " X=+0.05 Y=-0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.2 # # $Z echo " X=+0.05 Y=+0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.2 # # # # $Z echo " X=+0.55 Y=+0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.3 # # $Z echo " X=+0.95 Y=+0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.3 # # $Z echo " X=+0.95 Y=+0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.3 # # $Z echo " X=+0.95 Y=-0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.3 # # $Z echo " X=+0.95 Y=-0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.3 # # $Z echo " X=+0.55 Y=-0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.3 # # $Z echo " X=+0.55 Y=-0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.3 # # $Z echo " X=+0.55 Y=+0.20 Z=+0.50 R=0.1 ROUGE=255 VERTE=180 BLEUE=000 " >>! $xT/l0.3 # # # # $Z $CA \ # # $Z $xT/lM \ # # $Z $xT/lW \ # # $Z $xT/lY \ # # $Z $xT/l2 \ # # $Z $xT/l0.1 \ # # $Z $xT/l0.2 \ # # $Z $xT/l0.3 \ # # $Z > $xT/lWMY2000 # # # # # # $c #define PI 3.141592653589793 # # # # $c #define PARITE 4 # # # # $c #define Ntheta (16*PARITE) # # $c #define theta0 0.0 # # $c #define thetaN (2*PI) # # # # $c #define Nphi (8*PARITE) # # $c #define phi0 (-PI/2) # # $c #define phiN (+PI/2) # # # # $c #define RAYONs 1.0 # # $c #define RAYONb 0.05 # # # # $c #define ROUGE 000 # # $c #define VERTE 140 # # $c #define BLEUE 255 # # # # $c extern double cos(); # # $c extern double sin(); # # # # $c int main() # # $c { # # $c double theta,phi; # # # # $c for (theta=theta0 ; # # $c theta<=thetaN ; # # $c theta=theta+((thetaN-theta0)/Ntheta) # # $c ) # # $c { # # $c for (phi=phi0 ; # # $c phi<=phiN ; # # $c phi=phi+((phiN-phi0)/Nphi) # # $c ) # # $c { # # $c printf("\necho ' X=%f Y=%f Z=%f" # # $c ,RAYONs*cos(theta)*cos(phi) # # $c ,RAYONs*sin(phi) # # $c ,RAYONs*sin(theta)*cos(phi) # # $c ); # # $c printf(" R=%f",RAYONb); # # $c printf(" ROUGE=%d VERTE=%d BLEUE=%d '" # # $c ,ROUGE # # $c ,VERTE # # $c ,BLEUE # # $c ); # # $c printf(" >>! $xT/lWMY2000"); # # $c printf("\necho ' X=%f Y=%f Z=%f" # # $c ,RAYONs*cos(theta)*cos(phi) # # $c ,RAYONs*sin(phi) # # $c ,RAYONs*sin(theta)*cos(phi) # # $c ); # # $c printf(" R=%f",RAYONb); # # $c printf(" ROUGE=%d VERTE=%d BLEUE=%d '" # # $c ,ROUGE # # $c ,VERTE # # $c ,BLEUE # # $c ); # # $c printf(" >>! $xT/lWMY2000"); # # $c } # # $c } # # # # $c printf("\n"); # # $c } # # # # # # $Z $CA $xT/lWMY2000 \ # # $Z | $SE -e "s/.* X=\([^ ]*\) .*/\1/" > $xT/COORDONNEES$COORD_X # # $Z $CA $xT/lWMY2000 \ # # $Z | $SE -e "s/.* Y=\([^ ]*\) .*/\1/" > $xT/COORDONNEES$COORD_Y # # $Z $CA $xT/lWMY2000 \ # # $Z | $SE -e "s/.* Z=\([^ ]*\) .*/\1/" > $xT/COORDONNEES$COORD_Z # # # # $Z $CA $xT/lWMY2000 \ # # $Z | $SE -e "s/.* R=\([^ ]*\) .*/\1/" > $xT/RAYON # # # # $Z $CA $xT/lWMY2000 \ # # $Z | $SE -e "s/.* ROUGE=\([^ ]*\) .*/\1/" > $xT/COULEUR$ROUGE # # $Z $CA $xT/lWMY2000 \ # # $Z | $SE -e "s/.* VERTE=\([^ ]*\) .*/\1/" > $xT/COULEUR$VERTE # # $Z $CA $xT/lWMY2000 \ # # $Z | $SE -e "s/.* BLEUE=\([^ ]*\) .*/\1/" > $xT/COULEUR$BLEUE # # # # $Z set Nparticules=`wc $xT/lWMY2000` # # $Z set Nparticules=$Nparticules[$WC1] # # # # $Z $xrv/particule.10$X np=1 iterations=$Nparticules \ # # $Z LISTE_X=$xT/COORDONNEES$COORD_X \ # # $Z LISTE_Y=$xT/COORDONNEES$COORD_Y \ # # $Z LISTE_Z=$xT/COORDONNEES$COORD_Z \ # # $Z LISTE_RAYON=$xT/RAYON \ # # $Z LISTE_ROUGE=$xT/COULEUR$ROUGE \ # # $Z LISTE_VERTE=$xT/COULEUR$VERTE \ # # $Z LISTE_BLEUE=$xT/COULEUR$BLEUE \ # # $Z Lz=1000 ZOOM=0.34 \ # # $Z isoles=FAUX points=32 \ # # $Z RVB=VRAI \ # # $Z TRANSLATION_OX=1 \ # # $Z TRANSLATION_OY=1 \ # # $Z R=$xTV/WMY2K.1. \ # # $Z $formatI # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/acces$X \ # # $X A=$xTV/WMY2K.1.0001%s \ # # $X R=$xiirv/WMY2000.21%s \ # # $X $formatI' # # # # # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$xci/complement$X \ # # $X A=$xiirv/WMY2000.21%s \ # # $X R=$xTV/WMY2000.2%s \ # # $X $formatI ; \ # # $X $xci/gauss$X \ # # $X $formatI | \ # # $X $xci/interpole.02$X \ # # $X A1=$xTV/WMY2000.2%s \ # # $X A2=$xiirv/WMY2000.21%s \ # # $X R=$xiirv/WMY2000.22%s \ # # $X $formatI' # # # # $Z $xci/luminance.01$X \ # # $Z AR=$xiirv/WMY2000.21$ROUGE \ # # $Z AV=$xiirv/WMY2000.21$VERTE \ # # $Z AB=$xiirv/WMY2000.21$BLEUE \ # # $Z R=$xiirv/WMY2000.21 \ # # $Z $formatI # # # # $Z $xci/gauss$X \ # # $Z R=$xTV/GAUSS \ # # $Z $formatI # # $Z $xci/filtre.01$X \ # # $Z A=$xiirv/WMY2000.21 \ # # $Z N=$xTV/GAUSS \ # # $Z R=$xTV/WMY2000 \ # # $Z $formatI # # $Z $xci/passe_bande$X \ # # $Z A=$xTV/WMY2000 \ # # $Z inf=12 sup=$BLANC \ # # $Z R=$xiirv/WMY2000.21$Fi \ # # $Z $formatI # # # # $Z $xci/luminance.01$X \ # # $Z AR=$xiirv/WMY2000.22$ROUGE \ # # $Z AV=$xiirv/WMY2000.22$VERTE \ # # $Z AB=$xiirv/WMY2000.22$BLEUE \ # # $Z R=$xiirv/WMY2000.22 \ # # $Z $formatI # # # # $Z $DELETE $xT/lM # # $Z $DELETE $xT/lW # # $Z $DELETE $xT/lY # # $Z $DELETE $xT/l2 # # $Z $DELETE $xT/l0.1 # # $Z $DELETE $xT/l0.2 # # $Z $DELETE $xT/l0.3 # # $Z $DELETE $xT/lWMY2000 # # $Z $DELETE $xT/COORDONNEES$COORD_X # # $Z $DELETE $xT/COORDONNEES$COORD_Y # # $Z $DELETE $xT/COORDONNEES$COORD_Z # # $Z $DELETE $xT/RAYON # # # # $X $xci/genere$X RVB=VRAI \ # # $X C='$DELETE $xT/COULEUR%s' # # # v $xiirv/WMY2000.31 # Cette image resulte de l'accumulation par '$xci/accumule.01$X' avec "attenuation=0" des # # 16 premieres images de la sequence : # # # # xivPdf 6 2 / 026636_026763 # # # # ('v $xiav/WMY2K.21$R16'). # v $xiirv/Y2K.11 # Generee (sur '$LACT29') par : # # # # $Z SET _____TmoveX=0.025 # # $Z set _____images=$xiirv/Y2K.11 # # $m4 _____include(_____xiirv/.Y2K.11.1._____U) # # $m4 _____include(_____xiirv/.Y2K.11.2._____U) # # # ####################################################################################################################################### # # # I M A G E S L E S P L U S P E R T I N E N T E S : # # # ####################################################################################################################################### Gamma ; v $xiirv/BO.13.0001$DROITE Gamma ; v $xiirv/BO.13.0001$GAUCHE # Botticelli, le retour... # Gamma ; v $xiirv/DEPT.25$M # Visualisation avec profondeur de champ. # v $xiirv/ETOI.1.11 p=$xiP/cercle.11 # Textures bidimensionnelles par filtrage de Fourier. # v $xiirv/ETOI.2.21 p=$xiP/enfer.03 v $xiirv/ETOI.2.31 p=$xiP/gris.11 # Textures tridimensionnelles par filtrage de Fourier. # v $xiirv/LYAP.11 # Visualisation tridimensionnelle de l'exposant de Lyapunov. # Gamma $Gamma_lyapunov ; v $xiirv/LYAP.22 # Accumulation d'une sequence temporelle sur l'exposant de Lyapunov. # Gamma $Gamma_mandel ; v $xiirv/MA.11.ac.01 # Visualisation tridimensionnelle "spherique" de l'ensemble de Mandelbrot. # v $xiirv/MAPn.12.C1 v $xiirv/MAPn.12.C2 v $xiirv/MAPn.12.C3 v $xiirv/MAPn.12.C4 v $xiirv/MAPn.12.C5 v $xiirv/M.64.0001.C5 v $xiirv/MAPn.72.C5 v $xiirv/MAPn.32.C5 # Visualisation de 1-cube, 2-cube, 3-cube, 4-cube, 5-cube. # v $xiirv/MAPn.52.S2 v $xiirv/MAPn.52.S3 # Visualisation de 2-sphere, 3-sphere. # v $xiirv/PARADOXE.11 # Mire paradoxale... # v $xiirv/PART.22 v $xiirv/PART.32 # Pour illustrer la notion de reseau... # v $xiirv/STEREO_BI.21 p=$xiP/fractal.11 v $xiirv/STEREO_BI.21$m p=$xiP/montagnes.01 v $xiirv/STEREO_BI.23 p=$xiP/fractal.11 v $xiirv/STEREO_BI.41 p=$xiP/fractal.11 v $xiirv/STEREO_BI.42 p=$xiP/fractal.11 v $xiirv/STEREO_BI.51 p=$xiP/fractal.11 v $xiirv/STEREO_BI.D1 p=$xiP/fractal.11 # Quelques autostereogrammes... #