[Newbies] What do you suppose about this ?

[Hans Schueren]

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! !