Mobdification de Courbe en CourbeDat dans gdd.mp, ajout des variable gddXlabel et...

[mp-gdd.git] / gdd.mp

diff --git a/gdd.mp b/gdd.mp
index 4cd4fe2..bf6bfb2 100644 (file)
--- a/gdd.mp
+++ b/gdd.mp
@@ -174,7 +174,7 @@ vardef Chemin (expr p) =
 enddef;
 
 % Courbe -----------------------------------------------------------------------
-vardef Courbe (expr s) =
+vardef CourbeDat (expr s) =
     gddT[incr gddO] = "courbe"; gddS[gddO] = s; gddO
 enddef;
 
@@ -224,7 +224,8 @@ def gddTraceObjet expr o =
   elseif gddT[o] = "chemin":
     gddP[o]
   elseif gddT[o] = "courbe":
-    gddTraceCourbe (gddS[o] & ".dta")
+    %message "This is a debug message.";
+    gddTraceCourbe (gddS[o] & ".dat")
   fi
 enddef;
 
@@ -261,7 +262,7 @@ gddTailleLabel  := 1.5;              % Taille d'un label.
 
 
 def gddPointe(expr p) =
-  fill (fullcircle scaled gddTaillePoint) shifted (p gddEnPlace) 
+  fill (fullcircle scaled gddTaillePoint) shifted (p gddEnPlace)
     withcolor gddCouleurPoint;
   draw (fullcircle scaled gddTaillePoint) shifted (p gddEnPlace)
 enddef;
@@ -273,7 +274,7 @@ vardef m_arque.@# expr p =
     label.@#(gddL[p] scaled gddTailleLabel,PointTOPair(p) gddEnPlace);
 enddef;
 
-vardef m_a_rque.@# expr p = 
+vardef m_a_rque.@# expr p =
     pointe(scantokens p);
     label.@#(lTEX(p),PointTOPair(scantokens p) gddEnPlace);
 enddef;
@@ -287,7 +288,7 @@ enddef;
 %%% --------------------------------------------------------------------------
 def SigneOrtho(expr a,b,c,x) =
   (_point_(b) + x * unitvector(_point_(a)-_point_(b)))
-   -- (_point_(b) + x * unitvector(_point_(a) - _point_(b)) 
+   -- (_point_(b) + x * unitvector(_point_(a) - _point_(b))
    + x * unitvector(_point_(c) - _point_(b)))
    -- (_point_(b) + x * unitvector(_point_(c) - _point_(b)))
 enddef;
@@ -325,4 +326,4 @@ def gddFenetre =
    gddEnPlace withpen pencircle scaled 1 withcolor white;
 enddef;
 
-endinput
\ No newline at end of file
+endinput