Question: Koch Snowflake Creation

I have these two procedures which produce 2/3 parts of my snowflake. But HOW do I angle them to put them together? Or should I modify one to cover the entire snowflake? If so, how should I modify my procedure?


This produces an "up right" fractal of a shape basically like this:   __/\__

Koch:=proc(n::posint)    
  if (n=1) then return("F"); fi;
 ## now n>1
  return( cat( " ",Koch(n-1), "L", Koch(n-1), "RR", Koch(n-1), "L", Koch(n-1), " "));
end:
SetTurtleAngle(60): TurtleCmd(Koch(6));

 

This produces an "upside down" shape identical to the previous one.

DKoch:=proc(n::posint)    
  if (n=1) then return("F"); fi;
 ## now n>1
  return( cat(" ",DKoch(n-1), "R", DKoch(n-1), "LL", DKoch(n-1), "R", DKoch(n-1), " "));         
end:
SetTurtleAngle(60): TurtleCmd(DKoch(6));

Please Wait...