####################################################################
#
# Name:         ladder.scl
# Author:       Tim Jacobs
#               July 26, 1996
# Description:  Model file for a ladder
#
####################################################################

{
    ladderheight = 4.8;
    rungwidth = 0.7;
    rungdepth = 0.106;
    rungthick = 0.1;
    sidedepth = 0.11;
    sidethick = 0.12;
    rungspacing = 0.6;
}

{
sideanchor = anchor( pt( 0, 0, -sidethick + 0.002 ), xdir, ydir, zdir );
siderail = boxFromAnchor( sideanchor, ladderheight, sidedepth, sidethick );
siderail2 = objTransform( siderail, tz( rungwidth + sidethick - 0.004 ) );

runganchor = anchor( pt( 0.002, 0, 0 ), zdir, ydir, xdir );
rung = boxFromAnchor( runganchor, rungthick, rungwidth, rungdepth );


rung1 = objTransform( rung, ty( rungspacing ) );
rung2 = objTransform( rung, ty( 2 * rungspacing + rungthick ) );
rung3 = objTransform( rung, ty( 3 * rungspacing + 2 * rungthick ) );
rung4 = objTransform( rung, ty( 4 * rungspacing + 3 * rungthick ) );
rung5 = objTransform( rung, ty( 5 * rungspacing + 4 * rungthick ) );
rung6 = objTransform( rung, ty( 6 * rungspacing + 5 * rungthick ) );

ladder1 = combineShells( siderail, rung1, "+" );
ladder2 = combineShells( ladder1, rung2, "+" );
ladder3 = combineShells( ladder2, rung3, "+" );
ladder4 = combineShells( ladder3, rung4, "+" );
ladder5 = combineShells( ladder4, rung5, "+" );
ladder6 = combineShells( ladder5, rung6, "+" );
ladder = combineShells( ladder6, siderail2, "+" );
}