示せ在処 = () => ({
東: 乱(余白率 * 東西, (壱 - 余白率) * 東西),
南: 乱(余白率 * 南北, (壱 - 余白率) * 南北),
径: 乱(最小径, 最大径),
});
出でよ円 = (点) => 円(点.東, 点.南, 点.径);
出でよ四方 = (点) => 四方(点.東, 点.南, 方拡率 * 点.径);
出でよ線 = (甲, 乙) => {
角 = 逆正接(乙.南 - 甲.南, 乙.東 - 甲.東);
線(
甲.東 + 甲.径 * 余弦(角),
甲.南 + 甲.径 * 正弦(角),
乙.東 - 乙.径 * 余弦(角),
乙.南 - 乙.径 * 正弦(角)
);
};
出でよ道 = () => {
出でよ円((点 = 示せ在処()));
for (_ = 零; _ < 円数; ++_) {
出でよ線(点, (次点 = 示せ在処()));
出でよ円((点 = 次点));
}
};
出でよ方円 = () => {
出でよ空();
出でよ道();
出でよ四方(示せ在処());
出でよ四方(示せ在処());
};