Category : BASIC Source Code
Archive   : GEODEM.ZIP
Filename : CSC5.BAS

ü




þk‰5
;
ƒa
f
“
~
›•¡
ø|.kk
Íqÿ
ü
>NåÖÀ
­
.
ïZ'
yk

CircInterSect}a1wa2Äb1»b2A
r1Þ
r2 €x19€x2±€y1§€y2›
Sigma1
Sigma2kPartAPartBcPartCêPlaneRotate6€
X³
€
YN
Theta¶Xprime‡
Yprime$CenterOfRotationU
xec’yecG
zecØ
P1£
P2\
P3Ò
cgxÌ
cgyÆ
cgzä

cç
dÜ
er
Phi…dfArcCos\Gamma™dfArcSin¨
Beta-dfPiê

b®
fŒxcº
yccð
zcWyc¹o14o2co3Àr3¢q1hq2rq3bSolidRotaterCenterofvRotation@TempXÛTempY[TempZÎRotateÞ
coordinateê aboutº€
ZIinithe¿Plane}sfAlpha‹
TempXprimeè
TempYprime¬Alpha$RadiusTheta0ØTheta1ÊTempX0ÔTempY0°TempZ0ATemp0X÷TempX0primeTempY0primeTempX1prime¨TempY1primeOTempZ1šTheta13FineÑtiltòBeYTempX1TempY1
råTempX2ÑTempX3‘TrashRq11ÄbyJDivisorÇByValp1îpdýPrinted*€np8LenPyUnitP1MUnitP2¯UnitP3ýdebubjTempXoPrime
 TempX0prime2 TempY0prime2- TempX1prime2= TempY1prime2Æ TempZ0prime2€
i`PitchAfind§newM
TempZ0prime
2 PointTransForm¥IstarDotendsub€sfPiLetterA)€PxStar€PyStar€PzStaré
LetterAfbXoldú
LetterAfbYoldL
LetterAfbZoldÕ
€iErase»€ObjNum?ViewPicU
iColor4Bit€XView.LetterB[LetterBXoldjLetterBYold„LetterBZold LetterCLetterDæLetterE¥LetterFý
LetterGv
LetterH LetterI\
LetterJ;
LetterK–LetterLLetterM‚LetterN¸
LetterOPLetterP•
LetterQE
LetterRLetterSk
LetterTy
LetterU‡
LetterVLetterWÈLetterXŸ
LetterY* LetterZLetterCXoldŸLetterCYold®LetterCZold½LetterDXoldÌLetterDYoldÛLetterDZoldêLetterEXoldùLetterEYoldLetterEZoldLetterFXold&LetterFYold5LetterFZoldDLetterGXoldSLetterGYoldbLetterGZolds
LetterIfbXold„
LetterIfbYold•
LetterIfbZold¤LetterJXold³LetterJYoldÂLetterJZoldÑLetterKXoldàLetterKYoldïLetterKZoldþLetterLXold
LetterLYoldLetterLZold+LetterMXold:LetterMYoldILetterMZoldXLetterNXoldgLetterNYoldvLetterNZold…LetterOXold”LetterOYold£LetterOZold²LetterPXoldÁLetterPYoldÐLetterPZoldà LetterSfXoldð LetterSfYold LetterSfZold LetterTXold LetterTYold- LetterTZold< LetterWXoldK LetterWYoldZ LetterWZoldi LetterYXoldx LetterYYold‡ LetterYZold– LetterQXold¥ LetterQYold´ LetterQZoldà LetterRXoldÒ LetterRYoldá LetterRZoldð LetterUXoldÿ LetterUYold
LetterUZold
LetterXXold,
LetterXYoldò
LetterXZoldGCrossWordCubesÈ
€iNumObjects! €iObjectType€
iLocationX©
€
iLocationYd€
iLocationZ €iColor5€sfSize9
iPuzzleMode& iCurrentCell iNumCellsß
iLevelZ@BorderBoxRaisedÖ€Source1T
€Source2!
drawwidth»€BleftLeftŒ€BTop„
top¸€BWideõ width€BHighÞheightlCoSine-
Sine
@BorderBoxRecessed
BoxEraseÊ
@PicBorderBoxRecessedö@PlaceAllObjects mousepointer: €
sfDSquaredQ € sfViewPointXm € sfViewPointY‰ € sfViewPointZB € iObjOrder¢
€
j}
€Temp1o
€Temp2|€NewX[€NewYI€NewZ¥ €CenterXstar^ € sfRPointX´ €sfWinPointXz € sfRPointYÁ €sfWinPointY– € sfRPointZÎ €sfWinPointZÛ €CenterYstarf
€ sfSPointX]
€ sfSPointYð
€ sfSPointZ
€CenterZstar7€iInView¾
€iInViewPrevŠ
@PlaceObject€
iNumPoints€iObjectX€iObjectY€iObjectZ×
@MapToWindow–
€PzOld¨
€PxOld®
€PyOld?€iPz€iPx&€iPyœ
€Z1€Z2€Z3ä
€Z4€x3€y3´
€x4€y4€PointsPointAPI FillColor ForeColoråcurrentxTcurrenty ScaleModeÉ
ScaleWidth2ScaleHeightvScaleTop² scaleleft€ResultgPolygonhDCX€PointNumThreeDXFormWWWD©ViewPX ViewPYViewPZWinPXWinPYWinPZ×RPXÐRPYRPZMSPXBSPYûSPZPlaceObjectHandlerPlaceObjectResume*@SpinCube€
OrbitAngle€ SpinAngleaStartupvisibleSCCheckvalue€iSCNum”
v3D CyberSpace viewer from...vIvory Tower SoftwarevRichard WagnervCIS 76427,2611v&Copyright 1992, all rights reserved.vUYou may use this VB source code in your programs if you include attribution in yourvQstartup and "about" screens in the form: "Portions of this program copyright byyv.Ivory Tower Software, used with permission." ÿÿÿÿÿÿÿÿ
BorderBoxRaised
0

Xß

ò
€ý
€äý
ò
å÷ ò
.å÷ &ò
>å£ 5ò
På£ Gý
ef&`5äcèÿÿÿ…ý
efäGcä…ý
ef5ùäcä…ý
efäGùcèÿÿÿ…9 ÿÿÿÿÿÿÿÿBorderBoxRecessed
0þ
Xl
ò
€ý
€äý
ò
å÷ ò
.å÷ &ò
>å£ 5ò
På£ Gý
ef&`5äcä…ý
efäGcèÿÿÿ…ý
ef5ùäcèÿÿÿ…ý
efäGùcä…9 ÿÿÿÿÿÿÿÿ
PicBorderBoxRecessed
0þ
X
ò
€ý
€äý
ò
å÷ ò
.å÷ &ò
>å£ 5ò
På£ Gý
ef&`5äcä…ý
efäGcèÿÿÿ…ý
ef5ùäcèÿÿÿ…ý
efäGùcä…9 ÿÿÿÿÿÿÿÿ
PlaceAllObjects
0&lX¥
vMAll the defined objects get placed in cyberspace, with more distant objectscvgetting placed first.tå8¸MäM
>ÿÿâ
v<Find distances squared of objects' centers from ViewPoint: vTThere is no need to take the square root, because it's the distance order we want.M
k
Ö÷îäöM
y
æ÷îäö£M
‡
ö÷îäö£M
Èv Initialize object order array:MM
 MNÿÿ
