// fork from System:シンプル
addDescription("h1","単純な魔法陣")
addDescription("","土台となる簡単な魔法陣です")

!eye = \()
 ss("transparent")
  blockClip()
   block()
    shift(0,-0.1)
     circle()
   block()
    fig()
     circle()
     shift(0,0.35)
      scale(1.2)
       rcircle()

fs("blue")
 shift(0,0.05)
  shift(-0.25,0)
   scale(0.2)
    eye()
  shift(0.25,0)
   scale(0.2)
    eye()
dlw(200)
 ss("blue")
  font("v")
   !l = 0.6
   !cnt = 0
   !str = "I  thought what I'd do was, I'd pretend I was one of those deaf-mutes"
   !len = stringLength(str)
   loop(len)
    rotate(l)
     shift(0,-0.72)
      scale(0.06,0.09)
        text(stringCharAt(str,cnt))
    !l = l + 1/(len + 7)*2
    !cnt = cnt + 1
dlw(17)
 ss("blue")
  scale(1.6)
   circle()
dlw(17)
 ss("blue")
  shift(0,-0.1)
   fig()
    xy(-0.6,0)
    xy(0.8,0)
   fig()
    xy(0.6,0.2)
    xy(0.8, 0.2)
   shift(0.8, 0.1)
    scale(0.2)
     circle()
  scale(1.2)
   circle()
  blockClip()
   block()
    shift(0,0.323)
     scale(1.5,0.53)
      rect()
   block()
    scale(0.85)
     circle()
    shift(0,0.1)
     fig()
      xy(-0.4,0)
      xy(0.4,0)

  shift(0,-0.61)
   scale(0.01)
    rect()
  fs("white")
   ss("transparent")
    shift(0.675,0)
     scale(0.27,0.115)
      rect()
     shift(0.14,0)
      scale(0.12)
       fs("white")
        circle()