# This is a data file for the Knot Applet by Mac Stevens
# version 19JUL2000
#
#
#
# rope 1
	rope C{
		E_lat = 1000000.0; # in Pascals
		E_long = 1000000.0; # in Pascals
		length = 0.5; # in meters
		linear_density = 0.1; # in kilograms/meter
                pattern = spiral{                 # Terri's pattern: 
                                  (32,32,255) ,   # blue
                                  (200,0,255) ,   # purple
                                  (0,224,192) ,   # aquamarine
                                  (255,160,160) , # pink
                                  (192,192,192) , # grey
                                  (255,96,192) }; # magenta-red
		radius = 0.01;} # in meters

# rope 2
	rope A{
		E_lat = 1000000.0; # in Pascals
		E_long = 1000000.0; # in Pascals
		length = 0.5; # in meters
		linear_density = 0.1; # in kilograms/meter
                pattern = spiral{                 # Terri's pattern: 
                                  (32,32,255) ,   # blue
                                  (200,0,255) ,   # purple
                                  (0,224,192) ,   # aquamarine
                                  (255,160,160) , # pink
                                  (192,192,192) , # grey
                                  (255,96,192) }; # magenta-red
		radius = 0.01;} # in meters

# rope 3
	rope B{
		E_lat = 1000000.0; # in Pascals
		E_long = 1000000.0; # in Pascals
		length = 0.3; # in meters
		linear_density = 0.1; # in kilograms/meter
                pattern = checker3{ (192,192,192) , (64,64,64) };
		radius = 0.01;} # in meters

# rope 4
	rope D{
		E_lat = 1000000.0; # in Pascals
		E_long = 1000000.0; # in Pascals
		length = 0.3; # in meters
		linear_density = 0.1; # in kilograms/meter
                pattern = spiral{ 
		  (140,183,250) , (202,153,246) , (177,112,112) ,
                  (140,183,250) , (202,153,246) , (177,112,112) };
		radius = 0.01;} # in meters

# rope 5
	rope E{
		E_lat = 1000000.0; # in Pascals
		E_long = 1000000.0; # in Pascals
		length = 0.04; # in meters
		linear_density = 0.1; # in kilograms/meter
                pattern = spiral{                 # Terri's pattern: 
                                  (32,32,255) ,   # blue
                                  (200,0,255) ,   # purple
                                  (0,224,192) ,   # aquamarine
                                  (255,160,160) , # pink
                                  (192,192,192) , # grey
                                  (255,96,192) }; # magenta-red
		radius = 0.02;} # in meters

# rope 6
	rope F{
		E_lat = 1000000.0; # in Pascals
		E_long = 1000000.0; # in Pascals
		length = 0.05; # in meters
		linear_density = 0.1; # in kilograms/meter
                pattern = spiral{                 # Terri's pattern: 
                                  (32,32,255) ,   # blue
                                  (200,0,255) ,   # purple
                                  (0,224,192) ,   # aquamarine
                                  (255,160,160) , # pink
                                  (192,192,192) , # grey
                                  (255,96,192) }; # magenta-red
		radius = 0.0050;} # in meters

# rope 7
	rope G{
		E_lat = 1000000.0; # in Pascals
		E_long = 1000000.0; # in Pascals
		length = 0.05; # in meters
		linear_density = 0.1; # in kilograms/meter
		pattern = rainbow();
		radius = 0.05;} # in meters

# rope 8
        rope H{
		E_lat = 1000000.0; # in Pascals
		E_long = 1000000.0; # in Pascals
                length = 0.5; # in meters
		linear_density = 0.1; # in kilograms/meter
                pattern = spiral{                
                                  (60,60,255) ,  
                                  (80,80,255) ,   
                                  (100,100,255) ,   
                                  (120,120,255) , 
                                  (140,140,255) , 
                                  (160,160,255) };
                radius = 0.005;} # in meters

# rope 9
        rope I{
		E_lat = 1000000.0; # in Pascals
		E_long = 1000000.0; # in Pascals
                length = 0.5; # in meters
		linear_density = 0.1; # in kilograms/meter
		pattern = spiral{                
                                  (0,208,0) ,  
                                  (32,208,32) ,   
                                  (64,255,64) ,   
                                  (96,255,96) , 
                                  (128,255,128) , 
                                  (160,255,160) };
                radius = 0.005;} # in meters

# rope 10	
  	rope J{
		E_lat = 1000000.0; # in Pascals
		E_long = 1000000.0; # in Pascals
		length = 0.5; # in meters
		linear_density = 0.1; # in kilograms/meter
		pattern = rainbow();
		radius = 0.0066;} # in meters

# rope 11
	rope K{
		E_lat = 10000000.0; # in Pascals
		E_long = 10000000.0; # in Pascals
		length = 0.1; # in meters
		linear_density = 0.1; # in kilograms/meter
                pattern = checker3{ (0,0,224) , (255,255,0) };
		radius = 0.0125;} # in meters

# rope 12
        rope L{
                E_lat = 1000000.0; # in Pascals
                E_long = 1000000.0; # in Pascals
                length = 0.3; # in meters
		linear_density = 0.1; # in kilograms/meter
                pattern = solid (32,64,224) ;
                radius = 0.01;} # in meters

