Présentation de vonkoch_3_2.jps

/syracuse/bbgraf/albums/vonkoch_03/vonkoch_3_2.jpg
-2.5 2.5 setxrange -2.5 2.5 setyrange /A {0 2} def %% syntaxe : A B manip /manip { 4 copy %% A B A B 4 copy %% A B A B A B 2 3 div hompoint %% A B A B A' 3 1 rollp %% A B A' A B 1 3 div hompoint %% A B A' A" 4 copy %% A B A' A" A' A" -60 rotatepoint %% A B A' A" A'" 2 -1 rollp %% A B A' A'" A" 4 -1 rollp %% A A' A'" A" B } def bleu [A 3 {2 copy O 120 rotatepoint} repeat] %% on genere un hexagone regulier 2 { %% puis on applique 4x la manip {manip} 2 4 Apply } repeat ligne %% avant de regarder le resultat