$
$****************************************       begin
$
&device -pri device 
inmodel
$
$****************************************       pictures
$
&title Plate with Hole
&subtitle Original Mesh
&selec :p -sel *a@ *b@ *c@ *d@ *e@ *f@ **R@ 
$
$****************************************       do a picture 
$
&pict top -type struct -poin :p -ano poin -render fill
$
$****************************************       summary
$
&summ
    plate
    cat
end
$
$****************************************       all done 
$
&fini