v*Sort objects by their distances squared:v
Bubble sortsMäM
ä÷>ÿÿ Mä£M
>ÿÿøM
È 
ÈãIî M
È   
ÈM
È    
È M
 !  
 M
  !  
 8 Nÿÿ
MNÿÿ
MäM
>ÿÿJv>See if center of object is outside view pyramid by 500 CLUs:v1Objects completely out of view don't get drawn.rvHThis means that the biggest object in cyberspace cannot be bigger thanv1000 CLUs in any dimension. M
k
Ö÷ * M
y
æ÷ 2 M
‡
ö÷ : Q ^ ÷î * ðåô
¥m z ÷î 2 ðåô
¥£‰ – ÷î : ðåô
¥£ B ´ ^ ÷î * ðåô
¥Á z ÷î 2 ðåô
¥£Î – ÷î : ðåô
¥£ ¥ Ö^ ÷î * ðåè¥æz ÷î 2 ðå襣ö– ÷î : ðå襣 Û äùM
ê B åèÛ ÷îä¥ßI¢äM
ê 8B Û åè÷îä¥ãIÖäM
ê 8¥ åèÛ ÷îä¥ßI
äM
ê 8¥ Û åè÷îä¥ãI>äM
ê 8MNÿÿ
MäM
>ÿÿävErasev3Objects are explicitly erased for smooth drawing.wM
 
õ EØM
 äù$
MNÿÿ
MäM
>ÿÿXvPlaceM
 
ê E6M
 ä$
M
ê M
õ MNÿÿ
ä8¸9 ÿÿÿÿÿÿÿÿPPlaceObject
0”+-X

