Smalltalk › Frameworks & Tools › Moose

Gradient lines

_‹ Previous Topic Next Topic _›

Classic

List

Threaded

4 messages Options

abergel

Gradient lines

Hi!

Pierre did an excellent work on having gradient lines.

-=-=-=-=-=-=-=-=-=-=

| v elem1 elem2 edge |
v := RTView new.

elem1 := (RTEllipse new color: (Color blue alpha:0.3); size:20) elementOn: 1.
elem2 := (RTEllipse new color: (Color red alpha:0.9); size:20) elementOn: 2.
elem2 translateBy: 300@0.
v add: elem1.
v add: elem2.

edge := RTEdge from:elem1 to:elem2.
v add: (edge + (RTGradientColoredLine new colors: (Array with: (elem1 color) with: (elem2 color)); precision: 100; gradientColorShape)).
v open

-=-=-=-=-=-=-=-=-=-=

| v elem1 elem2 edge |
v := RTView new.

elem1 := (RTEllipse new color: (Color red alpha:0.3); size:20) elementOn: 1.
elem2 := (RTEllipse new color: (Color red alpha:0.9); size:20) elementOn: 2.
elem2 translateBy: 300@0.
v add: elem1.
v add: elem2.

edge := RTEdge from:elem1 to:elem2.
v add: (edge + (RTGradientColoredLine new colors: (Array with: (elem1 color) with: (elem2 color)); precision: 100; gradientColorShape)).
v open

-=-=-=-=-=-=-=-=-=-=

Feedback are welcomed!

Pierre & Alexandre

--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

kilon.alios

Re: Gradient lines

beautiful , great work guys, Roassal is turning gradually to a full blown graphics engine. With people start building widgets it may even become our new GUI API. I was sceptical at first (because I saw mainly as a object illustration engine) but I really like where you have taken it. Its clean, beautiful and self evident. The code is really readable. Definetly going to use for my project and I will need tons of graphics and flexible guis.

Thank you for sharing this .

On Tue, Nov 25, 2014 at 8:29 PM, Alexandre Bergel <[hidden email]> wrote:

Hi!

Pierre did an excellent work on having gradient lines.

-=-=-=-=-=-=-=-=-=-=
| v elem1 elem2 edge |
v := RTView new.

elem1 := (RTEllipse new color: (Color blue alpha:0.3); size:20) elementOn: 1.
elem2 := (RTEllipse new color: (Color red alpha:0.9); size:20) elementOn: 2.
elem2 translateBy: 300@0.
v add: elem1.
v add: elem2.

edge := RTEdge from:elem1 to:elem2.
v add: (edge + (RTGradientColoredLine new colors: (Array with: (elem1 color) with: (elem2 color)); precision: 100; gradientColorShape)).
v open
-=-=-=-=-=-=-=-=-=-=

-=-=-=-=-=-=-=-=-=-=
| v elem1 elem2 edge |
v := RTView new.

elem1 := (RTEllipse new color: (Color red alpha:0.3); size:20) elementOn: 1.
elem2 := (RTEllipse new color: (Color red alpha:0.9); size:20) elementOn: 2.
elem2 translateBy: 300@0.
v add: elem1.
v add: elem2.

edge := RTEdge from:elem1 to:elem2.
v add: (edge + (RTGradientColoredLine new colors: (Array with: (elem1 color) with: (elem2 color)); precision: 100; gradientColorShape)).
v open
-=-=-=-=-=-=-=-=-=-=

Feedback are welcomed!

Pierre & Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

abergel

Re: Gradient lines

Thanks Kilon for your nice words
Such encouragement is really important for us :-)

Cheers,
Alexandre

> On Nov 25, 2014, at 2:39 PM, kilon alios <[hidden email]> wrote:
>
> beautiful , great work guys, Roassal is turning gradually to a full blown graphics engine. With people start building widgets it may even become our new GUI API. I was sceptical at first (because I saw mainly as a object illustration engine) but I really like where you have taken it. Its clean, beautiful and self evident. The code is really readable. Definetly going to use for my project and I will need tons of graphics and flexible guis.
>
> Thank you for sharing this .
>
> On Tue, Nov 25, 2014 at 8:29 PM, Alexandre Bergel <[hidden email]> wrote:
> Hi!
>
> Pierre did an excellent work on having gradient lines.
>
> <Screen Shot 2014-11-25 at 2.15.55 PM.png>
> -=-=-=-=-=-=-=-=-=-=
> | v elem1 elem2 edge |
> v := RTView new.
>
> elem1 := (RTEllipse new color: (Color blue alpha:0.3); size:20) elementOn: 1.
> elem2 := (RTEllipse new color: (Color red alpha:0.9); size:20) elementOn: 2.
> elem2 translateBy: 300@0.
> v add: elem1.
> v add: elem2.
>
> edge := RTEdge from:elem1 to:elem2.
> v add: (edge + (RTGradientColoredLine new colors: (Array with: (elem1 color) with: (elem2 color)); precision: 100; gradientColorShape)).
> v open
> -=-=-=-=-=-=-=-=-=-=
>
>
> <Screen Shot 2014-11-25 at 2.15.47 PM.png>
> -=-=-=-=-=-=-=-=-=-=
> | v elem1 elem2 edge |
> v := RTView new.
>
> elem1 := (RTEllipse new color: (Color red alpha:0.3); size:20) elementOn: 1.
> elem2 := (RTEllipse new color: (Color red alpha:0.9); size:20) elementOn: 2.
> elem2 translateBy: 300@0.
> v add: elem1.
> v add: elem2.
>
> edge := RTEdge from:elem1 to:elem2.
> v add: (edge + (RTGradientColoredLine new colors: (Array with: (elem1 color) with: (elem2 color)); precision: 100; gradientColorShape)).
> v open
> -=-=-=-=-=-=-=-=-=-=
>
> Feedback are welcomed!
>
> Pierre & Alexandre
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev

--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

abergel

Re: Gradient lines

In reply to this post by abergel

New screenshot:

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

v := RTView new.

es := RTEllipse new elementsOn: RTShape withAllSubclasses, TRShape withAllSubclasses.
v addAll: es.
es @ RTDraggable.
es @ RTPopup.

eb := RTEdgeBuilder new.
eb view: v.
eb shape line color: Color black.
eb objects: RTShape withAllSubclasses from: #yourself toAll: #dependentClasses.

RTMetricNormalizer new
elements: es;
normalizeSize: #numberOfLinesOfCode min: 10 max: 30;
normalizeColor: #numberOfMethods using: {Color green . Color red} using: #sqrt;
alphaColor: 0.5.

RTForceBasedLayout new charge: -300; on: es.

v edgesDo: #remove.

eb := RTEdgeBuilder new.
eb view: v.
eb shape gradientLineFrom: Color green to: Color white.
eb objects: RTShape withAllSubclasses, TRShape withAllSubclasses from: #yourself to: #superclass.

v

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

On Nov 25, 2014, at 2:29 PM, Alexandre Bergel <[hidden email]> wrote:

Hi!

Pierre did an excellent work on having gradient lines.

<Screen Shot 2014-11-25 at 2.15.55 PM.png>
-=-=-=-=-=-=-=-=-=-=
| v elem1 elem2 edge |
v := RTView new.

elem1 := (RTEllipse new color: (Color blue alpha:0.3); size:20) elementOn: 1.
elem2 := (RTEllipse new color: (Color red alpha:0.9); size:20) elementOn: 2.
elem2 translateBy: 300@0.
v add: elem1.
v add: elem2.

edge := RTEdge from:elem1 to:elem2.
v add: (edge + (RTGradientColoredLine new colors: (Array with: (elem1 color) with: (elem2 color)); precision: 100; gradientColorShape)).
v open
-=-=-=-=-=-=-=-=-=-=

<Screen Shot 2014-11-25 at 2.15.47 PM.png>
-=-=-=-=-=-=-=-=-=-=
| v elem1 elem2 edge |
v := RTView new.

elem1 := (RTEllipse new color: (Color red alpha:0.3); size:20) elementOn: 1.
elem2 := (RTEllipse new color: (Color red alpha:0.9); size:20) elementOn: 2.
elem2 translateBy: 300@0.
v add: elem1.
v add: elem2.

edge := RTEdge from:elem1 to:elem2.
v add: (edge + (RTGradientColoredLine new colors: (Array with: (elem1 color) with: (elem2 color)); precision: 100; gradientColorShape)).
v open
-=-=-=-=-=-=-=-=-=-=

Feedback are welcomed!

Pierre & Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev