/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */ /* time: July 11, 1993 8:04:43 pm PDT */ /* C2C version: April 20, 1993 (sun4) */ /* ref-counting: off */ /* file: GGUtilityImplA, module: GGUtilityImplA */ /* switches: bcfhklnouw */ #include #include static char versionStamp[] = "@(#)mob_version [4096598413,2730533387] GGUtilityImplA"; typedef unsigned word, *ptr; typedef unsigned char byte, *bPt; typedef unsigned short half, *hPt; typedef word (*fPt)(); typedef struct {word f0, f1, f2, f3;} W4; typedef struct {word f0, f1, f2;} W3; typedef W3 *W3Pt; typedef struct {word f0, f1, f2, f3, f4, f5;} W6; typedef struct {word f0, f1;} W2; typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7; typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8; typedef struct {W8 f; W2 r;} W10; typedef W2 *W2Pt; #define SOURCE(p, l) /* source p, l */ #define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) ) static float fc110 = 360.0; static float fc112 = -90.0; static float fc115 = 2.0; static float fc139 = 0.5; static float fc170 = 1.0; #define SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i ) static float fc222 = 512.0; #define IOP2(op, x, y) ( (word) ((x) op (y)) ) static float fc229 = 72.0; #define FABS(f, t) ( ((t=(f)) >= (float) 0.0) ? (t) : (- (t)) ) static float fc248 = 1.0E-3; static float fc267 = 9207.29; static void NoName_Q4476(); static void GGUtilityImplA_P0(); static void StartFeatureDataList_P60(); static void AddFeatureData_P120(); static word CopyFeatureDataList_P180(); static word FeatureDataNconc_P240(); static void StartSequenceList_P300(); static void AddSequence_P360(); static word AppendSequenceList_P420(); static word DeleteSequenceFromList_P480(); static void FindSequenceAndNeighbors_P540(); static void StartSliceDescriptorList_P600(); static void AddSliceDescriptor_P660(); static word AppendSliceDescriptorList_P720(); static word DeleteSliceDescriptorFromList_P780(); static void FindSliceDescriptorAndNeighbors_P840(); static word CopySliceDescriptorList_P900(); static word AllFalse_P960(); static word AllTrue_P1020(); static word CopyPattern_P1080(); static word EquivalentPatterns_P1140(); static void HSVFromColor_P1200(); static word ChangeHue_P1260(); static word ColorToRope_P1320(); static word ColorFromRope_P1380(); static word ColorToRGBRope_P1440(); static word NoName_Q4536(); static word ColorToCMYKRope_P1500(); static word NoName_Q4596(); static word ColorToIntensityRope_P1560(); static word NoName_Q4656(); static word ColorToNameRope_P1620(); static word NoName_Q4716(); static word PolygonInCircle_P1680(); static word Box_P1740(); static word Circle_P1800(); static word KnotchedLine_P1860(); static word DescribeTraj_P1920(); static word DescribeJoint_P1980(); static word DescribeControlPoint_P2040(); static word DescribeSegment_P2100(); static word DescribeInterior_P2160(); static word DescribeSequence_P2220(); static word DescribeColor_P2280(); static word SpecialColorAsRGBAndNameRope_P2340(); static word ColorAsRGBAndNameRope_P2400(); static word ColorAsCMYKAndNameRope_P2460(); static word ColorAsIntensityAndNameRope_P2520(); static word ScalarButtonValuesToRope_P2580(); static void ScalarButtonValuesFromRope_P2640(); static word FactoredTransformationToRope_P2700(); static word FactoredTransformationFromRope_P2760(); static word Create_P2820(); static void Insert_P2880(); static word Lookup_P2940(); static word FindRadius_P4296(); static void Remove_P3000(); static word FindRadius_P4356(); static void RemoveAll_P3060(); static void DrawCachedCircle_P3120(); static void DoDrawCachedCircle_P4416(); static void Init_P3180(); static void NoName_Q4776(); static void NoName_Q4836(); static void NoName_Q4896(); static void NoName_Q4956(); static struct {unsigned f; char r[48];} string1 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\247\365\203\234\300\047\265\225\046\107\270\005\004\162\145\163\164\214\216\257\300\247\365\203\234\300\047\265\225\046\107\270\261\000\000\000"}; static struct {unsigned f; char r[4];} string2 = {131074, "\004\003\000"}; static struct {unsigned f; char r[48];} string3 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\247\365\203\234\300\047\265\225\046\100\310\005\004\162\145\163\164\214\216\257\300\247\365\203\234\300\047\265\225\046\100\310\261\000\000\000"}; static struct {unsigned f; char r[16];} string4 = {851984, "\257\300\371\314\343\307\300\031\056\017\130\100\310\000\000"}; static struct {unsigned f; char r[16];} string5 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"}; static struct {unsigned f; char r[4];} string6 = {65537, "\001\000\000"}; static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\346\140\152\135\300\203\202\276\373\100\164\000\000"}; static struct {unsigned f; char r[4];} string8 = {65540, "\256\000\000"}; static struct {unsigned f; char r[44];} string9 = {2752556, "\260\006\005\146\151\162\163\164\257\300\015\277\004\146\300\034\367\146\045\112\114\005\004\162\145\163\164\214\257\300\015\277\004\146\300\034\367\146\045\112\114\261\000"}; static struct {unsigned f; char r[28];} string10 = {1572888, "\006\002\000\007\000\040\016\000\003\001\000\000\000\000\014\014\000\014\014\014\014\000\010\001\000\000\000"}; static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\247\365\203\234\300\047\265\225\046\106\354\000\000"}; static struct {unsigned f; char r[8];} string12 = {262148, "\004\200@\034\000\000\000"}; static struct {unsigned f; char r[4];} string13 = {131076, "\216\251\000"}; static struct {unsigned f; char r[24];} string14 = {1310744, "Couldn't add segment\000\000\000"}; static struct {unsigned f; char r[8];} string15 = {262152, "none\000\000\000"}; static struct {unsigned f; char r[4];} string16 = {196612, "Set"}; static struct {unsigned f; char r[16];} string17 = {983056, "Intensity: none"}; static struct {unsigned f; char r[20];} string18 = {1048596, "Intensity: %1.3f\000\000\000"}; static struct {unsigned f; char r[32];} string19 = {1835040, "a %g-segment open trajectory\000\000\000"}; static struct {unsigned f; char r[20];} string20 = {1179668, "a %g-segment fence\000"}; static struct {unsigned f; char r[20];} string21 = {1114132, "a %g-segment hole\000\000"}; static struct {unsigned f; char r[4];} string22 = {4, "\000\000\000"}; static struct {unsigned f; char r[20];} string23 = {1048596, "end joint %g on \000\000\000"}; static struct {unsigned f; char r[16];} string24 = {786448, "joint %g on \000\000\000"}; static struct {unsigned f; char r[24];} string25 = {1310744, "control point %g on \000\000\000"}; static struct {unsigned f; char r[16];} string26 = {851984, "a segment on \000\000"}; static struct {unsigned f; char r[16];} string27 = {983056, " segment %g on "}; static struct {unsigned f; char r[20];} string28 = {1048596, "The interior of \000\000\000"}; static struct {unsigned f; char r[24];} string29 = {1376280, "one or more parts of \000\000"}; static struct {unsigned f; char r[40];} string30 = {2555944, "an unknown constant color operator type"}; static struct {unsigned f; char r[12];} string31 = {655372, "CMYK: none\000"}; static struct {unsigned f; char r[32];} string32 = {1966112, "an unknown constant color type\000"}; static struct {unsigned f; char r[16];} string33 = {983056, "a sampled black"}; static struct {unsigned f; char r[16];} string34 = {983056, "a sampled color"}; static struct {unsigned f; char r[24];} string35 = {1376280, "an unknown color type\000\000"}; static struct {unsigned f; char r[20];} string36 = {1179668, "%g Name: %g %g %g\000"}; static struct {unsigned f; char r[32];} string37 = {1900576, "CMYK: %1.3f %1.3f %1.3f %1.3f\000\000"}; static struct {unsigned f; char r[20];} string38 = {1179668, "No equivalent RGB \000"}; static struct {unsigned f; char r[8];} string39 = {262152, "None\000\000\000"}; static struct {unsigned f; char r[20];} string40 = {1245204, "%g CNS: %g %g %g"}; static struct {unsigned f; char r[12];} string41 = {589836, "RGB: none\000\000"}; static struct {unsigned f; char r[24];} string42 = {1441816, "RGB: %1.3f %1.3f %1.3f\000"}; static struct {unsigned f; char r[12];} string43 = {524300, "GGCircle\000\000\000"}; static struct {unsigned f; char r[12];} string44 = {524300, "Gargoyle\000\000\000"}; static struct {unsigned f; char r[8];} string45 = {458760, "9207.29"}; static struct {unsigned f; char r[16];} string46 = {851984, "\257\300\364\055\041\215\300\242\300\242\013\100\164\000\000"}; static struct {unsigned f; char r[16];} string47 = {851981, "\006\003\020\001\024\001\100\140\010\000\004\040\001\000\000"}; static struct {unsigned f; char r[16];} string48 = {851984, "\257\300\006<7[\300;CV\364@h\000\000"}; static struct {unsigned f; char r[16];} string49 = {851984, "\257\300\174\131\015\150\300\275\305\273\253\100\150\000\000"}; static struct {unsigned f; char r[16];} string50 = {851984, "\257\300\322\334\347\304\300\124\107\000\027\100\150\000\000"}; static struct {unsigned f; char r[16];} string51 = {851984, "\257\300\161\264\233\303\300\026\075\022\161\100\150\000\000"}; static struct {unsigned f; char r[16];} string52 = {851984, "\257\300\265\217\206\011\300\172\271\371\033\100\150\000\000"}; static struct {unsigned f; char r[16];} string53 = {851984, "\257\300IKM\275\300Y\0222&@h\000\000"}; static struct {unsigned f; char r[16];} string54 = {851984, "\257\300\051\007\005\263\300\114\137\366\004\100\150\000\000"}; static struct {unsigned f; char r[16];} string55 = {851984, "\257\300\231\005\151\136\300\275\231\323\274\100\150\000\000"}; static struct {unsigned f; char r[16];} string56 = {851984, "\257\300\311\023\117\300\300\337\236\305\170\100\150\000\000"}; static struct {unsigned f; char r[16];} string57 = {851984, "\257\300\236\155\220\261\300\040\017\026\014\100\150\000\000"}; static struct {unsigned f; char r[16];} string58 = {851984, "\257\300\045\215\147\016\300\153\043\150\276\100\150\000\000"}; static struct {unsigned f; char r[16];} string59 = {851984, "\257\300\043\211\212\366\300\343\003\307\242\100\150\000\000"}; static struct {unsigned f; char r[16];} string60 = {851984, "\257\300\235\036\354\311\300\234\133\201\260\100\150\000\000"}; static struct {unsigned f; char r[16];} string61 = {851984, "\257\300U$)\337\300Xo9\243@t\000\000"}; static struct {unsigned f; char r[16];} string62 = {851984, "\257\300\336\025\013\356\300\216\115\352\271\100\150\000\000"}; static struct {unsigned f; char r[16];} string63 = {851984, "\257\300\050\310\006\072\300\004\273\314\121\100\150\000\000"}; static struct {unsigned f; char r[16];} string64 = {851984, "\257\300\104\154\010\164\300\126\073\363\036\100\150\000\000"}; static struct {unsigned f; char r[8];} string65 = {1195857268, "ility"}; static struct {unsigned f; char r[16];} string66 = {851984, "\257\300\370\132\042\205\300\045\133\011\125\100\150\000\000"}; static struct {unsigned f; char r[16];} string67 = {851984, "\257\300\074\177\166\242\300\203\113\217\044\100\150\000\000"}; static struct {unsigned f; char r[16];} string68 = {851984, "\257\300\170\064\225\306\300\207\372\245\271\100\150\000\000"}; static struct {unsigned f; char r[16];} string69 = {851984, "\257\300\353\300\316\013\300\313\011\345\022\100\150\000\000"}; static struct {unsigned f; char r[16];} string70 = {851984, "\257\300ZT?\010\300\370;=;@h\000\000"}; static struct {unsigned f; char r[16];} string71 = {851984, "\257\300\213\226\301\143\300\072\355\320\373\100\150\000\000"}; static struct {unsigned f; char r[16];} string72 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"}; static struct {unsigned f; char r[16];} string73 = {851984, "\257\300\310\176\216\233\300\117\017\254\077\100\150\000\000"}; static struct {unsigned f; char r[16];} string74 = {851984, "\257\300\246\205\220\035\300\344\000\142\023\100\150\000\000"}; static struct {unsigned f; char r[16];} string75 = {851984, "\257\300\245\247\302\156\300\052\156\325\023\100\150\000\000"}; static struct {unsigned f; char r[16];} string76 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"}; static struct {unsigned f; char r[16];} string77 = {851984, "\257\300\004\142\347\110\300\363\053\254\345\100\150\000\000"}; static struct {unsigned f; char r[16];} string78 = {851984, "\257\300\375\202\245\011\300\112\022\046\301\100\150\000\000"}; static struct {unsigned f; char r[16];} string79 = {851984, "\257\300\117\226\235\122\300\152\234\262\021\100\150\000\000"}; static struct {unsigned f; char r[16];} string80 = {851984, "\257\300\346\140\152\135\300\203\202\276\373\100\150\000\000"}; static struct { word f0[59]; word f59; word f60; word f61; word f62; word f63; word f64; word f65; word f66; word f67; word f68; word f69; word f70; word f71; word f72; word f73; word f74; word f75; word f76; word f77; word f78; word f79; word f80; word f81; word f82; word f83; word f84; word f85; word f86; word f87; word f88; word f89; word f90; word f91; word f92; word f93; word f94; word f95; word f96; word f97; word f98; word f99; word f100; word f101; word f102; word f103; word f104; word f105; word f106; word f107; word f108; word f109; word f110; word f111; word f112; word f113; word f114; word f115; word f116; word f117; word f118; word f119; word f120; word f121; word f122; word f123; word f124; word f125; word f126; word f127; word f128; word f129; word f130; word f131; word f132; word f133; word f134; word f135; word f136; word f137; word f138; word f139; word f140; word f141; word f142; word f143; word f144; word f145; word f146; word f147; word f148; word f149; word f150; word f151; word f152; word f153; word f154; word f155; word f156; word f157; word f158; word f159; word f160; word f161; word f162; word f163; word f164; word f165; word f166[31]; } globalframe = { {0}, (word) Init_P3180, 0, (word) DrawCachedCircle_P3120, 0, (word) RemoveAll_P3060, 0, (word) Remove_P3000, 0, (word) Lookup_P2940, 0, (word) Insert_P2880, 0, (word) Create_P2820, 0, (word) FactoredTransformationFromRope_P2760, 0, (word) FactoredTransformationToRope_P2700, 0, (word) ScalarButtonValuesFromRope_P2640, 0, (word) ScalarButtonValuesToRope_P2580, 0, (word) ColorAsIntensityAndNameRope_P2520, 0, (word) ColorAsCMYKAndNameRope_P2460, 0, (word) ColorAsRGBAndNameRope_P2400, 0, (word) SpecialColorAsRGBAndNameRope_P2340, 0, (word) DescribeColor_P2280, 0, (word) DescribeSequence_P2220, 0, (word) DescribeInterior_P2160, 0, (word) DescribeSegment_P2100, 0, (word) DescribeControlPoint_P2040, 0, (word) DescribeJoint_P1980, 0, (word) DescribeTraj_P1920, 0, (word) KnotchedLine_P1860, 0, (word) Circle_P1800, 0, (word) Box_P1740, 0, (word) PolygonInCircle_P1680, 0, (word) ColorToNameRope_P1620, 0, (word) ColorToIntensityRope_P1560, 0, (word) ColorToCMYKRope_P1500, 0, (word) ColorToRGBRope_P1440, 0, (word) ColorFromRope_P1380, 0, (word) ColorToRope_P1320, 0, (word) ChangeHue_P1260, 0, (word) HSVFromColor_P1200, 0, (word) EquivalentPatterns_P1140, 0, (word) CopyPattern_P1080, 0, (word) AllTrue_P1020, 0, (word) AllFalse_P960, 0, (word) CopySliceDescriptorList_P900, 0, (word) FindSliceDescriptorAndNeighbors_P840, 0, (word) DeleteSliceDescriptorFromList_P780, 0, (word) AppendSliceDescriptorList_P720, 0, (word) AddSliceDescriptor_P660, 0, (word) StartSliceDescriptorList_P600, 0, (word) FindSequenceAndNeighbors_P540, 0, (word) DeleteSequenceFromList_P480, 0, (word) AppendSequenceList_P420, 0, (word) AddSequence_P360, 0, (word) StartSequenceList_P300, 0, (word) FeatureDataNconc_P240, 0, (word) CopyFeatureDataList_P180, 0, (word) AddFeatureData_P120, 0, (word) StartFeatureDataList_P60, 0, (word) GGUtilityImplA_P0, {0} }; static void NoName_Q4476() { register ptr gf_c0516 = (ptr) &globalframe; word var_c55680; (* (( (ptr) gf_c0516)+8) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2); (* (( (ptr) gf_c0516)+9) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string2); (* (( (ptr) gf_c0516)+10) ) = (word) XR_GetTypeIndexS((word) (&string4)); (* (( (ptr) gf_c0516)+13) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string6); (* (( (ptr) gf_c0516)+14) ) = (word) XR_GetTypeIndex((word) &string7, 0, (word) &string6); (* (( (ptr) gf_c0516)+15) ) = (word) XR_GetTypeIndexS((word) (&string8)); (* (( (ptr) gf_c0516)+17) ) = (word) XR_GetTypeIndex((word) &string9, 0, (word) &string10); (* (( (ptr) gf_c0516)+21) ) = (word) XR_GetTypeIndex((word) &string11, 0, (word) &string12); (* (( (ptr) gf_c0516)+23) ) = (word) XR_GetTypeIndex((word) &string13, 0, (word) &string6); (* (ptr) (( (bPt) gf_c0516)+96) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string14); (* (ptr) (( (bPt) gf_c0516)+100) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string15); (* (ptr) (( (bPt) gf_c0516)+104) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+23) ), (word) &string16); (* (ptr) (( (bPt) gf_c0516)+108) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string17); (* (ptr) (( (bPt) gf_c0516)+112) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string18); (* (ptr) (( (bPt) gf_c0516)+116) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string19); (* (ptr) (( (bPt) gf_c0516)+120) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string20); (* (ptr) (( (bPt) gf_c0516)+124) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string21); (* (ptr) (( (bPt) gf_c0516)+128) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string22); (* (ptr) (( (bPt) gf_c0516)+132) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string23); (* (ptr) (( (bPt) gf_c0516)+136) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string24); (* (ptr) (( (bPt) gf_c0516)+140) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string25); (* (ptr) (( (bPt) gf_c0516)+144) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string26); (* (ptr) (( (bPt) gf_c0516)+148) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string27); (* (ptr) (( (bPt) gf_c0516)+152) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string28); (* (ptr) (( (bPt) gf_c0516)+156) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string29); (* (ptr) (( (bPt) gf_c0516)+160) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string30); (* (ptr) (( (bPt) gf_c0516)+164) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string31); (* (ptr) (( (bPt) gf_c0516)+168) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string32); (* (ptr) (( (bPt) gf_c0516)+172) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string33); (* (ptr) (( (bPt) gf_c0516)+176) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string34); (* (ptr) (( (bPt) gf_c0516)+180) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string35); (* (ptr) (( (bPt) gf_c0516)+184) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string36); (* (ptr) (( (bPt) gf_c0516)+188) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string37); (* (ptr) (( (bPt) gf_c0516)+192) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string38); (* (ptr) (( (bPt) gf_c0516)+196) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string39); (* (ptr) (( (bPt) gf_c0516)+200) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string40); (* (ptr) (( (bPt) gf_c0516)+204) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string41); (* (ptr) (( (bPt) gf_c0516)+208) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string42); (* (ptr) (( (bPt) gf_c0516)+212) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+23) ), (word) &string43); (* (ptr) (( (bPt) gf_c0516)+216) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+23) ), (word) &string44); (* (ptr) (( (bPt) gf_c0516)+220) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0516)+13) ), (word) &string45); (void) XR_DeclareGlobalFrame((word) "GGUtilityImplA", &globalframe, (word) XR_GetTypeIndex((word) &string46, 0, (word) &string47) , (word) (( (bPt) gf_c0516)+660)/* var_c50464 */ ); var_c55680 = (word) XR_ImportInterface((word) "CodeTimer", (word) XR_GetTypeIndexS((word) (&string48)), 21); (* (( (ptr) gf_c0516)+195)/* var_c55616 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 67371777); var_c55680 = (word) XR_ImportInterface((word) "ColorFns", (word) XR_GetTypeIndexS((word) (&string49)), 54); (* (( (ptr) gf_c0516)+169)/* var_c51488 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 202113537); (void) XR_ImportProcS(var_c55680, 202113281); (void) XR_ImportProcS(var_c55680, 202113025); var_c55680 = (word) XR_ImportInterface((word) "Feedback", (word) XR_GetTypeIndexS((word) (&string50)), 25); (* (( (ptr) gf_c0516)+174)/* var_c51808 */ ) = var_c55680; var_c55680 = (word) XR_ImportInterface((word) "FunctionCache", (word) XR_GetTypeIndexS((word) (&string51)), 14); (* (( (ptr) gf_c0516)+189)/* var_c54816 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 67371777); (void) XR_ImportProcS(var_c55680, 68158980); (void) XR_ImportProcS(var_c55680, 135005443); (void) XR_ImportProcS(var_c55680, 1311237); (void) XR_ImportProcS(var_c55680, 67112192); var_c55680 = (word) XR_ImportInterface((word) "GGBoundBox", (word) XR_GetTypeIndexS((word) (&string52)), 24); (* (( (ptr) gf_c0516)+185)/* var_c52832 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 68681990); var_c55680 = (word) XR_ImportInterface((word) "GGCircles", (word) XR_GetTypeIndexS((word) (&string53)), 29); (* (( (ptr) gf_c0516)+193)/* var_c55168 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 67896066); var_c55680 = (word) XR_ImportInterface((word) "GGColorOps", (word) XR_GetTypeIndexS((word) (&string54)), 5); (* (( (ptr) gf_c0516)+177)/* var_c52032 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 67371265); (void) XR_ImportProcS(var_c55680, 134479873); (void) XR_ImportProcS(var_c55680, 67372033); (void) XR_ImportProcS(var_c55680, 268698369); var_c55680 = (word) XR_ImportInterface((word) "GGCoreOps", (word) XR_GetTypeIndexS((word) (&string55)), 37); (* (( (ptr) gf_c0516)+176)/* var_c51872 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 201596417); var_c55680 = (word) XR_ImportInterface((word) "GGOutline", (word) XR_GetTypeIndexS((word) (&string56)), 19); (* (( (ptr) gf_c0516)+183)/* var_c52736 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 67633410); var_c55680 = (word) XR_ImportInterface((word) "GGParseIn", (word) XR_GetTypeIndexS((word) (&string57)), 26); (* (( (ptr) gf_c0516)+173)/* var_c51776 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 67375361); (void) XR_ImportProcS(var_c55680, 201857026); (void) XR_ImportProcS(var_c55680, 67636226); var_c55680 = (word) XR_ImportInterface((word) "GGParseOut", (word) XR_GetTypeIndexS((word) (&string58)), 15); (* (( (ptr) gf_c0516)+171)/* var_c51712 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 526082); (void) XR_ImportProcS(var_c55680, 1051908); (void) XR_ImportProcS(var_c55680, 524802); var_c55680 = (word) XR_ImportInterface((word) "GGSegment", (word) XR_GetTypeIndexS((word) (&string59)), 47); (* (( (ptr) gf_c0516)+182)/* var_c52608 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 527362); (void) XR_ImportProcS(var_c55680, 68419843); var_c55680 = (word) XR_ImportInterface((word) "GGShapes", (word) XR_GetTypeIndexS((word) (&string60)), 20); (* (( (ptr) gf_c0516)+194)/* var_c55200 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 526594); var_c55680 = (word) XR_ImportInterface((word) "GGSlice", (word) XR_GetTypeIndexS((word) (&string61)), 128); (* (( (ptr) gf_c0516)+187)/* var_c52928 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 68169730); (void) XR_ImportProcS(var_c55680, 67905795); var_c55680 = (word) XR_ImportInterface((word) "GGSliceOps", (word) XR_GetTypeIndexS((word) (&string62)), 73); (* (( (ptr) gf_c0516)+184)/* var_c52800 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 1060868); (void) XR_ImportProcS(var_c55680, 1325317); (void) XR_ImportProcS(var_c55680, 67901699); (void) XR_ImportProcS(var_c55680, 1062148); var_c55680 = (word) XR_ImportInterface((word) "GGTraj", (word) XR_GetTypeIndexS((word) (&string63)), 55); (* (( (ptr) gf_c0516)+181)/* var_c52480 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 67639554); (void) XR_ImportProcS(var_c55680, 67379969); (void) XR_ImportProcS(var_c55680, 67643650); (void) XR_ImportProcS(var_c55680, 787203); (void) XR_ImportProcS(var_c55680, 68157956); (void) XR_ImportProcS(var_c55680, 67633153); var_c55680 = (word) XR_ImportInterface((word) "GGTransform", (word) XR_GetTypeIndexS((word) (&string64)), 7); (* (( (ptr) gf_c0516)+186)/* var_c52896 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 67108864); var_c55680 = (word) XR_ImportInterface((word) &string65, (word) XR_GetTypeIndexS((word) (&string66)), 42); (* (( (ptr) gf_c0516)+172)/* var_c51744 */ ) = var_c55680; var_c55680 = (word) XR_ImportInterface((word) "Imager", (word) XR_GetTypeIndexS((word) (&string67)), 84); (* (( (ptr) gf_c0516)+175)/* var_c51840 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 1853957); (void) XR_ImportProcS(var_c55680, 526338); (void) XR_ImportProcS(var_c55680, 540674); (void) XR_ImportProcS(var_c55680, 1326338); (void) XR_ImportProcS(var_c55680, 536578); var_c55680 = (word) XR_ImportInterface((word) "ImagerBackdoor", (word) XR_GetTypeIndexS((word) (&string68)), 42); (* (( (ptr) gf_c0516)+167)/* var_c50496 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 268700417); (void) XR_ImportProcS(var_c55680, 67641602); var_c55680 = (word) XR_ImportInterface((word) "ImagerBitmapContext", (word) XR_GetTypeIndexS((word) (&string69)), 8); (* (( (ptr) gf_c0516)+192)/* var_c55072 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 524802); (void) XR_ImportProcS(var_c55680, 69206278); var_c55680 = (word) XR_ImportInterface((word) "ImagerColor", (word) XR_GetTypeIndexS((word) (&string70)), 32); (* (( (ptr) gf_c0516)+168)/* var_c51456 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 67372801); (void) XR_ImportProcS(var_c55680, 67898625); (void) XR_ImportProcS(var_c55680, 67372033); (void) XR_ImportProcS(var_c55680, 201592321); var_c55680 = (word) XR_ImportInterface((word) "ImagerSample", (word) XR_GetTypeIndexS((word) (&string71)), 60); (* (( (ptr) gf_c0516)+191)/* var_c54944 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 68161027); (void) XR_ImportProcS(var_c55680, 68685571); var_c55680 = (word) XR_ImportInterface((word) "IO", (word) XR_GetTypeIndexS((word) (&string72)), 103); (* (( (ptr) gf_c0516)+170)/* var_c51680 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 67910402); (void) XR_ImportProcS(var_c55680, 67648770); (void) XR_ImportProcS(var_c55680, 68958724); (void) XR_ImportProcS(var_c55680, 67640578); (void) XR_ImportProcS(var_c55680, 67641090); (void) XR_ImportProcS(var_c55680, 67378689); var_c55680 = (word) XR_ImportInterface((word) "NamedColors", (word) XR_GetTypeIndexS((word) (&string73)), 4); (* (( (ptr) gf_c0516)+178)/* var_c52320 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 68158210); var_c55680 = (word) XR_ImportInterface((word) "Real", (word) XR_GetTypeIndexS((word) (&string74)), 11); (* (( (ptr) gf_c0516)+190)/* var_c54880 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 67371521); (void) XR_ImportProcS(var_c55680, 67371265); var_c55680 = (word) XR_ImportInterface((word) "RealFns", (word) XR_GetTypeIndexS((word) (&string75)), 36); (* (( (ptr) gf_c0516)+179)/* var_c52352 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 67373313); (void) XR_ImportProcS(var_c55680, 67372801); var_c55680 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string76)), 43); (* (( (ptr) gf_c0516)+188)/* var_c53376 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 68419845); (void) XR_ImportProcS(var_c55680, 67633666); var_c55680 = (word) XR_ImportInterface((word) "Vectors2d", (word) XR_GetTypeIndexS((word) (&string77)), 21); (* (( (ptr) gf_c0516)+180)/* var_c52448 */ ) = var_c55680; (void) XR_ImportProcS(var_c55680, 135268098); (void) XR_ImportProcS(var_c55680, 135006210); (void) XR_ImportProcS(var_c55680, 135267842); var_c55680 = (word) XR_ExportInterface((word) "GGDescribe", (word) XR_GetTypeIndexS((word) (&string78)), 11); (* (( (ptr) gf_c0516)+196)/* var_c55712 */ ) = var_c55680; (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+484)/* var_c49760 */ , 67371265, (word) "ColorToRope"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+476)/* var_c49728 */ , 67371521, (word) "ColorFromRope"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+468)/* var_c49696 */ , 67371777, (word) "ColorToRGBRope"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+460)/* var_c49664 */ , 67372033, (word) "ColorToCMYKRope"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+444)/* var_c49600 */ , 67372289, (word) "ColorToNameRope"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+316)/* var_c49088 */ , 67897091, (word) "ScalarButtonValuesToRope") ; (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+308)/* var_c49056 */ , 201590785, (word) "ScalarButtonValuesFromRope") ; (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+300)/* var_c49024 */ , 67373313, (word) "FactoredTransformationToRope") ; (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+292)/* var_c48992 */ , 67373569, (word) "FactoredTransformationFromRope") ; var_c55680 = (word) XR_ExportInterface((word) &string65, (word) XR_GetTypeIndexS((word) (&string66)), 42); (* (( (ptr) gf_c0516)+196)/* var_c55712 */ ) = var_c55680; (void) XR_ExportVar(var_c55680, 0, (word) (( (bPt) gf_c0516)+24)/* version_v6808 */ ); (void) XR_ExportVar(var_c55680, 1, (word) (( (bPt) gf_c0516)+20)/* versionRope_v6780 */ ); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+652)/* var_c50432 */ , 134218240, (word) "StartFeatureDataList") ; (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+644)/* var_c50400 */ , 135004931, (word) "AddFeatureData"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+636)/* var_c50368 */ , 67372033, (word) "CopyFeatureDataList") ; (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+628)/* var_c50336 */ , 67634434, (word) "FeatureDataNconc"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+620)/* var_c50304 */ , 134219264, (word) "StartSequenceList") ; (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+612)/* var_c50272 */ , 135005955, (word) "AddSequence"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+604)/* var_c50240 */ , 67635202, (word) "AppendSequenceList") ; (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+596)/* var_c50208 */ , 67635458, (word) "DeleteSequenceFromList") ; (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+580)/* var_c50144 */ , 134220544, (word) "StartSliceDescriptorList") ; (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+572)/* var_c50112 */ , 135007235, (word) "AddSliceDescriptor") ; (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+564)/* var_c50080 */ , 67636482, (word) "AppendSliceDescriptorList") ; (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+556)/* var_c50048 */ , 67636738, (word) "DeleteSliceDescriptorFromList") ; (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+540)/* var_c49984 */ , 67374849, (word) "CopySliceDescriptorList") ; (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+532)/* var_c49952 */ , 67378689, (word) "AllFalse"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+524)/* var_c49920 */ , 67378945, (word) "AllTrue"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+492)/* var_c49792 */ , 67641346, (word) "ChangeHue"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+516)/* var_c49888 */ , 67379457, (word) "CopyPattern"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+508)/* var_c49856 */ , 67641858, (word) "EquivalentPatterns") ; (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+404)/* var_c49440 */ , 67379969, (word) "DescribeTraj"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+356)/* var_c49248 */ , 67380225, (word) "DescribeColor"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+364)/* var_c49280 */ , 67380481, (word) "DescribeSequence"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+388)/* var_c49376 */ , 67905027, (word) "DescribeControlPoint") ; (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+396)/* var_c49408 */ , 67643138, (word) "DescribeJoint"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+380)/* var_c49344 */ , 67643394, (word) "DescribeSegment"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+372)/* var_c49312 */ , 67381505, (word) "DescribeInterior"); var_c55680 = (word) XR_ExportInterface((word) "GGBuiltinShapes", (word) XR_GetTypeIndexS((word) (&string79)), 4); (* (( (ptr) gf_c0516)+196)/* var_c55712 */ ) = var_c55680; (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+436)/* var_c49568 */ , 68419588, (word) "PolygonInCircle"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+420)/* var_c49504 */ , 68157699, (word) "Circle"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+428)/* var_c49536 */ , 68157955, (word) "Box"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+412)/* var_c49472 */ , 68420355, (word) "KnotchedLine"); var_c55680 = (word) XR_ExportInterface((word) "GGCircleCache", (word) XR_GetTypeIndexS((word) (&string80)), 6); (* (( (ptr) gf_c0516)+196)/* var_c55712 */ ) = var_c55680; (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+284)/* var_c48960 */ , 67108864, (word) "Create"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+276)/* var_c48928 */ , 524546, (word) "Insert"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+268)/* var_c48896 */ , 67633666, (word) "Lookup"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+260)/* var_c48864 */ , 525058, (word) "Remove"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+252)/* var_c48832 */ , 263169, (word) "RemoveAll"); (void) XR_ExportProcS(var_c55680, (word) (( (bPt) gf_c0516)+244)/* var_c48800 */ , 1049859, (word) "DrawCachedCircle"); } static void GGUtilityImplA_P0(formal_c097, formal_c096) word formal_c097; word formal_c096; { register ptr gf_c55744 = (ptr) &globalframe; /* GGUtilityImplA: */ SOURCE(525, 21104) SOURCE(18888, 66) { word pd81; pd81 = (* (( (ptr) (* (( (ptr) gf_c55744)+167)/* var_c50496 */ ))+37) ); (* (( (ptr) gf_c55744)+4)/* alignmentColor_v6556 */ ) = (word) ( *( (fPt) ((* (ptr) pd81 ))))(51765, 0, pd81); }; SOURCE(21623, 6) (void) Init_P3180(); } static void StartFeatureDataList_P60(formal_c0100) word formal_c0100; { word entityList_v7004; word ptr_v7032; /* StartFeatureDataList: */ SOURCE(2193, 110) SOURCE(2193, 110) entityList_v7004 = 0; SOURCE(2193, 110) ptr_v7032 = 0; SOURCE(2281, 22) entityList_v7004 = 0; ptr_v7032 = 0; /* removed tail goto */ (* (ptr) formal_c0100 ) = entityList_v7004; (* (( (ptr) formal_c0100)+1) ) = ptr_v7032; return; } static void AddFeatureData_P120(formal_c0109, entity_v7176, entityList_v7204, ptr_v7232) word formal_c0109; word entity_v7176; word entityList_v7204; word ptr_v7232; { register ptr gf_c55776 = (ptr) &globalframe; word newList_v7360; word newPtr_v7388; /* AddFeatureData: */ SOURCE(2309, 319) SOURCE(2309, 319) newList_v7360 = 0; SOURCE(2309, 319) newPtr_v7388 = 0; SOURCE(2448, 180) if ((ptr_v7232 == 0)) { SOURCE(2468, 29) if ((entityList_v7204 != 0)) { SOURCE(2497, 5) (void) XR_RaiseUnnamedError(); }; SOURCE(2504, 36) { word var_c50528; { word var_c50560; var_c50560 = XR_NewObject(8, (* (( (ptr) gf_c55776)+8) )); (* (ptr) var_c50560 ) = entity_v7176; var_c50528 = var_c50560; }; newList_v7360 = var_c50528; newPtr_v7388 = var_c50528; }; SOURCE(2542, 6) goto lab_L100001; } else { SOURCE(2559, 20) newList_v7360 = entityList_v7204; SOURCE(2581, 28) { word var_c50592; var_c50592 = XR_NewObject(8, (* (( (ptr) gf_c55776)+8) )); (* (ptr) var_c50592 ) = entity_v7176; (* (( (ptr) ptr_v7232)+1) ) = var_c50592; }; SOURCE(2611, 17) newPtr_v7388 = (* (( (ptr) ptr_v7232)+1) ); }; /* removed tail goto */ lab_L100001: ; (* (ptr) formal_c0109 ) = newList_v7360; (* (( (ptr) formal_c0109)+1) ) = newPtr_v7388; return; } static word CopyFeatureDataList_P180(l_v7532) word l_v7532; { register ptr gf_c55808 = (ptr) &globalframe; word copyList_v7660; word z_v16188 = 0; /* CopyFeatureDataList: */ SOURCE(2637, 273) SOURCE(2637, 273) copyList_v7660 = 0; SOURCE(2769, 27) if ((l_v7532 == 0)) { SOURCE(2785, 11) return(0); }; SOURCE(2798, 29) { word var_c50624; var_c50624 = XR_NewObject(8, (* (( (ptr) gf_c55808)+8) )); (* (ptr) var_c50624 ) = (* (ptr) l_v7532 ); copyList_v7660 = var_c50624; }; SOURCE(2829, 12) z_v16188 = copyList_v7660; SOURCE(2843, 67) lab_L100004: ; l_v7532 = (* (( (ptr) l_v7532)+1) ); if ((l_v7532 != 0)) { } else { goto lab_L100002; }; SOURCE(2871, 27) { word var_c50656; var_c50656 = XR_NewObject(8, (* (( (ptr) gf_c55808)+8) )); (* (ptr) var_c50656 ) = (* (ptr) l_v7532 ); (* (( (ptr) z_v16188)+1) ) = var_c50656; }; SOURCE(2900, 10) z_v16188 = (* (( (ptr) z_v16188)+1) ); goto lab_L100004; lab_L100002: ; SOURCE(2637, 273) return(copyList_v7660); } static word FeatureDataNconc_P240(l1_v7804, l2_v7832) word l1_v7804; word l2_v7832; { word bigList_v7960; word z_v16316; /* FeatureDataNconc: */ SOURCE(2925, 226) SOURCE(2925, 226) bigList_v7960 = 0; SOURCE(3028, 3) z_v16316 = l1_v7804; SOURCE(3057, 26) if ((z_v16316 == 0)) { SOURCE(3073, 10) return(l2_v7832); }; SOURCE(3085, 32) lab_L100007: ; if (((* (( (ptr) z_v16316)+1) ) != 0)) { } else { goto lab_L100005; }; SOURCE(3107, 10) z_v16316 = (* (( (ptr) z_v16316)+1) ); goto lab_L100007; lab_L100005: ; SOURCE(3128, 11) (* (( (ptr) z_v16316)+1) ) = l2_v7832; SOURCE(3141, 10) return(l1_v7804); } static void StartSequenceList_P300(formal_c0121) word formal_c0121; { word entityList_v8104; word ptr_v8132; /* StartSequenceList: */ SOURCE(3158, 104) SOURCE(3158, 104) entityList_v8104 = 0; SOURCE(3158, 104) ptr_v8132 = 0; SOURCE(3240, 22) entityList_v8104 = 0; ptr_v8132 = 0; /* removed tail goto */ (* (ptr) formal_c0121 ) = entityList_v8104; (* (( (ptr) formal_c0121)+1) ) = ptr_v8132; return; } static void AddSequence_P360(formal_c0130, entity_v8276, entityList_v8304, ptr_v8332) word formal_c0130; word entity_v8276; word entityList_v8304; word ptr_v8332; { register ptr gf_c55840 = (ptr) &globalframe; word newList_v8460; word newPtr_v8488; /* AddSequence: */ SOURCE(3268, 307) SOURCE(3268, 307) newList_v8460 = 0; SOURCE(3268, 307) newPtr_v8488 = 0; SOURCE(3395, 180) if ((ptr_v8332 == 0)) { SOURCE(3415, 29) if ((entityList_v8304 != 0)) { SOURCE(3444, 5) (void) XR_RaiseUnnamedError(); }; SOURCE(3451, 36) { word var_c50688; { word var_c50720; var_c50720 = XR_NewObject(8, (* (( (ptr) gf_c55840)+9) )); (* (ptr) var_c50720 ) = entity_v8276; var_c50688 = var_c50720; }; newList_v8460 = var_c50688; newPtr_v8488 = var_c50688; }; SOURCE(3489, 6) goto lab_L100009; } else { SOURCE(3506, 20) newList_v8460 = entityList_v8304; SOURCE(3528, 28) { word var_c50752; var_c50752 = XR_NewObject(8, (* (( (ptr) gf_c55840)+9) )); (* (ptr) var_c50752 ) = entity_v8276; (* (( (ptr) ptr_v8332)+1) ) = var_c50752; }; SOURCE(3558, 17) newPtr_v8488 = (* (( (ptr) ptr_v8332)+1) ); }; /* removed tail goto */ lab_L100009: ; (* (ptr) formal_c0130 ) = newList_v8460; (* (( (ptr) formal_c0130)+1) ) = newPtr_v8488; return; } static word AppendSequenceList_P420(list1_v8632, list2_v8660) word list1_v8632; word list2_v8660; { register ptr gf_c55872 = (ptr) &globalframe; word result_v8788; word pos_v16444 = 0; word newCell_v16472 = 0; /* AppendSequenceList: */ SOURCE(3584, 389) SOURCE(3584, 389) result_v8788 = 0; SOURCE(3738, 33) if ((list1_v8632 == 0)) { SOURCE(3758, 13) return(list2_v8660); }; SOURCE(3773, 31) { word var_c50784; var_c50784 = XR_NewObject(8, (* (( (ptr) gf_c55872)+9) )); (* (ptr) var_c50784 ) = (* (ptr) list1_v8632 ); result_v8788 = var_c50784; }; SOURCE(3806, 12) pos_v16444 = result_v8788; SOURCE(3820, 125) { register word l_v16684; l_v16684 = (* (( (ptr) list1_v8632)+1) ); lab_L100013: ; if ((l_v16684 != 0)) { } else { goto lab_L100010; }; SOURCE(3882, 28) { word var_c50816; var_c50816 = XR_NewObject(8, (* (( (ptr) gf_c55872)+9) )); (* (ptr) var_c50816 ) = (* (ptr) l_v16684 ); newCell_v16472 = var_c50816; }; SOURCE(3912, 18) (* (( (ptr) pos_v16444)+1) ) = newCell_v16472; SOURCE(3932, 13) pos_v16444 = newCell_v16472; l_v16684 = (* (( (ptr) l_v16684)+1) ); goto lab_L100013; lab_L100010: ; }; SOURCE(3956, 17) (* (( (ptr) pos_v16444)+1) ) = list2_v8660; SOURCE(3584, 389) return(result_v8788); } static word DeleteSequenceFromList_P480(seq_v8932, seqList_v8960) word seq_v8932; word seqList_v8960; { word smallerList_v9088; word beforeEnt_v16812 = 0; word ent_v16840 = 0; word afterEnt_v16868 = 0; word found_v16896 = 0; /* DeleteSequenceFromList: */ SOURCE(4008, 401) SOURCE(4008, 401) smallerList_v9088 = 0; SOURCE(4196, 74) { W4 var_c50848; (void) FindSequenceAndNeighbors_P540((word) &var_c50848, seq_v8932, seqList_v8960); found_v16896 = var_c50848.f3; afterEnt_v16868 = var_c50848.f2; ent_v16840 = var_c50848.f1; beforeEnt_v16812 = var_c50848.f0; }; SOURCE(4272, 33) if ((0 == found_v16896)) { SOURCE(4290, 15) return(seqList_v8960); }; SOURCE(4307, 102) if ((beforeEnt_v16812 == 0)) { SOURCE(4331, 28) smallerList_v9088 = afterEnt_v16868; } else { SOURCE(4361, 25) (* (( (ptr) beforeEnt_v16812)+1) ) = afterEnt_v16868; SOURCE(4388, 21) smallerList_v9088 = seqList_v8960; }; SOURCE(4008, 401) return(smallerList_v9088); } static void FindSequenceAndNeighbors_P540(formal_c0156, entity_v9232, entityList_v9260) word formal_c0156; word entity_v9232; word entityList_v9260; { word beforeEnt_v9388; word ent_v9416; word afterEnt_v9444; word found_v9472; word lastE_v17024 = 0; word eList_v17052; /* FindSequenceAndNeighbors: */ SOURCE(4451, 420) SOURCE(4451, 420) beforeEnt_v9388 = 0; SOURCE(4451, 420) ent_v9416 = 0; SOURCE(4451, 420) afterEnt_v9444 = 0; SOURCE(4451, 420) found_v9472 = 0; SOURCE(4640, 7) eList_v17052 = entityList_v9260; SOURCE(4678, 26) if ((eList_v17052 == 0)) { SOURCE(4698, 6) goto lab_L100014; }; SOURCE(4706, 165) lab_L100017: ; if ((eList_v17052 != 0)) { } else { goto lab_L100015; }; SOURCE(4727, 106) if (((* (ptr) eList_v17052 ) == entity_v9232)) { SOURCE(4758, 17) beforeEnt_v9388 = lastE_v17024; SOURCE(4777, 11) ent_v9416 = eList_v17052; SOURCE(4790, 21) afterEnt_v9444 = (* (( (ptr) eList_v17052)+1) ); SOURCE(4813, 12) found_v9472 = 1; SOURCE(4827, 6) goto lab_L100014; }; SOURCE(4838, 13) lastE_v17024 = eList_v17052; SOURCE(4853, 18) eList_v17052 = (* (( (ptr) eList_v17052)+1) ); goto lab_L100017; lab_L100015: ; /* removed tail goto */ lab_L100014: ; (* (ptr) formal_c0156 ) = beforeEnt_v9388; (* (( (ptr) formal_c0156)+1) ) = ent_v9416; (* (( (ptr) formal_c0156)+2) ) = afterEnt_v9444; (* (( (ptr) formal_c0156)+3) ) = found_v9472; return; } static void StartSliceDescriptorList_P600(formal_c0159) word formal_c0159; { word entityList_v9616; word ptr_v9644; /* StartSliceDescriptorList: */ SOURCE(4886, 118) SOURCE(4886, 118) entityList_v9616 = 0; SOURCE(4886, 118) ptr_v9644 = 0; SOURCE(4982, 22) entityList_v9616 = 0; ptr_v9644 = 0; /* removed tail goto */ (* (ptr) formal_c0159 ) = entityList_v9616; (* (( (ptr) formal_c0159)+1) ) = ptr_v9644; return; } static void AddSliceDescriptor_P660(formal_c0168, entity_v9788, entityList_v9816, ptr_v9844) word formal_c0168; word entity_v9788; word entityList_v9816; word ptr_v9844; { register ptr gf_c55904 = (ptr) &globalframe; word newList_v9972; word newPtr_v10000; /* AddSliceDescriptor: */ SOURCE(5010, 335) SOURCE(5010, 335) newList_v9972 = 0; SOURCE(5010, 335) newPtr_v10000 = 0; SOURCE(5165, 180) if ((ptr_v9844 == 0)) { SOURCE(5185, 29) if ((entityList_v9816 != 0)) { SOURCE(5214, 5) (void) XR_RaiseUnnamedError(); }; SOURCE(5221, 36) { word var_c50880; { word var_c50912; var_c50912 = XR_NewObject(8, (* (( (ptr) gf_c55904)+9) )); (* (ptr) var_c50912 ) = entity_v9788; var_c50880 = var_c50912; }; newList_v9972 = var_c50880; newPtr_v10000 = var_c50880; }; SOURCE(5259, 6) goto lab_L100019; } else { SOURCE(5276, 20) newList_v9972 = entityList_v9816; SOURCE(5298, 28) { word var_c50944; var_c50944 = XR_NewObject(8, (* (( (ptr) gf_c55904)+9) )); (* (ptr) var_c50944 ) = entity_v9788; (* (( (ptr) ptr_v9844)+1) ) = var_c50944; }; SOURCE(5328, 17) newPtr_v10000 = (* (( (ptr) ptr_v9844)+1) ); }; /* removed tail goto */ lab_L100019: ; (* (ptr) formal_c0168 ) = newList_v9972; (* (( (ptr) formal_c0168)+1) ) = newPtr_v10000; return; } static word AppendSliceDescriptorList_P720(list1_v10144, list2_v10172) word list1_v10144; word list2_v10172; { register ptr gf_c55936 = (ptr) &globalframe; word result_v10300; word pos_v17264 = 0; word newCell_v17292 = 0; /* AppendSliceDescriptorList: */ SOURCE(5354, 431) SOURCE(5354, 431) result_v10300 = 0; SOURCE(5543, 33) if ((list1_v10144 == 0)) { SOURCE(5563, 13) return(list2_v10172); }; SOURCE(5578, 31) { word var_c50976; var_c50976 = XR_NewObject(8, (* (( (ptr) gf_c55936)+9) )); (* (ptr) var_c50976 ) = (* (ptr) list1_v10144 ); result_v10300 = var_c50976; }; SOURCE(5611, 12) pos_v17264 = result_v10300; SOURCE(5625, 132) { register word l_v17504; l_v17504 = (* (( (ptr) list1_v10144)+1) ); lab_L100023: ; if ((l_v17504 != 0)) { } else { goto lab_L100020; }; SOURCE(5694, 28) { word var_c51008; var_c51008 = XR_NewObject(8, (* (( (ptr) gf_c55936)+9) )); (* (ptr) var_c51008 ) = (* (ptr) l_v17504 ); newCell_v17292 = var_c51008; }; SOURCE(5724, 18) (* (( (ptr) pos_v17264)+1) ) = newCell_v17292; SOURCE(5744, 13) pos_v17264 = newCell_v17292; l_v17504 = (* (( (ptr) l_v17504)+1) ); goto lab_L100023; lab_L100020: ; }; SOURCE(5768, 17) (* (( (ptr) pos_v17264)+1) ) = list2_v10172; SOURCE(5354, 431) return(result_v10300); } static word DeleteSliceDescriptorFromList_P780(sliceD_v10444, sliceDList_v10472) word sliceD_v10444; word sliceDList_v10472; { word smallerList_v10600; word beforeEnt_v17632 = 0; word ent_v17660 = 0; word afterEnt_v17688 = 0; word found_v17716 = 0; /* DeleteSliceDescriptorFromList: */ SOURCE(5791, 461) SOURCE(5791, 461) smallerList_v10600 = 0; SOURCE(6020, 87) { W4 var_c51040; (void) FindSliceDescriptorAndNeighbors_P840((word) &var_c51040, sliceD_v10444, sliceDList_v10472); found_v17716 = var_c51040.f3; afterEnt_v17688 = var_c51040.f2; ent_v17660 = var_c51040.f1; beforeEnt_v17632 = var_c51040.f0; }; SOURCE(6109, 36) if ((0 == found_v17716)) { SOURCE(6127, 18) return(sliceDList_v10472); }; SOURCE(6147, 105) if ((beforeEnt_v17632 == 0)) { SOURCE(6171, 28) smallerList_v10600 = afterEnt_v17688; } else { SOURCE(6201, 25) (* (( (ptr) beforeEnt_v17632)+1) ) = afterEnt_v17688; SOURCE(6228, 24) smallerList_v10600 = sliceDList_v10472; }; SOURCE(5791, 461) return(smallerList_v10600); } static void FindSliceDescriptorAndNeighbors_P840(formal_c0194, sliceD_v10744, sliceDList_v10772) word formal_c0194; word sliceD_v10744; word sliceDList_v10772; { word beforeEnt_v10900; word ent_v10928; word afterEnt_v10956; word found_v10984; word lastE_v17844 = 0; word eList_v17872; /* FindSliceDescriptorAndNeighbors: */ SOURCE(6261, 462) SOURCE(6261, 462) beforeEnt_v10900 = 0; SOURCE(6261, 462) ent_v10928 = 0; SOURCE(6261, 462) afterEnt_v10956 = 0; SOURCE(6261, 462) found_v10984 = 0; SOURCE(6485, 7) eList_v17872 = sliceDList_v10772; SOURCE(6530, 26) if ((eList_v17872 == 0)) { SOURCE(6550, 6) goto lab_L100024; }; SOURCE(6558, 165) lab_L100027: ; if ((eList_v17872 != 0)) { } else { goto lab_L100025; }; SOURCE(6579, 106) if (((* (ptr) eList_v17872 ) == sliceD_v10744)) { SOURCE(6610, 17) beforeEnt_v10900 = lastE_v17844; SOURCE(6629, 11) ent_v10928 = eList_v17872; SOURCE(6642, 21) afterEnt_v10956 = (* (( (ptr) eList_v17872)+1) ); SOURCE(6665, 12) found_v10984 = 1; SOURCE(6679, 6) goto lab_L100024; }; SOURCE(6690, 13) lastE_v17844 = eList_v17872; SOURCE(6705, 18) eList_v17872 = (* (( (ptr) eList_v17872)+1) ); goto lab_L100027; lab_L100025: ; /* removed tail goto */ lab_L100024: ; (* (ptr) formal_c0194 ) = beforeEnt_v10900; (* (( (ptr) formal_c0194)+1) ) = ent_v10928; (* (( (ptr) formal_c0194)+2) ) = afterEnt_v10956; (* (( (ptr) formal_c0194)+3) ) = found_v10984; return; } static word CopySliceDescriptorList_P900(l1_v11128) word l1_v11128; { register ptr gf_c55968 = (ptr) &globalframe; word val_v11256; word z_v18084 = 0; /* CopySliceDescriptorList: */ SOURCE(6738, 316) SOURCE(6738, 316) val_v11256 = 0; SOURCE(6882, 9) val_v11256 = 0; SOURCE(6893, 28) if ((l1_v11128 == 0)) { SOURCE(6910, 11) return(val_v11256); }; SOURCE(6923, 25) { word var_c51072; var_c51072 = XR_NewObject(8, (* (( (ptr) gf_c55968)+9) )); (* (ptr) var_c51072 ) = (* (ptr) l1_v11128 ); (* (( (ptr) var_c51072)+1) ) = val_v11256; val_v11256 = var_c51072; }; SOURCE(6950, 7) z_v18084 = val_v11256; SOURCE(6959, 73) lab_L100030: ; l1_v11128 = (* (( (ptr) l1_v11128)+1) ); if ((l1_v11128 != 0)) { } else { goto lab_L100028; }; SOURCE(6989, 31) { word var_c51104; var_c51104 = XR_NewObject(8, (* (( (ptr) gf_c55968)+9) )); (* (ptr) var_c51104 ) = (* (ptr) l1_v11128 ); (* (( (ptr) var_c51104)+1) ) = (* (( (ptr) z_v18084)+1) ); (* (( (ptr) z_v18084)+1) ) = var_c51104; }; SOURCE(7022, 10) z_v18084 = (* (( (ptr) z_v18084)+1) ); goto lab_L100030; lab_L100028: ; SOURCE(7043, 11) return(val_v11256); } static word AllFalse_P960(bitvec_v11400) word bitvec_v11400; { word var_c11444; /* AllFalse: */ SOURCE(7073, 155) SOURCE(7134, 71) { register word i_v18212 = 0; register word noName_c51136; noName_c51136 = (* (ptr) bitvec_v11400 ); if ((i_v18212 >= noName_c51136)) { goto lab_L100031; }; lab_L100034: ; SOURCE(7167, 38) { word limit82; if (( (unsigned) XR_ExtractField(bitvec_v11400, 32 + (word) ( limit82 = (* (ptr) bitvec_v11400 ), BCK(i_v18212, limit82) ), 1) == 1)) { SOURCE(7192, 13) return(0); }; }; i_v18212 = (i_v18212 + 1); if ((i_v18212 < noName_c51136)) { goto lab_L100034; }; lab_L100031: ; }; SOURCE(7216, 12) return(1); } static word AllTrue_P1020(bitvec_v11504) word bitvec_v11504; { word var_c11548; /* AllTrue: */ SOURCE(7234, 155) SOURCE(7294, 72) { register word i_v18256 = 0; register word noName_c51168; noName_c51168 = (* (ptr) bitvec_v11504 ); if ((i_v18256 >= noName_c51168)) { goto lab_L100035; }; lab_L100038: ; SOURCE(7327, 39) { word limit83; if (( (unsigned) XR_ExtractField(bitvec_v11504, 32 + (word) ( limit83 = (* (ptr) bitvec_v11504 ), BCK(i_v18256, limit83) ), 1) == 0)) { SOURCE(7353, 13) return(0); }; }; i_v18256 = (i_v18256 + 1); if ((i_v18256 < noName_c51168)) { goto lab_L100038; }; lab_L100035: ; }; SOURCE(7377, 12) return(1); } static word CopyPattern_P1080(pattern_v11608) word pattern_v11608; { register ptr gf_c56000 = (ptr) &globalframe; word new_v11652; /* CopyPattern: */ SOURCE(7396, 226) SOURCE(7396, 226) new_v11652 = 0; SOURCE(7481, 31) if ((pattern_v11608 == 0)) { SOURCE(7501, 11) return(0); }; SOURCE(7514, 41) { word var_c51200; word var_c51232; word var_c51264; { word idx84; var_c51200 = ( idx84 = (* (ptr) pattern_v11608 ), BCK(idx84, 67108863) ); }; var_c51232 = ((word) var_c51200 << 2); var_c51264 = XR_NewObject((4 + var_c51232), (* (( (ptr) gf_c56000)+10) )); (* (ptr) var_c51264 ) = var_c51200; new_v11652 = var_c51264; }; SOURCE(7557, 65) { register word index_v18300 = 0; register word noName_c51296; noName_c51296 = (* (ptr) pattern_v11608 ); if ((index_v18300 >= noName_c51296)) { goto lab_L100039; }; lab_L100042: ; SOURCE(7595, 27) { word limit85; word limit86; (* ((( (ptr) new_v11652)+1)+( limit85 = (* (ptr) new_v11652 ), BCK(index_v18300, limit85) )) ) = (* ((( (ptr) pattern_v11608)+1)+( limit86 = (* (ptr) pattern_v11608 ), BCK(index_v18300, limit86) )) ); }; index_v18300 = (index_v18300 + 1); if ((index_v18300 < noName_c51296)) { goto lab_L100042; }; lab_L100039: ; }; SOURCE(7396, 226) return(new_v11652); } static word EquivalentPatterns_P1140(p1_v11712, p2_v11740) word p1_v11712; word p2_v11740; { word var_c11784; /* EquivalentPatterns: */ SOURCE(7637, 210) SOURCE(7637, 210) var_c11784 = 0; SOURCE(7721, 37) if (((* (ptr) p1_v11712 ) != (* (ptr) p2_v11740 ))) { SOURCE(7745, 13) return(0); }; SOURCE(7760, 64) { register word i_v18344 = 0; register word noName_c51328; noName_c51328 = (* (ptr) p1_v11712 ); if ((i_v18344 >= noName_c51328)) { goto lab_L100043; }; lab_L100046: ; SOURCE(7789, 35) { word limit87; word x88; word limit89; word x90; if ((( x88 = (* ((( (ptr) p1_v11712)+1)+( limit87 = (* (ptr) p1_v11712 ), BCK(i_v18344, limit87) )) ), *(float*)&x88 ) != ( x90 = (* ((( (ptr) p2_v11740)+1)+( limit89 = (* (ptr) p2_v11740 ), BCK(i_v18344, limit89) )) ), *(float*)&x90 ))) { SOURCE(7811, 13) return(0); }; }; i_v18344 = (i_v18344 + 1); if ((i_v18344 < noName_c51328)) { goto lab_L100046; }; lab_L100043: ; }; SOURCE(7835, 12) return(1); } static void HSVFromColor_P1200(formal_c0227, color_v11844) word formal_c0227; word color_v11844; { register ptr gf_c56032 = (ptr) &globalframe; W3 var_c11888; /* HSVFromColor: */ SOURCE(7904, 167) SOURCE(7973, 98) { W3 var_c51520; { W3 var_c51392; { word var_c51424; { word pd91; pd91 = (* (( (ptr) (* (( (ptr) gf_c56032)+168)/* var_c51456 */ ))+8) ); var_c51424 = (word) ( *( (fPt) ((* (ptr) pd91 ))))(color_v11844, pd91); }; { word pd92; pd92 = (* (( (ptr) (* (( (ptr) gf_c56032)+168)/* var_c51456 */ ))+18) ); (void) ( *( (fPt) ((* (ptr) pd92 ))))((word) &var_c51392, var_c51424, pd92); }; }; { W3 var_c0226; { word pd93; pd93 = (* (( (ptr) (* (( (ptr) gf_c56032)+169)/* var_c51488 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd93 ))))((word) &var_c0226, var_c51392, pd93); }; var_c51520 = var_c0226; }; }; var_c11888 = var_c51520; /* removed tail goto */ }; (* (W3Pt) formal_c0227 ) = var_c11888; return; } static word ChangeHue_P1260(startColor_v11948, hueFrom_v11976) word startColor_v11948; word hueFrom_v11976; { register ptr gf_c56064 = (ptr) &globalframe; word var_c12020; /* ChangeHue: */ SOURCE(8077, 367) SOURCE(8156, 247) { word var_c51552; var_c51552 = startColor_v11948; if ((var_c51552 == 0)) { goto lab_L100048; }; if (((* (ptr) var_c51552 ) == 0)) { { word startColor_v18388; startColor_v18388 = var_c51552; SOURCE(8213, 190) { word var_c51584; var_c51584 = hueFrom_v11976; if ((var_c51584 == 0)) { goto lab_L100049; }; if (((* (ptr) var_c51584 ) == 0)) { { word hueFrom_v18432; hueFrom_v18432 = var_c51584; SOURCE(8264, 141) { W3 hsv_v18476; W3 var_c0237; SOURCE(8266, 44) (void) HSVFromColor_P1200((word) &hsv_v18476, startColor_v18388); SOURCE(8312, 31) (void) HSVFromColor_P1200((word) &var_c0237, hueFrom_v18432); hsv_v18476.f0 = var_c0237.f0; SOURCE(8345, 58) { W3 var_c0239; W3 var_c51648; { /*1*/ word pd94; /*1*/ pd94 = (* (( (ptr) (* (( (ptr) gf_c56064)+169)/* var_c51488 */ ))+5) ); /*1*/ (void) ( *( (fPt) ((* (ptr) pd94 ))))((word) &var_c0239, hsv_v18476, pd94); /*1*/ }; var_c51648 = var_c0239; { /*1*/ word pd95; /*1*/ pd95 = (* (( (ptr) (* (( (ptr) gf_c56064)+168)/* var_c51456 */ ))+17) ); /*1*/ return((word) ( *( (fPt) ((* (ptr) pd95 ))))(var_c51648, pd95)); /*1*/ }; }; }; }; } else { lab_L100049: ; }; }; }; } else { lab_L100048: ; }; }; SOURCE(8426, 18) return(startColor_v11948); } static word ColorToRope_P1320(color_v12080) word color_v12080; { register ptr gf_c56096 = (ptr) &globalframe; word rope_v12124; word stream_v18520 = 0; /* ColorToRope: */ SOURCE(8450, 182) SOURCE(8450, 182) rope_v12124 = 0; SOURCE(8546, 17) { word pd96; pd96 = (* (( (ptr) (* (( (ptr) gf_c56096)+170)/* var_c51680 */ ))+34) ); stream_v18520 = (word) ( *( (fPt) ((* (ptr) pd96 ))))(0, pd96); }; SOURCE(8565, 36) { word pd97; pd97 = (* (( (ptr) (* (( (ptr) gf_c56096)+171)/* var_c51712 */ ))+6) ); (void) ( *( (fPt) ((* (ptr) pd97 ))))(stream_v18520, color_v12080, pd97); }; SOURCE(8603, 29) { word pd98; pd98 = (* (( (ptr) (* (( (ptr) gf_c56096)+170)/* var_c51680 */ ))+35) ); rope_v12124 = (word) ( *( (fPt) ((* (ptr) pd98 ))))(stream_v18520, 1, pd98); }; SOURCE(8450, 182) return(rope_v12124); } static word ColorFromRope_P1380(rope_v12184) word rope_v12184; { register ptr gf_c56128 = (ptr) &globalframe; word color_v12228; word stream_v18564 = 0; word version_v18592; /* ColorFromRope: */ SOURCE(8638, 200) SOURCE(8638, 200) color_v12228 = 0; SOURCE(8736, 33) version_v18592 = (* (ptr) (* (( (ptr) (* (( (ptr) gf_c56128)+172)/* var_c51744 */ ))+4) ) ); SOURCE(8771, 21) { word pd99; pd99 = (* (( (ptr) (* (( (ptr) gf_c56128)+170)/* var_c51680 */ ))+33) ); stream_v18564 = (word) ( *( (fPt) ((* (ptr) pd99 ))))(rope_v12184, 0, pd99); }; SOURCE(8794, 44) { word pd100; pd100 = (* (( (ptr) (* (( (ptr) gf_c56128)+173)/* var_c51776 */ ))+16) ); color_v12228 = (word) ( *( (fPt) ((* (ptr) pd100 ))))(stream_v18564, version_v18592, pd100); }; SOURCE(8638, 200) return(color_v12228); } static word ColorToRGBRope_P1440(formal_c0596) word formal_c0596; { W6 var_c56160; /* declaration of color_v12288 skipped */ register ptr gf_c56192 = (ptr) &globalframe; /* declaration of rope_v12332 skipped */ var_c56160.f4/* color_v12288 */ = formal_c0596; /* ColorToRGBRope: */ SOURCE(8844, 388) SOURCE(8844, 388) var_c56160.f5/* rope_v12332 */ = 0; SOURCE(8922, 310) SOURCE(8924, 270) { word var_c01; { word var_c0578; var_c0578 = (word) &var_c56160; var_c01 = (word) XR_Enable(( ((word) (fPt) NoName_Q4536) ), ( ((word) (fPt) NoName_Q4956) ), var_c0578); }; if ((var_c01 == 2)) { goto lab_L100050; }; }; goto lab_L100054; lab_L100050: ; SOURCE(9211, 18) var_c56160.f5/* rope_v12332 */ = (* (( (ptr) gf_c56192)+51) ); lab_L100054: ; SOURCE(8844, 388) return(var_c56160.f5/* rope_v12332 */ ); } static word NoName_Q4536(formal_c0532) word formal_c0532; { register ptr gf_c0531 = (ptr) &globalframe; SOURCE(8977, 51) { word constantColor_v18636; word red_v18664; word green_v18692; word blue_v18720; SOURCE(8977, 51) if (((* (( (ptr) formal_c0532)+4) ) == 0)) { goto lab_L100053; }; if (((* (ptr) (* (( (ptr) formal_c0532)+4) ) ) == 0)) { goto lab_L100053; }; (void) XR_RaiseError(XR_NarrowFault, 0); lab_L100053: ; constantColor_v18636 = (* (( (ptr) formal_c0532)+4) ); SOURCE(9054, 54) { W3 var_c51904; { word pd101; pd101 = (* (( (ptr) (* (( (ptr) gf_c0531)+176)/* var_c51872 */ ))+34) ); (void) ( *( (fPt) ((* (ptr) pd101 ))))((word) &var_c51904, constantColor_v18636, pd101); }; blue_v18720 = var_c51904.f2; green_v18692 = var_c51904.f1; red_v18664 = var_c51904.f0; }; SOURCE(9110, 84) { W2 var_c51936; W2 var_c51968; W2 var_c52000; var_c51936.f0 = 8; var_c51936.f1 = red_v18664; var_c51968.f0 = 8; var_c51968.f1 = green_v18692; var_c52000.f0 = 8; var_c52000.f1 = blue_v18720; { word pd102; pd102 = (* (( (ptr) (* (( (ptr) gf_c0531)+170)/* var_c51680 */ ))+62) ); (* (( (ptr) formal_c0532)+5) ) = (word) ( *( (fPt) ((* (ptr) pd102 ))))((* (( (ptr) gf_c0531)+52) ), var_c51936, var_c51968, var_c52000, pd102) ; }; }; }; return(0); } static word ColorToCMYKRope_P1500(formal_c0597) word formal_c0597; { W6 var_c56224; /* declaration of color_v12392 skipped */ register ptr gf_c56256 = (ptr) &globalframe; /* declaration of rope_v12436 skipped */ var_c56224.f4/* color_v12392 */ = formal_c0597; /* ColorToCMYKRope: */ SOURCE(9236, 527) SOURCE(9236, 527) var_c56224.f5/* rope_v12436 */ = 0; SOURCE(9315, 448) SOURCE(9317, 407) { word var_c02; { word var_c0579; var_c0579 = (word) &var_c56224; var_c02 = (word) XR_Enable(( ((word) (fPt) NoName_Q4596) ), ( ((word) (fPt) NoName_Q4896) ), var_c0579); }; if ((var_c02 == 3)) { goto lab_L100055; }; }; goto lab_L100059; lab_L100055: ; SOURCE(9741, 19) var_c56224.f5/* rope_v12436 */ = (* (( (ptr) gf_c56256)+41) ); lab_L100059: ; SOURCE(9236, 527) return(var_c56224.f5/* rope_v12436 */ ); } static word NoName_Q4596(formal_c0535) word formal_c0535; { register ptr gf_c0534 = (ptr) &globalframe; SOURCE(9370, 51) { word constantColor_v18764; word cyan_v18792; word magenta_v18820; word yellow_v18848; word black_v18876; SOURCE(9370, 51) if (((* (( (ptr) formal_c0535)+4) ) == 0)) { goto lab_L100058; }; if (((* (ptr) (* (( (ptr) formal_c0535)+4) ) ) == 0)) { goto lab_L100058; }; (void) XR_RaiseError(XR_NarrowFault, 0); lab_L100058: ; constantColor_v18764 = (* (( (ptr) formal_c0535)+4) ); SOURCE(9459, 63) if ( ( (constantColor_v18764 == 0) ? ! 1 : ! ((* (( (ptr) constantColor_v18764)+1) ) == 0) ) ) { SOURCE(9522, 10) return(3); }; SOURCE(9534, 70) { W4 var_c52064; { word pd103; pd103 = (* (( (ptr) (* (( (ptr) gf_c0534)+177)/* var_c52032 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd103 ))))((word) &var_c52064, constantColor_v18764, pd103); }; black_v18876 = var_c52064.f3; yellow_v18848 = var_c52064.f2; magenta_v18820 = var_c52064.f1; cyan_v18792 = var_c52064.f0; }; SOURCE(9606, 118) { word var_c52096; { word var_c52128; word var_c52160; var_c52128 = XR_NewObject(12, (* (( (ptr) gf_c0534)+17) )); var_c52160 = var_c52128; (* (ptr) var_c52160 ) = 8; (* (( (ptr) var_c52160)+1) ) = cyan_v18792; (* (( (ptr) var_c52160)+2) ) = XR_NewObject(12, (* (( (ptr) gf_c0534)+17) )); var_c52160 = (* (( (ptr) var_c52160)+2) ); (* (ptr) var_c52160 ) = 8; (* (( (ptr) var_c52160)+1) ) = magenta_v18820; (* (( (ptr) var_c52160)+2) ) = XR_NewObject(12, (* (( (ptr) gf_c0534)+17) )); var_c52160 = (* (( (ptr) var_c52160)+2) ); (* (ptr) var_c52160 ) = 8; (* (( (ptr) var_c52160)+1) ) = yellow_v18848; (* (( (ptr) var_c52160)+2) ) = XR_NewObject(12, (* (( (ptr) gf_c0534)+17) )); var_c52160 = (* (( (ptr) var_c52160)+2) ); (* (ptr) var_c52160 ) = 8; (* (( (ptr) var_c52160)+1) ) = black_v18876; var_c52096 = var_c52128; }; { word pd104; pd104 = (* (( (ptr) (* (( (ptr) gf_c0534)+170)/* var_c51680 */ ))+65) ); (* (( (ptr) formal_c0535)+5) ) = (word) ( *( (fPt) ((* (ptr) pd104 ))))((* (( (ptr) gf_c0534)+47) ), var_c52096, pd104); }; }; }; return(0); } static word ColorToIntensityRope_P1560(formal_c0598) word formal_c0598; { W6 var_c56288; /* declaration of color_v12496 skipped */ register ptr gf_c56320 = (ptr) &globalframe; /* declaration of rope_v12540 skipped */ var_c56288.f4/* color_v12496 */ = formal_c0598; /* ColorToIntensityRope: */ SOURCE(9767, 354) SOURCE(9767, 354) var_c56288.f5/* rope_v12540 */ = 0; SOURCE(9851, 270) SOURCE(9853, 224) { word var_c03; { word var_c0580; var_c0580 = (word) &var_c56288; var_c03 = (word) XR_Enable(( ((word) (fPt) NoName_Q4656) ), ( ((word) (fPt) NoName_Q4836) ), var_c0580); }; if ((var_c03 == 4)) { goto lab_L100060; }; }; goto lab_L100064; lab_L100060: ; SOURCE(10094, 24) var_c56288.f5/* rope_v12540 */ = (* (( (ptr) gf_c56320)+27) ); lab_L100064: ; SOURCE(9767, 354) return(var_c56288.f5/* rope_v12540 */ ); } static word NoName_Q4656(formal_c0538) word formal_c0538; { register ptr gf_c0537 = (ptr) &globalframe; SOURCE(9906, 51) { word constantColor_v18920; word intensity_v18948; SOURCE(9906, 51) if (((* (( (ptr) formal_c0538)+4) ) == 0)) { goto lab_L100063; }; if (((* (ptr) (* (( (ptr) formal_c0538)+4) ) ) == 0)) { goto lab_L100063; }; (void) XR_RaiseError(XR_NarrowFault, 0); lab_L100063: ; constantColor_v18920 = (* (( (ptr) formal_c0538)+4) ); SOURCE(9959, 60) { word pd105; pd105 = (* (( (ptr) (* (( (ptr) gf_c0537)+177)/* var_c52032 */ ))+8) ); intensity_v18948 = (word) ( *( (fPt) ((* (ptr) pd105 ))))(constantColor_v18920, pd105); }; SOURCE(10021, 56) { W2 var_c52192; var_c52192.f0 = 8; var_c52192.f1 = intensity_v18948; { word pd106; pd106 = (* (( (ptr) (* (( (ptr) gf_c0537)+170)/* var_c51680 */ ))+63) ); (* (( (ptr) formal_c0538)+5) ) = (word) ( *( (fPt) ((* (ptr) pd106 ))))((* (( (ptr) gf_c0537)+28) ), var_c52192, pd106); }; }; }; return(0); } static word ColorToNameRope_P1620(formal_c0599) word formal_c0599; { W6 var_c56352; /* declaration of color_v12600 skipped */ register ptr gf_c56384 = (ptr) &globalframe; /* declaration of rope_v12644 skipped */ var_c56352.f4/* color_v12600 */ = formal_c0599; /* ColorToNameRope: */ SOURCE(10125, 367) SOURCE(10125, 367) var_c56352.f5/* rope_v12644 */ = 0; SOURCE(10204, 288) SOURCE(10206, 253) { word var_c04; { word var_c0581; var_c0581 = (word) &var_c56352; var_c04 = (word) XR_Enable(( ((word) (fPt) NoName_Q4716) ), ( ((word) (fPt) NoName_Q4776) ), var_c0581); }; if ((var_c04 == 5)) { goto lab_L100065; }; }; goto lab_L100069; lab_L100065: ; SOURCE(10476, 13) var_c56352.f5/* rope_v12644 */ = (* (( (ptr) gf_c56384)+25) ); lab_L100069: ; SOURCE(10125, 367) return(var_c56352.f5/* rope_v12644 */ ); } static word NoName_Q4716(formal_c0541) word formal_c0541; { register ptr gf_c0540 = (ptr) &globalframe; SOURCE(10259, 51) { word constantColor_v18992; word red_v19020; word green_v19048; word blue_v19076; SOURCE(10259, 51) if (((* (( (ptr) formal_c0541)+4) ) == 0)) { goto lab_L100068; }; if (((* (ptr) (* (( (ptr) formal_c0541)+4) ) ) == 0)) { goto lab_L100068; }; (void) XR_RaiseError(XR_NarrowFault, 0); lab_L100068: ; constantColor_v18992 = (* (( (ptr) formal_c0541)+4) ); SOURCE(10336, 54) { W3 var_c52224; { word pd107; pd107 = (* (( (ptr) (* (( (ptr) gf_c0540)+176)/* var_c51872 */ ))+34) ); (void) ( *( (fPt) ((* (ptr) pd107 ))))((word) &var_c52224, constantColor_v18992, pd107); }; blue_v19076 = var_c52224.f2; green_v19048 = var_c52224.f1; red_v19020 = var_c52224.f0; }; SOURCE(10392, 67) { W3 var_c52256; { W3 var_c0285; { W3 var_c52288; var_c52288.f0 = red_v19020; var_c52288.f1 = green_v19048; var_c52288.f2 = blue_v19076; { word pd108; pd108 = (* (( (ptr) (* (( (ptr) gf_c0540)+169)/* var_c51488 */ ))+6) ); (void) ( *( (fPt) ((* (ptr) pd108 ))))((word) &var_c0285, var_c52288, pd108); }; }; var_c52256 = var_c0285; }; { word pd109; pd109 = (* (( (ptr) (* (( (ptr) gf_c0540)+178)/* var_c52320 */ ))+7) ); (* (( (ptr) formal_c0541)+5) ) = (word) ( *( (fPt) ((* (ptr) pd109 ))))(var_c52256, 2, pd109); }; }; }; return(0); } static word PolygonInCircle_P1680(sideCount_v12704, origin_v12732, radius_v12760, defaults_v12788) word sideCount_v12704; W2 origin_v12732; word radius_v12760; word defaults_v12788; { register ptr gf_c56416 = (ptr) &globalframe; word outline_v12832; word traj_v19120 = 0; word theta0_v19148; word theta_v19176; word deltaTheta_v19204; word sin_v19232; word cos_v19260; W2 lastPoint_v19288; W2 thisPoint_v19316; word success_v19344; word seg_v19372 = 0; /* PolygonInCircle: */ SOURCE(10495, 1477) SOURCE(10495, 1477) outline_v12832 = 0; SOURCE(10735, 33) if ((sideCount_v12704 == 0)) { SOURCE(10757, 11) return(0); }; SOURCE(10770, 28) { word x111; *(float*)&deltaTheta_v19204 = ( x111 = (* (ptr) &fc110 ), *(float*)&x111 ) / (float)(unsigned)sideCount_v12704; }; SOURCE(10800, 31) { word x113; word x114; word x116; *(float*)&theta0_v19148 = ( x113 = (* (ptr) &fc112 ), *(float*)&x113 ) + (( x114 = deltaTheta_v19204, *(float*)&x114 ) / ( x116 = (* (ptr) &fc115 ), *(float*)&x116 )); }; SOURCE(10833, 28) { word pd117; pd117 = (* (( (ptr) (* (( (ptr) gf_c56416)+179)/* var_c52352 */ ))+11) ); sin_v19232 = (word) ( *( (fPt) ((* (ptr) pd117 ))))(theta0_v19148, pd117); }; SOURCE(10863, 28) { word pd118; pd118 = (* (( (ptr) (* (( (ptr) gf_c56416)+179)/* var_c52352 */ ))+13) ); cos_v19260 = (word) ( *( (fPt) ((* (ptr) pd118 ))))(theta0_v19148, pd118); }; SOURCE(10893, 70) { W2 var_c52384; { W2 var_c0303; { W2 var_c52416; var_c52416.f0 = cos_v19260; var_c52416.f1 = sin_v19232; { word pd119; pd119 = (* (( (ptr) (* (( (ptr) gf_c56416)+180)/* var_c52448 */ ))+12) ); (void) ( *( (fPt) ((* (ptr) pd119 ))))((word) &var_c0303, var_c52416, radius_v12760, pd119); }; }; var_c52384 = var_c0303; }; { W2 var_c0304; { word pd120; pd120 = (* (( (ptr) (* (( (ptr) gf_c56416)+180)/* var_c52448 */ ))+10) ); (void) ( *( (fPt) ((* (ptr) pd120 ))))((word) &var_c0304, var_c52384, origin_v12732, pd120); }; thisPoint_v19316 = var_c0304; }; }; SOURCE(10965, 35) { word pd121; pd121 = (* (( (ptr) (* (( (ptr) gf_c56416)+181)/* var_c52480 */ ))+4) ); traj_v19120 = (word) ( *( (fPt) ((* (ptr) pd121 ))))(thisPoint_v19316, pd121); }; SOURCE(11002, 21) lastPoint_v19288 = thisPoint_v19316; SOURCE(11025, 418) { register word i_v19416 = 1; register word noName_c52512; noName_c52512 = sideCount_v12704; if ((i_v19416 >= noName_c52512)) { goto lab_L100070; }; lab_L100073: ; SOURCE(11057, 29) { word x122; word x123; *(float*)&theta_v19176 = ( x122 = theta0_v19148, *(float*)&x122 ) + ((float)(unsigned)i_v19416 * ( x123 = deltaTheta_v19204, *(float*)&x123 )); }; SOURCE(11088, 27) { word pd124; pd124 = (* (( (ptr) (* (( (ptr) gf_c56416)+179)/* var_c52352 */ ))+11) ); sin_v19232 = (word) ( *( (fPt) ((* (ptr) pd124 ))))(theta_v19176, pd124); }; SOURCE(11117, 27) { word pd125; pd125 = (* (( (ptr) (* (( (ptr) gf_c56416)+179)/* var_c52352 */ ))+13) ); cos_v19260 = (word) ( *( (fPt) ((* (ptr) pd125 ))))(theta_v19176, pd125); }; SOURCE(11146, 70) { W2 var_c52544; { W2 var_c0309; { W2 var_c52576; var_c52576.f0 = cos_v19260; var_c52576.f1 = sin_v19232; { word pd126; pd126 = (* (( (ptr) (* (( (ptr) gf_c56416)+180)/* var_c52448 */ ))+12) ); (void) ( *( (fPt) ((* (ptr) pd126 ))))((word) &var_c0309, var_c52576, radius_v12760, pd126); }; }; var_c52544 = var_c0309; }; { W2 var_c0310; { word pd127; pd127 = (* (( (ptr) (* (( (ptr) gf_c56416)+180)/* var_c52448 */ ))+10) ); (void) ( *( (fPt) ((* (ptr) pd127 ))))((word) &var_c0310, var_c52544, origin_v12732, pd127); }; thisPoint_v19316 = var_c0310; }; }; SOURCE(11218, 51) { word pd128; pd128 = (* (( (ptr) (* (( (ptr) gf_c56416)+182)/* var_c52608 */ ))+5) ); seg_v19372 = (word) ( *( (fPt) ((* (ptr) pd128 ))))(lastPoint_v19288, thisPoint_v19316, 0, pd128); }; SOURCE(11271, 36) { word pd129; pd129 = (* (( (ptr) (* (( (ptr) gf_c56416)+182)/* var_c52608 */ ))+16) ); (void) ( *( (fPt) ((* (ptr) pd129 ))))(seg_v19372, defaults_v12788, pd129); }; SOURCE(11309, 46) { word pd130; pd130 = (* (( (ptr) (* (( (ptr) gf_c56416)+181)/* var_c52480 */ ))+6) ); success_v19344 = (word) ( *( (fPt) ((* (ptr) pd130 ))))(traj_v19120, 1, seg_v19372, 0, pd130); }; SOURCE(11357, 63) if ((0 == success_v19344)) { SOURCE(11377, 43) { word var_c0311; var_c0311 = (* (( (ptr) gf_c56416)+24) ); (void) (XR_RaiseSignal((word) (( (bPt) gf_c56416)+224), 0, (word) &var_c0311)); }; }; SOURCE(11422, 21) lastPoint_v19288 = thisPoint_v19316; i_v19416 = (i_v19416 + 1); if ((i_v19416 < noName_c52512)) { goto lab_L100073; }; lab_L100070: ; }; SOURCE(11454, 28) { word pd131; pd131 = (* (( (ptr) (* (( (ptr) gf_c56416)+179)/* var_c52352 */ ))+11) ); sin_v19232 = (word) ( *( (fPt) ((* (ptr) pd131 ))))(theta0_v19148, pd131); }; SOURCE(11484, 28) { word pd132; pd132 = (* (( (ptr) (* (( (ptr) gf_c56416)+179)/* var_c52352 */ ))+13) ); cos_v19260 = (word) ( *( (fPt) ((* (ptr) pd132 ))))(theta0_v19148, pd132); }; SOURCE(11514, 70) { W2 var_c52640; { W2 var_c0314; { W2 var_c52672; var_c52672.f0 = cos_v19260; var_c52672.f1 = sin_v19232; { word pd133; pd133 = (* (( (ptr) (* (( (ptr) gf_c56416)+180)/* var_c52448 */ ))+12) ); (void) ( *( (fPt) ((* (ptr) pd133 ))))((word) &var_c0314, var_c52672, radius_v12760, pd133); }; }; var_c52640 = var_c0314; }; { W2 var_c0315; { word pd134; pd134 = (* (( (ptr) (* (( (ptr) gf_c56416)+180)/* var_c52448 */ ))+10) ); (void) ( *( (fPt) ((* (ptr) pd134 ))))((word) &var_c0315, var_c52640, origin_v12732, pd134); }; thisPoint_v19316 = var_c0315; }; }; SOURCE(11586, 51) { word pd135; pd135 = (* (( (ptr) (* (( (ptr) gf_c56416)+182)/* var_c52608 */ ))+5) ); seg_v19372 = (word) ( *( (fPt) ((* (ptr) pd135 ))))(lastPoint_v19288, thisPoint_v19316, 0, pd135); }; SOURCE(11639, 36) { word pd136; pd136 = (* (( (ptr) (* (( (ptr) gf_c56416)+182)/* var_c52608 */ ))+16) ); (void) ( *( (fPt) ((* (ptr) pd136 ))))(seg_v19372, defaults_v12788, pd136); }; SOURCE(11677, 38) { word pd137; pd137 = (* (( (ptr) (* (( (ptr) gf_c56416)+181)/* var_c52480 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd137 ))))(traj_v19120, seg_v19372, 0, pd137); }; SOURCE(11717, 71) { word var_c52704; { word pd138; pd138 = (* (( (ptr) (* (( (ptr) gf_c56416)+168)/* var_c51456 */ ))+11) ); var_c52704 = (word) ( *( (fPt) ((* (ptr) pd138 ))))((* (ptr) (&fc139) ), pd138); }; { word pd140; pd140 = (* (( (ptr) (* (( (ptr) gf_c56416)+183)/* var_c52736 */ ))+5) ); outline_v12832 = (word) ( *( (fPt) ((* (ptr) pd140 ))))(traj_v19120, var_c52704, pd140); }; }; SOURCE(11790, 112) { word var_c52768; { word pd141; pd141 = (* (( (ptr) (* (( (ptr) gf_c56416)+184)/* var_c52800 */ ))+29) ); var_c52768 = (* (( (ptr) ( *( (fPt) ((* (ptr) pd141 ))))(outline_v12832, 0, 7, pd141))+1) ); }; { word pd142; pd142 = (* (( (ptr) (* (( (ptr) gf_c56416)+184)/* var_c52800 */ ))+57) ); (void) ( *( (fPt) ((* (ptr) pd142 ))))(outline_v12832, var_c52768, (* (( (ptr) defaults_v12788)+1) ), 0, pd142); }; }; SOURCE(11904, 68) { word pd143; pd143 = (* (( (ptr) (* (( (ptr) gf_c56416)+184)/* var_c52800 */ ))+61) ); (void) ( *( (fPt) ((* (ptr) pd143 ))))(outline_v12832, 0, (* (( (ptr) defaults_v12788)+8) ), (* (( (ptr) gf_c56416)+26) ), 0, pd143) ; }; SOURCE(10495, 1477) return(outline_v12832); } static word Box_P1740(origin_v12892, sideLength_v12920, defaults_v12948) W2 origin_v12892; word sideLength_v12920; word defaults_v12948; { register ptr gf_c56448 = (ptr) &globalframe; word slice_v12992; word halfSide_v19460; word box_v19488; word sliceD_v19516; word completeSliceD_v19544; /* Box: */ SOURCE(11978, 515) SOURCE(11978, 515) slice_v12992 = 0; SOURCE(12079, 31) { word x144; word x145; *(float*)&halfSide_v19460 = ( x144 = sideLength_v12920, *(float*)&x144 ) / ( x145 = (* (ptr) &fc115 ), *(float*)&x145 ); }; SOURCE(12112, 128) { word pd146; word x147; word x148; float tf149; word x150; word x151; float tf152; word x153; word x154; float tf155; word x156; word x157; float tf158; pd146 = (* (( (ptr) (* (( (ptr) gf_c56448)+185)/* var_c52832 */ ))+5) ); box_v19488 = (word) ( *( (fPt) ((* (ptr) pd146 ))))(( tf149 = ( x147 = origin_v12892.f0, *(float*)&x147 ) - ( x148 = halfSide_v19460, *(float*)&x148 ), *(word*)&tf149 ), ( tf152 = ( x150 = origin_v12892.f1, *(float*)&x150 ) - ( x151 = halfSide_v19460, *(float*)&x151 ), *(word*)&tf152 ), ( tf155 = ( x153 = origin_v12892.f0, *(float*)&x153 ) + ( x154 = halfSide_v19460, *(float*)&x154 ), *(word*)&tf155 ), ( tf158 = ( x156 = origin_v12892.f1, *(float*)&x156 ) + ( x157 = halfSide_v19460, *(float*)&x157 ), *(word*)&tf158 ), 0, 0, pd146); }; SOURCE(12242, 80) { word var_c52864; { word pd159; pd159 = (* (( (ptr) (* (( (ptr) gf_c56448)+186)/* var_c52896 */ ))+4) ); var_c52864 = (word) ( *( (fPt) ((* (ptr) pd159 ))))(pd159); }; { word pd160; pd160 = (* (( (ptr) (* (( (ptr) gf_c56448)+187)/* var_c52928 */ ))+45) ); sliceD_v19516 = (word) ( *( (fPt) ((* (ptr) pd160 ))))(box_v19488, 2, var_c52864, pd160); }; }; SOURCE(12324, 79) { word pd161; pd161 = (* (( (ptr) (* (( (ptr) gf_c56448)+184)/* var_c52800 */ ))+29) ); completeSliceD_v19544 = (word) ( *( (fPt) ((* (ptr) pd161 ))))((* (ptr) sliceD_v19516 ), 0, 6, pd161); }; SOURCE(12405, 20) slice_v12992 = (* (ptr) sliceD_v19516 ); SOURCE(12427, 66) { word pd162; pd162 = (* (( (ptr) (* (( (ptr) gf_c56448)+184)/* var_c52800 */ ))+52) ); (void) ( *( (fPt) ((* (ptr) pd162 ))))(slice_v12992, (* (( (ptr) completeSliceD_v19544)+1) ), defaults_v12948, 0, pd162) ; }; SOURCE(11978, 515) return(slice_v12992); } static word Circle_P1800(origin_v13052, radius_v13080, defaults_v13108) W2 origin_v13052; word radius_v13080; word defaults_v13108; { register ptr gf_c56480 = (ptr) &globalframe; word slice_v13152; W2 outerPoint_v19588; word sliceD_v19616; word completeSliceD_v19644; /* Circle: */ SOURCE(12499, 391) SOURCE(12499, 391) slice_v13152 = 0; SOURCE(12599, 49) { word x163; word x164; *(float*)&outerPoint_v19588.f0 = ( x163 = origin_v13052.f0, *(float*)&x163 ) + ( x164 = radius_v13080, *(float*)&x164 ); }; outerPoint_v19588.f1 = origin_v13052.f1; SOURCE(12650, 69) { word pd165; pd165 = (* (( (ptr) (* (( (ptr) gf_c56480)+187)/* var_c52928 */ ))+52) ); sliceD_v19616 = (word) ( *( (fPt) ((* (ptr) pd165 ))))(origin_v13052, outerPoint_v19588, pd165); }; SOURCE(12721, 79) { word pd166; pd166 = (* (( (ptr) (* (( (ptr) gf_c56480)+184)/* var_c52800 */ ))+29) ); completeSliceD_v19644 = (word) ( *( (fPt) ((* (ptr) pd166 ))))((* (ptr) sliceD_v19616 ), 0, 6, pd166); }; SOURCE(12802, 20) slice_v13152 = (* (ptr) sliceD_v19616 ); SOURCE(12824, 66) { word pd167; pd167 = (* (( (ptr) (* (( (ptr) gf_c56480)+184)/* var_c52800 */ ))+52) ); (void) ( *( (fPt) ((* (ptr) pd167 ))))(slice_v13152, (* (( (ptr) completeSliceD_v19644)+1) ), defaults_v13108, 0, pd167) ; }; SOURCE(12499, 391) return(slice_v13152); } static word KnotchedLine_P1860(p0_v13212, p1_v13240, segmentCount_v13268) W2 p0_v13212; W2 p1_v13240; word segmentCount_v13268; { register ptr gf_c56512 = (ptr) &globalframe; word outline_v13312; W2 delta_v19688; W2 lastPoint_v19716; W2 thisPoint_v19744; word traj_v19772 = 0; word seg_v19800 = 0; word success_v19828; /* KnotchedLine: */ SOURCE(12896, 819) SOURCE(12896, 819) outline_v13312 = 0; SOURCE(13071, 64) { W2 var_c52992; { word pd168; pd168 = (* (( (ptr) (* (( (ptr) gf_c56512)+180)/* var_c52448 */ ))+11) ); (void) ( *( (fPt) ((* (ptr) pd168 ))))((word) &var_c52992, p1_v13240, p0_v13212, pd168); }; { W2 var_c0346; { word pd169; word x171; float tf172; pd169 = (* (( (ptr) (* (( (ptr) gf_c56512)+180)/* var_c52448 */ ))+12) ); (void) ( *( (fPt) ((* (ptr) pd169 ))))((word) &var_c0346, var_c52992, ( tf172 = ( x171 = (* (ptr) &fc170 ), *(float*)&x171 ) / (float)(unsigned)segmentCount_v13268, *(word*)&tf172 ), pd169); }; delta_v19688 = var_c0346; }; }; SOURCE(13137, 14) lastPoint_v19716 = p0_v13212; SOURCE(13153, 35) { word pd173; pd173 = (* (( (ptr) (* (( (ptr) gf_c56512)+181)/* var_c52480 */ ))+4) ); traj_v19772 = (word) ( *( (fPt) ((* (ptr) pd173 ))))(lastPoint_v19716, pd173); }; SOURCE(13190, 261) { register word noName_c53024 = 1; register word noName_c53056; noName_c53056 = segmentCount_v13268; if ((noName_c53024 >= noName_c53056)) { goto lab_L100074; }; lab_L100077: ; SOURCE(13219, 43) { word pd174; pd174 = (* (( (ptr) (* (( (ptr) gf_c56512)+180)/* var_c52448 */ ))+10) ); (void) ( *( (fPt) ((* (ptr) pd174 ))))((word) &thisPoint_v19744, lastPoint_v19716, delta_v19688, pd174); }; SOURCE(13264, 51) { word pd175; pd175 = (* (( (ptr) (* (( (ptr) gf_c56512)+182)/* var_c52608 */ ))+5) ); seg_v19800 = (word) ( *( (fPt) ((* (ptr) pd175 ))))(lastPoint_v19716, thisPoint_v19744, 0, pd175); }; SOURCE(13317, 46) { word pd176; pd176 = (* (( (ptr) (* (( (ptr) gf_c56512)+181)/* var_c52480 */ ))+6) ); success_v19828 = (word) ( *( (fPt) ((* (ptr) pd176 ))))(traj_v19772, 1, seg_v19800, 0, pd176); }; SOURCE(13365, 63) if ((0 == success_v19828)) { SOURCE(13385, 43) { word var_c0350; var_c0350 = (* (( (ptr) gf_c56512)+24) ); (void) (XR_RaiseSignal((word) (( (bPt) gf_c56512)+224), 0, (word) &var_c0350)); }; }; SOURCE(13430, 21) lastPoint_v19716 = thisPoint_v19744; noName_c53024 = (noName_c53024 + 1); if ((noName_c53024 < noName_c53056)) { goto lab_L100077; }; lab_L100074: ; }; SOURCE(13462, 14) thisPoint_v19744 = p1_v13240; SOURCE(13478, 51) { word pd177; pd177 = (* (( (ptr) (* (( (ptr) gf_c56512)+182)/* var_c52608 */ ))+5) ); seg_v19800 = (word) ( *( (fPt) ((* (ptr) pd177 ))))(lastPoint_v19716, thisPoint_v19744, 0, pd177); }; SOURCE(13531, 46) { word pd178; pd178 = (* (( (ptr) (* (( (ptr) gf_c56512)+181)/* var_c52480 */ ))+6) ); success_v19828 = (word) ( *( (fPt) ((* (ptr) pd178 ))))(traj_v19772, 1, seg_v19800, 0, pd178); }; SOURCE(13579, 63) if ((0 == success_v19828)) { SOURCE(13599, 43) { word var_c0351; var_c0351 = (* (( (ptr) gf_c56512)+24) ); (void) (XR_RaiseSignal((word) (( (bPt) gf_c56512)+224), 0, (word) &var_c0351)); }; }; SOURCE(13644, 71) { word var_c53088; { word pd179; pd179 = (* (( (ptr) (* (( (ptr) gf_c56512)+168)/* var_c51456 */ ))+11) ); var_c53088 = (word) ( *( (fPt) ((* (ptr) pd179 ))))((* (ptr) (&fc139) ), pd179); }; { word pd180; pd180 = (* (( (ptr) (* (( (ptr) gf_c56512)+183)/* var_c52736 */ ))+5) ); outline_v13312 = (word) ( *( (fPt) ((* (ptr) pd180 ))))(traj_v19772, var_c53088, pd180); }; }; SOURCE(12896, 819) return(outline_v13312); } static word DescribeTraj_P1920(traj_v13372) word traj_v13372; { register ptr gf_c56544 = (ptr) &globalframe; word text_v13416; word trajData_v19872; /* DescribeTraj: */ SOURCE(13720, 378) SOURCE(13720, 378) text_v13416 = 0; SOURCE(13789, 38) trajData_v19872 = XR_Narrow((* (( (ptr) traj_v13372)+1) ), (* (( (ptr) gf_c56544)+21) )); SOURCE(13829, 269) { word var_c53120; var_c53120 = (* (ptr) trajData_v19872 ); switch (var_c53120) { case 2: { W2 var_c53152; var_c53152.f0 = 5; var_c53152.f1 = (* (( (ptr) trajData_v19872)+1) ); { word pd181; pd181 = (* (( (ptr) (* (( (ptr) gf_c56544)+170)/* var_c51680 */ ))+63) ); text_v13416 = (word) ( *( (fPt) ((* (ptr) pd181 ))))((* (( (ptr) gf_c56544)+29) ), var_c53152, pd181); }; }; break; case 0: { W2 var_c53184; var_c53184.f0 = 5; var_c53184.f1 = (* (( (ptr) trajData_v19872)+1) ); { word pd182; pd182 = (* (( (ptr) (* (( (ptr) gf_c56544)+170)/* var_c51680 */ ))+63) ); text_v13416 = (word) ( *( (fPt) ((* (ptr) pd182 ))))((* (( (ptr) gf_c56544)+30) ), var_c53184, pd182); }; }; break; case 1: { W2 var_c53216; var_c53216.f0 = 5; var_c53216.f1 = (* (( (ptr) trajData_v19872)+1) ); { word pd183; pd183 = (* (( (ptr) (* (( (ptr) gf_c56544)+170)/* var_c51680 */ ))+63) ); text_v13416 = (word) ( *( (fPt) ((* (ptr) pd183 ))))((* (( (ptr) gf_c56544)+31) ), var_c53216, pd183); }; }; break; default: text_v13416 = (* (( (ptr) gf_c56544)+32) ); break; }; }; SOURCE(13720, 378) return(text_v13416); } static word DescribeJoint_P1980(traj_v13476, jointNum_v13504) word traj_v13476; word jointNum_v13504; { register ptr gf_c56576 = (ptr) &globalframe; word text_v13548; word trajData_v19916; word end_v19944 = 0; /* DescribeJoint: */ SOURCE(14104, 451) SOURCE(14104, 451) text_v13548 = 0; SOURCE(14189, 38) trajData_v19916 = XR_Narrow((* (( (ptr) traj_v13476)+1) ), (* (( (ptr) gf_c56576)+21) )); SOURCE(14248, 39) { word pd184; pd184 = (* (( (ptr) (* (( (ptr) gf_c56576)+181)/* var_c52480 */ ))+45) ); end_v19944 = (word) ( *( (fPt) ((* (ptr) pd184 ))))(traj_v13476, jointNum_v13504, pd184); }; SOURCE(14289, 130) if ((0 != end_v19944)) { SOURCE(14301, 64) { W2 var_c53248; var_c53248.f0 = 5; var_c53248.f1 = jointNum_v13504; { word pd185; pd185 = (* (( (ptr) (* (( (ptr) gf_c56576)+170)/* var_c51680 */ ))+63) ); text_v13548 = (word) ( *( (fPt) ((* (ptr) pd185 ))))((* (( (ptr) gf_c56576)+33) ), var_c53248, pd185); }; }; } else { SOURCE(14365, 54) { W2 var_c53280; var_c53280.f0 = 5; var_c53280.f1 = jointNum_v13504; { word pd186; pd186 = (* (( (ptr) (* (( (ptr) gf_c56576)+170)/* var_c51680 */ ))+63) ); text_v13548 = (word) ( *( (fPt) ((* (ptr) pd186 ))))((* (( (ptr) gf_c56576)+34) ), var_c53280, pd186); }; }; }; SOURCE(14421, 134) { word var_c53312; { word var_c53344; { word tc187; word tc188; word pd189; word idx190; pd189 = (* (( (ptr) (* (( (ptr) gf_c56576)+181)/* var_c52480 */ ))+39) ); if (((word) ( *( (fPt) ((* (ptr) pd189 ))))(traj_v13476, pd189) == jointNum_v13504)) { tc188 = (word) ((* (ptr) trajData_v19916 ) == 2); } else { tc188 = (word) 0; }; if (tc188) { tc187 = (word) (jointNum_v13504 - 1); } else { tc187 = (word) jointNum_v13504; }; var_c53344 = ( idx190 = (word) tc187, SGNCK(idx190) ); }; var_c53312 = (word) DescribeSegment_P2100(traj_v13476, var_c53344); }; { word pd191; pd191 = (* (( (ptr) (* (( (ptr) gf_c56576)+188)/* var_c53376 */ ))+6) ); text_v13548 = (word) ( *( (fPt) ((* (ptr) pd191 ))))(text_v13548, var_c53312, pd191); }; }; SOURCE(14104, 451) return(text_v13548); } static word DescribeControlPoint_P2040(traj_v13608, segNum_v13636, cpNum_v13664) word traj_v13608; word segNum_v13636; word cpNum_v13664; { register ptr gf_c56608 = (ptr) &globalframe; word text_v13708; /* DescribeControlPoint: */ SOURCE(14561, 205) SOURCE(14561, 205) text_v13708 = 0; SOURCE(14663, 103) { word var_c53408; word var_c53472; { W2 var_c53440; var_c53440.f0 = 5; var_c53440.f1 = cpNum_v13664; { word pd192; pd192 = (* (( (ptr) (* (( (ptr) gf_c56608)+170)/* var_c51680 */ ))+63) ); var_c53408 = (word) ( *( (fPt) ((* (ptr) pd192 ))))((* (( (ptr) gf_c56608)+35) ), var_c53440, pd192); }; }; var_c53472 = (word) DescribeSegment_P2100(traj_v13608, segNum_v13636); { word pd193; pd193 = (* (( (ptr) (* (( (ptr) gf_c56608)+188)/* var_c53376 */ ))+6) ); text_v13708 = (word) ( *( (fPt) ((* (ptr) pd193 ))))(var_c53408, var_c53472, pd193); }; }; SOURCE(14561, 205) return(text_v13708); } static word DescribeSegment_P2100(traj_v13768, segNum_v13796) word traj_v13768; word segNum_v13796; { register ptr gf_c56640 = (ptr) &globalframe; word text_v13840; /* DescribeSegment: */ SOURCE(14772, 355) SOURCE(14772, 355) text_v13840 = 0; SOURCE(14857, 270) if ((segNum_v13796 == 2147483647)) { SOURCE(14882, 61) { word var_c53504; var_c53504 = (word) DescribeTraj_P1920(traj_v13768); { word pd194; pd194 = (* (( (ptr) (* (( (ptr) gf_c56640)+188)/* var_c53376 */ ))+6) ); text_v13840 = (word) ( *( (fPt) ((* (ptr) pd194 ))))((* (( (ptr) gf_c56640)+36) ), var_c53504, pd194); }; }; } else { SOURCE(14943, 186) { word seg_v19988; SOURCE(14945, 48) { word pd195; pd195 = (* (( (ptr) (* (( (ptr) gf_c56640)+181)/* var_c52480 */ ))+29) ); seg_v19988 = (word) ( *( (fPt) ((* (ptr) pd195 ))))(traj_v13768, segNum_v13796, pd195); }; SOURCE(14995, 132) { word var_c53536; word var_c53568; word var_c53632; { word pd196; pd196 = (* (( (ptr) (* (ptr) seg_v19988 ))+11) ); var_c53536 = (word) ( *( (fPt) ((* (ptr) pd196 ))))(seg_v19988, 1, 1, 1, 0, pd196); }; { W2 var_c53600; var_c53600.f0 = 5; var_c53600.f1 = segNum_v13796; { word pd197; pd197 = (* (( (ptr) (* (( (ptr) gf_c56640)+170)/* var_c51680 */ ))+63) ); var_c53568 = (word) ( *( (fPt) ((* (ptr) pd197 ))))((* (( (ptr) gf_c56640)+37) ), var_c53600, pd197); }; }; var_c53632 = (word) DescribeTraj_P1920(traj_v13768); { word pd198; pd198 = (* (( (ptr) (* (( (ptr) gf_c56640)+188)/* var_c53376 */ ))+5) ); text_v13840 = (word) ( *( (fPt) ((* (ptr) pd198 ))))(var_c53536, var_c53568, var_c53632, 0, 0, pd198); }; }; }; }; SOURCE(14772, 355) return(text_v13840); } static word DescribeInterior_P2160(traj_v13900) word traj_v13900; { register ptr gf_c56672 = (ptr) &globalframe; word text_v13944; /* DescribeInterior: */ SOURCE(15136, 131) SOURCE(15136, 131) text_v13944 = 0; SOURCE(15209, 58) { word var_c53664; var_c53664 = (word) DescribeTraj_P1920(traj_v13900); { word pd199; pd199 = (* (( (ptr) (* (( (ptr) gf_c56672)+188)/* var_c53376 */ ))+6) ); text_v13944 = (word) ( *( (fPt) ((* (ptr) pd199 ))))((* (( (ptr) gf_c56672)+38) ), var_c53664, pd199); }; }; SOURCE(15136, 131) return(text_v13944); } static word DescribeSequence_P2220(sliceD_v14004) word sliceD_v14004; { register ptr gf_c56704 = (ptr) &globalframe; word text_v14048; /* DescribeSequence: */ SOURCE(15273, 157) SOURCE(15273, 157) text_v14048 = 0; SOURCE(15359, 71) { word var_c53696; var_c53696 = (word) DescribeTraj_P1920((* (ptr) (sliceD_v14004) )); { word pd200; pd200 = (* (( (ptr) (* (( (ptr) gf_c56704)+188)/* var_c53376 */ ))+6) ); text_v14048 = (word) ( *( (fPt) ((* (ptr) pd200 ))))((* (( (ptr) gf_c56704)+39) ), var_c53696, pd200); }; }; SOURCE(15273, 157) return(text_v14048); } static word DescribeColor_P2280(color_v14108) word color_v14108; { register ptr gf_c56736 = (ptr) &globalframe; word rope_v14152; /* DescribeColor: */ SOURCE(15436, 1062) SOURCE(15436, 1062) rope_v14152 = 0; SOURCE(15515, 983) { word var_c53728; var_c53728 = color_v14108; if ((var_c53728 == 0)) { goto lab_L100078; }; { word var_c53856; var_c53856 = (* (ptr) var_c53728 ); if ((var_c53856 == 0)) { { word constantColor_v20032; constantColor_v20032 = var_c53728; SOURCE(15582, 661) { word op_v20076 = 0; word colorType_v20104; SOURCE(15648, 48) { W2 var_c53760; { word pd202; pd202 = (* (( (ptr) (* (( (ptr) gf_c56736)+177)/* var_c52032 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd202 ))))((word) &var_c53760, color_v14108, pd202); }; op_v20076 = var_c53760.f1; colorType_v20104 = var_c53760.f0; }; SOURCE(15698, 543) if ((op_v20076 != 0)) { SOURCE(15713, 327) { word var_c53792; { word pd203; pd203 = (* (( (ptr) (* (( (ptr) gf_c56736)+177)/* var_c52032 */ ))+5) ); var_c53792 = (word) ( *( (fPt) ((* (ptr) pd203 ))))(op_v20076, pd203); }; switch (var_c53792) { case 0: case 1: case 2: SOURCE(15795, 41) /*1*/ rope_v14152 = (word) ColorAsIntensityAndNameRope_P2520(color_v14108); /*1*/ break; case 3: case 4: case 5: case 9: case 6: SOURCE(15892, 35) /*1*/ rope_v14152 = (word) ColorAsRGBAndNameRope_P2400(color_v14108); /*1*/ break; case 7: SOURCE(15937, 36) /*1*/ rope_v14152 = (word) ColorAsCMYKAndNameRope_P2460(color_v14108); /*1*/ break; default: SOURCE(15986, 54) /*1*/ rope_v14152 = (* (( (ptr) gf_c56736)+40) ); /*1*/ break; }; }; } else { SOURCE(16040, 201) { word var_c53824; var_c53824 = colorType_v20104; if ((var_c53824 == 1)) { SOURCE(16081, 107) { /*1*/ word special_v20148; SOURCE(16083, 57) /*1*/ if ((constantColor_v20032 == 0)) { /*1*/ goto lab_L100079; /*1*/ }; /*1*/ if (((* (( (ptr) constantColor_v20032)+1) ) == 1)) { /*1*/ goto lab_L100079; /*1*/ }; /*1*/ (void) XR_RaiseError(XR_NarrowFault, 0); /*1*/ lab_L100079: ; /*1*/ special_v20148 = constantColor_v20032; SOURCE(16142, 44) /*1*/ rope_v14152 = (word) SpecialColorAsRGBAndNameRope_P2340(special_v20148); /*1*/ }; } else { SOURCE(16202, 39) rope_v14152 = (* (( (ptr) gf_c56736)+42) ); }; }; }; }; }; goto endif0201; }; if ( ( ((* (ptr) var_c53728 ) == 0) ? ((* (( (ptr) var_c53728)+1) ) == 1) : 0 ) ) { { word special_v20192; special_v20192 = var_c53728; SOURCE(16286, 20) rope_v14152 = (* (( (ptr) special_v20192)+3) ); }; goto endif0201; }; if ((var_c53856 == 2)) { { word sampledBlack_v20236; sampledBlack_v20236 = var_c53728; SOURCE(16353, 24) rope_v14152 = (* (( (ptr) gf_c56736)+43) ); }; goto endif0201; }; if ((var_c53856 == 1)) { { word sampledColor_v20280; sampledColor_v20280 = var_c53728; SOURCE(16426, 24) rope_v14152 = (* (( (ptr) gf_c56736)+44) ); }; goto endif0201; }; lab_L100078: ; SOURCE(16468, 30) rope_v14152 = (* (( (ptr) gf_c56736)+45) ); goto endif0201; endif0201: ; }; }; SOURCE(15436, 1062) return(rope_v14152); } static word SpecialColorAsRGBAndNameRope_P2340(color_v14212) word color_v14212; { register ptr gf_c56768 = (ptr) &globalframe; word rope_v14256; /* SpecialColorAsRGBAndNameRope: */ SOURCE(16507, 384) SOURCE(16507, 384) rope_v14256 = 0; SOURCE(16601, 290) if ((color_v14212 != 0)) { SOURCE(16619, 259) { word var_c53888; { word var_c53920; word var_c53952; var_c53920 = XR_NewObject(12, (* (( (ptr) gf_c56768)+17) )); var_c53952 = var_c53920; (* (ptr) var_c53952 ) = 11; if (((* (( (ptr) color_v14212)+5) ) == 0)) { (* (( (ptr) var_c53952)+1) ) = (* (( (ptr) gf_c56768)+48) ); } else { (* (( (ptr) var_c53952)+1) ) = (word) ColorToRGBRope_P1440((* ((( (ptr) color_v14212)+5)) )); }; (* (( (ptr) var_c53952)+2) ) = XR_NewObject(12, (* (( (ptr) gf_c56768)+17) )); var_c53952 = (* (( (ptr) var_c53952)+2) ); (* (ptr) var_c53952 ) = 11; (* (( (ptr) var_c53952)+1) ) = (* (( (ptr) color_v14212)+3) ); (* (( (ptr) var_c53952)+2) ) = XR_NewObject(12, (* (( (ptr) gf_c56768)+17) )); var_c53952 = (* (( (ptr) var_c53952)+2) ); (* (ptr) var_c53952 ) = 11; (* (( (ptr) var_c53952)+1) ) = (word) ColorToCMYKRope_P1500((* ((( (ptr) color_v14212)+5)) )); (* (( (ptr) var_c53952)+2) ) = XR_NewObject(12, (* (( (ptr) gf_c56768)+17) )); var_c53952 = (* (( (ptr) var_c53952)+2) ); (* (ptr) var_c53952 ) = 11; (* (( (ptr) var_c53952)+1) ) = (word) ColorToIntensityRope_P1560((* ((( (ptr) color_v14212)+5)) )); var_c53888 = var_c53920; }; { word pd204; pd204 = (* (( (ptr) (* (( (ptr) gf_c56768)+170)/* var_c51680 */ ))+65) ); rope_v14256 = (word) ( *( (fPt) ((* (ptr) pd204 ))))((* (( (ptr) gf_c56768)+46) ), var_c53888, pd204); }; }; } else { SOURCE(16878, 13) rope_v14256 = (* (( (ptr) gf_c56768)+49) ); }; SOURCE(16507, 384) return(rope_v14256); } static word ColorAsRGBAndNameRope_P2400(color_v14316) word color_v14316; { register ptr gf_c56800 = (ptr) &globalframe; word rope_v14360; word cc_v20324; /* ColorAsRGBAndNameRope: */ SOURCE(16897, 322) SOURCE(16897, 322) rope_v14360 = 0; SOURCE(16977, 40) if ((color_v14316 == 0)) { goto lab_L100080; }; if (((* (ptr) color_v14316 ) == 0)) { goto lab_L100080; }; (void) XR_RaiseError(XR_NarrowFault, 0); lab_L100080: ; cc_v20324 = color_v14316; SOURCE(17019, 200) if ((cc_v20324 != 0)) { SOURCE(17034, 172) { word var_c54080; { word var_c54112; word var_c54144; var_c54112 = XR_NewObject(12, (* (( (ptr) gf_c56800)+17) )); var_c54144 = var_c54112; (* (ptr) var_c54144 ) = 11; (* (( (ptr) var_c54144)+1) ) = (word) ColorToRGBRope_P1440(cc_v20324); (* (( (ptr) var_c54144)+2) ) = XR_NewObject(12, (* (( (ptr) gf_c56800)+17) )); var_c54144 = (* (( (ptr) var_c54144)+2) ); (* (ptr) var_c54144 ) = 11; (* (( (ptr) var_c54144)+1) ) = (word) ColorToNameRope_P1620(cc_v20324); (* (( (ptr) var_c54144)+2) ) = XR_NewObject(12, (* (( (ptr) gf_c56800)+17) )); var_c54144 = (* (( (ptr) var_c54144)+2) ); (* (ptr) var_c54144 ) = 11; (* (( (ptr) var_c54144)+1) ) = (word) ColorToCMYKRope_P1500(cc_v20324); (* (( (ptr) var_c54144)+2) ) = XR_NewObject(12, (* (( (ptr) gf_c56800)+17) )); var_c54144 = (* (( (ptr) var_c54144)+2) ); (* (ptr) var_c54144 ) = 11; (* (( (ptr) var_c54144)+1) ) = (word) ColorToIntensityRope_P1560(cc_v20324); var_c54080 = var_c54112; }; { word pd205; pd205 = (* (( (ptr) (* (( (ptr) gf_c56800)+170)/* var_c51680 */ ))+65) ); rope_v14360 = (word) ( *( (fPt) ((* (ptr) pd205 ))))((* (( (ptr) gf_c56800)+50) ), var_c54080, pd205); }; }; } else { SOURCE(17206, 13) rope_v14360 = (* (( (ptr) gf_c56800)+49) ); }; SOURCE(16897, 322) return(rope_v14360); } static word ColorAsCMYKAndNameRope_P2460(color_v14420) word color_v14420; { register ptr gf_c56832 = (ptr) &globalframe; word rope_v14464; word cc_v20368; /* ColorAsCMYKAndNameRope: */ SOURCE(17225, 323) SOURCE(17225, 323) rope_v14464 = 0; SOURCE(17306, 40) if ((color_v14420 == 0)) { goto lab_L100081; }; if (((* (ptr) color_v14420 ) == 0)) { goto lab_L100081; }; (void) XR_RaiseError(XR_NarrowFault, 0); lab_L100081: ; cc_v20368 = color_v14420; SOURCE(17348, 200) if ((cc_v20368 != 0)) { SOURCE(17363, 172) { word var_c54304; { word var_c54336; word var_c54368; var_c54336 = XR_NewObject(12, (* (( (ptr) gf_c56832)+17) )); var_c54368 = var_c54336; (* (ptr) var_c54368 ) = 11; (* (( (ptr) var_c54368)+1) ) = (word) ColorToCMYKRope_P1500(cc_v20368); (* (( (ptr) var_c54368)+2) ) = XR_NewObject(12, (* (( (ptr) gf_c56832)+17) )); var_c54368 = (* (( (ptr) var_c54368)+2) ); (* (ptr) var_c54368 ) = 11; (* (( (ptr) var_c54368)+1) ) = (word) ColorToNameRope_P1620(cc_v20368); (* (( (ptr) var_c54368)+2) ) = XR_NewObject(12, (* (( (ptr) gf_c56832)+17) )); var_c54368 = (* (( (ptr) var_c54368)+2) ); (* (ptr) var_c54368 ) = 11; (* (( (ptr) var_c54368)+1) ) = (word) ColorToRGBRope_P1440(cc_v20368); (* (( (ptr) var_c54368)+2) ) = XR_NewObject(12, (* (( (ptr) gf_c56832)+17) )); var_c54368 = (* (( (ptr) var_c54368)+2) ); (* (ptr) var_c54368 ) = 11; (* (( (ptr) var_c54368)+1) ) = (word) ColorToIntensityRope_P1560(cc_v20368); var_c54304 = var_c54336; }; { word pd206; pd206 = (* (( (ptr) (* (( (ptr) gf_c56832)+170)/* var_c51680 */ ))+65) ); rope_v14464 = (word) ( *( (fPt) ((* (ptr) pd206 ))))((* (( (ptr) gf_c56832)+50) ), var_c54304, pd206); }; }; } else { SOURCE(17535, 13) rope_v14464 = (* (( (ptr) gf_c56832)+49) ); }; SOURCE(17225, 323) return(rope_v14464); } static word ColorAsIntensityAndNameRope_P2520(color_v14524) word color_v14524; { register ptr gf_c56864 = (ptr) &globalframe; word rope_v14568; word cc_v20412; /* ColorAsIntensityAndNameRope: */ SOURCE(17554, 328) SOURCE(17554, 328) rope_v14568 = 0; SOURCE(17640, 40) if ((color_v14524 == 0)) { goto lab_L100082; }; if (((* (ptr) color_v14524 ) == 0)) { goto lab_L100082; }; (void) XR_RaiseError(XR_NarrowFault, 0); lab_L100082: ; cc_v20412 = color_v14524; SOURCE(17682, 200) if ((cc_v20412 != 0)) { SOURCE(17697, 172) { word var_c54528; { word var_c54560; word var_c54592; var_c54560 = XR_NewObject(12, (* (( (ptr) gf_c56864)+17) )); var_c54592 = var_c54560; (* (ptr) var_c54592 ) = 11; (* (( (ptr) var_c54592)+1) ) = (word) ColorToIntensityRope_P1560(cc_v20412); (* (( (ptr) var_c54592)+2) ) = XR_NewObject(12, (* (( (ptr) gf_c56864)+17) )); var_c54592 = (* (( (ptr) var_c54592)+2) ); (* (ptr) var_c54592 ) = 11; (* (( (ptr) var_c54592)+1) ) = (word) ColorToNameRope_P1620(cc_v20412); (* (( (ptr) var_c54592)+2) ) = XR_NewObject(12, (* (( (ptr) gf_c56864)+17) )); var_c54592 = (* (( (ptr) var_c54592)+2) ); (* (ptr) var_c54592 ) = 11; (* (( (ptr) var_c54592)+1) ) = (word) ColorToRGBRope_P1440(cc_v20412); (* (( (ptr) var_c54592)+2) ) = XR_NewObject(12, (* (( (ptr) gf_c56864)+17) )); var_c54592 = (* (( (ptr) var_c54592)+2) ); (* (ptr) var_c54592 ) = 11; (* (( (ptr) var_c54592)+1) ) = (word) ColorToCMYKRope_P1500(cc_v20412); var_c54528 = var_c54560; }; { word pd207; pd207 = (* (( (ptr) (* (( (ptr) gf_c56864)+170)/* var_c51680 */ ))+65) ); rope_v14568 = (word) ( *( (fPt) ((* (ptr) pd207 ))))((* (( (ptr) gf_c56864)+50) ), var_c54528, pd207); }; }; } else { SOURCE(17869, 13) rope_v14568 = (* (( (ptr) gf_c56864)+49) ); }; SOURCE(17554, 328) return(rope_v14568); } static word ScalarButtonValuesToRope_P2580(names_v14628, values_v14656, on_v14684) word names_v14628; word values_v14656; word on_v14684; { register ptr gf_c56896 = (ptr) &globalframe; word rope_v14980; word stream_v20456 = 0; /* ScalarButtonValuesToRope: */ SOURCE(17888, 265) SOURCE(17888, 265) rope_v14980 = 0; SOURCE(18042, 17) { word pd208; pd208 = (* (( (ptr) (* (( (ptr) gf_c56896)+170)/* var_c51680 */ ))+34) ); stream_v20456 = (word) ( *( (fPt) ((* (ptr) pd208 ))))(0, pd208); }; SOURCE(18061, 61) { word pd209; pd209 = (* (( (ptr) (* (( (ptr) gf_c56896)+171)/* var_c51712 */ ))+17) ); (void) ( *( (fPt) ((* (ptr) pd209 ))))(stream_v20456, names_v14628, values_v14656, on_v14684, pd209); }; SOURCE(18124, 29) { word pd210; pd210 = (* (( (ptr) (* (( (ptr) gf_c56896)+170)/* var_c51680 */ ))+35) ); rope_v14980 = (word) ( *( (fPt) ((* (ptr) pd210 ))))(stream_v20456, 1, pd210); }; SOURCE(17888, 265) return(rope_v14980); } static void ScalarButtonValuesFromRope_P2640(formal_c0442, rope_v15040) word formal_c0442; word rope_v15040; { register ptr gf_c56928 = (ptr) &globalframe; word names_v15084; word values_v15112; word on_v15140; word stream_v20500 = 0; word version_v20528; /* ScalarButtonValuesFromRope: */ SOURCE(18159, 285) SOURCE(18159, 285) names_v15084 = 0; SOURCE(18159, 285) values_v15112 = 0; SOURCE(18159, 285) on_v15140 = 0; SOURCE(18315, 33) version_v20528 = (* (ptr) (* (( (ptr) (* (( (ptr) gf_c56928)+172)/* var_c51744 */ ))+4) ) ); SOURCE(18350, 21) { word pd211; pd211 = (* (( (ptr) (* (( (ptr) gf_c56928)+170)/* var_c51680 */ ))+33) ); stream_v20500 = (word) ( *( (fPt) ((* (ptr) pd211 ))))(rope_v15040, 0, pd211); }; SOURCE(18373, 71) { W3 var_c54752; { word pd212; pd212 = (* (( (ptr) (* (( (ptr) gf_c56928)+173)/* var_c51776 */ ))+28) ); (void) ( *( (fPt) ((* (ptr) pd212 ))))((word) &var_c54752, stream_v20500, version_v20528, pd212); }; on_v15140 = var_c54752.f2; values_v15112 = var_c54752.f1; names_v15084 = var_c54752.f0; }; /* removed tail goto */ (* (ptr) formal_c0442 ) = names_v15084; (* (( (ptr) formal_c0442)+1) ) = values_v15112; (* (( (ptr) formal_c0442)+2) ) = on_v15140; return; } static word FactoredTransformationToRope_P2700(transform_v15452) word transform_v15452; { register ptr gf_c56960 = (ptr) &globalframe; word rope_v15496; word f_v20572; /* FactoredTransformationToRope: */ SOURCE(18450, 224) SOURCE(18450, 224) rope_v15496 = 0; SOURCE(18571, 23) { word pd213; pd213 = (* (( (ptr) (* (( (ptr) gf_c56960)+170)/* var_c51680 */ ))+34) ); f_v20572 = (word) ( *( (fPt) ((* (ptr) pd213 ))))(0, pd213); }; SOURCE(18596, 52) { word pd214; pd214 = (* (( (ptr) (* (( (ptr) gf_c56960)+171)/* var_c51712 */ ))+11) ); (void) ( *( (fPt) ((* (ptr) pd214 ))))(f_v20572, transform_v15452, pd214); }; SOURCE(18650, 24) { word pd215; pd215 = (* (( (ptr) (* (( (ptr) gf_c56960)+170)/* var_c51680 */ ))+35) ); rope_v15496 = (word) ( *( (fPt) ((* (ptr) pd215 ))))(f_v20572, 1, pd215); }; SOURCE(18450, 224) return(rope_v15496); } static word FactoredTransformationFromRope_P2760(rope_v15556) word rope_v15556; { register ptr gf_c56992 = (ptr) &globalframe; word transform_v15600; word f_v20616; /* FactoredTransformationFromRope: */ SOURCE(18680, 203) SOURCE(18680, 203) transform_v15600 = 0; SOURCE(18803, 27) { word pd216; pd216 = (* (( (ptr) (* (( (ptr) gf_c56992)+170)/* var_c51680 */ ))+33) ); f_v20616 = (word) ( *( (fPt) ((* (ptr) pd216 ))))(rope_v15556, 0, pd216); }; SOURCE(18832, 51) { word pd217; pd217 = (* (( (ptr) (* (( (ptr) gf_c56992)+173)/* var_c51776 */ ))+21) ); transform_v15600 = (word) ( *( (fPt) ((* (ptr) pd217 ))))(f_v20616, pd217); }; SOURCE(18680, 203) return(transform_v15600); } static word Create_P2820() { register ptr gf_c57024 = (ptr) &globalframe; word var_c15660; /* Create: */ SOURCE(18957, 80) SOURCE(19000, 37) { word pd218; pd218 = (* (( (ptr) (* (( (ptr) gf_c57024)+189)/* var_c54816 */ ))+17) ); return((word) ( *( (fPt) ((* (ptr) pd218 ))))(pd218)); }; } static void Insert_P2880(x_v15720, radius_v15748) word x_v15720; word radius_v15748; { register ptr gf_c57056 = (ptr) &globalframe; /* Insert: */ SOURCE(19043, 1067) SOURCE(19092, 1018) { word x219; word x220; word x221; word x223; if (((word) Lookup_P2940(x_v15720, radius_v15748) != 0) || ( (( x219 = radius_v15748, *(float*)&x219 ) < ( x220 = (* (ptr) &fc170 ), *(float*)&x220 )) ? 1 : (( x221 = radius_v15748, *(float*)&x221 ) > ( x223 = (* (ptr) &fc222 ), *(float*)&x223 )) ) ) { SOURCE(19152, 12) return; } else { SOURCE(19164, 948) { word context_v20660 = 0; word argument_v20688; word circle_v20716 = 0; word dummySize_v20744 = 0; word side_v20772; word bitmap_v20800; word cachedCircle_v20828; SOURCE(19191, 39) argument_v20688 = XR_NewObject(4, (* (( (ptr) gf_c57056)+15) )); (* (ptr) argument_v20688 ) = radius_v15748; SOURCE(19281, 38) { word pd224; word x225; word x226; float tf227; pd224 = (* (( (ptr) (* (( (ptr) gf_c57056)+190)/* var_c54880 */ ))+5) ); side_v20772 = IOP2( * , (int)2, (int)((word) ( *( (fPt) ((* (ptr) pd224 ))))(( tf227 = ( x225 = radius_v15748, *(float*)&x225 ) + ( x226 = (* (ptr) &fc170 ), *(float*)&x226 ), *(word*)&tf227 ), pd224) + 1)); }; SOURCE(19343, 63) { W4 var_c54912; var_c54912.f0 = 0; var_c54912.f1 = 0; var_c54912.f2 = side_v20772; var_c54912.f3 = side_v20772; { word pd228; pd228 = (* (( (ptr) (* (( (ptr) gf_c57056)+191)/* var_c54944 */ ))+19) ); bitmap_v20800 = (word) ( *( (fPt) ((* (ptr) pd228 ))))(var_c54912, 1, 0, pd228); }; }; SOURCE(19408, 88) cachedCircle_v20828 = XR_NewObject(12, (* (( (ptr) gf_c57056)+14) )); (* (ptr) cachedCircle_v20828 ) = bitmap_v20800; (* (( (ptr) cachedCircle_v20828)+1) ) = side_v20772; (* (( (ptr) cachedCircle_v20828)+2) ) = side_v20772; SOURCE(19498, 145) { W2 var_c55008; W2 var_c55040; var_c55008.f0 = side_v20772; var_c55008.f1 = side_v20772; var_c55040.f0 = (* (ptr) &fc229 ); var_c55040.f1 = (* (ptr) &fc229 ); { word pd230; pd230 = (* (( (ptr) (* (( (ptr) gf_c57056)+192)/* var_c55072 */ ))+5) ); context_v20660 = (word) ( *( (fPt) ((* (ptr) pd230 ))))(var_c55008, 13, var_c55040, 1, 1, 0, pd230); }; }; SOURCE(19645, 46) { word pd231; pd231 = (* (( (ptr) (* (( (ptr) gf_c57056)+192)/* var_c55072 */ ))+6) ); (void) ( *( (fPt) ((* (ptr) pd231 ))))(context_v20660, bitmap_v20800, pd231); }; SOURCE(19693, 30) { word pd232; pd232 = (* (( (ptr) (* (( (ptr) gf_c57056)+175)/* var_c51840 */ ))+52) ); (void) ( *( (fPt) ((* (ptr) pd232 ))))(context_v20660, (* (ptr) (* (( (ptr) (* (( (ptr) gf_c57056)+175)/* var_c51840 */ ))+55) ) ), pd232); }; SOURCE(19725, 56) { W4 var_c55104; { word pd233; pd233 = (* (( (ptr) (* (( (ptr) gf_c57056)+167)/* var_c50496 */ ))+15) ); (void) ( *( (fPt) ((* (ptr) pd233 ))))((word) &var_c55104, context_v20660, pd233); }; { word pd234; pd234 = (* (( (ptr) (* (( (ptr) gf_c57056)+175)/* var_c51840 */ ))+65) ); (void) ( *( (fPt) ((* (ptr) pd234 ))))(context_v20660, var_c55104, pd234); }; }; SOURCE(19783, 32) { word pd235; pd235 = (* (( (ptr) (* (( (ptr) gf_c57056)+175)/* var_c51840 */ ))+52) ); (void) ( *( (fPt) ((* (ptr) pd235 ))))(context_v20660, (* (( (ptr) gf_c57056)+4)/* alignmentColor_v6556 */ ), pd235); }; SOURCE(19817, 27) { word pd236; pd236 = (* (( (ptr) (* (( (ptr) gf_c57056)+175)/* var_c51840 */ ))+68) ); (void) ( *( (fPt) ((* (ptr) pd236 ))))(context_v20660, (* (ptr) &fc170 ), pd236); }; SOURCE(19846, 70) { W2 var_c55136; { float tf237; var_c55136.f0 = ( tf237 = (float)(int)IOP2( / , (int)side_v20772, (int)2), *(word*)&tf237 ); }; { float tf238; var_c55136.f1 = ( tf238 = (float)(int)IOP2( / , (int)side_v20772, (int)2), *(word*)&tf238 ); }; { word pd239; pd239 = (* (( (ptr) (* (( (ptr) gf_c57056)+193)/* var_c55168 */ ))+7) ); circle_v20716 = (word) ( *( (fPt) ((* (ptr) pd239 ))))(var_c55136, radius_v15748, pd239); }; }; SOURCE(19918, 49) { word pd240; pd240 = (* (( (ptr) (* (( (ptr) gf_c57056)+194)/* var_c55200 */ ))+13) ); (void) ( *( (fPt) ((* (ptr) pd240 ))))(context_v20660, circle_v20716, pd240); }; SOURCE(19969, 141) { word var_c55232; { W2 var_c55264; var_c55264.f0 = side_v20772; var_c55264.f1 = side_v20772; { word pd241; pd241 = (* (( (ptr) (* (( (ptr) gf_c57056)+191)/* var_c54944 */ ))+18) ); var_c55232 = ((word) ( *( (fPt) ((* (ptr) pd241 ))))(var_c55264, 1, 0, pd241) + 2); }; }; { word pd242; pd242 = (* (( (ptr) (* (( (ptr) gf_c57056)+189)/* var_c54816 */ ))+6) ); (void) ( *( (fPt) ((* (ptr) pd242 ))))(x_v15720, argument_v20688, cachedCircle_v20828, var_c55232, (* (( (ptr) gf_c57056)+53) ), pd242); }; }; }; }; }; } static word Lookup_P2940(x_v15808, formal_c0600) word x_v15808; word formal_c0600; { W7 var_c57088; /* declaration of radius_v15836 skipped */ register ptr gf_c57120 = (ptr) &globalframe; word var_c15880; /* declaration of var_c55296 skipped */ word value_v20912 = 0; word ok_v20940; var_c57088.f4/* radius_v15836 */ = formal_c0600; /* Lookup: */ SOURCE(20119, 343) { word tmpAddr243; tmpAddr243 = (word) (( (ptr) &var_c57088)+5)/* var_c55296 */ ; (* (ptr) tmpAddr243 ) = ( ((word) (fPt) FindRadius_P4296) ); (* (( (ptr) tmpAddr243) + 1) ) = 1; }; SOURCE(20336, 82) { W2 var_c55328; { word pd244; pd244 = (* (( (ptr) (* (( (ptr) gf_c57120)+189)/* var_c54816 */ ))+9) ); (void) ( *( (fPt) ((* (ptr) pd244 ))))((word) &var_c55328, x_v15808, (word) (( (bPt) &var_c57088)+20)/* var_c55296 */ , (* ( ( (ptr) gf_c57120)+53) ), pd244); }; ok_v20940 = var_c55328.f1; value_v20912 = var_c55328.f0; }; SOURCE(20420, 42) if ((0 != ok_v20940)) { return(XR_Narrow(value_v20912, (* (( (ptr) gf_c57120)+14) ))); } else { return(0); }; } static word FindRadius_P4296(argument_v46924, formal_c57184) word argument_v46924; word formal_c57184; { register ptr gf_c57152 = (ptr) &globalframe; word good_v46968; word arg_v20984; formal_c57184 = (formal_c57184 - 20); /* FindRadius: */ SOURCE(20191, 116) SOURCE(20233, 39) arg_v20984 = (* (ptr) XR_Narrow(argument_v46924, (* (( (ptr) gf_c57152)+15) )) ); SOURCE(20274, 33) { float tf245; word x246; word x247; word x249; return( (unsigned) (FABS((( x246 = arg_v20984, *(float*)&x246 ) - ( x247 = (* (( (ptr) formal_c57184)+4) ), *(float*)&x247 )), tf245) < ( x249 = (* (ptr) &fc248 ), *(float*)&x249 ))); }; } static void Remove_P3000(x_v15940, formal_c0601) word x_v15940; word formal_c0601; { W7 var_c57216; /* declaration of radius_v15968 skipped */ register ptr gf_c57248 = (ptr) &globalframe; /* declaration of var_c55392 skipped */ var_c57216.f4/* radius_v15968 */ = formal_c0601; /* Remove: */ SOURCE(20468, 254) { word tmpAddr250; tmpAddr250 = (word) (( (ptr) &var_c57216)+5)/* var_c55392 */ ; (* (ptr) tmpAddr250 ) = ( ((word) (fPt) FindRadius_P4356) ); (* (( (ptr) tmpAddr250) + 1) ) = 1; }; SOURCE(20639, 83) { word var_c55424; word pd251; pd251 = (* (( (ptr) (* (( (ptr) gf_c57248)+189)/* var_c54816 */ ))+10) ); var_c55424 = (word) ( *( (fPt) ((* (ptr) pd251 ))))(x_v15940, (word) (( (bPt) &var_c57216)+20)/* var_c55392 */ , 1, (* ( ( (ptr) gf_c57248)+53) ), pd251); }; } static word FindRadius_P4356(argument_v47248, formal_c57312) word argument_v47248; word formal_c57312; { register ptr gf_c57280 = (ptr) &globalframe; word good_v47292; word arg_v21084; formal_c57312 = (formal_c57312 - 20); /* FindRadius: */ SOURCE(20517, 117) SOURCE(20559, 39) arg_v21084 = (* (ptr) XR_Narrow(argument_v47248, (* (( (ptr) gf_c57280)+15) )) ); SOURCE(20600, 34) { float tf252; word x253; word x254; word x255; return( (unsigned) (FABS((( x253 = arg_v21084, *(float*)&x253 ) - ( x254 = (* (( (ptr) formal_c57312)+4) ), *(float*)&x254 )), tf252) < ( x255 = (* (ptr) &fc248 ), *(float*)&x255 ))); }; } static void RemoveAll_P3060(x_v16028) word x_v16028; { register ptr gf_c57344 = (ptr) &globalframe; word list_v21140; /* RemoveAll: */ SOURCE(20728, 292) SOURCE(20766, 6) { word pd256; pd256 = (* (( (ptr) (* (( (ptr) gf_c57344)+189)/* var_c54816 */ ))+10) ); list_v21140 = (word) ( *( (fPt) ((* (ptr) pd256 ))))(x_v16028, (* (( (ptr) (* (( (ptr) gf_c57344)+189)/* var_c54816 */ ))+7) ), 2147483647, (* (( (ptr) gf_c57344)+53) ), pd256); }; SOURCE(20902, 118) lab_L100086: ; if ((list_v21140 != 0)) { } else { goto lab_L100084; }; SOURCE(20920, 100) { word pd257; pd257 = (* (( (ptr) (* (( (ptr) gf_c57344)+189)/* var_c54816 */ ))+10) ); list_v21140 = (word) ( *( (fPt) ((* (ptr) pd257 ))))(x_v16028, (* (( (ptr) (* (( (ptr) gf_c57344)+189)/* var_c54816 */ ))+7) ), 2147483647, (* (( (ptr) gf_c57344)+53) ), pd257); }; goto lab_L100086; lab_L100084: ; } static void DrawCachedCircle_P3120(formal_c0602, formal_c0603, formal_c0604) word formal_c0602; W2 formal_c0603; word formal_c0604; { W10 var_c57376; /* declaration of context_v16088 skipped */ /* declaration of point_v16116 skipped */ /* declaration of circle_v16144 skipped */ register ptr gf_c57408 = (ptr) &globalframe; /* declaration of var_c55456 skipped */ (* (( (ptr) &var_c57376)+4)/* context_v16088 */ ) = formal_c0602; (* (W2Pt) (( (ptr) &var_c57376)+5)/* point_v16116 */ ) = formal_c0603; (* (( (ptr) &var_c57376)+7)/* circle_v16144 */ ) = formal_c0604; /* DrawCachedCircle: */ SOURCE(21035, 371) { word tmpAddr258; tmpAddr258 = (word) (( (ptr) &var_c57376)+8)/* var_c55456 */ ; (* (ptr) tmpAddr258 ) = ( ((word) (fPt) DoDrawCachedCircle_P4416) ); (* (( (ptr) tmpAddr258) + 1) ) = 1; }; SOURCE(21364, 42) { word pd259; pd259 = (* (( (ptr) (* (( (ptr) gf_c57408)+175)/* var_c51840 */ ))+12) ); (void) ( *( (fPt) ((* (ptr) pd259 ))))((* (( (ptr) &var_c57376)+4)/* context_v16088 */ ), (word) (( (bPt) &var_c57376)+32) /* var_c55456 */ , pd259); }; } static void DoDrawCachedCircle_P4416(formal_c57472) word formal_c57472; { register ptr gf_c57440 = (ptr) &globalframe; formal_c57472 = (formal_c57472 - 32); /* DoDrawCachedCircle: */ SOURCE(21124, 235) SOURCE(21153, 30) { word pd260; pd260 = (* (( (ptr) (* (( (ptr) gf_c57440)+175)/* var_c51840 */ ))+52) ); (void) ( *( (fPt) ((* (ptr) pd260 ))))((* (( (ptr) formal_c57472)+4) ), (* (ptr) (* (( (ptr) (* (( (ptr) gf_c57440)+175) /* var_c51840 */ ))+54) ) ), pd260); }; SOURCE(21185, 174) { word var_c55488; word var_c55520; { word pd261; float tf262; pd261 = (* (( (ptr) (* (( (ptr) gf_c57440)+190)/* var_c54880 */ ))+6) ); var_c55488 = ( tf262 = (float)(int)((word) ( *( (fPt) ((* (ptr) pd261 ))))((* ((( (ptr) formal_c57472)+5)) ), pd261) - IOP2( / , (int)(* ( ( (ptr) (* (( (ptr) formal_c57472)+7) ))+1) ), (int)2)), *(word*)&tf262 ); }; { word pd263; float tf264; pd263 = (* (( (ptr) (* (( (ptr) gf_c57440)+190)/* var_c54880 */ ))+6) ); var_c55520 = ( tf264 = (float)(int)((word) ( *( (fPt) ((* (ptr) pd263 ))))((* ((( (ptr) formal_c57472)+6)) ), pd263) - IOP2( / , (int)(* ( ( (ptr) (* (( (ptr) formal_c57472)+7) ))+2) ), (int)2)), *(word*)&tf264 ); }; { W2 var_c55552; W2 var_c55584; var_c55552.f0 = (* (( (ptr) (* (( (ptr) formal_c57472)+7) ))+2) ); var_c55552.f1 = 0; var_c55584.f0 = var_c55488; var_c55584.f1 = var_c55520; { word pd265; pd265 = (* (( (ptr) (* (( (ptr) gf_c57440)+175)/* var_c51840 */ ))+78) ); (void) ( *( (fPt) ((* (ptr) pd265 ))))((* (( (ptr) formal_c57472)+4) ), (* (ptr) (* (( (ptr) formal_c57472)+7) ) ), var_c55552, 13, var_c55584, pd265) ; }; }; }; } static void Init_P3180() { register ptr gf_c57504 = (ptr) &globalframe; /* Init: */ SOURCE(21412, 152) SOURCE(21430, 37) { word var_c55648; word pd266; pd266 = (* (( (ptr) (* (( (ptr) gf_c57504)+195)/* var_c55616 */ ))+7) ); var_c55648 = (word) ( *( (fPt) ((* (ptr) pd266 ))))((* ((( (ptr) gf_c57504)+54)) ), pd266); }; SOURCE(21470, 23) (* (( (ptr) gf_c57504)+5)/* versionRope_v6780 */ ) = (* (( (ptr) gf_c57504)+55) ); SOURCE(21547, 17) (* (( (ptr) gf_c57504)+6)/* version_v6808 */ ) = (* (ptr) &fc267 ); } static void NoName_Q4776(formal_c0500, formal_c200012, formal_c200013, formal_c200014, formal_c200015) word formal_c0500; word formal_c200012; word formal_c200013; word formal_c200014; word formal_c200015; { register ptr gf_c0574 = (ptr) &globalframe; if ((formal_c200013 == (* (ptr) (* (( (ptr) (* (( (ptr) gf_c0574)+174)/* var_c51808 */ ))+28) ) )) || (formal_c200013 == (* (ptr) (* ( ( (ptr) (* (( (ptr) gf_c0574)+175)/* var_c51840 */ ))+6) ) ))) { SOURCE(10247, 10) (* (ptr) formal_c0500 ) = 2; (* (( (ptr) formal_c0500)+1) ) = 5; return; }; (* (ptr) formal_c0500 ) = 0; (* (( (ptr) formal_c0500)+1) ) = 0; return; } static void NoName_Q4836(formal_c0505, formal_c200008, formal_c200009, formal_c200010, formal_c200011) word formal_c0505; word formal_c200008; word formal_c200009; word formal_c200010; word formal_c200011; { register ptr gf_c0575 = (ptr) &globalframe; if ((formal_c200009 == (* (ptr) (* (( (ptr) (* (( (ptr) gf_c0575)+174)/* var_c51808 */ ))+28) ) )) || (formal_c200009 == (* (ptr) (* ( ( (ptr) (* (( (ptr) gf_c0575)+175)/* var_c51840 */ ))+6) ) ))) { SOURCE(9894, 10) (* (ptr) formal_c0505 ) = 2; (* (( (ptr) formal_c0505)+1) ) = 4; return; }; (* (ptr) formal_c0505 ) = 0; (* (( (ptr) formal_c0505)+1) ) = 0; return; } static void NoName_Q4896(formal_c0510, formal_c200004, formal_c200005, formal_c200006, formal_c200007) word formal_c0510; word formal_c200004; word formal_c200005; word formal_c200006; word formal_c200007; { register ptr gf_c0576 = (ptr) &globalframe; if ((formal_c200005 == (* (ptr) (* (( (ptr) (* (( (ptr) gf_c0576)+174)/* var_c51808 */ ))+28) ) )) || (formal_c200005 == (* (ptr) (* ( ( (ptr) (* (( (ptr) gf_c0576)+175)/* var_c51840 */ ))+6) ) ))) { SOURCE(9358, 10) (* (ptr) formal_c0510 ) = 2; (* (( (ptr) formal_c0510)+1) ) = 3; return; }; (* (ptr) formal_c0510 ) = 0; (* (( (ptr) formal_c0510)+1) ) = 0; return; } static void NoName_Q4956(formal_c0515, formal_c200000, formal_c200001, formal_c200002, formal_c200003) word formal_c0515; word formal_c200000; word formal_c200001; word formal_c200002; word formal_c200003; { register ptr gf_c0577 = (ptr) &globalframe; if ((formal_c200001 == (* (ptr) (* (( (ptr) (* (( (ptr) gf_c0577)+174)/* var_c51808 */ ))+28) ) )) || (formal_c200001 == (* (ptr) (* ( ( (ptr) (* (( (ptr) gf_c0577)+175)/* var_c51840 */ ))+6) ) ))) { SOURCE(8965, 10) (* (ptr) formal_c0515 ) = 2; (* (( (ptr) formal_c0515)+1) ) = 2; return; }; (* (ptr) formal_c0515 ) = 0; (* (( (ptr) formal_c0515)+1) ) = 0; return; } /* file: GGUtilityImplA, module: GGUtilityImplA, compiled at: July 11, 1993 8:04:41 pm PDT */ extern void XR_install_GGUtilityImplA() { NoName_Q4476(); } extern void XR_run_GGUtilityImplA() { XR_Start(&globalframe); }