Page 1 of 1

The Dancing Men

Posted: Thu Jul 07, 2005 4:29 pm
by jarmark
This little script is my tribute to Sherlock Holmes :)

Code: Select all

startshape DANCE_SQUARE

rule DANCE_SQUARE{
	FIGURES_LINE{y 0}
	FIGURES_LINE{y 15}
	FIGURES_LINE{y 30}
	FIGURES_LINE{y 45}
	FIGURES_LINE{y 60}
}

rule FIGURES_LINE{
	FIGURE{ x 0}
	FIGURE{ x 15}
	FIGURE{ x 30}
	FIGURE{ x 45}
	FIGURE{ x 60}
}
rule FIGURE{
  	BODY{}
 	LEFT_HAND{}
	RIGHT_HAND{}
 	LEFT_LEG{}
      RIGHT_LEG{}
}

rule BODY{
  CIRCLE{y 5 s 3}
   line{}
   line{y -2 }
}

rule LEFT_HAND{
  line{ y 1.5  r 45}
}
rule LEFT_HAND{
  line{ y 1.5  r 90}
}
rule LEFT_HAND{
  line{ y 1.5  x -0.2 r 135}
}
rule LEFT_HAND{
  SQUARE { y 1.5 x -1 } 
  SQUARE { y 1.5 x -2 }  
  SQUARE { y 1.5 x -2.5 } 
  SQUARE { y 2.5 x -2.5 } 
  SQUARE { y 3.5 x -2.5 }
  SQUARE { y 4.0 x -2.5 }
}
rule LEFT_HAND{
  SQUARE { y 1.5 x -1 } 
  SQUARE { y 1.5 x -2 }  
  SQUARE { y 1.5 x -2.5 } 
  SQUARE { y 0.5 x -2.5 } 
  SQUARE { y -0.5 x -2.5 }
  SQUARE { y -1.0 x -2.5 }
}

rule RIGHT_HAND{
  line{ y 1.5  r -45}
}
rule RIGHT_HAND{
  line{ y 1.5 r -90}
}
rule RIGHT_HAND{
  line{ y 1.5  x 0.2 r -135}
}
rule RIGHT_HAND{
  SQUARE { y 1.5 x 1 } 
  SQUARE { y 1.5 x 2 }  
  SQUARE { y 1.5 x 2.5 } 
  SQUARE { y 2.5 x 2.5 } 
  SQUARE { y 3.5 x 2.5 }
  SQUARE { y 4.0 x 2.5 }
}
rule RIGHT_HAND{
  SQUARE { y 1.5 x 1 } 
  SQUARE { y 1.5 x 2 }  
  SQUARE { y 1.5 x 2.5 } 
  SQUARE { y 0.5 x 2.5 } 
  SQUARE { y -0.5 x 2.5 }
  SQUARE { y -1.0 x 2.5 }
}

rule LEFT_LEG{
	  line{ y -2.5 x -0.2 r 135}
}
rule LEFT_LEG{
	  line{ y -2.5 x -0.2 r 100}
}
rule LEFT_LEG{
	  line{ y -1.9 r -180 }
}

rule RIGHT_LEG{
	  line{ y -2.5 x 0.2 r -135}
}
rule RIGHT_LEG{
	  line{ y -2.5 x 0.2 r -100}
}
rule RIGHT_LEG{
	  line{ y -1.9 r -180 }
}

rule line { 
  SQUARE { y 0 } 
  SQUARE { y 1 } 
  SQUARE { y 2 } 
  SQUARE { y 3 } 
  SQUARE { y 4 } 
  SQUARE { y 5 } 
} 

Posted: Thu Jul 07, 2005 4:37 pm
by LaT3x
So funny :lol: