home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
progm
/
pcgraphc.zip
/
LB_DEMO.C
< prev
next >
Wrap
C/C++ Source or Header
|
1988-12-26
|
3KB
|
133 lines
#include <stdio.h>
#include "graph.h"
#include <math.h>
int mark (double, double, int, char *);
main()
{
int mode;
double re, im, a, x, y, xt, d_to_r;
char *idx;
mode = CGA_320x200; /* 320x200, 4 color */
g_init (mode); /* select graphics mode: default pen = 1, lable origin = 1 */
frame (); /* frame hard clip limit */
scale (0, 100, 0, 100);
move (50,100);
lorg (6);
labelf ("Labeling and Label Origins");
csize (3,0,0);
mark (5,5,1,"lorg (1)");
mark (5,15,2,"lorg (2)");
mark (5,25,3,"lorg (3)");
mark (40,5,4,"lorg (4)");
mark (40,15,5,"lorg (5)");
mark (40,25,6,"lorg (6)");
mark (85,5,7,"lorg (7)");
mark (85,15,8,"lorg (8)");
mark (85,25,9,"lorg (9)");
lorg (1);
move (5,85);
csize (2,0,0);
labelf ("c");
csize (3,0,0);
move (7,84.5);
labelf ("s");
csize (4,0,0);
move (9,84);
labelf ("i");
csize (5,0,0);
move (11.5,83.5);
labelf ("z");
csize (6,0,0);
move (15,83);
labelf ("e");
move (5,80);
csize (3,0,0);
labelf ("change size");
move (75,85);
csize (3,0,-15);
labelf ("t");
csize (3,0,-10);
labelf ("i");
csize (3,0,-5);
labelf ("l");
csize (3,0,0);
labelf ("t");
csize (3,0,5);
labelf ("i");
csize (3,0,10);
labelf ("n");
csize (3,0,15);
labelf ("g");
csize (3,0,0);
move (95,82);
lorg (8);
labelf ("Add tilt");
lorg (1);
move (80,70);
csize (3.5,0,0);
labelf ("0.2 ");
csize (3.5,.2,0);
labelf ("A");
move (80,65);
csize (3.5,0,0);
labelf ("0.4 ");
csize (3.5,.4,0);
labelf ("A");
move (80,60);
csize (3.5,0,0);
labelf ("0.6 ");
csize (3.5,.6,0);
labelf ("A");
move (80,55);
csize (3.5,0,0);
labelf ("0.8 ");
csize (3.5,.8,0);
labelf ("A");
move (80,50);
csize (3.5,0,0);
labelf ("1.0 ");
csize (3.5,1.0,0);
labelf ("A");
csize (3,0,0);
move (80,45);
labelf ("aspect\nratio");
csize (3,0,0);
d_to_r = 3.1415926 / 180;
re = cos (-10 * d_to_r);
im = sin (-10 * d_to_r);
x = -20 * cos (40 * d_to_r);
y = -20 * sin (40 * d_to_r);
move (50 + x, 50 + y);
idx = "Creative labeling in action ";
lorg (4);
unclip ();
for (a = 0; a >= -360.0; a -= 10)
{
ldir (130 + a);
move (50 + x, 50 + y);
labelf ("%c", *idx);
++idx;
xt = x;
x = x * re - y * im;
y = y * re + xt * im;
}
exit(0);
}
int mark (x, y, org, text) double x, y; int org; char * text;
{
move (x-1, y);
draw (x+1, y);
move (x, y-1);
draw (x, y+1);
move (x,y);
lorg (org);
labelf ("%s",text);
return;
}