Proof of concept for gear ratio 3

The function named 'setxya' in this post had a lot of repetition,
so I have applied my recently learned macro definition knowledge to remove it.
But think I am still doing something messy.


こちらの投稿の関数 'setxya' にはたくさんの繰り返しがありました、
最近習ったマクロをつかって関数内の繰り返し除去に挑戦していますがいまいちです。
まだ何か非合理的な事をやってると思います。