€
€
vCEach object is placed separately after erasing its old placement.nv<Cls is not used because that makes a flickering view port.OåôIˆv0(Placing objects, so calculate transformations:Mä
\


>ÿÿ€v%5Do it for each point in the object:nvUPoint is referenced to iLocationX, Y, Z of object center relative to the viewpoint:f
\
M!

Ÿ
ð
k
£Ö÷ * 
\
M-

Ÿ
ð
y
£æ÷ 2 
\
M9

Ÿ
ð
‡
£ö÷ : M *  2  : $E
MNÿÿ
8v-Each object is drawn depending on its type:
\
VÖä&å,&vWireframe CubeI²
v)Erase previous rendering of the object:
v.(doing CLS makes a jumpy flickering picture)äT
äãäT
äãõILä]
¨åô
ãäf
¨åô
ã¤îä]
¨åô
ãäf
¨åô
ã¤îõIH 8efä]
äf
`ä]
äf
bäʅ88äT
äãä T
äãõI&ä]
¨åô
ãäf
¨åô
ã¤îä ]
¨åô
ãä f
¨åô
ã¤îõI" 8efä]
äf
`ä ]
ä f
bäʅ88ä T
äãäT
äãõIä ]
¨åô
ãä f
¨åô
ã¤îä]
¨åô
ãäf
¨åô
ã¤îõIü 8efä ]
ä f
`ä]
äf
bäʅ88äT
äãäT
äãõIÚä]
¨åô
ãäf
¨åô
ã¤îä]
¨åô
ãäf
¨åô
ã¤îõIÖ 8efä]
äf
`ä]
äf
bäʅ88äT
äãäT
äãõI´ä]
¨åô
ãäf
¨åô
ã¤îä]
¨åô
ãäf
¨åô
ã¤îõI° 8efä]
äf
`ä]
äf
bäʅ88äT
äãäT
äãõIŽä]
¨åô
ãäf
¨åô
ã¤îä]
¨åô
ãäf
¨åô
ã¤îõIŠ 8efä]
äf
`ä]
äf
bäʅ88äT
äãä T
äãõIh ä]
¨åô
ãäf
¨åô
ã¤îä ]
¨åô
ãä f
¨åô
ã¤îõId 8efä]
äf
`ä ]
ä f
bäʅ88ä T
äãäT
äãõIB
ä ]
¨åô
ãä f
¨åô
ã¤îä]
¨åô
ãäf
¨åô
ã¤îõI>
8efä ]
ä f
`ä]
äf
bäʅ88äT
äãäT
äãõIä]
¨åô
ãäf
¨åô
ã¤îä]
¨åô
ãäf
¨åô
ã¤îõI 8efä]
äf
`ä]
äf
bäʅ88äT
äãäT
äãõIöä]
¨åô
ãäf
¨åô
ã¤îä]
¨åô
ãäf
¨åô
ã¤îõIò 8efä]
äf
`ä]
äf
bäʅ88ä T
äãäT
äãõIÐ ä ]
¨åô
ãä f
¨åô
ã¤îä]
¨åô
ãäf
¨åô
ã¤îõIÌ 8efä ]
ä f
`ä]
äf
bäʅ88äT
äãä T
äãõIª
ä]
¨åô
ãäf
¨åô
ã¤îä ]
¨åô
ãä f
¨åô
ã¤îõI¦
8efä]
äf
`ä ]
ä f
bäʅ882ðvDraw object:ä
o
äãä
o
äãõI€ä
v
¨åô
ãä
}
¨åô
ã¤îä
v
¨åô
ãä
}
¨åô
ã¤îõI| 8efä
v
ä
}
`ä
v
ä
}
b
•
ʅ88ä
o
äãä 
o
äãõI:ä
v
¨åô
ãä
}
¨åô
ã¤îä 
v
¨åô
ãä 
}
¨åô
ã¤îõI6 8efä
v
ä
}
`ä 
v
ä 
}
b
•
ʅ88ä 
o
äãä
o
äãõIôä 
v
¨åô
ãä 
}
¨åô
ã¤îä
v
¨åô
ãä
}
¨åô
ã¤îõIð 8efä 
v
ä 
}
`ä
v
ä
}
b
•
ʅ88ä
o
äãä
o
äãõI®ä
v
¨åô
ãä
}
¨åô
ã¤îä
v
¨åô
ãä
}
¨åô
ã¤îõIª 8efä
v
ä
}
`ä
v
ä
}
b
•
ʅ88ä
o
äãä
o
äãõIhä
v
¨åô
ãä
}
¨åô
ã¤îä
v
¨åô
ãä
}
¨åô
ã¤îõId 8efä
v
ä
}
`ä
v
ä
}
b
•
ʅ88ä
o
äãä
o
äãõI"ä
v
¨åô
ãä
}
¨åô
ã¤îä
v
¨åô
ãä
}
¨åô
ã¤îõI 8efä
v
ä
}
`ä
v
ä
}
b
•
ʅ88ä
o
äãä 
o
äãõIÜä
v
¨åô
ãä
}
¨åô
ã¤îä 
v
¨åô
ãä 
}
¨åô
ã¤îõIØ 8efä
v
ä
}
`ä 
v
ä 
}
b
•
ʅ88ä 
o
äãä
o
äãõI–ä 
v
¨åô
ãä 
}
¨åô
ã¤îä
v
¨åô
ãä
}
¨åô
ã¤îõI’ 8efä 
v
ä 
}
`ä
v
ä
}
b
•
ʅ88ä
o
äãä
o
äãõIPä
v
¨åô
ãä
}
¨åô
ã¤îä
v
¨åô
ãä
}
¨åô
ã¤îõIL 8efä
v
ä
}
`ä
v
ä
}
b
•
ʅ88ä
o
äãä
o
äãõI
ä
v
¨åô
ãä
}
¨åô
ã¤îä
v
¨åô
ãä
}
¨åô
ã¤îõI 8efä
v
ä
}
`ä
v
ä
}
b
•
ʅ88ä 
o
äãä
o
äãõIÄä 
v
¨åô
ãä 
}
¨åô
ã¤îä
v
¨åô
ãä
}
¨åô
ã¤îõIÀ 8efä 
v
ä 
}
`ä
v
ä
}
b
•
ʅ88ä
o
äãä 
o
äãõI~ä
v
¨åô
ãä
}
¨åô
ã¤îä 
v
¨åô
ãä 
}
¨åô
ã¤îõIz 8efä
v
ä
}
`ä 
v
ä 
}
b
•
ʅ88Mää >ÿÿèM
v
M]
M
}
Mf
M
o
MT
MNÿÿ
8å
å'å&v Filled QuadrilateralI´äT
„
äT
Š
ä T

