Linienbegleitende Texte

Mit dem Pseudoattribut $baselineID können die Zeichen eines Textelements entlang des Verlaufs eines Stringelements gezeichnet werden. Dazu muß das Pseudoattribut auf die ID des Stringelements gesetzt werden. Mit dem folgenden Befehl erhält $baselineID des geöffneten Textelements zum Beispiel die ID 0d6488912f7ded58:

    Attr( db_GetElement() ->$baselineID 0d6488912f7ded58)

Die ID des Stringelements wird dabei permanent gemacht und ändert daher ihren Wert, wenn sie nicht bereits vorher permanent war. Nach einem Redraw wird der Text dann linienbegleitend gezeichnet. Das folgende kurze Skript demonstriert eine interaktive Anwendung, bei der zuerst das Stringelement und dann das Textelement identifiziert werden und letzteres automatisch linienbegleitend gesetzt wird.

Begin

  Echo /save

  Echo /nostop

  ! ************************************************************************

  ! Textelement linienbegleitend zu einem Stringelement setzen.

  ! 1. Identifizieren des Stringelements

  ! 2. Identifizieren des Textelements

  ! ************************************************************************

  Declare id ptr res

  Echo Basislinie identifizieren

  IdentifyElement /nomarker

%%input

  Value( id DBquery( $id from open string /noq))

  c_if "m_lt( 1 s_strlen( Value( id)))"

    Echo Text identifizieren

    IdentifyElement /nomarker

%%input

    Value( ptr DBquery( $pointer from open text /noq))

    c_if "m_lt( 1 s_strlen( Value( ptr)))"

      Value( res Attr( Value( ptr) ->$baselineID Value( id)))

      c_if "m_ne( 0 Value( res))"

        Echo Attribut $baselineID konnte nicht gesetzt werden

      c_endIf

    c_else

      Echo kein Text

    c_endIf

  c_else

    Echo keine Basislinie

  c_endIf

  Clear

  Redraw

  Echo /restore

End