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 [ | |
Date: 4-Sep-2019 | |
Description: {Mouse sensitive zooming function} | |
Author: "Toomas Vooglaid" | |
Licence: "Public domain" | |
] | |
zooming: function [face event][ | |
;face's draw-block needs to have matrix defined | |
mx: face/draw/matrix |
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 [ | |
Started: 2018-05-16 | |
Date: 2019-01-25 | |
Needs: View | |
;%range.red ;https://gist.github.com/toomasv/0e3244375afbedce89b3719c8be7eac0 | |
;TinyURL https://tinyurl.com/y7bt2nqy | |
File: %date-picker.red | |
] | |
context [ | |
y: d: none |
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 [ | |
Author: "Toomas Vooglaid" | |
Date: 2017-12-31 | |
History: [ | |
2017-12-28 {First draft} | |
2018-01-20 {Added arrows, subtree moving, elementary interactive editing} | |
2018-01-24 {Edges formatting} | |
2018-02-01 {Added differnt edge-ends, layout orientations, improved options-handling} | |
2018-02-03 {Implemented stepped (orthogonal) edges, improved star layout} | |
2018-02-06 {Added directions `across` (default: perpendicular to the step-away direction) and `away` (in the step-away direction). |
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: "Simple GUI livecoding demo" | |
Author: "Nenad Rakocevic / Didier Cadieu / Mike Yaunish" | |
File: %livecode-enhanced.red | |
Version: 1.3.0 | |
Needs: 'View | |
Usage: { | |
Type VID code in the bottom left area, you will see the resulting GUI components | |
rendered live on the right side and fully functional (events/actors/reactors working live). | |
The top left area lets you define Red's values to be used in your VID code, even functions or anything. |
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: "generator function experiments" | |
Author: "Dave Andersen" | |
Date: 27-Sep-2017 | |
] | |
reload: does [do system/options/script] | |
; @JacobGood's closure func | |
closure1: func [ |
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 [ | |
author: {Maxim Velesyuk} | |
usage: { | |
abc-score? <block of code> | |
abc-score? %file.red | |
abc-score? :some-function | |
} | |
description: { | |
The ABC software metric defines an ABC score as a triplet of values that represent the size of a set of source code statements. | |
An ABC score is calculated by counting the number of assignments (A), number of branches (B), and number of conditionals (C) in a program. |
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: "Nsource - native source" | |
Purpose: "Print source for native functions" | |
Author: "Boleslav Březovský" | |
Date: "8-6-2017" | |
] | |
indent: func [ | |
"(Un)indent text by tab" | |
string [string!] "Text to (un)indent" |
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: "Nsource - native source" | |
Purpose: "Print source for native functions" | |
Author: "Boleslav Březovský" | |
Date: "8-6-2017" | |
] | |
indent: func [ | |
"(Un)indent text by tab" | |
string [string!] "Text to (un)indent" |
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 [] | |
#system [ | |
chr: 1 | |
handle: 0 | |
KEYDOWN: 0 | |
KEYUP: 2 | |
minus-one: -1 | |
pointer-to-minus-one: :minus-one | |
rs-phrase: "" |
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: "Heart animation" | |
author: "Didier Cadieu" | |
notes: { | |
Traduction in Red of Terebus Volodymyr javascript demo : http://codepen.io/tvolodimir/pen/wqKuJ | |
} | |
Needs: View | |
] | |
;*** Settings |
NewerOlder