! Document name: window1

! name         : window1
! written by   : Juhasz
! intern. macro: -
! -- internal macro -- !

pars "width,height,frame depth,frame thickness"
addx -a/2
prism_ 11,c,
    0,0,15,
    0,b,15,
    a,b,15,
    a,0,15,
    d,0,0,
    d,d,15,
    a-d,d,15,
    a-d,b-d,15,
    d,b-d,15,
    d,d,0,
    d,0,13
del top
end