# rope 13
        rope M{
                E_lat = 1000000.0; # in Pascals
                E_long = 1000000.0; # in Pascals
                length = 0.3; # in meters
		linear_density = 0.1; # in kilograms/meter
                pattern = solid (64,224,64);
                radius = 0.01;} # in meters

# rope 14
        rope N{
                E_lat = 100000000.0; # in Pascals
                E_long = 100000000.0; # in Pascals
                length = 0.104; # in meters
                linear_density = 0.01; # in kilograms/meter
                pattern = solid (224,224,0);
                radius = 0.002;} # in meters

# rope 15
        rope o{
                E_lat = 100000000.0; # in Pascals
                E_long = 100000000.0; # in Pascals
                length = 0.104; # in meters
                linear_density = 0.01; # in kilograms/meter
                pattern = solid (224,224,0);
                radius = 0.002;} # in meters

# rope 16
        rope P{
                E_lat = 100000000.0; # in Pascals
                E_long = 100000000.0; # in Pascals
                length = 0.104; # in meters
                linear_density = 0.01; # in kilograms/meter
                pattern = solid (224,224,0);
                radius = 0.002;} # in meters

# rope 17
        rope Q{
                E_lat = 100000000.0; # in Pascals
                E_long = 100000000.0; # in Pascals
                length = 0.104; # in meters
                linear_density = 0.01; # in kilograms/meter
                pattern = solid (224,224,0);
                radius = 0.002;} # in meters

# rope 18
        rope R{
		E_lat = 1000000.0; # in Pascals
		E_long = 1000000.0; # in Pascals
                length = 0.01; # in meters
                linear_density = 0.01; # in kilograms/meter
                pattern = checker3{ (192,192,192) , (64,64,64) };
		radius = 0.01;} # in meters

# rope 18
        rope S{
		E_lat = 1000000.0; # in Pascals
		E_long = 1000000.0; # in Pascals
                length = 0.01; # in meters
                linear_density = 0.01; # in kilograms/meter
                pattern = checker3{ (192,192,192) , (224,0,0) };
		radius = 0.01;} # in meters

# rope 18
        rope T{
		E_lat = 1000000.0; # in Pascals
		E_long = 1000000.0; # in Pascals
                length = 0.01; # in meters
                linear_density = 0.01; # in kilograms/meter
                pattern = checker3{ (192,192,192) , (0,224,0) };
		radius = 0.01;} # in meters

# rope 18
        rope U{
		E_lat = 1000000.0; # in Pascals
		E_long = 1000000.0; # in Pascals
                length = 0.01; # in meters
                linear_density = 0.01; # in kilograms/meter
                pattern = checker3{ (192,192,192) , (0,0,224) };
		radius = 0.01;} # in meters


knot {
	name = "overhand knot"; # name to be displayed

	environment(
		background_color = (0,0,0);
		gravity = (0.0,0.0,0.0);
		light_color = (255,255,255);
		light_direction = (0.6,-0.8,0.0););

	tie{
		{
                put(0A,(0.25,0.0,0.0));
                put(50A,(-0.25,0.0,0.0));
		}

		{
                put(50A,(-0.25,0.0,0.0));
                10A/(0.0,0.07,0.0)/0A;
                3A/(0.03,0.0,0.0)/0A;
		}

		{
                put(50A,(-0.25,0.0,0.0));
                15A/(0.0,0.07,0.0)/5A;
                20A/(0.0,0.07,0.0)/0A;
		}

		{
                put(50A,(-0.25,0.0,0.0));
                30A/(0.0,0.05,0.0)/0A;
                25A/(0.0,0.055,0.0)/5A;
                20A/(0.0,0.06,0.0)/10A;
		}

		{
                put(50A,(-0.25,0.0,0.0));
                30A/(0.0,0.0,0.02)/0A;
                0A/(-0.08,0.0,-0.01)/15A;
                10A/(-0.05,-0.13,-0.01)/20A;
		}

		{
                put(50A,(-0.25,0.0,0.0));
                30A/(0.0,0.0,0.02)/3A;
                0A/(0.0,0.02,0.0)/27A;
                0A/(0.0,0.08,-0.01)/13A;
		}

		{
                put(50A,(-0.25,0.0,0.0));
                30A/(0.0,0.0,0.02)/6A;
                3A/(0.0,0.02,0.0)/27A;
                0A/(0.0,0.0,0.02)/24A;
		}

		{
                put(50A,(-0.25,0.0,0.0));
                30A/(0.0,0.0,0.02)/9A;
                6A/(0.0,0.02,0.0)/27A;
                3A/(0.0,0.0,0.02)/24A;
                0A/(0.0,-0.02,0.0)/21A;
		}

		{
                put(50A,(-0.25,0.0,0.0));
                30A/(0.0,0.0,0.02)/12A;
                9A/(0.0,0.02,0.0)/27A;
                6A/(0.0,0.0,0.02)/24A;
                3A/(0.0,-0.02,0.0)/21A;
                18A/(0.0,0.0,0.02)/0A;
		}

		{
                put(50A,(-0.25,0.0,0.0));
                32A/(0.0,0.0,0.02)/14A;
                11A/(0.0,0.02,0.0)/29A;
                8A/(0.0,0.0,0.02)/26A;
                5A/(0.0,-0.02,0.0)/23A;
                20A/(0.0,0.0,0.02)/2A;
		}

		{
                put(50A,(-0.25,0.0,0.0));
                33A/(0.0,0.0,0.02)/15A;
                12A/(0.0,0.02,0.0)/30A;
                9A/(0.0,0.0,0.02)/27A;
                6A/(0.0,-0.02,0.0)/24A;
                21A/(0.0,0.0,0.02)/3A;
		}

		{
                0A/(0.15,0.0,0.0)/35A;
		}
	} # tie procedure

	untie{	} # untie procedure

} # overhand knot

