home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Tools / Macros / macros.e
Encoding:
Text File  |  1994-10-03  |  476 b   |  25 lines
  1. /* Ces modules contiennent quelques 'macros' manquantes comme fonctions
  2.    comme le E ne supporte pas les macros
  3. */
  4.  
  5. OPT MODULE
  6.  
  7. MODULE 'graphics/rastport'
  8.  
  9. /* Quelques 'macros' Intuition */
  10.  
  11. EXPORT PROC menunum(x) IS x AND $1F
  12.  
  13. EXPORT PROC itemnum(x) IS Shr(x,5) AND $3F
  14.  
  15. EXPORT PROC subnum(x) IS Shr(x,11) AND $1F
  16.  
  17.  
  18. /* A graphic 'macro' */
  19.  
  20. EXPORT PROC setdrpt(rport:PTR TO rastport,no)
  21.  rport.lineptrn:=no
  22.  rport.flags:=rport.flags OR FRST_DOT
  23.  rport.linpatcnt:=15
  24. ENDPROC
  25.