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 |
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 [ | |
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] |