! Document name: ╡Pariovi1

! ╡Pariovi1
! (c) M.A.D. Severi Virolainen 910608

prism 8,d,
      -a/2,  0,
      -a/2,  b,
       a/2,  b,
       a/2,  0,
       a/2-c,0,
       a/2-c,b-c,
      -a/2+c,b-c,
      -a/2+c,0
if e<=0 then 30
prism 4,d,
      -a/2+c,0,
      -a/2+c,e,
       a/2-c,e,
       a/2-c,0
30:
gosub 50
mulx -1
gosub 50
del top
end

50:
add a/2-c,e,0
roty -90-f
block g,b-c-e,a/2-c
if h<=0 then 60
set material h
add g/2,i,a/2-c-0.17
gosub 70
mulx -1
gosub 70
set material m_
60:
del top
return
end

70:
addx g/2+0.03
block 0.01,0.02,0.12
del 1
return
end