This file contains hidden or 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 [ | |
| description: { | |
| Attempt to copy Haiku Editor | |
| (http://forthsalon.appspot.com/haiku-editor) | |
| } | |
| ] | |
| map: func [s 'word body] [ | |
| bind body 'word | |
| forall s [ |
This file contains hidden or 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/Rebol of Terebus Volodymyr javascript demo : http://codepen.io/tvolodimir/pen/wqKuJ | |
| } | |
| Needs: View | |
| ] | |
| ;*** Settings |
This file contains hidden or 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: "ifgem" | |
| ] | |
| #do [ | |
| macro: context [ | |
| make-object-spec: function [words] [ | |
| spec: copy [] |
This file contains hidden or 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
| ; We have other reflective functions (words-of, body-of, etc.), but | |
| ; this is a little higher level, sounded fun to do, and may prove | |
| ; useful as we write more Red tools. It also shows how to make your | |
| ; own typesets and use them when parsing. | |
| arity-of: function [ | |
| "Returns the fixed-part arity of a function spec" | |
| spec [any-function! block!] | |
| /with refs [refinement! block!] "Count one or more refinements, and add their arity" | |
| ][ |
This file contains hidden or 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
| turtle: #() | |
| win: layout [ panel [ | |
| tfield: base 500x500 white draw [] | |
| origin tfield/offset tlayer: base 500x500 255.255.255.255 draw [] ] | |
| panel [ | |
| text "History" return history: text-list 200x350 data [] return | |
| panel [ button "Save" [save request-file history/data] | |
| button "Load" [commands: load request-file foreach cmd commands [process-cmd cmd]] ] | |
| return status: text "" 200x25 ] |
This file contains hidden or 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: "SVG Tools" | |
| Date: 27-Jan-2020 | |
| Author: "Christopher Ross-Gill" | |
| Rights: http://opensource.org/licenses/Apache-2.0 | |
| Version: 0.3.2 | |
| History: [ | |
| 0.3.2 27-Jan-2020 "Better handling of text whitespace; bold/italic" | |
| 0.3.1 24-Jan-2020 "PATH model rewrite; VIEW wrapper to view an SVG" | |
| 0.3.0 23-Jan-2020 "Reorganise PATH handling; render whole/partial object; further refactoring" |
OlderNewer