Gregg Irwin greggirwin
greggirwin
/ bezier-tweens.red
Last active
July 28, 2018 21:02
— forked from toomasv/bezier-tweens.red
Bezier `curve`-based tweening
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: 2018-07-27 | |
| Purpose: {Study of bezier-based tweens} | |
| File: %bezier-tweens.red | |
| Needs: 'View | |
| ] | |
| down-flags: [down1? down2? down3? down4? b1-down? b3-down?] ;down? | |
| clear-down-flags: does [set down-flags off] |
greggirwin
/ nsource.red
Last active
June 13, 2017 05:27
— forked from rebolek/nsource.red
Provides source of Red native functions
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" |
greggirwin
/ poor-mans-scopes.red
Last active
April 6, 2017 18:03
— forked from maximvl/poor-mans-scopes.red
Dynamic variables in 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 [ | |
| author: ["Maxim Velesyuk" "Gregg Irwin"] | |
| description: "Dynamic variables implementation for Red" | |
| notes: { | |
| http://www.gigamonkeys.com/book/variables.html | |
| TBD: Better names. | |
| } | |
| ] |
greggirwin
/ load-any.red
Created
March 23, 2017 17:53
— forked from dockimbel/load-any.red
Experimental generic loader for non-Red input text.
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 [] | |
| load-any: function [input [string!]][ | |
| out: make block! 100 | |
| junk: none | |
| until [ | |
| result: load/trap/next input 'pos | |
| either error? result/3 [ | |
| append any [junk junk: make string! 20] result/2/1 |