      dimension ixx(500),iyy(500)
      dimension r(500),g(500),b(500)
      open(99,file="nomap01.dat")
*---------------------------ピクセル数設定      
      n=500
      write(99,*) n
*---------------------------画像サイズ設定     
      ix=300
      iy=300
      write(99,*) ix,iy
*-------------------------------背景色設定  
      write(99,*) 1.0,1.0,1.0
      
      
*----------------描画データ作成（青色正円） 
      dt=2.0*3.141592/(n-1)
      do 10 i=1,n
      ixx(i)=int(cos(dt*(i-1))*ix/2)+ix/2
      iyy(i)=int(sin(dt*(i-1))*iy/2)+iy/2
      r(i)=0.0
      g(i)=0.0
      b(i)=1.0
   10 continue
      
*--------------------------描画データ出力 
      write(99,*) (ixx(i),iyy(i),
     &             r(i),g(i),b(i),i=1,n)
      
      close(99)
      stop
      end
      
      