END
};
- my $exchline = sub {
- my ($y, $pips, $content) = @_;
- <<END;
-gsave
- 0.20 0.12 0.16 $y mul add dc translate
- 0.60 dup scale
- gsave ${\ chip($yellow,$pips) } grestore
- 8 -3 moveto (:) show
- 3 0 translate
- 0.8 dup scale
- 24 0 translate
-$content
-grestore
-END
- };
-
- $o .= $exchline->(2, 1, <<END);
- ${\ $exchip->($white,1) } ${\ $exslash->() }
- ${\ $exchip->($anychip,1) } ${\ $exslash->() }
- ${\ $exchip->($lotus,0) }
-END
-
- $o .= $exchline->(1, 2, <<END);
- ${\ $exchip->($white,2) } ${\ $exslash->() }
- ${\ $exchip->($anychip,2) }
-END
-
- $o .= $exchline->(0, 4, <<END);
- ${\ $exchip->($white,3) } ${\ $exslash->() }
- ${\ $exchip->($anychip,4) }
-END
-
$o .= exposition(<<END);
-Put a chip, no bigger than the yellow,
-whose next placed chip is a pumpkin,
-back in your bag.
-
-
+Move 1/2/4 already-placed pumpkins,
+to after the yellow.
+(always immediately after, only one space,
+regardless of other rules)
END
$o;