主题：求一个旋转的正方体显示出来,谁能编出来,高分!!
强强
[专家分：4740] 发布于 2009-03-10 19:22:00
有人能编出来吗?
回复列表 （共3个回复）
沙发
gadenflm [专家分：150] 发布于 2009-03-11 19:31:00
One$ = "BR30 BU25 C1 R54 U45 L54 D45 BE20 P1,1 G20 C2 G20"
Two$ = "R54 E20 L54 BD5 P2,2 U5 C4 G20 U45 E20 D45 BL5 P4,4"
Plot$ = One$ + Two$
APage% = 1
VPage% = 0
Angle% = 0
DO
SCREEN 7, , APage%, VPage%
CLS 1
DRAW "TA" + STR$(Angle%) + Plot$
Angle% = (Angle% + 15) MOD 360
SWAP APage%, VPage%
SOUND 0, 1 / 2
LOOP WHILE INKEY$ = ""
END
板凳
强强 [专家分：4740] 发布于 2009-03-11 23:24:00
这么几行语句就能实现吗?厉害
3 楼
天天和和 [专家分：1420] 发布于 2009-07-19 15:34:00
厉害~
我来回复
您所在位置：