Lines Sets(Lines Set_02)

In this chapter we change also the positions of the lines themselves during the vertices positions changing gradually..

s_array = $ as array
m = 60
for s = 1 to (s_array.count - 1) do
(
    s1 = s_array[s]
    s2 = s_array[s + 1]
    d = distance s1 s2
    h = d/ma
    n = numknots s1
    for i = 0 to m do
    (
        myshape = copy s1
        for j = 1 to n do
        (
            p = getknotpoint s2 1 j
            q = getknotpoint s1 1 j
            v = p - q
            d = distance p q
            setknotpoint myshape 1 j (q + (i as float)/m * v)
        )
        updateshape myshape
        centerpivot myshape
        if s != 1 do dis = (distance s_array[1] s_array[s])
        if s == 1 do dis = 0
       
       
            myshape.pos = [10 * cos(10 * i),10 * sin(10 * i),(h * i) + dis]
        r = eulerangles 0 0 (i * 3)
        rotate myshape r

    )
)
redrawviews()

Comments

JokerMartini's picture

Very cool stuff guys.

Very cool stuff guys.

John Martini
Digital Artist
http://www.JokerMartini.com (new site)

barigazy's picture

new approach

fn filterLine s = ((isKindOf s SplineShape or isKindOf s Line) and s.modifiers.count == 0)
fn smokeLines height:300 profile: cnt: rnd:false c1:(color 20 20 20) c2:(color 255 255 255) =
(
	if (filterLine profile != true) then #abort else
	(
		if rnd == false do (local stepR = ((c2.r - c1.r)/cnt), stepG = ((c2.g - c1.g)/cnt), stepB = ((c2.b - c1.b)/cnt))
		local h = height/cnt, gkp = getknotpoint, skp = setknotpoint, \
		numS = (numSplines profile), splArr = #()
		for c = 0 to cnt do
		(
			local newProfile = copy profile ; append splArr newProfile
			for s = 1 to numS do
			(
				local numK = (numknots profile s)
				for k = 1 to numK do
				(
					local kPos = gkp profile s k
					skp newProfile s k (kPos + (c/2 as float)/cnt * height)
				)
			)
			updateshape newProfile ; centerpivot newProfile
 
			newProfile.render_sides = 6 ; newProfile.render_threshold = 60
			newProfile.render_renderable = newProfile.adaptive = true
 
			newProfile.pos = point3 (cos(c)) (sin(c)) (h*c)
			rotate newProfile (eulerangles 0 0 (c*2))
		) 
		for l in 1 to splArr.count do
		(
			if rnd == true then (splArr[l].wirecolor = random [0,0,0] [255,255,255])
			else splArr[l].wirecolor = (point3 ((stepR*l)+c1.r-stepR) ((stepG*l)+c1.r-stepG) ((stepB*l)+c1.r-stepB))
		)			
		redrawviews() ; select splArr
	)
)
smokeLines profile:$Line001 cnt:50

bga

kimarotta's picture

Yeah, very good man... but

Yeah, very good man... but how to make the transition from one line to another?

kimarotta.com.br
3d Artist