> IF firstPage THEN BEGIN IF (multipageHack # NIL) THEN BEGIN TerminalIO.PutRope [Rope.Cat ["Interpress master ", multipageHack.ipName, " was orphaned and is being salvaged.\n"]]; multipageHack.interpress.Close []; multipageHack _ NIL END; multipageHack _ state _ NEW [StateRec]; state.design _ design; IF singleLayer THEN {state.singleLayer _ TRUE; state.layerOfInterest _ layer}; state.substituteColor _ SubColours []; IF statistics THEN {ResetColourStatistics; state.cardTile _ 0}; state.abort _ IF abortFlag # NIL THEN abortFlag ELSE NEW [BOOL _ FALSE]; state.startTime _ BasicTime.Now [] END ELSE BEGIN state _ multipageHack; masterName _ state.ipName; state.previousColour _ NIL; state.previousStrokeWidth _ -1.0; state.previousFont _ NIL; state.previousTextOrientation _ original END; state.isLastPage _ lastPage; state.isFirstPage _ firstPage; state.clip _ clip; state.cdClip _ chipNDaleWindow; state.selectedOnly _ onlySel; Action [] END; -- DoInterpress DrawSelection: PROC [design: CD.Design, d: CD.DrawRef] ~ BEGIN <> FOR all: CD.InstanceList _ CDOps.InstList [design], all.rest WHILE all # NIL DO IF all.first.selected THEN d.drawChild [d, all.first.ob, all.first.trans, all.first.properties] ENDLOOP END; -- DrawSelection EnumerateObjects: PROC [design: CD.Design, d: CD.DrawRef] ~ BEGIN <> DoObject: CDDirectory.EachEntryAction ~ BEGIN <> d.drawChild [d, ob, [[0,0], original], NIL] END; -- DoObject [] _ CDDirectory.Enumerate [design, DoObject] END; -- EnumerateObjects ChangeColour: PROC [state: State, colour: Color] ~ INLINE BEGIN <> context: Imager.Context ~ state.context; IF (colour # state.previousColour) THEN BEGIN context.SetColor [colour]; state.previousColour _ colour END END; -- ChangeColour <> <> <> <> <> <> <> <> <> ChangeStrokeWidth: PROC [state: State, w: REAL] ~ INLINE BEGIN <> context: Imager.Context ~ state.context; IF (w < 0) OR (w # state.previousStrokeWidth) THEN BEGIN context.SetStrokeWidth [w]; state.previousStrokeWidth _ w END END; -- ChangeStrokeWidth ChangeFont: PROC [state: State, skFont: Font] ~ INLINE BEGIN <> context: Imager.Context ~ state.context; IF (skFont # state.previousFont) THEN BEGIN prFont: Font _ NARROW [fontMap.Fetch[skFont].val]; IF (prFont = NIL) THEN BEGIN <> prFont _ Mapping [skFont]; [] _ fontMap.Insert [skFont, prFont] END; context.SetFont [prFont]; state.previousFont _ skFont END END; -- ChangeFont <> <> fontMap: RefTab.Ref ~ RefTab.Create []; -- global fontPrefix: ATOM ~ Atom.MakeAtom ["xerox/pressfonts/"]; visitedCells: RefTab.Ref; DrawFilter: CD.DrawProc ~ BEGIN <<[pr: CD.DrawRef, ob: CD.Object, trans: CD.Transformation_[], readOnlyInstProps: CD.PropList_NIL]>> SELECT ob.class.objectType FROM $Text, $RigidText, $FlipText => FindFont [pr, ob, trans, readOnlyInstProps]; $Cell => <> IF visitedCells.Insert [ob, $hack] THEN ob.class.drawMe [pr, ob, trans, readOnlyInstProps]; ENDCASE => NULL END; -- DrawFilter FindFont: CD.DrawProc ~ BEGIN <<[pr: CD.DrawRef, ob: CD.Object, trans: CD.Transformation_[], readOnlyInstProps: CD.PropList_NIL]>> text: CDTexts.TextSpecific ~ NARROW [ob.specific]; font: Font ~ text.cdFont.font; IF NOT fontMap.Fetch[font].found THEN [] _ fontMap.Insert [font, Mapping [font]] END; -- FindFont UpdateFontMap: PROC [state: State] ~ BEGIN <> tdr: CD.DrawRef ~ CD.CreateDrawRef [[]]; Evict: RefTab.EachPairAction ~ {[] _ visitedCells.Delete [key]; RETURN [FALSE]}; remindFontConventions _ TRUE; tdr.drawChild _ DrawFilter; tdr.drawRect _ DoNotDrawRect; tdr.drawContext _ DoNotDrawContext; tdr.devicePrivate _ state; visitedCells _ RefTab.Create [557]; IF state.selectedOnly THEN DrawSelection [state.design, tdr] ELSE EnumerateObjects [state.design, tdr]; <> [] _ visitedCells.Pairs [Evict]; visitedCells _ NIL END; -- UpdateFontMap Mapping: PROC [sk: Font] RETURNS [mr: Font] ~ BEGIN <> fontVendor, fontClass, fullName, shortName, family, attributes: ROPE; slashPos1, slashPos2, sizePos, facePos: INTEGER; isXerox: BOOL; face: NodeStyle.FontFace _ Regular; typeface: Typeface _ sk.typeface; size: REAL; fullName _ typeface.name; slashPos1 _ fullName.SkipTo [0, "/"]; fontVendor _ fullName.Substr [0, slashPos1]; isXerox _ fontVendor.Equal ["Xerox", FALSE]; slashPos1 _ slashPos1.SUCC; slashPos2 _ fullName.SkipTo [slashPos1, "/"]; fontClass _ fullName.Substr [slashPos1, slashPos2-slashPos1]; shortName _ fullName.Substr [slashPos2+1]; SELECT TRUE FROM isXerox AND fontClass.Equal ["PressFonts", FALSE] => BEGIN IF remindFontConventions THEN BEGIN TerminalIO.PutRope ["Nectarine takes care of all the font substitutions. You can use the strike fonts for the layout.\n"]; remindFontConventions _ FALSE END; mr _ sk END; isXerox AND fontClass.Equal ["TiogaFonts", FALSE] => BEGIN <> sizePos _ shortName.SkipTo [0, "0123456789"]; attributes _ shortName.Substr [sizePos, shortName.Length[]-sizePos]; facePos _ attributes.SkipTo [0, "bBiI"]; <> size _ (ORD [attributes.Fetch[0]] - ORD ['0]); FOR i: INT IN [1 .. facePos) DO size _ size * 10.0 + (ORD [attributes.Fetch[i]] - ORD ['0]) ENDLOOP; <> IF (facePos # attributes.Length[]) THEN BEGIN it: BOOL ~ (attributes.SkipTo [0, "iI"] # attributes.Length[]); b: BOOL ~ (attributes.SkipTo [0, "bB"] # attributes.Length[]); SELECT TRUE FROM it AND b => face _ BoldItalic; it AND NOT b => face _ Italic; NOT it AND b => face _ Bold; ENDCASE => ERROR END; family _ shortName.Substr [0, sizePos]; mr _ NodeStyleFont.FontFromStyleParams [prefix: fontPrefix, family: Atom.MakeAtom[family], face: face, size: size, alphabets: CapsAndLower]; mr _ ImagerFont.Modify [mr, sk.charToClient] END; ENDCASE => BEGIN IF isXerox THEN TerminalIO.PutRope [fullName.Cat [": font class", fontClass, " unknown, not substituted.\n"]] ELSE TerminalIO.PutRope [fullName.Cat [": vendor", fontVendor, " unknown, not substituted.\n"]]; mr _ sk END END; -- Mapping ImagerRect: PROC [r: CD.Rect] RETURNS [Imager.Rectangle] ~ BEGIN base: CD.Position ~ CDBasics.BaseOfRect [r]; size: CD.Position ~ CDBasics.SizeOfRect [r]; RETURN [[Float[base.x], Float[base.y], Float[size.x], Float[size.y]]] END; -- ImagerRect ImagerVec: PROC [p: CD.Position] RETURNS [Imager.VEC] ~ BEGIN RETURN [[Float[p.x], Float[p.y]]] END; -- ImagerVec BoxFromRect: PROC [r, viewport: CD.Rect] RETURNS [Box] ~ BEGIN <> <> <> RETURN [[min: [f: r.x1-viewport.x1, s: viewport.y2-r.y2], max: [f: r.x2-viewport.x1, s: viewport.y2-r.y1]]] END; -- BoxFromRect QuickTransf: PROC [r: CD.Rect, state: State] RETURNS [CD.Rect] ~ BEGIN PointX: PROC [p: INT] RETURNS [INT] ~ INLINE BEGIN RETURN [Round [Float [p-state.cdClip.x1] * state.bitmapScale]] END; -- PointX PointY: PROC [p: INT] RETURNS [INT] ~ INLINE BEGIN RETURN [Round [Float [p-state.cdClip.y1] * state.bitmapScale]] END; -- PointY RETURN [[PointX [r.x1], PointY [r.y1], PointX [r.x2], PointY [r.y2]]] END; -- QuickTransf <> <> <> RGBFromColour: PROC [c: Color] RETURNS [rgb: ImagerColor.RGB] ~ INLINE BEGIN <> WITH c SELECT FROM constant: Imager.ConstantColor => rgb _ ImagerColorPrivate.RGBFromColor [constant]; ENDCASE => rgb _ unColour; RETURN [rgb] END; -- RGBFromColour SubColours: PROC RETURNS [BOOL] ~ INLINE BEGIN RETURN [UserProfile.Boolean [key: "Nectarine.SubstituteColors", default: colSubDef]] END; -- SubColours DoLineArt: PROC RETURNS [BOOL] ~ INLINE BEGIN RETURN [UserProfile.Boolean [key: "Nectarine.LineArt", default: FALSE]] END; -- DoLineArt UseProcessColors: PROC RETURNS [BOOL] ~ INLINE BEGIN RETURN [UserProfile.Boolean [key: "Nectarine.ProcessColors", default: TRUE]] END; -- UseProcessColors ImportantMessage: PROC [msg: ROPE] ~ BEGIN <> TerminalIO.PutRope [msg]; TerminalIO.PutRope ["\n"]; MessageWindow.Clear []; MessageWindow.Append [msg]; MessageWindow.Blink [] END; -- ImportantMessage DoNotDrawContext: CD.DrawContextProc ~ {}; DoNotDrawObject: CD.DrawProc ~ {}; DoNotDrawRect: CD.DrawRectProc ~ {}; OrRect: CD.DrawRectProc ~ BEGIN <<[r: Rect, l: Layer, pr: DrawRef]>> state: State ~ NARROW [pr.devicePrivate, State]; IF (state.singleLayer AND (l # state.layerOfInterest)) THEN RETURN; IF (CDBasics.NonEmpty [r]) THEN BEGIN IF state.abort^ THEN ERROR ABORTED; ChangeColour [state, LayerColour [l]]; state.context.MaskRectangle [ImagerRect [r]] END END; -- OrRect LineRect: CD.DrawRectProc ~ BEGIN <<[r: Rect, l: Layer, pr: DrawRef]>> state: State ~ NARROW [pr.devicePrivate, State]; IF (state.singleLayer AND (l # state.layerOfInterest)) THEN RETURN; IF (CDBasics.NonEmpty [r]) AND (LayerColour [l] # NIL) THEN BEGIN IF state.abort^ THEN ERROR ABORTED; ChangeColour [state, LayerColour [l]]; state.context.MaskRectangle [ImagerRect [r]] END END; -- LineRect <> Print: PUBLIC PROC [masterName: Rope.ROPE, printerKey: ATOM, copies: INT _ 1, doNotScale: BOOL _ FALSE, mergeRegister: BOOL _ TRUE, sizeHint: REF Imager.Rectangle _ NIL, abortFlag: REF BOOL] RETURNS [peachName: ROPE] ~ BEGIN <> <> <> errorCause: ROPE; pos: FS.ComponentPositions; {ENABLE BEGIN XNSPrint.Error => {errorCause _ explanation; GOTO xnsFailure}; END; IF masterName.IsEmpty THEN BEGIN TerminalIO.PutRope ["Produce an Interpress master first.\n"]; RETURN [NIL] END; IF (abortFlag = NIL) THEN abortFlag _ NEW [BOOL _ FALSE]; IF abortFlag^ THEN ERROR ABORTED; Process.CheckForAbort; <> pos _ FS.ExpandName[masterName].cp; SELECT printerKey FROM $NVersatec, $NColorVersatec, $NBw400, $NColor400, $NPeachExpand, $NRaven384 => BEGIN peachName _ masterName.Replace [pos.ext.start, pos.ext.length, "PD"]; TRUSTED BEGIN Process.Detach [FORK PdPrintProcess [masterName, peachName, printerKey, copies, doNotScale, FALSE, sizeHint, abortFlag]] END; TerminalIO.PutRope ["Printing process forked off.\n"] END; $NRaven300, $C2700 => BEGIN serverName: ROPE; fullName: ROPE; -- with version number c: XNSPrint.Context ~ XNSPrint.GetDefaults []; fullName _ FS.FileInfo [name: masterName, remoteCheck: FALSE].fullFName; pos _ FS.ExpandName [fullName].cp; c.printObjectName _ fullName.Substr[start: pos.base.start, len: pos.base.length].Cat["!",fullName.Substr[start: pos.ver.start, len: pos.ver.length]]; -- Sorry ! SELECT printerKey FROM $NRaven300 => serverName _ UserProfile.Token ["Nectarine.Raven300", "Quoth"]; $C2700 => serverName _ UserProfile.Token ["Nectarine.C2700", "TimsToy"]; ENDCASE => SIGNAL invalidPrinter; c.printerName _ serverName; c.printObjectCreateDate _ FS.FileInfo [name: fullName, remoteCheck: FALSE].created; c.copyCount _ copies; c.senderName _ UserCredentials.Get[].name; c.message _ Rope.Cat ["Nectarine for ", c.senderName]; IF abortFlag^ THEN ERROR ABORTED; Process.CheckForAbort; [] _ XNSPrint.PrintFromFile [fullName, c]; TerminalIO.PutF ["%g submitted to %g.\n", IO.rope [c.printObjectName], IO.rope [serverName]]; peachName _ masterName END; $NPlateMaker => BEGIN <> <> <> <> <> <Platemaker>", user, ">", masterName.Substr [pos.base.start, pos.base.length], ".Interpress"]];>> <> peachName _ masterName.Substr [pos.base.start, pos.base.length]; TRUSTED BEGIN Process.Detach [FORK PdPrintProcess [masterName, peachName, printerKey, copies, doNotScale, mergeRegister, sizeHint, abortFlag]] END; TerminalIO.PutRope ["Printing process forked off.\n"]; IF abortFlag^ THEN ERROR ABORTED; Process.CheckForAbort; <<[sent, info] _ SimpleMailer.SendMessage [from: "Nectarine", to: LIST ["Scamporrino.PA"], cc: LIST [user], subject: "Platemaker Print Request", body: Rope.Cat ["Dear Bridget,\n\nHow are you today ?\nPlease print for me the file ", gName, ".\n\nThe Interpress master is in A size with a margin of 1 cm on each side.\n\nThis master is for your convenience to preview the picture on a monitor. In a while, you will also find there the required separations ready to be printed. I will send you a message with the names as soon as I will have produced them.\n\nThank you,\n", user]];>> <> <> < TerminalIO.PutRope ["Your job will be printed as fast as possible.\n"];>> < TerminalIO.PutRope ["The person in charge of Platemaker has changed. Please consult a wizard.\n"];>> < TerminalIO.PutRope ["Nectarine can no longer handle printing on Platemaker. Please consult a wizard.\n"];>> < TerminalIO.PutF ["Your password is invalid. May be you just changed it and did not roll-back. Ask Bridget Scamporrino to print %g for you.\n", IO.rope [gName]];>> < TerminalIO.PutF ["You need a Grapevine account to print on Platemaker with no hands. Ask Bridget Scamporrino to print %g for you.\n", IO.rope [gName]];>> < TerminalIO.PutRope ["Implementation problem.\n"];>> < TerminalIO.PutF ["The mail system is down. Ask Bridget Scamporrino to print %g for you.\n", IO.rope [gName]];>> < ERROR>> END; ENDCASE => SIGNAL invalidPrinter; EXITS xnsFailure => BEGIN ImportantMessage [errorCause.Cat [" File saved on ", peachName, " for manual retry."]] END } END; -- Print <> previousColorSubEntry: BOOL _ SubColours []; previousLineArtEntry: BOOL _ DoLineArt []; previousInkEntry: BOOL _ UseProcessColors []; GetStatisticsToggle: UserProfile.ProfileChangedProc ~ BEGIN colorSub: BOOL ~ SubColours []; lineArt: BOOL ~ DoLineArt []; processColors: BOOL ~ UseProcessColors []; statistics _ UserProfile.Boolean [key: "Nectarine.Statistics"]; IF (colorSub # previousColorSubEntry) THEN BEGIN previousColorSubEntry _ colorSub; IF (reason = edit) OR (reason = newUser) THEN BEGIN TerminalIO.PutRope ["\nOption for color substitution changed.\n"]; IF colorSub THEN BEGIN ReadMap ["[DATools7.0]Discriminable.ColorMap"]; [] _ ResetLayerColourTable []; BlendTileColours END ELSE [] _ ResetLayerColourTable [] END END; IF (lineArt # previousLineArtEntry) THEN BEGIN previousLineArtEntry _ lineArt; IF (reason = edit) OR (reason = newUser) THEN BEGIN TerminalIO.PutRope ["\nOption for line art changed.\n"]; IF NOT lineArt THEN BEGIN ReadMap ["[DATools7.0]Discriminable.ColorMap"]; [] _ ResetLayerColourTable []; BlendTileColours END ELSE [] _ ResetLayerColourTable [] END END; IF (processColors # previousInkEntry) THEN BEGIN previousInkEntry _ processColors; IF (reason = edit) OR (reason = newUser) THEN BEGIN TerminalIO.PutRope ["\nOption for line art ink changed.\n"]; [] _ ResetLayerColourTable [] END END END; -- GetStatisticsToggle TimeToRope: PROC [from, to: BasicTime.GMT] RETURNS [time: ROPE] ~ BEGIN <> TwoPosInt: PROC [i: INT] RETURNS [ROPE] ~ BEGIN RETURN [SELECT i FROM = 0 => "00", < 10 => Rope.Cat ["0", IO.PutFR1 [value: IO.int [i]]], ENDCASE => IO.PutFR1 [value: IO.int [i]]] END; s: INT _ BasicTime.Period [from, to]; m: INT _ s / 60; h: INT _ m / 60; d: INT ~ h / 24; s _ s MOD 60; m _ m MOD 60; h _ h MOD 24; IF (d > 0) THEN time _ Rope.Cat ["d:h:m:s ", TwoPosInt[d], ":"] ELSE time _ "h:m:s "; time _ time.Cat [TwoPosInt[h], ":"]; RETURN [time.Cat [TwoPosInt[m], ":", TwoPosInt[s]]] END; -- TimeToRope <> doc: ROPE ~ "tunes the parameters of Nectarine.\n\t-a do not align rectangles to pixels (schematics)\n\t-b outline regions\n\t\t-1: no outline\n\t\t 0: one pixel outline\n\t\t 1: unit width outline\n\t-c do not use (reveal tess.)\n\t-d <1/density> controls the size of bands (risk)\n\t-e do not trace color inferences\n\t-f do not use ChipNDale to image annotation\n\t-g ignore annotation (image only rectangles)\n\t-h do rectangles\nIf a boolean switch is absent, it is set to TRUE.\n[Additional commands: NCount, NRedo, NQuery, NWriteColors, NReadColors, NOldColors, PrintDesignOnVersatec, NectarineField, NSetMaxField, NectarineSignal]."; fieldDoc: ROPE ~ "explicitly set the field size to perform image ganging. Specify the field in mm\n\t-x lower left corner x\n\t-y lower left corner y\n\t-w width\n\t-h height\nDefaults: x: medium.x + 10.0, y: medium.y + 10.0, w: medium.w - 20.0, h: medium.h - 20.0; where medium = [x: 0.0, y: 0.0, w: 215.9, h: 279.4]\n[Additional commands: NCount, NRedo, NQuery, NWriteColors, NReadColors, NOldColors, PrintDesignOnVersatec, Nectarine, NSetMaxField, NectarineSignal]."; signalDoc: ROPE ~ "controls the rendering of signal names. If no parameter is specified, they will rendered with a 5 CMOS-lambda font. If a positive value is specified with the -a switch, this values is used as the font size, otherwise the rendering of signal names is disabled. If switch -b is not specified or positive, the names are centered, otherwise they start at the origin. Side-effect: Nectarine's -f switch is set.\n[Additional commands: NCount, NRedo, NQuery, NWriteColors, NReadColors, NOldColors, PrintDesignOnVersatec, NectarineField, NSetMaxField, Nectarine]."; argError: ROPE; SetSwitches: Commander.CommandProc ~ BEGIN <> <> align, outlineType, tess, density, inferenceTrace, ann, skipAnn, hyp: Args.Arg; prevTraceValue: BOOL ~ traceColourInferences; IF (Args.NArgs [cmd] # 0) THEN BEGIN [align, outlineType, tess, density, inferenceTrace, ann, skipAnn, hyp] _ Args.ArgsGet [cmd, "-a%b-b%i-c%b-d%i-e%b-f%b-g%b-h%b" ! Args.Error => {argError _ reason; GOTO failure}]; layout _ (align.ok AND align.bool); IF outlineType.ok THEN outline _ SELECT outlineType.int FROM < 0 => -1.0, > 0 => 1.0, ENDCASE => 0.0; showTesselation _ (tess.ok AND tess.bool); IF density.ok THEN risk _ density.int; traceColourInferences _ (inferenceTrace.ok AND inferenceTrace.bool); letChipndaleCallTheImager _ NOT (ann.ok AND ann.bool); ignoreAnnotation _ (skipAnn.ok AND skipAnn.bool); IF debug THEN imageRegions _ (hyp.ok AND hyp.bool) END; msg _ IO.PutFR ["Nectarine parametrisation: layout = %g, outline = %g, risk = %g, annotation via cd = %g, ignore annotation = %g\nYou typed: Nectarine", IO.bool [layout], IO.real [outline], IO.int [risk], IO.bool [letChipndaleCallTheImager], IO.bool [ignoreAnnotation]]; IF layout THEN msg _ msg.Concat [" -a"]; msg _ IO.PutFR ["%g -b %g -d %g", IO.rope [msg], IO.int [Round [outline]], IO.int [risk]]; IF traceColourInferences THEN msg _ msg.Concat [" -e"]; IF NOT letChipndaleCallTheImager THEN msg _ msg.Concat [" -f"]; IF ignoreAnnotation THEN msg _ msg.Concat [" -g"]; IF imageRegions THEN msg _ msg.Concat [" -h"]; IF (traceColourInferences # prevTraceValue) THEN BEGIN [] _ ResetLayerColourTable []; IF SubColours [] THEN BlendTileColours [] END; EXITS failure => RETURN [$Failure, argError.Cat ["\n", doc]] END; -- SetSwitches SignalNames: Commander.CommandProc ~ BEGIN <> size, alignement: Args.Arg; [size, alignement] _ Args.ArgsGet [cmd, "-a%i-b%i" ! Args.Error => {argError _ reason; GOTO failure}]; IF (Args.NArgs [cmd] = 0) OR (NOT size.ok) THEN size.int _ 5; -- in IF (size.int <= 0) THEN size.int _ 0; IF size.int > 0 THEN BEGIN regularFace: Font ~ ImagerFont.Find ["Xerox/PressFonts/Modern-MRR", substituteQuietly]; signalNameFont _ regularFace.Scale [8 * size.int]; msg _ IO.PutFR ["Signal names will be imaged and their size will be %g CMOS-lambdas.", IO.int [size.int]]; letChipndaleCallTheImager _ FALSE END ELSE {signalNameFont _ NIL; msg _ "Signal names will not be imaged"}; IF alignement.ok THEN centerSignalNames _ (alignement.int > 0); msg _ IO.PutFR ["%g Centered signal names = %g.", IO.rope [msg], IO.bool [centerSignalNames]]; EXITS failure => RETURN [$Failure, argError.Cat ["\n", signalDoc]] END; -- SignalNames UserProfile.CallWhenProfileChanges [GetStatisticsToggle]; Commander.Register [key: "Nectarine", proc: SetSwitches, doc: doc]; Commander.Register [key: "NectarineSignals", proc: SignalNames, doc: signalDoc] END. <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <<1000 details for ChipNDale's special colors.>> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <<>>