void	bk6000(void);
void	fd6000(void);
void	douro(void);
void	hasigeta(void);
void	hasirahasi(void);
void	rec2(void);
void	hasira(void);
void	waiyaa(void);
void	waiyaa1(void);
void	bay(void);
void	hakusen(void);
void	sikaku(void);
void	susumuhasi(void);
void	rechakusen(void);


void	main()
{
	tg_openwin(640, 400);
	tg_init();
	susumuhasi();
}


void	bk6000()
{
	int	i1;

//	for(i1 = 0; i1 < 100; i1++){tg_bk(60.0);}
tg_bk(6000.0);
}

void	fd6000()
{
	int	i1;

//	for(i1 = 0; i1 < 100; i1++){tg_fd(60.0);}
tg_fd(6000.0);
}

void	douro()
{
	tg_pu();
	tg_ml(3000.0);tg_bk(190.0); tg_rt(90.0);tg_pd();
	fd6000();
	tg_mr(20.0);
	bk6000();
	tg_pu();
	tg_md(100.0);tg_pd();
	fd6000();
	tg_ml(20.0);
	bk6000();
	tg_home();
}


void	hasigeta()
{
	tg_setpc(5);
	tg_home();
	tg_pu();
	tg_ml(260.0);tg_bk(280.0); tg_mu(10.0);tg_pd(); hasirahasi();
	tg_pu();
	tg_md(110.0);tg_pd(); hasirahasi();
	tg_pu();
	tg_mr(510.0);tg_pd(); hasirahasi();
	tg_pu();
	tg_mu(110.0);tg_pd(); hasirahasi(); tg_setpc(7);
	tg_home();
}

void	hasirahasi()
{
	int	i1;

	for(i1 = 0; i1 < 4; i1++){rec2(); tg_mr(10.0);tg_rr(90.0);}
}

void	rec2()
{
	int	i1;

	for(i1 = 0; i1 < 2; i1++){tg_fd(240.0);tg_rt(90.0);tg_fd(10.0);tg_rt(90.0);}
}

void	hasira()
{
	int	i1;

	for(i1 = 0; i1 < 4; i1++){rec2(); tg_mr(10.0);tg_rr(90.0);}
}

void	waiyaa()
{
	tg_pu();
	tg_ml(260.0);tg_bk(50.0); tg_pd(); waiyaa1();
	tg_pu();
	tg_ml(260.0);tg_bk(50.0); tg_md(100.0);tg_pd(); waiyaa1();
	tg_pu();
	tg_mr(250.0); tg_bk(50.0); tg_pd(); waiyaa1();
	tg_pu();
	tg_mr(250.0); tg_bk(50.0); tg_md(100.0); tg_pd(); waiyaa1();
	tg_pu();
	tg_ml(250.0);tg_bk(50.0); tg_rr(180.0);tg_pd(); waiyaa1();
	tg_pu();
	tg_ml(250.0);tg_bk(50.0); tg_md(100.0); tg_rr(180.0); waiyaa1();
	tg_pu();
	tg_mr(260.0); tg_bk(50.0); tg_rr(180.0); tg_pd(); waiyaa1();
	tg_pu();
	tg_mr(260.0); tg_bk(50.0); tg_md(100.0); tg_rr(180.0); waiyaa1();
}

void	waiyaa1()
{
	tg_lt(125.0); tg_fd(244.0);
	tg_pu();
	tg_rt(125.0); tg_mr(40.0); tg_rt(50.0);tg_pd(); tg_fd(206.0);
	tg_pu();
	tg_lt(50.0);tg_bk(10.0);tg_lt(136.0); tg_pd(); tg_fd(170.0);
	tg_pu();
	tg_rt(135.0); tg_mr(40.0); tg_rt(37.0); tg_pd(); tg_fd(151.0);
	tg_pu();
	tg_lt(37.0); tg_bk(10.0); tg_lt(158.0); tg_pd(); tg_fd(120.0);
	tg_pu();
	tg_home();
}

void	bay()
{
	douro();
	hasigeta();
	tg_setpc(5);
	tg_pu();
	tg_ml(260.0);tg_bk(100.0); tg_pd(); tg_md(100.0);
	tg_pu();
	tg_mr(10.0);tg_pd(); tg_mu(100.0);
	tg_pu();
	tg_bk(10.0);tg_pd(); tg_md(100.0);
	tg_pu();
	tg_ml(10.0);tg_pd(); tg_mu(100.0);
	tg_home();
	tg_pu();
	tg_mr(250.0);tg_bk(100.0); tg_pd(); tg_md(100.0);
	tg_pu();
	tg_mr(10.0);tg_pd(); tg_mu(100.0);
	tg_pu();
	tg_bk(10.0);tg_pd(); tg_md(100.0);
	tg_pu();
	tg_ml(10.0);tg_pd(); tg_mu(100.0);
	tg_home();
	tg_setpc(7);
	waiyaa();
	hakusen();
}

void	hakusen()
{
	int	i1;

	tg_pu();
	tg_home();
	tg_bk(190.0);tg_md(29.0); tg_dn(90.0);tg_lt(90.0);tg_bk(3000.0);
	for(i1 = 0; i1 < 50; i1++){
		tg_pd();
		sikaku();
		tg_pu();
		tg_fd(300.0);
	}
}

void	sikaku()
{
	int	i1;

	for(i1 = 0; i1 < 2; i1++){tg_fd(50.0); tg_rt(90.0); tg_fd(5.0); tg_rt(90.0);}
	tg_pu();
	tg_mr(2.0); tg_fd(5.0);
}

void	susumuhasi()
{
	int	i1;

	bay();
	tg_pu();
	tg_view();
	tg_manual();
	tg_home();
	tg_dn(90.0);
	tg_md(50.0);
	tg_bk(700.0);
	for(i1 = 0; i1 < 100; i1++){tg_dn(0.5); tg_mu(700.0 * sin(3.141592/360)); tg_refresh();}
	for(i1 = 0; i1 < 50; i1++){tg_fd(4.0); tg_refresh();}
	for(i1 = 0; i1 < 120; i1++){tg_lt(0.5); tg_mr(500.0 * sin(3.141592/360)); tg_rl(0.5); tg_refresh();}
	for(i1 = 0; i1 < 150; i1++){tg_up(0.5); tg_md(500.0 * sin(3.141592/360)); tg_refresh();}
	tg_pu();
	tg_home();
	tg_bk(180.0); tg_md(50.0); tg_dn(90.0); tg_lt(90.0); tg_bk(800.0);
	for(i1 = 0; i1 < 200; i1++){tg_fd(5.0);tg_refresh();}
}

void	rechakusen()
{
	int	i1;

	for(i1 = 0; i1 < 2; i1++){tg_fd(240.0); tg_rt(90.0); tg_fd(10.0); tg_rt(90.0);}
}