Dessin de fractales

Voici un programme que j'ai fait sur Delphi qui dessine des objets fractals.
Dans l'application, "profondeur" désigne le niveau de récursivité, pour un grand dessin entre 10 et 15.
Entrez aussi les coordonnées x y et j de la procédure pose (la position initiale de la tortue x y , pour l'angle j, l'angle dans lequel est orientée la tortue il vaut mieux j=0).
Le "langage" Logo fait dessiner un crayon (la tortue) :

• la procédure "pose" place la tortue aux coordonnées x et y et l'oriente selon un angle j ;
• la procédure "trace" fait avancer la tortue d'une longueur l ;
• la procédure "tourne" fait tourner la tortue sur elle-même d'un angle j ;
• la procédure "dragon" qui dessine la fractale est récursive car les fractales sont des formes imbriquées les unes dans les autres.