Chop up my ASCII art

Question

Let's say I've got some ASCII art:

 ___ ,"---". : ; `-.-' | | | | | | _.-\_/-._ _ / | | \ _ / / `---' \ \ / `-----------' \ /,-""-. ,-""-.\ ( i-..-i i-..-i ) |`| |-------| |'| \ `-..-' ,=. `-..-'/ `--------|=|-------' | | \ \ ) ) hjw / / ( (

(Source)

But I want to focus on the cable of this joystick, because I actually want a picture of a garden path, leading up to a door.

 ,=. -|=|- | | \ \ ) ) / / ( (

I could copy out line after line, I could use a text editor with block selection mode, or... I could write some code!

So, my code needs five arguments:

A piece of ASCII art, a newline separated string.
The X axis of the top-left corner (1-indexed, from left hand column, positive integer)
The Y axis of the top-left corner (1-indexed, from top row, positive integer)
Width of the resultant image (positive integer)
Height of the resultant image (positive integer)

Test Cases

ASCII image:

 ___ ,"---". : ; `-.-' | | | | | | _.-\_/-._ _ / | | \ _ / / `---' \ \ / `-----------' \ /,-""-. ,-""-.\ ( i-..-i i-..-i ) |`| |-------| |'| \ `-..-' ,=. `-..-'/ `--------|=|-------' | | \ \ ) ) hjw / / ( (

Garden path

X: 10
Y: 15
Width: 5
Height: 7

Result:

 ,=. -|=|- | | \ \ ) ) / / ( (

DB icon

X: 3
Y: 12
Width: 6
Height: 4

Output:

,-""-. i-..-i | | `-..-'

Alien Elder

X: 9
Y: 1
Width: 7
Height: 10

 ___ ,"---". : ; `-.-' | | | | | | .-\_/-. | | `---'

Signature

X: 16
Y: 19
Width: 3
Height: 1

hjw

Rules

Output can be given by any convenient method.
Either a full program or a function are acceptable.
Standard loopholes are forbidden.
This is code-golf so all usual golfing rules apply, and the shortest code (in bytes) wins.

Also, in testcase 1, Y should bew 15, and in TC 2, X should be 3 — TFeld
– TFeld, Commented Oct 26, 2018 at 9:15
Can we assume the input is padded to a rectangle with spaces? — DLosc
– DLosc, Commented Oct 26, 2018 at 9:23
That's exactly what I thought of when I saw that ascii art, a garden path. I didn't think of anything else at all... — Jo King
– Jo King, Commented Oct 26, 2018 at 10:27
It seems many of the X and Y values are incorrect in the test cases (maybe some are 0 indexed?!) - at least: Y of Garden Path should be 15; X of DB Icon should be 3. — Jonathan Allan
– Jonathan Allan, Commented Oct 26, 2018 at 10:44

dzaima · Accepted Answer · 2018-10-27 11:06:43Z

21

Canvas, 1 byte

＠

Try it here!

It takes height, width, Y, X, and ASCII art as inputs, in that order.

Though almost everything about the ASCII art objects in Canvas is 0-indexed, ＠ is 1-indexed by some reason. ¯\_(ツ)_/¯

edited Oct 27, 2018 at 11:06

answered Oct 26, 2018 at 11:39

dzaima

20.3k2 gold badges42 silver badges75 bronze badges

\$\begingroup\$ Expected answer from canvas :D (mb charcoal have something similar) \$\endgroup\$

Dead Possum
– Dead Possum

2018-10-26 11:44:22 +00:00
Commented Oct 26, 2018 at 11:44
\$\begingroup\$ What sorcery is this! \$\endgroup\$

AJFaraday
– AJFaraday

2018-10-29 09:18:24 +00:00
Commented Oct 29, 2018 at 9:18
\$\begingroup\$ @AJFaraday I mean, wouldn't you expect that a language specifically made for ASCII-art manipulation to not have a built-in to get a specific part of an ascii-art? :p \$\endgroup\$

dzaima
– dzaima

2018-10-29 09:36:56 +00:00
Commented Oct 29, 2018 at 9:36

Add a comment |

TFeld · Accepted Answer · 2018-10-26 09:17:20Z

Python 2, 64 62 bytes

lambda I,x,y,w,h:[l[x-1:][:w]for l in I.split('\n')[y-1:][:h]]

Try it online!

If X and Y can be 0-indexed:

Python 2, 56 bytes

lambda I,x,y,w,h:[l[x:x+w]for l in I.split('\n')[y:y+h]]

Try it online!

Neil · Accepted Answer · 2018-10-26 12:20:31Z

Charcoal, 7 bytes

δＪθηＴζε

Try it online! Link is to verbose version of code. Takes 0-indexed coordintaes. Explanation:

δ

Print the ASCII art.

Ｊθη

Jump to the top left corner of the desired rectangle.

Ｔζε

Trim the canvas to the desired size.

Community · Accepted Answer · 2020-06-17 09:04:33Z

Pip `-n`, 21 bytes

_@>--b@<dM(a^n--c+,e)

Try it online!

Or, if 0-indexing is allowed...

Pip `-n`, 17 bytes:

_@>b@<dM(a^nc+,e)

Try it online!

Explanation

Takes all five arguments as command-line args.

 a-e are the 5 cmdline args; n is newline a^n Split a on newlines ,e Range(e) c+ Add c to each element ( ) Use the resulting range(c,c+e) to slice into the list of lines M To each line, map this function: _ The line @>b Slice, keeping indices b and greater @<d Slice, keeping indices less than d Print, joining on newlines (-n flag)

The above solutions also assume the input is a perfect rectangle--i.e., the lines are all the same length. Otherwise, 2 extra bytes are needed (use -l instead of -n):

(Z(a^nZDsb+,d)c+,e) 0-indexed, 19 bytes (Z(a^nZDs--b+,d)--c+,e) 1-indexed, 23 bytes

Emigna · Accepted Answer · 2018-10-26 09:51:25Z

3

05AB1E, 21 19 bytes

UV¶¡εXG¦}Y£}sG¦}s£»

