Skip to content

Instantly share code, notes, and snippets.

Avatar

Oldes Huhuman Oldes

View GitHub Profile
@Oldes
Oldes / timelaps-anim.reb
Created Jan 6, 2021
Making timelaps webp or gif anim
View timelaps-anim.reb
Rebol [
purpose: {notes how to make timelaps animation}
]
;- OpenCV's stitching_detailed.exe to prepare timelaps images
cmd {stitching_detailed --try_cuda yes --warp transverseMercator --timelapse crop 01.jpg 02.jpg}
;- https://developers.google.com/speed/webp/download
cmd {img2webp -lossy -d 300 fixed_01.jpg fixed_02.jpg -o out.webp}
View enlist.r3
Rebol [
name: enlist
purpose: "Format series to human readable list"
usage: [
print enlist [] ;= none
print enlist [1] ;= just 1
print enlist [1 2] ;= 1 and 2
print enlist [1 2 3] ;= 1, 2 and 3
]
note: https://gitter.im/red/help?at=5f9c02f906fa0513dd8119d1
@Oldes
Oldes / png-size.r3
Last active Oct 30, 2020
Read PNG size from raw binary data
View png-size.r3
Rebol [
name: png-size
needs: 3.2.0
usage: [
png-size http://avatars-04.gitter.im/gh/uv/4/oldes
]
]
png-size: func[
"Read PNG size from raw binary data"
@Oldes
Oldes / wait-for-key.r3
Last active Jun 16, 2020
Simple Rebol `wait-for-key` function.
View wait-for-key.r3
Rebol [
name: wait-for-key
title: "Simple Rebol `wait-for-key` function"
purpose: "Demonstrate how to get simple user keyboard input from console without need to press ENTER"
author: "Oldes"
date: 7-Jun-2020
needs: 3.1.1 ; https://github.com/Oldes/Rebol3
note: "So far works only on Windows!"
usage: [
print "Press any key!"
@Oldes
Oldes / graphql-requests.reb
Created May 25, 2020
Some useful GraphQL queries
View graphql-requests.reb
Rebol []
last-20-closed-issues: {
query($owner:String!,$repo:String!) {
repository(owner:$owner, name:$repo) {
issues(last:20, states:CLOSED) {
edges {
node {
title
url
@Oldes
Oldes / github.r3
Created May 25, 2020
Simple Github API context
View github.r3
Rebol [
title: "Github API"
author: "Oldes"
license: MIT
]
My-GitHub-authorization: "token ..." ;<--- replace ... with your API token!
github: context [
api.github: https://api.github.com/
@Oldes
Oldes / html-entities.red
Last active May 13, 2020
HTML entities
View html-entities.red
Red [
Title: "HTML entities"
Purpose: "To decode HTML entities in a text"
Author: "Oldes"
Date: 12-May-2020
Version: 1.0.2
License: MIT
Usage: [
"Test: ♠ & ¢ <a> and Δδ ¾" =
decode-html-entities {Test: &spades; & &#162; &lt;a&gt;&#32;and &Delta;&delta; &frac34;}
@Oldes
Oldes / func-spec.r3
Created Apr 16, 2020
Gregg's parse-func-spec function for Rebol3
View func-spec.r3
Rebol [
note: {There are some hacks in this, based on empirical testing.}
]
func-spec-ctx: context [
func-spec: context [
desc: none
attr: none
params: copy []
refinements: copy []
@Oldes
Oldes / tcp-bug-test.r3
Created Apr 6, 2020
Gabriele's TCP bug test script
View tcp-bug-test.r3
REBOL [ ]
listen: open tcp://:8080
port: open tcp://localhost:8080
start: 0
listen/awake: func [event] [
;print "Listen Awake"
switch/default event/type [
accept [
;print "Accept"
@Oldes
Oldes / GitHub-graphql-request.red
Last active Feb 14, 2020
GitHub's GraphQl request test
View GitHub-graphql-request.red
Red [
title: "GitHub's graphql request test"
author: "Oldes"
reference: https://developer.github.com/v4/
]
;@@ https://developer.github.com/apps/building-oauth-apps/creating-an-oauth-app/
graphql-header: [Authorization: "token YOUR_OAUTH_TOKEN_HERE"]
graphql-request: func[