Lines Matching defs:spiro
68 procedure spiro(params : Real_Matrix; row : Integer; fill : Boolean) is subprogram
69 NPNT : constant Integer := 2000;
70 xcoord, ycoord : Real_Vector(0 .. NPNT);
71 windings : Integer;
72 steps : Integer;
73 phi : Long_Float;
74 phiw : Long_Float;
75 dphi : Long_Float;
76 xmin : Long_Float;
77 xmax : Long_Float;
78 xrange_adjust : Long_Float;
102 begin -- spiro argument