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 |
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] | |
] |
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 | |
] |
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] |
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 |
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)" |