knot {
	name = "figure 8 knot"; # name to be displayed

	environment(
		background_color = (0,0,0);
		gravity = (0.0,0.0,0.0);
		light_color = (255,255,255);
		light_direction = (0.6,-0.8,0.0););

	tie{
		{
                put(0A,(0.25,0.0,0.0));
                put(50A,(-0.25,0.0,0.0));
		}

		{
                put(25A,(0.0,0.04,0.0));
                25A/(0.18,0.04,0.0)/45A;
                5A/(0.18,-0.04,0.0)/25A;
		}

		{
                put(25A,(0.0,0.05,0.0));
                27A/(0.0,0.0,0.03)/23A;
                19A/(0.04,0.0,0.0)/31A;
                0A/(0.06,0.04,0.0)/9A;
		}

		{
                put(25A,(0.0,0.06,0.0));
                27A/(0.03,0.0,0.0)/23A;
                31A/(0.0,0.0,0.02)/19A;
                0A/(0.0,0.04,0.0)/9A;
                0A/(0.25,0.04,0.0)/50A;
		}

		{
                put(25A,(0.0,0.065,0.0));
                23A/(0.0,0.0,0.03)/27A;
                35A/(0.0,0.0,0.02)/15A;
                31A/(0.03,0.0,0.0)/19A;
                0A/(0.03,0.04,0.01)/13A;
		}

		{
                put(25A,(0.0,0.07,0.0));
                23A/(0.03,0.0,0.0)/27A;
                35A/(0.03,0.0,0.0)/15A;
                19A/(0.0,0.0,0.02)/31A;
                39A/(0.0,0.0,0.02)/11A;
                0A/(0.03,-0.02,0.01)/23A;
		}

		{
                put(25A,(0.0,0.075,0.0));
                23A/(0.035,0.0,0.0)/27A;
                35A/(0.02,0.0,0.0)/15A;
                18A/(0.0,0.0,0.02)/32A;
                39A/(0.0,0.0,0.02)/11A;
                0A/(0.0,0.0,0.02)/23A;
		}

		{
                put(25A,(0.0,0.08,0.0));
                23A/(0.035,0.0,0.0)/27A;
                35A/(0.02,0.0,0.0)/15A;
                18A/(0.0,0.0,0.02)/32A;
                39A/(0.0,0.0,0.02)/11A;
                4A/(0.0,0.0,0.02)/23A;
                27A/(0.0,0.0,0.02)/0A;
		}

		{
                18A/(0.0,0.0,0.02)/32A;
                39A/(0.0,0.0,0.02)/11A;
                7A/(0.0,0.0,0.02)/23A;
                27A/(0.0,0.0,0.02)/3A;
		}

		{
                0A/(-0.05,0.12,0.0)/42A;
		}
	} # tie procedure

	untie{	} # untie procedure

} # figure 8 knot

