home *** CD-ROM | disk | FTP | other *** search
- #include "gwin.user.h"
- /*******************************************************/
- /* */
- /* GRAPHICS MAIN */
- /* */
- /*******************************************************/
- main()
- {
- float x,y;
-
- USTART("low1",0.,320.,0.,200.);
-
- /* This shows how you would retrieve a font from some other disk. */
- /* This font set is on fish 202. I have tested this and it works. */
- /* It is commented out here since fish 202 is probably not in your */
- /* df1: drive right now. -- Right? */
- /* ufont("df1:SlavicFonts/cyrillic/moskva.font",11.0); */
-
- ufont(G,"garnet.font",16.0);
- upset(G,"fsty",1.0);
- uprint(G,10.,90.,"garnet.font underlined");
-
- ufont(G,"topaz.font",11.0);
- upset(G,"fsty",0.0);
- uprint(G,10.,80.,"topaz.font ");
-
- upset(G,"fsty",1.0);
- uprnt1(G,"text","line continuation...");
-
- upset(G,"fsty",0.0);
- umove(G,10.,30.);
- /* uprnt1(G,"inte",25.0); */
- uprnt1(G,"text","25.0");
- uprnt1(G,"text"," ");
- /* uprnt1(G,"inte",25.0); */
- uprnt1(G,"text","25");
- uprnt1(G,"text"," ");
-
- upset(G,"fsty",3.0);
- uprnt1(G,"text","BOLD & underlined.");
-
- if(ugrin(G,&x,&y)){UEND();exit(0);};
-
- UEND();
-
- }
-
-