home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 300-399 / ff338.lzh / SASTools / M2ouse / M2ouse.mod < prev    next >
Text File  |  1990-03-23  |  2KB  |  53 lines
  1. ****************************************************************************
  2. *  Programme : M2ouse.mod                                                  *
  3. *  Usage     : M2ouse >file                                                *
  4. *  Version   : V1.10                                                       *
  5. *  Date      : 15.05.1989                                                  *
  6. *  Author    : Jörg Sixt                                                   *
  7. *  Purpose   : converts mouse-pointer to an INLINE-procedure and write it  *
  8. *              into the actual output-handler                              *
  9. *  Language  : Modula-2,AMSoft  PD-Version from Fish 113                   *
  10. *  Bugs      : The PD-Version don't have an argument-module, so the        *
  11. *              output file must be specified via pipeling                  *
  12. ****************************************************************************
  13.  
  14. MODULE M2ouse ;
  15.  
  16. FROM SYSTEM    IMPORT ADR ;
  17. FROM InOut     IMPORT WriteHex ;
  18. FROM Terminal  IMPORT WriteString,WriteLn ;
  19. FROM Intuition IMPORT Preferences,GetPrefs,pointerSize ;
  20.  
  21. VAR  Buffer : Preferences ;
  22.      i      : CARDINAL ;
  23.  
  24. PROCEDURE IntoHex (number : CARDINAL) ;
  25.  
  26.     BEGIN
  27.        WriteString("              0") ; WriteHex(number,4) ; WriteString("H,") ;
  28.     END IntoHex ;
  29.  
  30. BEGIN
  31.    GetPrefs(ADR(Buffer),108) ;
  32.    WITH Buffer DO
  33.       WriteString("PROCEDURE SpriteData ;") ; WriteLn ;
  34.       WriteString("    BEGIN")              ; WriteLn ;
  35.       WriteString("       INLINE(")         ; WriteLn ;
  36.       FOR i := 1 TO pointerSize DO
  37.          IntoHex(pointerMatrix[i-1]) ;
  38.          IF NOT(ODD(i)) THEN WriteLn ; END ;
  39.       END ;
  40.       WriteString("             ) ;")       ; WriteLn ;
  41.       WriteString("    END SpriteData ;")   ; WriteLn ;
  42.       WriteLn ;
  43.       WriteString("PROCEDURE SpriteCols ;") ; WriteLn ;
  44.       WriteString("    BEGIN")              ; WriteLn ;
  45.       WriteString("       INLINE(")         ; WriteLn ;
  46.       IntoHex(color17) ;
  47.       IntoHex(color18) ;
  48.       IntoHex(color19) ; WriteLn ;
  49.       WriteString("             ) ;")       ; WriteLn ;
  50.       WriteString("    END SpriteCols ;")   ; WriteLn ;
  51.    END ;
  52. END M2ouse .
  53.