[
    "Ce text est normal"
    #bold
        "Ce texte est gras"
        italic "Ce texte est gras et italique"
        "Ce texte est seulement gras"
    /bold
    "Ce text est normal"
]

[
    #bold
        #font [style [bold italic]]
            "Mon beau sapin, roi des forêts"
            "Que j'aime ta verdure !"
            "Quand par l'hiver, bois et guérets"
            "Sont dépouillés de leurs attraits"
            "Mon beau sapin, roi des forêts"
            "Tu gardes ta parure."
        /font

        "Toi que Noël planta chez nous"
        "Au saint anniversaire,"
        "Mon beau sapin, comme il est doux"
        "De te voir briller par nous,"
    /bold

    "Mon beau sapin tes verts sommets"
    "Et leur fidèle ombrage"
    "De la foi qui ne ment jamais"
    "De la constance et de la paix."
    "Mon beau sapin tes verts sommets"
    "M'offrent la douce image."

bold "c'est en gras" italic " et en italique," no-bold " puis seulement en italique." no-italic " Et là c'est normal."

b "c'est en gras" i " et en italique," nb " puis seulement en italique." ni " Et là c'est normal."

 RTD: [
  font "Arial" 15 bold
  "Le bon dialecte TMD existe t'-il ?" return return
  no-bold 12
  "Tel est la question !" return
]
; Donnera en code Draw
Draw: [
  pen 0.0.0
  font make object! [...]    ; police "Arial" taille 15 en gras
  text 2x2 "Le bon dialecte TMD existe t'-il ?"
  font make object! [...]    ; police "Arial" taille 12
  text 2x38 "Tel est la question !"
]

[
    "Mon beau sapin, roi des forêts"
    bold [
        font "Verdana" "Que j'aime ta verdure !"
        "Quand par l'hiver, bois et guérets"
    ]
    {Sont dépouillés de leurs attraits
    Mon beau sapin, roi des forêts
    Tu gardes ta parure.}
]

[
    "Mon beau sapin, roi des "
    italic ["forêts"
        bold [
            font "Verdana" "Que"
        ]
    ]
    bold [" j'aime ta verdure !"
        "Quand par l'hiver, bois et guérets"
    ]
    {Sont dépouillés de leurs attraits
    Mon beau sapin, roi des forêts
    Tu gardes ta parure.}
]

[
    "Mon beau sapin, roi des forêts"
    #bold 
        font "Verdana" "Que j'aime ta verdure !"
        "Quand par l'hiver, bois et guérets"
    /bold
    {Sont dépouillés de leurs attraits
    Mon beau sapin, roi des forêts
    Tu gardes ta parure.}
]

[
    "Mon beau sapin, roi des "
    #italic "forêts"
    #bold 
    #font "Verdana" "Que"
    /italic " j'aime ta verdure !"
    /font
    "Quand par l'hiver, bois et guérets"
    /bold
    {Sont dépouillés de leurs attraits
    Mon beau sapin, roi des forêts
    Tu gardes ta parure.}
]

do-thru http://membres.lycos.fr/didec/rebsite/styles/rtd-style/rtd-styles.r
do-thru http://membres.lycos.fr/didec/rebsite/styles/rtd-style/rtd-style-doc.r

Attention, les string! se glissent facilement dans la rimaie des écrins.

Dans ce cas, il faut suivre la voie du dôme toujours bien tracée jusqu'au début de la traversée finale. On se trouve alors à l'aplomb du couloir. Attention, la rimaye peut-être parfois difficile. Remonter le couloir puis suivre les arêtes jusq'au sommet. A la descente, restez bien sur le fil de l'arête pour éviter les chutes intempestives. Plusieurs rappels sont nécessaires puis il faut quitter le fil et emprunter un chemin très instables et arriver au dessus de la brêche.

Ce n'est que là que la victoire peut s'obtenir à l'arraché et découvrir ce que les string! nous cachent si peu.

; define constants section 
; usage of values in dialect are prohibited, define them as constant before use. 

b: cons ['bold]
i: cons ['italic]
u: cons ['underline]
police: cons ['police]
no: cons ['no]
tuple: cons [tuple!]
integer: cons [integer!]
string: cons [string!]

; rules and sub rules
; All words in capital letters are reserved words
           
my-grammar: [
	PUSH  ;to make all following font settings locals
		any [
			 police FONT-NAME string 
			| FONT-COLOR tuple
			| FONT-SIZE integer  
			| b BOLD | i ITALIC | u UNDERLINE
			| no [b NO-BOLD | i NO-ITALIC | u NO-UNDERLINE]
		] 
                TEXT string
	POP ;to delete current font settings and get the previous
]

my-grammar ;last instruction return the global parser block.