Nenad Rakocevic dockimbel
dockimbel
/ lc.r
Created
August 6, 2016 11:11
— forked from maximvl/lc.r
List comprehension dialect for Rebol
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
| REBOL [] | |
| print [] | |
| lc: function [block] [lc-state lc-rule input-rule filter-rule i e] [ | |
| lc-state: make object! [ | |
| do-block: copy [] | |
| inputs: copy [] | |
| filter-block: none | |
| input-state: copy [] | |
| res: copy [] | |
| ] |
dockimbel
/ gist:c1ee08dd520144f72b493e99d289945a
Last active
August 5, 2016 01:18
— forked from maximvl/gist:6bcf182a105ee9443118248255f0fab5
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 [] | |
| find-until: function [series test][ | |
| res: copy [] | |
| forall series [ | |
| either not test first series [ | |
| append res first series | |
| ] [ | |
| break/return res | |
| ] |
dockimbel
/ bouncing-boxes-connected.red
Created
July 9, 2016 17:13
— forked from Phryxe/bouncing-boxes-connected.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: "Bouncing Boxes Connected" | |
| Needs: View | |
| ] | |
| Arial: make font! [size: 14 name: "Consolas" style: 'bold] | |
| view [ | |
| title "Bouncing Boxes Connected" | |
| size 400x400 |
dockimbel
/ vector-balls.red
Created
June 28, 2016 04:01
— forked from greggirwin/vector-balls.red
Red Vector Balls
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: "Vector Balls Demo" | |
| Author: ["Nenad Rakocevic" "Gregg Irwin"] | |
| Date: "[2-feb-2001 15-jun-2016]" | |
| File: %vector-balls.red | |
| Version: 0.4 | |
| History: {[ | |
| 0.2 12-jun-2000 "First version released." | |
| 0.3 02-feb-2001 "Speed field added" | |
| 0.4 26-jun-2016 "Ported to Red by Gregg" |
dockimbel
/ view-hanoi.red
Created
June 27, 2016 01:56
— forked from greggirwin/view-hanoi.red
Graphical Red Towers of Hanoi
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 [ | |
| File: %view-hanoi.red | |
| Author: "Gregg Irwin" | |
| Date: "4-Oct-2001 — 26-Jun-2016" | |
| Needs: View | |
| ] | |
| num-disks: 11 ; Have to set this here until it gets into the UI. | |
| disk-height: 15 | |
| disk-cell-width: 20 ; Smallest disk is 1 cell wide |
dockimbel
/ resize-image.red
Created
June 20, 2016 05:09
— forked from greggirwin/resize-image.red
Red interactive image resizing demo
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: "Draw Image Resizing Test" | |
| Author: [REBOL version "Carl Sassenrath" Red port "Gregg Irwin"] | |
| Version: 0.0.1 | |
| Needs: View | |
| ] | |
| distance: func [pos [pair!]][square-root add pos/x ** 2 pos/y ** 2] | |
| grab-size: 5 |
dockimbel
/ fill-pen-lab.red
Created
June 18, 2016 03:02
— forked from greggirwin/fill-pen-lab.red
Fill-pen Lab for 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: "Fill-pen Lab" | |
| Author: "Gregg Irwin" | |
| File: %fill-pen-lab.red | |
| Needs: View | |
| ] | |
| to-color: function [r g b][ | |
| color: 0.0.0 | |
| if r [color/1: to integer! 256 * r] |
dockimbel
/ paint.red
Last active
June 18, 2016 02:49
— forked from greggirwin/paint.red
Red Paint (World's smallest paint program)
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: "Paint" | |
| Author: [REBOL version "Frank Sievertsen" Red port "Gregg Irwin"] | |
| File: %paint.red | |
| Tabs: 4 | |
| Needs: View | |
| version: 0.0.1 | |
| ] | |
| draw-blk: copy [] |
dockimbel
/ bubbles.red
Created
June 17, 2016 03:36
— forked from greggirwin/bubbles.red
Animated bubbles
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: "Bubbles" | |
| Author: [REBOL version "Gabriele Santilli" Red port "Gregg Irwin"] | |
| File: %bubbles.red | |
| Tabs: 4 | |
| Needs: View | |
| ] | |
| system/view/auto-sync?: no |
dockimbel
/ analog-clock.red
Last active
June 15, 2016 03:29
— forked from greggirwin/analog-clock.red
An analog clock for 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: "Red O'clock" | |
| Author: "Gregg Irwin" | |
| ] | |
| degree-to-xy: func [rad "radius" deg "degrees"] [ | |
| as-pair (rad * sine deg) (rad * negate cosine deg) | |
| ] | |
| sex-to-degree: func ["Sexagesimal to degrees" n] [n * 6] |