/* sanchor - august 2001 - by Macfly */
/* c3d3 server anchor interface */

/* Definition de l'ancre */
typedef Anchor=
  objAnchor [S I] |
  posAnchor [S [I I I] [I I I]]
;;

/* return H3d name and HMat3d name from anchor text */
fun ANCHOR_TextGetObjNameMatName (anchortext) =
  if (nth_char anchortext 0)=='# then
    let tl hd strextr anchortext -> [obj [mat _]] in
      [obj mat]
  else
    [nil nil]
;;

/* return H3d and HMat3d from anchor text */
fun ANCHOR_TextGetObjMat (anchortext, session) =
  let ANCHOR_TextGetObjNameMatName anchortext -> [oname mname] in
    [(M3getObj session oname) (M3getMat session mname)]
;;