Lines Matching refs:coord
167 (pole1-coord (/ max-ring-diameter 2))
168 (pole2-coord (/ base-len 2))
169 (pole3-coord (- base-len (/ (1+ max-ring-diameter) 2)))
170 (pole-coords (list pole1-coord pole2-coord pole3-coord))
207 (loop for coord in pole-coords do
208 (loop for row from (- coord (/ pole-width 2))
227 for coord in pole-coords
228 for start = (- coord (/ pole-width 2))
246 (poles (loop for coord in pole-coords
247 for fly-pos = (+ fly-row-start (* fly-step coord))