Où est la tortue ?

rem ============================================================================
rem     Include_Turtle.bas
rem     Auteur : Papydall
rem ============================================================================
rem Fichier à inclure à la fin de votre code
rem Votre programme doit avoir la structure suivante:
rem ============================================================================
Init_Turtle()  : ' Indispensable
' Votre programme débute ici

end
rem ============================================================================
' Vos procédures ici
rem
rem
rem
' Fin des procédures
rem ============================================================================
' #Include "Include_Turtle.bas"
rem ============================================================================
'Voici le fichier Include_Turtle.bas
rem ############################################################################
rem ============================================================================
rem                    LES PROCEDURES DE LA TORTUE
rem ============================================================================
rem ############################################################################
rem Les variables globales Turtle_XXX sont prédéfinies pour les routines TORTUE.
rem Votre programme ne doit ni les redéfinir ni les modifier.
rem Ce sont :
rem Turtle_Xorigine,Turtle_Yorigine : coordonnées de l origine (le centre de l écran)
rem Turtle_X,Turtle_Y : coordonnées relatives de la tortue (par rapport à l origine)
rem Turtle_Heading : direction initiale du déplacement de la tortue : vers le haut
rem Turtle_PI  : la constante Pi
rem Turtle_rad : multiplicateur pour transformer les degrés en radians
rem ============================================================================
rem REMARQUE IMPORTANTE :
rem L origine des axes est le centre de la fenêtre
rem Le sens positif sur l axe des X est dirigé vers la droite (négatif vers la gauche)
rem Le sens positif sur l axe des Y est dirigé vers le haut (négatif vers le bas)
rem ============================================================================
' Initialisation de la tortue graphique
' La tortue se trouve au centre de la fénêtre et est dirigée vers le Nord (cap 0)
SUB Init_Turtle()
    dim Turtle_Xorigine,Turtle_Yorigine :' coordonnées de l'origine (le centre de l'écran)
    dim Turtle_X,Turtle_Y : ' coordonnées relatives de la tortue (par rapport à l'origine)
    dim Turtle_Heading    : ' direction initiale du déplacement de la tortue vers le haut
    dim New_Turtle_Heading: ' Nouveau cap de la tortue
    dim Turtle_PI         : ' la constante Pi
    dim Turtle_rad        : ' multiplicateur pour transformer les degrés en radians
    dim Turtle_PR, Turtle_PG, Turtle_PB : ' RGB du tracé
    dim Turtle_FR, Turtle_FG, Turtle_FB : ' RGB du fond
    dim Turtle_Flood_R, Turtle_Flood_G, Turtle_Flood_B : ' RGB du remplissage
    dim Turtle_R, Turtle_G,Turtle_B : ' RGB
    dim Turtle_Pen_Up_Down  : ' Etat du crayon (0 = baissé) ; (1 = levé)
    dim Turtle_Return_value : ' Valeur de retour d'une SUB exploitée comme une fonction
' ------------------------------------------------------------------------------
    full_space 0   : ' Utiliser tout l'écran
    Turtle_Pen_Up_Down = 0           : ' crayon baissé au départ
    Turtle_Xorigine = width(0)/2     : ' L'origine de ...
    Turtle_Yorigine = height(0)/2-20 : ' ... l'écran graphique
    Turtle_PI  = acos(-1)      : ' pi
    Turtle_Heading = Turtle_PI/2   : ' La tortue est dirigée vers le haut
    Turtle_rad = Turtle_PI/180 : ' Facteur multiplicateur pour les angles (degrés --> radians)

    Nouveau()                  : ' Pour débuter un nouveau dessin
END_SUB
rem ============================================================================
rem ============================================================================
' Pour débuter un nouveau dessin
' Effacer l'écran et remettre la tortue à sa place
' (au centre de la fenêtre et dirigée vers le nord)
SUB Nouveau()
    CouleurCrayon(255,255,255) : ' Tracé en blanc
    CouleurFond(0,0,0)         : ' Fond noir Origine()
    cls : Origine()            : ' Ramener la tortue à l'origine
END_SUB
rem ============================================================================
' Ramener la tortue à l'origine (c-à-d au centre de la fenêtre)
' Ce qui est déjà tracé n'est pas effacé.
SUB Origine()
    Turtle_X = Turtle_Xorigine : Turtle_Y = Turtle_Yorigine
    2d_poly_from Turtle_X,Turtle_Y
    New_Turtle_Heading = Turtle_Heading
