$:.push "work"
$:.push "../work"

require "num/dcl"

include DCL
sgopn(1)
slmgn(0.1, 0.1, 0.05, 0.05)
sldiv(?S, 3, 5)
slmgn(0.05, 0.05, 0.05, 0.05)
slrat(1.0, 1.0)
sgstxi(2)
sgstxs(0.1)

15.times{|i|
  sgfrm
  slpwwr(1)
  txt = "FRAME%2d" % i
  sgtxv(0.5, 0.5, txt)
}
sgcls