Skip to content

Instantly share code, notes, and snippets.

@DideC
DideC / logo.red
Last active February 23, 2018 17:03 — forked from rebolek/logo.red
Live logo
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
@DideC
DideC / sparks.red
Last active June 15, 2016 09:02 — forked from qtxie/sparks.red
With just a little bit of colored sparks
Red [
Title: "Sparks demo"
Author: "Qingtian Xie"
File: %sparks.red
Tabs: 4
Needs: View
]
system/view/auto-sync?: no
@DideC
DideC / analog-clock.red
Created June 15, 2016 08:59 — forked from greggirwin/analog-clock.red
An analog clock for Red
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]