Boleslav Březovský rebolek
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
| REBOL [ | |
| Title: "Red/System Mach-O format emitter" | |
| Author: "Nenad Rakocevic" | |
| File: %Mach-O.r | |
| Rights: "Copyright (C) 2011 Nenad Rakocevic. All rights reserved." | |
| License: "BSD-3 - https://github.com/dockimbel/Red/blob/master/BSD-3-License.txt" | |
| ] | |
| context [ | |
| defs: [ |
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[] | |
| #include %C-library.reds | |
| sine-osc: func [ | |
| x [float!] ; 0..1 | |
| return: [float!] ; -1..1 | |
| /local | |
| y [float!] | |
| ][ |
rebolek
/ Simple drag demo
Last active
December 17, 2015 13:29
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
| REBOL [] | |
| ;print "" | |
| stylize [ | |
| dragger: box [ | |
| facets: [ | |
| init-size: 100x100 | |
| max-size: 100x100 | |
| ] |
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
| OPEN port | |
| ASYNC | |
| false | |
| ==TCP-event: lookup | |
| ==TCP-event: connect | |
| ==TCP-event: wrote | |
| ==TCP-event: read | |
| ..Read 5 bytes | |
| >> |
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
| REBOL[] | |
| n: now/time/precise | |
| i: 0 | |
| view [ | |
| b: button "test" on-init [ | |
| do-actor/style face 'on-init arg 'button | |
| set-timer/repeat [ | |
| ++ i |
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
| REBOL [] | |
| awake-handler: funct [ | |
| event | |
| /local port | |
| ][ | |
| port: event/port | |
| switch/default probe event/type [ | |
| lookup [ | |
| open port |
rebolek
/ gist:9859158
Created
March 29, 2014 18:02
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
| combine: func [ | |
| "Reduces and joins a block of values." | |
| block [block!] "Values to reduce and join" | |
| ] [ | |
| if empty? block: reduce block [return block] | |
| remove-each value block [none? value] | |
| append either series? first block [copy first block] [ | |
| form first block | |
| ] next block | |
| ] |
rebolek
/ gist:32e18d5ead80d8465ee3
Last active
August 29, 2015 14:01
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
| REBOL[] | |
| do %load-gui.reb | |
| page: to string! read http://www.goodreads.com/quotes | |
| quotes: copy [] | |
| parse page [ | |
| some [ | |
| thru "“" copy value to "”" (append quotes value) | |
| ] |
rebolek
/ Sintezar PM-102
Created
November 25, 2015 21:11
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: "Sintezar PM-102 - Phase Manipulation Digital Sintesizer" | |
| Name: 'PM-102 | |
| Version: 0.4.0 | |
| Needs: 'View | |
| ; Date: 25-11-2015 | |
| File: %pm-102.red | |
| Author: "Boleslav Březovský" | |
| ; Email: [email protected] | |
| ] |
rebolek
/ Livecode enhanced
Created
October 3, 2016 08:48
— forked from DideC/Livecode enhanced
Based on Dockimbel VID livecode, this is a little more advanced version where you can define Red's values used by the VID code. The window is resizable and there is spliters to rearange space.
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" | |
| File: %livecode.red | |
| Version: 1.2.0 | |
| Needs: 'View | |
| Usage: { | |
| Type VID code in the bottom right area, you will see the resulting GUI components | |
| rendered live on the left side and fully functional (events/actors/reactors working live). | |
| The top right area let you define Red's values to be used in your VID code, even functions or anything. |
OlderNewer