|
|
1.1 ! root 1: #ifndef lint ! 2: static char *rcsid_copy_c = "$Header: copy.c,v 10.1 86/11/29 13:50:52 jg Rel $"; ! 3: #endif lint ! 4: /* ! 5: ! 6: Copyright 1986 by the University of Utah ! 7: ! 8: Permission to use, copy, modify, and distribute this ! 9: software and its documentation for any purpose and without ! 10: fee is hereby granted, provided that the above copyright ! 11: notice appear in all copies and that both that copyright ! 12: notice and this permission notice appear in supporting ! 13: documentation, and that the name of the University of Utah ! 14: not be used in advertising or publicity pertaining to ! 15: distribution of the software without specific, written ! 16: prior permission. The University of Utah makes no ! 17: representations about the suitability of this software for ! 18: any purpose. It is provided "as is" without express or ! 19: implied warranty. ! 20: ! 21: */ ! 22: ! 23: /* copy.c Copy one section of the framebuffer to another ! 24: * ! 25: * CopyArea Copies a section of the framebuffer ! 26: * ! 27: */ ! 28: ! 29: #include "Xapollo.h" ! 30: ! 31: status_$t status; ! 32: ! 33: CopyArea (srcx, srcy, width, height, dstx, dsty, clips, clipcount, func, zmask) ! 34: int srcx, srcy, width, height, dstx, dsty, clipcount, zmask; ! 35: int func; ! 36: CLIP *clips; ! 37: { ! 38: int i; ! 39: ! 40: gpr_$window_t window, cwindow; ! 41: gpr_$position_t dest; ! 42: ! 43: CheckCursor( srcx, srcy, width, height); ! 44: CheckCursor( dstx, dsty, width, height); ! 45: ! 46: set_zmask( zmask ); ! 47: set_op( func ); ! 48: window.x_coord = srcx; ! 49: window.y_coord = srcy; ! 50: window.x_size = width; ! 51: window.y_size = height; ! 52: dest.x_coord = dstx; ! 53: dest.y_coord = dsty; ! 54: do { ! 55: ! 56: GetNextClip(clips, cwindow); ! 57: gpr_$set_clip_window( cwindow, status); ! 58: ! 59: gpr_$pixel_blt(Screen.bm, window, dest, status); ! 60: } while (--clipcount > 0); ! 61: RestoreCursor(); ! 62: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.