home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / E / TFF-A32R.LZX / AmigaE3.2a / Src / Gfx / paint.e < prev    next >
Encoding:
Text File  |  1992-09-02  |  668 b   |  24 lines
  1. /* example of using built-in font for images. 'paint.m' converted
  2.    from font-file with font2obj (aminet?) and o2m
  3. */
  4.  
  5. OPT OSVERSION=37
  6.  
  7. MODULE 'tools/clonescreen', '*paint', 'libraries/diskfont'
  8.  
  9. PROC main() HANDLE
  10.   DEF screen=NIL,font=NIL,win=NIL,tf:PTR TO diskfontheader
  11.   tf:={paintf}; tf:=tf.tf
  12.   screen,font:=openclonescreen('Workbench','bla')
  13.   win:=backdropwindow(screen)
  14.   SetFont(stdrast:=screen+84,tf)
  15.   TextF(200,40,'A B C D E F G H ')
  16.   EasyRequestArgs(win,[20,0,'um','uhhh','zure'],0,NIL)
  17. EXCEPT DO
  18.   closeclonescreen(screen,font,win)
  19.   SELECT exception
  20.     CASE "SCR"; WriteF('no screen!\n')
  21.     CASE "WIN"; WriteF('no window!\n')
  22.   ENDSELECT
  23. ENDPROC
  24.