program main
       call init
        call setchar(1, 10)
        call text(0.1,0.1,19,'Doshisha University')
        call triangl(0.0,0.0,0.15,60.0,0.8,1.0,1)
        call triangl(0.0,0.0,0.15,180.0,0.8,1.0,1)
        call triangl(0.0,0.0,0.15,300.0,0.8,1.0,1)
       call fin
      stop
      end