Select Code to Download

  use  Tk       ;   ($                   "=   q        \$  +;
   W) i(s      -9o ),B                  )$,} n$      p90)=2+$
...
   /,  q+rp     +)x160;                   $_=join      //,map
   {$h {$_      }} sort                  keys %h       ;s  /N
   / /xg;     eval  #l                   iv   er      po  le

    fractal.pl  4 #s

         -or-

    fractal.pl  4  100,100,90:400,-90:400,-90:400,-90:400

    .   => don't permute this portion of the line segment
    !   => go to next portion of line segment (next rule)
    A*B => specify next angle/distance for this portion
    ,   => go on to next angle/distance
    +   => complete journey to next point in line segment

fractal.pl  5  #t=.!60*1,+!.

    .       # Do not change the first portion
    60*1,+  # Rotate 60 degrees away from the current
...
            #  to the next point beginning the next
            #  portion of the line segment.
    .       # Do not change the last portion

    fractal.pl  4  #s=.!90,-90*.5,-90*1.5!.