The Ecere SDK - sdk/blob - samples/guiAndGfx/mekano/mekanoobjectgravity.ec

   1 import "mekanosimulation"
   2
   3 class MekanoObjectGravity : MekanoObject
   4 {
   5    Vector2D gravity;
   6
   7 public:
   8    property Vector2D gravity
   9    {
  10       set { gravity = value; }
  11       get { value = gravity; }
  12    }
  13
  14    void exertForces(MekanoSimulation sim)
  15    {
  16       for(o : sim.objectList)
  17          for(p : o.points; p.type == center)
  18          {
  19             Vector2D f;
  20             f.scale(gravity, o.mass);
  21             o.applyForce(f, p);
  22          }
  23    }
  24 }