;LigatureStart
(let ((tag "LigatureStart"))
    (StandAloneDirectiveProto (cons tag "\\[  ") #f)
    (d-DirectivePut-standalone-graphic tag "\n[\nDenemo\n40")
    (d-DirectivePut-standalone-gy tag 10)
    (d-DirectivePut-standalone-display tag (_ "Ligature Start"))
    (d-RefreshDisplay)
    (d-SetSaved #f))