hiiamboris

Red [needs: view]               ;) run as `red --cli ...` to eliminate GUI console influence!

img: make image! 2000x1000      ;) need a big enough image
system/view/auto-sync?: no      ;) disable auto-update so we can profile it
view [
    panel [
        base font-color black "CHASE THE MOUSE AROUND" 1000x500 img
        all-over on-over [
            t0: now/precise
            face/image/(10x10): random white      ;) update the image

hiiamboris

Red [title: "reactivity benchmark" needs: view]     ;) run as `red --cli ...` to eliminate GUI console influence!

do https://gitlab.com/hiiamboris/red-mezz-warehouse/-/raw/master/clock.red

do-unseen: function [code [block!]] [
    old: system/view/auto-sync?
    system/view/auto-sync?: no
    do code
    system/view/auto-sync?: old
]

hiiamboris

Red [title: "reactivity benchmark" needs: view]     ;) run as `red --cli ...` to eliminate GUI console influence!

do https://gitlab.com/hiiamboris/red-mezz-warehouse/-/raw/master/clock.red

do-unseen: function [code [block!]] [
    old: system/view/auto-sync?
    system/view/auto-sync?: no
    do code
    system/view/auto-sync?: old
]

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

hiiamboris

Red []

speed: 50
rt: rtd-layout [{ Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.}]
rt/font: make font! [name: "Colonna MT" size: 100]
rt/size: 99999x999
rt/size: size-text rt
draw: compose/deep [scale 0.5 0.5 [pen cyan text 0x20 (rt)]]
draw2: compose/only/deep [translate 0x0 (draw) translate (rt/size * 1x0 / 2) (draw)]
t0: now/precise

hiiamboris

Red []
#include %assert.red
#include %keep-type.red
#include %composite.red
#include %map-each.red
#include %format-number.red

#macro [#print string!] func [[manual] s e] [insert remove s [print #composite] s]

word-id: routine [word [any-type!] return: [integer!] /local w] [

hiiamboris

arity?: func [p [word! path!] /local p2] [
	either word? p [
		preprocessor/func-arity? spec-of get :p
	][
		; path format: obj1/obj2.../func/ref1/ref2...
		; have to find a point where in that path a function starts
		; i.e. p2: obj1/obj2.../func
		; and the call itself is: func/ref1/ref2...
		p2: as path! clear []		; reuse the same block over and over again
		until [

hiiamboris

Red [title: "reactivity benchmark"]           ;) run as `red --cli ...` to eliminate GUI console influence!

do https://gitlab.com/hiiamboris/red-mezz-warehouse/-/raw/master/clock.red

recycle/off

print-count: does [
    attempt [print ["relations count:" (length? system/reactivity/relations) / 4]]
    attempt [print ["relations count:" system/reactivity/relations-count]]
]

hiiamboris

Red []

;--- IRRELEVANT CODE ---
;--- IF IT DOESN'T CRASH TRY DUPLICATING SOME OR REMOVING ----


assert: function [contract [block!]][
	set/any [cond msg] reduce contract
	unless :cond [
		print ["ASSERTION FAILURE:" mold/part contract 100]		;-- limit the output in case we have face trees or images

hiiamboris

[[
    id: #01 
    desc: "" 
    input: "a,b,c" 
    goal: ["a" "b" "c"] 
    hint: "" 
    dial-status: correct 
    dial-solution: {","} 
    dial-tries: [23-Dec-2021/19:00:43+03:00 {","}] 
    ref-status: correct