What do you suppose about this ? from Hans the Byte Surfer. ViewManager subclass: #GraphicsDemo instanceVariableNames: 'pen graphs selectedGraph pane bitmap ' classVariableNames: 'Count ' poolDictionaries: 'ColorConstants ' ! !GraphicsDemo class methods ! initialize "Private - Set the color count to 0." Count := 0.! ! !GraphicsDemo methods ! animationMenu "Private - Answer the animation menu." ^(Menu labels: 'Big red\Little blue\Spider\Stop\Clear' withCrs lines: #() selectors: #(bigRed littleBlue spider deactivateAnimation clearAnimation)) title: '&Animation'; owner: self; yourself! bigRed "Private - Create a red animated mandala." | mandala | mandala := AnimatedObject mandala: 11 diameter: 72 color: ClrRed. pane addObject: mandala. mandala display! cleanUp "Private - Clean up GraphicsDemo before closing." self clearAnimation. bitmap notNil ifTrue: [bitmap release].! clearAnimation "Private - Clear the animation." | objects | objects := pane contents. pane clear. objects do: [: each | each frames do: [: f | f release]]! close: aPane "Private - Release the bitmaps of the animated objects." Smalltalk isRunTime ifTrue: [ (MessageBox confirm: 'Are you sure you want to exit?') ifTrue: [ self cleanUp. self close. ^Smalltalk exit] ifFalse: [ ^self]] ifFalse: [ self cleanUp. Transcript notNil ifTrue:[ Transcript enableDemo]. ^super close].! copyMetaFile "Copy a metafile to the clipboard." | storedPicture | storedPicture := pen segments at: (graphs at: #mandala). storedPicture isNil ifTrue: [^self]. storedPicture pen width: pen width; height: pen height. Clipboard setMetaFile: storedPicture! deactivateAnimation "Private - Stop the animation." pane stopAll! display: aPane "Private - Display aPane contents." selectedGraph isNil ifTrue: [pen erase] ifFalse: [ selectedGraph = #displayBitmap ifTrue: [^self displayBitmap]. graphs at: selectedGraph ifAbsent: [^self]. pen erase. pen drawSegment: (graphs at: selectedGraph)]! displayBitmap "Private - Paste the bitmap." bitmap notNil ifTrue:[ pen copyBitmap: bitmap from: bitmap boundingBox to: (0 @ 0 extent: pen extent)]! drag: aPane "Private - Track the mouse." | animatedObject | animatedObject := aPane childAt: aPane mouseLocation. animatedObject notNil ifTrue: [animatedObject drag: aPane mouseLocation]. aPane when: #button1Move perform: nil! dragon "Private - Draw a dragon pattern where anInteger is the recursion factor." self drawBlockNow: [ pen home; north; dragon: 11] for: #dragon! drawBlock: aBlock for: symbol "Private - Draw the selected graphics in a segment and make a backup." | intState wasActive | wasActive := pane stop. pen erase. selectedGraph := symbol. (graphs includesKey: symbol) ifFalse: [ graphs at: symbol put: (pen retainPicture: aBlock)]. self display: nil. pane makeBackup. wasActive ifTrue: [pane go]! drawBlockNow: aBlock for: symbol "Private - Draw the selected graphics and make a backup of the receiver." | intState wasActive | wasActive := pane stop. pen erase. selectedGraph := symbol. (graphs includesKey: symbol) ifTrue: [self display: nil] ifFalse: [ graphs at: symbol put: (pen drawRetainPicture: aBlock)]. pane makeBackup. wasActive ifTrue: [pane go]! drawMandalas "Private - Draw 8 mandalas." (Commander pen: 8 forDC: pen handle medium: pane) place: (self mainView rectangle extent) // 2; fanOut; up; go: 90; down; mandala: 12 diameter: 170 initDir: 270! drawSpirals "Private - Draw 4 spirals." | commander | commander := (Commander pen: 4 forDC: pen handle medium: pane). commander place: (self mainView rectangle extent) // 2; fanOut; up; go: 90; down. 1 to: 180 do: [: i | commander go: i; turn: 122]! drawWalkLine "Private - Draw rotating lines." | incrX incrY numberOfLines boundX | numberOfLines := 60. incrX := pen width / numberOfLines. incrY := pen height / numberOfLines. boundX := (incrX * (numberOfLines)). 1 to: numberOfLines + 1 do: [: i | pen foreColor: (GraphicsTool paletteIndex: ( (Count := Count + 1) \\ 7 + 1)); place: (i - 1 * incrX) rounded @ 0; goto: (boundX - (i * incrX) @ (i * incrY)) rounded]! drawWith: graphPane "Private - Assign the receiver's pen." pen := graphPane pen! graphicsMenu: aPane "Private - Set the menu for the graph pane." aPane setMenu: ( (Menu labels: '&Walk Line\&Mandala\M&ulti Mandala\&Dragon\Multi &Spiral\&Paste' withCrs lines: #() selectors: #(walkLine mandala multiMandala dragon multiSpiral paste)) title: '&Graphics'; owner: self; yourself)! initWindowSize "Private - Answer default initial window extent." ^Display extent * 7 // 8! littleBlue "Private - Create a blue animated mandala." | mandala | mandala := AnimatedObject mandala: 9 diameter: 48 color: ClrBlue. pane addObject: mandala. mandala display! mandala "Private - Draw a mandala." pen home. self drawBlockNow: [ pen mandala: 20 diameter: pen height * 7 // 8] for: #mandala! mouseDown: aPane "Private - Process a mouse down event." | aPoint animatedObject | aPoint := aPane mouseLocation. animatedObject := aPane childAt: aPoint. animatedObject notNil ifTrue: [ ^aPane when: #button1Move perform: #drag:]! multiMandala "Private - Draw 8 mandalas." self drawBlockNow: [self drawMandalas] for: #multiMandala! multiSpiral "Private - Draw 4 spirals." self drawBlockNow: [self drawSpirals] for: #multiSpiral! open "Open the graphics demo window." graphs := Dictionary new. self label: 'Graphics Demo'; foreColor: ClrBlack; backColor: ClrWhite; when: #close perform: #close:; owner: self. self addSubpane: (pane := AnimationPane new owner: self; when: #getContents perform: #drawWith:; when: #display perform: #display:; when: #button1Down perform: #mouseDown:; when: #getMenu perform: #graphicsMenu:). self openWindow. self menuWindow addMenu: self animationMenu.! paste "Private - Paste a bitmap from the clipboard to window." selectedGraph := #displayBitmap. bitmap notNil ifTrue: [bitmap release]. (bitmap := Clipboard getBitmap) isNil ifTrue: [^self]. self displayBitmap. pane makeBackup! pasteMetaFile "Paste a metafile from the clipboard." | storedPicture | storedPicture := Clipboard getMetaFile. storedPicture isNil ifTrue: [^self]. pen erase. storedPicture play: pen! setScale "Private - Set the scale for displaying selected graph demo." | scale | scale := (pen width * 2 / pen width) @ (pen height * 2 / pen height). (pen setScale: scale) = 1 ifFalse: [^self error: 'setScale error']. self perform: selectedGraph! spider "Private - Create a spider chaser." | spider | spider := AnimatedObject spider: 100. pane addObject: spider. spider endBlock: [: s | Menu message: 'Gotcha!! !!']. spider display. spider animate! walkLine "Private - Draw rotating lines." self drawBlock: [self drawWalkLine] for: #walkLine! !