【编程游戏】贺岁霓虹灯。（参观248楼KiteGirl的霓虹灯，VBScript编写）

最新推荐文章于 2021-05-23 12:21:47 发布

王集鹄

最新推荐文章于 2021-05-23 12:21:47 发布

阅读量1.8k

点赞数

分类专栏：【编程游戏】贺岁霓虹灯。文章标签： vbscript 编程游戏 firefox 浏览器 html

本文链接：https://blog.csdn.net/zswang/article/details/5085342

版权

【编程游戏】贺岁霓虹灯。专栏收录该内容

19 篇文章 0 订阅

订阅专栏

【编程游戏】贺岁霓虹灯。（第一名奖励10000可用分）

效果图

[目前Firefox中好使，其他浏览器需复制到本地，存为html文件看效果] <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>
[目前Firefox中好使，其他浏览器需复制到本地，存为html文件看效果]