Initial implementation in K by Eric Newhuis. See the discussion on the K listbox.
Revised to use the K plot widget:
\l gbox
rule:|(8#2)_vs
sheet:{[r;s]{r[2_sv 3#x _0,s,0]}'!#s}
cyl:{[r;s]{r[2_sv 3#x _(*-1#s),s,*s]}'!#s}
w:gbox 200 cyl[rule 90]\200#1 0 1
w..c:`plot
`show$`w;