#!/usr/bin/perl

# SCALING FACTOR

$scale=0.25;

$absent=0;
$stelarc=0;
$obsolete=0;
$ampbod=0;
$third=0;
$count=0;
open (LOGS, "/www/opt/apache/logs/stelarc.va.com.au-access_log");
while ($entry=<LOGS>) {
if ($entry=~m|stelarc/absent/absent.html|) {
	$absent++;
	}
if ($entry=~m|stelarc/obsolete/obsolete.html|) {
	$obsolete++;
	}
if ($entry=~m|stelarc/ampbod/ampbod.html|) {
	$ampbod++;
	}
if ($entry=~m|stelarc/third/third.html|) {
	$third++;
	}
if ($entry=~m|stelarc|) {
	$stelarc++;
	}
$count++;
}
close (LOGS);

if ($stelarc>2000) {
	$stelarc=$stelarc=1500;
	}

$absent=1+($absent*$scale);
$obsolete=1+($obsolete*3*$scale);
$ampbod=1+($ampbod*$scale);
$third=1+($third*$scale);
$colour=$stelarc/2000;
$colour=substr($colour,0,4);
$green=1-$colour;


print "Content-Type: x-world/x-vrml\r\n";
print "\r\n";

print<<EOF;
#VRML V1.0 ascii

DEF BackgroundImage Info  { #SEPARATOR HERE HANGS WRL
#string "cloud.gif"
}
USE BackgroundImage

PerspectiveCamera { 
position	0 -1 10
orientation 	0 0 -1 0
focalDistance	5
heightAngle	.785
} #PerspectiveCamera	

SpinGroup {
    rotation 0  1  $colour   0.02   
    local  TRUE

Material { 
		diffuseColor $colour  $colour  $green       
   #above increment first & 3rd val  .005 for each site visit
   #decrement 2nd val .005 for each site visit
		ambientColor .1  0  .3
		specularColor .6 .6 .6
		emissiveColor .5 0 0
		shininess  .8
		transparency  0
} #WHAT COLOUR

Separator { 
Transform { 
translation  0  4.0  0  
scaleFactor  1  1.4  1   
}
Sphere { radius .6 }
}

Separator { 
Transform { 
translation  0  3.0  0  
scaleFactor  $absent  1.5  1  
}
Sphere { radius .4 }
}

Separator { 
Transform { 
translation  0  2.0  0  
scaleFactor  $obsolete  1  .8  
}
Sphere { radius .9 }
}

DEF SHOULDER Separator { 
Transform { 
translation  1.4  2.0  0  
rotation  0  0  1  .785
scaleFactor  1  2.2  1  
}
Sphere { radius .4 }
}

Separator { 
Transform {  
translation -2.8  0  0
rotation  0  0  1  1.57
scaleFactor  1  1  1  
center 1.4  2.0  0  
} 
USE  SHOULDER
}

DEF BICEP Separator { 
Transform { 
translation  1.6  1.5  0  
rotation  0  0  1  .785
scaleFactor  1  2.4  1 
}
Sphere { radius .4 }
}

Separator { 
Transform { 
translation  -3.2  0  0  
rotation  0  0  1  1.57
scaleFactor  1  1  1  
center  1.6  1.5  0
}
USE BICEP
}

DEF LOWERARM Separator { 
Transform { 
translation  2.3  .7  0  
rotation  0  0  1  .785
scaleFactor  1  3.5  1 
}
Sphere { radius .35 }
}

Separator { 
Transform { 
translation  -4.6  0  0  
rotation  0  0  1  1.57
scaleFactor  1  1  1  
center  2.3  .7  0 
}
USE LOWERARM
}

DEF HAND Separator { 
Transform { 
translation  3.3  -.2  0  
rotation  0  0  1  .785
scaleFactor  1  1.5  .5  
}
Sphere { radius .30 }
}

Separator { 
Transform { 
translation  -6.6  0  0  
rotation  0  0  1  1.57
scaleFactor  $third  1  1  
center  3.3  -.2  0 
}
USE HAND
}

Separator { 
Transform { 
translation  0  1  0 
scaleFactor  1  1.5  .7 
}
Sphere { radius .9 }
}

Separator { 
Transform { 
scaleFactor  1  1  .7  
}
Sphere { radius .9 }
}

DEF THIGH Separator { 
Transform { 
translation  .8  -1.5  0  
rotation  0  0  1  .2
scaleFactor  1  3.5  1  
}
Sphere { radius .6 }
}

Separator { 
Transform { 
translation  -1.6  0  0  
rotation  0  0  1  2.74
scaleFactor  1  1  1  
center  .8  -1.5  0 
}
USE THIGH
}

DEF CALF Separator { 
Transform { 
translation  1.3  -4.5  0  
rotation  0  0  1  .1
scaleFactor  1  3.5  1  
}
Sphere { radius .5 }
}

Separator { 
Transform { 
translation  -2.6  0  0  
rotation  0  0  1  2.94
scaleFactor  1  1  1  
center 1.3  -4.5  0 
}
USE CALF
}

DEF FOOT Separator { 
Transform { 
translation  1.4  -6.3  .4  
rotation  1  0  0  1.57  
scaleFactor  $ampbod  2.0  .7   
}
Sphere { radius  .4 }
}

Separator { 
Transform { 
translation  -2.8  0  0 
rotation  1  0  0  0  
scaleFactor  1  1  1  
center  1.4  -6.3  .4 
}
USE FOOT
}
} 
EOF