-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path_SoapyTest.nom
93 lines (61 loc) · 2.85 KB
/
_SoapyTest.nom
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
#
# SoapyTest.nom
#
# CHS 2023/12/1
#### Some Surface colors #############################
surface M color (0.9 0.1 1 ) endsurface # Magenta
surface Z color (1 0 0.6) endsurface # Zinnober
surface R color (0.9 0.1 0 ) endsurface # Red
surface O color (1 0.6 0 ) endsurface # Orange
surface Y color (0.8 0.8 0 ) endsurface # Yellow
surface L color (0.5 0.8 0 ) endsurface # Lime
surface G color (0.1 0.8 0 ) endsurface # Green
surface A color (0 0.9 0.6) endsurface # Aqua
surface C color (0 0.8 0.9) endsurface # Cyan
surface U color (0 0.6 1 ) endsurface # Uniform
surface B color (0 0.3 1 ) endsurface # Blue
surface V color (0.5 0.1 1 ) endsurface # Violet
surface P color (0.7 0 0.9) endsurface # Purple
surface W color (1 1 1 ) endsurface # White
surface D color (0.2 0.2 0.2) endsurface # Dark
surface K color (0 0 0 ) endsurface # blacK
backgroundcolor (0 0 0) endbackgroundcolor
################## Coordinate System #######################
point co (0 0 0 ) endpoint
point cx (1 0 0 ) endpoint
point cy (0 1 0 ) endpoint
point cz (0 0 1 ) endpoint
polyline xax ( co cx ) endpolyline
instance ix xax surface R endinstance
polyline yax ( co cy ) endpolyline
instance iy yax surface B endinstance
polyline zax ( co cz ) endpolyline
instance iz zax surface G endinstance
########### Adjustable Parameters on Sliders #####################
(*
bank p
set radC 0.90 0.1 2 0.1 ## radius of circle
set segC 24.00 12 96 4 ## segments in curve
list ( radC segC )
endbank
*)
############################# Border Curves #########################################
circle circ ( 0.5 24 ) endcircle
instance circG circ surface G translate(0 0.25 0) rotate(0 1 0)( 45) endinstance
instance circR circ surface R translate(0 -0.25 0) rotate(0 1 0)(-45) endinstance
################### First, "cleaned-up", manual addition #############################
mesh TempMesh_first
face new0 ( .circG.v4 .circG.v6 .circR.v6 .circR.v5 ) endface
endmesh
instance iTM_first TempMesh_first surface G endinstance
############ A second addition, before clean-up: shows up in Orange ##############
mesh TempMesh0 face new0 ( .circG.v8 .circR.v7 .circR.v6 .circG.v6 ) endface endmesh
instance instTempMesh0 TempMesh0 surface B endinstance
###########################
mesh TempMesh0 face new0 ( .circR.v16 .circG.v18 .circG.v17 .circR.v15 ) endface endmesh
instance instTempMesh0 TempMesh0 surface O endinstance
###########################
mesh TempMesh0 face new0 ( .circG.v13 .iy.co .circR.v10 .circR.v11 ) endface endmesh
instance instTempMesh0 TempMesh0 endinstance
###########################
################################ end ############################################