滑杆的數字接力賽-平移旋轉三角形填滿四邊形(加邊框)
- 作者：
- Grace
數值滑杆接力競賽
名:k
最小:0 最大:10 增量:0.01
4.平移
Translate[ <Object>, <Vector> ]
Translate[ 物件, Vector向量(起點,端點) ]
*Vector[ <Point> ]
*Vector[ <Start Point>, <End Point> ]
5.旋轉
Rotate[ <Object>, <Angle>, <Point> ]
Rotate[ 物件, 角度, 中心點 ]
多邊形ABC從A搬到P的位置
Translate[ Polygon[{A, B, C}],
k1*Vector(A, P) ]
*先旋轉(放裏面)，再平移(放外面)，※中心點比較好計算
Translate[
Rotate[
Polygon[{A, B, C}],
k2*pi/2, A ] ,
k2*Vector(A, P+(a+b, 0) ) ]
Translate[
Rotate[
Polygon[{A, B, C}],
k3*pi, A ] ,
k3*Vector(A, P+(a+b, a+b) ) ]
Translate[
Rotate[
Polygon[{A, B, C}],
k4*-pi/2, A ] ,
k4*Vector(A, P+(0, a+b) ) ]
8.多邊形隱藏邊框(+{})，再製獨立的邊線Polyline[點,...,回原點]
Polygon[{A, B, C}]
Polyline[A, B, C,A]
8-1把所有的三角形製作邊框
Translate[ Polyline[{A, B, C,A}], k1*Vector(A, P) ]
Translate[
Rotate[
Polyline[{A, B, C,A}],
k2*pi/2, A ] ,
k2*Vector(A, P+(a+b, 0) ) ]
Translate[
Rotate[
Polyline[{A, B, C,A}],
k3*pi, A ] ,
k3*Vector(A, P+(a+b, a+b) ) ]
Translate[
Rotate[
Polyline[{A, B, C,A}],
k4*-pi/2, A ] ,
k4*Vector(A, P+(0, a+b) ) ]
Translate[ Polyline[{A, B, C,A}],
k5*Vector(A, Q) ]
Translate[
Rotate[
Polyline[{A, B, C,A}],
k6*pi, A ] ,
k6*Vector(A, Q+(a, b) ) ]
Translate[
Rotate[
Polyline[{A, B, C,A}],
k7*pi/2, A ] ,
k7*Vector(A, Q+(a+b, b) ) ]
Translate[
Rotate[
Polyline[{A, B, C,A}],
k8*-pi/2, A ] ,
k8*Vector(A, Q+(a, a+b) ) ]