aboutsummaryrefslogtreecommitdiff
path: root/user/bin/sl.c
diff options
context:
space:
mode:
Diffstat (limited to 'user/bin/sl.c')
-rw-r--r--user/bin/sl.c502
1 files changed, 502 insertions, 0 deletions
diff --git a/user/bin/sl.c b/user/bin/sl.c
new file mode 100644
index 0000000..a8f62c7
--- /dev/null
+++ b/user/bin/sl.c
@@ -0,0 +1,502 @@
+/*========================================
+ * sl.c: SL version 5.03
+ * Copyright 1993,1998,2014-2015
+ * Toyoda Masashi
+ * (mtoyoda@acm.org)
+ * Last Modified: 2014/06/03
+ *========================================
+ */
+/* sl version 5.03 : Fix some more compiler warnings. */
+/* by Ryan Jacobs 2015/01/19 */
+/* sl version 5.02 : Fix compiler warnings. */
+/* by Jeff Schwab 2014/06/03 */
+/* sl version 5.01 : removed cursor and handling of IO */
+/* by Chris Seymour 2014/01/03 */
+/* sl version 5.00 : add -c option */
+/* by Toyoda Masashi 2013/05/05 */
+/* sl version 4.00 : add C51, usleep(40000) */
+/* by Toyoda Masashi 2002/12/31 */
+/* sl version 3.03 : add usleep(20000) */
+/* by Toyoda Masashi 1998/07/22 */
+/* sl version 3.02 : D51 flies! Change options. */
+/* by Toyoda Masashi 1993/01/19 */
+/* sl version 3.01 : Wheel turns smoother */
+/* by Toyoda Masashi 1992/12/25 */
+/* sl version 3.00 : Add d(D51) option */
+/* by Toyoda Masashi 1992/12/24 */
+/* sl version 2.02 : Bug fixed.(dust remains in screen) */
+/* by Toyoda Masashi 1992/12/17 */
+/* sl version 2.01 : Smoke run and disappear. */
+/* Change '-a' to accident option. */
+/* by Toyoda Masashi 1992/12/16 */
+/* sl version 2.00 : Add a(all),l(long),F(Fly!) options. */
+/* by Toyoda Masashi 1992/12/15 */
+/* sl version 1.02 : Add turning wheel. */
+/* by Toyoda Masashi 1992/12/14 */
+/* sl version 1.01 : Add more complex smoke. */
+/* by Toyoda Masashi 1992/12/14 */
+/* sl version 1.00 : SL runs vomiting out smoke. */
+/* by Toyoda Masashi 1992/12/11 */
+
+/*========================================
+ * sl.h: SL version 5.02
+ * Copyright 1993,2002,2014
+ * Toyoda Masashi
+ * (mtoyoda@acm.org)
+ * Last Modified: 2014/06/03
+ *========================================
+ */
+#include <stdio.h>
+#include <unistd.h>
+
+#define ERR 0
+#define OK 1
+#define LINES 25
+#define COLS 80
+
+#define D51HEIGHT 10
+#define D51FUNNEL 7
+#define D51LENGTH 83
+#define D51PATTERNS 6
+
+#define D51STR1 " ==== ________ ___________ "
+#define D51STR2 " _D _| |_______/ \\__I_I_____===__|_________| "
+#define D51STR3 " |(_)--- | H\\________/ | | =|___ ___| "
+#define D51STR4 " / | | H | | | | ||_| |_|| "
+#define D51STR5 " | | | H |__--------------------| [___] | "
+#define D51STR6 " | ________|___H__/__|_____/[][]~\\_______| | "
+#define D51STR7 " |/ | |-----------I_____I [][] [] D |=======|__ "
+
+#define D51WHL11 "__/ =| o |=-~~\\ /~~\\ /~~\\ /~~\\ ____Y___________|__ "
+#define D51WHL12 " |/-=|___|= || || || |_____/~\\___/ "
+#define D51WHL13 " \\_/ \\O=====O=====O=====O_/ \\_/ "
+
+#define D51WHL21 "__/ =| o |=-~~\\ /~~\\ /~~\\ /~~\\ ____Y___________|__ "
+#define D51WHL22 " |/-=|___|=O=====O=====O=====O |_____/~\\___/ "
+#define D51WHL23 " \\_/ \\__/ \\__/ \\__/ \\__/ \\_/ "
+
+#define D51WHL31 "__/ =| o |=-O=====O=====O=====O \\ ____Y___________|__ "
+#define D51WHL32 " |/-=|___|= || || || |_____/~\\___/ "
+#define D51WHL33 " \\_/ \\__/ \\__/ \\__/ \\__/ \\_/ "
+
+#define D51WHL41 "__/ =| o |=-~O=====O=====O=====O\\ ____Y___________|__ "
+#define D51WHL42 " |/-=|___|= || || || |_____/~\\___/ "
+#define D51WHL43 " \\_/ \\__/ \\__/ \\__/ \\__/ \\_/ "
+
+#define D51WHL51 "__/ =| o |=-~~\\ /~~\\ /~~\\ /~~\\ ____Y___________|__ "
+#define D51WHL52 " |/-=|___|= O=====O=====O=====O|_____/~\\___/ "
+#define D51WHL53 " \\_/ \\__/ \\__/ \\__/ \\__/ \\_/ "
+
+#define D51WHL61 "__/ =| o |=-~~\\ /~~\\ /~~\\ /~~\\ ____Y___________|__ "
+#define D51WHL62 " |/-=|___|= || || || |_____/~\\___/ "
+#define D51WHL63 " \\_/ \\_O=====O=====O=====O/ \\_/ "
+
+#define D51DEL " "
+
+#define COAL01 " "
+#define COAL02 " "
+#define COAL03 " _________________ "
+#define COAL04 " _| \\_____A "
+#define COAL05 " =| | "
+#define COAL06 " -| | "
+#define COAL07 "__|________________________|_ "
+#define COAL08 "|__________________________|_ "
+#define COAL09 " |_D__D__D_| |_D__D__D_| "
+#define COAL10 " \\_/ \\_/ \\_/ \\_/ "
+
+#define COALDEL " "
+
+#define LOGOHEIGHT 6
+#define LOGOFUNNEL 4
+#define LOGOLENGTH 84
+#define LOGOPATTERNS 6
+
+#define LOGO1 " ++ +------ "
+#define LOGO2 " || |+-+ | "
+#define LOGO3 " /---------|| | | "
+#define LOGO4 " + ======== +-+ | "
+
+#define LWHL11 " _|--O========O~\\-+ "
+#define LWHL12 "//// \\_/ \\_/ "
+
+#define LWHL21 " _|--/O========O\\-+ "
+#define LWHL22 "//// \\_/ \\_/ "
+
+#define LWHL31 " _|--/~O========O-+ "
+#define LWHL32 "//// \\_/ \\_/ "
+
+#define LWHL41 " _|--/~\\------/~\\-+ "
+#define LWHL42 "//// \\_O========O "
+
+#define LWHL51 " _|--/~\\------/~\\-+ "
+#define LWHL52 "//// \\O========O/ "
+
+#define LWHL61 " _|--/~\\------/~\\-+ "
+#define LWHL62 "//// O========O_/ "
+
+#define LCOAL1 "____ "
+#define LCOAL2 "| \\@@@@@@@@@@@ "
+#define LCOAL3 "| \\@@@@@@@@@@@@@_ "
+#define LCOAL4 "| | "
+#define LCOAL5 "|__________________| "
+#define LCOAL6 " (O) (O) "
+
+#define LCAR1 "____________________ "
+#define LCAR2 "| ___ ___ ___ ___ | "
+#define LCAR3 "| |_| |_| |_| |_| | "
+#define LCAR4 "|__________________| "
+#define LCAR5 "|__________________| "
+#define LCAR6 " (O) (O) "
+
+#define DELLN " "
+
+#define C51HEIGHT 11
+#define C51FUNNEL 7
+#define C51LENGTH 87
+#define C51PATTERNS 6
+
+#define C51DEL " "
+
+#define C51STR1 " ___ "
+#define C51STR2 " _|_|_ _ __ __ ___________"
+#define C51STR3 " D__/ \\_(_)___| |__H__| |_____I_Ii_()|_________|"
+#define C51STR4 " | `---' |:: `--' H `--' | |___ ___| "
+#define C51STR5 " +|~~~~~~~~++::~~~~~~~H~~+=====+~~~~~~|~~||_| |_|| "
+#define C51STR6 " || | :: H +=====+ | |:: ...| "
+#define C51STR7 "| | _______|_::-----------------[][]-----| | "
+
+#define C51WH61 "| /~~ || |-----/~~~~\\ /[I_____I][][] --|||_______|__"
+#define C51WH62 "------'|oOo|==[]=- || || | ||=======_|__"
+#define C51WH63 "/~\\____|___|/~\\_| O=======O=======O |__|+-/~\\_| "
+#define C51WH64 "\\_/ \\_/ \\____/ \\____/ \\____/ \\_/ "
+
+#define C51WH51 "| /~~ || |-----/~~~~\\ /[I_____I][][] --|||_______|__"
+#define C51WH52 "------'|oOo|===[]=- || || | ||=======_|__"
+#define C51WH53 "/~\\____|___|/~\\_| O=======O=======O |__|+-/~\\_| "
+#define C51WH54 "\\_/ \\_/ \\____/ \\____/ \\____/ \\_/ "
+
+#define C51WH41 "| /~~ || |-----/~~~~\\ /[I_____I][][] --|||_______|__"
+#define C51WH42 "------'|oOo|===[]=- O=======O=======O | ||=======_|__"
+#define C51WH43 "/~\\____|___|/~\\_| || || |__|+-/~\\_| "
+#define C51WH44 "\\_/ \\_/ \\____/ \\____/ \\____/ \\_/ "
+
+#define C51WH31 "| /~~ || |-----/~~~~\\ /[I_____I][][] --|||_______|__"
+#define C51WH32 "------'|oOo|==[]=- O=======O=======O | ||=======_|__"
+#define C51WH33 "/~\\____|___|/~\\_| || || |__|+-/~\\_| "
+#define C51WH34 "\\_/ \\_/ \\____/ \\____/ \\____/ \\_/ "
+
+#define C51WH21 "| /~~ || |-----/~~~~\\ /[I_____I][][] --|||_______|__"
+#define C51WH22 "------'|oOo|=[]=- O=======O=======O | ||=======_|__"
+#define C51WH23 "/~\\____|___|/~\\_| || || |__|+-/~\\_| "
+#define C51WH24 "\\_/ \\_/ \\____/ \\____/ \\____/ \\_/ "
+
+#define C51WH11 "| /~~ || |-----/~~~~\\ /[I_____I][][] --|||_______|__"
+#define C51WH12 "------'|oOo|=[]=- || || | ||=======_|__"
+#define C51WH13 "/~\\____|___|/~\\_| O=======O=======O |__|+-/~\\_| "
+#define C51WH14 "\\_/ \\_/ \\____/ \\____/ \\____/ \\_/ "
+
+void add_smoke(int y, int x);
+void add_man(int y, int x);
+int add_C51(int x);
+int add_D51(int x);
+int add_sl(int x);
+void option(char *str);
+int my_mvaddstr(int y, int x, char *str);
+
+int ACCIDENT = 0;
+int LOGO = 0;
+int FLY = 0;
+int C51 = 0;
+
+int mvaddch(int y, int x, char c)
+{
+ printf("\033[%d;%dH%c", y, x, c);
+ // fflush(stdout);
+
+ return OK;
+}
+
+int my_mvaddstr(int y, int x, char *str)
+{
+ for (; x < 0; ++x, ++str)
+ if (*str == '\0')
+ return ERR;
+ for (; *str != '\0'; ++str, ++x)
+ if (mvaddch(y, x, *str) == ERR)
+ return ERR;
+ return OK;
+}
+
+void option(char *str)
+{
+ while (*str != '\0')
+ {
+ switch (*str++)
+ {
+ case 'a':
+ ACCIDENT = 1;
+ break;
+ case 'F':
+ FLY = 1;
+ break;
+ case 'l':
+ LOGO = 1;
+ break;
+ case 'c':
+ C51 = 1;
+ break;
+ default:
+ break;
+ }
+ }
+}
+
+int main(int argc, char *argv[])
+{
+ int x, i;
+
+ for (i = 1; i < argc; ++i)
+ {
+ if (*argv[i] == '-')
+ {
+ option(argv[i] + 1);
+ }
+ }
+
+ printf("\033[?25l");
+ // initscr();
+ // signal(SIGINT, SIG_IGN);
+ // noecho();
+ // curs_set(0);
+ // nodelay(stdscr, TRUE);
+ // leaveok(stdscr, TRUE);
+ // scrollok(stdscr, FALSE);
+
+ for (x = COLS - 1;; --x)
+ {
+ if (LOGO == 1)
+ {
+ if (add_sl(x) == ERR)
+ break;
+ }
+ else if (C51 == 1)
+ {
+ if (add_C51(x) == ERR)
+ break;
+ }
+ else
+ {
+ if (add_D51(x) == ERR)
+ break;
+ }
+ // getch();
+ // refresh();
+ fflush(stdout);
+ //size_t x = time(NULL);
+ // while(time(NULL) < x) {__asm__ ( "pause;" );}
+
+ /*for (int i = 0; i < 5000; i++)
+ {
+ __asm__("pause;");
+ }*/
+ usleep(200000);
+
+ printf("\033[2J\033[1;1H");
+ fflush(stdout);
+ }
+
+ printf("\033[?25h");
+ fflush(stdout);
+ // mvcur(0, COLS - 1, LINES - 1, 0);
+ // endwin();
+
+ return 0;
+}
+
+int add_sl(int x)
+{
+ static char *sl[LOGOPATTERNS][LOGOHEIGHT + 1] = {
+ {LOGO1, LOGO2, LOGO3, LOGO4, LWHL11, LWHL12, DELLN},
+ {LOGO1, LOGO2, LOGO3, LOGO4, LWHL21, LWHL22, DELLN},
+ {LOGO1, LOGO2, LOGO3, LOGO4, LWHL31, LWHL32, DELLN},
+ {LOGO1, LOGO2, LOGO3, LOGO4, LWHL41, LWHL42, DELLN},
+ {LOGO1, LOGO2, LOGO3, LOGO4, LWHL51, LWHL52, DELLN},
+ {LOGO1, LOGO2, LOGO3, LOGO4, LWHL61, LWHL62, DELLN}};
+
+ static char *coal[LOGOHEIGHT + 1] = {LCOAL1, LCOAL2, LCOAL3, LCOAL4,
+ LCOAL5, LCOAL6, DELLN};
+
+ static char *car[LOGOHEIGHT + 1] = {LCAR1, LCAR2, LCAR3, LCAR4,
+ LCAR5, LCAR6, DELLN};
+
+ int i, y, py1 = 0, py2 = 0, py3 = 0;
+
+ if (x < -LOGOLENGTH)
+ return ERR;
+ y = LINES / 2 - 3;
+
+ if (FLY == 1)
+ {
+ y = (x / 6) + LINES - (COLS / 6) - LOGOHEIGHT;
+ py1 = 2;
+ py2 = 4;
+ py3 = 6;
+ }
+ for (i = 0; i <= LOGOHEIGHT; ++i)
+ {
+ my_mvaddstr(y + i, x, sl[(LOGOLENGTH + x) / 3 % LOGOPATTERNS][i]);
+ my_mvaddstr(y + i + py1, x + 21, coal[i]);
+ my_mvaddstr(y + i + py2, x + 42, car[i]);
+ my_mvaddstr(y + i + py3, x + 63, car[i]);
+ }
+ if (ACCIDENT == 1)
+ {
+ add_man(y + 1, x + 14);
+ add_man(y + 1 + py2, x + 45);
+ add_man(y + 1 + py2, x + 53);
+ add_man(y + 1 + py3, x + 66);
+ add_man(y + 1 + py3, x + 74);
+ }
+ add_smoke(y - 1, x + LOGOFUNNEL);
+ return OK;
+}
+
+int add_D51(int x)
+{
+ static char *d51[D51PATTERNS][D51HEIGHT + 1] = {
+ {D51STR1, D51STR2, D51STR3, D51STR4, D51STR5, D51STR6, D51STR7,
+ D51WHL11, D51WHL12, D51WHL13, D51DEL},
+ {D51STR1, D51STR2, D51STR3, D51STR4, D51STR5, D51STR6, D51STR7,
+ D51WHL21, D51WHL22, D51WHL23, D51DEL},
+ {D51STR1, D51STR2, D51STR3, D51STR4, D51STR5, D51STR6, D51STR7,
+ D51WHL31, D51WHL32, D51WHL33, D51DEL},
+ {D51STR1, D51STR2, D51STR3, D51STR4, D51STR5, D51STR6, D51STR7,
+ D51WHL41, D51WHL42, D51WHL43, D51DEL},
+ {D51STR1, D51STR2, D51STR3, D51STR4, D51STR5, D51STR6, D51STR7,
+ D51WHL51, D51WHL52, D51WHL53, D51DEL},
+ {D51STR1, D51STR2, D51STR3, D51STR4, D51STR5, D51STR6, D51STR7,
+ D51WHL61, D51WHL62, D51WHL63, D51DEL}};
+ static char *coal[D51HEIGHT + 1] = {COAL01, COAL02, COAL03, COAL04,
+ COAL05, COAL06, COAL07, COAL08,
+ COAL09, COAL10, COALDEL};
+
+ int y, i, dy = 0;
+
+ if (x < -D51LENGTH)
+ return ERR;
+ y = LINES / 2 - 5;
+
+ if (FLY == 1)
+ {
+ y = (x / 7) + LINES - (COLS / 7) - D51HEIGHT;
+ dy = 1;
+ }
+ for (i = 0; i <= D51HEIGHT; ++i)
+ {
+ my_mvaddstr(y + i, x, d51[(D51LENGTH + x) % D51PATTERNS][i]);
+ my_mvaddstr(y + i + dy, x + 53, coal[i]);
+ }
+ if (ACCIDENT == 1)
+ {
+ add_man(y + 2, x + 43);
+ add_man(y + 2, x + 47);
+ }
+ add_smoke(y - 1, x + D51FUNNEL);
+ return OK;
+}
+
+int add_C51(int x)
+{
+ static char *c51[C51PATTERNS][C51HEIGHT + 1] = {
+ {C51STR1, C51STR2, C51STR3, C51STR4, C51STR5, C51STR6, C51STR7, C51WH11,
+ C51WH12, C51WH13, C51WH14, C51DEL},
+ {C51STR1, C51STR2, C51STR3, C51STR4, C51STR5, C51STR6, C51STR7, C51WH21,
+ C51WH22, C51WH23, C51WH24, C51DEL},
+ {C51STR1, C51STR2, C51STR3, C51STR4, C51STR5, C51STR6, C51STR7, C51WH31,
+ C51WH32, C51WH33, C51WH34, C51DEL},
+ {C51STR1, C51STR2, C51STR3, C51STR4, C51STR5, C51STR6, C51STR7, C51WH41,
+ C51WH42, C51WH43, C51WH44, C51DEL},
+ {C51STR1, C51STR2, C51STR3, C51STR4, C51STR5, C51STR6, C51STR7, C51WH51,
+ C51WH52, C51WH53, C51WH54, C51DEL},
+ {C51STR1, C51STR2, C51STR3, C51STR4, C51STR5, C51STR6, C51STR7, C51WH61,
+ C51WH62, C51WH63, C51WH64, C51DEL}};
+ static char *coal[C51HEIGHT + 1] = {COALDEL, COAL01, COAL02, COAL03,
+ COAL04, COAL05, COAL06, COAL07,
+ COAL08, COAL09, COAL10, COALDEL};
+
+ int y, i, dy = 0;
+
+ if (x < -C51LENGTH)
+ return ERR;
+ y = LINES / 2 - 5;
+
+ if (FLY == 1)
+ {
+ y = (x / 7) + LINES - (COLS / 7) - C51HEIGHT;
+ dy = 1;
+ }
+ for (i = 0; i <= C51HEIGHT; ++i)
+ {
+ my_mvaddstr(y + i, x, c51[(C51LENGTH + x) % C51PATTERNS][i]);
+ my_mvaddstr(y + i + dy, x + 55, coal[i]);
+ }
+ if (ACCIDENT == 1)
+ {
+ add_man(y + 3, x + 45);
+ add_man(y + 3, x + 49);
+ }
+ add_smoke(y - 1, x + C51FUNNEL);
+ return OK;
+}
+
+void add_man(int y, int x)
+{
+ static char *man[2][2] = {{"", "(O)"}, {"Help!", "\\O/"}};
+ int i;
+
+ for (i = 0; i < 2; ++i)
+ {
+ my_mvaddstr(y + i, x, man[(LOGOLENGTH + x) / 12 % 2][i]);
+ }
+}
+
+void add_smoke(int y, int x)
+#define SMOKEPTNS 16
+{
+ static struct smokes
+ {
+ int y, x;
+ int ptrn, kind;
+ } S[1000];
+ static int sum = 0;
+ static char *Smoke[2][SMOKEPTNS] = {
+ {"( )", "( )", "( )", "( )", "( )", "( )", "( )", "( )",
+ "()", "()", "O", "O", "O", "O", "O", " "},
+ {"(@@@)", "(@@@@)", "(@@@@)", "(@@@)", "(@@)", "(@@)", "(@)", "(@)",
+ "@@", "@@", "@", "@", "@", "@", "@", " "}};
+ static char *Eraser[SMOKEPTNS] = {
+ " ", " ", " ", " ", " ", " ", " ", " ",
+ " ", " ", " ", " ", " ", " ", " ", " "};
+ static int dy[SMOKEPTNS] = {2, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
+ static int dx[SMOKEPTNS] = {-2, -1, 0, 1, 1, 1, 1, 1,
+ 2, 2, 2, 2, 2, 3, 3, 3};
+ int i;
+
+ if (x % 4 == 0)
+ {
+ for (i = 0; i < sum; ++i)
+ {
+ my_mvaddstr(S[i].y, S[i].x, Eraser[S[i].ptrn]);
+ S[i].y -= dy[S[i].ptrn];
+ S[i].x += dx[S[i].ptrn];
+ S[i].ptrn += (S[i].ptrn < SMOKEPTNS - 1) ? 1 : 0;
+ my_mvaddstr(S[i].y, S[i].x, Smoke[S[i].kind][S[i].ptrn]);
+ }
+ my_mvaddstr(y, x, Smoke[sum % 2][0]);
+ S[sum].y = y;
+ S[sum].x = x;
+ S[sum].ptrn = 0;
+ S[sum].kind = sum % 2;
+ sum++;
+ }
+} \ No newline at end of file
generated by cgit v1.2.3-70-g09d2 (git 2.46.0) at 2025-10-06 07:36:27 +0000