From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 1 Sep 1992 20:43:12 +0000 (+0000)
Subject: In picture->pgm-file, always scale.
X-Git-Tag: 20090517-FFI~9022
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=74436d9e48c3b9e33ca8731bf6f213dc0ec93f77;p=mit-scheme.git

In picture->pgm-file, always scale.
---

diff --git a/v7/src/6001/picture.scm b/v7/src/6001/picture.scm
index 61a09b9ef..d50fb8722 100644
--- 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.14 1992/09/01 20:42:43 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/picture.scm,v 1.15 1992/09/01 20:43:12 cph Exp $
 
 Copyright (c) 1991-92 Massachusetts Institute of Technology
 
@@ -305,10 +305,6 @@ MIT in each case. |#
 	      (fasdump picture path-name)))
 	(error:wrong-type-argument picture "picture" 'PICTURE-WRITE))))
 
-;;; This writes a picture in raw pgm format.  If all values are between
-;;; 0 and 255, then the values are written as is.  Otherwise they are compressed
-;;; to lie in the range 0 to 255.
-
 (define (picture->pgm-file pic file)
   (let* ((width (picture-width pic))
 	 (height (picture-height pic))