#include <stdlib.h>
#include <math.h>
#include <stdlib.h>
#include "../xlib/gint.f"		/* 画面初期化関数 */
#include "../xlib/pset.f"		/* 点を描く関数 */
#include "../xlib/line.f"		/* 線を引く関数 */
#include "../xlib/circle.f"		/* 円を描く関数 */
#include "../xlib/paint.f"		/* 色を塗りつぶす関数 */
#include "../xlib/gwait.f"		/* 時間を待つ関数 */
#include "../xlib/vgcls.f"		/* 消去する関数 */
#include "../xlib/symbol.f"		/* 文字を描く関数 */
#include "../xlib/psetOR.f"		/* 点を描く関数 */
int main(void){
	int i;
	gint(800, 800);/***800×800ドットのウィンドを用意する***/

	/***分割線を引く（二本引いて太くしている）***/
		line(0,400,		800,400,	7);/**白**/
		line(0,401,		800,401,	7);/**白**/
		line(400,0,		400,800,	7);/**白**/
		line(401,0,		401,800,	7);/**白**/

	/***1秒間待つ．特に意味はない．***/
		gwait(1.0);

	/***文字列を書く***/
		symbol(5,5,"文字を描くスペース",7,1,1);
		symbol(405,5,"円を描くスペース",7,1,1);
		symbol(5,405,"線を引くスペース",7,1,1);
		symbol(405,405,"点を打つスペース",7,1,1);

		symbol(10,40,"あいうえお",2,1,1);
		symbol(10,60,"カキクケコ",3,5,3);
		symbol(10,100,"漢字も書けるぜ",4,1,1);
		symbol(10,200,"English is also available",5,2,2);
		symbol(10,350,"（　´ ∀ ｀）＜記号もOK",6,2,3);

	/***横線を引く***/
		line(10,450,		380,450,	6);/**黄色**/
		line(10,500,		380,500,	8);/**灰色**/
	/***縦線を引く***/
		line(50,550,		50,700,	1);/**青色**/
		line(100,550,		100,700,	2);/**赤色**/
	/***斜め線を引く***/
		line(50,450,		350,750,	4);/**緑色**/

	/***円を描く***/
		circle(550, 250, 130,4);/***緑色で半径100の円を描く***/
		circle(600, 200, 100,5);/***水色で半径100の円を描く***/
		circle(600, 150, 10,2);/***赤色で半径10の円を描く***/
		paint (600, 150, 7,2);/***白色で塗りつぶす．ただし境界線は赤色***/

	/***点を描く***/
	for(i=500; i<700; i=i+4)
		psetOR(i, 500, 7);/***点線を描く***/
	for(i=500; i<700; i++)
		psetOR(i,(int)(cos(i*0.1)*10)+700,7);/***小さなcosカーブを描く***/


	gend();			/***決まり文句***/
return EXIT_SUCCESS;/***決まり文句***/
}