END_SUB
rem ============================================================================
' Avancer de pas pixels
' Si le crayon est baissé (Pen_Down), la tortue trace un trait avec la couleur en cours
' Si le crayon est levé (Pen_Up), la tortue se déplace sans laisser de trace
' ------------------------------------------------------------------------------
' Autres syntaxes :
' AV(pas)
' Foreward(pas)
' ------------------------------------------------------------------------------
SUB Avance(pas)
    dim_local x1,y1,x2,y2,a
    x1 = Turtle_X : y1 = Turtle_Y : a  = New_Turtle_Heading
    x2 = Turtle_X + pas * cos(a)  : y2 = Turtle_Y - pas * sin(a)

    if Turtle_Pen_Up_Down = 0 : ' crayon baissé ?
       2d_poly_to x2,y2       : ' on trace le trait avec la couleur en cours
    else                      : ' crayon levé
       2d_poly_from x2,y2     : ' on se déplace sans trace
    end_if
    Turtle_X = x2 : Turtle_Y = y2  : ' Mise à jour des variables

END_SUB
rem ============================================================================
' Réculer de pas pixels
' Si le crayon est baissé (Pen_Down), la tortue trace un trait avec la couleur en cours
' Si le crayon est levé (Pen_Up), la tortue se déplace sans laisser de trace
' ------------------------------------------------------------------------------
' Autres syntaxes :
' RE(pas)
' Back(pas)
' ------------------------------------------------------------------------------
SUB Recule(pas)
    Avance(0-pas)
END_SUB
rem ============================================================================
' Tourner à gauche (sens trigonométrique) de a degrés
' ------------------------------------------------------------------------------
' Autres syntaxes :
' TG(a)
' Turn_Left(a)
' ------------------------------------------------------------------------------
SUB Gauche(a)
    New_Turtle_Heading = New_Turtle_Heading + a * Turtle_rad
END_SUB
rem ============================================================================
' Tourner à droite (sens horaire) de a degrés
' ------------------------------------------------------------------------------
' Autres syntaxes :
' TD(a)
' Turn_Right(a)
' ------------------------------------------------------------------------------
SUB Droite(a)
    New_Turtle_Heading = New_Turtle_Heading - a * Turtle_rad
END_SUB
rem ============================================================================
' Fixer le Cap de la tortue de manière absolue selon l'angle de a degrés
' Le Cap est la direction du déplacement de la tortue selon la rose du vent
' ------------------------------------------------------------------------------
' 0   c'est vers le haut (NORD)
' 90  c'est vers la droite (EST)
' 180 c'est vers le bas (SUD)
' 270 c'est vers la gauche (OUEST)
' 360 c'est identique à 000
' ------------------------------------------------------------------------------
' Autre syntaxe :
' Set_Heading(a)
' ------------------------------------------------------------------------------
SUB Cap(a)
    New_Turtle_Heading = Turtle_Heading - a * Turtle_rad
END_SUB
rem ============================================================================
' Fixer la position X de la tortue par rapport à l'origine
' Déplacement horizontal
SUB Pos_X(n)
    Turtle_X = Turtle_Xorigine + n : 2d_poly_from Turtle_X,Turtle_Y
END_SUB
rem ============================================================================
' Fixer la position Y de la tortue par rapport à l'origine
' Déplacement vertical
rem ############################################################################
rem   REMARQUE IMPORTANTE : le sens posif pour les Y est le sens vers le haut
rem ############################################################################
SUB Pos_Y(n)
    Turtle_Y = Turtle_Yorigine - n : 2d_poly_from Turtle_X,Turtle_Y
END_SUB
rem ============================================================================
' Fixer la position de la tortue
' Déplacer la tortue au point (X,Y) par rapport au centre de la
' fenêtre qui est l'origine.
' X et/ou Y peuvent être positives, négatives ou nules
SUB Position_XY(x,y)
    Turtle_X = Turtle_Xorigine + x : Turtle_Y = Turtle_Yorigine - y
    2d_poly_from Turtle_X,Turtle_Y
END_SUB
rem ============================================================================
' Tracer l'axe des X
' Si unite > 0 , l'axe sera gradué en unité, sinon l'axe ne sera pas gradué
SUB DrawAxisX(unite)
    dim i
    2d_line 0,Turtle_Yorigine,2*Turtle_Xorigine,Turtle_Yorigine
    Origine()
    for i = 0 to width(0)/2  step  unite
        Position_XY(i,0)   : AV(5) : RE(10)
        Position_XY(0-i,0) : AV(5) : RE(10)
    next i
    Position_XY(0,0) : Origine()
END_SUB
rem ============================================================================
' Tracer l'axe des Y
' Si unite > 0 , l'axe sera gradué en unité, sinon l'axe ne sera pas gradué
SUB DrawAxisY(unite)
    dim_local i
    2d_line Turtle_Xorigine,0,Turtle_Xorigine,2*Turtle_Yorigine
    Origine() : cap(90)
    for i = 0 to height(0)/2  step  unite
        Position_XY(0,i)   : AV(5) : RE(10)
        Position_XY(0,0-i) : AV(5) : RE(10)
    next i
    Position_XY(0,0) : Origine()
