home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2753 < prev    next >
Encoding:
Internet Message Format  |  1991-02-14  |  5.4 KB
  1. From: jbr0@cbnews.att.com (joseph.a.brownlee)
  2. Newsgroups: alt.sources
  3. Subject: Valentine Program
  4. Message-ID: <1991Feb13.211939.1547@cbnews.att.com>
  5. Date: 13 Feb 91 21:19:39 GMT
  6.  
  7. I am posting this for a friend.  The "Reply-To" line in the article is set to
  8. go to the author.  Send all comments to him.
  9.  
  10. > From: Andrew Rogers <uunet!hicomb!rogers%calamari>
  11. > 
  12. > Here's a cute seasonal program I hacked many years ago.  If you can possibly
  13. > post it to alt.sources before Valentine's Day, I'm sure lots of people will
  14. > enjoy it.
  15. > 
  16. > Andrew
  17.  
  18.  
  19. ---------------------------- 8<  cut here  >8 ----------------------------------
  20. /*
  21.  * Valentine program
  22.  *
  23.  *    prog <string1> <string2> ...
  24.  *
  25.  * generates repeating pattern of <stringN> to stdout in one of two designs
  26.  * (see below).
  27.  *
  28.  *    options:
  29.  *
  30.  *    -H    draw heart design (default)
  31.  *    -L    draw Robert Indiana's "LOVE" design
  32.  *    -r    shift successive lines to right (default)
  33.  *    -n    do not shift successive lines
  34.  *    -l    shift successive lines to left
  35.  *
  36.  * Author: A. W. Rogers, circa 1980
  37.  */
  38.  
  39. #define MAXSKIP        4            /* maximum # of skip pairs */
  40. #define NSKIP        (2 * MAXSKIP + 1)    /* array dimension */
  41. #define STRSIZ        200            /* string buffer size */
  42. #define NONE        { 0 }            /* line has no skip pairs */
  43. #define END        -1            /* flag for last line */
  44. #define LASTLINE    { -1 }            /* initializer for last line */
  45.  
  46. #define HEART    0                /* output designs */
  47. #define LOVE    1
  48. #define DEFAULT_DESIGN    HEART
  49.  
  50. #define NOSHIFT    0                /* direction of shifting */
  51. #define RSHIFT    1
  52. #define LSHIFT    2
  53. #define DEFAULT_SHIFT    RSHIFT
  54.  
  55. #define FALSE    0                /* the usual... */
  56. #define TRUE    1
  57.  
  58.  
  59. /* initialization of fields to skip when drawing each type of design */
  60.  
  61. short skip_heart[][NSKIP] = {
  62.     NONE,
  63.     {  2, 59 }, {  2, 14,  21, 40,  47, 59 }, {  2, 11,  23, 38,  50, 59 },
  64.     {  2,  8,  26, 35,  53, 59 }, {  2,  6,  29, 33,  55, 59 },
  65.     {  2,  4,  30, 31,  57, 59 }, {  2,  3,  58, 59 }, {  2,  2,  59, 59 },
  66.     {  2,  2,  59, 59 }, {  2,  2,  59, 59 }, {  2,  2,  59, 59 },
  67.     {  2,  2,  59, 59 }, {  2,  2,  59, 59 }, {  2,  2,  59, 59 },
  68.     {  2,  3,  58, 59 }, {  2,  3,  58, 59 }, {  2,  4,  57, 59 },
  69.     {  2,  5,  56, 59 }, {  2,  5,  56, 59 }, {  2,  6,  55, 59 },
  70.     {  2,  7,  54, 59 }, {  2,  8,  53, 59 }, {  2, 10,  51, 59 },
  71.     {  2, 11,  50, 59 }, {  2, 12,  49, 59 }, {  2, 14,  47, 59 },
  72.     {  2, 16,  45, 59 }, {  2, 19,  42, 59 }, {  2, 21,  40, 59 },
  73.     {  2, 23,  38, 59 }, {  2, 25,  36, 59 }, {  2, 28,  33, 59 },
  74.     {  2, 29,  32, 59 }, {  2, 59 }, NONE,
  75.     LASTLINE
  76.     } ;
  77.  
  78. short skip_love[][NSKIP] = {
  79.     NONE ,
  80.     {  2, 13,  40, 48 }, {  4, 11,  36, 52 }, {  5, 10,  34, 54 },
  81.     {  5, 10,  33, 44,  50, 55 }, {  5, 10,  32, 42,  51, 56 },
  82.     {  5, 10,  32, 41,  52, 56 }, {  5, 10,  32, 40,  52, 56 },
  83.     {  5, 10,  32, 39,  51, 56 }, {  5, 10,  32, 38,  50, 56 },
  84.     {  5, 10,  32, 37,  49, 56 }, {  5, 10,  32, 36,  48, 56 },
  85.     {  5, 10,  30, 30,  32, 36,  47, 56 },
  86.     {  5, 10,  29, 30,  32, 37,  46, 56 },
  87.     {  5, 10,  28, 30,  32, 38,  44, 56 },
  88.     {  5, 10,  26, 30,  33, 55 }, {  2, 30,  36, 52 },
  89.     {  2, 30,  40, 48 }, {  2, 14,  20, 59 }, {  2, 14,  20, 59 },
  90.     {  5, 10,  24, 26,  37, 42,  55, 59 },
  91.     {  6, 11,  23, 25,  37, 42,  57, 59 },
  92.     {  6, 11,  23, 25,  37, 42,  58, 59 },
  93.     {  7, 12,  22, 24,  37, 42,  59, 59 },
  94.     {  7, 12,  22, 24,  37, 42,  50, 50 },
  95.     {  8, 13,  21, 23,  37, 42,  49, 50 },
  96.     {  8, 13,  21, 23,  37, 50 },
  97.     {  9, 14,  20, 22,  37, 42,  49, 50 },
  98.     {  9, 14,  20, 22,  37, 42,  50, 50 },
  99.     { 10, 15,  19, 21,  37, 42,  59, 59 },
  100.     { 10, 15,  19, 21,  37, 42,  58, 59 },
  101.     { 11, 16,  18, 20,  37, 42,  57, 59 },
  102.     { 11, 20,  37, 42,  55, 59 }, { 12, 19,  33, 59 }, { 12, 19,  33, 59 },
  103.     NONE ,
  104.     LASTLINE
  105.     } ;
  106.  
  107. struct {
  108.     short (*lineskip)[NSKIP];        /* ptr to one of above arrays */
  109.     int  width;                /* width of design */
  110.     } design_info[] = {
  111.         skip_heart,    60,        /* HEART */
  112.         skip_love,    60        /* LOVE */
  113.     };
  114.  
  115.  
  116. void initstr(str, text, width, off)        /* set up output string */
  117.     char *str;
  118.     char *text;
  119.     int  width;
  120.     int  off;
  121. {
  122.     off %= strlen(text);
  123.     strcpy(str, text+off);
  124.     while (strlen(str) < width)
  125.         strcat(str, text);
  126.     str[width] = '\0';
  127. }
  128.  
  129.  
  130. main(argc, argv)
  131.     int argc;
  132.     char **argv;
  133. {
  134.     char str[STRSIZ], *parg;
  135.     int i, off, incr;
  136.     int first = TRUE;
  137.     int design = DEFAULT_DESIGN, direction = DEFAULT_SHIFT;
  138.     short (*ppskip)[NSKIP];
  139.     short *pskip;
  140.  
  141.     while (parg = *++argv) {
  142.  
  143.         if (*parg == '-') {        /* get option */
  144.             switch(*++parg) {
  145.             case 'L':
  146.                 design = LOVE;
  147.                 break;
  148.             case 'H':
  149.                 design = HEART;
  150.                 break;
  151.             case 'l':
  152.                 direction = LSHIFT;
  153.                 break;
  154.             case 'r':
  155.                 direction = RSHIFT;
  156.                 break;
  157.             case 'n':
  158.                 direction = NOSHIFT;
  159.                 break;
  160.             }
  161.             continue;
  162.         }
  163.     
  164.         if (*parg == '\0')        /* skip null args */
  165.             continue;
  166.     
  167.         if (!first)            /* print design for arg */
  168.             printf("\f\n");        /* <FF> between designs */
  169.         first = FALSE;
  170.  
  171.         incr = direction == NOSHIFT ? 0 :
  172.                direction == LSHIFT ? 1 : strlen(parg) - 1;
  173.  
  174.         for (off = 0, ppskip = design_info[design].lineskip;
  175.              *(pskip = (short *)ppskip) != END;
  176.              off += incr, ppskip++) {
  177.             initstr(str, parg, design_info[design].width, off);
  178.             for ( ; pskip[0]; pskip += 2)
  179.                 for (i = pskip[0]; i <= pskip[1]; i++)
  180.                     str[i-1] = ' ';
  181.             printf("\t%s\n", str);
  182.         }
  183.     }
  184. }
  185. -- 
  186.    -      _   Joe Brownlee, Analysts International Corp. @ AT&T Network Systems
  187.   /_\  @ / `  471 E Broad St, Suite 1610, Columbus, Ohio 43215   (614) 860-7461
  188.  /   \ | \_,  E-mail: jbr@cblph.att.com     Who pays attention to what _I_ say?
  189.  "Scotty, we need warp drive in 3 minutes or we're all dead!" --- James T. Kirk
  190.