####################################################################
#
# Name:         wheels.scl
# Author:       Tim Jacobs
#               July 26, 1996
# Description:  Wheel set for train car
#
####################################################################

{
    wheelradius = 0.75;
    wheelflange = 0.10;
    wheelwidth = 0.4;
    wheelflangewidth1 = 0.05;
    wheelflangewidth2 = 0.07;
    axleradius = 0.1;
    axlelength = 3.7;
    wheeloffset = 0.27;

    Xoffset = axlelength/2 - wheeloffset - wheelwidth;

    wheelprofile = roundPolyline ( polyline( pt( Xoffset, axleradius, 0 ),
					      pt( Xoffset, 
						  wheelradius + wheelflange, 
						  0 ),
					      pt( Xoffset + wheelflangewidth1, 
						  wheelradius + wheelflange,
						  0 ),
					      pt( Xoffset + wheelflangewidth2, 
						  wheelradius, 
						  0 ),
					      pt( Xoffset + wheelwidth,
						  wheelradius - wheelradius/40,
						  0 ),
					      pt( Xoffset + wheelwidth, 
						  axleradius, 
						  0 ) ), 
				    0.02 );
   
    axleprofile1 = profile( pt( axlelength/2, axleradius, 0 ),
			    pt( Xoffset + wheelwidth, axleradius, 0 ) );
    axleprofile2 = profile( pt( Xoffset, axleradius, 0 ),
			    pt( 0, axleradius, 0 ) );

    wheelsetprofile1 = crvConcat( array( axleprofile1, 
					reverseObj( wheelprofile ),
					axleprofile2 ),
				 3 );
    wheelsetprofile2  = reverseObj( objTransform( wheelsetprofile1, 
						      { ry( 180 ) } ) );

    wheelsetprofile = crvConcat( array( wheelsetprofile1, wheelsetprofile2 ),
			     3 );

    wheelset = srfOfRevolution( xaxis, wheelsetprofile, true );

}


setSq( wheelset, "BrassSurface" );
setColor( wheelset, "Copper" );