Try it online!

Or if 0-indexing is allowed:

05AB1E, 18 bytes

UV¶¡εX.$Y£}sF¦}s£»

Try it online!

edited Oct 26, 2018 at 9:51

answered Oct 26, 2018 at 9:26

Emigna

53.2k5 gold badges44 silver badges164 bronze badges

\$\begingroup\$ 12 if you can take in [X1, X2] and [Y1, Y2] as v³ŸNåiy²ŸèJ= \$\endgroup\$

Magic Octopus Urn
– Magic Octopus Urn

2018-10-26 13:14:16 +00:00
Commented Oct 26, 2018 at 13:14

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

Japt `-R`, 13 11 bytes

·tWÉY ®tVÉX

Try it

2 bytes saved thanks to Kamil Drakari

9 bytes if not for the unnecessary requirement that solutions use 1-based indexing.

·tWY ®tVX

Explanation

 :Implicit input of string U and integers V=X, W=Y, X=Width & Y=Height · :Split U on newlines t :Slice WÉ : From 0-based index W-1 Y : To length Y ® :Map t : Substring VÉ : From 0-based index V-1 X : To length X :Implicitly join with newlines and output

In my testing, you can save 2 bytes by switching the slice to t, and another 2 bytes by 0 indexing. It might be worth waiting on the second one since OP hasn't clarified whether 0 indexing is acceptable, or fixed the test cases. — Kamil Drakari
– Kamil Drakari, Commented Oct 26, 2018 at 14:40
Nice one, @KamilDrakari - completely forgot the t method works on arrays, too. — Shaggy
– Shaggy, Commented Oct 26, 2018 at 16:44

Shieru Asakoto · Accepted Answer · 2018-10-29 01:04:16Z

JavaScript (Node.js), 70 69 bytes

-1 Thanks @Shaggy for the splice() idea.

(a,x,y,w,h)=>a.split` `.map(q=>q.substr(x-1,w)).splice(--y,h).join` `

Try it online!

