| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071 |
- Smalltalk createPackage: 'Processing-Examples'!
- Object subclass: #ProcessingClock
- instanceVariableNames: 'processing centerX centerY maxArmLength'
- package: 'Processing-Examples'!
- !ProcessingClock methodsFor: 'not yet classified'!
- draw
- | drawBlock |
- drawBlock := [
- | now hoursPosition minutesPosition secondsPosition |
- processing background: 224.
-
- now := Date new.
-
- "Moving hours arm by small increments"
- hoursPosition := ((now hours \\ 12) + (now minutes / 60 )) /12 .
- self drawArm: hoursPosition lengthScale: 0.5 weight: 5.
-
- "Moving minutes arm by small increments"
- minutesPosition := (now minutes + (now seconds / 60))/60.
- self drawArm: minutesPosition lengthScale: 0.80 weight: 3.
- "Moving hour arm by second increments"
- secondsPosition := now seconds / 60.
- self drawArm: secondsPosition lengthScale: 0.90 weight: 1.
- ].
- ^drawBlock
- !
- drawArm: aPosition lengthScale: aLengthScale weight: aWeight
- | myDX myDY |
- processing strokeWeight: aWeight.
- myDX := centerX
- + ((Math sin: (aPosition * 2 * Math PI))
- * aLengthScale * maxArmLength).
- myDY := centerY
- - ((Math cos: (aPosition * 2 * Math PI))
- * aLengthScale * maxArmLength).
- processing line: centerX y: centerY dX: myDX dy: myDY.
- !
- firstProcessingInstance
- <return Processing.instances[0]>
- !
- initialize
- processing := self firstProcessingInstance.
- centerX := processing width / 2.
- centerY := processing height / 2.
- maxArmLength := Math min: centerX or: centerY.
- !
- processing
- ^processing
- ! !
- !ProcessingClock class methodsFor: 'not yet classified'!
- init
- | clock processing block |
- clock := ProcessingClock new .
- processing := clock processing.
- block := clock draw.
- processing at: 'draw' put: block
- ! !
|
