Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!uunet!elroy.jpl.nasa.gov!swrinde!zaphod.mps.ohio-state.edu!rpi!uupsi!sunic!news.funet.fi!uwasa.fi!ts
From: ts@uwasa.fi (Timo Salmi)
Newsgroups: comp.lang.pascal
Subject: Re: Turbo Pascal Graphics. HELP!
Keywords: Screen Savings
Message-ID: <1991Feb11.073446.700@uwasa.fi>
Date: 11 Feb 91 07:34:46 GMT
References: <5349@mentor.cc.purdue.edu> <1991Feb8.060006.1333@uwasa.fi> <1991Feb10.031517.26075@maytag.waterloo.edu> <2910@oucsace.cs.OHIOU.EDU>
Organization: University of Vaasa
Lines: 25

In article <2910@oucsace.cs.OHIOU.EDU> tswingle@oucsace.cs.OHIOU.EDU (Tom Swingle) writes:
>
>In article <1991Feb10.031517.26075@maytag.waterloo.edu> dmurdoch@watstat.waterloo.edu (Duncan Murdoch) writes:
>>In article <1991Feb8.060006.1333@uwasa.fi> ts@uwasa.fi (Timo Salmi) writes:
>>>
>>>The obvious solution is to save the screen in parts, each one < 64K. 
>>>It is simple as that.  And it works.  Usually four parts is enough,
>>>but this naturally depends. 
>>
>>The trouble is that the Imagesize function returns a word, so you're never
>>quite sure that you haven't miscalculated, especially if you're trying to
>
>Don't use Imagesize if you're worried about miscalculating.  Use the formula
>round((x2-x1+1)*(y2-y1+1)*(getmaxcolor+1)/256) to roughly calculate the number

This is a nice solution.  But there is also a simple kludge with
ImageSize.  Set your ImageSize condition as < 63K.  I may be
mistaken, but doesn't ImageSize return 64K, if the actual size of
the screen portion exceeds the 64K.  

...................................................................
Prof. Timo Salmi        
Moderating at garbo.uwasa.fi anonymous ftp archives 128.214.12.37
School of Business Studies, University of Vaasa, SF-65101, Finland
Internet: ts@chyde.uwasa.fi Funet: gado::salmi Bitnet: salmi@finfun