** ПBJ3D TEST CODE** УМК 4/99* ПТЗ $1000ПBJГШ = 0ПBJГЩ = 2ПBJГЪ = 4ПBJДATA = 6ПBJЙД = 8ПBJХSER = 9ПBГENРOS = 10ПBJГШТEM = 11ПBJГЩТEM = 12ПBJГЪТEM = 13ПBJНAT = 14ПBJУIZE = 32а;32 BYTES TOTALа;КUMP TABLEЙNIT3Д = $5000а;ЙNITIALIZE LIB3DБDDПBJ = ЙNIT3Д+3а;БDD OBJECT TO OBJECT LISTДELПBJ = БDDПBJ+3а;ДELETE OBJECT FROM LISTУETГURПB = ДELПBJ+3а;УET CURRENT OBJECTЗETГURПB = УETГURПB+3а;ЗET CURRENT OBJECTЗETОEXTПB = ЗETГURПB+3а;ЗET NEXT OBJECT IN LISTЗETПBJ = ЗETОEXTПB+3а;ЗET POINTER TO OBJECTУETНAT = ЗETПBJ+3а;ГALCULATE AND SET OBJECT MATRIXРITCH = УETНAT+3а;РITCH - ROTATE OBJECT AROUND X-AXISЩAW = РITCH+3а;ЩAW - ROTATE AROUND Y-AXISТOLL = ЩAW+3а;ТOLL - ROTATE AROUND Z-AXISНOVEУIDE = ТOLL+3а;НOVE OBJECTНOVEХP = НOVEУIDE+3НOVEЖORWARDS = НOVEХP+3ЗETУIDEЦEC = НOVEЖORWARDS+3а;ПRIENTATION VECTORSЗETХPЦEC = ЗETУIDEЦEC+3а;(LENGTH=64)ЗETЖRONTЦEC = ЗETХPЦEC+3УETРARMS = ЗETЖRONTЦEC+3а;УET RENDERING PARAMETERSУETЦISРARMS = УETРARMS+3а;УET VISIBILITY PARAMETERSГALCЦIEW = УETЦISРARMS+3а;УET VIEWPOINT = OBJECTУORTЦIS = ГALCЦIEW+3а;ГOMPUTE AND SORT VISIBLE OBJECTSДRAWБLLЦIS = УORTЦIS+3а;ДRAW ALL VISIBLE OBJECTSДRAWОEXTЦIS = ДRAWБLLЦIS+3а;ДRAW NEXT OBJESIBLE OBJECT LISTТOTДRAW = ДRAWОEXTЦIS+3а;ТOTATE AND DRAW OBJECTДRAWЖACE = ТOTДRAW+3;ДRAW SINGLE FACE (POLYGON)* LIB3D STUFFГБМГНБФ equ $8800БГГТПФШ equ $8803БГГТПФЩ equ $8806БГГТПФЪ equ $8809ЗМПВТПФ equ $880cТПФРТПК equ $880fРПМЩЖЙММ equ $8812РМПФ ЕСХ $8815ДТБЧМЙОЕ ЕСХ $8818ЦЕТУЙПО ЕСХ $881ВРС equ $0200а;pOINT QUEUE*===============================TEMP = $58а;TWO BYTESPOINT = $5Aа;TWO BYTESШ1 = $60а;МINE X-COORDЩ1 = $62Ш2 = $64Щ2 = $66** ФEST CODE** ОICE PAIR OF TETS*ПВУ = $0800а;ПBJECT RECORDSЗЕФЙО = $ЖЖЕ4ФESTГODE МДБ $Д011 ПТБ #$20а;ВITMAP MODE УФБ $Д011 МДБ #$08а;ВITMAP -> $6000 УФБ $Д018 МДБ $ДД00 БОД #$Ж8 ПТБ #$02а;ВANK 1 УФБ $ДД00 МДБ #$80 УФБ $028Ба;БLL KEYS REPEAT КУТ ЦЕТУЙПОа;ЙF MULTICOLOR... ВРМ :HIRES МДБ $Д016 ПТБ #$10 УФБ $Д016:HIRES КУТ ГLRГOLНAP МДБ #<ПВУа;ПBJECT RECORDS МДЩ #>ПВУ КУТ ЙNIT3Д МДБ #<ФЕФДБФа;ПBJECT DATA МДЩ #>ФЕФДБФ МДШ #01а;ЙД КУТ БDDПBJ УФШ ЦПВа;ЦIEW OBJECT МДБ #<УФБТДБФ МДЩ #>УФБТДБФ МДШ #02 КУТ БDDПBJ УФШ ТПВа;ТOTATE OBJECT УФБ РПЙОФа;ПBJECT POINTER УФЩ РПЙОФ+1 МДЩ #5а;УET CENTER:L1 МДБ ПГЕО,Щ УФБ (РПЙОФ),Щ ДЕЩ ВРМ :L1:SEC УЕГа;УOLID POLYGONS:SETP МДШ #$60а;ВITMAP AT $6000 МДБ #<РБФУа;РATTERN TABLE МДЩ #>РБФУ КУТ УETРARMS:LOOP КУТ ГLRВITMAP МДШ ЦПВа;ГALCULATE VIEW КУТ ГALCЦIEW КУТ УORTЦISа;УORT OBJECTS КУТ ДRAWБLLЦISа;ДRAW OBJECTS МДШ ТПВа;УET ROTATION OBJECT КУТ УETГURПB:WAIT КУТ ЗЕФЙО ВЕС :WAIT ГНР #'A' ВЕС :PITCHDN ГНР #'Z' ВЕС :PITCHUP ГНР #'Q' ВЕС :ROLLL ГНР #'W' ВЕС :ROLLR ГНР #'S' ВЕС :YAWL ГНР #'D' ВЕС :YAWR ГНР #'@' ВЕС :MOVF ГНР #'/' ВЕС :MOVB ГНР #'=' ВЕС :WIRE ГНР #'*' ВЕС :SEC ГНР #' ' ВОЕ :WAIT МДШ ЦПВа;УWAP VIEWPOINT КУТ УETГURПB КУТ ЗETОEXTПB УФШ ЦПВ КНР :LOOP:WIRE ГМГ ВГГ :SETP:YAWR ГМГ ДЖВ $24:YAWL УЕГ КУТ ЩAW КНР :LOOP:PITCHDN ГМГ ДЖВ $24:PITCHUP УЕГ КУТ РITCH КНР :LOOP:ROLLL ГМГ ДЖВ $24:ROLLR УЕГ КУТ ТOLL КНР :LOOP:MOVF МДБ #$07 ДЖВ $2Г:MOVB МДБ #$Ж9 КУТ НOVEЖORWARDS КНР :LOOPГLRВITMAP МДЩ #00 ФЩБ:LOOP УФБ $6000,Щ УФБ $6100,Щ УФБ $6200,Щ УФБ $6300,Щ УФБ $6400,Щ УФБ $6500,Щ УФБ $6600,Щ УФБ $6700,Щ УФБ $6800,Щ УФБ $6900,Щ УФБ $6Б00,Щ УФБ $6В00,Щ УФБ $6Г00,Щ УФБ $6Д00,Щ УФБ $6Е00,Щ УФБ $6Ж00,Щ УФБ $7000,Щ УФБ $7100,Щ УФБ $7200,Щ УФБ $7300,Щ УФБ $7400,Щ УФБ $7500,Щ УФБ $7600,Щ УФБ $7700,Щ УФБ $7800,Щ УФБ $7900,Щ УФБ $7Б00,Щ УФБ $7В00,Щ УФБ $7Г00,Щ УФБ $7Д00,Щ УФБ $7Е00,Щ УФБ $7Ж00,Щ ЙОЩ ВОЕ :LOOP ТФУГLRГOLНAPа;ПNLY NEED TO CALL ONCE МДШ #00 МДБ #$12:LOOP УФБ $4000,Ш УФБ $4100,Ш УФБ $4200,Ш УФБ $4300,Ш ЙОШ ВОЕ :LOOP КУТ ЦЕТУЙПО ВРМ :RTS МДБ #00а;НULTICOLOR MODE УФБ $Д020 УФБ $Д021 МДБ #14:L2 УФБ $Д800,Ш УФБ $Д900,Ш УФБ $ДБ00,Ш УФБ $ДВ00,Ш ЙОШ ВОЕ :L2:RTS ТФУЦПВ ДЖВ 00а;ЦIEW OBJECTТПВ ДЖВ 00а;2ND OBJECTПГЕО ДБ 00а;Ш-COORD ДБ 00а;Щ-COORD ДБ $0100а;Ъ-COORDРБФУа;РATTERN TABLEУПМЙД = 0 ИЕШ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖДЙФИЕТ1 = 1 ИЕШ 55ББ55ББ55ББ55ББДЙФИЕТ2 = 2 ИЕШ ББ55ББ55ББ55ББ55ЪЙЗУ = 3 ИЕШ ЕЕДДВВ77ЕЕДДВВ77ЪБЗУ = 4 ИЕШ 77ВВДДЕЕ77ВВДДЕЕЪЙЗЪБЗ = 5 hex ВВ55ЕЕЖЖВВ55ЕЕЖЖГТПУУУН = 6 ИЕШ 55ЕЕ55ВВ55ЕЕ55ВВВТЙГЛ = 7 ИЕШ 00ЕЕЕЕЕЕ00ВВВВВВУСХБТЕУ = 8 ИЕШ ЖЖББЖЖББЖЖББЖЖББЙОЦУС = 9 ИЕШ 0055005500550055ИПМЕУ = 10 ИЕШ ВД7ЕЕ7ДВДВЕ77ЕВДИУФТЙРЕУ = 11 ИЕШ ЖЖ00ЖЖ00ЖЖ00ЖЖ00ЦУФТЙРЕУ = 12 ИЕШ ББББББББББББББББ** tEST OBJECT 1: SIMPLE TETRAHEDRON*ФЕФДБФ ДЖВ 0а;ОORMAL OBJECT ДЖВ 4а;ОUMBER OF POINTS ДЖВ 4а;ОUMBER OF FACES* РOINT LISTФЕФШ ДЖВ 45,45,0-45,0-45tety ДЖВ 45,0-45,45,0-45tetz ДЖВ 45,0-45,0-45,45* ЖACE LISTЖБГЕ1 ДЖВ 3а;ОUMBER OF VERTICES ДЖВ УПМЙДа;ЖILL PATTERN ДЖВ 0,1,2,0а;ЦERTICESЖБГЕ2 ДЖВ 3 ДЖВ ЪЙЗУ ДЖВ 3,2,1,3ЖБГЕ3 ДЖВ 3 ДЖВ ГТПУУУН ДЖВ 3,0,2,3ЖБГЕ4 ДЖВ 3 ДЖВ ИПМЕУ ДЖВ 3,1,0,3** ФEST OBJECT 2: A COMPOUND OBJECT,* SPACESHIP-KIND OF THING (ESSENTIALLY* COOL WORLD STARS)*УФБТДБФ ДЖВ $80а;ГOMPOUND OBJECT ДЖВ 14а;ОUMBER OF POINTS ДЖВ 6а;ОUMBER OF OBLETS* РOINT LIST ДЖВ 50,0-50,0,0,0,0,15,15,15,15,0-15,0-15,0-15,0-15 ДЖВ 0,0,16,0-26,0,0,10,10,0-10,0-10,10,10,0-10,0-10 ДЖВ 0,0,0,0,94,0-22,15,0-15,0-15,15,15,0-15,0-15,15* ПBLET LIST: REFERENCE POINTS ДЖВ 0а;ЖIRST 6 POINTS ДЖВ 1 ДЖВ 2 ДЖВ 3 ДЖВ 4 ДЖВ 5* ПBLET 1 ДЖВ 26а;26 BYTES ДЖВ 4а;4 FACES* FACES ДЖВ 3а;4 POINTS ДЖВ УПМЙДа;PATTERN dfb 0,8,7,0а;sTAR 2, tINE 0, FACE 1 ДЖВ 3 ДЖВ ЪЙЗУ ДЖВ 0,7,6,0 ДЖВ 3 ДЖВ ЪБЗУ ДЖВ 0,6,9,0 ДЖВ 3 ДЖВ ДЙФИЕТ1 ДЖВ 0,9,8,0* ПBLET 2 ДЖВ 26а;26 BYTES ДЖВ 4а;4 FACES ДЖВ 3а;4 POINTS ДЖВ ЪЙЗУ ДЖВ 1,11,12,1 ДЖВ 3 ДЖВ ВТЙГЛ ДЖВ 1,12,13,1 ДЖВ 3 ДЖВ ДЙФИЕТ2 ДЖВ 1,13,10,1 ДЖВ 3 ДЖВ ЪБЗУ ДЖВ 1,10,11,1* ПBLET 3 ДЖВ 26а;26 BYTES ДЖВ 4а;4 FACES ДЖВ 3 ДЖВ УСХБТЕУ ДЖВ 2,7,11,2 ДЖВ 3 ДЖВ ЙОЦУС ДЖВ 2,6,7,2 ДЖВ 3 ДЖВ ДЙФИЕТ1 ДЖВ 2,10,6,2 ДЖВ 3 ДЖВ ДЙФИЕТ2 ДЖВ 2,11,10,2* ПBLET 4 ДЖВ 26 ДЖВ 4 ДЖВ 3 ДЖВ ГТПУУУН ДЖВ 3,12,8,3 ДЖВ 3 ДЖВ ИПМЕУ ДЖВ 3,8,9,3 ДЖВ 3 ДЖВ ЦУФТЙРЕУ ДЖВ 3,9,13,3 ДЖВ 3 ДЖВ УПМЙД ДЖВ 3,13,12,3* ПBLET 5 ДЖВ 26а;26 BYTES ДЖВ 4а;4 FACES ДЖВ 3 ДЖВ ДЙФИЕТ1 ДЖВ 4,9,6,4 ДЖВ 3 ДЖВ УПМЙД ДЖВ 4,6,10,4 ДЖВ 3 ДЖВ ДЙФИЕТ2 ДЖВ 4,10,13,4 ДЖВ 3 ДЖВ ИУФТЙРЕУ ДЖВ 4,13,9,4* ПBLET 6 ДЖВ 26а;26 BYTES ДЖВ 4а;4 FACES ДЖВ 3 ДЖВ ЪЙЗЪБЗ ДЖВ 5,8,12,5 ДЖВ 3 ДЖВ ИУФТЙРЕУ ДЖВ 5,12,11,5 ДЖВ 3 ДЖВ ЦУФТЙРЕУ ДЖВ 5,11,7,5 ДЖВ 3 ДЖВ ДЙФИЕТ2 ДЖВ 5,7,8,5