/* -*-C-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/sgraph_a.c,v 1.12 1990/04/17 21:54:56 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/sgraph_a.c,v 1.13 1990/10/03 00:11:45 cph Rel $
-Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology
+Copyright (c) 1987, 1988, 1989, 1990 Massachusetts Institute of Technology
This material was developed by the Scheme project at the Massachusetts
Institute of Technology, Department of Electrical Engineering and
REAL offset, scale;
PRIMITIVE_HEADER (6);
{
- struct xwindow * xw = (WINDOW_ARG (1));
+ struct xwindow * xw = (x_window_arg (1));
CHECK_ARG (2, ARRAY_P);
array = (ARG_REF (2));
arg_plotting_box (3, plotting_box);
offset,
scale);
PRIMITIVE_RETURN (UNSPECIFIC);
- }}
+ }
+}
/* The following are taken from x11graphics.c
*/
#define ROUND_FLOAT(flonum) \
((int) (((flonum) >= 0.0) ? ((flonum) + 0.5) : ((flonum) - 0.5)))
-static int xmake_x_coord(xw, virtual_device_x)
+static int
+xmake_x_coord (xw, virtual_device_x)
struct xwindow * xw;
float virtual_device_x;
{
return (ROUND_FLOAT (device_x));
}
-static int xmake_y_coord(xw, virtual_device_y)
+static int
+xmake_y_coord (xw, virtual_device_y)
struct xwindow * xw;
float virtual_device_y;
{
- float device_y = ((XW_Y_SLOPE (xw)) * (virtual_device_y - (XW_Y_BOTTOM (xw))));
+ float device_y =
+ ((XW_Y_SLOPE (xw)) * (virtual_device_y - (XW_Y_BOTTOM (xw))));
return (((XW_Y_SIZE (xw)) - 1) + (ROUND_FLOAT (device_y)));
}
-
-
+\f
XPlot_C_Array_With_Offset_Scale (xw, Array, Length, Plotting_Box,
fill_with_lines, Offset, Scale)
struct xwindow * xw;
- float *Plotting_Box; long Length;
+ float *Plotting_Box;
+ long Length;
int fill_with_lines; /* plots filled with lines from 0 to y(t) */
REAL *Array, Scale, Offset;
{
(internal_border_width + y));
v_d_x = v_d_x + v_d_x_increment;
- /* Can not use INTEGERS x+x_increment because x_increment may round to 0
- and we'll never move the cursor from starting point.
- Also Array[i+skip] will not work well, say 1024 points for 1000 places => last 24 are chopped
- whereas the costly loop we do, downsamples in between more gracefully.
- i.e. loop over v_d_coordinates - in floats. */
+
+ /* Can not use INTEGERS x+x_increment because x_increment
+ may round to 0 and we'll never move the cursor from
+ starting point. Also Array[i+skip] will not work well,
+ say 1024 points for 1000 places => last 24 are chopped
+ whereas the costly loop we do, downsamples in between
+ more gracefully. i.e. loop over v_d_coordinates - in
+ floats. */
}
}
else
}
}
}
-
-
\f
/* plot-array-0 is suffixed -0 in case we need more versions of array plot */
}
make_picture_current(device);
}
-
-
-
+\f
DEFINE_PRIMITIVE ("POLYGON2D", Prim_polygon2d, 2,2, 0)
{
float clist [TWICE_MAX_NUMBER_OF_CORNERS];
x_dest, y_dest);
PRIMITIVE_RETURN (UNSPECIFIC);
}
-
\f
/* Image Drawing (halftoning)
HG = Hard Grey levels (i.e. output device greys)
#define MINIMUM_INTENSITY_INDEX 2
#define MAXIMUM_INTENSITY_INDEX 15
-/* ARGS = (device image x_at y_at magnification) magnification can be 1, 2, or 3 */
+/* ARGS = (device image x_at y_at magnification)
+ magnification can be 1, 2, or 3 */
-DEFINE_PRIMITIVE ("DRAW-MAGNIFY-IMAGE-AT-XY", Prim_draw_magnify_image_at_xy, 5,5, 0)
+DEFINE_PRIMITIVE ("DRAW-MAGNIFY-IMAGE-AT-XY", Prim_draw_magnify_image_at_xy, 5, 5, 0)
{
int device;
long nrows, ncols, Length;
{17,4, 0,8,2,10, 12,4,14,6, 3,11,1,9, 15,7,13,5}
};
#define HT_OD_TABLE_MAX_INDEX 7
-
+\f
/* ordered dither
pdata must have length ncols
HG= Hardware Grey levels (output pixel values 0,HG-1)
all cases in a uniform manner (for better explanation get PAS
halftoning notes). */
-C_image_ht_bn_atxy_wmm (device, Array, pdata, nrows, ncols, x_at, y_at, Min, Max,
- HG, BNmethod, er_rows)
+C_image_ht_bn_atxy_wmm (device, Array, pdata, nrows, ncols, x_at, y_at,
+ Min, Max, HG, BNmethod, er_rows)
int device;
REAL Array [], Min, Max;
unsigned char * pdata;
the sole reason for this duplication is speed (if any) */
/* FLOYD-STEINBERG-75 */
-C_image_ht_bn_atxy_wmm_0_ (device, Array, pdata, nrows, ncols, x_at, y_at, Min, Max,
- HG, er_rows)
+C_image_ht_bn_atxy_wmm_0_ (device, Array, pdata, nrows, ncols, x_at, y_at,
+ Min, Max, HG, er_rows)
int device;
REAL Array[], Min,Max;
unsigned char *pdata;
}
\f
/* JARVIS-JUDICE-NINKE-76 mask */
-C_image_ht_bn_atxy_wmm_1_ (device, Array, pdata, nrows,ncols, x_at,y_at, Min,Max,
- HG, er_rows)
+C_image_ht_bn_atxy_wmm_1_ (device, Array, pdata, nrows,ncols, x_at,y_at,
+ Min,Max, HG, er_rows)
int device;
REAL Array[], Min,Max;
unsigned char *pdata;
}
\f
/* STUCKI-81 mask */
-C_image_ht_bn_atxy_wmm_2_ (device, Array, pdata, nrows,ncols, x_at,y_at, Min,Max,
- HG, er_rows)
+C_image_ht_bn_atxy_wmm_2_ (device, Array, pdata, nrows,ncols, x_at,y_at,
+ Min,Max, HG, er_rows)
int device;
REAL Array[], Min,Max;
unsigned char *pdata;
-1,-2,2, -1,-1,4, -1,0,8, -1,1,4, -1,2,2,
0,-2,4, 0,-1,8}
};
-
+\f
/*
er_rows[][] should be 3 arrays of integers, of length (ncols+2*ER_C),
which store previous errors, (ALLOCATED STORAGE)
for (m=0;m<(ncols+(2*ER_C));m++) er_rows[2][m]=0;
}
}
-
-
+\f
/* PSAM drawing (see scheme primitives definition for description)
Pdata must be (16 * ncols) bytes in size. */
-C_image_psam_atxy_wmm(device, Array, pdata, nrows, ncols, x_origin, y_origin, Min,Max)
+C_image_psam_atxy_wmm(device, Array, pdata, nrows, ncols, x_origin, y_origin,
+ Min,Max)
int device;
REAL Array[], Min,Max;
unsigned char *pdata; /* pdata should have length 16*4*ncols */
long color_index;
REAL REAL_pixel, value, offset,scale;
- Find_Offset_Scale_For_Linear_Map(Min, Max,
- 0.0, 15.0, &offset, &scale); /* 16 grey levels */
+ Find_Offset_Scale_For_Linear_Map
+ (Min, Max, 0.0, 15.0, &offset, &scale); /* 16 grey levels */
array_index=0; i4=0;
for (i=0; i<nrows; i++)
color_index = ((long) (REAL_pixel + .5)); /* integer between 0 and 15 */
/* */
my_write_dither(pdata, pdata_index, ncols4, color_index);
- pdata_index = pdata_index + 4; /* dependency between this and my_write_dither */
+ /* dependency between this and my_write_dither */
+ pdata_index = pdata_index + 4;
}
block_write(device, x_origin, y_origin-i4, ncols4, 4, pdata, 0);
i4 = i4+4;
/* Same as above, except use Adjust_Value_Womm.
*/
-C_image_psam_atxy_womm(device, Array, pdata, nrows, ncols, x_origin, y_origin, Min,Max)
+C_image_psam_atxy_womm(device, Array, pdata, nrows, ncols, x_origin, y_origin,
+ Min,Max)
int device;
REAL Array[], Min,Max;
unsigned char *pdata; /* pdata should have length 16*4*ncols */
long color_index;
REAL REAL_pixel, value, offset,scale;
- Find_Offset_Scale_For_Linear_Map(Min, Max,
- 0.0, 15.0, &offset, &scale); /* 16 grey levels */
+ Find_Offset_Scale_For_Linear_Map
+ (Min, Max, 0.0, 15.0, &offset, &scale); /* 16 grey levels */
array_index=0; i4=0;
for (i=0; i<nrows; i++)
{ pdata_index = 0;
color_index = ((long) (REAL_pixel + .5)); /* integer between 0 and 15 */
/* */
my_write_dither(pdata, pdata_index, ncols4, color_index);
- pdata_index = pdata_index + 4; /* dependency between this and my_write_dither */
+ /* dependency between this and my_write_dither */
+ pdata_index = pdata_index + 4;
}
block_write(device, x_origin, y_origin-i4, ncols4, 4, pdata, 0);
i4 = i4+4;
}
/* A(i,j) --> Array[i*ncols + j] */
}
-
+\f
/* psam dither[11] is left out, { 1,1,0,1, 1,1,1,0, 0,1,1,0, 1,0,1,1 } */
/* The following routine writes a 4x4 dither cell
unsigned char *pdata;
long pdata_row_index, ncols;
long color_index; /* should be 0 to 15 */
-{ static unsigned char dither_table[16][16] = {{ 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0 },
- { 0,0,0,0, 0,1,0,0, 0,0,0,0, 0,0,0,0 },
- { 0,0,0,0, 0,1,0,0, 0,0,1,0, 0,0,0,0 },
- { 0,0,0,0, 0,1,1,0, 0,0,1,0, 0,0,0,0 },
- { 0,0,0,0, 0,1,1,0, 0,1,1,0, 0,0,0,0 },
- { 1,0,0,0, 0,1,1,0, 0,1,1,0, 0,0,0,0 },
- { 1,0,0,0, 0,1,1,0, 0,1,1,0, 0,0,0,1 },
- { 1,0,0,1, 0,1,1,0, 0,1,1,0, 0,0,0,1 },
- { 1,0,0,1, 0,1,1,0, 0,1,1,0, 1,0,0,1 },
- { 1,1,0,1, 0,1,1,0, 0,1,1,0, 1,0,0,1 },
- { 1,1,0,1, 1,1,1,0, 0,1,1,0, 1,0,0,1 },
- { 1,1,0,1, 1,1,1,0, 0,1,1,1, 1,0,1,1 },
- { 1,1,0,1, 1,1,1,0, 1,1,1,1, 1,0,1,1 },
- { 1,1,1,1, 1,1,1,0, 1,1,1,1, 1,0,1,1 },
- { 1,1,1,1, 1,1,1,0, 1,1,1,1, 1,1,1,1 },
- { 1,1,1,1, 1,1,1,1, 1,1,1,1, 1,1,1,1 }};
+{ static unsigned char dither_table[16][16] =
+ {{ 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0 },
+ { 0,0,0,0, 0,1,0,0, 0,0,0,0, 0,0,0,0 },
+ { 0,0,0,0, 0,1,0,0, 0,0,1,0, 0,0,0,0 },
+ { 0,0,0,0, 0,1,1,0, 0,0,1,0, 0,0,0,0 },
+ { 0,0,0,0, 0,1,1,0, 0,1,1,0, 0,0,0,0 },
+ { 1,0,0,0, 0,1,1,0, 0,1,1,0, 0,0,0,0 },
+ { 1,0,0,0, 0,1,1,0, 0,1,1,0, 0,0,0,1 },
+ { 1,0,0,1, 0,1,1,0, 0,1,1,0, 0,0,0,1 },
+ { 1,0,0,1, 0,1,1,0, 0,1,1,0, 1,0,0,1 },
+ { 1,1,0,1, 0,1,1,0, 0,1,1,0, 1,0,0,1 },
+ { 1,1,0,1, 1,1,1,0, 0,1,1,0, 1,0,0,1 },
+ { 1,1,0,1, 1,1,1,0, 0,1,1,1, 1,0,1,1 },
+ { 1,1,0,1, 1,1,1,0, 1,1,1,1, 1,0,1,1 },
+ { 1,1,1,1, 1,1,1,0, 1,1,1,1, 1,0,1,1 },
+ { 1,1,1,1, 1,1,1,0, 1,1,1,1, 1,1,1,1 },
+ { 1,1,1,1, 1,1,1,1, 1,1,1,1, 1,1,1,1 }};
long i, row_start,m;
long dither_index; /* do not mix up the counters, indexes */
dither_index=0;
for (m=row_start; m<row_start+4; m++)
pdata[m] = dither_table[color_index][dither_index++]; }
}
-
\f
-
/* Below are the OLD DRAWING ROUTINES for 16 color monitors.
In effect they are fixed threshold, with 16 HG levels.
The only difference is they also do magnification by replicating pixels.
/* Image_Draw_Magnify_N_Times : N^2 in area
*/
-Image_Draw_Magnify_N_Times_With_Offset_Scale (device, Array, pdata, nrows, ncols,
- x_origin,y_origin,Offset,Scale,N)
+Image_Draw_Magnify_N_Times_With_Offset_Scale
+ (device, Array, pdata, nrows, ncols, x_origin,y_origin,Offset,Scale,N)
int device;
REAL Array[], Offset, Scale;
unsigned char *pdata;
This procedure throws away (i.e. maps to SCREEN_BACKGROUND_COLOR)
all values outside the range given by Offset,Scale.
*/
-Image_Draw_Magnify_N_Times_With_Offset_Scale_Only (device, Array, pdata, nrows, ncols,
- x_origin, y_origin,
- Offset, Scale, N)
+Image_Draw_Magnify_N_Times_With_Offset_Scale_Only
+ (device, Array, pdata, nrows, ncols, x_origin, y_origin, Offset, Scale, N)
int device;
REAL Array[], Offset, Scale;
unsigned char *pdata;
/* A(i,j) --> Array[i*ncols + j] */
}
}
-
-
-/* END image drawing
- */
-
\f
/* Grey Level Manipulations */
(cons ((double_to_flonum ((double) (Color_Table[index][2]))),
EMPTY_LIST))))));
}
-
-
+\f
DEFINE_PRIMITIVE ("READ-COLORS-FROM-FILE", Prim_read_colors_from_file, 2,2, 0)
{
int device;
projects / mit-scheme.git / commitdiff