knot {
	name = "square knot"; # name to be displayed

	environment(
		background_color = (0,0,0);
		gravity = (0.0,0.0,0.0);
		light_color = (255,255,255);
		light_direction = (0.6,-0.8,0.0););

	tie{
		{
		put(30B,(-0.31,0.0,0.0));
		put(0B,(-0.01,0.0,0.0));
		put(0D,(0.01,0.0,0.0));
		put(30D,(0.31,0.0,0.0));
		}

		{
		0B/(0.0,0.0,0.021)/0D;
		}

		{
		2B/(0.0,0.0,0.021)/2D;
		}

		{
		3B/(0.0,0.0,0.021)/3D;
		6D/(0.0,0.025,0.0)/0B;
		6B/(0.0,0.025,0.0)/0D;
		}

		{
		6B/(0.0,0.0,0.021)/6D;
		9D/(0.0,0.025,0.0)/3B;
		9B/(0.0,0.025,0.0)/12D;
		12D/(0.0,0.0,0.021)/0B;
		0D/(0.0,0.0,0.021)/12B;
		}

		{
		9B/(0.0,0.0,0.021)/9D;
		12D/(0.0,0.025,0.0)/6B;
		12B/(0.0,0.025,0.0)/6D;
		15D/(0.0,0.0,0.021)/3B;
		3D/(0.0,0.0,0.021)/15B;
		0B/(0.06,0.03,0.0)/9D;
		0D/(-0.06,0.03,0.0)/9B;
		}

		{
		12B/(0.0,0.0,0.021)/12D;
		15D/(0.0,0.025,0.0)/9B;
		15B/(0.0,0.025,0.0)/9D;
		18D/(0.0,0.0,0.021)/6B;
		6D/(0.0,0.0,0.021)/18B;
		0B/(0.05,0.06,0.0)/12D;
		0D/(-0.05,0.06,0.0)/12B;
		}

		{
		15B/(0.0,0.0,0.021)/15D;
		18D/(0.0,0.025,0.0)/12B;
		18B/(0.0,0.025,0.0)/12D;
		21D/(0.0,0.0,0.021)/9B;
		9D/(0.0,0.0,0.021)/21B;
		0B/(0.04,0.08,0.0)/15D;
		0D/(-0.04,0.08,0.0)/15B;
		}

		{
		18B/(0.0,0.0,0.021)/18D;
		21D/(0.0,0.025,0.0)/15B;
		21B/(0.0,0.025,0.0)/15D;
		24D/(0.0,0.0,0.021)/12B;
		12D/(0.0,0.0,0.021)/24B;
		0B/(0.02,0.11,0.0)/18D;
		0D/(-0.02,0.11,0.0)/18B;
		}

		{
		21B/(0.0,0.0,0.021)/21D;
		25D/(0.0,0.0,0.021)/13B;
		13D/(0.0,0.0,0.021)/25B;
		0B/(0.0,0.0,0.021)/0D;
		}

		{
		21B/(0.0,0.0,0.021)/21D;
		25D/(0.0,0.0,0.021)/13B;
		13D/(0.0,0.0,0.021)/25B;
		3B/(0.0,0.0,0.021)/3D;
		6D/(0.0,0.025,0.0)/0B;
		6B/(0.0,0.025,0.0)/0D;
		}

		{
		25D/(0.0,0.0,0.021)/14B;
		14D/(0.0,0.0,0.021)/25B;
		11D/(0.0,0.0,0.021)/0B;
		0D/(0.0,0.0,0.021)/11B;
		0D/(0.16,0.0,0.0)/0B;
		}

		{
		25D/(0.0,0.0,0.021)/15B;
		15D/(0.0,0.0,0.021)/25B;
		21D/(0.0,0.0,0.021)/3B;
		3D/(0.0,0.0,0.021)/11B;
		30D/(0.22,0.0,0.0)/30B;
		0D/(0.18,0.0,0.0)/0B;
		}

		{
		23D/(0.0,0.0,0.021)/15B;
		15D/(0.0,0.0,0.021)/23B;
		11D/(0.0,0.0,0.021)/5B;
		5D/(0.0,0.0,0.021)/11B;
		30D/(0.26,0.0,0.0)/30B;
		0D/(0.2,0.0,0.0)/0B;
		}

		{
		30D/(0.26,0.0,0.0)/30B;
		0D/(0.23,0.0,0.0)/0B;
		}
	} # tie procedure

	untie{} # untie procedure

} # square knot

