home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / LNF / PIANO.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-11-09  |  5.1 KB  |  97 lines
  1. /*
  2.         piano.c
  3.         generated by Look & Feel version 3.2 from sample.lnf
  4.         11/09/91
  5. */
  6.  
  7. #include <stdio.h>
  8. #include <cscape.h>
  9. #include <teddecl.h>
  10. #include <msys.h>
  11. #include <sled.h>
  12.  
  13. int piano()
  14. {
  15.         menu_type       menu;
  16.         sed_type        sed;
  17.         int             ret;
  18.  
  19.         menu = menu_Open();
  20.  
  21.         menu_Printf(menu, " │    @a[0x07]│   │@a[0x00]  @a[0x07]│   │@a[0x00]    │    @a[0x07]│   ");
  22.         menu_Printf(menu, "│@a[0x00]  @a[0x07]│   │@a[0x00]  @a[0x07]│   │@a[0x00]    │      │\n │");
  23.         menu_Printf(menu, "    @a[0x07]│   │@a[0x00]  @a[0x07]│   │@a[0x00]    │    @a[0x07]│   ");
  24.         menu_Printf(menu, "│@a[0x00]  @a[0x07]│   │@a[0x00]  @a[0x07]│   │@a[0x00]    │      │\n │");
  25.         menu_Printf(menu, "    @a[0x07]│   │@a[0x00]  @a[0x07]│   │@a[0x00]    │    @a[0x07]│   ");
  26.         menu_Printf(menu, "│@a[0x00]  @a[0x07]│   │@a[0x00]  @a[0x07]│   │@a[0x00]    │      │\n │");
  27.         menu_Printf(menu, "    @a[0x07]│   │@a[0x00]  @a[0x07]│   │@a[0x00]    │    @a[0x07]│   ");
  28.         menu_Printf(menu, "│@a[0x00]  @a[0x07]│   │@a[0x00]  @a[0x07]│   │@a[0x00]    │      │\n │");
  29.         menu_Printf(menu, "    @a[0x07]│   │@a[0x00]  @a[0x07]│   │@a[0x00]    │    @a[0x07]│   ");
  30.         menu_Printf(menu, "│@a[0x00]  @a[0x07]│   │@a[0x00]  @a[0x07]│   │@a[0x00]    │      │\n │");
  31.         menu_Printf(menu, "    @a[0x07]│   │@a[0x00]  @a[0x07]│   │@a[0x00]    │    @a[0x07]│   ");
  32.         menu_Printf(menu, "│@a[0x00]  @a[0x07]│   │@a[0x00]  @a[0x07]│   │@a[0x00]    │      │\n │");
  33.         menu_Printf(menu, "    @a[0x07]│   │@a[0x00]  @a[0x07]│   │@a[0x00]    │    @a[0x07]│   ");
  34.         menu_Printf(menu, "│@a[0x00]  @a[0x07]│   │@a[0x00]  @a[0x07]│   │@a[0x00]    │      │\n │");
  35.         menu_Printf(menu, "    @a[0x07]│   │@a[0x00]  @a[0x07]│   │@a[0x00]    │    @a[0x07]│   ");
  36.         menu_Printf(menu, "│@a[0x00]  @a[0x07]│   │@a[0x00]  @a[0x07]│   │@a[0x00]    │      │\n │");
  37.         menu_Printf(menu, "    @a[0x07]│   │@a[0x00]  @a[0x07]│   │@a[0x00]    │    @a[0x07]│   ");
  38.         menu_Printf(menu, "│@a[0x00]  @a[0x07]│   │@a[0x00]  @a[0x07]│   │@a[0x00]    │      │\n │");
  39.         menu_Printf(menu, "    @a[0x07]│   │@a[0x00]  @a[0x07]│   │@a[0x00]    │    @a[0x07]│   ");
  40.         menu_Printf(menu, "│@a[0x00]  @a[0x07]│   │@a[0x00]  @a[0x07]│   │@a[0x00]    │      │\n │");
  41.         menu_Printf(menu, "    @a[0x07]│   │@a[0x00]  @a[0x07]│   │@a[0x00]    │    @a[0x07]│   ");
  42.         menu_Printf(menu, "│@a[0x00]  @a[0x07]│   │@a[0x00]  @a[0x07]│   │@a[0x00]    │      │\n │");
  43.         menu_Printf(menu, "    @a[0x07]└─┬─┘@a[0x00]  @a[0x07]└─┬─┘@a[0x00]    │    @a[0x07]└─┬─");
  44.         menu_Printf(menu, "┘@a[0x00]  @a[0x07]└─┬─┘@a[0x00]  @a[0x07]└─┬─┘@a[0x00]    │      │\n │      │      │      │      │      │      │      │      │\n │      │      │      │");
  45.         menu_Printf(menu, "      │      │      │      │      │\n │      │      │      │      │      │      │      │      │\n │      │");
  46.         menu_Printf(menu, "      │      │      │      │      │      │      │\n │      │      │      │      │      │      │      ");
  47.         menu_Printf(menu, "│      │\n └──────┴──────┴──────┴──────┴──────┴──────┴──────┴──────┘");
  48.  
  49.         menu_Printf(menu, "@p[16,3]@fb[ AA ]",
  50.           NULL, &framer_funcs, ufunc_Open(lnf_Beep, 2000));
  51.         menu_Printf(menu, "@p[10,7]@fb[ W ]",
  52.           NULL, &framer_funcs, ufunc_Open(lnf_Beep, 1887));
  53.         menu_Printf(menu, "@p[10,14]@fb[ E ]",
  54.           NULL, &framer_funcs, ufunc_Open(lnf_Beep, 1681));
  55.         menu_Printf(menu, "@p[10,28]@fb[ T ]",
  56.           NULL, &framer_funcs, ufunc_Open(lnf_Beep, 1414));
  57.         menu_Printf(menu, "@p[10,35]@fb[ Y ]",
  58.           NULL, &framer_funcs, ufunc_Open(lnf_Beep, 1260));
  59.         menu_Printf(menu, "@p[10,42]@fb[ U ]",
  60.           NULL, &framer_funcs, ufunc_Open(lnf_Beep, 1122));
  61.         menu_Printf(menu, "@p[16,10]@fb[ SS ]",
  62.           NULL, &framer_funcs, ufunc_Open(lnf_Beep, 1781));
  63.         menu_Printf(menu, "@p[16,17]@fb[ DD ]",
  64.           NULL, &framer_funcs, ufunc_Open(lnf_Beep, 1587));
  65.         menu_Printf(menu, "@p[16,24]@fb[ FF ]",
  66.           NULL, &framer_funcs, ufunc_Open(lnf_Beep, 1498));
  67.         menu_Printf(menu, "@p[16,31]@fb[ GG ]",
  68.           NULL, &framer_funcs, ufunc_Open(lnf_Beep, 1335));
  69.         menu_Printf(menu, "@p[16,38]@fb[ HH ]",
  70.           NULL, &framer_funcs, ufunc_Open(lnf_Beep, 1189));
  71.         menu_Printf(menu, "@p[16,45]@fb[ JJ ]",
  72.           NULL, &framer_funcs, ufunc_Open(lnf_Beep, 1059));
  73.         menu_Printf(menu, "@p[16,52]@fb[ KK ]",
  74.           NULL, &framer_funcs, ufunc_Open(lnf_Beep, 1000));
  75.  
  76.         menu_Flush(menu);
  77.  
  78.         sed = sed_Open(menu);
  79.         sed_SetColors(sed, 0x70, 0x70, 0x07);
  80.  
  81.         sed_MarkField(sed, 1, 0x07, 0x70);
  82.         sed_MarkField(sed, 2, 0x07, 0x70);
  83.         sed_MarkField(sed, 3, 0x07, 0x70);
  84.         sed_MarkField(sed, 4, 0x07, 0x70);
  85.         sed_MarkField(sed, 5, 0x07, 0x70);
  86.         sed_SetPosition(sed, 3, 11);
  87.         sed_SetHeight(sed, 18);
  88.         sed_SetWidth(sed, 59);
  89.         sed_SetMouse(sed, sedmou_Framer);
  90.  
  91.         sed_Repaint(sed);
  92.         ret = sed_Go(sed);
  93.  
  94.         sed_Close(sed);
  95.         return(ret);
  96. }
  97.