home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
coders
/
biblioteki
/
fontlib
/
fontlibtest.c
< prev
next >
Wrap
C/C++ Source or Header
|
1996-04-08
|
1KB
|
60 lines
//
// FontLibTest.c
// Version 1.0
//
// FontLib ©1996 Henrik Isaksson
// EMail: henriki@pluggnet.se
// All Rights Reserved.
//
// This library is FreeWare.
// If you plan to use any of theese funtions in commercial software,
// ask me first at the address above.
// I can not be held responsible for any damage or loss of data caused
// by this software. Use it at your own risk.
//
// Questions and suggestions to: henriki@pluggnet.se
//
#include <exec/types.h>
#include <exec/memory.h>
#include <intuition/intuition.h>
#include <clib/diskfont_protos.h>
#include <clib/exec_protos.h>
#include <clib/graphics_protos.h>
#include <clib/intuition_protos.h>
#include <string.h>
#include "fontlib.h"
void main()
{
struct Window *Wnd=OpenWindowTags(NULL,TAG_DONE);
FLFont *f;
int i;
if(Wnd) {
SETWFONT(Wnd,"times.font",24,0,0); // Set Window Font to times.font 24
for(i=0;i<100;i++) {
SETWDRAW(Wnd,1,4,1); // Set Window DrawMode & Pens to FG=1 BG=4 DrawMode=JAM2
WTEXT(Wnd,10+i,30+i,"Hejsan!"); // Print the text (Hejsan=Hello)
Delay(1); // Delay
SETWDRAW(Wnd,0,0,1);
WTEXT(Wnd,10+i,30+i,"Hejsan!"); // Delete the old text.
}
CloseWindow(Wnd);
}
f=FL_LoadFont(XEN11);
FL_FreeFont(f);
FL_FreeAll(); // Close all fonts that I 'forgot' to close
}
// The End!