gbox:{(,/(7#,,:'&2){x,,y}/:(0 0 1 1 0;0 1 1 0 0)+/:,/(!#x),/:'&:'x),,,:'-1+^x}
vbox:{(,/(7 2#,!0){x,,y}/:(0 0 1 1 0;0 1 1 0 0)+/:+y _vs x),,,:'2#|/y}

\

p:gbox m:100 100_draw 2
v:vbox[&,/m;^m]
v..c:p..c:`plot
`show$'`p`v;