[Pharo-dev] Merry Christmas!

Serge Stinckwich serge.stinckwich at gmail.com
Thu Dec 26 13:42:11 EST 2013


Crash on my mac OS X !

Cheers,


On Thu, Dec 26, 2013 at 7:26 PM, milton mamani <akevalion at 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 at tudorgirba.com>
>
>> Fun!
>>
>> Merry Christmas!
>>
>> Doru
>>
>>
>> On Wed, Dec 25, 2013 at 12:29 PM, Alexandre Bergel <
>> alexandre.bergel at me.com> wrote:
>>
>>> Oh!! Well spotted!
>>>
>>> Alexandre
>>>
>>> > Le 25-12-2013 à 11:25, Sven Van Caekenberghe <sven at 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/
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.pharo.org/pipermail/pharo-dev_lists.pharo.org/attachments/20131226/88b100dd/attachment-0002.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: image.png
Type: image/png
Size: 75234 bytes
Desc: not available
URL: <http://lists.pharo.org/pipermail/pharo-dev_lists.pharo.org/attachments/20131226/88b100dd/attachment.png>


More information about the Pharo-dev mailing list