open FDDE 3DS 1 ; log MEMORY_FILE1 0 0 ; log MEMORY_FILE2 0 0 ; log MEMORY_FILE3 0 0 ; log MEMORY_FILE4 0 0 ; log MEMORY_FILE5 0 0 ; GoTo 0 0 ; Math count = 0 ; Math gt = 0 ; Math gtf = 0 ; Math Qprime = 0 ; Math Qprimet = 0 ; Math red = 0 ; SavePos found 0 ; Get QT ASIZE 0 ; For T = 0 < QT ; GoTo found 0 ; findloc OFFSET string "\x00\x00\x00\x05\x05\x01\x00\x01\x00\x80" 0 0 ; If OFFSET = 0 ; Math t = QT ; Math twotest = 1 ; EndIF ; If OFFSET != 0 ; GoTo OFFSET 0 ; GoTo 10 0 SEEK_CUR ; Get onetest Byte 0 ; Get twotest Byte 0 ; SavePos found 0 ; EndIF ; If twotest = 104 ; Put count Long MEMORY_FILE1 ; Math count += onetest ; Math foxcount = count ; Math foxcount -= 1 ; Put foxcount Long MEMORY_FILE1 ; Put onetest Long MEMORY_FILE1 ; Put found Long MEMORY_FILE1 ; EndIF ; Next T ; Get mcat ASIZE MEMORY_FILE1 ; Math mcat /= 16 ; Math countt = 0 ; GoTo 0 0 ; SavePos foundt 0 ; For qs = 0 < mcat ; GoTo foundt 0 ; findloc OFFSETT string "\x00\x00\x00\x05\x05\x01\x00\x01\x01\x80" 0 0 ; If OFFSETT = 0 ; Math t = QT ; Math twotestt = 1 ; EndIF ; If OFFSETT != 0 ; GoTo OFFSETT 0 ; GoTo 10 0 SEEK_CUR ; Get onetestt Byte 0 ; Get twotestt Byte 0 ; SavePos foundt 0 ; EndIF ; If twotestt = 100 ; Put countt Long MEMORY_FILE4 ; Math countt += onetestt ; Math foxcountt = countt ; Math foxcountt -= 1 ; Put foxcountt Long MEMORY_FILE4 ; Put onetestt Long MEMORY_FILE4 ; Put foundt Long MEMORY_FILE4 ; EndIF ; Next qs ; Get mqat ASIZE MEMORY_FILE4 ; Math mqat /= 16 ; For jjjt = 1 To mqat ; GoTo gtf MEMORY_FILE4 ; Get min long MEMORY_FILE4 ; Get max long MEMORY_FILE4 ; Get nuv long MEMORY_FILE4 ; Get loc long MEMORY_FILE4 ; SavePos gtf MEMORY_FILE4 ; GoTo loc 0 ; SavePos werefoxt 0 ; For cvb = 1 To nuv ; GoTo werefoxt 0 ; Get Type1 Long 0 ; Get Type2 Long 0 ; SavePos werefoxt 0 ; GoTo Qprimet MEMORY_FILE5 ; Put Type1 Long MEMORY_FILE5 ; Put Type2 Long MEMORY_FILE5 ; SavePos Qprimet MEMORY_FILE5 ; Next cvb ; Next jjjt ; Get mqa ASIZE MEMORY_FILE1 ; Math mqa /= 16 ; For jjj = 1 To mqa ; GoTo gt MEMORY_FILE1 ; Get min long MEMORY_FILE1 ; Get max long MEMORY_FILE1 ; Get nuv long MEMORY_FILE1 ; Get loc long MEMORY_FILE1 ; SavePos gt MEMORY_FILE1 ; GoTo loc 0 ; SavePos werefox 0 ; For cvb = 1 To nuv ; GoTo werefox 0 ; Get Type1 Long 0 ; Get Type2 Long 0 ; Get Type3 Long 0 ; SavePos werefox 0 ; GoTo Qprime MEMORY_FILE2 ; Put Type1 Long MEMORY_FILE2 ; Put Type2 Long MEMORY_FILE2 ; Put Type3 Long MEMORY_FILE2 ; SavePos Qprime MEMORY_FILE2 ; Next cvb ; Math maxa = max ; Math maxa -= 2 ; Math uuvv = 1536 For fff = min To maxa ; Math fafter = fff ; Math fafter += 1 ; Math fafterafter = fff ; Math fafterafter += 2 ; GoTo red MEMORY_FILE3 ; Put fff Short MEMORY_FILE3 ; Put fafter Short MEMORY_FILE3 ; Put fafterafter Short MEMORY_FILE3 ; Put uuvv Short MEMORY_FILE3 ; Put fff Short MEMORY_FILE3 ; Put fafterafter Short MEMORY_FILE3 ; Put fafter Short MEMORY_FILE3 ; Put 0 Short MEMORY_FILE3 ; Put fafter Short MEMORY_FILE3 ; Put fff Short MEMORY_FILE3 ; Put fafterafter Short MEMORY_FILE3 ; Put uuvv Short MEMORY_FILE3 ; Put fafter Short MEMORY_FILE3 ; Put fafterafter Short MEMORY_FILE3 ; Put fff Short MEMORY_FILE3 ; Put 0 Short MEMORY_FILE3 ; Put fafterafter Short MEMORY_FILE3 ; Put fafter Short MEMORY_FILE3 ; Put fff Short MEMORY_FILE3 ; Put uuvv Short MEMORY_FILE3 ; Put fafterafter Short MEMORY_FILE3 ; Put fff Short MEMORY_FILE3 ; Put fafter Short MEMORY_FILE3 ; Put 0 Short MEMORY_FILE3 ; SavePos red MEMORY_FILE3 ; Next fff ; Next jjj ; Get Zw3 ASIZE MEMORY_FILE3 ; Math Zf3 = Zw3 ; Math Zf3 /= 8 ; Get Zw2 ASIZE MEMORY_FILE2 ; Math Zf2 = Zw2 ; Math Zf2 /= 12 ; Math facenumber = Zf3 ; Math vertexnumber = Zf2 ; Math v20 = vertexnumber ; Math v20 *= 20 ; Math f10 = facenumber ; Math f10 *= 10 ; Math v12 = vertexnumber ; Math v12 *= 12 ; Math f2 = facenumber ; Math f2 *= 2 ; Math f8 = facenumber ; Math f8 *= 8 ; Math v8 = vertexnumber ; Math v8 *= 8 ; Math v20f10c663 = v20 ; Math v20f10c663 += f10 ; Math v20f10c663 += 663 ; Math v20f10c423 = v20 ; Math v20f10c423 += f10 ; Math v20f10c423 += 423 ; Math v20f10c172 = v20 ; Math v20f10c172 += f10 ; Math v20f10c172 += 172 ; Math v20f10c159 = v20 ; Math v20f10c159 += f10 ; Math v20f10c159 += 159 ; Math v12f0c8 = v12 ; Math v12f0c8 += 0 ; Math v12f0c8 += 8 ; Math v8f0c8 = v8 ; Math v8f0c8 += 0 ; Math v8f0c8 += 8 ; Math v0f0cx12a = 0 ; Math v0f0cx12a += 0 ; Math v0f0cx12a += 0x12a ; Math v12f0cx132 = v12 ; Math v12f0cx132 += 0 ; Math v12f0cx132 += 0x132 ; Math v0f10c83 = 0 ; Math v0f10c83 += f10 ; Math v0f10c83 += 83 ; Math v20f0cx170 = v20 ; Math v20f0cx170 += 0 ; Math v20f0cx170 += 0x170 ; Math v0f2c21 = 0 ; Math v0f2c21 += f2 ; Math v0f2c21 += 21 ; Math v20f8cx185 = v20 ; Math v20f8cx185 += f8 ; Math v20f8cx185 += 0x185 ; Math uvstart = 0 ; Math vertexstart = 0 ; Math facestart = 0 ; Set M Binary "\x4d\x4d" ; PutDString M 2 1 ; Put v20f10c663 Long 1 ; Set M Binary "\x02\x00\x0a\x00\x00\x00\x03\x00\x00\x00\x3d\x3d" ; PutDString M 12 1 ; Put v20f10c423 Long 1 ; Set M Binary "\x33\x3d\x0a\x00\x00\x00\x03\x00\x00\x00\xff\xaf\xe5\x00\x00\x00\x00\xa0\x13\x00\x00\x00\x30\x31\x20\x2d\x20\x44\x65\x66\x61\x75\x6c\x74\x00\x10\xA0\x0f\x00\x00\x00\x11\x00\x09\x00\x00\x00\x96\x96\x96\x20\xA0\x0f\x00\x00\x00\x11\x00\x09\x00\x00\x00\x96\x96\x96\x30\xA0\x0f\x00\x00\x00\x11\x00\x09\x00\x00\x00\xe5\xe5\xe5\x40\xA0\x0E\x00\x00\x00\x30\x00\x08\x00\x00\x00\x0A\x00\x41\xA0\x0E\x00\x00\x00\x30\x00\x08\x00\x00\x00\x00\x00\x50\xA0\x0E\x00\x00\x00\x30\x00\x08\x00\x00\x00\x00\x00\x52\xA0\x0E\x00\x00\x00\x30\x00\x08\x00\x00\x00\x00\x00\x53\xA0\x0E\x00\x00\x00\x30\x00\x08\x00\x00\x00\x00\x00\x00\xA1\x08\x00\x00\x00\x03\x00\x84\xA0\x0E\x00\x00\x00\x30\x00\x08\x00\x00\x00\x00\x00\x8A\xA0\x06\x00\x00\x00\x87\xA0\x0A\x00\x00\x00\x00\x00\x80\x3F\x00\xA2\x33\x00\x00\x00\x30\x00\x08\x00\x00\x00\x64\x00\x00\xA3\x13\x00\x00\x00\x53\x4B\x59\x52\x49\x4D\x2D\x57\x2E\x42\x4D\x50\x00\x51\xA3\x08\x00\x00\x00\x00\x00\x53\xA3\x0A\x00\x00\x00\x00\x00\x00\x00\x00\x01\x0A\x00\x00\x00\x00\x00\x80\x3F\x00\x40" ; PutDString M 251 1 ; Put v20f10c663 Long 1 ; Set M Binary "\x42\x6F\x78\x30\x30\x31\x00\x00\x41" ; PutDString M 9 1 ; Put v20f10c159 Long 1 ; Set M Binary "\x10\x41" ; PutDString M 2 1 ; Put v12f0c8 Long 1 ; Put vertexnumber Short 1 ; For vwolf = 0 < vertexnumber ; GoTo vertexstart MEMORY_FILE2 ; Get Type1 Long MEMORY_FILE2 ; Get Type2 Long MEMORY_FILE2 ; Get Type3 Long MEMORY_FILE2 ; SavePos vertexstart MEMORY_FILE2 ; GoTo v0f0cx12a 1 ; Put Type1 Long 1 ; Put Type2 Long 1 ; Put Type3 Long 1 ; SavePos v0f0cx12a 1 ; Next vwolf ; Set M Binary "\x40\x41" ; PutDString M 2 1 ; Put v8f0c8 Long 1 ; Put vertexnumber Short 1 ; For uvwolf = 0 < vertexnumber ; GoTo uvstart MEMORY_FILE5 ; Get Type1 Long MEMORY_FILE5 ; Get Type2 Long MEMORY_FILE5 ; SavePos uvstart MEMORY_FILE5 ; GoTo v12f0cx132 1 ; Put Type1 Long 1 ; Put Type2 Long 1 ; SavePos v12f0cx132 1 ; Next uvwolf ; Set M Binary "\x60\x41\x36\x00\x00\x00\x00\x00\x80\x3f\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x3F\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x3F\x80\xCD\x4B\x40\x20\x27\x4E\x40\x00\x00\x00\x00\x20\x41" ; PutDString M 56 1 ; Put v0f10c83 Long 1 ; Put facenumber Short 1 ; For fwolf = 0 < facenumber ; GoTo facestart MEMORY_FILE3 ; Get Type1 short MEMORY_FILE3 ; Get Type2 short MEMORY_FILE3 ; Get Type3 short MEMORY_FILE3 ; Get Type4 short MEMORY_FILE3 ; SavePos facestart MEMORY_FILE3 ; GoTo v20f0cx170 1 ; Put Type1 short 1 ; Put Type2 short 1 ; Put Type3 short 1 ; Put Type4 short 1 ; SavePos v20f0cx170 1 ; Next fwolf ; Set M Binary "\x30\x41" ; PutDString M 2 1 ; Put v0f2c21 Long 1 ; Set M Binary "\x30\x31\x20\x2D\x20\x44\x65\x66\x61\x75\x6C\x74\x00" ; PutDString M 13 1 ; Put facenumber Short 1 ; For fcwolf = 0 < facenumber ; GoTo v20f8cx185 1 ; Put fcwolf short 1 ; SavePos v20f8cx185 1 ; Next fcwolf ; Set M Binary "\x50\x41\x36\x00\x00\x00\x02\x00\x00\x00\x02\x00\x00\x00\x04\x00\x00\x00\x04\x00\x00\x00\x08\x00\x00\x00\x08\x00\x00\x00\x10\x00\x00\x00\x10\x00\x00\x00\x20\x00\x00\x00\x20\x00\x00\x00\x40\x00\x00\x00\x40\x00\x00\x00\x00\xB0\xDC\x00\x00\x00\x0A\xB0\x15\x00\x00\x00\x05\x00\x4D\x41\x58\x53\x43\x45\x4E\x45\x00\x64\x00\x00\x00\x08\xB0\x0E\x00\x00\x00\x00\x00\x00\x00\x64\x00\x00\x00\x09\xB0\x0A\x00\x00\x00\x00\x00\x00\x00\x02\xB0\xA9\x00\x00\x00\x30\xB0\x08\x00\x00\x00\x00\x00\x10\xB0\x13\x00\x00\x00\x42\x6F\x78\x30\x30\x31\x00\x00\x40\x00\x00\xFF\xFF\x13\xB0\x12\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x80\x00\x00\x00\x80\x20\xB0\x26\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\xCD\x4B\x40\x20\x27\x4E\x40\x00\x00\x00\x00\x21\xB0\x2A\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x22\xB0\x26\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x3F\x00\x00\x80\x3F\x00\x00\x80\x3F" ; PutDString M 274 1 ;