霓虹灯

joelion

浏览: 2465 次
性别:
来自: 深圳

最近访客更多访客>>

Rambo_Wang

博主相关

博客

微博

相册

留言

关于我

文章分类

社区版块

存档分类

2010-12 ( 3)
更多存档...

博客分类：

其他脚本

VBScript 360 Web 脚本

节日快到，发几个霓虹灯的脚本助助兴！

第一个：

Dim pubS_Pix_x
3

Dim pubS_Pix_y
4

Dim pubS_Pix_z
5

Dim pubS_Pix_cr
6

Dim pubS_Pix_cg
7

Dim pubS_Pix_cb
8

Dim pubD_Mx
9

Dim pubD_My
10

Dim pubD_Mz
11

Dim pubD_Rx
12

Dim pubD_Ry
13

Dim pubD_Rz
14

Dim pubD_Mtx_Mx
15

Dim pubD_Mtx_Mr
16

Dim pubD_Pix_x
17

Dim pubD_Pix_y
18

Dim pubD_Pix_z
19

Dim pubF_Va
20

Dim pubF_Vd
21

Dim pubV_Vx
22

Dim pubV_Vy
23

Dim pubV_Vz
24

Dim pubV_Sc
25

Dim pubV_Mtx_Mx
26

Dim pubV_Mtx_Mr
27

Dim pubV_Pix_x
28

Dim pubV_Pix_y
29

Dim pubV_Pix_z
30

Dim pubElm
31

Dim pubElm_Len
32

Dim pubWeb_Tv
33

Dim pubWeb_Tw
34

Dim pubWeb_WW, pubWeb_WH
35

Dim pubR, pubG, pubB
36

Dim pubOR, pubOG, pubOB
37

'Web DHTML 事件函数
38

Sub window_onload()
39

MakeModule
40

With document.body
42

pubWeb_WW = .clientWidth
43

pubWeb_WH = .clientHeight
44

End With
45

pubD_Rz = 0
46

pubD_Rx = 0
47

pubD_Ry = 0
48

pubF_Va = 15
49

pubF_Vd = 20
50

pubV_Vx = pubWeb_WW \ 2
52

pubV_Vy = pubWeb_WH \ 3
53

pubV_Vz = 0
54

pubV_Sc = 10
55

pubWeb_Tw = 33
56

MTX_3DMixV pubV_Vx, pubV_Vy, pubV_Vz, pubV_Sc, pubV_Mtx_Mx, pubV_Mtx_Mr
57

Web_TimeLoop
59

End Sub
61

Sub MakeModule
62

pubElm_Len = 599
63

pubElm = ELM_Create(pubElm_Len)
64

ReDim pubS_Pix_x(pubElm_Len), pubS_Pix_y(pubElm_Len), pubS_Pix_z(pubElm_Len)
65

ReDim pubD_Pix_x(pubElm_Len), pubD_Pix_y(pubElm_Len), pubD_Pix_z(pubElm_Len)
66

ReDim pubV_Pix_x(pubElm_Len), pubV_Pix_y(pubElm_Len), pubV_Pix_z(pubElm_Len)
67

ReDim pubS_Pix_cr(pubElm_Len), pubS_Pix_cg(pubElm_Len), pubS_Pix_cb(pubElm_Len)
68

tH = 100
69

tR = 0
70

For tI = 1 To 1500 Step 15
71

tR = tI * 15 / 1500 + 5
72

tA = tA + (1000 / (tR * 2 * 3.14))
73

tZ = 30 - tI * 30 / 1500
74

tAr = Radian(tA)
75

For tRd = Int(tR) To Int(tR) - 5 Step -1
76

tX = Sin(tAr) * tRd
77

tY = Cos(tAr) * tRd
78

pubS_Pix_x(tAdd) = tX
79

pubS_Pix_y(tAdd) = tY
80

pubS_Pix_z(tAdd) = tZ
81

tAdd = tAdd + 1
82

Next
83

Next
84

'MsgBox tAdd
85

pubD_Mx = 0
86

pubD_My = 0
87

pubD_Mz = 0
88

End Sub
89

Sub Web_TimeLoop()
90

pubD_Rz = (pubD_Rz + 1) Mod 360
91

pubD_Rx = 45
92

pubD_Ry = 0
93

MTX_3DMixD pubD_Mx, pubD_My, pubD_Mz, pubD_Rx, pubD_Ry, pubD_Rz, pubD_Mtx_Mx, pubD_Mtx_Mr
94

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
95

