cyphre
cyphre
/ ports-demo.r3
Last active
August 29, 2015 14:03
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: "Example simple TCP client<->server data transfer" | |
| author: ["Richard Smolak" "Andreas Bolka"] | |
| ] | |
| ;enable for verbose mode | |
| debug: none ;:print | |
| ;lenght in bytes of test data we transfer | |
| data-len: 10'000'000 |
cyphre
/ rotate-test
Created
April 16, 2014 15:37
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: "DRAW test - rotation" | |
| author: "Richard Smolak" | |
| ] | |
| load-gui | |
| rot: 0 | |
| view [ | |
| tight black [ | |
| dr: drawing [translate 50x50 rotate rot translate -50x-50 pen white fill-pen leaf triangle 50x100 93x25 6x25] | |
| ] |
cyphre
/ chinese-text.r3
Created
March 19, 2014 10:52
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: "chinese font rendering test (Windows)" | |
| author: "Richard Smolak" | |
| ] | |
| print "" | |
| fnt: make system/standard/font [ | |
| name: "Tahoma" | |
| size: 64 | |
| ] |
cyphre
/ gist:9600416
Last active
August 29, 2015 13:57
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: "test script for Android text bug" | |
| author: "Richard Smolak" | |
| ] | |
| load-gui | |
| log-metrics: does [ | |
| foreach w [screen-dpi unit-size screen-size][ | |
| append log rejoin [mold w ": " gui-metric w newline] |
cyphre
/ do-codec-test.r3
Last active
August 29, 2015 13:56
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: "basic DO-CODEC test" | |
| author: "Richard Smolak" | |
| ] | |
| print "Loading images..." | |
| ;NOTE: these images are needed so the test results are correct | |
| site: http://cyphre.mysteria.cz/pics | |
| bmp-src: read site/rebol-logo.bmp | |
| gif-src: read site/rebol-logo.gif |
cyphre
/ test-bug-9910.r3
Last active
August 29, 2015 13:56
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: "100% test of the bug #9910" | |
| author: "Richard 'Cyphre' Smolak" | |
| ] | |
| print "" | |
| system/ports/system/awake: make function! [[ | |
| sport "System port (State block holds events)" | |
| ports "Port list (Copy of block passed to WAIT)" |