View draw-text-area.red
Red [
Note: "from: https://gitter.im/red/red/gui-branch?at=5afc55a05a1d895fae45588e"
]
view [
area 200x100 focus wrap
at 10x10 base 255.255.255.254 200x100 all-over
draw [line-width 20 pen 200.50.50.200]
on-down [repend face/draw ['line event/offset event/offset]]
on-over [if event/down? [change back tail face/draw event/offset]]
View int256.red
Red [
Title: "256-bit unsigned integer library"
Author: "Nenad Rakocevic"
File: %int256.red
Tabs: 4
Rights: "Copyright (C) 2018 Red Foundation. All rights reserved."
License: {
Distributed under the Boost Software License, Version 1.0.
See https://github.com/red/red/blob/master/BSL-License.txt
}
View tiger.red
Red [
Purpose: "Tiger vector data in Draw dialect (from SVG)"
File: %tiger.red
Author: "Zamlox"
Tabs: 4
Rights: "Copyright (C) 2013-2017 Nenad Rakocevic. All rights reserved."
License: {
Distributed under the Boost Software License, Version 1.0.
See https://github.com/red/red/blob/master/BSL-License.txt
}
View eval2.red
Red [
Title: "Red Android bridge demo"
Author: "Nenad Rakocevic"
File: %eval2.red
Config: [type: 'dll libRed?: no libRedRT?: yes export-ABI: 'cdecl]
Tabs: 4
Needs: 'View
Rights: "Copyright (C) 2013-2017 Nenad Rakocevic. All rights reserved."
License: {
Distributed under the Boost Software License, Version 1.0.
View pomodoro.red
Red [
Purpose: "Implements a Pomodoro timer"
Note: "Original code from https://gitter.im/red/red/gui-branch?at=5ab95dae2b9dfdbc3a25636a"
]
Pomodoro: does [
context [
t: diff: b1: b2: end: none
view/no-wait [
title "Pomodoro"
View walk-files.red
Red []
dive: function [path action [block!] filter [block!]][
bind action 'path
if filter [bind filter 'path]
foreach file read path [
if dir? file [dive append copy path file action filter]
if any [not filter do filter][do action]
]
View persist-faces.red
Red [
Purpose: "Demo how to serialize/deserialize a face tree on disk"
]
mold-face: function [root [object!] return: [string!]][
foreach-face root [
face/parent: none face/state: none
if font: face/font [font/parent: none font/state: none]
if para: face/para [para/parent: none]
]
View parse-info.red
Red [
Title: "Parse Info"
Purpose: {
Provides some stats about internal parse states usage for a given parsing job.
Could be used as a way to compare efficiency of different parsing strategies.
}
Date: 06-Oct-2017
]
context [
View closure-by-value.red
Red [
Purpose: {Implementation of a "capture-by-value" closure generator}
Date: 4-Oct-2017
]
collect-words: function [
spec [any-list!]
/deep
/set
/to-set
View sum-bench.red
Red [
Note: "https://gitter.im/red/red?at=59d0e788f7299e8f539496d3"
]
time-it: func [block /count ct /local t baseline][
ct: any [ct 1]
t: now/time/precise
loop ct [do []]
baseline: now/time/precise - t
t: now/time/precise