代码
比这篇新的文章:
olympic.asy
比这篇旧的文章: 华容道自动求解程序
作者: cvgmt, 点击625次, 评论(0), 收藏者(0), , 打分:
所有评论，共0条：( 我也来说两句)
比这篇旧的文章: 华容道自动求解程序
是 Asymptpte 绘图语言
语言: C++, 标签: 无 2008/09/03发布 1年前更新作者: cvgmt, 点击625次, 评论(0), 收藏者(0), , 打分:
C++语言: 是 Asymptpte 绘图语言
01 size(400);
02 path belt(pair center,real r1,real r2,real angle1,real angle2){
03 return center+r1*dir(angle1)
04 --arc(center,r1,angle1,angle2)
05 --center+r2*dir(angle2)
06 --center+r1*dir(angle2)
07 --arc(center,r2,angle2,angle1)--cycle;
08 }
09
10 fill(belt((0,0),40,50,0,360),black);
11 fill(belt((-120,0),40,50,0,360),blue);
12 fill(belt((120,0),40,50,0,360),red);
13 fill(belt((-60,-40),40,50,0,360),yellow);
14 fill(belt((60,-40),40,50,0,360),green);
15
16 real gap=3;
17 unfill(belt((-120,0),40-gap,50+gap,-30,30));
18 fill(belt((-120,0),40,50,-30,30),blue);
19 unfill(belt((-60,-40),40-gap,50+gap,160,200));
20 fill(belt((-60,-40),40,50,160,200),yellow);
21 unfill(belt((-60,-40),40-gap,50+gap,50,90));
22 fill(belt((-60,-40),40,50,50,90),yellow);
23 unfill(belt((0,0),40-gap,50+gap,230,270));
24 fill(belt((0,0),40,50,230,270),black);
25 unfill(belt((60,-40),40-gap,50+gap,160,210));
26 fill(belt((60,-40),40,50,160,210),green);
27 unfill(belt((0,0),40-gap,50+gap,-20,30));
28 fill(belt((0,0),40,50,-20,30),black);
29 unfill(belt((120,0),40-gap,50+gap,230,270));
30 fill(belt((120,0),40,50,230,270),red);
31 unfill(belt((60,-40),40-gap,50+gap,50,90));
32 fill(belt((60,-40),40,50,50,90),green);
33
34 //shipout(bbox(20),"png");
02 path belt(pair center,real r1,real r2,real angle1,real angle2){
03 return center+r1*dir(angle1)
04 --arc(center,r1,angle1,angle2)
05 --center+r2*dir(angle2)
06 --center+r1*dir(angle2)
07 --arc(center,r2,angle2,angle1)--cycle;
08 }
09
10 fill(belt((0,0),40,50,0,360),black);
11 fill(belt((-120,0),40,50,0,360),blue);
12 fill(belt((120,0),40,50,0,360),red);
13 fill(belt((-60,-40),40,50,0,360),yellow);
14 fill(belt((60,-40),40,50,0,360),green);
15
16 real gap=3;
17 unfill(belt((-120,0),40-gap,50+gap,-30,30));
18 fill(belt((-120,0),40,50,-30,30),blue);
19 unfill(belt((-60,-40),40-gap,50+gap,160,200));
20 fill(belt((-60,-40),40,50,160,200),yellow);
21 unfill(belt((-60,-40),40-gap,50+gap,50,90));
22 fill(belt((-60,-40),40,50,50,90),yellow);
23 unfill(belt((0,0),40-gap,50+gap,230,270));
24 fill(belt((0,0),40,50,230,270),black);
25 unfill(belt((60,-40),40-gap,50+gap,160,210));
26 fill(belt((60,-40),40,50,160,210),green);
27 unfill(belt((0,0),40-gap,50+gap,-20,30));
28 fill(belt((0,0),40,50,-20,30),black);
29 unfill(belt((120,0),40-gap,50+gap,230,270));
30 fill(belt((120,0),40,50,230,270),red);
31 unfill(belt((60,-40),40-gap,50+gap,50,90));
32 fill(belt((60,-40),40,50,50,90),green);
33
34 //shipout(bbox(20),"png");
所有评论，共0条：( 我也来说两句)