xaoc30 Сообщение 27/05/2011 16:54 Копия темы
Narmina Djafarova, я же говорю, поймете со временем ))
Видимо погуглила, ахахаха

Narminad Сообщение 27/05/2011 16:56 Копия темы
видимо да! а у кого-то с культурой полная лажа!

xaoc30 Сообщение 27/05/2011 16:57 Копия темы
КУЛЬТУРА. Я обожаю личные блоги.

xaoc30 Сообщение 27/05/2011 16:58 Копия темы
Надо больше ЛУКов выкладывать, ишь как себя любите ))

xaoc30 Сообщение 27/05/2011 17:02 Копия темы
Эх, пора за работу
Private Sub RunScript(ByVal dir As Plane, ByVal bend As List(Of Double), ByVal twist As List(Of Double), ByVal length As Double, ByVal width As Double, ByVal gain As Double, ByRef A As Object, ByRef B As Object, ByRef C As Object) 
 
    Dim x As Double = width / 2 ' Half of width
    Dim steps As Int32
    steps = bend.Count – 1    ' The number of "bend" values set the number of steps.
    Dim pt1 As Point3d
    Dim pt2 As Point3d
    Dim pts1 As New List (Of Point3d)   ' The "left" points
    Dim pts2 As New List (Of Point3d)   ' The "right" points
    Dim planes As New List (Of Plane)
    Dim dir2 As Plane
    Dim dist As Double
    dist = length / steps               ' Length of each step (at centre line). Total length / number of steps
    Dim move As Vector3d



    pt1 = dir.PointAt(-x, -Math.Tan(twist(0)) * x, 0)   'First two points. "Twist angle" decides where they go. x = half of width.
    pt2 = dir.PointAt(x, Math.Tan(twist(0)) * x, 0)

    pts1.Add(pt1)
    pts2.Add(pt2)

    Dim i As New Int32    'Starting with "1" (not "0" which is the normal) because the first value is used BEFORE the loop-
    For i = 1 To steps

      move = dir.YAxis                                   'Direction of move
      move.Transform(Transform.Scale(dir.Origin, dist))  'Distance of move (the vector is scaled)
      dir.Translate(move)

      dir2 = dir                                          'Copy of plane "dir", rotated according to "twist". Will serve as rotation axes later.
      dir2.Rotate(twist(i), dir.ZAxis, dir.Origin)        ' Rotation according to "twist"

      'planes.Add(dir)

      dir.Rotate((bend(i) / steps) * gain, dir2.XAxis, dir2.Origin)  'Plane rotated according to "bend", with rotation axes "dir2" (defined above)

      pt1 = dir.PointAt(-x, -Math.Tan(twist(i)) * x, 0)               'New point left
      pt2 = dir.PointAt(x, Math.Tan(twist(i)) * x, 0)                 'New point right

      pts1.Add(pt1)     'Points added to lists
      pts2.Add(pt2)

    Next


    A = pts1
    B = pts2
    C = planes

zhah Сообщение 27/05/2011 17:03 Копия темы
зато симпатичная

xaoc30 Сообщение 27/05/2011 17:04 Копия темы
Они должны быть симпатичными )

zhah Сообщение 27/05/2011 17:05 Копия темы
а мы все завидуем

xaoc30 Сообщение 27/05/2011 17:07 Копия темы
ДА )

xaoc30 Сообщение 27/05/2011 17:08 Копия темы
Почему если человек симпатичный, обязательно нужно красоваться? Это так, к слову )

zhah Сообщение 27/05/2011 17:08 Копия темы
клёвые стихи выше, жаль не по-русски!

zhah Сообщение 27/05/2011 17:09 Копия темы
всё наоборот!
тот, кто красуется, воспринимается симпатичным)

xaoc30 Сообщение 27/05/2011 17:12 Копия темы
Интересная мысль

xaoc30 Сообщение 27/05/2011 17:13 Копия темы
хз, я ссылку про*****, дай пожалуйста. У меня почему то в истории неть (

xaoc30 Сообщение 27/05/2011 17:16 Копия темы
ты про бложик?

xaoc30 Сообщение 27/05/2011 17:23 Копия темы
Сижу разбираюсь.

zhah Сообщение 27/05/2011 17:26 Копия темы
я про это http://www.free-lance.ru/blogs/view.php?tr=639159&ord=new&openlevel =6710437&ord=new#o6710437 :D

xaoc30 Сообщение 27/05/2011 17:27 Копия темы
блин )