Changes between Version 11 and Version 12 of TolOop

Timestamp:

Dec 12, 2009, 4:06:42 PM (17 years ago)

Author:

Víctor de Buen Remiro

Comment:

--

TolOop

@@ -123 +123 @@
 //Si no se quiere cambiar nada con herencia múltiple se enumeran las clases
 //antecesoras
-Class @VectorDoc: Vector, Doc;
+Class @VectorDoc: @Vector, @Doc;
 
 //Con herencia simple no tiene mucho sentido no cambiar nada
@@ -191 +191 @@
 Class @ClHeight;
 
-//This class uses ClHeight as a method argument
+//This class uses @ClHeight as a method argument
 Class @ClAge
 {
@@ -202 +202 @@
 };
 
-//This class uses ClAge as a method argument
+//This class uses @ClAge as a method argument
 Class @ClHeight
 {
@@ -236 +236 @@
 
 === Constructores de instancias ===
-La forma más recomendada de crear instancias de forma regulada es mediante construtores que son métodos estáticos que devuelven una instancia de esa clase
-
-{{{
-Class @Sphere
-{
+La forma más recomendada de crear instancias de forma regulada es mediante construtores que son métodos estáticos que devuelven una instancia de esa clase a partir de una lista de los argumentos necesarios para la definición del objeto. Los mimebros auxiliares o derivados serán rellenados por el propio constructor.
+
+Evidentemente una misma clase puede tener varios constructores y unos pueden ser especializaciones de otros más generales a los que llamen después de calcular los argumentos necesarios
+
+{{{
+Class @Circle
+{
+//Definition members
+  Real _.center.x_;
+  Real _.center.y_;
   Real _.radius;
-  Real equalName(ClAge arg)
-  {
-    _.name==arg::_.name
+
+//Auxiliar members
+  Real _.perimeter;
+  Real _.area;
+  
+//Basic Constructor 
+  Static @Circle New(
+    Real x,  //First coordinate of center 
+    Real y,  //Second coordinate of center 
+    Real r)  //Radius
+  {
+    @Circle new =
+    [[
+      Real _.center.x_ = x;
+      Real _.center.y_ = y;
+      Real _.radius = r;
+      //Auxiliuar members definition
+      Real _.perimeter = 2*Pi*r;
+      Real _.area = Pi*r^2
+    ]]
   };
-  Static @ClHeight(Text name, Real height)
-  {
-    @ClHeight new =
-    [[
-      Text _.name;
-      Real _.height;
-    ]]
-  }
-};
+//Derivate constructor
+  Static @Circle Random(
+   Real min.x, Real max.x,
+   Real min.y, Real max.y,
+   Real min.r, Real max.r,)
+  {
+    @Circle::New(Rand(min.x,max.x),
+                 Rand(min.y,max.y),
+                 Rand(min.r,max.r))
+  };
+
+//Returns true if the point (x,y) is inside the circle
+Real includes(Real x, Real y)
+{
+  (x-_.center.x)^2+(y-_.center.y)^2<=_.radius^2
+}
+
+};
+
+@Circle c1 = @Circle::New(0,0,1);
+@Circle c2 = @Circle::Random(0,1,-1,0,1/2,1);
+
 }}}