END_SUB
rem ============================================================================
' Tracer les 2 axes X et Y
' Si unite > 0 , les axes seront gradués en unité, sinon ils ne seront pas gradués
SUB DrawAxis(unite)
    DrawAxisX(unite) : DrawAxisY(unite)
END_SUB
rem ============================================================================
' Tracer un grille
SUB Grille(unite)
    dim_local i
    for i = 0 to width(0)/2  step  unite
        2d_line 0,Turtle_Yorigine-i,2*Turtle_Xorigine,Turtle_Yorigine-i
        2d_line 0,Turtle_Yorigine+i,2*Turtle_Xorigine,Turtle_Yorigine+i
    next i
    for i = 0 to width(0)/2  step  unite
        2d_line Turtle_Xorigine+i,0,Turtle_Xorigine+i,2*Turtle_Yorigine
        2d_line Turtle_Xorigine-i,0,Turtle_Xorigine-i,2*Turtle_Yorigine
    next i
END_SUB
rem ============================================================================
' On modifie l'état du crayon
' Lever le stylo : le déplacement de la tortue ne laisse pas de trace
' ------------------------------------------------------------------------------
' Autres syntaxes :
' LC()
' Pen_UP()
' ------------------------------------------------------------------------------
SUB LeveCrayon()
    Turtle_Pen_Up_Down = 1
END_SUB
rem ============================================================================
' On modifie l'état du crayon
' Baisser le stylo : le déplacement de la tortue laisse une trace
' ------------------------------------------------------------------------------
' Autres syntaxes :
' BC()
' Pen_Down()
' ------------------------------------------------------------------------------
SUB BaisseCrayon()
    Turtle_Pen_Up_Down = 0
END_SUB
rem ============================================================================
' Fixer la couleur du tracé
' ------------------------------------------------------------------------------
' Autres syntaxes :
' CC(r,g,b)
' Set_Pen_Color(r,g,b)
' ------------------------------------------------------------------------------
SUB CouleurCrayon(r,g,b)
    Turtle_PR = R : Turtle_PG = G :Turtle_PB = B
    2d_pen_color Turtle_PR, Turtle_PG, Turtle_PB
END_SUB
rem ============================================================================
' Fixer la couleur du fond
' ------------------------------------------------------------------------------
' Autres syntaxes :
' CF(r,g,b)
' Set_BG_Color(r,g,b)
' ------------------------------------------------------------------------------
SUB CouleurFond(r,g,b)
    Turtle_FR =  R :  Turtle_FG = G :  Turtle_FB = B
    color 0, Turtle_FR, Turtle_FG, Turtle_FB
END_SUB
rem ============================================================================
' Gomme : La tortue efface tous les traits qu’elle rencontre
' ------------------------------------------------------------------------------
' Autres syntaxes :
' GO()
' Pen_Erase()
' ------------------------------------------------------------------------------
SUB Gomme()
    2d_pen_color Turtle_FR, Turtle_FG, Turtle_FB
END_SUB
rem ============================================================================
' Inverser la couleur du crayon
' ------------------------------------------------------------------------------
' Autres syntaxes :
' IC(_
' Pen_Invert()
' ------------------------------------------------------------------------------
SUB InverseCrayon()
    2d_pen_color 255 - Turtle_PR, 255 - Turtle_PG, 255 - Turtle_PB
END_SUB
rem ============================================================================
' Remplissage de la zone où se trouve la tortue avec la couleur transmise en
' paramètres r,g,b
' ------------------------------------------------------------------------------
' Autres syntaxes :
' CO(r,g,b)
' Pen_Paint(r,g,b)
' ------------------------------------------------------------------------------
SUB Colorie(r,g,b)
    Turtle_Flood_R = R :  Turtle_Flood_G = G : Turtle_Flood_B = B
    2d_flood Turtle_X, Turtle_Y, Turtle_Flood_R, Turtle_Flood_G, Turtle_Flood_B
END_SUB
rem ============================================================================
' Tracer un cercle de rayon r centré à la position de la tortue
' Autres syntaxes :
' ------------------------------------------------------------------------------
' DI(r)
' Draw_circle(r)
' ------------------------------------------------------------------------------
SUB Disque(r)
    2D_FILL_OFF : 2d_circle Turtle_X,Turtle_Y,r
END_SUB
rem ============================================================================
' Tracer une ellipse de demi-axes Rx et Ry centrée à la position de la tortue
' Autres syntaxes :
' ------------------------------------------------------------------------------
' OV(Rx,Ry)
' Draw_Ellipse(Rx,Ry)
' ------------------------------------------------------------------------------
SUB Ovale(Rx,Ry)
    dim_local i,x,y
    2d_poly_from Turtle_X + Rx, Turtle_Y
    for i = 0 to 360
        x = Turtle_X + Rx*cos(i*Turtle_Rad) : y = Turtle_Y + Ry*sin(i*Turtle_Rad)
        2d_poly_to x,y
    next i