FIT_PSV pubD_Pix_x, pubD_Pix_y, pubD_Pix_z, pubF_Va, pubF_Vd, pubD_Pix_x, pubD_Pix_y, pubD_Pix_z
96

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
97

For tI = 0 To 5
99

For tEi = pubElm_Len To 0 Step -1
100

If CBool(tEi) Then
101

pubS_Pix_cr(tEi) = pubS_Pix_cr(tEi-1)
102

pubS_Pix_cg(tEi) = pubS_Pix_cg(tEi-1)
103

pubS_Pix_cb(tEi) = pubS_Pix_cb(tEi-1)
104

Else
105

If pubR < pubOR Then pubR = pubR + 1
106

If pubR > pubOR Then pubR = pubR - 1
107

If pubG < pubOG Then pubG = pubG + 1
108

If pubG > pubOG Then pubG = pubG - 1
109

If pubB < pubOB Then pubB = pubB + 1
110

If pubB > pubOB Then pubB = pubB - 1
111

If pubR = pubOR And pubB = pubOB And pubG = pubOG Then
112

pubOR = Int(Rnd * 32) + 31
113

pubOG = Int(Rnd * 32) + 31
114

pubOB = Int(Rnd * 32) + 31
115

End If
116

pubS_Pix_cr(tEi) = pubR*4
117

pubS_Pix_cg(tEi) = pubG*4
118

pubS_Pix_cb(tEi) = pubB*4
119

End If
120

Next
121

Next
122

For tEi = pubElm_Len To 0 Step -1
123

With pubElm(tEi).style
124

.left = pubV_Pix_x(tEi)
125

.top = pubV_Pix_y(tEi)
126

tL = tEi Mod 6 + 1
127

.color = rgb(pubS_Pix_cr(tEi)\tL,pubS_Pix_cg(tEi)\tL,pubS_Pix_cb(tEi)\tL)
128

End With
129

Next
130

131

pubWeb_Tv = window.setTimeout("Web_TimeLoop", pubWeb_Tw)
132

End Sub
133

Function ELM_Create(pEn)
134

ReDim tElms(pEn)
135

For tEi = 0 To pEn
136

With document
137

Set tElms(tEi) = .createElement("SPAN")
138

.body.insertAdjacentElement "beForeEnd", tElms(tEi)
139

End With
140

With tElms(tEi)
141

.innerText = "*"
142

.style.position = "absolute"
143

.style.color = rgb(0,0,0)
144

End With
145

Next
146

ELM_Create = tElms
147

End Function
148

Sub PXE_MTXTram2D(pPx(), pPy(), pM(), pMr, oPx(), oPy())
149

tPe = UBound(pPx)
150

For tPi = 0 To tPe
151

oPx(tPi) = pPx(tPi) * pM(0) + pPy(tPi) * pM(1) + pM(2)
152

oPy(tPi) = pPx(tPi) * pM(3) + pPy(tPi) * pM(4) + pM(5)
153

Next
154

End Sub
155

Sub PXE_MTXTram3D(pPx(), pPy(), pPz(), pM(), pMr(), oPx(), oPy(), oPz())
156

tPe = UBound(pPx)
157

For tPi = 0 To tPe
158

oPx(tPi) = pPx(tPi) * pM(0) + pPy(tPi) * pM(1) + pPz(tPi) * pM(2) + pM(3)
159

oPy(tPi) = pPx(tPi) * pM(4) + pPy(tPi) * pM(5) + pPz(tPi) * pM(6) + pM(7)
160

oPz(tPi) = pPx(tPi) * pM(8) + pPy(tPi) * pM(9) + pPz(tPi) * pM(10) + pM(11)
161

Next
162

End Sub
163

Sub FIT_PSV(iPx, iPy, iPz, iVa, iVd, oPx, oPy, oPz)
164

tPe = UBound(iPx)
165

For tPi = 0 To tPe
166

tVr = Sin(Radian(iVa))
167

tZ = iPz(tPi) + iVd
168

oPx(tPi) = iPx(tPi) * tVr * tZ / (tVr * iVd)
169

oPy(tPi) = iPy(tPi) * tVr * tZ / (tVr * iVd)
170

oPz(tPi) <span

分享到：

病毒小史

2010-12-08 11:09
浏览 855
评论(0)
查看更多

发表评论

您还没有登录,请您登录后再发表评论

最近访客更多访客>>

博主相关

文章分类

社区版块

存档分类

最新评论

霓虹灯

评论

发表评论

相关推荐

最近访客 更多访客>>

博主相关

文章分类

社区版块

存档分类

最新评论

霓虹灯

评论

发表评论

相关推荐

最近访客更多访客>>