Initial commit

1 files changed, 33 insertions, 0 deletions

diff --git a/pkg/plot/crtpict/wdes.h b/pkg/plot/crtpict/wdes.h
new file mode 100644
index 00000000..60d89f21
--- /dev/null
+++ b/pkg/plot/crtpict/wdes.h
@@ -0,0 +1,33 @@
+# Window descriptor structure.
+
+define	LEN_WDES	(5+(W_MAXWC+1)*LEN_WC+40)
+define	LEN_WC		9			# 4=[XbXeYbYe]+2=tr_type[xy]
+define	W_MAXWC		5			# max world coord systems
+define	W_SZIMSECT	79			# image section string
+
+define	W_DEVICE	Memi[$1]
+define	W_FRAME		Memi[$1+1]		# device frame number
+define	W_XRES		Memi[$1+2]		# device resolution, x
+define	W_YRES		Memi[$1+3]		# device resolution, y
+define	W_WC		($1+$2*LEN_WC+5)	# ptr to coord descriptor
+define	W_IMSECT	Memc[P2C($1+50)]
+
+# Fields of the WC coordinate descriptor, a substructure of the window
+# descriptor.  "W_XB(W_WC(w,0))" is the XB field of wc 0 of window W.
+
+define	W_XS		Memr[P2R($1)]		# starting X value
+define	W_XE		Memr[P2R($1+1)]		# ending X value
+define	W_XT		Memi[$1+2]		# X transformation type
+define	W_YS		Memr[P2R($1+3)]		# starting Y value
+define	W_YE		Memr[P2R($1+4)]		# ending Y value
+define	W_YT		Memi[$1+5]		# Y transformation type
+define	W_ZS		Memr[P2R($1+6)]		# starting Z value (greyscale)
+define	W_ZE		Memr[P2R($1+7)]		# ending Z value
+define	W_ZT		Memi[$1+8]		# Z transformation type
+
+# Types of coordinate and greyscale transformations.
+
+define	W_UNITARY	0			# values map without change
+define	W_LINEAR	1			# linear mapping
+define	W_LOG		2			# logarithmic mapping
+define	W_USER		3			# user supplied lut values