Jayjay (AuDHD)

@jaywilson1988
3 Followers
8 Following
107 Posts
I'm Jay. Basically my whole life is computers, always has been.
I love craft #beer and #coffee
Trans Rights!
You can still do a surprising amount of stuff with a late 2006 MacBook. I'm posting this message from it. #apple #retro #retrocomputing #macbook #osx #macos
@chirpbirb

unsigned int rnd( unsigned long long int s ){
unsigned long long int v = 0x522e958f9f9dbec2;
v = v ^ s;
v = v * 0x769ced3b95e1b2d7;
unsigned long long int v2 = v;
v = v ^ (s*0x6cbef217134427a0);
v = ((v>>32)|(v<<32)) * (0xf857b75eae0c1520 ^ (s<<44));
v = (v2 * v)^s^v2;
unsigned int o = v2 ^ (v2>>32) ^ v ^ (v>>32) ^ (0x939b1d72-s);
return o;
}
I ran @jaywilson1988's program and got this.
Source: https://bbcmic.ro/?t=egGYI #bbcbasic
@bbcmicrobot
#bbcmicrobot 🚀
ë2:ç³(-4)
v=.5:æ0,-12:Ú:æ0,2
ãx=0¸1280
ìx,120+µ(x*.005)*50:ßx,0
í
òb(640,0,40,1.6)
à
Ýòb(x,y,s,a)çs<1á
êx2,y2,S
çs>=2çs<6ç³(1)<5òb(x,y,1.9,a+¤v(.2))
çs<2c=2Ƌc=1
S=s*2+³(1)*s*2.7
çs<2S=S*3
x2=x+S*ƛa
y2=y+S*µa
æ0,0:òs(s+1):æ0,c:òs(s)
ç³(1)<v òb(x2,y2,s/1.3,a-v):òb(x2,y2,s/1.3,a+v):á
x=x2:y=y2:a=a+¤v(.1):s=s*.9
çs>=1å100
á
Ýòs(s)ãq=0¸s ƈ2
A=q/s*¯*2
ìx+s*ƛA,y+s*µA
ßx2+s*ƛA,y2+s*µA
í
á
ݤv(x)=(³(1)-v)*x

@tcl_tk
Hello,

Does this page make any sense to you? https://wiki.tcl-lang.org/page/Snippets+Concepts+Inference+Engine

It's like 10 screens of rambling and seemingly random pictures and it's unclear what exactly it's about or what it's trying to communicate. What's it about, how to make a solar oven in tcl/tk? Can you shed any light on this?

Snippets Concepts Inference Engine

Tclers wiki

If the default design of your software is low contrast, and grey-on-white, and has overlay components that fade in/out when you move the mouse pointer around them, you don't get to claim that you care about accessibility. If your software is designed that way in its default mode, you clearly don't care about accessibility.
@bbcmicrobot #bbcmicrobot
MODE0
PRINTFNe("GJr<ZkVgk7 v86=u_X7Fl%ITk/-t(dQb/qK.j$^61DJXV'%oWG24K|:rG^21$10_=;E =6lE8QI%_)-ZTJU:=kj7rflTD9eS-#kJu(Y/Du7%~<I.~p^?.N]Jxq~LX8nu[a'=[fYvN_*}H.uv'j=eQ$y+ghrlY% /K$09xz:d7wy7d~{?t}rlNu-KHA71|1nwmPkc?-}-4iC>:Zv%Ij,4'gL0;I",-1,423,6789)
END
DEFFNr(x)C%=(C%+1)AND&7FFFFF
R%=(((R% EOR C%)DIV3*167EORR%EOR&A317612))AND&FFFFFF
=R%MODx
DEFFNe(m$,s,C%,R%)s$="":FORy=1TOLENm$
s$=s$+CHR$(((ASCMID$(m$,y)-32)+FNr(95)*s+95)MOD95+32)
NEXT
=s$
#bbcmicrobot 🚀 @bbcmicrobot
CLS
v$="oieua"
c$="hgdvtscbpn"
t$=",.!?"
p$="."
IFRND(-1650)
REPEAT
w$=FNw(RND(5),RND(2)-2)
V%=167*LENw$:FORz=1TOLENw$:V%=(V%+ASCMID$(w$,z))EOR&AA76:NEXT
IFp$<>",":w$=CHR$(ASCw$-32)+RIGHT$(w$,LENw$-1): p$=","
IFRND(100)<16: p$=FNr(t$): w$=w$+p$
IFPOS+LENw$>35: PRINT:VDU8
PRINT;CHR$(135+(V%=43952)*5);w$;
UNTILVPOS>22
END
DEFFNr(s$)=MID$(s$,RND(LENs$),1)
DEFFNl
v=NOTv
IFv:x$=FNr(v$) ELSE x$=FNr(c$)
=x$
DEFFNw(n,v)LOCAL w$
IF n=1:v=0
FORi=1TOn
w$=w$+FNl
NEXT
=w$
@bbcmicrobot
#bbcmicrobot 🚀
MODE 1:VDU 5
r=32
w=319/r*4
h=255/r*4
MOVE0,0:DRAW0,1024:MOVE0,0:DRAW1280,0
MOVE0,1020:DRAW1275,1020:MOVE1275,1020:DRAW1275,0
MOVE1279,0:DRAW1279,1024
FOR I=1TO16
PLOT69,RND(r)*h,RND(r)*h
NEXT
REPEAT
X=RND(r*1.25):Y=RND(r)
IF POINT(X*h,Y*h) ELSE GOTO 120
MOVE X*h,Y*h
y=0:x=RND(3)-2:IFx=0:y=1:IFRND(2)-1:y=-y
x=x+X:y=y+Y
IF 0=POINT(x*h,y*h) ELSE GOTO 120
DRAW x*h,y*h
REMENDIF
REMENDIF
UNTIL 0
@hentaifan Hey lady! I'm looking to get into the hentaiverse. Can you get me hooked up with the good stuff? Which accounts should I follow?