The ASCII art given is annoying tbh

\$\begingroup\$ 69 bytes \$\endgroup\$

Shaggy
– Shaggy

2018-10-26 16:52:25 +00:00
Commented Oct 26, 2018 at 16:52 — Shaggy
– Shaggy, Commented Oct 26, 2018 at 16:52

Galen Ivanov · Accepted Answer · 2018-10-26 13:12:44Z

J, 45 bytes

f=:4 :0 'a b c d'=.x-#:10 y{~<(a+i.b);c+i.d )

Try it online!

Notes: J accepts up to 2 arguments, left and right. The right argument is the ASCII art string, the left one - a list of U H X W values

I simulate the newline and the function call has a code to convert the string to an array.

DJMcMayhem · Accepted Answer · 2018-10-26 15:47:06Z

V, 16 bytes

ÀGÀ|<C-v>@cl@djyHVGp

Try it online!

Input is expected to be padded with spaces to be a perfect rectangle. Also, the 'Y' input comes before the 'X'.

Hexdump:

00000000: c047 c07c 1640 636c 4064 6a79 4856 4770 .G.|.@cl@djyHVGp

ErikF · Accepted Answer · 2018-10-29 23:04:55Z

C (gcc), 118 109 bytes

The input can contain jagged lines: newlines are printed if they exist in the y-range.

Thanks to ceilingcat for the suggestion.

f(s,x,y,w,h,a,b,c)char*s;{for(b=1,a=0;*s;a=c?!b++:a,s++)((c=*s==10)|++a>=x&a-x<w)&b>=y&b-y<h-c&&putchar(*s);}

Try it online!

Erik the Outgolfer · Accepted Answer · 2018-10-26 12:55:31Z

Jelly, 11 bytes

Ỵṫ€¥ṫḣ€ḣ4ƭ/

Try it online!

Takes the ASCII-art as a Python multi-line r-string (so as to avoid problems with backslashes).

totallyhuman · Accepted Answer · 2018-10-26 13:14:59Z

1

Haskell, 61 bytes

