$o .= $exchline->(1, 2, <<END);
${\ $exchip->($moth,1) } ${\ $exslash->() }
${\ $exchip->($purple,1) } ${\ $exslash->() }
- ${\ anychip(2) }
+ ${\ $exchip->($lotus,0) } ${\ $exslash->() }
+ ${\ $exchip->($anychip,2) }
END
$o .= $exchline->(0, 4, <<END);
}
sub book_yellow () {
- my $o = general_book($yellow, [qw(7 12 19)]);
+ my $o = general_book($yellow, [qw(5 11 18)]);
$o .= <<END;
gsave
- 0.50 0.62 dc translate
- 0.65 dup scale
+ 0.52 0.32 dc translate
+ 0.80 dup scale
-26 0 translate
- gsave 26 0 translate ${\ chip($anychip,0) } grestore
+ gsave 26 0 translate ${\ chip($yellow,0) } grestore
gsave 46 0 translate ${\ chip($pumpkin,0) } grestore
- gsave -30 rotate bag_image grestore
- 8 14 translate
- -120 rotate
+ 34 14 translate
+ -22.5 rotate
+ 1 -1 scale
${\ arrow_any("
gsave
arrowlen 0 translate
-85 rotate
- putback_len neg 0
- putback_len
- 240 0 arc
+ -40 0
+ 40
+ 300 0 arc
stroke
grestore
") }
};
$o .= exposition(<<END);
-Move 1/2/4 already-placed pumpkins,
-to after the yellow.
+Move up to 1/2/4 pumpkins
+already in your pot, to after the yellow.
(always immediately after, only one space,
regardless of other rules)
END