home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.cs.arizona.edu
/
ftp.cs.arizona.edu.tar
/
ftp.cs.arizona.edu
/
icon
/
historic
/
v941.tgz
/
icon.v941src.tar
/
icon.v941src
/
ipl
/
gprocs
/
overlay.icn
< prev
next >
Wrap
Text File
|
2000-07-29
|
1KB
|
49 lines
############################################################################
#
# File: overlay.icn
#
# Subject: Procedure to overlay an image in a window
#
# Author: Ralph E. Griswold
#
# Date: May 26, 1994
#
############################################################################
#
# This file is in the public domain.
#
############################################################################
#
# overlay(window, image) writes the image in the window, a line at a time.
#
############################################################################
#
# Requires: Version 9 graphics
#
############################################################################
#
# Links: xcompat
#
############################################################################
link xcompat
procedure overlay(window, name)
local pixmap, width, height, x
pixmap := XBind(, , "image=" || name) |
stop("*** cannot bind image")
width := WAttrib(pixmap, "width")
height := WAttrib(pixmap, "height")
every x := 0 to width - 1 do
CopyArea(pixmap, window, x, 0, 1, height, x, 0)
close(pixmap)
return
end