[futurebasic] Clipping & Putting

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : August 2000 : Group Archive : Group : All Groups

From: Martin Fitzgibbons <rush@...>
Date: Thu, 31 Aug 2000 17:34:49 +0800
I have a student using the following FNs to grab part of the screen and
put it back.
The problem is it remaps the screen colours, I think to shades of
whatever the last
color that was set. Any suggestions?

CLEAR LOCAL
LOCAL FN Putit(x1,y1)
  PICTURE (x1,y1),clip&
  CALL RELEASERESOURCE(clip&)
END FN

CLEAR LOCAL
DIM rect;8
LOCAL FN ClipIt(x1,y1,x2,y2)
  CALL SETRECT(rect,x1,y1,x2,y2)
  clip& = USR GETPICT(rect)
END FN

Martin