// fork from System:シンプル
addDescription("h1","短冊")
addDescription("","七夕の短冊です")

!wish1 = getExternalVar("願い1行目","みんなが仲良く")
!wish2 = getExternalVar("願い2行目","   なれますように")

!name =  getExternalVar("名前","@ina_ani")

!col1 = getExternalVar("色1","#0dd")
!col2 = getExternalVar("色2","#599")
!colbg = getExternalVar("背景","#224")
!colstar = getExternalVar("星の色","white")

scale(2)
 fs(colbg)
  rect()

loop(40)
 fs(colstar)
  ss("transparent")
   shift(2*(rand()-0.5),2*(rand()-0.5))
    scale(0.07)
     poly(5,2)

scale(1,1)
 scale(0.7,1.5)
  fsgrad()
   lgrad(0,-0.5,0.5,0.5)
    cs(0,col1)
    cs(1,col2)
   rect()

 font("TanukiMagic")
  !str=wish1
  !y = 0
  loop(stringLength(str))
   shift(0.1,y * 0.1 - 0.55)
    fs("black")
     scale(0.1)
      text(stringCharAt(str,y))
    !y = y + 1;
  !str=wish2
  !y = 0
  loop(stringLength(str))
   shift(-0.05,y * 0.1 - 0.5)
    fs("black")
     scale(0.1)
      text(stringCharAt(str,y))
    !y = y + 1;
 
 ss("white")
   fig()
    xy(0,-0.7)
    xy(0,-1)
 
 fs("black")
   shift(0,-0.7)
    scale(0.05)
     circle()

 font("Leckerli One")
  shift(-0.25,0.5)
   scale(0.05)
    fs("black")
     rotate(1/2)
      text(name)