wow if you turn it upside down it reads "written in C" ;D

Definetly not ideal example code for beginners , but I am grateful someone
actually bothered writing that code so I and other newcomers learn a bit
more about Morphic.

On Sun, Feb 8, 2015 at 7:56 PM, stepharo <steph...@free.fr> wrote:

>  why I think that such games should be rewritten: crying for a subclass :)
>
> drawOn: aCanvas
>     "Draw a rectangle with a solid, inset, or raised border.
>     Note: the raised border color *and* the inset border color are
> generated
>     from the receiver's own color, instead of having the inset border color
>     generated from the owner's color, as in BorderedMorph."
>
>     | font rct |
>
>     borderWidth = 0 ifTrue: [  "no border"
>         aCanvas fillRectangle: bounds color: color.
>         ^ self.].
>
>     borderColor == #raised ifTrue: [
>         ^ aCanvas frameAndFillRectangle: bounds
>             fillColor: color
>             borderWidth: borderWidth
>             topLeftColor: color lighter lighter
>             bottomRightColor: color darker darker darker].
>
>     borderColor == #inset ifTrue: [
>         aCanvas frameAndFillRectangle: bounds
>             fillColor: color
>             borderWidth: 1 " borderWidth"
>             topLeftColor: (color darker darker darker)
>             bottomRightColor: color lighter.
>         self isMine ifTrue: [
>             font  := StrikeFont familyName: 'Atlanta' size: 22 emphasized:
> 1.
>             rct := bounds insetBy: ((bounds width) - (font widthOfString:
> '*'))/2@0.
>             rct := rct top: rct top + 1.
>             aCanvas drawString: '*' in: (rct translateBy: 1@1) font: font
> color: Color black.
>             ^ aCanvas drawString: '*' in: rct font: font color: Color red
> .].
>         self nearMines > 0 ifTrue: [
>             font := StrikeFont familyName: 'ComicBold' size: 22
> emphasized: 1.
>             rct := bounds insetBy: ((bounds width) - (font widthOfString:
> nearMines asString))/2@0.
>             rct := rct top: rct top + 1.
>             aCanvas drawString: nearMines asString in: (rct translateBy:
> 1@1) font: font color: Color black.
>             ^ aCanvas drawString: nearMines asString in: rct font: font
> color: ((palette at: nearMines) ) .].
>         ^self. ].
>
>     "solid color border"
>     aCanvas frameAndFillRectangle: bounds
>         fillColor: color
>         borderWidth: borderWidth
>         borderColor: borderColor.
>
>
>
>
>
> Le 8/2/15 17:39, kilon alios a écrit :
>
> Thank you Stef, its great to have some games for Pharo :)
>
>  Some issues
>
>  1) I cannot find ChineseChekers in conf browser
> 2) None of the 3 games comes with an easy way to open them. I had to use
> $GameName$ new openInWindow.
> 3) Tetris is giving me a MNU apparently it does not find the LedMorph
> class it needs.
> 4) Miners was displaying some weird artefacts when I hit a mine. They dont
> go away when I hit new game.
>
> On Sun, Feb 8, 2015 at 2:27 PM, olivier auverlot <
> olivier.auver...@gmail.com> wrote:
>
>> very cool !
>>
>> 2015-02-08 12:05 GMT+01:00 Ignacio Sniechowski <0800na...@gmail.com>:
>>
>>>  Stef,
>>> Thanks so much!
>>> I love this because its fun to analyze the code and learn from it.
>>> Best
>>> Nacho
>>>
>>>
>>>     *Lic. Ignacio Sniechowski, MBA*
>>>  *Prosavic SRL*
>>>
>>>  *Tel: (011) 4542-6714*
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> On Sun, Feb 8, 2015 at 6:28 AM, stepharo <steph...@free.fr> wrote:
>>>
>>>>  Hi guys
>>>>
>>>> It was for so long on my todo list that I decided to start addressing
>>>> it.
>>>> I publish games that were defined long time ago in Squeak.
>>>>     - Tetris
>>>>     - Miners
>>>>     - SameGame
>>>>     - ChineseCheckers
>>>>
>>>> There are now available via the metarepository configuration browser
>>>> I will continue to publish some others.
>>>>
>>>>
>>>> Stef
>>>>
>>>>
>>>>
>>>>
>>>>
>>>
>>
>
>

Reply via email to