螺旋霓虹灯

最新推荐文章于 2022-01-27 06:34:00 发布

wanghaojie

最新推荐文章于 2022-01-27 06:34:00 发布

阅读量1.5k

点赞数

分类专栏： JS(JavaScript) 文章标签： vbscript web 360

JS(JavaScript) 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

<html>
<head>
  <title>K.G Script3D 3.00 —— 螺旋霓虹灯</title>
</head>
<body bgcolor="#000000" text="#FFFFFF">
  <p id="idText" style="color:rgb(255,255,255)"></p>
  <p id="idInsertObject"></p>
</body>
<script languate="VBScript" type="text/VBScript">
Dim pubS_Pix_x
Dim pubS_Pix_y
Dim pubS_Pix_z
Dim pubS_Pix_cr
Dim pubS_Pix_cg
Dim pubS_Pix_cb
Dim pubD_Mx
Dim pubD_My
Dim pubD_Mz
Dim pubD_Rx
Dim pubD_Ry
Dim pubD_Rz
Dim pubD_Mtx_Mx
Dim pubD_Mtx_Mr
Dim pubD_Pix_x
Dim pubD_Pix_y
Dim pubD_Pix_z
Dim pubF_Va
Dim pubF_Vd
Dim pubV_Vx
Dim pubV_Vy
Dim pubV_Vz
Dim pubV_Sc
Dim pubV_Mtx_Mx
Dim pubV_Mtx_Mr
Dim pubV_Pix_x
Dim pubV_Pix_y
Dim pubV_Pix_z
Dim pubElm
Dim pubElm_Len
Dim pubWeb_Tv
Dim pubWeb_Tw
Dim pubWeb_WW, pubWeb_WH
Dim pubR, pubG, pubB
Dim pubOR, pubOG, pubOB
'Web DHTML 事件函数
Sub window_onload()
MakeModule

With document.body
  pubWeb_WW = .clientWidth
  pubWeb_WH = .clientHeight
End With
pubD_Rz = 0
pubD_Rx = 0
pubD_Ry = 0
pubF_Va = 15
pubF_Vd = 20

pubV_Vx = pubWeb_WW / 2
pubV_Vy = pubWeb_WH / 3
pubV_Vz = 0
pubV_Sc = 10
pubWeb_Tw = 33
MTX_3DMixV pubV_Vx, pubV_Vy, pubV_Vz, pubV_Sc, pubV_Mtx_Mx, pubV_Mtx_Mr

Web_TimeLoop

End Sub
Sub MakeModule
pubElm_Len = 599
pubElm = ELM_Create(pubElm_Len)
ReDim pubS_Pix_x(pubElm_Len), pubS_Pix_y(pubElm_Len), pubS_Pix_z(pubElm_Len)
ReDim pubD_Pix_x(pubElm_Len), pubD_Pix_y(pubElm_Len), pubD_Pix_z(pubElm_Len)
ReDim pubV_Pix_x(pubElm_Len), pubV_Pix_y(pubElm_Len), pubV_Pix_z(pubElm_Len)
ReDim pubS_Pix_cr(pubElm_Len), pubS_Pix_cg(pubElm_Len), pubS_Pix_cb(pubElm_Len)
tH = 100
tR = 0
For tI = 1 To 1500 Step 15
  tR = tI * 15 / 1500 + 5
  tA = tA + (1000 / (tR * 2 * 3.14))
  tZ = 30 - tI * 30 / 1500
  tAr = Radian(tA)
  For tRd = Int(tR) To Int(tR) - 5 Step -1
   tX = Sin(tAr) * tRd
   tY = Cos(tAr) * tRd
   pubS_Pix_x(tAdd) = tX
   pubS_Pix_y(tAdd) = tY
   pubS_Pix_z(tAdd) = tZ
   tAdd = tAdd + 1
  Next
Next
'MsgBox tAdd
pubD_Mx = 0
pubD_My = 0
pubD_Mz = 0
End Sub
Sub Web_TimeLoop()
pubD_Rz = (pubD_Rz + 1) Mod 360
pubD_Rx = 45
pubD_Ry = 0
MTX_3DMixD pubD_Mx, pubD_My, pubD_Mz, pubD_Rx, pubD_Ry, pubD_Rz, pubD_Mtx_Mx, pubD_Mtx_Mr
PXE_MTXTram3D pubS_Pix_x, pubS_Pix_y, pubS_Pix_z, pubD_Mtx_Mx, pubD_Mtx_Mr, pubD_Pix_x, pubD_Pix_y, pubD_Pix_z
FIT_PSV pubD_Pix_x, pubD_Pix_y, pubD_Pix_z, pubF_Va, pubF_Vd, pubD_Pix_x, pubD_Pix_y, pubD_Pix_z
PXE_MTXTram3D pubD_Pix_x, pubD_Pix_y, pubD_Pix_z, pubV_Mtx_Mx, pubV_Mtx_Mr, pubV_Pix_x, pubV_Pix_y, pubV_Pix_z

