36 lines
1.1 KiB
C
36 lines
1.1 KiB
C
/**
|
|
** DRAWING.H ---- a stupid little drawing used all over in test programs
|
|
**
|
|
** Copyright (c) 1995 Csaba Biegl, 820 Stirrup Dr, Nashville, TN 37221
|
|
** [e-mail: csaba@vuse.vanderbilt.edu] See "doc/copying.cb" for details.
|
|
**/
|
|
|
|
#include "rand.h"
|
|
|
|
void drawing(int xpos,int ypos,int xsize,int ysize,long fg,long bg)
|
|
{
|
|
# define XP(x) (int)((((long)(x) * (long)xsize) / 100L) + xpos)
|
|
# define YP(y) (int)((((long)(y) * (long)ysize) / 100L) + ypos)
|
|
int ii;
|
|
if(bg != GrNOCOLOR) {
|
|
GrFilledBox(xpos,ypos,xpos+xsize-1,ypos+ysize-1,bg);
|
|
}
|
|
GrLine(XP(10),YP(10),XP(40),YP(40),fg);
|
|
GrLine(XP(40),YP(10),XP(10),YP(40),fg);
|
|
GrLine(XP(35),YP(10),XP(65),YP(40),fg);
|
|
GrLine(XP(35),YP(40),XP(65),YP(10),fg);
|
|
GrLine(XP(70),YP(10),XP(90),YP(40),fg);
|
|
GrLine(XP(70),YP(40),XP(90),YP(10),fg);
|
|
for(ii = 0; ii < 5; ii++) {
|
|
GrBox(XP(70+2*ii),YP(10+3*ii),XP(90-2*ii),YP(40-3*ii),fg);
|
|
}
|
|
GrFilledBox(XP(10),YP(50),XP(60),YP(90),fg);
|
|
GrBox(XP(70),YP(50),XP(90),YP(90),fg);
|
|
for(ii = 0; ii < 100; ii++) {
|
|
GrPlot(XP((RND() % 20U) + 70),YP((RND() % 40U) + 50),fg);
|
|
}
|
|
}
|
|
|
|
#undef XP
|
|
#undef YP
|
|
|