Xiaolin Wu's line algorithm: Difference between revisions
→{{header|Scheme}}
Line 4,423:
(u1 (u1% s))
(v1 (v1% s)))
(when (and (<= u0 x) (<= x u1) (<= v0 y) (<= y v1))
(f32vector-set! (pixels% s)
(+ (* (- x u0) (- v1 v0 -1)) (- v1 y))
Line 4,523:
(do ((x (+ xpxl1 1) (+ x 1))
(intery intery (+ intery gradient)))
((= x
(plot s x (ipart intery) (rfpart intery))
(plot s x (+ (ipart intery) 1) (fpart intery)))))))
| |||