Nenad Rakocevic dockimbel
dockimbel
/ arity-of.red
Created
April 24, 2017 02:51
— forked from greggirwin/arity-of.red
Red arity-of function
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" | |
| ][ |
dockimbel
/ load-any.red
Created
March 22, 2017 07:31
Experimental generic loader for non-Red input text.
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 [] | |
| 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 |
dockimbel
/ template.red
Created
January 14, 2017 15:01
— forked from ifgem/template.red
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 [] |
dockimbel
/ heart-animation.red
Created
January 10, 2017 05:16
— forked from DideC/heart-animation.red
Heart animation for Red (only). Now with a complete control panel to play with the animations parameters. Nice time eater ;-)
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 |
dockimbel
/ haiku.red
Created
December 29, 2016 14:32
— forked from maximvl/haiku.red
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 [ |
dockimbel
/ bmr-calc.red
Created
October 30, 2016 04:48
— forked from greggirwin/bmr-calc.red
Reactive BMR calculator in Red
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: "BMR (Basal Metabolic Rate) Calculator" | |
| Author: "Gregg Irwin" | |
| File: %bmr-calc.red | |
| Needs: View | |
| Comment: { | |
| An experiment in reactivity and data modeling. | |
| 145 lines with blanks and comments removed. | |
dockimbel
/ browse.red
Created
October 11, 2016 12:36
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 [] | |
| #system [ | |
| #import [ | |
| "shell32.dll" stdcall [ | |
| ShellExecute: "ShellExecuteW" [ | |
| hwnd [integer!] | |
| lpOperation [c-string!] | |
| lpFile [c-string!] | |
| lpParameters [integer!] |
dockimbel
/ raytracer.red
Created
October 8, 2016 13:48
— forked from Mufferaw/raytracer.red
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: "Raytracer" | |
| Needs: 'View | |
| Notes: "Simple raytracer based on 'Ray Tracing in One Weekend' by Peter Shirley" | |
| ] | |
| vec3_dot: function [a[vector!] b[vector!]] [ | |
| reduce (a/1 * b/1) + (a/2 * b/2) + (a/3 * b/3) | |
| ] |
dockimbel
/ to-Roman.red
Last active
October 12, 2016 20:16
Arabic to Roman numbers converter in Red
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 [ | |
| Purpose: "Arabic to Roman numbers converter" | |
| Date: "06-Oct-2016" | |
| ] | |
| table: [1000 M 900 CM 500 D 400 CD 100 C 90 XC 50 L 40 XL 10 X 9 IX 5 V 4 IV 1 I] | |
| to-Roman: function [n [integer!]] reduce [ | |
| 'case collect [ | |
| foreach [a r] table [ |
dockimbel
/ gameoflife.red
Last active
December 8, 2016 21:35
— forked from Mufferaw/gameoflife.red
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: "Conway's Game of Life" | |
| Needs: 'View | |
| ] | |
| grid: collect [repeat i 10 [keep/only collect [repeat j 10 [keep random true]]]] | |
| scratchgrid: collect [repeat i 10 [keep/only collect [repeat j 10 [keep false]]]] | |
| a: copy grid/1 | |
| b: copy grid/10 |