@@ -19,69 +19,105 @@ function tangram(obj)
1919 [O, Point (- 2 U, 0 ), Point (0 , 2 U)]
2020 elseif obj == :triangle3
2121 sethue (" #F8CB2D" )
22- [O, Point (- U,U), Point (U,U)]
22+ [O, Point (- U, U), Point (U, U)]
2323 elseif obj == :triangle4
2424 sethue (" #F195C8" )
25- [O, Point (- U, 0 ), Point (0 ,- U)]
25+ [O, Point (- U, 0 ), Point (0 , - U)]
2626 elseif obj == :triangle5
2727 sethue (" #F9F224" )
2828 [O, Point (U, 0 ), Point (0 , - U)]
2929 elseif obj == :box
3030 sethue (" #A796C2" )
31- [O, Point (0 , - U), Point (U,- U), Point (U, 0 )]
31+ [O, Point (0 , - U), Point (U, - U), Point (U, 0 )]
3232 elseif obj == :parallelogram
3333 sethue (" #EF3E62" )
34- [O, Point (U,- U), Point (0 , - U), Point (- U, 0 )]
34+ [O, Point (U, - U), Point (0 , - U), Point (- U, 0 )]
3535 end
3636end
3737
38- javis (video, [
39- BackgroundAction (1 : 400 , ground),
40- Action (1 : 400 , (args... )-> poly (tangram (:triangle1 ), :fill , close= true ); subactions= [
41- SubAction (1 : 1 , Translation (O, SHIFT)),
42- SubAction (50 : 60 , Translation (O, Point (0 , 2 U))),
43- SubAction (60 : 70 , Rotation (0. , - π/ 2 )),
44- SubAction (70 : 80 , Translation (O, Point (- 2 U, 0 ))),
45- SubAction (80 : 90 , Translation (O, Point (U, - U))),
46- ]),
47- Action (1 : 400 , (args... )-> poly (tangram (:triangle2 ), :fill , close= true ); subactions= [
48- SubAction (1 : 1 , Translation (O, SHIFT)),
49- ]),
50- Action (1 : 400 , (args... )-> poly (tangram (:triangle3 ), :fill , close= true ); subactions= [
51- SubAction (1 : 1 , Translation (O, SHIFT)),
52- SubAction (1 : 1 , Translation (O, Point (0 , - 2 U))),
53- SubAction (100 : 110 , Translation (O, Point (- 3 U, 0 ))),
54- SubAction (110 : 120 , Rotation (0. , - π/ 2 )),
55- SubAction (120 : 130 , Translation (O, Point (- 5.5 U, 0 ))),
56- SubAction (130 : 140 , Translation (O, Point (0 , U))),
57- ]),
58- Action (1 : 400 , (args... )-> poly (tangram (:triangle5 ), :fill , close= true ); subactions= [
59- SubAction (1 : 1 , Translation (O, SHIFT)),
60- SubAction (1 : 1 , Translation (O, Point (U, 0 ))),
61- SubAction (150 : 160 , Translation (O, Point (0 , 4.5 * U))),
62- SubAction (160 : 170 , Rotation (0. , - 3 π/ 4 )),
63- SubAction (170 : 180 , Translation (O, Point (sqrt ((2 - √ 2 / 2 )^ 2 / 2 ) * U, - sqrt ((2 - √ 2 / 2 )^ 2 / 2 ) * U))),
64- ]),
65- Action (1 : 400 , (args... )-> poly (tangram (:parallelogram ), :fill , close= true ); subactions= [
66- SubAction (1 : 1 , Translation (O, SHIFT)),
67- SubAction (1 : 1 , Translation (O, Point (- U, 0 ))),
68- SubAction (200 : 210 , Translation (O, Point (U, - U))),
69- SubAction (210 : 220 , Translation (O, Point (U, 0 ))),
70- SubAction (220 : 230 , Rotation (0. , π/ 2 )),
71- SubAction (230 : 240 , Translation (O, Point (2 U, 0 ))),
72- SubAction (240 : 250 , Translation (O, Point (0 , U))),
73- ]),
74- Action (1 : 400 , (args... )-> poly (tangram (:triangle4 ), :fill , close= true );subactions= [
75- SubAction (1 : 1 , Translation (O, SHIFT)),
76- SubAction (250 : 260 , Translation (O, Point (0 , - U))),
77- SubAction (260 : 270 , Translation (O, Point (2 U, 0 ))),
78- SubAction (270 : 280 , Rotation (0. , - π/ 2 )),
79- SubAction (280 : 290 , Translation (O, Point (- 4 U, 0 ))),
80- SubAction (290 : 300 , Translation (O, Point (0.5 * U, - 0.5 * U))),
81- ]),
82- Action (1 : 400 , (args... )-> poly (tangram (:box ), :fill , close= true );subactions= [
83- SubAction (1 : 1 , Translation (O, SHIFT)),
84- SubAction (300 : 310 , Translation (O, Point (- U, 0 ))),
85- SubAction (310 : 320 , Rotation (0. , - π/ 6 )),
86- ]),
87- ]; pathname= " logo.gif" )
38+ javis (
39+ video,
40+ [
41+ BackgroundAction (1 : 400 , ground),
42+ Action (
43+ 1 : 400 ,
44+ (args... ) -> poly (tangram (:triangle1 ), :fill , close = true );
45+ subactions = [
46+ SubAction (1 : 1 , Translation (O, SHIFT)),
47+ SubAction (50 : 60 , Translation (O, Point (0 , 2 U))),
48+ SubAction (60 : 70 , Rotation (0.0 , - π / 2 )),
49+ SubAction (70 : 80 , Translation (O, Point (- 2 U, 0 ))),
50+ SubAction (80 : 90 , Translation (O, Point (U, - U))),
51+ ],
52+ ),
53+ Action (
54+ 1 : 400 ,
55+ (args... ) -> poly (tangram (:triangle2 ), :fill , close = true );
56+ subactions = [SubAction (1 : 1 , Translation (O, SHIFT))],
57+ ),
58+ Action (
59+ 1 : 400 ,
60+ (args... ) -> poly (tangram (:triangle3 ), :fill , close = true );
61+ subactions = [
62+ SubAction (1 : 1 , Translation (O, SHIFT)),
63+ SubAction (1 : 1 , Translation (O, Point (0 , - 2 U))),
64+ SubAction (100 : 110 , Translation (O, Point (- 3 U, 0 ))),
65+ SubAction (110 : 120 , Rotation (0.0 , - π / 2 )),
66+ SubAction (120 : 130 , Translation (O, Point (- 5.5 U, 0 ))),
67+ SubAction (130 : 140 , Translation (O, Point (0 , U))),
68+ ],
69+ ),
70+ Action (
71+ 1 : 400 ,
72+ (args... ) -> poly (tangram (:triangle5 ), :fill , close = true );
73+ subactions = [
74+ SubAction (1 : 1 , Translation (O, SHIFT)),
75+ SubAction (1 : 1 , Translation (O, Point (U, 0 ))),
76+ SubAction (150 : 160 , Translation (O, Point (0 , 4.5 * U))),
77+ SubAction (160 : 170 , Rotation (0.0 , - 3 π / 4 )),
78+ SubAction (
79+ 170 : 180 ,
80+ Translation (
81+ O,
82+ Point (sqrt ((2 - √ 2 / 2 )^ 2 / 2 ) * U, - sqrt ((2 - √ 2 / 2 )^ 2 / 2 ) * U),
83+ ),
84+ ),
85+ ],
86+ ),
87+ Action (
88+ 1 : 400 ,
89+ (args... ) -> poly (tangram (:parallelogram ), :fill , close = true );
90+ subactions = [
91+ SubAction (1 : 1 , Translation (O, SHIFT)),
92+ SubAction (1 : 1 , Translation (O, Point (- U, 0 ))),
93+ SubAction (200 : 210 , Translation (O, Point (U, - U))),
94+ SubAction (210 : 220 , Translation (O, Point (U, 0 ))),
95+ SubAction (220 : 230 , Rotation (0.0 , π / 2 )),
96+ SubAction (230 : 240 , Translation (O, Point (2 U, 0 ))),
97+ SubAction (240 : 250 , Translation (O, Point (0 , U))),
98+ ],
99+ ),
100+ Action (
101+ 1 : 400 ,
102+ (args... ) -> poly (tangram (:triangle4 ), :fill , close = true );
103+ subactions = [
104+ SubAction (1 : 1 , Translation (O, SHIFT)),
105+ SubAction (250 : 260 , Translation (O, Point (0 , - U))),
106+ SubAction (260 : 270 , Translation (O, Point (2 U, 0 ))),
107+ SubAction (270 : 280 , Rotation (0.0 , - π / 2 )),
108+ SubAction (280 : 290 , Translation (O, Point (- 4 U, 0 ))),
109+ SubAction (290 : 300 , Translation (O, Point (0.5 * U, - 0.5 * U))),
110+ ],
111+ ),
112+ Action (
113+ 1 : 400 ,
114+ (args... ) -> poly (tangram (:box ), :fill , close = true );
115+ subactions = [
116+ SubAction (1 : 1 , Translation (O, SHIFT)),
117+ SubAction (300 : 310 , Translation (O, Point (- U, 0 ))),
118+ SubAction (310 : 320 , Rotation (0.0 , - π / 6 )),
119+ ],
120+ ),
121+ ];
122+ pathname = " logo.gif" ,
123+ )
0 commit comments