Return to Answer

added 6 characters in body

edited Feb 11, 2020 at 9:39

7.2k
2
13
23

PowerShell, (削除) 146 (削除ここまで) 132 bytes

param($x,$y,$b)&($t={$b|%({$r+=,$_*$y},{$r=,$_*-$y+$r})[$y-lt0]
$r-ne$e})|%{$b=,$_*8|%{''+' X'[($_-shr$i++%8)%2]}
$y=-$x;-join(&$t)}

Try it online!

Unrolled:

param($x,$y,$bitmap)
$transform={
 $bitmap|%({$r+=,$_*$y},{$r=,$_*-$y+$r})[$y-lt0]
 $r-ne$ene $empty
}
&$transform|%{ # $bitmap is an array of lines
 $bitmap=,$_*8|%{''+' X'[($_-shr$i++%8)%2]} # $bitmap is an array of line pixels now
 $y=-$x # reuse $y
 -join(&$transform)
}

PowerShell, (削除) 146 (削除ここまで) 132 bytes

param($x,$y,$b)&($t={$b|%({$r+=,$_*$y},{$r=,$_*-$y+$r})[$y-lt0]
$r-ne$e})|%{$b=,$_*8|%{''+' X'[($_-shr$i++%8)%2]}
$y=-$x;-join(&$t)}

Try it online!

Unrolled:

param($x,$y,$bitmap)
$transform={
 $bitmap|%({$r+=,$_*$y},{$r=,$_*-$y+$r})[$y-lt0]
 $r-ne$e
}
&$transform|%{ # $bitmap is an array of lines
 $bitmap=,$_*8|%{''+' X'[($_-shr$i++%8)%2]} # $bitmap is an array of line pixels now
 $y=-$x # reuse $y
 -join(&$transform)
}

PowerShell, (削除) 146 (削除ここまで) 132 bytes

param($x,$y,$b)&($t={$b|%({$r+=,$_*$y},{$r=,$_*-$y+$r})[$y-lt0]
$r-ne$e})|%{$b=,$_*8|%{''+' X'[($_-shr$i++%8)%2]}
$y=-$x;-join(&$t)}

Try it online!

Unrolled:

param($x,$y,$bitmap)
$transform={
 $bitmap|%({$r+=,$_*$y},{$r=,$_*-$y+$r})[$y-lt0]
 $r-ne $empty
}
&$transform|%{ # $bitmap is an array of lines
 $bitmap=,$_*8|%{''+' X'[($_-shr$i++%8)%2]} # $bitmap is an array of line pixels now
 $y=-$x # reuse $y
 -join(&$transform)
}

implicit transformation parameters are passed through function variables

Source Link

edited Feb 11, 2020 at 9:33

mazzy

edited Feb 11, 2020 at 9:33

mazzy

7.2k
2
13
23

PowerShell, 146(削除) 146 (削除ここまで) 132 bytes

param($x,$y,$b)&($t={param($a,$k)$a|%$b|%({$r=$r+=,$_*$k+$r$_*$y},{$r+=$r=,$_*-$k$y+$r})[$k[$y-lt0]
$r-ne$e})($b|%|%{-join(&$t($b=,$_*8|%{''+' X'[($_-shr$i++%8)%2]})$x)})(
$y=-$y$x;-join(&$t)}

Try it online! Try it online!

Unrolled:

param($x,$y,$bitmap)
$transform = $transform={
 param($arr,$k)
  $arr|%$bitmap|%({$r=$r+=,$_*$k+$r$_*$y},{$r+=$r=,$_*-$k$y+$r})[$k[$y-lt0]
 $r-ne $emptyne$e
}
$lines&$transform|%{ = $bitmap|%{
 $line = # $bitmap is an array of lines
 $bitmap=,$_*8|%{''+' X'[($_-shr$i++%8)%2]} # $bitmap is an array of line pixels now
 $y=-join(&$transform$x $line $x)
}
 # reuse $y
&$transform $lines (-$yjoin(&$transform)
}

PowerShell, 146 bytes

param($x,$y,$b)&($t={param($a,$k)$a|%({$r=,$_*$k+$r},{$r+=,$_*-$k})[$k-lt0]
$r-ne$e})($b|%{-join(&$t(,$_*8|%{''+' X'[($_-shr$i++%8)%2]})$x)})(-$y)

Try it online!

Unrolled:

param($x,$y,$bitmap)
$transform = {
 param($arr,$k)
  $arr|%({$r=,$_*$k+$r},{$r+=,$_*-$k})[$k-lt0]
 $r-ne $empty
}
$lines = $bitmap|%{
 $line = ,$_*8|%{''+' X'[($_-shr$i++%8)%2]}
 -join(&$transform $line $x)
}

&$transform $lines (-$y)

PowerShell, (削除) 146 (削除ここまで) 132 bytes

param($x,$y,$b)&($t={$b|%({$r+=,$_*$y},{$r=,$_*-$y+$r})[$y-lt0]
$r-ne$e})|%{$b=,$_*8|%{''+' X'[($_-shr$i++%8)%2]}
$y=-$x;-join(&$t)}

Try it online!

Unrolled:

param($x,$y,$bitmap)
$transform={
 $bitmap|%({$r+=,$_*$y},{$r=,$_*-$y+$r})[$y-lt0]
 $r-ne$e
}
&$transform|%{ # $bitmap is an array of lines
 $bitmap=,$_*8|%{''+' X'[($_-shr$i++%8)%2]} # $bitmap is an array of line pixels now
 $y=-$x  # reuse $y
 -join(&$transform)
}

Source Link

answered Feb 11, 2020 at 7:06

mazzy

answered Feb 11, 2020 at 7:06

mazzy

7.2k
2
13
23

PowerShell, 146 bytes

param($x,$y,$b)&($t={param($a,$k)$a|%({$r=,$_*$k+$r},{$r+=,$_*-$k})[$k-lt0]
$r-ne$e})($b|%{-join(&$t(,$_*8|%{''+' X'[($_-shr$i++%8)%2]})$x)})(-$y)

Try it online!

Unrolled:

param($x,$y,$bitmap)
$transform = {
 param($arr,$k)
 $arr|%({$r=,$_*$k+$r},{$r+=,$_*-$k})[$k-lt0]
 $r -ne $empty
}
$lines = $bitmap|%{
 $line = ,$_*8|%{''+' X'[($_-shr$i++%8)%2]}
 -join(&$transform $line $x)
}
&$transform $lines (-$y)