äT
–
„
äãŠ
ä㤐
ä㤖
äã¤I¬ä]
¨ äf
¨ ›ä]
¨ •äf
¨ ¡ä ]
¨ œ
ä f
¨ ¢
ä]
¨ ¨
äf
¨ ®
åô
ã•åô
ãõœ
åô
ãõ¨
åô
ãõ›åô
ãõ¡åô
ãõ¢
åô
ãõ®
åô
ãõI¦ ä¾
´
 äÊ8Ê
äÊ8×
ä]
8ä
äf
8ð
ä 8ü
8ä
ä
´
å 8ð
ä
´
ê åè8  åèù8 åô
8& åô
ù82 ä]
8ä
äf
8ð
ä 8ü
8ä
ä
´
å 8ð
ä
´
ê åè8  åèù8 åô
8& åô
ù82 ä ]
8ä
ä f
8ð
ä 8ü
8ä
ä 
´
å 8ð
ä 
´
ê åè8  åèù8 åô
8& åô
ù82 ä]
8ä
äf
8ð
ä 8ü
8ä
ä
´
å 8ð
ä
´
ê 8efåõ
åõ
`’ 8Tä
´
äI ? åè8  åèù8 åô
8& åô
ù82882P"ä
o
„
ä
o
Š
ä 
o

ä
o
–
„
äãŠ
ä㤐
ä㤖
äã¤IJ"ä
v
¨ ä
}
¨ ›ä
v
¨ •ä
}
¨ ¡ä 
v
¨ œ
ä 
}
¨ ¢
ä
v
¨ ¨
ä
}
¨ ®
åô
ã•åô
ãõœ
åô
ãõ¨
åô
ãõ›åô
ãõ¡åô
ãõ¢
åô
ãõ®
åô
ãõID" ä¾
´
 
•
Ê8Ê
äÊ8×
ä
v
8ä
ä
}
8ð
ä 8ü
8ä
ä
´
å 8ð
ä
´
ê åè8  åèù8 åô
8& åô
ù82 ä
v
8ä
ä
}
8ð
ä 8ü
8ä
ä
´
å 8ð
ä
´
ê åè8  åèù8 åô
8& åô
ù82 ä 
v
8ä
ä 
}
8ð
ä 8ü
8ä
ä 
´
å 8ð
ä 
´
ê åè8  åèù8 åô
8& åô
ù82 ä
v
8ä
ä
}
8ð
ä 8ü
8ä
ä
´
å 8ð
ä
´
ê 8efåõ
åõ
`’ 8Tä
´
äI ? åè8  åèù8 åô
8& åô
ù82 Mää>ÿÿ<"(M
v
M]
(M
}
Mf
(M
o
MT
MNÿÿ
888åå'vFilled TriangleIÐ&äT
„
äT
Š
ä T

„
äãŠ
ä㤐
äã¤IÈ&ä]
¨ äf
¨ ›ä]
¨ •äf
¨ ¡ä ]
¨ œ
ä f
¨ ¢
åô
ã•åô
ãõœ
åô
ãõ›åô
ãõ¡åô
ãõ¢
åô
ãõIÂ& ä ¾
´
 äÊ8Ê
