Présentation de vonkoch_3_1.jps

-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


1 {                                    %% puis on applique 4x la manip

   {manip} 2 4 Apply
} repeat

ligne                                  %% avant de regarder le resultat