(x#y)w h=unlines.map(take w.drop(x-1)).take h.drop(y-1).lines

Try it online!

Takes arguments in order: x, y, w, h, s.

edited Oct 26, 2018 at 13:14

answered Oct 26, 2018 at 13:09

totallyhuman

17.4k3 gold badges34 silver badges89 bronze badges

\$\begingroup\$ 58 bytes: Try it online! \$\endgroup\$

Laikoni
– Laikoni

2018-10-26 17:38:24 +00:00
Commented Oct 26, 2018 at 17:38

Add a comment |

Digital Trauma · Accepted Answer · 2018-10-26 18:02:17Z

Bash + coreutils, 37

cut -b$1-$[$1+$3-1]|tail +$2|head -$4

Interestingly, GNU tail 8.28 (on Ubuntu 18.04) allows +NUM format, whereas GNU tail 8.29 on TIO requires 2 extra bytes for this -n+NUM.

Try it online!

I thought doing this all in sed might be shorter, but at 50 bytes its not:

sed -nr "$2,$[$2+$4-1]s/.{$[$1-1]}(.{,$3}).*/\1/p"

Community · Accepted Answer · 2020-06-17 09:04:33Z

K4, 31 bytes

Solution:

{[a;x;y;w;h]a .-1+(y;x)+!:'h,w}

Examples:

q)ASCII:(" ___";" ,\"---\".";" : ;";" `-.-'";" | |";" | |";" | |";" _.-\\_/-._";" _ / | | \\ _";" / / `---' \\ \\";" / `-----------' \\";" /,-\"\"-. ,-\"\"-.\\";"( i-..-i i-..-i )";"|`| |-------| |'|";"\\ `-..-' ,=. `-..-'/";" `--------|=|-------'";" | |";" \\ \\";" ) ) hjw";" / /";" ( (") q)k){[a;x;y;w;h]a .-1+(y;x)+!:'h,w}[ASCII;10;15;5;7] " ,=. " "-|=|-" " | | " " \\ \\ " " ) )" " / / " "( ( " q)k){[a;x;y;w;h].[a;-1+(y;x)+!:'h,w]}[ASCII;3;12;6;4] ",-\"\"-." "i-..-i" "| |" "`-..-'" q)k){[a;x;y;w;h].[a;-1+(y;x)+!:'h,w]}[ASCII;9;1;7;10] " ___ " ",\"---\"." ": ;" " `-.-' " " | | " " | | " " | | " ".-\\_/-." "| |" " `---' " q)k){[a;x;y;w;h].[a;-1+(y;x)+!:'h,w]}[ASCII;16;19;3;1] "hjw"

Explanation:

Take the 1-indexed input, generate the x/y coordinates and index into ascii art.

{[a;x;y;w;h]a .-1+(y;x)+!:'h,w} / the solution {[a;x;y;w;h] } / lambda taking 5 inputs, a(scii), x, y, w(idth), h(eight) h,w / concatenate height and width, e.g. 7 5 !:' / range til each, e.g. (0 1 2 3 4 5 6;0 1 2 3 4) (y;x)+ / add list y x to it, e.g. (15 16 17 18 19 20 21;10 11 12 13 14) -1+ / subtract 1, e.g. (14 15 16 17 18 19 20;9 10 11 12 13) a . / index into a at these coordinates

J.Doe · Accepted Answer · 2018-10-27 12:12:41Z

R, 62 bytes

Perhaps surprisingly short solution to a text challenge in R, because we don't need to actually read the whole text into a matrix.

function(x,y,w,h)write(substr(readLines()[y+1:h-1],x,x+w-1),1)

Try it online!

torcado · Accepted Answer · 2018-11-10 01:08:52Z

\/\/>, 123 bytes

j:j8+}j+}j}pppp80x {:}i:0(?v:a=?x@s1+: ~~~~1+0!/000y yp:qqqq~ q{y?=p:+1q:}}g$q:pp: 1}x}p}ap:q~q+1{{y!?:- ys{{ ~!u.*2(0:;!?h

Input consists of a single line of space-delimited input variables x, y, w, and h, followed by the ascii art on the next line onward.

Explanation

This code uses \/\/>'s ability to self-modify by placing the ascii art in the code itself, which ends up looking like this:

code

It then grabs the characters in the specified rectangle off of the code and outputs it.

Stack Exchange Network

Chop up my ASCII art

Test Cases

Garden path

DB icon

Alien Elder

Signature

Rules

16 Answers 16

Canvas, 1 byte

Python 2, 64 62 bytes

Python 2, 56 bytes

Charcoal, 7 bytes

Pip `-n`, 21 bytes

Pip `-n`, 17 bytes:

Explanation

05AB1E, 21 19 bytes

05AB1E, 18 bytes

Japt `-R`, 13 11 bytes

Explanation

JavaScript (Node.js), 70 69 bytes

J, 45 bytes

V, 16 bytes

C (gcc), 118 109 bytes

Jelly, 11 bytes

Haskell, 61 bytes

Bash + coreutils, 37

K4, 31 bytes

R, 62 bytes

\/\/>, 123 bytes

Explanation

Hot Network Questions

Chop up my ASCII art

Test Cases

Garden path

DB icon

Alien Elder

Signature

Rules

16 Answers 16

Canvas, 1 byte

Python 2, 64 62 bytes

Python 2, 56 bytes

Charcoal, 7 bytes

Pip -n, 21 bytes

Pip -n, 17 bytes:

Explanation

05AB1E, 21 19 bytes

05AB1E, 18 bytes

Japt -R, 13 11 bytes

Explanation

JavaScript (Node.js), 70 69 bytes

J, 45 bytes

V, 16 bytes

C (gcc), 118 109 bytes

Jelly, 11 bytes

Haskell, 61 bytes

Bash + coreutils, 37

K4, 31 bytes

R, 62 bytes

\/\/>, 123 bytes

Explanation

Related

Hot Network Questions

Pip `-n`, 21 bytes

Pip `-n`, 17 bytes:

Japt `-R`, 13 11 bytes