'***************************************************

'***     The Anaglyph R/B 3D Generate Program    ***

'***         Written By: C.S. Liu ,1995          ***

'***         (Used Quick_BASIC Ver.4.5)          ***

 [HTML edition]

'***************************************************

SCREEN 12: CLS

WINDOW (0, 0)-(639, 479)

LINE (0, 0)-(639, 479), 0, BF

    K = 3.1415926535# / 180

    CX = 250

    CY = 240

       RHO = 100

       D = 1500

       PHI = 60

       THETA = 45

       EA = 3

 FOR EYE = 1 TO 2

       THETA = THETA + (EYE - 1) * EA

       S1 = SIN(THETA * K):

       C1 = COS(THETA * K)

       S2 = SIN(PHI * K):

       C2 = COS(PHI * K)

       IF EYE = 1 THEN C = 4

       IF EYE = 2 THEN C = 3

     DO

     READ OP$:

      IF OP$ = "Q" THEN EXIT DO

      READ X, Y, Z

         XE = -X * S1 + Y * C1

         YE = -X * C1 * C2 - Y * S1 * C2 + Z * S2

         ZE = -X * S2 * C1 - Y * S2 * S1 - Z * C2 + RHO

         SX = CX + D * XE / ZE

         SY = CY + D * YE / ZE

         IF OP$ = "M" THEN PSET (SX, SY), C

         IF OP$ = "L" THEN LINE -(SX, SY), C

     LOOP

     RESTORE

 NEXT EYE

 Q$ = INPUT$(1)

 END

 DATA M,0,0,0

 DATA L,0,0,10

 DATA L,10,0,10

 DATA L,10,0,0

 DATA L,0,0,0

 DATA L,0,20,0

 DATA L,0,10,5

 DATA L,0,10,10

 DATA L,10,10,10

 DATA L,10,10,5

 DATA L,0,10,5

 DATA M,10,10,5

 DATA L,10,20,0

 DATA M,10,0,0

 DATA L,10,20,0

 DATA L,0,20,0

 DATA M,0,0,10

 DATA L,0,10,10

 DATA M,10,0,10

 DATA L,10,10,10

 DATA Q

                             ¢w ¢¯¢³ ¢w