// fork from tw:ina_ani:情報盤
addDescription("h1","クォータービューっぽいやつ")

!three = \(h)
  fig(1)
   xy0(-1,-1 - h)
   xy( -1, 1)
   xy(  0, 1.5)
   xy(  0,-0.5 - h)
  fig(1)
   xy0( 0,-0.5 - h)
   xy(  0, 1.5)
   xy(  1, 1)
   xy(  1,-1 - h)
  fig(1)
   xy0( 0,-0.5 - h)
   xy( -1, -1 - h)
   xy(  0, -1.5 - h)
   xy(  1,-1 - h)
scale(0.1)
 ss("white")
  lw(0.3)
   !b = 0
   loop(15)
    !a = 0
    fs(rgb(b * 10,b * 10,b * 10))
     loop(10)
      shift(2*a + b%2 - 9.5,b - 7)
       three((1+sin(rand()*t/50))-1)
       !a = a + 1
     !b = b + 1