Interface for qBeta module object

Origin: workspace

ValueEx: obj  

   Point: Value

      %globals 

      in X: var Integer

      in Y: var Integer

      move: 

         in dx: var integer

         in dy: var integer

      moveTo: 

         in P: var Point(,)

      print:< 

   ColorPoint: Point

      in C: var integer

      print::< 

   Line: Value

      %globals 

      in X1: var integer

      in X2: var integer

      PL1: var Point(X1,)

      PL2: var Point(X2,)

      moveLine: 

         in Pa: var Point(,)

         in Pb: var Point(,)

      print: 

   mkPoint: 

      in X: var integer

      in Y: var integer

      out P: var Point(,)

   q1: var integer

   q2: var integer

   q3: var integer

   P1: val Point(,) -- 5:

   P2: var Point(,) -- 7:

   P3: val Point(,) -- 9

   CP: val ColorPoint(,,) -- 11:

   L1: var Line(,) -- 14:

   L2: var Line(,)