hiiamboris

Red [title: "An experiment with INTO separation"]

; do %/d/devel/red/common/with.red

buffers*: []
into: func [buffer [series!]] [append/only buffers* buffer  exit]

collect': function [code [block!]] [
	also buffer: any [
		take/last buffers*

q60

Click on any of these to get url

hiiamboris

Red [needs: view]

img: draw 4000x2000 [scale 2 2 fill-pen yello circle 1000x500 1000 500]
lag: object [max: avg: 0.0]
offset: 0x0
plot: []
system/view/auto-sync?: off

view/no-wait [
	below

9214

Red [
	Title:  "A Parse-based port of Michael Gilliland's web scraper"
	Author: @9214
	Date:   16-Oct-2020
	Link:   https://youtu.be/HDMa4gcgEgI
]

page: read-thru/binary to url! system/script/args
link: [copy match [ahead https:// url!]]
rule: [collect any [link keep (to url! match) | skip]]

guaracy

Red [needs: 'view]

; frog
; https://opengameart.org/content/frog-player-spritesheets
; background
; https://opengameart.org/content/several-scrolling-backgrounds-and-layerable-runners


frog-sprites: #{
89504E470D0A1A0A0000000D4948445200000100000000800806000000E4B5B7

mjgpy3

Red [
  Title: "Download links"
]
args: system/script/args

comment {
  - Accept a URL as input to program
  - HTTP GET URL
  - Parse response as HTML
  - Extract a links

toomasv

Red [
  Description: "Show values of intermediate expressions"
  Date: 12-Jun-2020
]

term: gui-console-ctx/terminal

show: function [][
	out2: copy [] out: pos: copy [] 
	found: find/tail term/line "show " 

toomasv

Red [
	Description: "Pre-load to mimic range/bounds syntax"
	Date: 22-May-2020
	Author: @toomasv
]
context [
	default-start: func [stop step][
		case [
			any [percent? stop     percent? :step][1%]
			any [pair?    stop     pair?    :step][1x1]

toomasv

Red [
  Description: "Some range and step ops"
  Date: 21-May-2020
]
;Simple range op!
;works when a < b and with integer! and date! only
..: make op! func [a [integer! date!] b [integer! date!] /local i out][
  out: copy [] repeat i b - a + 1 [append out i - 1 + a]
]

Oldes

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;}