Le 2 mai 2015 09:45, "Esteban Lorenzano" estebanlm@gmail.com a écrit :
nice. you will want to use the Idea icon pack with dark theme… experience is
highly improved :)
Yes!
I like the exception icons a bit more "different" than "generic blueish". I'll do yellow/orange ones.
Phil
Esteban
On 02 May 2015, at 00:08, Peter Uhnák i.uhnak@gmail.com wrote:
Hi,
since I wanted to use DarkTheme I played around with TRMorph (since
seeing giant white rectangle in dark theme is not very nice).
What I have done is moved the background color setting to `surface
clear:` (instead of the original aCanvas fillRectangle).
And then if theme background luminance is dark (>0.5), I invert all the
colors in the visualization.
For dark theme the background is black, and not the theme background -
at least to me it seems that black is much clearer.
Is this something that could be incorporated?
<2015-05-02_00:05:11.png>
And the modified code:
"protocol: drawing" TRMorph>>drawOn: aCanvas "aCanvas is a FormCanvas" self checkSession. "aCanvas fillRectangle: bounds color: trachelCanvas color." trachelCanvas playAnimations. "The drawing has to be done when a change in the shapes occured
or when there is an animation."
surface drawDuring: [:cs | surface clear: trachelCanvas color. "We display the elements that are subject to the camera" cs pathTransform translateBy: (self extent / 2) asFloatPoint; scaleBy: trachelCanvas camera scale asFloat; translateBy: trachelCanvas camera position
negated asFloatPoint.
trachelCanvas shapes do: [ :trachelShape | trachelShape drawOn: cs. ]. "We display the elements that are _NOT_ subject to the
camera"
cs pathTransform loadIdentity scaleBy: 1.001. trachelCanvas fixedShapes do: [ :trachelShape | trachelShape drawOn: cs. ]. ]. self theme backgroundColor luminance < 0.5 ifTrue: [ surface drawDuring: [ :cs | cs paintMode restoreAfter: [ cs setPaint: Color white. cs paintMode difference. cs drawShape: (0 @ 0 extent:
surface extent)
] ] ]. "aCanvas translucentImage: surface asForm at: self bounds origin." "asForm creates a new Form, which is likely to be expensive. This
can be cached"
aCanvas image: surface asForm at: self bounds origin sourceRect:
(0 @ 0 extent: surface extent) rule: 34.
_______________________________________________ Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev