changed uses of floating-point-ref to vector-ref to deal with changes

in beginning of picture.scm. i.e.-to reduce size of pictures

diff --git a/v7/src/6001/pic-reco.scm b/v7/src/6001/pic-reco.scm
index 503879ce3eafde7f5fb876cd1406ef8c804f753c..fce17cc1c731fe43f38b5fb5f0510f7f96bb4d50 100644 (file)
--- a/v7/src/6001/pic-reco.scm
+++ b/v7/src/6001/pic-reco.scm
@@ -139,7 +139,7 @@
        (height (picture-height picture)))
     (let y-loop ((y 0))
       (if (< y height)
-         (let ((yth-row (floating-vector-ref picdata y)))
+         (let ((yth-row (vector-ref picdata y)))
            (let x-loop ((x 0))
              (if (< x width)
                  (begin (floating-vector-set! yth-row x 

diff --git a/v7/src/6001/picture.scm b/v7/src/6001/picture.scm
index bbb3b21c8d35ad11a1319700d8fb9bb9bdec9038..689a22b1a547c6441eb2affb58c20d7911197612 100644 (file)
--- a/v7/src/6001/picture.scm
+++ b/v7/src/6001/picture.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/picture.scm,v 1.10 1992/06/08 16:50:21 aragorn Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/picture.scm,v 1.11 1992/06/08 18:17:14 aragorn Exp $
 
 Copyright (c) 1991-92 Massachusetts Institute of Technology
 
@@ -179,8 +179,8 @@ MIT in each case. |#
               (let ((p1-data (picture-data (car pic-list))))
                 (let y-loop ((y 0))
                   (if (fix:< y height)
-                      (let ((out-yth-row (floating-vector-ref picdata y))
-                            (in-yth-row (floating-vector-ref p1-data y))) 
+                      (let ((out-yth-row (vector-ref picdata y))
+                            (in-yth-row (vector-ref p1-data y))) 
                         (let x-loop ((x 0))
                           (if (fix:< x width)
                               (begin
@@ -195,9 +195,9 @@ MIT in each case. |#
                     (p2-data (picture-data (cadr pic-list))))
                 (let y-loop ((y 0))
                   (if (fix:< y height)
-                      (let ((out-yth-row (floating-vector-ref picdata y))
-                            (in-yth-row1 (floating-vector-ref p1-data y))
-                            (in-yth-row2 (floating-vector-ref p2-data y)))
+                      (let ((out-yth-row (vector-ref picdata y))
+                            (in-yth-row1 (vector-ref p1-data y))
+                            (in-yth-row2 (vector-ref p2-data y)))
                         (let x-loop ((x 0))
                           (if (fix:< x width)
                               (begin (floating-vector-set! 
@@ -213,9 +213,9 @@ MIT in each case. |#
                                     pic-list)))
                 (let y-loop ((y 0)) 
                   (if (fix:< y height)
-                      (let ((out-yth-row (floating-vector-ref picdata y))
+                      (let ((out-yth-row (vector-ref picdata y))
                             (in-yth-rows (map (lambda (data) 
-                                                (floating-vector-ref
+                                                (vector-ref
                                                  data y))
                                               data-list)))
                         (let x-loop ((x 0))