『おけつ』ソース

/* JO-SU-3 "KE-TSU"                1995.5.5 53720 M.T.*/

#include <stdio.h>
#include <math.h>
#include <Xgt.h>

#define R 180
#define XSIZE 799
#define YSIZE 799

void gcir(int,int,int);

main(){
  
  double dt,r,t,r1,x,y,pai;
  int    i,n;

  r=R;n=0;
  pai=3.1415926536;
  
  while(n<=0 || n>100){
    printf("Type in an integr for n.\n");
    scanf("%d",&n);
    if(n<0 || n>100)
      printf("\n ### Try again !### \n");
  }

  dt=2.0*pai/(double)n;

  gopen(XSIZE,YSIZE);
  
  gcir(400,400,(int)r);

  for(i=1;i<=n;i++){
    t=dt*(double)i;
    x=r*cos(t)+400;
    y=400-r*sin(t);
    r1=fabs(r*cos(t));

    gcir((int)x,(int)y,(int)r1);
  }

  gclose();
}

void gcir(int x,int y,int h){

  double x1,y1,x2,y2;
  double t;

  t=0;
  x1=h*cos(t)+(double)x;
  y1=h*sin(t)+(double)y;

  for(t=0.04;t<=6.2832;t+=0.04){
    x2=h*cos(t)+(double)x;
    y2=h*sin(t)+(double)y;

    gline((int)x1,(int)y1,(int)x2,(int)y2,1,20,50);

    x1=x2;y1=y2;
  }
}