'copy from round157 2020-02-26 Syntax Bomb, ' https://www.syntaxbomb.com/index.php/topic,6677.msg347040125.html#msg347040125' BASIC-256 trans to SmallBASIC b+ 2020-02-26const w = 530: const h = 870wh = window()wh.setsize (w, h)clsk1 = .25 * h : k2 = .5 * h : k3 = .75 * hj = .25 * wy2 = k1 : y3 = k2 : y4 = k3for x1 = 0 to w x2 = j for y1 = 0 to h x2 = x2 + .5 x12 = (x1 - x2)^2 y12 = (y1 - y2)^2 y13 = (y1 - y3)^2 y14 = (y1 - y4)^2 xy1 = (x12 + y12)^.5 xy2 = (x12 + y13)^.5 xy3 = (x12 + y14)^.5 r = xy1 % 255 g = xy2 % 255 b = xy3 % 255 pset x1, y1, rgb(r, g, b) next showpagenext

Yes it is not very smart always share your code.

'copy from round157 2020-02-26 Syntax Bomb, ' https://www.syntaxbomb.com/index.php/topic,6677.msg347040125.html#msg347040125' BASIC-256 trans to SmallBASIC b+ 2020-02-26' from Diagonal Eggs, let's see if we can do something with it?' Diagonal Eggs 2.bas b+ 2020-02-26' Yes, Diagonal Eggs On The Move Horizontallyconst w = 500: const h = 500wh = window()wh.setsize (w, h)clsk1 = .25 * h : k2 = .5 * h : k3 = .75 * hj = .25 * wy2 = k1 : y3 = k2 : y4 = k3dx = 1while 1 cls for x1 = a to w + a x2 = j for y1 = 0 to h x2 = x2 + .5 x12 = (x1 - x2)^2 y12 = (y1 - y2)^2 y13 = (y1 - y3)^2 y14 = (y1 - y4)^2 xy1 = (x12 + y12)^.5 xy2 = (x12 + y13)^.5 xy3 = (x12 + y14)^.5 r = xy1 % 255 g = xy2 % 255 b = xy3 % 255 pset x1 - a, y1, rgb(r, g, b) next next print a showpage a = a + 5 * dx IF a >= 500 OR a <= -500 THEN dx = -dxwend

Quote from: bplus on February 26, 2020, 07:20:37 PMHa....the program was not written by me.I only used the screenshot on this webpage:https://imaginary.org/fr/users/joel-kahn

I am getting impression neither you nor Aurel write code anymore, resting on our laurels are we?

Well alittle bit of chat can be motivating.

But really busy in real life.

'Dinosaur Eggs.bas for SmallBASIC v0.12.13def rand(lo, hi) = (rnd * (hi - lo + 1)) \ 1 + lodef rdir = iff(rnd < .5, -1, 1)nEggs = 5DIM e(nEggs - 1)FOR i = 0 TO nEggs - 1 e(i).x1 = rand(0, xmax) e(i).dx1 = rand(1, 5) e(i).ddx1 = rdir e(i).y1 = rand(0, ymax) e(i).dy1 = rand(1, 5) e(i).ddy1 = rdir e(i).r1 = rand(50, 100) e(i).red1 = 225 e(i).grn1 = 225 e(i).blu1 = 225 e(i).d = .9 * e(i).r1 e(i).a = rnd * pi * 2 e(i).da = rnd * pi / 12 - pi / 24 e(i).x2 = e(i).x1 + e(i).d * cos(e(i).a) e(i).y2 = e(i).y1 + e(i).d * sin(e(i).a) e(i).r2 = .3 * e(i).r1 e(i).red2 = rand(100, 180) e(i).grn2 = rand(100, 180) e(i).blu2 = rand(100, 180)nextwhile 1 cls for i = 0 to nEggs - 1 drawEgg e(i).x1, e(i).y1, e(i).r1, e(i).x2, e(i).y2, e(i).r2, e(i).red1, e(i).grn1, e(i).blu1, e(i).red2, e(i).grn2, e(i).blu2 e(i).x1 = e(i).x1 + e(i).dx1 * e(i).ddx1 if e(i).x1 < 0 or e(i).x1 > xmax then e(i).ddx1 = e(i).ddx1 * -1 if e(i).x1 < 0 then e(i).x1 = 0 if e(i).x1 > xmax then e(i).x1 = xmax end if e(i).y1 = e(i).y1 + e(i).dy1 * e(i).ddy1 if e(i).y1 < 0 or e(i).y1 > ymax then e(i).ddy1 = e(i).ddy1 * -1 if e(i).y1 < 0 then e(i).y1 = 0 if e(i).y1 > ymax then e(i).y1 = ymax end if e(i).a = e(i).a + e(i).da e(i).x2 = e(i).x1 + e(i).d * cos(e(i).a) e(i).y2 = e(i).y1 + e(i).d * sin(e(i).a) next showpagewendsub drawEgg(x1, y1, r1, x2, y2, r2, red1, grn1, blu1, red2, grn2, blu2) 'yeah allot of redundancy but beats trying to figure out the math local dx, dy, dist, maxr, fr1, fr2, r, cr1, cr2 dx = x2 - x1 dy = y2 - y1 dist = sqr(dx * dx + dy * dy) if dist > 0 then dx = dx / dist dy = dy / dist else dx = 0 : dy = 0 end if if r1 >= r2 then maxr = r1 else maxr = r2 fr1 = r1 / maxr : fr2 = r2 / maxr for r = maxr to 0 step -1 midInk red1, grn1, blu1, red2, grn2, blu2, r / maxr cr1 = fr1 * r : cr2 = fr2 * r dr = (cr1 - cr2) / dist for d = 0 to dist circle x1 + d * dx, y1 + d * dy, cr1 + d * dr filled next nextendsub midInk(r1, g1, b1, r2, g2, b2, fr) color rgb(r1+(r2-r1)*fr, g1+(g2-g1)*fr, b1+(b2-b1)*fr)end

On this i have in plan to put whole my new interpreter into one exe.

heh currently is micro(A)