Hi, everyone.
I'm trying to make an object with a clean 3D look.
I can't figure out what status code and mask I should use to make the object like on the image. I need two versions:
a) obj with all lines, except rounded edges (image 1). Images 2, 3 are just an attempt to make it work.
b) without any lines in 3D (image 4, though 2D should stay with lines).
c) Another problem - when I place close to each other (same position) tube and revolve some
line appears (image5). It's behaving strangely - I mean it's everywhere, unlike when one part (revolve) is higher than the other (tube). The grouping has no effect. That's why I decided to make half of the cross-section for the tube command and "double path" (image6). That strange
line disappears, but the surface itself looks not good.
x1 = 0.500*0.01: y1 = 0.500*0.01 !*0.01 - just to make it smaller
x2 = 0.750*0.01: y2 =-0.250*0.01 ! for closer look in 3D
y3 =-0.375*0.01 ! on line between tube and revolve
y4 =-0.500*0.01
R=0.125*0.01
path_x1 =-1*0.01 : path_y1 = 0 : path_z1 = 0
path_x2 = 0 : path_y2 = 0 : path_z2 = 0
path_x3 = 1*0.01 : path_y3 = 0 : path_z3 = 0
path_x4 = 2*0.01 : path_y4 = 0 : path_z4 = 0.5*0.01
path_x5 = 3*0.01 : path_y5 = 0 : path_z5 = 0.5*0.01
path_x6 = 4*0.01 : path_y6 = 0 : path_z6 = 0.5*0.01
res=24
resol res
stepi=360/res
matWhite = 60
penRed = 20
showText = 1
pen penRed
material matWhite
gosub "tube shape"
add path_x5, path_y5, path_z5
rotz 180
roty -90
gosub "revolve shape"
del 3
addx path_x5*2
gosub "half tube double path"
del 1
if showText then
gosub "defStyle"
add 0, -x2*2, y4
text 0,0, "tube + revolve"
addx path_x5*2
text 0,0, "half tube, double path"
del 2
endif
end !___________________________________________END_________________________________________
"tube shape":
!status for cross-section of tube command
si=1 !0 is good WHEN angle=0, else IF lines on the rounded edges are present...
!1 remove lines on the edges, but some other lines are missing
!2 too much lines
!cross-section
put x1, y1, si
put x1, y2, si
put x2, y2, si
for i=90 to -90 step -stepi ! to make it the same as for revolve, where si isn't available
put x2 + R*cos(i), y3 + R*sin(i), si ! that's why i didn't use centerpoint (900) plus arc (4000)
next i
put x2, y4, si
put -x2, y4, si
for i=270 to 90 step -stepi ! to make it the same as for revolve, where si isn't available
put -x2 + R*cos(i), y3 + R*sin(i), si
next i
put -x2, y2, si
put -x1, y2, si
put -x1, y1, si
put x1, y1, -1
!path of cross-section
put path_x1, path_y1, path_z1, 0
put path_x2, path_y2, path_z2, 0 !changed 45 degrees to 0 - to look the same as "half tube double path"
put path_x3, path_y3, path_z3, 0 !same
put path_x4, path_y4, path_z4, 0
put path_x5, path_y5, path_z5, 0
put path_x6, path_y6, path_z6, 0
mask = 1 + 2*1 + 16*0 + 32*0 + 64*0 + 128*0 !first
m=6 ! number of the path nodes
n=(nsp-m*4)/3
tube n, m, mask, get (n*3), get(nsp)
!prism_ n, 0.01, get(n*3)
return
"revolve shape":
si=1
put y1, 0, si
put y1, x1, si
put y2, x1, si
put y2, x2, si
for i=90 to -90 step -stepi
put y3 + R*sin(i), x2 + R*cos(i), si
next i
put y4, x2, si
put y4, 0, si
j1=0: j2=0: j3=1: j4=1: j5=0
j6=0: j7=0: j8=0: j9=0
revolve nsp/3, 180, j1 + j2*2 + j3*4 + j4*8 + j5*16 + j6*32 + j7*64 + j8*128 + j9*256, get(nsp)
! prism_ nsp/3, 0.0001, get(nsp)
return
"half tube double path":
group "smoothness"
!status for cross-section of tube command
si=1
!cross-section
n=0
put 0, y1, si: n=n+1
put 0, y2, si: n=n+1
put x2-x1, y2, si: n=n+1
for i=90 to -90 step -stepi
put x2-x1 + R*cos(i), y3 + R*sin(i), si: n=n+1
next i
put x2-x1, y4, si : n=n+1
put -x1, y4, si : n=n+1
put -x1, y1, si : n=n+1
put 0, y1, -1 : n=n+1
!path of cross-section
put path_x1, path_y1, path_z1, 0
put path_x2, path_y2, path_z2, 0 !removed angle=45 or its becoming too complicated
put path_x3, path_y3, path_z3, 0 !to find same coordinates backwards (at least for me)
put path_x4, path_y4, path_z4, 0
put path_x5, path_y5, path_z5, 0
for i=90 to -90.1 step -1
put path_x5 + x1*cos(i), path_y5-x1 + x1*sin(i), path_z5, 0 !x1 - radius
next i
put path_x5, path_y5 - x1*2, path_z5, 0
put path_x4, path_y4 - x1*2, path_z4, 0
put path_x3, path_y3 - x1*2, path_z3, 0
put path_x2, path_y2 - x1*2, path_z2, 0
put path_x1, path_y1 - x1*2, path_z1, 0
mask = 1 + 2*1 + 16*0 + 32*0 + 64*0 + 128*0 !first
m=(nsp-n*3)/4 ! number of the path nodes
tube n, m, mask, get (n*3), get(nsp)
!prism_ n, 0.01, get(n*3)
endgroup
!abc=addgroup ("smoothness","smoothness")
!placegroup abc !very strange starting surface... and still 3D looks not clean
placegroup "smoothness"
return
"defStyle":
define style "style1" "arial", 1, 8, 0
set style "style1"
return
