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;
  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 Hotel();