From 65b59878409f9ea2b50e09e71eca25fea613da26 Mon Sep 17 00:00:00 2001 From: Panayotis Skordos Date: Mon, 10 Aug 1987 20:27:42 +0000 Subject: [PATCH] Added READ-IMAGE-FROM-2BINT-FILE 2BINT := putw(nrows),putw(ncols), followed by 2byte integers (high order byte first). Saves half space of previous CBIN-images (putw stores 4 bytes). At some point I will throw away the old read-image-from-cbin-file. --pas --- v7/src/microcode/image.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/v7/src/microcode/image.c b/v7/src/microcode/image.c index f0377e2e2..bc6e23330 100644 --- a/v7/src/microcode/image.c +++ b/v7/src/microcode/image.c @@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising, promotional, or sales literature without prior written consent from MIT in each case. */ -/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/image.c,v 9.22 1987/08/10 20:06:33 pas Exp $ */ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/image.c,v 9.23 1987/08/10 20:27:42 pas Exp $ */ #include "scheme.h" #include "primitive.h" @@ -167,6 +167,7 @@ Define_Primitive(Prim_Read_Image_From_2bint_File, 1, "READ-IMAGE-FROM-2BINT-FILE long allocated_cells; Boolean Open_File(); float x_origin, y_origin; + int foo1,foo2; Primitive_1_Args(); Arg_1_Type(TC_CHARACTER_STRING); -- 2.25.1