$
$*********************************************      basics
$
&title Test of The Panel & Piece String Functions
&dimen -dimen feet kips
&device -oecho no -g_default dev
$
$*********************************************      read model
$
inmodel
$
$*********************************************      curve status
$
look cow
$
$*********************************************      compartment pie status
$
&status piece
$
$*********************************************      panel sfun
$
&type Panel String Function
&type =====================
&type
&loop action  ('E_POINTS','E_COORDI','AREA    ','NORMAL  ','PERIMETER',\
               'G_CENTRO'  )
   &loop p ( p01 p10 p40 )
       &set first =  Panel &format(a8 %p) &format(a8 %action)
       &set sec   = &Panel(%action %p)
       &type %first %sec
   &endloop
&endloop
$
$*********************************************      piece sfun
$
&type Piece String Function
&type =====================
&type
&loop action  ('CURRENT ','PANELS  ','DIFTYPE ','PERMEABI','CS_WIND ', \
                         'CS_CURR ','AMASS   ','LOCATION','OBSTACLE' )
    &loop piece ( test cow )
       &set first = Piece &format(a8 %piece ) &format(a8 %action)
       &type %first &Piece(%action %piece )
    &endloop
&endloop
$
$*********************************************      &pict sfun
$
&pict
&type PIC_INFO String Function
&type =====================
&type
&loop action  ( 'SEGMENT ','FAMILY  ','NAME    ','PARENT  ','PIECE   ' \
                'PART    ','BODY    ','V_COORDI','V_NAMES ','RATIO   ' \
                'INTENSIT','CDR     ')
    &set first = &format(a8 %action)
    &type %first &PIC_INFO(40 %action )
&endloop
$
$*********************************************      all done
$
&fini
