A L T R O O M
 
 
 
tags
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
rus
 
ukr
eng
 

Liquid Architecture (3/7)


Soft

Sub trajectory()
Dim dTrStart(0 To 2) As Double
Dim dTrFinish(0 To 2) As Double
Dim myLine As AcadLine
dTrStart(2) = 0#
dTrFinish(2) = 0#
H = 25
V = 30
T = 10
dV = V / T
dgH = 9.8 / (T * T)
K = 0
dTrFinish(1) = H
dTrFinish(0) = 0
While dTrFinish(1) > 0
K = K + 1
dTrStart(0) = dTrFinish(0)
dTrStart(1) = dTrFinish(1)
dTrFinish(0) = dTrFinish(0) + dV
dHf = dgH * (K - 1)
dTrFinish(1) = dTrFinish(1) - (K * dgH)
Set myLine = ThisDrawing.ModelSpace.AddLine(dTrStart, dTrFinish)
Wend
End Sub

What's that?

You could think, that was some folly, but in reality, this is a quite real program, so-called macro. It creates guide-lines of the water membrane. We can change variable data and get different types of the water membranes.

> Discussion <
 
 
 
 
 
 
 
 
 
 
 
 
 
 
   
 
© Architectural studio Septima. 12, Hospitalna str., Kyiv, Ukraine.
 
+38 (044) 277 81 68
 
  Rambler's Top100