knot {
	name = "bowline"; # name to be displayed

	environment(
		background_color = (0,0,0);
		gravity = (0.0,0.0,0.0);
		light_color = (255,255,255);
		light_direction = (0.6,-0.8,0.0););

	tie{
		
		{
		put(0J,(-0.02,0.015,0.0));
		put(7J,(-0.0275,-0.0275,0.0));
		put(15J,(0.0175,-0.0225,0.0));
		put(22J,(0.0125,0.0225,0.0));
		put(30J,(-0.03,0.04,0.0));
		put(37J,(-0.065,0.0075,0.0));
		put(45J,(-0.06,-0.04,0.0));
		put(52J,(-0.02,-0.07,0.0));
		put(60J,(0.025,-0.0625,0.0));
		put(67J,(0.055,-0.025,0.0));
		put(75J,(0.04,0.02,0.0));
		}

		{
		put(0J,(-0.01,0.04,0.0));
		put(39J,(-0.07,0.0,0.0));
		put(57J,(0.0,-0.08,0.0));
		put(75J,(0.06,0.0,0.0));
		
		30J/(0.0,0.0,0.017)/2J;
		21J/(0.05,0.0,0.02)/7J;
		7J/(0.03,0.0,0.0)/39J;
		15J/(0.0,0.05,0.01)/52J;
		27J/(0.0,0.06,0.01)/13J;
		}

		{
		put(0J,(0.0,0.06,0.0));
		put(37J,(-0.05,-0.01,0.0));
		put(52J,(0.0,-0.09,0.0));
		put(75J,(0.02,0.0,0.0));
		
		27J/(0.0,0.0,0.016)/6J;
		22J/(0.04,0.01,0.0)/9J;
		16J/(0.0,-0.01,0.03)/27J;
		}
		
		{
		#loop:
		put(0J,(0.0,0.06,0.0));
	
		27J/(0.0,0.0,0.016)/7J;
		30J/(0.0,0.016,0.0)/10J;
		22J/(0.06,0.015,0.0)/10J;
		18J/(0.0,-0.01,0.045)/27J;
		30J/(0.02,0.06,0.0)/37J;

		#end:
		22J/(0.0,0.0,0.016)/75J;
		}
		
		{
		#loop:
		put(0J,(0.0,0.06,0.0));
	
		27J/(0.0,0.0,0.016)/7J;
		30J/(0.0,0.016,0.0)/10J;
		22J/(0.06,0.015,0.0)/10J;
		18J/(0.0,-0.01,0.045)/27J;
		30J/(0.02,0.06,0.0)/37J;

		#end:
		70J/(0.09,0.0,0.0)/36J;
		75J/(-0.016,0.0,0.0)/22J;
		}
		

		{
		#loop:
		put(0J,(0.0,0.06,0.0));
	
		27J/(0.0,0.0,0.016)/7J;
		30J/(0.0,0.016,0.0)/10J;
		22J/(0.06,0.015,0.0)/10J;
		18J/(0.0,-0.01,0.045)/27J;
		30J/(0.02,0.06,0.0)/37J;

		#end:
		68J/(0.09,0.0,0.0)/36J;
		73J/(-0.016,0.0,0.0)/22J;
		}
		


		{
		#loop:
		put(0J,(0.0,0.06,0.0));
	
		27J/(0.0,0.0,0.016)/7J;
		30J/(0.0,0.016,0.0)/10J;
		22J/(0.06,0.015,0.0)/10J;
		18J/(0.0,-0.01,0.045)/27J;
		30J/(0.02,0.06,0.0)/37J;

		#end:
		64J/(0.09,0.0,0.0)/36J;
		69J/(-0.016,0.0,0.0)/22J;
		74J/(0.0,0.03,0.0)/25J;
		75J/(0.016,0.0,0.0)/5J;
		}
		

		{
		#loop:
		put(0J,(0.0,0.06,0.0));
	
		27J/(0.0,0.0,0.016)/7J;
		30J/(0.0,0.016,0.0)/10J;
		22J/(0.06,0.015,0.0)/10J;
		18J/(0.0,-0.01,0.045)/27J;
		30J/(0.02,0.06,0.0)/37J;

		#end:
		60J/(0.09,0.0,0.0)/36J;
		65J/(-0.016,0.0,0.0)/22J;
		69J/(0.0,0.03,0.0)/25J;
		71J/(0.016,0.0,0.0)/5J;
		74J/(0.0,0.0,-0.016)/3J;
		}
		

		{
		#loop:
		put(0J,(0.0,0.06,0.0));
	
		27J/(0.0,0.0,0.016)/7J;
		30J/(0.0,0.016,0.0)/10J;
		22J/(0.06,0.015,0.0)/10J;
		18J/(0.0,-0.01,0.045)/27J;
		30J/(0.02,0.06,0.0)/37J;

		#end:
		56J/(0.09,0.0,0.0)/36J;
		61J/(-0.016,0.0,0.0)/22J;
		65J/(0.0,0.03,0.0)/25J;
		67J/(0.016,0.0,0.0)/3J;
		70J/(0.0,0.0,-0.016)/3J;
		73J/(-0.016,0.0,0.0)/5J;
		74J/(0.0,0.016,0.0)/27J;
		}
		

		{
		#loop:
		put(0J,(0.0,0.06,0.0));
	
		27J/(0.0,0.0,0.016)/7J;
		30J/(0.0,0.016,0.0)/10J;
		22J/(0.06,0.015,0.0)/10J;
		18J/(0.0,-0.01,0.045)/27J;
		30J/(0.02,0.06,0.0)/37J;

		#end:
		52J/(0.09,0.0,0.0)/36J;
		57J/(-0.016,0.0,0.0)/22J;
		61J/(0.0,0.03,0.0)/25J;
		63J/(0.016,0.0,0.0)/3J;
		66J/(0.0,0.0,-0.016)/3J;
		69J/(-0.016,0.0,0.0)/5J;
		70J/(0.0,0.016,0.0)/27J;
		73J/(0.0,0.0,0.016)/16J;
		75J/(-0.016,0.0,0.0)/57J;
		75J/(0.016,0.0,0.0)/12J;
		}
		

		{
		# tighten:
		put(0J,(0.0,0.06,0.0));
	
		2J/(0.0,0.1,0.0)/75J;
		2J/(0.0,0.1,0.016)/57J;

		30J/(-0.02,0.0,0.0)/10J;

		57J/(-0.016,-0.016,0.0)/22J;
		61J/(0.0,0.02,0.0)/25J;
		69J/(-0.016,-0.006,0.0)/5J;
		69J/(0.0,0.016,0.0)/27J;
		73J/(0.0,-0.016,0.016)/16J;
		}
		
		
			
	} # tie procedure

	untie{
		{
		}
	} # untie procedure
} # bowline
        

