(************************************************************************
    :Program.    SoftScroll.
    :Author.     Frank Staudte.
    :Address.    Hasenbergstr. 91
    :Shortcut.   [fst].
    :Support.	 [bne pit fbs].
    :Version.    1.4
    :Date.       25-MAY-88.
    :Copyright.  PD.
    :Language.   Modula-II.
    :Translator. M2Amiga.
    :Imports.    none
    :UpDate.     2-JUN-88 [fst], 1-AUG-88 [fst], 9/10-AUG-88 [AMOK]
    :Contents.   Procedure to >>>Scroll<<< your Screen.
    :Remark.     See Documentation for Copyright!
*************************************************************************)

DEFINITION MODULE SoftScroll;

FROM Intuition 	IMPORT ScreenPtr;

PROCEDURE ScrollScreen(screen: ScreenPtr; pixX,pixY,loop: INTEGER):BOOLEAN;

(*************************************************************************)
(* Mit dieser PROCEDURE können Sie auf einem übergroßen BitMap scrollen. *)
(*  screen - muß ein Pointer zu einem aktuellen Screen sein, der eine    *)
(*            übergroße BitMap haben sollte.				 *)
(*  PixX   - ist die Anzahl der Pixel, die auf einmal gescrollt werden   *)
(*	      sollen. (Negativ -> Links. Positiv -> Rechts!)		 *)
(*  PixY   - siehe PixX, nur das hier nach oben bzw unten gescrollt wird *)
(*	      (Negativ -> Oben. Positiv -> Unten!)			 *)
(*  loop   - sollte die Anzahl der einzelnen Scrollvorgängen stehen.     *)
(*            (der Wert sollte mindestens >1< sein, da sonst nicht ge-   *)
(*	      scrollt wird!)						 *)
(*                                                                       *)
(*  RESULT:  False, wenn man versucht, mehr zu scrollen, als möglich     *)
(*           (dWidth oder dHeight kleiner als rx/ryOffset!!)             *)
(*           Sonst immer True                                            *)
(*************************************************************************)

END SoftScroll.DEF