The Inbox: MorphicExtras-ct.361.mcz

Christoph Thiede uploaded a new version of MorphicExtras to project The Inbox:
http://source.squeak.org/inbox/MorphicExtras-ct.361.mcz

==================== Summary ====================

Name: MorphicExtras-ct.361
Author: ct
Time: 8 July 2026, 8:20:17.571489 pm
UUID: 6074fa08-d003-4215-ba4a-775852c72354
Ancestors: MorphicExtras-ct.360

Proposal: Adds web cam to Objectland's fun with graphics. Does this fit into this project? We did not reintroduce fun with multimedia (if it was named like that) because most examples did not work in this project.
Also, this is probably not ready for prime before https://github.com/squeak-smalltalk/squeak-object-memory/issues/162 gets solved.

=============== Diff against MorphicExtras-ct.360 ===============

Item was changed:
  ----- Method: ObjectlandMorph>>createGraphicsProject (in category 'projects') -----
  createGraphicsProject
  
  	^ self
  		createProjectNamed: 'Fun with Graphics' translated
  		colorRamp: {
  			0 -> (Color r: 1 g: 0.916 b: 0.585).
  			1 -> (Color r: 1 g: 0.804 b: 0.008) }
  		morphSpecs: {
  			(0.08 @ 0.15 exactCenter: 0.08 @ 0.7) -> [
  				SketchMorph extraExampleCook].
  			(0.08 @ 0.15 exactCenter: 0.77 @ 0.1) -> [
  				SketchMorph extraExampleWizard].
  			(0.12 @ 0.15 exactCenter: 0.35 @ 0.2) -> [
  				BannerMorph example addFlexShell].
  			(0.15 @ 0.15 exactCenter: 0.1 @ 0.18) -> [
  				WatchMorph example].
  			0.12 @ 0.41 -> [
  				CalendarMorph new
  					color: Color green muchDarker;
  					date: (Date year: 1996 month: 09 day: 24); step;
  					rotationDegrees: -2;
  					owner].
  			0.83 @ 0.58 -> [
  				PolygonMorph extraExampleTextFlow].
  			0.55 @ 0.72 -> [
  				CurveMorph extraExampleTextFlow addFlexShell scale: RealEstateAgent scaleFactor].
  			(0.27 @ 0.2 exactCenter: 0.33 @ 0.77) -> [
  				BouncingAtomsMorph new
  					rotationDegrees: 1;
  					color: Color orange darker;
  					yourself].
  			(0.08 @ 0.15 exactCenter: 0.46 @ 0.12) -> [
  				StarMorph new
  					addHandles;
  					balloonText: 'Drag my yellow handles to resize me, or click on my other handles to reshape me';
  					yourself].
  			(0.1 @ 0.2 exactCenter: 0.51 @ 0.42) -> [
  				FishEyeMorph new
  					flag: #todo "maxExtent: 0.09 @ 0.17";
  					addFlexShell].
+ 			(0.13 @ 0.2 exactCenter: 0.65 @ 0.42) -> [
+ 				| cam |
+ 				(cam := WebCamMorph new)
+ 					on; off; imageForm;
+ 					on: #mouseDown send: #toggleCameraOnOff to: cam;
+ 					rotationDegrees: 7;
+ 					owner].
  			(0.18 @ 0.24 exactCenter: 0.62 @ 0.17) -> [:world |
  				(NewColorPickerMorph
  					on: world
  					originalColor: world fillStyle colorRamp last value
  					setColorSelector: #gradientFillColor:)
  					rotationDegrees: 11;
  					yourself].
  			0.34 @ 0.4 -> [
  				PolygonMorph extraExampleTrapezePlus].
  			(0.14 @ 0.14 exactCenter: 0.72 @ 0.64) -> [
  				| curve |
  				(curve := CurveMorph extraExampleArrow)
  					addMorph: ('... snazzy bevelled edges!!' asTextMorph
  						center: (curve pointAtFraction: 0.75 @ 0.3);
  						rotationDegrees: 25;
  						owner);
  					addFlexShell].
  			0.125 @ 0.9 -> [
  				self makeGiftFor: ObjectsTool newStandAlone labeled: 'Objects Tool'].
  			0.85 asPoint -> [
  				EventRecorderMorph new].
  			0.95 @ 0.23 -> [
  				BlobMorph new].
  			0.28 @ 0.91 -> [
  				BlobMorph new].
  			0.34 @ 0.08 -> [
  				BlobMorph new]. }
  		initializeWorld: [:world | self class
  			fill: world
  			with: 20
  			factory: [TetrisPieceMorph random]
  			ifOverflow: []]!

Squeak-dev mailing list -- [email protected]
To unsubscribe send an email to [email protected]