knot {
	name = "clove hitch"; # name to be displayed

	environment(
		background_color = (0,0,0);
		gravity = (0.0,0.0,0.0);
		light_color = (255,255,255);
		light_direction = (0.6,-0.8,0.0););

	tie{

		{ 

		put(0K,(0.0,0.0,-0.05));
		put(8K,(0.0,-0.02,-0.15));

		# straight rope
		put(0C,(-0.25,0.0,0.0));
		put(25C,(0.0,0.0,0.0));
		put(50C,(0.25,0.0,0.0));
		}
		
		{
		put(0K,(0.0,0.0,-0.05));
		put(8K,(0.0,-0.02,-0.15));

		put(25C,(0.0,-0.03,0.0));
		
		# wavy rope		
		50C/(0.2,0.0,0.0)/25C;
		37C/(0.2,0.0,0.0)/12C;
		25C/(0.2,0.0,0.0)/0C;
		12C/(0.1,0.06,0.0)/0C;
		25C/(0.1,-0.06,0.0)/12C;
		37C/(0.1,0.06,0.0)/25C;
		50C/(0.1,-0.06,0.02)/37C;
		}
		
		{
		put(0K,(0.0,0.0,-0.05));
		put(8K,(0.0,-0.02,-0.15));

		put(25C,(0.0,-0.03,0.0));
		
		# rope in spring (spiral)
		25C/(0.12,0.0,0.0)/0C;
		31C/(0.12,0.0,0.0)/6C;
		37C/(0.12,0.0,0.0)/12C;
		43C/(0.12,0.0,0.0)/18C;
		50C/(0.12,0.0,0.0)/25C;
		19C/(0.06,0.0,-0.07)/6C;
		25C/(0.06,-0.07,0.0)/13C;
		31C/(0.06,0.0,0.07)/19C;
		37C/(0.06,0.07,0.0)/25C;
		44C/(0.06,0.0,-0.07)/31C;
		}

		{
		put(0K,(0.0,0.0,-0.05));
		put(8K,(0.0,-0.02,-0.15));

		put(25C,(0.0,-0.03,0.0));
		
		# rope in tighter spring
		25C/(0.08,0.0,0.0)/0C;
		31C/(0.08,0.0,0.0)/6C;
		37C/(0.08,0.0,0.0)/12C;
		43C/(0.08,0.0,0.0)/18C;
		50C/(0.08,0.0,0.0)/25C;
		19C/(0.04,0.0,-0.07)/6C;
		25C/(0.04,-0.07,0.0)/13C;
		31C/(0.04,0.0,0.07)/19C;
		37C/(0.04,0.07,0.0)/25C;
		44C/(0.04,0.0,-0.07)/31C;
		}
		
		{
		put(0K,(0.0,0.0,-0.05));
		put(8K,(0.0,-0.02,-0.15));

		put(20C,(-0.05,-0.02,0.0));
		put(25C,(0.0,-0.03,0.0));
		put(30C,(0.05,-0.02,0.0));

		# rope in loops
		3C/(0.0,0.0,0.02)/21C;
		8C/(0.05,0.0,0.0)/17C;
		29C/(0.0,0.0,0.02)/41C;
		33C/(0.05,0.0,0.0)/42C;
		42C/(0.02,0.0,0.0)/8C;
		}

		{
		put(0K,(0.0,0.0,-0.05));
		put(8K,(0.0,-0.02,-0.15));

		put(25C,(0.0,-0.05,0.0));

		# cross loops
		45C/(0.0,0.0,0.02)/5C;
		45C/(0.0,0.02,0.01)/25C;
		5C/(0.0,0.02,-0.01)/25C;
		36C/(0.0,0.05,0.0)/45C;
		14C/(0.0,0.05,0.0)/5C;
		10C/(0.05,0.0,0.01)/18C;
		32C/(0.05,0.0,0.01)/40C;
		50C/(0.1,0.0,0.0)/0C;
		}


		{
		# insert pole
		put(0K,(0.0,0.01,0.05));
		put(4K,(0.0,0.0,0.0));
		put(8K,(0.0,-0.01,-0.05));

		# maintain loops
		put(25C,(0.0,-0.05,0.0));

		45C/(0.0,0.0,0.02)/5C;
		45C/(0.0,0.02,0.01)/25C;
		5C/(0.0,0.02,-0.01)/25C;
		36C/(0.0,0.05,0.0)/45C;
		14C/(0.0,0.05,0.0)/5C;
		10C/(0.05,0.0,0.01)/18C;
		32C/(0.05,0.0,0.01)/40C;
		50C/(0.1,0.0,0.0)/0C;
		}

		# tighten
		{
		put(0K,(0.0,0.01,0.05));
		put(4K,(0.0,0.0,0.0));
		put(8K,(0.0,-0.01,-0.05));

		put(25C,(0.0,-0.0425,0.0));

                32C/(0.0,0.0,0.04)/14C;
                36C/(0.0,0.0,0.04)/18C;
		47C/(0.09,0.0,0.0)/3C;
		50C/(0.15,0.0,0.0)/0C;
		}

	} # tie procedure

	untie{
		{
		}
	} # untie procedure
} # clove hitch

