Koba-yu koba-yu
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Red [ | |
| title: "Test of `find-window and `focus funcs" | |
| author: "Didier Cadieu" | |
| ] | |
| find-window: func [ | |
| "Find a face's window face." | |
| face [object!] | |
| ][ | |
| while [face/parent] [face: face/parent] |
Mufferaw
/ gameoflife2.red
Last active
December 6, 2016 21:15
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Red [ | |
| Title: "Conway's Game of Life" | |
| Needs: 'View | |
| ] | |
| system/view/auto-sync?: no | |
| grid: collect [repeat i 50 [keep/only collect [repeat j 50 [keep random true]]]] | |
| scratchgrid: collect [repeat i 50 [keep/only collect [repeat j 50 [keep false]]]] | |
| a: copy grid/1 | |
| b: copy grid/50 |
NewerOlder