Module: zoom

Task: zoom (Int x, Int y, Float mag) Description: Zooms into the specified x,y location on your screen Parameters: x,y: the specified location mag: the magnification of the zoom __________________________________________________________ Task: unzoom Description: Undoes the previous zoom operation parameters: (none)

Module Source Listing

Task zoom (Int x, Int y, Float mag) Common Float mag_rjb Common Int x_rjb, y_rjb, zoomed_rjb=0 If (zoomed_rjb) Return If (mag<=0) Return x_rjb=x; y_rjb=y; mag_rjb=mag select screen (15) copy screen (0) select screen (0) stp=+0.1; If (mag_rjb<1.0) stp=-stp/4 Do m=1.0,mag_rjb,stp magnify_rjb (x_rjb, y_rjb, m) @ If (mag_rjb<1.0) delay (25) delay (1) Loop magnify_rjb (x_rjb, y_rjb, mag_rjb) @ zoomed_rjb=1 ******************************************** Task unzoom Common Float mag_rjb Common Int x_rjb, y_rjb, zoomed_rjb If (!zoomed_rjb) Return stp=-0.1; If (mag_rjb<1.0) stp=-stp/4 Do m=mag_rjb,1.0,stp magnify_rjb (x_rjb, y_rjb, m) @ If (mag_rjb<1.0) delay (25) delay (1) Loop copy screen (15) zoomed_rjb=0 ******************************************** Task magnify_rjb (Int xt, Int yt, Float mag) xp=xpixels(); yp=ypixels() solid color (0) c=xp/mag d=yp/mag a=xt-(xt+(mag-1)/7*(xp/2-xt))*c/xp b=yt-(yt+(mag-1)/7*(yp/2-yt))*d/yp bitblt screen (15, 0, 0, xp, yp, a, b, c, d) If (a<0) solid rectangle (0, 0, -a*mag, yp) If (a+c>=xp) solid rectangle (xp, 0, xp-mag*(a+c-xp), yp) If (b<0) solid rectangle (0, 0, xp, -b*mag) If (b+d>=yp) solid rectangle (0, yp, xp, yp-mag*(b+d-yp))

Example In the following example program, use your mouse to zoom in (or out) on any part of the image. Hold down the left (or right) mouse button to zoom forward (or backward). After zooming has finished, release the button to unzoom back to normal size. Press the "Esc" key to quit.

Example Program Source Listing

Win-SiMPLE (desktop) Int xm, ym, button cls (-1); show mouse show image ("\\SiMPLE\\Images\\ColumbiaCrew.jpg") Do read quitkey (27) read mouse (xm, ym, button) If (button=2) zoom (xm, ym, 0.25) @ If (button=1) zoom (xm, ym, 4.0) @ If (button=0) unzoom @ Loop Append G: zoom

(The above program assumes that you've placed the module into your Global Append Library.)

How To Download The Module Into Your Local Append Library If you're feeling ambitious and have nothing better to do, you could just copy the source listing by hand! However, there is a much easier way to do it: Copy the source listing into the Windows Clipboard Paste the Clipboard into a new text document in your project's "Library" folder Change the name of that new text document to the module's name The module is now in your Local Append Library.

After the module has been placed into your Local Append Library, you can
either just leave it there, or you can transfer it into your Global Append Library:

How To Transfer The Module From Your Local Append Library Into Your Global Append Library Drop the module's text file onto the "Librarian.exe" file Click "Win" when you are asked to select the intended universe The module is now in your Global Append Library.

  [ Webmaster | FAQ's | Home Page | Contact Us ]

© Copyright 2012 SiMPLE CodeWorks, Inc. All rights reserved.