knot {
	name = "sheet bend"; # name to be displayed

	environment(
		background_color = (0,0,0);
		gravity = (0.0,0.0,0.0);
		light_color = (255,255,255);
		light_direction = (0.6,-0.8,0.0););

	tie{
		{
		put(0B,(-0.17,0.0,0.0));
		put(10B,(-0.07,0.0,0.0));
		put(20B,(0.02,0.0,0.0));
		put(30B,(-0.07,0.02,0.0));

                put(37J,(0.03,0,0));
		put(0J,(0.28,0,0));

		40J/(0,0,-0.016)/20B;
		42J/(-0.016,0,0)/20B;
		45J/(0,0,0.013)/67J;
		47J/(0,0,0.02)/24B;
		52J/(0,0.016,0)/25B;
		55J/(0,0,-0.016)/26B;
		58J/(0,0,-0.016)/14B;
		61J/(0,-0.016,0)/15B;
		64J/(0,0,0.016)/16B;
		69J/(0,0,0.016)/23B;
		75J/(0,0.03,0.01)/37J;
		}

            {# tighten:
            75J/(0.14,0,0)/30B;
            37J/(0.18,0,0)/10B;
		10B/(0.1,0,0)/0B;
		0J/(0.25,0,0)/37J;
		15J/(0.38,0,0)/5B;
		0J/(0.53,0,0)/0B;
            }


	} # tie procedure

	untie{
		{
		}
	} # untie procedure
} # sheet bend
        

knot {
        name = "granny knot"; # name to be displayed

	environment(
		background_color = (0,0,0);
		gravity = (0.0,0.0,0.0);
		light_color = (255,255,255);
		light_direction = (0.6,-0.8,0.0););

	tie{
                {
                put(0L,(0.05,0.05,0.0));
                put(6L,(0.0,0.02,0.01));
                put(10L,(-0.03,-0.01,0.01));
                put(15L,(0.0,-0.04,0.0));
                put(20L,(0.03,-0.01,-0.01));
                put(24L,(0.0,0.02,-0.01));
                put(30L,(-0.05,0.05,0.0));
                put(0M,(-0.05,-0.05,0.0));
                put(6M,(0.0,-0.02,0.01));
                put(10M,(0.03,0.01,0.01));
                put(15M,(0.0,0.04,0.0));
                put(20M,(-0.03,0.01,-0.01));
                put(24M,(0.0,-0.02,-0.01));
                put(30M,(0.05,-0.05,0.0));
                6L/(0,0,0.02)/24L;
                8L/(0,0,0.04)/22M;
                13L/(0,0,0.02)/3M;
                27L/(0,0,0.02)/17M;
                6M/(0,0,0.02)/24M;
                8M/(0,0,0.04)/22L;
                13M/(0,0,0.02)/3L;
                27M/(0,0,0.02)/17L;
		}

                {# tighten:
                0L/(0.22,0.14,0)/0M;
                30L/(-0.22,0.14,0)/30M;
                }


	} # tie procedure

	untie{
		{
		}
	} # untie procedure

} # granny knot
        

        
knot {
	name = "overhand knot"; # name to be displayed

	environment(
		background_color = (0,0,0);
		gravity = (0.0,0.0,0.0);
		light_color = (255,255,255);
		light_direction = (0.6,-0.8,0.0););

	tie{
		{
		put(0C,(0.13,0.0,0.0));
		put(15C,(0.0,0.0,0.01));
		put(25C,(0.0,-0.05,0.0));
		put(35C,(0.0,0.0,-0.01));
		put(50C,(-0.13,0.0,0.0));
		41C/(0.0,0.0,0.02)/21C;
		18C/(-0.014,0.014,0.0)/38C;
		15C/(0.0,0.0,0.02)/35C;
		32C/(0.014,0.014,0.0)/12C;
		29C/(0.0,0.0,0.02)/9C;
		}
	} # tie procedure

	untie{
		{
		}
	} # untie procedure
} # overhand knot
        

knot {
        name = "Elizabeth's knot"; # name to be displayed

	environment(
		background_color = (0,0,0);
		gravity = (0.0,0.0,0.0);
		light_color = (255,255,255);
		light_direction = (0.6,-0.8,0.0););

	tie{
		{
                put(0H,(0.05,0.0,0.0));
                put(10H,(0.0,0.0,0.0));
                put(20H,(-0.05,-0.01,0.0));
                put(38H,(0.01,-0.03,0.0));
                put(38H,(0.01,-0.03,0.0));
                put(69H,(0.0,0.01,0.0));
                put(100H,(0.0,-0.13,0.0));
                65H/(0.0,0.0,0.01)/8H;
                11H/(0.0,0.0,0.01)/72H;
                50H/(0.0,0.0,0.01)/28H;
                33H/(0.0,0.0,0.01)/58H;
                59H/(0.0,0.0,0.01)/39H;
                76H/(0.0,0.0,0.01)/44H;
                54H/(0.0,0.0,0.01)/79H;
                10H/(0.05,0.03,0.0)/26H;
		}
	} # tie procedure

	untie{
		{
		}
	} # untie procedure
} # Elizabeth's knot


