### Author Topic: Tunnel coil 3 with transcender :)  (Read 1713 times)

#### B+

• Guest
##### Tunnel coil 3 with transcender :)
« on: January 08, 2019, 04:15:10 PM »
Code: [Select]
`_TITLE "tunnel coil 3 with transcender" ' B+ 2019-01-08CONST xmax = 800CONST ymax = 600SCREEN _NEWIMAGE(xmax, ymax, 32)_MOUSEHIDEWHILE _KEYHIT <> 27    CLS    WHILE _MOUSEINPUT: WEND    mx = _MOUSEX: my = _MOUSEY    dlx = (mx - 1) / 50: drx = (xmax - mx - 1) / 50: dty = (my - 1) / 50: dby = (ymax - my - 1) / 50    x = mx: y = my    tx = 0: ty = 0 '<<<<<<<<<<<<<<<< need this to work???    FOR i = 50 TO 1 STEP -1        LINE (mx - i * dlx, my - i * dty)-(mx + i * drx, my + i * dby), _RGB32(2 * i, 3 * i, 4 * i), BF    NEXT    COLOR _RGBA32(255, 140, 140, 120)    x = xmax - mx: y = ymax - my    PSET (x, y)    tx = 0: ty = 0    WHILE ty < ymax        tx = tx + drx        LINE -STEP(-tx, 0)        ty = ty + dby        LINE -STEP(0, -ty)        tx = tx + dlx        LINE -STEP(tx, 0)        ty = ty + dty        LINE -STEP(0, ty)    WEND    Lightning mx, my, xmax - mx, ymax - my, ymax    _DISPLAY    _LIMIT 60WENDSUB Lightning (x1, y1, x2, y2, d)    IF d < 5 THEN        COLOR _RGB(225, 225, 245)        LINE (x1, y1)-(x2, y2)    ELSE        mx = (x2 + x1) / 2        my = (y2 + y1) / 2        mx = mx + -.5 * RND * d * .4 * rand&&(-2, 2)        my = my + -.5 * RND * d * .4 * rand&&(-2, 2)        Lightning x1, y1, mx, my, d / 2        Lightning x2, y2, mx, my, d / 2    END IFEND SUBFUNCTION rand&& (lo&&, hi&&)    rand&& = INT(RND * (hi&& - lo&& + 1)) + lo&&END FUNCTION`
Snap only catches one transcender, when watching the run there are several!

#### Aurel

• Guest
##### Re: Tunnel coil 3 with transcender :)
« Reply #1 on: January 08, 2019, 04:18:46 PM »
Which basic is this?
qb64 or  SB ?

#### B+

• Guest
##### Re: Tunnel coil 3 with transcender :)
« Reply #2 on: January 08, 2019, 04:24:36 PM »
QB64 x 64