/* book20_s1.c */

#include <stdlib.h> /* EXIT_SUCCESS */

#include "gint.f"   /* グラフィックス初期化関数 gint,gend */
#include "line.f"   /* 線関数 */
#include "paint.f"  /* 塗装関数 */
#include "symbol.f" /* 文字列拡大関数 */
#include "circle.f" /* 円関数 */


int main(void)
{
  gint(640,400); /* グラフィックス初期化(640x400dot) */

  {
    int r;
    for(r=10;r<200;r+=10)
    {
      circle(320,200,r,1); /* 円 */
    } /* for */
  }

  line(0,20,40,0,5); /* 右下角に水色を線を引く */
  paint(0,0,3,5); /* 紫で塗装 */


  symbol(0,50,"http://www.hir-net.com/",6,2,2);
  symbol(0,100,"『Windowsプログラムを10倍簡単に作る』",7,1.8,4);
  symbol(0,100+16*4,"サンプルプログラム",7,2,4);


  line(639,320,560,399,2); /* 右下角に赤い線を引く */
  paint(639,399,1,2); /* 青で塗装 */

  gend(); /* グラフィックス終了 */

  return EXIT_SUCCESS;
} /* main */


/** 終わり **/