/* Vierendeel ligger */

/* Dit script staat ook bij de BSc2 downloads!! */

// instelbare variabelen
float $ligger_lengte = 16; // totale lengte
float $ligger_hoogte = 1; // totale lengte
float $aantal_segmenten = 10; // aantal onderverdelingen
float $buis_radius = 0.1; // radius van de hoofdbuizen
float $dwarsbuis_radius = 0.06; // radius van de dwarsbuizen

// overige variabelen
float $segment_lengte = $ligger_lengte/$aantal_segmenten;
int $i;
string $name;
string $curvename;
string $lines[] = {}; // be sure to have an empty array

// profiel curve voor de onder en boven buis van de vierendeel ligger
string $buisprofiel[] = `circle -c 0 0 0 -nr 1 0 0 -r $buis_radius -name "BuisProfiel"`;

// profiel curve voor de dwarsverbindingen
string $dwarsprofiel[] = `circle -c 0 0 0 -nr 1 0 0 -r $dwarsbuis_radius -name "dwarsProfiel"`; 


/* Aanmaken van de hoofdbuizen */

// paden voor de onderste en bovenste buis
string $onderste_buis = `curve -degree 1 -p 0 0 0 -p $ligger_lengte 0 0`;
string $bovenste_buis = `curve -degree 1 -p 0 $ligger_hoogte 0 -p $ligger_lengte $ligger_hoogte 0`;

// NURBS extrusies
extrude -et 2 -po 0 -fpt 1 -ucp 1 -upn 1 -rsp 1 $buisprofiel[0] $onderste_buis;
extrude -et 2 -po 0 -fpt 1 -ucp 1 -upn 1 -rsp 1 $buisprofiel[0] $bovenste_buis;


/* Maak de dwarsverbindingen */

// pad curves
for ( $i=0; $i<=$aantal_segmenten; $i++ ) {
	// use the name of the curve; store string value in $name.
	$name = `curve -d 1 -p ($i*$segment_lengte) 0 0 -p ($i*$segment_lengte) $ligger_hoogte 0`;
	// store the name in the array $lines. $i is used as the index number.
	$lines[$i] = $name;
}

// NURBS extrusies
for ( $curvename in $lines ) {
	extrude -et 2 -po 0 -fpt 1 -ucp 1 -upn 1 -rsp 1 $dwarsprofiel[0] $curvename;		
}