2 May
2015
2 May
'15
10:05 a.m.
Le 2 mai 2015 09:45, "Esteban Lorenzano" <estebanlm(a)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(a)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(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev