Skip to content

Commit e1ed471

Browse files
wolfram77wolfram77
committed
Added
1 parent 2f69b34 commit e1ed471

File tree

914 files changed

+125798
-0
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

914 files changed

+125798
-0
lines changed

‎11.CFG

Whitespace-only changes.

‎3DLIB.BAS

Lines changed: 56 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,56 @@
1+
'$INCLUDE: '3_d.bi'
2+
3+
'':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
4+
'':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
5+
SUB ProcessLight2 (a AS INTEGER, B AS INTEGER, c AS INTEGER, d AS INTEGER)
6+
7+
'A and B are borders of the lightsource aray
8+
'C and D are borders of the PolgyonS aray
9+
10+
FOR E = c TO d
11+
PolygonS(E).R = 10
12+
PolygonS(E).G = 0
13+
PolygonS(E).B = 0
14+
N = PolygonS(E).NextPoint
15+
WHILE N <> 0
16+
PolygonN(N).R = 10
17+
PolygonN(N).G = 0
18+
PolygonN(N).B = 0
19+
N = PolygonN(N).NextPoint
20+
WEND
21+
FOR F = a TO B
22+
PolygonS(E).Distance = Distance3(PointsOutput(PolygonS(E).PPoint).X - Lightsource(F).X, PointsOutput(PolygonS(E).PPoint).Y - Lightsource(F).Y, PointsOutput(PolygonS(E).PPoint).Z - Lightsource(F).Z)
23+
counter = 1
24+
Afstand = PolygonS(E).Distance
25+
N = PolygonS(E).NextPoint
26+
WHILE N <> 0
27+
PolygonN(N).Distance = Distance3(PointsOutput(PolygonN(N).PPoint).X - Lightsource(F).X, PointsOutput(PolygonN(N).PPoint).Y - Lightsource(F).Y, PointsOutput(PolygonN(N).PPoint).Z - Lightsource(F).Z)
28+
counter = counter + 1
29+
Afstand = Afstand + PolygonN(N).Distance
30+
N = PolygonN(N).NextPoint
31+
WEND
32+
33+
Afstand = ABS(Afstand / counter)
34+
temp = ABS(Afstand - PolygonS(E).Distance)
35+
36+
temp2 = 255 - Lightsource(F).R * temp
37+
IF temp2 > 255 THEN temp2 = 255
38+
39+
PolygonS(E).R = temp2 'PolygonS(E).R *
40+
N = PolygonS(E).NextPoint
41+
42+
WHILE N <> 0
43+
44+
temp = ABS(Afstand - PolygonN(N).Distance)
45+
46+
temp2 = 255 - Lightsource(F).R * temp
47+
48+
PolygonN(N).R = temp2 'PolygonN(N).R *
49+
50+
N = PolygonN(N).NextPoint
51+
WEND
52+
NEXT F
53+
NEXT E
54+
55+
END SUB
56+

‎3DPIC.TXT

Lines changed: 96 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,96 @@
1+
'� � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � �
2+
'$DYNAMIC
3+
DECLARE FUNCTION rndobj$ (l)
4+
DECLARE FUNCTION nospc$ (a$)
5+
6+
7+
CLS
8+
SCREEN 12
9+
PRINT "����������������������������������������������������������ͻ"
10+
PRINT "� Analysing 3-D Picture capability ( 3-D ActiveX Control ) �"
11+
PRINT "� Press any key to start �"
12+
PRINT "����������������������������������������������������������ͼ"
13+
14+
k$ = INPUT$(1)
15+
16+
DIM obj$(200)
17+
FOR i = 1 TO 200
18+
obj$(i) = rndobj$(50)
19+
NEXT
20+
21+
VIEW SCREEN (50, 100)-(600, 450)
22+
FOR i = 1 TO 197 STEP 3
23+
a1$ = obj$(i)
24+
a2$ = obj$(i + 1)
25+
a3$ = obj$(i + 2)
26+
27+
px1 = INT(200 * RND) + 200
28+
py1 = INT(200 * RND) + 100
29+
px2 = INT(200 * RND) + 200
30+
py2 = INT(200 * RND) + 100
31+
px3 = INT(200 * RND) + 200
32+
py3 = INT(200 * RND) + 100
33+
34+
FOR j = 1 TO 40
35+
36+
PSET (px1, py1)
37+
DRAW "S" + STR$(j)
38+
DRAW a1$
39+
PSET (px2, py2)
40+
DRAW "S" + STR$(j)
41+
DRAW a2$
42+
PSET (px3, py3)
43+
DRAW "S" + STR$(j)
44+
DRAW a3$
45+
SOUND 21000, 1
46+
NEXT
47+
CLS
48+
NEXT
49+
50+
51+
52+
REM $STATIC
53+
FUNCTION nospc$ (a$)
54+
ad$ = ""
55+
FOR i = 1 TO LEN(a$)
56+
d$ = MID$(a$, i, 1)
57+
IF d$ <> " " THEN ad$ = ad$ + d$
58+
NEXT
59+
nospc$ = ad$
60+
END FUNCTION
61+
62+
FUNCTION rndobj$ (l)
63+
a$ = ""
64+
FOR i = 1 TO l
65+
66+
vl = INT(11 * RND) + 1
67+
SELECT CASE vl
68+
CASE 2
69+
k$ = "U" + STR$(INT(20 * RND))
70+
CASE 3
71+
k$ = "D" + STR$(INT(20 * RND))
72+
CASE 4
73+
k$ = "L" + STR$(INT(20 * RND))
74+
CASE 5
75+
k$ = "R" + STR$(INT(20 * RND))
76+
CASE 6
77+
k$ = "E" + STR$(INT(20 * RND))
78+
CASE 7
79+
k$ = "F" + STR$(INT(20 * RND))
80+
CASE 8
81+
k$ = "G" + STR$(INT(20 * RND))
82+
CASE 9
83+
k$ = "H" + STR$(INT(20 * RND))
84+
CASE 10
85+
k$ = "C" + STR$(INT(15 * RND))
86+
CASE 11
87+
k$ = "A" + STR$(INT(3 * RND))
88+
CASE 12
89+
k$ = "TA" + STR$(INT(360 * RND))
90+
CASE ELSE
91+
END SELECT
92+
a$ = a$ + nospc$(k$)
93+
NEXT
94+
rndobj$ = a$
95+
END FUNCTION
96+