knot {
        name = "Kathy's knot"; # name to be displayed

	environment(
		background_color = (0,0,0);
		gravity = (0.0,0.0,0.0);
		light_color = (255,255,255);
		light_direction = (0.6,-0.8,0.0););

	tie{
		{
                put(0I,(-0.19,0.0,0.0));
                put(30I,(-0.04,0.0,0.005));
                put(40I,(0.0075,0.0025,0.0));
                put(45I,(0.0125,-0.0175,0.005));
                put(48I,(0.0175,-0.025,-0.005));
                put(51I,(0.0225,-0.02,0.005));
                put(55I,(0.015,-0.0175,0.02));
                put(59I,(0.0025,-0.0175,0.005));
                put(62I,(0.015,-0.0125,0.0));
                put(65I,(0.025,-0.01,0.005));
                put(69I,(0.02,0.0,0.015));
                put(75I,(0.0,0.015,0.005));
                put(85I,(-0.035,0.0,-0.005));
                put(90I,(-0.02,-0.0175,0.0125));
                put(95I,(0.0025,-0.0075,0.01));
                put(100I,(0.025,0.0,0.0));

                100I/(0.005,0.0,-0.015)/69I;
                95I/(-0.005,-0.01,0.01)/40I;
                85I/(0.005,0.0,-0.005)/30I;
                62I/(0.0,-0.005,-0.02)/55I;
                55I/(0.0025,0.0,0.015)/45I;
		}
	} # tie procedure

	untie{
		{
		}
	} # untie procedure
} # Kathy's knot


knot {
        name = "Cola de Puerco"; # name to be displayed

	environment(
		background_color = (0,0,0);
		gravity = (0.0,0.0,0.0);
		light_color = (255,255,255);
		light_direction = (0.6,-0.8,0.0););

	tie{
		{
                put(5H,(-0.06,0.0,0.0));
                put(15H,(0.015,0.0,0.0));
                put(20H,(0.041,-0.021,-0.0075));
                put(30H,(-0.027,-0.03,-0.0075));
                put(36H,(-0.038,0.0,0.015));
                put(43H,(-0.027,0.0,-0.015));
                put(50H,(-0.018,0.0,0.015));
                put(57H,(-0.0075,0.0,-0.015));
                put(64H,(0.0,0.0,0.015));
                put(71H,(0.0075,0.0,-0.015));
                put(78H,(0.015,0.0,0.015));
                put(85H,(0.023,0.0,-0.015));
                put(90H,(0.027,-0.018,0.037));

                36H/(0.0,0.0,0.015)/8H;
                50H/(0.015,0.0,0.0)/36H;
                64H/(0.015,0.0,0.0)/50H;
                78H/(0.015,0.0,0.0)/64H;
                40H/(-0.0075,0.03,0.0)/47H;
                54H/(0.0075,0.03,0.0)/47H;
                68H/(0.0075,0.03,0.0)/61H;
                82H/(0.0075,0.03,0.0)/75H;
                82H/(-0.0075,0.03,0.0)/89H;
                100H/(0.075,0.0,0.0)/13H;
                13H/(0.1,0.0,0.0)/0H;
                16H/(0,0,0.015)/85H;
                19H/(0.015,0,0)/88H;
                78H/(0,0,0.015)/16H;
		    }

                {
                100H/(0.12,0.0,0.0)/13H;
                90H/(0.15,0.0,0.0)/0H;
                15H/(-0.01,0.02,0.0)/30H;
                21H/(0.01,0,0)/86H;
                40H/(-0.005,0.02,0.0)/47H;
                54H/(0.005,0.02,0.0)/47H;
                68H/(0.005,0.02,0.0)/61H;
                82H/(0.005,0.02,0.0)/75H;
                82H/(0.01,0.0,0.0)/68H;
                68H/(0.01,0.0,0.0)/54H;
                54H/(0.01,0.0,0.0)/40H;
                }
	} # tie procedure

	untie{
		{
		}
	} # untie procedure
} # Cola de Puerco


knot {
	name = "three short ropes"; # name to be displayed

	environment(
		background_color = (0,0,0);
		gravity = (0.0,0.0,0.0);
		light_color = (255,255,255);
		light_direction = (0.6,-0.8,0.0););

	tie{
		{
                put(0E,(-0.07,0.0,0.0));
                put(2E,(-0.03,0.0,0.0));
                put(0F,(-0.03,0.1,0.0));
                put(10F,(0.02,0.1,0.0));
                put(0G,(0.02,0.0,0.0));
                put(1G,(0.07,0.0,0.0));
		}

		{
                put(0E,(-0.07,0.0,0.0));
                put(2E,(-0.03,0.0,0.0));
                put(0F,(-0.03,0.0,0.1));
                put(10F,(0.02,0.0,0.1));
                put(0G,(0.02,0.0,0.0));
                put(1G,(0.07,0.0,0.0));
		}

		{
                0F/(0.0,0.0,0.025)/1E;
                0G/(0.0,0.0,0.055)/10F;
                0G/(0.0050,0.0,0.0)/2E;
		}

                {
                put(0E,(-0.03,0.0,0.0));
                put(2E,(-0.07,0.0,0.0));
                put(0F,(-0.03,-0.01,0.0));
                put(10F,(0.02,-0.01,0.0));
                put(0G,(0.07,0.0,0.0));
                put(1G,(0.02,0.0,0.0));
		}
	} # tie procedure

	untie{	} # untie procedure

} # three short ropes