File: central.oogl

package info (click to toggle)
dstooltk 2.0-3
  • links: PTS
  • area: main
  • in suites: potato, slink
  • size: 2,500 kB
  • ctags: 3,169
  • sloc: ansic: 27,185; tcl: 4,770; makefile: 587; sh: 70; csh: 7
file content (103 lines) | stat: -rw-r--r-- 1,378 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
#
# central.oogl
#

(progn
  (normalization allgeoms none)
  (bbox-draw allgeoms no)

  # setup for sphere drawing

  (geometry DsTool { LIST :central_body_h :sat0_h } )

  (read geometry { define central_body_h {
	{appearance {material {diffuse 0 0 1}}
	SPHERE 0.2
	0.0 0.0 0.0
	} } } )

  (read geometry {define craft_h {
	LIST {

	OFF
	8 6 8
	1 1 1
	1 -1 1
	-1 -1 1
	-1 1 1
	1 1 -1
	1 -1 -1
	-1 -1 -1
	-1 1 -1
	4 0 1 2 3 0.0 1.0 0.0 1.0
	4 4 5 6 7 0.0 1.0 0.0 1.0
	4 0 1 5 4 0.0 1.0 0.0 1.0
	4 1 2 6 5 0.0 1.0 0.0 1.0
	4 2 3 7 6 0.0 1.0 0.0 1.0
	4 3 0 4 7 0.0 1.0 0.0 1.0
	} {

	VECT
	2 4 1
	2 2
	1 0
	2 0 0
	-2 0 0
	0 0 2
	0 0 -2
	0 0 0 0
	} {
	OFF
	4 1 4
	2 0.1 0.5
	4 0.1 0.5
	4 -0.1 -0.5
	2 -0.1 -0.5
	4 0 1 2 3 0.0 0.0 0.0 0.0
	} {
	OFF 
	4 1 4
	-2 0.1 0.5
	-4 0.1 0.5
	-4 -0.1 -0.5
	-2 -0.1 -0.5
	4 0 1 2 3 0.0 0.0 0.0 0.0
	} {
	OFF
	5 4 8
	0 0 -1
	0.3 0.3 -3.5
	0.3 -0.3 -3.5
	-0.3 -0.3 -3.5
	-0.3 0.3 -3.5
	3 0 1 2 0.0 0.0 1.0 1.0	
	3 0 2 3 0.0 0.0 1.0 1.0	
	3 0 3 4 0.0 0.0 1.0 1.0	
	3 0 4 1 0.0 0.0 1.0 1.0	
	}
	} } )

  (read transform { transform define craftt
	1 0 0 0 0 1 0 0 0 0 1 0 0 0 0 40
	} )

  (read geometry { define scraft_h {
	INST
		transform :craftt
		geom :craft_h
	} } )
	

  (read transform { transform define ttt0
	1 0 0 0 0 1 0 0 0 0 1 0 0.5 0.5 0 1
	} )

  (read geometry { define sat0_h {
	INST
		transform :ttt0
		geom :scraft_h
	} } )


)