äÊ8×
ä]
8ä
äf
8ð
ä 8ü
8ä
ä
´
å 8ð
ä
´
ê åè8  åèù8 åô
8& åô
ù82 ä]
8ä
äf
8ð
ä 8ü
8ä
ä
´
å 8ð
ä
´
ê åè8  åèù8 åô
8& åô
ù82 ä ]
8ä
ä f
8ð
ä 8ü
8ä
ä 
´
å 8ð
ä 
´
ê 8efåõ
åõ
`’ 8Tä
´
ä I ? åè8  åèù8 åô
8& åô
ù82882L+ä
o
„
ä
o
Š
ä 
o

„
äãŠ
ä㤐
äã¤IF+ä
v
¨ ä
}
¨ ›ä
v
¨ •ä
}
¨ ¡ä 
v
¨ œ
ä 
}
¨ ¢
åô
ã•åô
ãõœ
åô
ãõ›åô
ãõ¡åô
ãõ¢
åô
ãõI@+ ä ¾
´
 
•
Ê8Ê
äÊ8×
ä
v
8ä
ä
}
8ð
ä 8ü
8ä
ä
´
å 8ð
ä
´
ê åè8  åèù8 åô
8& åô
ù82 ä
v
8ä
ä
}
8ð
ä 8ü
8ä
ä
´
å 8ð
ä
´
ê åè8  åèù8 åô
8& åô
ù82 ä 
v
8ä
ä 
}
8ð
ä 8ü
8ä
ä 
´
å 8ð
ä 
´
ê 8efåõ
åõ
`’ 8Tä
´
ä I ? åè8  åèù8 åô
8& åô
ù82 Mää >ÿÿ8+(M
v
M]
(M
}
Mf
(M
o
MT
MNÿÿ
888å)&å*&å+&v*Pointalist objectsI,Mä
\


>ÿÿ,MT
äãI, 8efM]
Mf
`äʓ8MNÿÿ
2â,Mä
\


>ÿÿÜ,M
o
äãI„, 8efM
v
M
}
`
•
ʓ8M
v
M]
M
}
Mf
M
o
MT
MNÿÿ
8:~+û=-ÿÿåSû9 n+ÿÿÿÿÿÿÛ
MapToWindow
0JX&E

[
åêWv6Transform object point in World Space to View Space.vCall GEO.DLL subroutine:åèåèåêWÖæö^ z – Q m ‰ ´ Á Î ºÄÎ$gv9Transform object point in View 3Space to Window 2Space:ÎäñI’
ºùåèðÎ¥ ºÄùåèðÎ¥ Ä2ºùåèðå0uð ºv)Can't divide by zero sooÄùåèðå0uð Äv)do the next best thing8v0Convert mapped points to integers for drawing:ºå0uâºå0uùÞ¤Izº«[
v
2–å0uºÑð[
v
8Äå0uâÄå0uùÞ¤IÒÄ«[
}
2îå0uÄÑð[
}
8Îå0uâÎå0uùÞ¤I*Ϋ[
o
2Få0uÎÑð[
o
89 ÿÿÿÿÿÿÿÿ#SpinCube
0$LX
vAThere is a blue rotating wireframe cube orbiting in cyberspace.ov0The cube's angle of rotation is its SpinAngle.vRThe cube orbits around the cyberspace origin (0, 0, 0) at a radius of 3000 CLUs.v5The cube's position in its orbit is its OrbitAngle.C
6



F


*vSpin and orbit the cube:8MXä¦1Hä£ *ä£ *åh
¦E¶
ä *åh
¦EÌ
ä **å´÷î§ðå´¥  å´÷î§ðå´¥ ! Mää >ÿÿ$äM!
åäM-
êäM9
WääääääåêW $
ð
å«å,M!
ê«å,M-
W«å,M9
å¸ ! ®ða
k
å¸ ! Òða
‡
MNÿÿ
$¥
À ¹Jj
9 ÿÿÿÿÿÿÿÿ-ý