#
#  へのへのもへじ描画プログラム
#
#    2008-03  by TAKENAKA, A.


source('circle.R')

plot(c(0),c(0), xlim = c(-5, 5), ylim = c(-7.2, 4), type = 'n',
     xlab = "", ylab = "",  axes = F )

par (mar = c(1, 1, 1, 1))

#「へ」
he.x <- c(-4, -3, -1)
he.y <- c(2, 2.5, 1.9)


lines(he.x, he.y, lwd=2)     # 左まゆ
lines(he.x+6 , he.y, lwd=2)  # 右まゆ

#「の」
no.x <- c(-2.8, -3.2)
no.y <- c(1.0, -0.7)
lines(no.x, no.y, lwd=2)
lines(no.x+ 6, no.y, lwd=2)

arc(-2.9, 0.25, r = 1, -160, 150, lwd = 2)
arc(3.1, 0.25, r = 1, -160, 150, lwd = 2)

# 「も」
lines(c(-1, 1), c(-2, -2), lwd=2)
lines(c(-1, 1), c(-1, -1), lwd=2)
lines(c(0, -.5), c(0, -3), lwd=2)
arc(0, -3, r = 0.5, 100, 270, lwd = 2)

# 「へ」（口）
lines(he.x+2.5, he.y-7, lwd=2)


#「し」
lines(c(-4.62, -4.2), c(3, -4.6), lwd=2)
arc(0, -3, r = 4.5, 110, 250, lwd = 2)

# 点々
lines(c(4, 5), c(-2, -3), lwd=2)
lines(c(4, 5), c(-2.5, -3.5), lwd=2)