END_SUB
rem ============================================================================
' Le cercle orthoptique de l'ellipse est l'ensemble des points qui "regardent"
' l'ellipse suivant un angle droit, c-à-d dont partent deux tagentes à l'ellipse
' perpendiculaires.
' Ce cercle a le même centre que l'ellipse et son rayon vaut sqr(Rx*Rx + Ry*Ry)
' ------------------------------------------------------------------------------
' Autre syntaxe :
' Draw_Orthoptic_Circle(Rx,Ry)
' ------------------------------------------------------------------------------
SUB Cercle_Orthoptique(Rx,Ry)
    dim_local r
    r = sqr(Rx*Rx + Ry*Ry)
    2D_FILL_OFF : 2d_circle Turtle_X,Turtle_Y,r
END_SUB
rem ============================================================================
' Calculer la distance entre le centre de l'ellipse et l'un de ses foyers
SUB Distance_Centre_Ellipse_O_Foyer(Rx,Ry)
    Turtle_Return_value = sqr(abs(Rx*Rx - Ry*Ry))
END_SUB
rem ============================================================================
' Calculer l'excentricité de l'ellipse.
' L'exentricité de l'ellipse exprime l'écart de forme entre l'ellipse et le
' cercle parfait dont l'excentricité est nulle.
SUB Excentricite_Ellipse(Rx,Ry)
    dim_local c,e
    Distance_Centre_Ellipse_O_Foyer(Rx,Ry) : c = Turtle_Return_value : e = c/Rx
    Turtle_Return_value = e
END_SUB
rem ============================================================================
rem ############################################################################
' Routines en abrégé
rem ============================================================================
SUB AV(pas)
    Avance(pas)
END_SUB
rem ============================================================================
SUB RE(pas)
    Recule(pas)
END_SUB
rem ============================================================================
SUB TG(a)
    Gauche(a)
END_SUB
rem ============================================================================
SUB TD(a)
    Droite(a)
END_SUB
rem ============================================================================
SUB LC()
    LeveCrayon()
END_SUB
rem ============================================================================
SUB BC()
    BaisseCrayon()
END_SUB
rem ============================================================================
SUB CC(r,g,b)
    CouleurCrayon(r,g,b)
END_SUB
rem ============================================================================
SUB CF(r,g,b)
    CouleurFond(r,g,b)
END_SUB
rem ============================================================================
SUB GO()
    Gomme()
END_SUB
rem ============================================================================
SUB IC()
    InverseCrayon()
END_SUB
rem ============================================================================
SUB CO(r,g,b)
    Colorie(r,g,b)
END_SUB
rem ============================================================================
SUB DI(r)
    Disque(r)
END_SUB
rem ============================================================================
SUB OV(Rx,Ry)
    Ovale(Rx,Ry)
END_SUB
rem ============================================================================

' Anglais

rem ============================================================================
rem ############################################################################
rem ============================================================================

SUB Forward(pas)
    Avance(pas)
END_SUB
rem ============================================================================
SUB Back(pas)
    Recule(pas)
END_SUB
rem ============================================================================
SUB Turn_Left(a)
    Gauche(a)
END_SUB
rem ============================================================================
SUB Turn_Right(a)
    Droite(a)
END_SUB
rem ============================================================================
SUB Set_Heading(a)
    Cap(a)
END_SUB
rem ============================================================================
SUB Pen_Up()
    LeveCrayon()
END_SUB
rem ============================================================================
SUB Pen_Down()
    BaisseCrayon()
END_SUB
rem ============================================================================
SUB Set_Pen_Color(r,g,b)
    CouleurCrayon(r,g,b)
END_SUB
rem ============================================================================
SUB Set_BG_Color(r,g,b)
    CouleurFond(r,g,b)
END_SUB
rem ============================================================================
SUB Pen_Erase()
    Gomme()
END_SUB
rem ============================================================================
SUB Pen_Invert()
    InverseCrayon()
END_SUB
rem ============================================================================
SUB Pen_Paint(r,g,b)
    CO(r,g,b)
END_SUB
rem ============================================================================
SUB Draw_circle(r)
    Disque(r)
END_SUB
rem ============================================================================
SUB Draw_Ellipse(Rx,Ry)
    Ovale(Rx,Ry)
END_SUB
rem ============================================================================
SUB Draw_Orthoptic_Circle(Rx,Ry)
    Cercle_Orthoptique(Rx,Ry)
END_SUB
rem ============================================================================
rem ############### FIN DU FICHIER #############################################
rem ============================================================================