chiark / gitweb /
treefoi: more
[reprap-play.git] / hotel-piece-model.scad
1 // -*- C -*-
2
3 h = 15;
4 w = 20;
5 l = 30;
6 roof = 10;
7 eave = 1;
8 peakw = 1;
9 overhang = 3.0;
10 chimnd= 7;
11 chimnhr = 1.00;
12
13 $fs = 0.1;
14
15 module Hotel(){
16   cube([w,l,h + 0.1]);
17   hull(){
18     translate([0,0, h] + overhang * [-1,-1,0])
19       cube([w,l,eave] + overhang * [2,2,0]);
20     translate([0,0, h] + overhang * [0,-1,0]
21               + (w-peakw) * 0.5 * [1,0,0])
22       cube([peakw, l, roof] + overhang * [0,2,0]);
23   }
24   translate([w/4, l/2, h] + overhang * [-0.5, 0,0])
25     cylinder(r= chimnd/2, h = roof * chimnhr);
26 }
27
28 scale(1.11)
29 Hotel();