+module Machine_Profile(){
+ first_rear = machine_rear_profile[0];
+ first_front = machine_front_profile[len(machine_front_profile)-1];
+ below_point = 0.5 * ( first_rear + first_front ) + [ 0, -40 ];
+ pol = concat( machine_rear_profile,
+ [ below_point ],
+ machine_front_profile);
+ skew_angle = atan2( first_front[1] - first_rear[1],
+ first_front[0] - first_rear[0] );
+ echo(below_point, pol, skew_angle);
+ rotate([0,0, -skew_angle ]){
+ polygon(pol);
+ }
+}
+