For tI = 0 To 5
For tEi = pubElm_Len To 0 Step -1
  If CBool(tEi) Then
    pubS_Pix_cr(tEi) = pubS_Pix_cr(tEi-1)
    pubS_Pix_cg(tEi) = pubS_Pix_cg(tEi-1)
    pubS_Pix_cb(tEi) = pubS_Pix_cb(tEi-1)
   Else
    If pubR < pubOR Then pubR = pubR + 1
    If pubR > pubOR Then pubR = pubR - 1
    If pubG < pubOG Then pubG = pubG + 1
    If pubG > pubOG Then pubG = pubG - 1
    If pubB < pubOB Then pubB = pubB + 1
    If pubB > pubOB Then pubB = pubB - 1
    If pubR = pubOR And pubB = pubOB And pubG = pubOG Then
     pubOR = Int(Rnd * 32) + 31
     pubOG = Int(Rnd * 32) + 31
     pubOB = Int(Rnd * 32) + 31
    End If
    pubS_Pix_cr(tEi) = pubR*4
    pubS_Pix_cg(tEi) = pubG*4
    pubS_Pix_cb(tEi) = pubB*4
  End If
Next
Next
For tEi = pubElm_Len To 0 Step -1
  With pubElm(tEi).style
   .left = pubV_Pix_x(tEi)
   .top = pubV_Pix_y(tEi)
   tL = tEi Mod 6 + 1
   .color = rgb(pubS_Pix_cr(tEi)/tL,pubS_Pix_cg(tEi)/tL,pubS_Pix_cb(tEi)/tL)
  End With
Next

pubWeb_Tv = window.setTimeout("Web_TimeLoop", pubWeb_Tw)
End Sub
Function ELM_Create(pEn)
ReDim tElms(pEn)
For tEi = 0 To pEn
  With document
   Set tElms(tEi) = .createElement("SPAN")
   .body.insertAdjacentElement "beForeEnd", tElms(tEi)
  End With
  With tElms(tEi)
   .innerText = "*"
   .style.position = "absolute"
   .style.color = rgb(0,0,0)
  End With
Next
ELM_Create = tElms
End Function
Sub PXE_MTXTram2D(pPx(), pPy(), pM(), pMr, oPx(), oPy())
tPe = UBound(pPx)
For tPi = 0 To tPe
  oPx(tPi) = pPx(tPi) * pM(0) + pPy(tPi) * pM(1) + pM(2)
  oPy(tPi) = pPx(tPi) * pM(3) + pPy(tPi) * pM(4) + pM(5)
Next
End Sub
Sub PXE_MTXTram3D(pPx(), pPy(), pPz(), pM(), pMr(), oPx(), oPy(), oPz())
tPe = UBound(pPx)
For tPi = 0 To tPe
  oPx(tPi) = pPx(tPi) * pM(0) + pPy(tPi) * pM(1) + pPz(tPi) * pM(2) + pM(3)
  oPy(tPi) = pPx(tPi) * pM(4) + pPy(tPi) * pM(5) + pPz(tPi) * pM(6) + pM(7)
  oPz(tPi) = pPx(tPi) * pM(8) + pPy(tPi) * pM(9) + pPz(tPi) * pM(10) + pM(11)
Next
End Sub
Sub FIT_PSV(iPx, iPy, iPz, iVa, iVd, oPx, oPy, oPz)
tPe = UBound(iPx)
For tPi = 0 To tPe
  tVr = Sin(Radian(iVa))
  tZ = iPz(tPi) + iVd
  oPx(tPi) = iPx(tPi) * tVr * tZ / (tVr * iVd)
  oPy(tPi) = iPy(tPi) * tVr * tZ / (tVr * iVd)
  oPz(tPi) = iPz(tPi)
