home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hot Stuff 2
/
hot_stuff_2.zip
/
hot_stuff_2
/
PROGRAMS
/
PLAY80.ZIP
/
ICON.POC
next >
Wrap
Text File
|
1992-05-09
|
515b
|
34 lines
//
// quick and dirty poco to write an icon to the file icon.bin
//
//
// if anyone tidies it up, please fax or send the changes to me
//
main() {
int x;
int y;
int w;
int h;
int x1;
int y1;
FILE *handle;
char ch[256];
int true;
Qfile(".ico", "make", "icon", ch, 1, "choose icon file");
handle = fopen(ch,"w");
true = RubBox(&x1, &y1, &w , &h);
for (y=y1; y<(y1+h); y++) {
for (x=x1; x<(x1+w); x++) {
fputc(GetDot(x,y), handle);
}
}
fclose(handle);
}