DideC
/ analog-clock.red
Created
June 15, 2016 08:59
— forked from greggirwin/analog-clock.red
An analog clock for Red
This file contains 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: "Red O'clock" | |
| Author: "Gregg Irwin" | |
| ] | |
| degree-to-xy: func [rad "radius" deg "degrees"] [ | |
| as-pair (rad * sine deg) (rad * negate cosine deg) | |
| ] | |
| sex-to-degree: func ["Sexagesimal to degrees" n] [n * 6] |
DideC
/ sparks.red
Last active
June 15, 2016 09:02
— forked from qtxie/sparks.red
With just a little bit of colored sparks
This file contains 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: "Sparks demo" | |
| Author: "Qingtian Xie" | |
| File: %sparks.red | |
| Tabs: 4 | |
| Needs: View | |
| ] | |
| system/view/auto-sync?: no |
This file contains 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[] | |
| dst: [ | |
| pen 238.172.41 | |
| fill-pen 238.172.41 polygon 100x2 114x56 72x43 | |
| fill-pen 188.130.45 polygon 100x2 114x56 128x38 | |
| pen 212.28.24 | |
| fill-pen 212.28.24 polygon 118x72 132x128 36x96 64x54 | |
| fill-pen 129.31.34 polygon 118x72 132x128 169x88 135x48 |