+module RailProfile(lslop=0.1){
+ yt_base = thinbox_front_z;
+ yt = yt_base - lid_rail_behindslop;
+ pegx = (lid_inner_w_nom - patbox_centres)/2;
+ sw = lid_rail_strongwall;
+
+ polygon([[-lslop, yt],
+ [pegx - peg_main_dia/2, yt],
+ [pegx - peg_main_dia/2, yt_base - peg_straight_len],
+ [sw,
+ yt_base - peg_straight_len - (pegx - peg_main_dia/2)/peg_slope
+ +sw],
+ [sw,
+ lid_seatline_h - 1],
+ [-lslop,
+ lid_seatline_h - 1]]);
+}
+