Next
End Sub
Sub MTX_2DPixMulti(iSc, oM(), oMr)
oMr = 3
ReDim oM(8)
oM = Array(iSc, 0, 0, 0, iSc, 0, 0, 0, 1)
End Sub
Sub MTX_2DPixMove(iMx, iMy, oM(), oMr)
oMr = 3
ReDim oM(8)
oM = Array(1, 0, iMx, 0, 1, iMy, 0, 0, 1)
End Sub
Sub MTX_2DRot(iA, oM(), oMr)
tR = Radian(iA)
oMr = 3
ReDim oM(8)
oM = Array(cos(tR), -sin(tR), 0, sin(tR), cos(tR), 0, 0, 0, 1)
End Sub
Sub MTX_3DMixD(iMx, iMy, iMz, iRx, iRy, iRz, oMx, oMr)
MTX_3DPixMove tMtx_MV, oMr, iMx, iMy, iMz
MTX_3DPixRotZ tMtx_RTz, oMr, iRz
MTX_3DPixRotX tMtx_RTx, oMr, iRx
MTX_3DPixRotY tMtx_RTy, oMr, iRy
MTX_Multi tMtx_MV, oMr, tMtx_RTz, oMr, tMx, oMr
oMx = tMx
MTX_Multi oMx, oMr, tMtx_RTx, oMr, tMx, oMr
oMx = tMx
MTX_Multi oMx, oMr, tMtx_RTy, oMr, tMx, oMr
oMx = tMx
End Sub
Sub MTX_3DMixV(iVx, iVy, iVz, iSc, oMx, oMr)
MTX_3DPixMulti tMtx_SC, oMr, iSc
MTX_3DPixMove tMtx_VM, oMr, iVx, iVy, iVz
MTX_Multi tMtx_SC, oMr, tMtx_VM, oMr, tMx, oMr
oMx = tMx
End Sub
Sub MTX_3DPixMulti(oM(), oMr, iSc)
oMr = 4
ReDim oM(15)
oM = Array(iSc, 0, 0, 0, 0, iSc, 0, 0, 0, 0, iSc, 0, 0, 0, 0, 1)
End Sub
Sub MTX_3DPixMove(oM(), oMr, iMx, iMy, iMz)
oMr = 4
ReDim oM(15)
oM = Array(1, 0, 0, iMx, 0, 1, 0, iMy, 0, 0, 1, iMz, 0, 0, 0, 1)
End Sub
Sub MTX_3DPixRotZ(oM(), oMr, iA)
oMr = 4
ReDim oM(15)
tR = Radian(iA) : tSin = sin(tR) : tCos = cos(tR)
oM = Array(tCos, -tSin, 0, 0, tSin, tCos, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1)
End Sub
Sub MTX_3DPixRotY(oM(), oMr, iA)
oMr = 4
ReDim oM(15)
tR = Radian(iA) : tSin = sin(tR) : tCos = cos(tR)
oM = Array(tCos, 0, tSin, 0, 0, 1, 0, 0, -tSin, 0, tCos, 0, 0, 0, 0, 1)
End Sub
Sub MTX_3DPixRotX(oM(), oMr, iA)
oMr = 4
tR = Radian(iA)
tR = Radian(iA) : tSin = sin(tR) : tCos = cos(tR)
oM = Array(1, 0, 0, 0, 0, tCos, tSin, 0, 0, -tSin, tCos, 0, 0, 0, 0, 1)
End Sub
Sub MTX_Multi(iMa(), iMar, iMb(), iMbr, oMc(), oMcr)
tN = (iMar = ((UBound(iMb) / iMbr) + 1)) And (iMar - 1)

If CBool(tN) Then

  tM = Ubound(iMa) / iMar
  tP = iMbr - 1

  oMcr = tP + 1

  ReDim oMc(oMcr * (tM + 1) - 1)

  For tMi = 0 To tM
   For tPi = 0 To tP
    For tNi = 0 To tN
     tMv = MTX_VGet(oMc, oMcr, tMi, tPi) + MTX_VGet(iMa, iMar, tMi, tNi) * MTX_VGet(iMb, iMbr, tNi, tPi)
     MTX_VSet oMc, oMcr, tMi, tPi, tMv

    Next
   Next
  Next

End If

End Sub
Sub MTX_VSet(pM(), pMr, pX, pY, pMv)
tMi = pY * pMr + pX
pM(tMi) = pMv
End Sub
Function MTX_VGet(pM(), pMr, pX, pY)
tMi = pY * pMr + pX
MTX_VGet = pM(tMi)
End Function
Function Radian(pA)
Radian = pA * 71 / 4068
End Function
</script>
</html>

转载：http://blog.csdn.net/zswang/archive/2009/12/27/5085342.aspx

wanghaojie

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
螺旋霓虹灯

K.G Script3D 3.00 —— 螺旋霓虹灯 Dim pubS_Pix_xDim pubS_Pix_yDim pubS_Pix_zDim pubS_Pix_crDim pubS_Pix_cgDim pubS_Pix_cbDim pubD_MxDim pubD_MyDim pubD_MzDim pubD_RxDim pubD_RyDim pubD_RzDim pubD_
复制链接

扫一扫