| blob | a42c4a7177766bc2c9f85b94ebe4ae195221c453 |
1 ;;; Compiled by f2cl version:
2 ;;; ("f2cl1.l,v 2edcbd958861 2012/05/30 03:34:52 toy $"
3 ;;; "f2cl2.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
4 ;;; "f2cl3.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
5 ;;; "f2cl4.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
6 ;;; "f2cl5.l,v 3fe93de3be82 2012/05/06 02:17:14 toy $"
7 ;;; "f2cl6.l,v 1d5cbacbb977 2008/08/24 00:56:27 rtoy $"
8 ;;; "macros.l,v 3fe93de3be82 2012/05/06 02:17:14 toy $")
10 ;;; Using Lisp CMU Common Lisp 20d (20D Unicode)
11 ;;;
12 ;;; Options: ((:prune-labels nil) (:auto-save t) (:relaxed-array-decls t)
13 ;;; (:coerce-assigns :as-needed) (:array-type ':array)
14 ;;; (:array-slicing t) (:declare-common nil)
15 ;;; (:float-format double-float))
38 lenx leny)
82 incx)))))
91 incy)))))
102 zero)
103 label10)))
109 (* beta
113 y-%offset%)))
114 label20)))))
123 zero)
125 label30)))
131 (* beta
135 y-%offset%)))
137 label40))))))))
151 (* alpha
155 x-%offset%)))
162 ku))))
164 ((> i
168 nil)
171 (+
175 y-%offset%)
176 (* temp
180 a-%offset%))))
181 label50))))
183 label60)))
191 (* alpha
195 x-%offset%)))
203 ku))))
205 ((> i
209 nil)
212 (+
216 y-%offset%)
217 (* temp
221 a-%offset%))))
223 label70))))
226 label80)))))
243 ku))))
245 ((> i
249 nil)
252 (+ temp
253 (*
257 a-%offset%)
261 x-%offset%))))
262 label90)))
269 ku))))
271 ((> i
275 nil)
278 (+ temp
279 (*
284 a-%offset%))
288 x-%offset%))))
289 label100))))
294 label110)))
309 ku))))
311 ((> i
315 nil)
318 (+ temp
319 (*
323 a-%offset%)
327 x-%offset%))))
329 label120)))
336 ku))))
338 ((> i
342 nil)
345 (+ temp
346 (*
351 a-%offset%))
355 x-%offset%))))
357 label130))))
363 label140))))))
365 end_label
386 nil)