Category : BASIC Source Code
Archive   : GEODEM.ZIP
Filename : CSC5.BAS
þk 5; af~ ¡ ø |.k kÍ q ÿü
>Nå Ö À.ï Z 'y k
CircInterSect} a1w a2Ä b1» b2A r1Þ r2 x19x2± y1§ y2 Sigma1 Sigma2k PartA PartBc PartCê PlaneRotate6X³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ð zcW yc¹ o14 o2c o3À r3¢ q1h q2r q3b SolidRotater Center ofv Rotation@ TempXÛ TempY[ TempZÎ RotateÞ
coordinateê aboutºZI ini the¿ Plane} sfAlpha
TempXprimeè
TempYprime¬ Alpha$ Radius Theta0Ø Theta1Ê TempX0Ô TempY0° TempZ0A Temp0X÷ TempX0prime TempY0prime TempX1prime¨ TempY1primeO TempZ1 Theta13 FineÑ tiltò BeY TempX1 TempY1 rå TempX2Ñ TempX3 TrashR q11Ä byJ DivisorÇ ByValp1î pdý Printed*np8 LenPy UnitP1M UnitP2¯ UnitP3ý debubj TempXoPrime
TempX0prime2 TempY0prime2- TempX1prime2= TempY1prime2Æ TempZ0prime2i` PitchA find§ newM
TempZ0prime 2 PointTransForm¥ IstarDot endsubsfPi LetterA)PxStarPyStarPzStaré
LetterAfbXoldú
LetterAfbYoldL
LetterAfbZoldÕ
iErase»ObjNum? ViewPicU
iColor4BitXView. LetterB[ LetterBXoldj LetterBYold LetterBZold LetterC LetterDæ LetterE¥ LetterFý
LetterGv
LetterH LetterI\
LetterJ;
LetterK LetterL LetterM LetterN¸
LetterOP LetterP
LetterQE
LetterR LetterSk
LetterTy
LetterU
LetterV LetterWÈ LetterX
LetterY* LetterZ LetterCXold LetterCYold® LetterCZold½ LetterDXoldÌ LetterDYoldÛ LetterDZoldê LetterEXoldù LetterEYold LetterEZold LetterFXold& LetterFYold5 LetterFZoldD LetterGXoldS LetterGYoldb LetterGZolds
LetterIfbXold
LetterIfbYold
LetterIfbZold¤ LetterJXold³ LetterJYold LetterJZoldÑ LetterKXoldà LetterKYoldï LetterKZoldþ LetterLXold
LetterLYold LetterLZold+ LetterMXold: LetterMYoldI LetterMZoldX LetterNXoldg LetterNYoldv LetterNZold 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ò
LetterXZoldG CrossWordCubesÈ
iNumObjects! iObjectType
iLocationX©
iLocationYd
iLocationZ iColor5sfSize9
iPuzzleMode& iCurrentCell iNumCellsß
iLevelZ@BorderBoxRaisedÖSource1T
Source2!
drawwidth»Bleft LeftBTop
top¸BWideõ width BHighÞ heightl CoSine-
Sine
@BorderBoxRecessed
BoxEraseÊ
@PicBorderBoxRecessedö@PlaceAllObjects mousepointer:
sfDSquaredQ sfViewPointXm sfViewPointY sfViewPointZB iObjOrder¢
j}
Temp1o
Temp2|NewX[NewYINewZ¥ CenterXstar^ sfRPointX´ sfWinPointXz sfRPointYÁ sfWinPointY sfRPointZÎ sfWinPointZÛ CenterYstarf
sfSPointX]
sfSPointYð
sfSPointZ
CenterZstar7iInView¾
iInViewPrev
@PlaceObject
iNumPoints iObjectX iObjectY iObjectZ×
@MapToWindow
PzOld¨
PxOld®
PyOld?iPz iPx&iPy
Z1 Z2 Z3ä
Z4 x3 y3´
x4 y4 Points PointAPI FillColor ForeColorå currentxT currenty ScaleModeÉ
ScaleWidth2 ScaleHeightv ScaleTop² scaleleft Resultg Polygon hDCXPointNum ThreeDXForm WW WD© ViewPX ViewPY ViewPZ WinPX WinPY WinPZ× RPXÐ RPY RPZM SPXB SPYû SPZ PlaceObjectHandler PlaceObjectResume*@SpinCube
OrbitAngle SpinAnglea Startup visible SCCheck value iSCNum v 3D CyberSpace viewer from... v Ivory Tower Software v Richard Wagner v CIS 76427,2611 v &