Return to Symbol

Determine if an Object is a Silhouette (type 201) Example

This example shows how to determine if an object is a Silhouette (type 201).

    
ENTITY/object
NUMBER/selmsk(5), objtyp, resp
$$
crsmod = &VWCURS
&VWCURS = &ANY
$$
$$ set selection masks for Silhouette (type 201)
selmsk(1) = 3
selmsk(2) = 5
selmsk(3) = 6
selmsk(4) = 9
selmsk(5) = 201
MASK/selmsk
$$
start:
$$ select object
  IDENT/'Select Silhouette', object, resp
  IF/resp <= 2, JUMP/finish:
$$
$$ test if true object type is a Silhouette (type 201)
  objtyp = &ISSIL(object, IFERR, errdo:)
  IF/objtyp == 201, JUMP/proc:
$$
  MESSG/'Did not select a Silhouette.'
  JUMP/start:
$$
errdo:
  MESSG/'Selection error.'
  JUMP/start:
$$
$$ process the Silhouette
proc:
  .
  .
  JUMP/start:
$$
finish:
  &VWCURS = crsmod
HALT