流行っているみたいなので便乗。
東京オリンピック
実数 a, r
a ← 200
gOpenWindow(600, 600)
gSetLineColor(255, 215, 0)
gSetFillColor(255, 215, 0)
gFillBox(0, 0, a, a)
gSetLineColor(128, 128, 0)
gSetFillColor(128, 128, 0)
gFillBox(2*a, 2*a, 3*a, 3*a)
r ← sqrt(1.5*1.5+0.5*0.5)*a
gSetLineColor(255, 255, 255)
gSetFillColor(255, 255, 255)
gFillCircle(1.5*a, 1.5*a, r)
gSetLineColor(0, 0, 0)
gSetFillColor(0, 0, 0)
gFillBox(a, 0, a, 3*a)
gSetLineColor(255, 0, 0)
gSetFillColor(255, 0, 0)
gFillCircle(2.5*a, 0.5*a, 0.5*a)
東京オリンピック・パラリンピック
実数 a, r
a ← 200
gOpenWindow(600, 600)
gSetLineColor(0, 0, 0)
gSetFillColor(0, 0, 0)
gFillBox(0, 0, 600, 600)
gSetLineColor(255, 215, 0)
gSetFillColor(255, 215, 0)
gFillBox(0, 0, a, a)
gSetLineColor(128, 128, 0)
gSetFillColor(128, 128, 0)
gFillBox(2*a, 2*a, 3*a, 3*a)
r ← sqrt(1.5*1.5+0.5*0.5)*a
gSetLineColor(0, 0, 0)
gSetFillColor(0, 0, 0)
gFillCircle(1.5*a, 1.5*a, r)
gSetLineColor(255, 255, 255)
gSetFillColor(255, 255, 255)
gFillBox(a, 0, a, 3*a)
gSetLineColor(255, 0, 0)
gSetFillColor(255, 0, 0)
gFillCircle(2.5*a, 0.5*a, 0.5*a)