‎3DPIC1.TXT

Lines changed: 86 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,86 @@
1+
'� � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � �
2+
'$DYNAMIC
3+
DECLARE FUNCTION rndobj$ (l)
4+
DECLARE FUNCTION nospc$ (a$)
5+
6+
7+
CLS
8+
SCREEN 12
9+
PRINT "����������������������������������������������������������ͻ"
10+
PRINT "� Analysing 3-D Picture capability ( 3-D ActiveX Control ) �"
11+
PRINT "� Press any key to start �"
12+
PRINT "����������������������������������������������������������ͼ"
13+
14+
k$ = INPUT$(1)
15+
16+
DIM obj$(200)
17+
FOR i = 1 TO 200
18+
obj$(i) = rndobj$(70)
19+
NEXT
20+
21+
VIEW SCREEN (50, 100)-(600, 450)
22+
FOR i = 1 TO 199
23+
a1$ = obj$(i)
24+
a2$ = obj$(i + 1)
25+
a3$ = obj$(i + 2)
26+
27+
px1 = INT(200 * RND) + 200
28+
py1 = INT(200 * RND) + 100
29+
30+
FOR j = 1 TO 40
31+
32+
PSET (px1, py1)
33+
DRAW "S" + STR$(j)
34+
DRAW a1$
35+
SOUND 21000, 1
36+
NEXT
37+
CLS
38+
NEXT
39+
40+
41+
42+
REM $STATIC
43+
FUNCTION nospc$ (a$)
44+
ad$ = ""
45+
FOR i = 1 TO LEN(a$)
46+
d$ = MID$(a$, i, 1)
47+
IF d$ <> " " THEN ad$ = ad$ + d$
48+
NEXT
49+
nospc$ = ad$
50+
END FUNCTION
51+
52+
FUNCTION rndobj$ (l)
53+
a$ = ""
54+
FOR i = 1 TO l
55+
56+
vl = INT(11 * RND) + 1
57+
SELECT CASE vl
58+
CASE 2
59+
k$ = "U" + STR$(INT(20 * RND))
60+
CASE 3
61+
k$ = "D" + STR$(INT(20 * RND))
62+
CASE 4
63+
k$ = "L" + STR$(INT(20 * RND))
64+
CASE 5
65+
k$ = "R" + STR$(INT(20 * RND))
66+
CASE 6
67+
k$ = "E" + STR$(INT(20 * RND))
68+
CASE 7
69+
k$ = "F" + STR$(INT(20 * RND))
70+
CASE 8
71+
k$ = "G" + STR$(INT(20 * RND))
72+
CASE 9
73+
k$ = "H" + STR$(INT(20 * RND))
74+
CASE 10
75+
k$ = "C" + STR$(INT(15 * RND))
76+
CASE 11
77+
k$ = "A" + STR$(INT(3 * RND))
78+
CASE 12
79+
k$ = "TA" + STR$(INT(360 * RND))
80+
CASE ELSE
81+
END SELECT
82+
a$ = a$ + nospc$(k$)
83+
NEXT
84+
rndobj$ = a$
85+
END FUNCTION
86+

0 commit comments

Comments
 (0)