home *** CD-ROM | disk | FTP | other *** search
- /*******************************************************/
- /* */
- /* 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("garnet.font",16.0);
- upset("fsty",1.0);
- uprint(10.,90.,"garnet.font underlined");
-
- ufont("topaz.font",11.0);
- upset("fsty",0.0);
- uprint(10.,80.,"topaz.font ");
-
- upset("fsty",1.0);
- uprnt1("text","line continuation...");
-
- upset("fsty",0.0);
- umove(10.,30.);
- uprnt1("inte",25.0);
- uprnt1("text"," ");
- uprnt1("real",25.0);
- uprnt1("text"," ");
-
- upset("fsty",3.0);
- uprnt1("text","BOLD & underlined.");
-
- ugrin(&x,&y);
-
- uend();
-
- }
-
-