! Document name: s1rail

! name: stair with rail
!Pal GSCNE'91

pars "a,b,c,d"
let l=a/d
let h=c/d
!print "Riser height : ",h
addx b/2
roty -90
for i=0 to d-1
   addx h*i
   addy l*i
  prism_ 3,b,
              0,0,15,
            h,0,15,
             h,l,10
 del 2
next i

del top
addx b/2
roty -90
prism_ 4,b,
           0,0,10,
          c,a,15,
          c-h,a,15,
           0,l,15

addx 34"
addz 2 1/2"
prism_ 4,.1",
          0,0,15,
          c,a,15,
          c-2",a,15,
           -2",0,15
del 1
addz b-3 1/2"
prism_ 4,.1",
          0,0,15,
          c,a,15,
          c-2",a,15,
           -2",0,15
del 1
addx -10"
addz 2 1/2"
prism_ 4,.1",
          h/2,l/2,15,
          c-h/2,a-l/2,15,
          c-h/2-6",a-l/2,15,
           h/2-6",l/2,15
del 1
addz b-3 1/2"
prism_ 4,.1",
          h/2,l/2,15,
          c-h/2,a-l/2,15,
          c-h/2-6",a-l/2,15,
           h/2-6",l/2,15
del top
! right posts
addx b/2-3"
addy .5*l-1/2"
addz h
cylind 32"-h/2,1/2"
del 2
addy  a-.5*l+1/2"
addz c
cylind 32"-h/2,1/2"
del top
! left posts
addx -b/2+3"
addy .5*l-1/2"
addz h
cylind 32"-h/2,1/2"
del 2
addy  a-.5*l+1/2"
addz c
cylind 32"-h/2,1/2"
del 2
end