home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Resource Library: Graphics
/
graphics-16000.iso
/
msdos
/
animutil
/
fastgfx
/
fg303e
/
expas.arj
/
FGDOC
/
EXAMPLES
/
PASCAL
/
07-12.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-09-30
|
649b
|
35 lines
program main;
uses fgmain, fgmisc, fgworld;
var
angle : integer;
index : integer;
old_mode : integer;
theta : real;
message : string[24];
degrees : string[4];
begin
old_mode := fg_getmode;
fg_setmode(16);
fg_setcolor(10);
fg_initw;
fg_setworld(0.0,6.39,0.0,3.49);
fg_setsizew(0.21);
for index := 0 to 23 do
begin
angle := index * 15;
fg_movew(3.2,1.75);
theta := angle;
fg_setangle(theta);
str(angle:3,degrees);
message := ' ' + degrees + ' degrees';
fg_swtext(message,16,-1);
end;
fg_waitkey;
fg_setmode(old_mode);
fg_reset;
end.