/*
* XaoS, a fast portable realtime fractal zoomer
* Copyright (C) 1996,1997 by
*
* Jan Hubicka (hubicka@paru.cas.cz)
* Thomas Marsh (tmarsh@austin.ibm.com)
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
static char data[65536 / 2];
int main(int argc, char **argv)
{
int x, y, s, l = 0, l2 = 0, letter;
int skip = 12;
int width = 80;
int shift = 0;
int rnd = 1;
int digit = 0;
char *string = NULL;
FILE *f = NULL;
for (s = 1; s < argc; s++) {
if (s
< argc
- 1 && !strcmp(argv
[s
], "-w")) width
= atol(argv
[s
+ 1]), s
++; else if (s
< argc
- 1 && !strcmp(argv
[s
], "-s")) skip
= atol(argv
[s
+ 1]), s
++; else if (s
< argc
- 1 && !strcmp(argv
[s
], "-t")) string = argv[s + 1], s++;
else if (s
< argc
- 1 && !strcmp(argv
[s
], "-f")) { f
= fopen(argv
[s
+ 1], "r"); if (f == NULL)
s++;
} else if (!strcmp(argv
[s
], "-r")) rnd = 0;
else if (!strcmp(argv
[s
], "-d")) digit = 1;
else {
printf("Unknown option %s\n\n", argv
[s
]); printf("ASCII-art stereogram generator version 1.0 by Jan Hubicka <hubicka@freesoft.cz>\n\n" "Usage: %s [options] < file\n\n"
"File consist from spaces and digits representing depth\n\n"
"Options:\n"
"-w width Image width (80)\n"
"-s step Size of repeating seqence (12)\n"
"-t text Text used to generate background\n"
"-r Disable random text placement\n"
"-f file Use file as input for raster\n"
"-d Use digits instead of letters\n"
,argv[0]);
return 1;
}
}
for (y
= 0; !feof(stdin
); y
++) { l = 0;
l2 = 0;
if (rnd)
for (x = 0; x < width; x++) {
if (f != NULL) {
if (!l2) {
if (letter == '\n' || letter == EOF)
letter = ' ', l2 = 1;
} else
letter = ' ';
} else
letter
= !digit
? rand() % 32 + 'A' : rand() % 10 + '0'; if (!l && x > skip) {
if (s == ' ')
s = 0;
else if (s == '\n' || s == EOF)
s = 0, l = 1;
else if (s >= '0' && s <= '9')
s = '0' - s;
else
s = -2;
} else
s = 0;
s += skip;
s = x - s;
if (s < 0)
s
= string
== NULL
? letter
: string
[(x
+ shift
) % strlen(string
)]; else
s = data[s];
data[x] = s;
}
s = 'a';
while (!l && s != EOF && s != '\n')
s = 'a';
if (f != NULL)
while (!l2 && s != EOF && s != '\n')
}
return 0;
}
Ci8qIAogKiAgICAgWGFvUywgYSBmYXN0IHBvcnRhYmxlIHJlYWx0aW1lIGZyYWN0YWwgem9vbWVyIAogKiAgICAgICAgICAgICAgICAgIENvcHlyaWdodCAoQykgMTk5NiwxOTk3IGJ5CiAqCiAqICAgICAgSmFuIEh1Ymlja2EgICAgICAgICAgKGh1Ymlja2FAcGFydS5jYXMuY3opCiAqICAgICAgVGhvbWFzIE1hcnNoICAgICAgICAgKHRtYXJzaEBhdXN0aW4uaWJtLmNvbSkKICoKICogVGhpcyBwcm9ncmFtIGlzIGZyZWUgc29mdHdhcmU7IHlvdSBjYW4gcmVkaXN0cmlidXRlIGl0IGFuZC9vciBtb2RpZnkKICogaXQgdW5kZXIgdGhlIHRlcm1zIG9mIHRoZSBHTlUgR2VuZXJhbCBQdWJsaWMgTGljZW5zZSBhcyBwdWJsaXNoZWQgYnkKICogdGhlIEZyZWUgU29mdHdhcmUgRm91bmRhdGlvbjsgZWl0aGVyIHZlcnNpb24gMiBvZiB0aGUgTGljZW5zZSwgb3IKICogKGF0IHlvdXIgb3B0aW9uKSBhbnkgbGF0ZXIgdmVyc2lvbi4KICoKICogVGhpcyBwcm9ncmFtIGlzIGRpc3RyaWJ1dGVkIGluIHRoZSBob3BlIHRoYXQgaXQgd2lsbCBiZSB1c2VmdWwsCiAqIGJ1dCBXSVRIT1VUIEFOWSBXQVJSQU5UWTsgd2l0aG91dCBldmVuIHRoZSBpbXBsaWVkIHdhcnJhbnR5IG9mCiAqIE1FUkNIQU5UQUJJTElUWSBvciBGSVRORVNTIEZPUiBBIFBBUlRJQ1VMQVIgUFVSUE9TRS4gIFNlZSB0aGUKICogR05VIEdlbmVyYWwgUHVibGljIExpY2Vuc2UgZm9yIG1vcmUgZGV0YWlscy4KICoKICogWW91IHNob3VsZCBoYXZlIHJlY2VpdmVkIGEgY29weSBvZiB0aGUgR05VIEdlbmVyYWwgUHVibGljIExpY2Vuc2UKICogYWxvbmcgd2l0aCB0aGlzIHByb2dyYW07IGlmIG5vdCwgd3JpdGUgdG8gdGhlIEZyZWUgU29mdHdhcmUKICogRm91bmRhdGlvbiwgSW5jLiwgNjc1IE1hc3MgQXZlLCBDYW1icmlkZ2UsIE1BIDAyMTM5LCBVU0EuCiAqLwojaW5jbHVkZSA8c3RkaW8uaD4KI2luY2x1ZGUgPHN0ZGxpYi5oPgojaW5jbHVkZSA8c3RyaW5nLmg+CnN0YXRpYyBjaGFyIGRhdGFbNjU1MzYgLyAyXTsKaW50IG1haW4oaW50IGFyZ2MsIGNoYXIgKiphcmd2KQp7CiAgICBpbnQgeCwgeSwgcywgbCA9IDAsIGwyID0gMCwgbGV0dGVyOwogICAgaW50IHNraXAgPSAxMjsKICAgIGludCB3aWR0aCA9IDgwOwogICAgaW50IHNoaWZ0ID0gMDsKICAgIGludCBybmQgPSAxOwogICAgaW50IGRpZ2l0ID0gMDsKICAgIGNoYXIgKnN0cmluZyA9IE5VTEw7CiAgICBGSUxFICpmID0gTlVMTDsKICAgIGZvciAocyA9IDE7IHMgPCBhcmdjOyBzKyspIHsKCWlmIChzIDwgYXJnYyAtIDEgJiYgIXN0cmNtcChhcmd2W3NdLCAiLXciKSkKCSAgICB3aWR0aCA9IGF0b2woYXJndltzICsgMV0pLCBzKys7CgllbHNlIGlmIChzIDwgYXJnYyAtIDEgJiYgIXN0cmNtcChhcmd2W3NdLCAiLXMiKSkKCSAgICBza2lwID0gYXRvbChhcmd2W3MgKyAxXSksIHMrKzsKCWVsc2UgaWYgKHMgPCBhcmdjIC0gMSAmJiAhc3RyY21wKGFyZ3Zbc10sICItdCIpKQoJICAgIHN0cmluZyA9IGFyZ3ZbcyArIDFdLCBzKys7CgllbHNlIGlmIChzIDwgYXJnYyAtIDEgJiYgIXN0cmNtcChhcmd2W3NdLCAiLWYiKSkgewoJICAgIGYgPSBmb3Blbihhcmd2W3MgKyAxXSwgInIiKTsKCSAgICBpZiAoZiA9PSBOVUxMKQoJCXBlcnJvcihhcmd2W3MgKyAxXSksIGV4aXQoMSk7CgkgICAgcysrOwoJfSBlbHNlIGlmICghc3RyY21wKGFyZ3Zbc10sICItciIpKQoJICAgIHJuZCA9IDA7CgllbHNlIGlmICghc3RyY21wKGFyZ3Zbc10sICItZCIpKQoJICAgIGRpZ2l0ID0gMTsKCWVsc2UgewoJICAgIHByaW50ZigiVW5rbm93biBvcHRpb24gJXNcblxuIiwgYXJndltzXSk7CgkgICAgcHJpbnRmKCJBU0NJSS1hcnQgc3RlcmVvZ3JhbSBnZW5lcmF0b3IgdmVyc2lvbiAxLjAgYnkgSmFuIEh1Ymlja2EgPGh1Ymlja2FAZnJlZXNvZnQuY3o+XG5cbiIKCQkgICAiVXNhZ2U6ICVzIFtvcHRpb25zXSA8IGZpbGVcblxuIgoJICAgICAgICAgICAiRmlsZSBjb25zaXN0IGZyb20gc3BhY2VzIGFuZCBkaWdpdHMgcmVwcmVzZW50aW5nIGRlcHRoXG5cbiIKCQkgICAiT3B0aW9uczpcbiIKCQkgICAiLXcgd2lkdGggICBJbWFnZSB3aWR0aCAoODApXG4iCgkJICAgIi1zIHN0ZXAgICAgU2l6ZSBvZiByZXBlYXRpbmcgc2VxZW5jZSAoMTIpXG4iCgkJICAgIi10IHRleHQgICAgVGV4dCB1c2VkIHRvIGdlbmVyYXRlIGJhY2tncm91bmRcbiIKCQkgICAiLXIgICAgICAgICBEaXNhYmxlIHJhbmRvbSB0ZXh0IHBsYWNlbWVudFxuIgoJCSAgICItZiBmaWxlICAgIFVzZSBmaWxlIGFzIGlucHV0IGZvciByYXN0ZXJcbiIKCQkgICAiLWQgICAgICAgICBVc2UgZGlnaXRzIGluc3RlYWQgb2YgbGV0dGVyc1xuIgoJCSAgICxhcmd2WzBdKTsKCSAgICByZXR1cm4gMTsKCX0KICAgIH0KICAgIGZvciAoeSA9IDA7ICFmZW9mKHN0ZGluKTsgeSsrKSB7CglsID0gMDsKCWwyID0gMDsKCWlmIChybmQpCgkgICAgc2hpZnQgPSByYW5kKCk7Cglmb3IgKHggPSAwOyB4IDwgd2lkdGg7IHgrKykgewoJICAgIGlmIChmICE9IE5VTEwpIHsKCQlpZiAoIWwyKSB7CgkJICAgIGxldHRlciA9IGdldGMoZik7CgkJICAgIGlmIChsZXR0ZXIgPT0gJ1xuJyB8fCBsZXR0ZXIgPT0gRU9GKQoJCQlsZXR0ZXIgPSAnICcsIGwyID0gMTsKCQl9IGVsc2UKCQkgICAgbGV0dGVyID0gJyAnOwoJICAgIH0gZWxzZQoJCWxldHRlciA9ICFkaWdpdCA/IHJhbmQoKSAlIDMyICsgJ0EnIDogcmFuZCgpICUgMTAgKyAnMCc7CgkgICAgaWYgKCFsICYmIHggPiBza2lwKSB7CgkJcyA9IGdldGMoc3RkaW4pOwoJCWlmIChzID09ICcgJykKCQkgICAgcyA9IDA7CgkJZWxzZSBpZiAocyA9PSAnXG4nIHx8IHMgPT0gRU9GKQoJCSAgICBzID0gMCwgbCA9IDE7CgkJZWxzZSBpZiAocyA+PSAnMCcgJiYgcyA8PSAnOScpCgkJICAgIHMgPSAnMCcgLSBzOwoJCWVsc2UKCQkgICAgcyA9IC0yOwoJICAgIH0gZWxzZQoJCXMgPSAwOwoJICAgIHMgKz0gc2tpcDsKCSAgICBzID0geCAtIHM7CgkgICAgaWYgKHMgPCAwKQoJCXMgPSBzdHJpbmcgPT0gTlVMTCA/IGxldHRlciA6IHN0cmluZ1soeCArIHNoaWZ0KSAlIHN0cmxlbihzdHJpbmcpXTsKCSAgICBlbHNlCgkJcyA9IGRhdGFbc107CgkgICAgZGF0YVt4XSA9IHM7CgkgICAgcHV0YyhzLCBzdGRvdXQpOwoJfQoJcHV0YygnXG4nLCBzdGRvdXQpOwoJcyA9ICdhJzsKCXdoaWxlICghbCAmJiBzICE9IEVPRiAmJiBzICE9ICdcbicpCgkgICAgcyA9IGdldGMoc3RkaW4pOwoJcyA9ICdhJzsKCWlmIChmICE9IE5VTEwpCgkgICAgd2hpbGUgKCFsMiAmJiBzICE9IEVPRiAmJiBzICE9ICdcbicpCgkJcyA9IGdldGMoZik7CiAgICB9CiAgICByZXR1cm4gMDsKfQo=