Data update
This commit is contained in:
Ingy döt Net
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,17 +0,0 @@
|
|||
with Ada.Text_IO; use Ada.Text_IO;
|
||||
with Ada.Strings.Fixed; use Ada.Strings.Fixed;
|
||||
procedure AsciiArt is
|
||||
art : constant array(1..27) of String(1..14) :=
|
||||
(1=>" /\\\\\\ ", 2=>" /\\\",
|
||||
3|6|9=>" ", 4|12=>" /\\\\\\\\\\ ",
|
||||
5|8|11=>" \/\\\", 7|17|21=>" /\\\//////\\\",
|
||||
10|19|20|22=>"\/\\\ \/\\\", 13|23|24=>"\/\\\\\\\\\\\\",
|
||||
14|18=>" /\\\\\\\\\\\", 15=>" \/////////\\\",
|
||||
16=>"\/\\\//////\\\", 25=>"\/// \/// ",
|
||||
26|27=>"\//////////// ");
|
||||
begin
|
||||
for i in art'Range loop
|
||||
Put(art(i)&' ');
|
||||
if i mod 3 = 0 then New_Line; Put(i/3*' '); end if;
|
||||
end loop;
|
||||
end AsciiArt;
|
||||
|
|
@ -1,78 +0,0 @@
|
|||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. cobol-3d.
|
||||
|
||||
DATA DIVISION.
|
||||
WORKING-STORAGE SECTION.
|
||||
01 cobol-area.
|
||||
03 cobol-text-data PIC X(1030) VALUE "________/\\\\\\\\\____
|
||||
- "____/\\\\\________/\\\\\\\\\\\\\__________/\\\\\________
|
||||
- "/\\\_____________ _____/\\\////////_______/\\\//
|
||||
- "/\\\_____\/\\\/////////\\\______/\\\///\\\_____\/\\\____
|
||||
- "_________ ___/\\\/______________/\\\/__\///\\\__
|
||||
- "_\/\\\_______\/\\\____/\\\/__\///\\\___\/\\\____________
|
||||
- "_ __/\\\_______________/\\\______\//\\\__\/\\\\\
|
||||
- "\\\\\\\\\____/\\\______\//\\\__\/\\\_____________
|
||||
- " _\/\\\______________\/\\\_______\/\\\__\/\\\/////////\\\
|
||||
- "__\/\\\_______\/\\\__\/\\\_____________ _\//\\\_
|
||||
- "____________\//\\\______/\\\___\/\\\_______\/\\\__\//\\\
|
||||
- "______/\\\___\/\\\_____________ __\///\\\_______
|
||||
- "_____\///\\\__/\\\_____\/\\\_______\/\\\___\///\\\__/\\\
|
||||
- "_____\/\\\_____________ ____\////\\\\\\\\\_____\
|
||||
- "///\\\\\/______\/\\\\\\\\\\\\\/______\///\\\\\/______\/\
|
||||
- "\\\\\\\\\\\\\\_ _______\/////////________\/////_
|
||||
- "_______\/////////////__________\/////________\//////////
|
||||
- "/////__" *> " Sorry for the syntax highlighting.
|
||||
.
|
||||
03 cobol-text-table REDEFINES cobol-text-data.
|
||||
05 cobol-text PIC X(103) OCCURS 10 TIMES.
|
||||
|
||||
01 i PIC 99.
|
||||
01 j PIC 9(4).
|
||||
|
||||
PROCEDURE DIVISION.
|
||||
*> Display 'COBOL' line-by-line applying a shadow effect.
|
||||
PERFORM VARYING i FROM 1 BY 1 UNTIL 10 < i
|
||||
MOVE 1 TO j
|
||||
PERFORM UNTIL 103 < j
|
||||
*> When the top of a letter meets the right edge,
|
||||
*> take care to shadow only the wall ('/').
|
||||
IF cobol-text (i) (j:4) = "\\\/"
|
||||
DISPLAY cobol-text (i) (j:3) AT LINE i COL j
|
||||
WITH FOREGROUND-COLOR 7, HIGHLIGHT
|
||||
|
||||
ADD 3 TO j
|
||||
DISPLAY cobol-text (i) (j:1) AT LINE i COL j
|
||||
WITH FOREGROUND-COLOR 0, HIGHLIGHT
|
||||
|
||||
ADD 1 TO j
|
||||
|
||||
EXIT PERFORM CYCLE
|
||||
END-IF
|
||||
|
||||
*> Apply shadows to the walls, base and the char
|
||||
*> before the base.
|
||||
IF cobol-text (i) (j:1) = "/"
|
||||
OR cobol-text (i) (FUNCTION SUM(j, 1):1) = "/"
|
||||
OR cobol-text (i) (FUNCTION SUM(j, 1):2)
|
||||
= "\/"
|
||||
DISPLAY cobol-text (i) (j:1) AT LINE i COL j
|
||||
WITH FOREGROUND-COLOR 0, HIGHLIGHT
|
||||
*> Do not apply a shadow to anything else.
|
||||
ELSE
|
||||
DISPLAY cobol-text (i) (j:1) AT LINE i COL j
|
||||
WITH FOREGROUND-COLOR 7 , HIGHLIGHT
|
||||
END-IF
|
||||
|
||||
ADD 1 TO j
|
||||
END-PERFORM
|
||||
END-PERFORM
|
||||
|
||||
*> Prompt the user so that they have a chance to see the
|
||||
*> ASCII art, as sometimes the screen data is overwritten by
|
||||
*> what was on the console before starting the program.
|
||||
DISPLAY "Press enter to stop appreciating COBOL in 3D."
|
||||
AT LINE 11 COL 1
|
||||
ACCEPT i AT LINE 11 COL 46
|
||||
|
||||
GOBACK
|
||||
.
|
||||
|
|
@ -1,12 +1,10 @@
|
|||
(phixonline)-->
|
||||
<span style="color: #008080;">constant</span> <span style="color: #000000;">s</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"""
|
||||
------*** *
|
||||
-----* * *
|
||||
----* * * *
|
||||
---*** *
|
||||
--* *** * * *
|
||||
-* * * * *
|
||||
* * * * * *
|
||||
"""</span>
|
||||
<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">substitute_all</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"* "</span><span style="color: #0000FF;">,{</span><span style="color: #008000;">"_/"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" "</span><span style="color: #0000FF;">}))</span>
|
||||
<!--
|
||||
constant s = """
|
||||
------*** *
|
||||
-----* * *
|
||||
----* * * *
|
||||
---*** *
|
||||
--* *** * * *
|
||||
-* * * * *
|
||||
* * * * * *
|
||||
"""
|
||||
puts(1,substitute_all(s,"* ",{"_/"," "}))
|
||||
|
|
|
|||
|
|
@ -1,4 +1,2 @@
|
|||
(phixonline)-->
|
||||
<span style="color: #008080;">constant</span> <span style="color: #000000;">q</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">0(30)10C</span><span style="color: #0000FF;">,</span><span style="color: #000000;">0(31)176</span><span style="color: #0000FF;">,</span><span style="color: #000000;">0(32)2A4</span><span style="color: #0000FF;">,</span><span style="color: #000000;">0(33)6N3</span><span style="color: #0000FF;">,</span><span style="color: #000000;">0(34)7GP</span><span style="color: #0000FF;">,</span><span style="color: #000000;">0(35)DWF</span><span style="color: #0000FF;">,</span><span style="color: #000000;">0(36)QC4</span><span style="color: #0000FF;">}</span>
|
||||
<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">substitute_all</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">sprintf</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">repeat</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"%16b"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">7</span><span style="color: #0000FF;">),</span><span style="color: #008000;">"\n"</span><span style="color: #0000FF;">),</span><span style="color: #000000;">q</span><span style="color: #0000FF;">),</span><span style="color: #008000;">" 10"</span><span style="color: #0000FF;">,{</span><span style="color: #008000;">"-"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"_/"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" "</span><span style="color: #0000FF;">})&</span><span style="color: #008000;">"\n"</span><span style="color: #0000FF;">)</span>
|
||||
<!--
|
||||
constant q = {0(30)10C,0(31)176,0(32)2A4,0(33)6N3,0(34)7GP,0(35)DWF,0(36)QC4}
|
||||
puts(1,substitute_all(sprintf(join(repeat("%16b",7),"\n"),q)," 10",{"-","_/"," "})&"\n")
|
||||
|
|
|
|||
|
|
@ -1,21 +1,17 @@
|
|||
(phixonline)-->
|
||||
<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"""
|
||||
__ ________
|
||||
/_/\ / ______ \
|
||||
\ \ \/ /\____/ /\ __
|
||||
\ \ \/ / / / //_/\
|
||||
\ \ \/___/ / / \_\/_ __
|
||||
/\ \______/ / /_/\/ /\
|
||||
/ /\ ____ \ \ \ \ \/ /
|
||||
/ / /\ \ \ \ \ \ \_\ /
|
||||
/ / / \ \ \ \ \ \ / / \
|
||||
/_/ / \ \ \ \ \ \ /_/ /\ \
|
||||
\_\/ \_\/ \_\/ \_\/\_\/
|
||||
"""</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #000080;font-style:italic;">-- or if you prefer something a little more cryptic (same output):</span>
|
||||
<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" __ ________\n /_/\\ / ______ \\\n \\ \\ \\/ /\\____/ /\\ __\n "</span><span style="color: #0000FF;">&</span>
|
||||
<span style="color: #008000;">"\\ \\ \\/ / / / //_/\\\n \\ \\ \\/___/ / / \\_\\/_ __\n /\\ \\__"</span><span style="color: #0000FF;">&</span>
|
||||
<span style="color: #008000;">"____/ / /_/\\/ /\\\n / /\\ ____ \\ \\ \\ \\ \\/ /\n / / /\\ \\ "</span><span style="color: #0000FF;">&</span>
|
||||
<span style="color: #008000;">"\\ \\ \\ \\ \\_\\ /\n / / / \\ \\ \\ \\ \\ \\ / / \\\n/_/ / \\"</span><span style="color: #0000FF;">&</span>
|
||||
<span style="color: #008000;">" \\ \\ \\ \\ \\ /_/ /\\ \\\n\\_\\/ \\_\\/ \\_\\/ \\_\\/\\_\\/\n"</span><span style="color: #0000FF;">)</span>
|
||||
<!--
|
||||
puts(1,`
|
||||
__ ________
|
||||
/_/\ / ______ \
|
||||
\ \ \/ /\____/ /\ __
|
||||
\ \ \/ / / / //_/\
|
||||
\ \ \/___/ / / \_\/_ __
|
||||
/\ \______/ / /_/\/ /\
|
||||
/ /\ ____ \ \ \ \ \/ /
|
||||
/ / /\ \ \ \ \ \ \_\ /
|
||||
/ / / \ \ \ \ \ \ / / \
|
||||
/_/ / \ \ \ \ \ \ /_/ /\ \
|
||||
\_\/ \_\/ \_\/ \_\/\_\/
|
||||
`)
|
||||
-- or if you prefer something a little more cryptic (same output):
|
||||
puts(1,substitute_all(sprintf(join(repeat("%023a",13),""),columnize({repeat(5,13),{68669128406254,157935485787520,
|
||||
993509215256720,198701173910414,7948908284711,7224274028808526,6323623063378,8877105814626126,503857930469085,
|
||||
862280375162760,99269582032552,993397286292000,51272813551684}})),tagset('4','0')," /\\_\n"))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue