Merry Christmas to all of you! In a fresh 3.0 image: -=-=--=-=--=-=--=-=--=-=- Gofer new smalltalkhubUser: 'ronsaldo' project: 'roassal3d'; package: 'ConfigurationOfRoassal3d'; load. (Smalltalk at: #ConfigurationOfRoassal3d) loadDevelopment -=-=--=-=--=-=--=-=--=-=- Then do it: -=-=--=-=--=-=--=-=--=-=- | view text x y el r | text := ' xx xx xxxxx xxxxx xxxxx x x xxxxx x x xxxxx x xxxxx xxxxx xx xx x xxxxx x x x x x x x x x x x x x x x x x x x x x x x x x x xxx xxxx xxxx xxx x xxxxx xxxx x xxxxx x x x xxxxx xxxxx x x x x x x x x x x x x x x x x x x x x x x x xxxxx x x x x x xxxxx x x x x x xxxxx x x x x x xxxxx '. view := R3View new. x := 0. y := 0. mat := R3Material new diffuse: Color lightGray. mat specular: Color green. mat shininess: 10.0. text linesDo: [ :line | line do: [ :c | (c = $x) ifTrue: [ el := (R3CubeShape new color: Color green) element. el on: R3MouseClickDown do: [ :evt | R3Blink on: evt element. r := (R3Rotate on: evt element by: (R3Vector3 newX: -0.5)). view addAnimation: r ]. el translateByX: x y: y negated z: 0. view add: el ]. x := x + 1 ]. x := 0. y := y + 1. ]. view lightingModel: R3MultipassPerPixelLighting new. view addInteraction: R3MouseControl new; addInteraction: R3KeyControlForMac new. view open -=-=--=-=--=-=--=-=--=-=- Use keys: W A S D Click on letters Enjoy! Cheers, The Profilers -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Merry Christmas to you too. I wish health and happiness to all pharo community and their families. By the way your graphic eats away 90% of my dual core 1.4 Cpu. Have to close the window because it overheats my macbook air almost immediately. On Wed, Dec 25, 2013 at 10:05 AM, Alexandre Bergel <alexandre.bergel@me.com>wrote:
Merry Christmas to all of you!
In a fresh 3.0 image:
-=-=--=-=--=-=--=-=--=-=- Gofer new smalltalkhubUser: 'ronsaldo' project: 'roassal3d'; package: 'ConfigurationOfRoassal3d'; load. (Smalltalk at: #ConfigurationOfRoassal3d) loadDevelopment -=-=--=-=--=-=--=-=--=-=-
Then do it:
-=-=--=-=--=-=--=-=--=-=- | view text x y el r | text := ' xx xx xxxxx xxxxx xxxxx x x xxxxx x x xxxxx x xxxxx xxxxx xx xx x xxxxx x x x x x x x x x x x x x x x x x x x x x x x x x x xxx xxxx xxxx xxx x xxxxx xxxx x xxxxx x x x xxxxx xxxxx x x x x x x x x x x x x x x x x x x x x x x x xxxxx x x x x x xxxxx x x x x x xxxxx x x x x x xxxxx '. view := R3View new. x := 0. y := 0.
mat := R3Material new diffuse: Color lightGray. mat specular: Color green. mat shininess: 10.0.
text linesDo: [ :line | line do: [ :c | (c = $x) ifTrue: [ el := (R3CubeShape new color: Color green) element. el on: R3MouseClickDown do: [ :evt | R3Blink on: evt element. r := (R3Rotate on: evt element by: (R3Vector3 newX: -0.5)). view addAnimation: r ]. el translateByX: x y: y negated z: 0. view add: el ]. x := x + 1 ]. x := 0. y := y + 1. ].
view lightingModel: R3MultipassPerPixelLighting new.
view addInteraction: R3MouseControl new; addInteraction: R3KeyControlForMac new. view open -=-=--=-=--=-=--=-=--=-=-
Use keys: W A S D Click on letters
Enjoy!
Cheers, The Profilers
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
By the way your graphic eats away 90% of my dual core 1.4 Cpu. Have to close the window because it overheats my macbook air almost immediately.
Strange, does not happen to me. I have a recent macbook air. Anyway, this is not surprising. Alexandre
On Wed, Dec 25, 2013 at 10:05 AM, Alexandre Bergel <alexandre.bergel@me.com> wrote: Merry Christmas to all of you!
In a fresh 3.0 image:
-=-=--=-=--=-=--=-=--=-=- Gofer new smalltalkhubUser: 'ronsaldo' project: 'roassal3d'; package: 'ConfigurationOfRoassal3d'; load. (Smalltalk at: #ConfigurationOfRoassal3d) loadDevelopment -=-=--=-=--=-=--=-=--=-=-
Then do it:
-=-=--=-=--=-=--=-=--=-=- | view text x y el r | text := ' xx xx xxxxx xxxxx xxxxx x x xxxxx x x xxxxx x xxxxx xxxxx xx xx x xxxxx x x x x x x x x x x x x x x x x x x x x x x x x x x xxx xxxx xxxx xxx x xxxxx xxxx x xxxxx x x x xxxxx xxxxx x x x x x x x x x x x x x x x x x x x x x x x xxxxx x x x x x xxxxx x x x x x xxxxx x x x x x xxxxx '. view := R3View new. x := 0. y := 0.
mat := R3Material new diffuse: Color lightGray. mat specular: Color green. mat shininess: 10.0.
text linesDo: [ :line | line do: [ :c | (c = $x) ifTrue: [ el := (R3CubeShape new color: Color green) element. el on: R3MouseClickDown do: [ :evt | R3Blink on: evt element. r := (R3Rotate on: evt element by: (R3Vector3 newX: -0.5)). view addAnimation: r ]. el translateByX: x y: y negated z: 0. view add: el ]. x := x + 1 ]. x := 0. y := y + 1. ].
view lightingModel: R3MultipassPerPixelLighting new.
view addInteraction: R3MouseControl new; addInteraction: R3KeyControlForMac new. view open -=-=--=-=--=-=--=-=--=-=-
Use keys: W A S D Click on letters
Enjoy!
Cheers, The Profilers
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Merry christmas everyone :) I really like the 3D script ;) 2013/12/25 Alexandre Bergel <alexandre.bergel@me.com>
By the way your graphic eats away 90% of my dual core 1.4 Cpu. Have to close the window because it overheats my macbook air almost immediately.
Strange, does not happen to me. I have a recent macbook air. Anyway, this is not surprising.
Alexandre
On Wed, Dec 25, 2013 at 10:05 AM, Alexandre Bergel <
alexandre.bergel@me.com> wrote:
Merry Christmas to all of you!
In a fresh 3.0 image:
-=-=--=-=--=-=--=-=--=-=- Gofer new smalltalkhubUser: 'ronsaldo' project: 'roassal3d'; package: 'ConfigurationOfRoassal3d'; load. (Smalltalk at: #ConfigurationOfRoassal3d) loadDevelopment -=-=--=-=--=-=--=-=--=-=-
Then do it:
-=-=--=-=--=-=--=-=--=-=- | view text x y el r | text := ' xx xx xxxxx xxxxx xxxxx x x xxxxx x x xxxxx x xxxxx xxxxx xx xx x xxxxx x x x x x x x x x x x x x x x x x x x x x x x x x x xxx xxxx xxxx xxx x xxxxx xxxx x xxxxx x x x xxxxx xxxxx x x x x x x x x x x x x x x x x x x x x x x x xxxxx x x x x x xxxxx x x x x x xxxxx x x x x x xxxxx '. view := R3View new. x := 0. y := 0.
mat := R3Material new diffuse: Color lightGray. mat specular: Color green. mat shininess: 10.0.
text linesDo: [ :line | line do: [ :c | (c = $x) ifTrue: [ el := (R3CubeShape new color: Color green) element. el on: R3MouseClickDown do: [ :evt | R3Blink on: evt element. r := (R3Rotate on: evt element by: (R3Vector3 newX: -0.5)). view addAnimation: r ]. el translateByX: x y: y negated z: 0. view add: el ]. x := x + 1 ]. x := 0. y := y + 1. ].
view lightingModel: R3MultipassPerPixelLighting new.
view addInteraction: R3MouseControl new; addInteraction: R3KeyControlForMac new. view open -=-=--=-=--=-=--=-=--=-=-
Use keys: W A S D Click on letters
Enjoy!
Cheers, The Profilers
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
-- Best regards, Douaille Erwan <douaille.erwan@gmail.com>
Merry Christmas! This is a very nice visualisation. Thank you Alex! Uko On 25 Dec 2013, at 10:05, Alexandre Bergel <alexandre.bergel@me.com> wrote:
text := ' xx xx xxxxx xxxxx xxxxx x x xxxxx x x xxxxx x xxxxx xxxxx xx xx x xxxxx x x x x x x x x x x x x x x x x x x x x x x x x x x xxx xxxx xxxx xxx x xxxxx xxxx x xxxxx x x x xxxxx xxxxx x x x x x x x x x x x x x x x x x x x x x x x xxxxx x x x x x xxxxx x x x x x xxxxx x x x x x xxxxx '. view := R3View new. x := 0. y := 0.
mat := R3Material new diffuse: Color lightGray. mat specular: Color green. mat shininess: 10.0.
text linesDo: [ :line | line do: [ :c | (c = $x) ifTrue: [ el := (R3CubeShape new color: Color green) element. el on: R3MouseClickDown do: [ :evt | R3Blink on: evt element. r := (R3Rotate on: evt element by: (R3Vector3 newX: -0.5)). view addAnimation: r ]. el translateByX: x y: y negated z: 0. view add: el ]. x := x + 1 ]. x := 0. y := y + 1. ].
view lightingModel: R3MultipassPerPixelLighting new.
view addInteraction: R3MouseControl new; addInteraction: R3KeyControlForMac new. view open
Works! (Windows here!) Would be nice to have it fully visible in the window upon start. How to? Phil On Wed, Dec 25, 2013 at 9:05 AM, Alexandre Bergel <alexandre.bergel@me.com>wrote:
Merry Christmas to all of you!
In a fresh 3.0 image:
-=-=--=-=--=-=--=-=--=-=- Gofer new smalltalkhubUser: 'ronsaldo' project: 'roassal3d'; package: 'ConfigurationOfRoassal3d'; load. (Smalltalk at: #ConfigurationOfRoassal3d) loadDevelopment -=-=--=-=--=-=--=-=--=-=-
Then do it:
-=-=--=-=--=-=--=-=--=-=- | view text x y el r | text := ' xx xx xxxxx xxxxx xxxxx x x xxxxx x x xxxxx x xxxxx xxxxx xx xx x xxxxx x x x x x x x x x x x x x x x x x x x x x x x x x x xxx xxxx xxxx xxx x xxxxx xxxx x xxxxx x x x xxxxx xxxxx x x x x x x x x x x x x x x x x x x x x x x x xxxxx x x x x x xxxxx x x x x x xxxxx x x x x x xxxxx '. view := R3View new. x := 0. y := 0.
mat := R3Material new diffuse: Color lightGray. mat specular: Color green. mat shininess: 10.0.
text linesDo: [ :line | line do: [ :c | (c = $x) ifTrue: [ el := (R3CubeShape new color: Color green) element. el on: R3MouseClickDown do: [ :evt | R3Blink on: evt element. r := (R3Rotate on: evt element by: (R3Vector3 newX: -0.5)). view addAnimation: r ]. el translateByX: x y: y negated z: 0. view add: el ]. x := x + 1 ]. x := 0. y := y + 1. ].
view lightingModel: R3MultipassPerPixelLighting new.
view addInteraction: R3MouseControl new; addInteraction: R3KeyControlForMac new. view open -=-=--=-=--=-=--=-=--=-=-
Use keys: W A S D Click on letters
Enjoy!
Cheers, The Profilers
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Very nice, cool idea, Alex ! On 25 Dec 2013, at 09:05, Alexandre Bergel <alexandre.bergel@me.com> wrote:
Merry Christmas to all of you!
In a fresh 3.0 image:
-=-=--=-=--=-=--=-=--=-=- Gofer new smalltalkhubUser: 'ronsaldo' project: 'roassal3d'; package: 'ConfigurationOfRoassal3d'; load. (Smalltalk at: #ConfigurationOfRoassal3d) loadDevelopment -=-=--=-=--=-=--=-=--=-=-
People keep on forgetting that you can write this load expression much more elegantly: === Gofer new smalltalkhubUser: 'ronsaldo' project: 'roassal3d'; configuration; loadDevelopment. === Merry Christmas ! Sven
Then do it:
-=-=--=-=--=-=--=-=--=-=- | view text x y el r | text := ' xx xx xxxxx xxxxx xxxxx x x xxxxx x x xxxxx x xxxxx xxxxx xx xx x xxxxx x x x x x x x x x x x x x x x x x x x x x x x x x x xxx xxxx xxxx xxx x xxxxx xxxx x xxxxx x x x xxxxx xxxxx x x x x x x x x x x x x x x x x x x x x x x x xxxxx x x x x x xxxxx x x x x x xxxxx x x x x x xxxxx '. view := R3View new. x := 0. y := 0.
mat := R3Material new diffuse: Color lightGray. mat specular: Color green. mat shininess: 10.0.
text linesDo: [ :line | line do: [ :c | (c = $x) ifTrue: [ el := (R3CubeShape new color: Color green) element. el on: R3MouseClickDown do: [ :evt | R3Blink on: evt element. r := (R3Rotate on: evt element by: (R3Vector3 newX: -0.5)). view addAnimation: r ]. el translateByX: x y: y negated z: 0. view add: el ]. x := x + 1 ]. x := 0. y := y + 1. ].
view lightingModel: R3MultipassPerPixelLighting new.
view addInteraction: R3MouseControl new; addInteraction: R3KeyControlForMac new. view open -=-=--=-=--=-=--=-=--=-=-
Use keys: W A S D Click on letters
Enjoy!
Cheers, The Profilers
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Oh!! Well spotted! Alexandre
Le 25-12-2013 à 11:25, Sven Van Caekenberghe <sven@stfx.eu> a écrit :
People keep on forgetting that you can write this load expression much more elegantly:
=== Gofer new smalltalkhubUser: 'ronsaldo' project: 'roassal3d'; configuration; loadDevelopment. ===
Fun! Merry Christmas! Doru On Wed, Dec 25, 2013 at 12:29 PM, Alexandre Bergel <alexandre.bergel@me.com>wrote:
Oh!! Well spotted!
Alexandre
Le 25-12-2013 à 11:25, Sven Van Caekenberghe <sven@stfx.eu> a écrit :
People keep on forgetting that you can write this load expression much more elegantly:
=== Gofer new smalltalkhubUser: 'ronsaldo' project: 'roassal3d'; configuration; loadDevelopment. ===
-- www.tudorgirba.com "Every thing has its own flow"
Merry Christmas and happy new year to everyone!. [image: Imágenes integradas 1] This is another script: .=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.= | view body head b1 b2 b3 eye1 eye2 nose smile cravat lhand rhand sphere cone cylinder | cylinder := [ :m | | e | e := R3CylinderShape element. e on: m. e ]. cone := [ :m | | e | e := R3ConeShape element. e on: m. e. ]. sphere := [ :m | |e | e := R3IcoSphereShape element. e on: m. e shape color: Color white. e shape recursionLevel: 3. e ]. view := R3View new. body := sphere value: 'body'. head := sphere value: 'Merry Christmas and Happy new year!!!
From all of us at ObjectProfile'"'head'". head addInteraction: R3TooltipPopup.
b1 := sphere value: '1'. b2 := sphere value: '2'. b3 := sphere value: '3'. eye1 := sphere value: 'o'. nose := cone value: 'j'. eye2 := sphere value: 'o'. cravat := sphere value: 'cravat'. lhand := cylinder value: 'left hand'. rhand := cylinder value: 'right hand'. body shape size: 1.5. head translateTo: (R3Vector3 x: 0 y: 1 z: 0). { b1. b2. b3 } do: [ :b | b shape color: Color yellow; size: 0.15 ]. b1 translateTo: (R3Vector3 x: 0 y: 0.5 z: 0.5). b2 translateTo: (R3Vector3 x: 0 y: 0.25 z: 0.66). b3 translateTo: (R3Vector3 x: 0 y: 0.0 z: 0.71). { eye1. eye2 } do: [ :e | e shape color: Color black; size: 0.15 ]. eye1 translateTo: (R3Vector3 x: -0.2 y: 1.1 z: 0.44). eye2 translateTo: (R3Vector3 x: 0.2 y: 1.1 z: 0.44). nose shape color: Color orange; size: 0.15; height: 0.5. nose translateTo: (R3Vector3 x: 0 y: 0.9 z: 0.7); orientation: (R3Matrix3 xrot: 90 degreesToRadians ). smile := R3BezierLineShape new elementFrom: (R3Vector3 x: -0.2 y: 0.85 z: 0.45) control: (R3Vector3 x: 0 y: 0.7 z:0.43 ) to: (R3Vector3 x: 0.2 y: 0.85 z: 0.45). smile shape color: Color black. cravat shape color: Color blue; height: 0.2. cravat translateTo: (R3Vector3 x: 0 y: 0.6 z: 0). { lhand. rhand } do: [ :h | h shape color: Color brown; size: 0.1; height: 1 ]. lhand translateTo: (R3Vector3 x: -0.9 y: 0.7 z: 0); orientation: (R3Matrix3 zrot:45 degreesToRadians). rhand translateTo: (R3Vector3 x: 0.9 y: 0.7 z: 0); orientation: (R3Matrix3 zrot: -45 degreesToRadians). view lightingModel: R3MultipassPerPixelLighting new. view addAll: { body. head. b1. b2. b3. eye1. eye2. nose. smile. cravat. lhand. rhand. }. view addInteraction: R3MKControl. view setRoassal2DView: (ROView new). view openWithOverlay. .=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.= Milton 2013/12/25 Tudor Girba <tudor@tudorgirba.com>
Fun!
Merry Christmas!
Doru
On Wed, Dec 25, 2013 at 12:29 PM, Alexandre Bergel < alexandre.bergel@me.com> wrote:
Oh!! Well spotted!
Alexandre
Le 25-12-2013 à 11:25, Sven Van Caekenberghe <sven@stfx.eu> a écrit :
People keep on forgetting that you can write this load expression much more elegantly:
=== Gofer new smalltalkhubUser: 'ronsaldo' project: 'roassal3d'; configuration; loadDevelopment. ===
-- www.tudorgirba.com
"Every thing has its own flow"
Crash on my mac OS X ! Cheers, On Thu, Dec 26, 2013 at 7:26 PM, milton mamani <akevalion@gmail.com> wrote:
Merry Christmas and happy new year to everyone!.
[image: Imágenes integradas 1]
This is another script:
.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.= | view body head b1 b2 b3 eye1 eye2 nose smile cravat lhand rhand sphere cone cylinder |
cylinder := [ :m | | e | e := R3CylinderShape element. e on: m. e ].
cone := [ :m | | e | e := R3ConeShape element. e on: m. e. ].
sphere := [ :m | |e | e := R3IcoSphereShape element. e on: m. e shape color: Color white. e shape recursionLevel: 3. e ].
view := R3View new. body := sphere value: 'body'. head := sphere value: 'Merry Christmas and Happy new year!!!
From all of us at ObjectProfile'"'head'". head addInteraction: R3TooltipPopup.
b1 := sphere value: '1'. b2 := sphere value: '2'. b3 := sphere value: '3'.
eye1 := sphere value: 'o'. nose := cone value: 'j'. eye2 := sphere value: 'o'.
cravat := sphere value: 'cravat'. lhand := cylinder value: 'left hand'. rhand := cylinder value: 'right hand'.
body shape size: 1.5. head translateTo: (R3Vector3 x: 0 y: 1 z: 0).
{ b1. b2. b3 } do: [ :b | b shape color: Color yellow; size: 0.15 ]. b1 translateTo: (R3Vector3 x: 0 y: 0.5 z: 0.5). b2 translateTo: (R3Vector3 x: 0 y: 0.25 z: 0.66). b3 translateTo: (R3Vector3 x: 0 y: 0.0 z: 0.71).
{ eye1. eye2 } do: [ :e | e shape color: Color black; size: 0.15 ]. eye1 translateTo: (R3Vector3 x: -0.2 y: 1.1 z: 0.44). eye2 translateTo: (R3Vector3 x: 0.2 y: 1.1 z: 0.44).
nose shape color: Color orange; size: 0.15; height: 0.5. nose translateTo: (R3Vector3 x: 0 y: 0.9 z: 0.7); orientation: (R3Matrix3 xrot: 90 degreesToRadians ).
smile := R3BezierLineShape new elementFrom: (R3Vector3 x: -0.2 y: 0.85 z: 0.45) control: (R3Vector3 x: 0 y: 0.7 z:0.43 ) to: (R3Vector3 x: 0.2 y: 0.85 z: 0.45). smile shape color: Color black.
cravat shape color: Color blue; height: 0.2. cravat translateTo: (R3Vector3 x: 0 y: 0.6 z: 0).
{ lhand. rhand } do: [ :h | h shape color: Color brown; size: 0.1; height: 1 ]. lhand translateTo: (R3Vector3 x: -0.9 y: 0.7 z: 0); orientation: (R3Matrix3 zrot:45 degreesToRadians). rhand translateTo: (R3Vector3 x: 0.9 y: 0.7 z: 0); orientation: (R3Matrix3 zrot: -45 degreesToRadians). view lightingModel: R3MultipassPerPixelLighting new. view addAll: { body. head. b1. b2. b3. eye1. eye2. nose. smile. cravat. lhand. rhand. }. view addInteraction: R3MKControl. view setRoassal2DView: (ROView new). view openWithOverlay. .=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=
Milton
2013/12/25 Tudor Girba <tudor@tudorgirba.com>
Fun!
Merry Christmas!
Doru
On Wed, Dec 25, 2013 at 12:29 PM, Alexandre Bergel < alexandre.bergel@me.com> wrote:
Oh!! Well spotted!
Alexandre
Le 25-12-2013 à 11:25, Sven Van Caekenberghe <sven@stfx.eu> a écrit :
People keep on forgetting that you can write this load expression much more elegantly:
=== Gofer new smalltalkhubUser: 'ronsaldo' project: 'roassal3d'; configuration; loadDevelopment. ===
-- www.tudorgirba.com
"Every thing has its own flow"
-- Serge Stinckwich UCBN & UMI UMMISCO 209 (IRD/UPMC) Every DSL ends up being Smalltalk http://www.doesnotunderstand.org/
Strange, works well for me. Does the other examples of Roassal3d work? Alexandre On Dec 26, 2013, at 7:42 PM, Serge Stinckwich <serge.stinckwich@gmail.com> wrote:
Crash on my mac OS X !
Cheers,
On Thu, Dec 26, 2013 at 7:26 PM, milton mamani <akevalion@gmail.com> wrote: Merry Christmas and happy new year to everyone!.
<image.png>
This is another script:
.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.= | view body head b1 b2 b3 eye1 eye2 nose smile cravat lhand rhand sphere cone cylinder |
cylinder := [ :m | | e | e := R3CylinderShape element. e on: m. e ].
cone := [ :m | | e | e := R3ConeShape element. e on: m. e. ].
sphere := [ :m | |e | e := R3IcoSphereShape element. e on: m. e shape color: Color white. e shape recursionLevel: 3. e ].
view := R3View new. body := sphere value: 'body'. head := sphere value: 'Merry Christmas and Happy new year!!!
From all of us at ObjectProfile'"'head'". head addInteraction: R3TooltipPopup.
b1 := sphere value: '1'. b2 := sphere value: '2'. b3 := sphere value: '3'.
eye1 := sphere value: 'o'. nose := cone value: 'j'. eye2 := sphere value: 'o'.
cravat := sphere value: 'cravat'. lhand := cylinder value: 'left hand'. rhand := cylinder value: 'right hand'.
body shape size: 1.5. head translateTo: (R3Vector3 x: 0 y: 1 z: 0).
{ b1. b2. b3 } do: [ :b | b shape color: Color yellow; size: 0.15 ]. b1 translateTo: (R3Vector3 x: 0 y: 0.5 z: 0.5). b2 translateTo: (R3Vector3 x: 0 y: 0.25 z: 0.66). b3 translateTo: (R3Vector3 x: 0 y: 0.0 z: 0.71).
{ eye1. eye2 } do: [ :e | e shape color: Color black; size: 0.15 ]. eye1 translateTo: (R3Vector3 x: -0.2 y: 1.1 z: 0.44). eye2 translateTo: (R3Vector3 x: 0.2 y: 1.1 z: 0.44).
nose shape color: Color orange; size: 0.15; height: 0.5. nose translateTo: (R3Vector3 x: 0 y: 0.9 z: 0.7); orientation: (R3Matrix3 xrot: 90 degreesToRadians ).
smile := R3BezierLineShape new elementFrom: (R3Vector3 x: -0.2 y: 0.85 z: 0.45) control: (R3Vector3 x: 0 y: 0.7 z:0.43 ) to: (R3Vector3 x: 0.2 y: 0.85 z: 0.45). smile shape color: Color black.
cravat shape color: Color blue; height: 0.2. cravat translateTo: (R3Vector3 x: 0 y: 0.6 z: 0).
{ lhand. rhand } do: [ :h | h shape color: Color brown; size: 0.1; height: 1 ]. lhand translateTo: (R3Vector3 x: -0.9 y: 0.7 z: 0); orientation: (R3Matrix3 zrot:45 degreesToRadians). rhand translateTo: (R3Vector3 x: 0.9 y: 0.7 z: 0); orientation: (R3Matrix3 zrot: -45 degreesToRadians). view lightingModel: R3MultipassPerPixelLighting new. view addAll: { body. head. b1. b2. b3. eye1. eye2. nose. smile. cravat. lhand. rhand. }. view addInteraction: R3MKControl. view setRoassal2DView: (ROView new). view openWithOverlay. .=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=
Milton
2013/12/25 Tudor Girba <tudor@tudorgirba.com> Fun!
Merry Christmas!
Doru
On Wed, Dec 25, 2013 at 12:29 PM, Alexandre Bergel <alexandre.bergel@me.com> wrote: Oh!! Well spotted!
Alexandre
Le 25-12-2013 à 11:25, Sven Van Caekenberghe <sven@stfx.eu> a écrit :
People keep on forgetting that you can write this load expression much more elegantly:
=== Gofer new smalltalkhubUser: 'ronsaldo' project: 'roassal3d'; configuration; loadDevelopment. ===
-- www.tudorgirba.com
"Every thing has its own flow"
-- Serge Stinckwich UCBN & UMI UMMISCO 209 (IRD/UPMC) Every DSL ends up being Smalltalk http://www.doesnotunderstand.org/
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
The picture looks nice, but the script crashed on my VM too. Mac OX 10.8.5 Pharo3.0 Latest update: #30654 BW, Volkert On 26.12.2013, at 19:42, Serge Stinckwich <serge.stinckwich@gmail.com> wrote:
Crash on my mac OS X !
Cheers,
On Thu, Dec 26, 2013 at 7:26 PM, milton mamani <akevalion@gmail.com> wrote: Merry Christmas and happy new year to everyone!.
<image.png>
This is another script:
.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.= | view body head b1 b2 b3 eye1 eye2 nose smile cravat lhand rhand sphere cone cylinder |
cylinder := [ :m | | e | e := R3CylinderShape element. e on: m. e ].
cone := [ :m | | e | e := R3ConeShape element. e on: m. e. ].
sphere := [ :m | |e | e := R3IcoSphereShape element. e on: m. e shape color: Color white. e shape recursionLevel: 3. e ].
view := R3View new. body := sphere value: 'body'. head := sphere value: 'Merry Christmas and Happy new year!!!
From all of us at ObjectProfile'"'head'". head addInteraction: R3TooltipPopup.
b1 := sphere value: '1'. b2 := sphere value: '2'. b3 := sphere value: '3'.
eye1 := sphere value: 'o'. nose := cone value: 'j'. eye2 := sphere value: 'o'.
cravat := sphere value: 'cravat'. lhand := cylinder value: 'left hand'. rhand := cylinder value: 'right hand'.
body shape size: 1.5. head translateTo: (R3Vector3 x: 0 y: 1 z: 0).
{ b1. b2. b3 } do: [ :b | b shape color: Color yellow; size: 0.15 ]. b1 translateTo: (R3Vector3 x: 0 y: 0.5 z: 0.5). b2 translateTo: (R3Vector3 x: 0 y: 0.25 z: 0.66). b3 translateTo: (R3Vector3 x: 0 y: 0.0 z: 0.71).
{ eye1. eye2 } do: [ :e | e shape color: Color black; size: 0.15 ]. eye1 translateTo: (R3Vector3 x: -0.2 y: 1.1 z: 0.44). eye2 translateTo: (R3Vector3 x: 0.2 y: 1.1 z: 0.44).
nose shape color: Color orange; size: 0.15; height: 0.5. nose translateTo: (R3Vector3 x: 0 y: 0.9 z: 0.7); orientation: (R3Matrix3 xrot: 90 degreesToRadians ).
smile := R3BezierLineShape new elementFrom: (R3Vector3 x: -0.2 y: 0.85 z: 0.45) control: (R3Vector3 x: 0 y: 0.7 z:0.43 ) to: (R3Vector3 x: 0.2 y: 0.85 z: 0.45). smile shape color: Color black.
cravat shape color: Color blue; height: 0.2. cravat translateTo: (R3Vector3 x: 0 y: 0.6 z: 0).
{ lhand. rhand } do: [ :h | h shape color: Color brown; size: 0.1; height: 1 ]. lhand translateTo: (R3Vector3 x: -0.9 y: 0.7 z: 0); orientation: (R3Matrix3 zrot:45 degreesToRadians). rhand translateTo: (R3Vector3 x: 0.9 y: 0.7 z: 0); orientation: (R3Matrix3 zrot: -45 degreesToRadians). view lightingModel: R3MultipassPerPixelLighting new. view addAll: { body. head. b1. b2. b3. eye1. eye2. nose. smile. cravat. lhand. rhand. }. view addInteraction: R3MKControl. view setRoassal2DView: (ROView new). view openWithOverlay. .=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=
Milton
2013/12/25 Tudor Girba <tudor@tudorgirba.com> Fun!
Merry Christmas!
Doru
On Wed, Dec 25, 2013 at 12:29 PM, Alexandre Bergel <alexandre.bergel@me.com> wrote: Oh!! Well spotted!
Alexandre
Le 25-12-2013 à 11:25, Sven Van Caekenberghe <sven@stfx.eu> a écrit :
People keep on forgetting that you can write this load expression much more elegantly:
=== Gofer new smalltalkhubUser: 'ronsaldo' project: 'roassal3d'; configuration; loadDevelopment. ===
-- www.tudorgirba.com
"Every thing has its own flow"
-- Serge Stinckwich UCBN & UMI UMMISCO 209 (IRD/UPMC) Every DSL ends up being Smalltalk http://www.doesnotunderstand.org/
-- www.nivoba.de "The more complex an object, the larger the investment in learning to use it, and the greater the resistance to abandon it."
participants (10)
-
Alexandre Bergel -
Erwan Douaille -
kilon alios -
milton mamani -
phil＠highoctane.be -
Serge Stinckwich -
Sven Van Caekenberghe -
Tudor Girba -
Volkert Barr -
Yuriy Tymchuk