This is Poor-Mans-Icon-a-text-to-tiff-converter in view mode; [Up]
Date: Sun 14-Jul-1989 20:21:17 From: Unknown Subject: Poor Man's Icon--a text to tiff converter I needed a more convenient way to produce .tiff files than "mousing them out" in Icon. Here's a quick-and-dirty filter that takes text input like +++++**##**+++++ +++*###**###*+++ ++##*......*##++ +*#..........#*+ +#*..........*#+ *#...**..**...#* *#...##..##...#* #*...**..**...*# #*............*# *#............#* *#..+#....#+..#* +#*..*####*..*#+ +*#....++....#*+ ++##*......*##++ +++*###**###*+++ +++++**##**+++++ and produces a usable .tiff file. <usual disclaimers> "The inverse is left as an exercise to the reader" -=EPS=- ------- texttotiff.c /* Produce "no alpha" .tiff files from text file input */ /* Eric P. Scott, San Francisco State University, July 1989 */ /* This code is in the public domain; as is, no warranty */ /* cc -bsd -O -o texttotiff -s texttotiff.c */ #include <stdio.h> struct { long tiff_magic, tiff_firstifd; short tiff_ifdents; struct ifdent { short ifd_tag, ifd_type; long ifd_len, ifd_off; } tiff_ifd[8]; long tiff_ifdchain; } header={ /* warning: nonportable: byte/word order dependent */ 0x4d4d002aL, 8L, 8, { { 255, 3, 1L, 1L<<16 }, { 256, 3, 1L, 0L<<16 }, /* ImageWidth */ { 257, 3, 1L, 0L<<16 }, /* ImageLength */ { 262, 3, 1L, 1L<<16 }, { 277, 3, 1L, 1L<<16 }, { 284, 3, 1L, 2L<<16 }, { 258, 3, 1L, 2L<<16 }, { 273, 4, 1L, 110L } }, 0L }; /* "just like 0.9 Icon" */ char lex[]="#*+."; /* these characters represent gray levels */ main(argc, argv) int argc; char *argv[]; { char *index(), *malloc(); register char *q, *p; register unsigned char *o; register int n; register char *a, *w; char line[1122]; if (argc!=3) { fprintf(stderr, "Usage: %s text-file tiff-file\n", *argv); exit(1); } if (strcmp(argv[1], "-")&&!freopen(argv[1], "r", stdin)) { perror(argv[1]); exit(1); } if (strcmp(argv[2], "-")&&!freopen(argv[2], "w", stdout)) { perror(argv[2]); exit(1); } if (!fgets(line, sizeof line, stdin)) { fprintf(stderr, "%s: empty file?!?\n", *argv); exit(1); } if (p=index(line, '\n')) *p='\0'; else { fprintf(stderr, "%s: internal buffer overflow\n", *argv); exit(1); } if (p==line) { fprintf(stderr, "%s: blank line?!?\n", *argv); exit(1); } if (!(a=malloc((p-line)*208))) { fprintf(stderr, "%s: malloc failure\n", *argv); exit(1); } header.tiff_ifd[1].ifd_off=(p-line)<<16; w=p; o=(unsigned char *)a; for (n=1;;) { p=line; do { if (!(q=index(lex, *p++))) { bad: fprintf(stderr, "%s: illegal character on line %d col %d\n", *argv, n, p-line); exit(1); } *o=(q-lex)<<6; if (!*p) { o++; break; } if (!(q=index(lex, *p++))) goto bad; *o|=(q-lex)<<4; if (!*p) { o++; break; } if (!(q=index(lex, *p++))) goto bad; *o|=(q-lex)<<2; if (!*p) { o++; break; } if (!(q=index(lex, *p++))) goto bad; *o++|=(q-lex); } while (*p); if (!fgets(line, sizeof line, stdin)) break; if (++n>832||(p=index(line, '\n'))) *p='\0'; else { fprintf(stderr, "%s: internal buffer overflow on line %d\n", *argv, n); exit(1); } if (p!=w) { fprintf(stderr, "%s: image not rectangular on line %d\n", *argv, n); exit(1); } } header.tiff_ifd[2].ifd_off=n<<16; fwrite((char *)&header, sizeof header, 1, stdout); fwrite(a, (char *)o-a, 1, stdout); fflush(stdout); exit(0); } >From: bmartin@uhccux.uhcc.hawaii.edu (Brian Martin)
Date: Sun 17-Jul-1989 17:01:05 From: Unknown Subject: Re: Poor Man's Icon--a text to tiff converter I have been having a really nasty problem with my copy of "Icon" It seems that when editing small tiff files [the one in question is 30 x 20] the program will bring the file up in a very strange and trashed out format. Usually in a 48 x 48 size. This is a real bitch because I need some rather small icons to add to some buttons in my app. If there is a work arround or I'm brain dead, let me know. btw, I already trashed my copy on the HD and loaded a "fresh" one from the optical Thanks in advance! Bruce Henderson apple!zygot!bruceh
Date: Sun 20-Jul-1989 06:35:38 From: Unknown Subject: Re: Poor Man's Icon--a text to tiff converter In article <1744@zygot.UUCP> bruceh@zygot.UUCP (Bruce Henderson) writes: >I have been having a really nasty problem with my copy of "Icon" It >seems that when editing small tiff files [the one in question is 30 x >20] the program will bring the file up in a very strange and trashed >out format. Usually in a 48 x 48 size. This is a real bitch because I >need some rather small icons to add to some buttons in my app. If >there is a work arround or I'm brain dead, let me know. Well, here's sort of a work-around: make a .tiff file that's big enough to hold your icons. When you "get it right," select a bounding rectangle (it helps if you turn on the Coordinates display), choose Save As and click the Save Document button into Save Selection. Icon will write out small images properly, it just can't read them back in. If you want to view a small .tiff file, drag it into a Draw window. Hold Alternate and grab a corner knobbie to magnify the image. -=EPS=- / SFSU >From: epsilon@wet.UUCP (Eric P. Scott)
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Marcel Waldvogel and Netfuture.ch.