Random JSE Oddities - BlitzCoder.net

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|539\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> JSE -> Random JSE Oddities
Tue, 09 Aug 2022, 07:50
Jayenkai	Random JSE Oddities Some of the oddities I've created of late. Feel free to post your own! // Rotate-a-Swirl // by Jayenkai // Created 2022/8/5 // GotoJSE.com/6fkVsG2X.BAS 10 Graphics 512,512,1 20 x=90:y=270 30 q=780:SetThick 2 40 SetCol 0,0,0,0.1 50 Rect 0,0,512,512 60 SetCol 255,255,255,1 70 g=1+Sin(q0.25)4 80 h=1-Cos(q0.35)12 90 For m=0 To 180 100 dx=256+Sin(x+mg)250 110 dy=256-Cos(y+mh)250 120 InkRot m*2,1,1 130 If m>0 Then Line lx,ly,dx,dy 140 lx=dx:ly=dy 150 Next 160 x=x+0.5:y=y+2:q=q+0.3 170 Flip 180 Goto 40 --v -=-=- ''Load, Next List!''
Tue, 09 Aug 2022, 08:01
Jayenkai	// Forest Walk // by AL O'DARE // Created 2022/7/20 Symbol 0,"2__0_0_0_00C0_00C0_0,50_0,50_050_0Q0/Q0_0?Q0,C0_0_0Q0_0/500C0_0@50_0_0_0@C0_0!C0_0_Q0_0_0_0_0.Q0!Q0_0_0050_0.C0!50_0_0_0.Q0!C0?C0C0_0_0_0_0_0_0_0_0,50_0?Q0_0_0_0_0.C050_0050?50?50_0.C0_0_0C0_0_0,Q00C0_Q0_050_0_0/C0_0@C0_0_0?C0_00Q0?50/50_0,Q0_0_0_0_0_0_0_0_0!Q0!50/50!50?C0_0_0_0Q0_0_0_00C0_0?C0!Q0,Q0@Q0/Q0.Q0_0_0!50_0,Q0?Q0_0_0_0@5"; Symbol 1,"0__0,II0!II0!I0B0?BB0!B0/W0?WW0W0/W"; Symbol 2,"0__0,II0!II0!I0B0?BB0!B0/W0!WW0/W"; Symbol 3,"0__0,II0!II0!I0/B,0?B0/W0?WW0W0/W"; Symbol 4,"0__0,II0!II0!I0/B,0?B0/W0!WW0/W"; Symbol 5,"0__0,II0!II0!I0?j,0/j0/m0!mm0/m"; Symbol 6,"0__0,II0!II0!I0?j,0/j0/m0?mm0m0/m"; Symbol 7,"0__0,II0!II0!I0!jj0?j0j0/m0!mm0/m"; Symbol 8,"0__0,II0!II0!I0!jj0?j0j0/m0?mm0m0/m"; Symbol 9,"2__0_0_0_0_0_0_0_0_0?Q.OQ0_0_0?O,Q.OOQ,0_0_0QO,Q.OOQ.0_0/QQO.Q?OOQ.0_0!QQO.Q.OQOQ?0_0.QQO?Q.OQ,OQ.0_00OQ,O@Q,O/0_0OQ,O_O_0_O,QQO,Q?O.QO?0_O,QQO,Q?O.QO?Q0@RQ.O,QOOQ?OQQOOQ,0@QQOR,QQRQQR_R,Q0@RRQR.QQR_R.QQ0@QRQR_RRQR!Q,0@R,QQR_R_R0@RQ.R?QQRQQR.QQR,0_Q.R.QQOQRQR.Q.R0_RQ.R,QQR!QRQ,R0_0RRQR!Q,RRQ?R,0_00R@Q,R_0_0.wRRS.RRS!RSS0_0!w,S_S.0_0@S_S?0_0_00S_S0_0_0!EL.E0_0_0@E!0_0_0@E!0_0_0@E!0_0_0@E!"; Symbol 10,"2__0_0_0_0_0OO00Q?O,QQ0Q,0OQQ0@Q_QO,Q@OQ,0/Q_Q_QQO,QQO0!OOQ,OQ_Q?O?0/OQ,OQ_Q/OQ,0/Q!OQ!OQ?O,Q.0!QOQ.OOQ_Q,OOQ.0!O,Q/OQ.O!Q,OO0!Q_QO_OOQQO,0!Q,O,QOOQO_OQ,O,0!O?Q_OOQ_R0!OQQO.Q.OOQOQQOQ@0!Q,OQO,QQO,Q.OQ@0!SQQOQQOQQOQOOQOQ.OQ?R0!SRQQRRQR,Q?R?Q,R,0!R_R_QR!S0!R!QR_RQR/S0!R_R_R!SS0!SR,SRRSRRSR_R,S,0!S,wS_S_S.0!S_S_S@0!S_S_S@0!S_S_S?wSS0!S_S_S.w,0_S.00SSL,ESL00S/0_0@L!0_0_0@L!0_0_0@L!0_0_0@L!0_0_0@L!"; Symbol 11,"2__0_0_0_0_0?N0@NN0N0_0?N_NMMN_N.0/N_NMMN_N.0/N_NMN_N?0!N_N?MMN,MN!0?N_N/MN_N0!MN?MN@MN!MN,0!N_N!MN_N0!N?MN_N_NN0?N@MMN_N@0!N!M.N_NMMN.0?N@MN_N,MMNNMN0!N_N_NNMMN.0!N!MN_MMNNMN?0!N_N_N@0!N!yN.yNyyN.yN?y0?y_N,yyN.y?Ny,x0?yN.y?N/y?N,yx0?yN?y.N?yyNyyNyyN,x0?yNyyNNy.N?y.N?yx0?xxy,xyx!y.x,yyxy,x0!xyyxyyx@yyx_x0!xyxy,x!yx/yyx.0!x,y,x?yx@yyx.0!x.yx_x!yyx.0!xyxxyxyyx!yyx.y?x0!xyyxxy,x!yx,y!xx0_0/xELxL0_0_0_0E.0_0_0_0E."; Symbol 12,"2__0_0_0_0_0_0,QR0_0_0_Q!0_0_0@Q!0_0_0@Q!0_0_0/RRQ?R0_0_0!R?QQR0_0_0?RQ@0_0_0?Q_R0_0_0.RQQRRQ,RR0_0_0,RQ,RRQR?0_0_00RQ/R.0_0_0RRQ?RQ?0_0_0RRQ.R,Q,RR0_0_QRRQQR.QQR,0_0@Q,R/QQR.0_0/RQ,RRQRRQRQQRRS0_0/SRRS.RRS/0_0!S@R,S.RRS0_0?vS.RS_S,0_0?vS!vvS,vvS.0_0.Sv?S/vvS.0_0,SSv.S@v,SvvS0_00S,v!S.v@S0_0SSv?SSvS,v.Sv.0_v/SSv_SSv,0_v@SSvvSv.S.v,0@SSvvSv.Sv/SSvSv,0@SSvvS,v?EESv?00S0_0_E!0_0_0@E!"; Symbol 13,"2__0_0_0_0_0_0:z,0_0_0_0:.z0_0_0@z,yzz0_0_0@yyzy,0_0_0/zyz!0_0_0!z@0_0_0!z_0_0_0.z_z0_0_0.z,:z,:zz0_0_0,yz,:z/0_0_00z_zzy0_0_00yz_zyy0_0_y,z_yy0_0_y,zyyz::zzyzz0_0@xz.y,z,yyzzx0_0/xxy,zyxxy/0_0!x,yyx?wx?yy0_0?wxxyxxyyx/yyx0_0?x_x.yyx,0_0.xxyx_x,yyx,0_0,xxyyx,yx!y.xx0_0,wx_x?yyxxwv0_0w/vw_xw.0_0w!vvw!vw/0_w/vvw?v,EwwEEw0_0vvw?vvw?vvEEw?0_vvw.v,w?vw@0_0_E.0_0_0_0E.0_0_0_0E."; Symbol 14,"2__0_0_0_0_0?O0_0_0_0,O_OQO?0_0?O_O_O0_0,O_O_O.0_OQQO,QQO_QO?0_O?Q,O_QO!0/O/Q?O!QO/0!O_OQ,O?QQO!0?O_OQ.O?QO/Q0.O_OQ.O.QQO@0.O_OQ,O?QQO,QQO,0.O_O,QO?QQO.QO,0.O_O/Q?O/0.O_O@QQOOQO!0.Q,O_O?QQO,Q,O,0.RQQO_O?Q,OOQQOOQR0.R,QOQORQOOQRRQQRQ!R,QR0.SR,O,Q,OOR/QR/O0?O,QOOQOQOOQRQR.QQRRQR,Q0?ROOQRROORRORRQR.QQRQ,RR0!SR!xR_R?xxSS0/S.wwx?wS.wwSwx,w0_S?wwxxS_wx,0_00S?wwSSwwSSwxwSSwx0_0.S.wwSw?xxwS,0_0!S,wxSSw,S,w,0_0_00wSSxwwS,w0_0_0?L?0_0_0_0E.0_0_0_0E."; Symbol 15,"2__0_0_0_0_0_0_0_0_0_0_0_0,N_N!MN.0_0,N_MN?MN?0_0N_NMN_NN0_0N_N_N.0_00N_N_N,0_0N_NNMN_0_00N_NNMN_M0_0N_N_N.0_0N_N_N.0_0N_N_N.0_0yN_N!MMN.0_0yN_N_NNy0_0y.N.y!NNy!0_0xy,N,y?N/y,0_0xy@N,y,NNyNy,0_0xy?xxyNNy?NyNy,0_0x,y/Ny@NNy0_0x.yyxyyx.y,xyx.0_0yx_x_x,0_00xy,x,yyx_x,0_00xy,x,yx_x.0_0.x_xx0x!0_0_00E.0_0_0_0E.0_0_0_0E.0_0_0_0E.0_0_0_0E.0_0_0_0E."; Symbol 16,"2__0_0_0_0_0_0_0_0_0_0_0_0_00N,O0_0_0/O,N.O,0_0_00NNOQOON,O?0_0@ON,O_O,0_0!ON,O_O,NN0_0.O!QOONO.QQON,0_0,OOQQO,N,OONO.NNO0_0,O!N?O!NO,0_0O@N,O_OO0_0xQQONO,N.ONO/Q0_0xOONNOQOON,O.QO,QQ0_0xOONNOQO,NNO@QR0_0Rx!OOxOOxxR,Ox.0_0Rx_xxR,xRxRx,0_0wR,x@R,x,Rxxw0_00RRwwxRwx,wwRRxxwwSS0_0,wwSw,S@w.SS0_0.Sw!S?w?SS0_0.wSw/SwSw?S0_0!Sw_w!0_0@w_w?0_0_00w_S0_0_0!LEELLE0_0_0@E!0_0_0@E!0_0_0@E!0_0_0@E!0_0_0@E!"; Symbol 17,"2__0_0!e.0_0_0_0e?0_0_0_e?c,0_0@c,0.e.c@0_0ddc?00fe.c_0@d,c!0e.c_c0/d.c!0e.c_c0/d,edc!e,c_c0@ed,ec!e,c_0@e,d,ec!eec@0_e.d,ec_c!0,ee0.e!ddc_c?e@00e/ddc_c,e_0.e!dc.llc?e_e0!e.c.CCBtc,e_e0/c/lC.lc,e_e00c_cclC.lc?e@c_c?yC,c@e!c_c!llc_cce.c_c_c_ccee00c@e.c!ec_c0.c,e/Xc?eefec@0.e_eXc?e,ff00c.0!e_c!e,ff0_0,e_c!e.ff0_0.e!0c!e.f,0_0.e.00c!e,fefe0_0?ee0,c!e,f.0_0_0c!e,f,e0_0_0c!ee0_0_0/c."; Symbol 18,"2__0_00KK0_0_0_00K!O.0_0_0,K/O?0LL0_0?J,K/O?L?0_KOJ.K!O?KL?0@KKOJ?K?O?KL,K,0/KKOJ!K.O?KLLK?0!KKOJ/K,O?K!JJ0!K,OJ/KKO?K.J?0!KKOOJ/O!KKJ/0?RK.OJ/O.KJ_0?RLRKKOJ@O,J_J0?L,RKKOJ_J_KK0?K?O,J.A.J@K.0,O_OJJA!J?K/0O_O,JA!JOJJK@0O_O,JBA,BAJO.JK!0O_O,JAABA,JO!JK?0O_O,JABAAJO_OJKK0KO_O,J.O_O.K0K_O?J?O_O,00K/O!J?KKO_O0K/O/J!K.O/0K/O!KKJ?K!O.00K!O!K,J?K/0!K.O/K,J?K/0_0O!K?J?K!0_0O?K!J?K?0_00O?K!J?K0_0/OOK@J?0_0_0,K!00J0_0_0!K."; Symbol 19,"2__0_0!EE0_0_0/66D,E,0_0_0,EE66DC,DED?E.0_0,DDE66DC.ED!E.0_0D.66DC.D/EuD,0@D!6DC.D/uD?0/D@C.D_D.0/D@C?D@CCD0@tD/C?D!C?DD0?uttD!C!D.C!D,0,3t.D!C?DDC/D.003!tD?C?DDC!D?03,53?D.C,JCCDC.D/003,5.33DDC/D_D.053!55tDC@D_D,0D,C3/C@D_DD00ED!53,C@D_DD00E,D@C@D_DDE0ED_DC/D_DDEE0D_D,C,JCCD_D,00D_D,55DC5D_D.0,D_DD5?ttD_DD0,D_DD5?t.D_0,D_DD5?t?D@0?EED/5.Dt?D/0!EED/5.Dt!DuEDD0_D/5.DDt?DuE,0_0D!5.DDt?DuEE0_0,D,uD5.D,t.D0_0@uuD5.DDEDt0_0_00uuD5,DD0_0_0_5,"; Symbol 20,"2__0_0_03,0_0_0CC0?CAA3.0_0@C.A00CCAA3.0_0/DC,A,CCAA33C3CD,0_0.DCCA?CAA3C33CDCCD0_AA0DC,A.CA33C3C!0@A.CDCCA!33C3C.A.0?A!C,A!3C33CCA!0!A/CCA.33C33CA/0?CA@CA/3A_0.C,A_BBABA_AACDD00C?A/BA_A.D?00C?A.BA/BBA?C!00C!A,BBABA,B,A_AA00A@B,A.BAABBA_A0A_B,AB!ABA_A0A_AABAB!A_AA0A_AAB!ABBA_A0,A_ABAB.AABABA.C,0.C?A?BA,B,ABA?C,DD0.C.A!B,ABABBA!C,D0?CA_A,BA_AC,0!A_A_A!CC0!A!CA_ACA!C0/A.C,A_AACCA?0/C?DCA_AAC,A,0@C.DDA?CA!C.0_0.DDCA?CCA?C.0_0/A?CCA!C,0_0@A,C,A!C,0_0_0C?A?CC0_0_00C.0A."; Symbol 21,"2__0_0/N00M0_0_0?N/M.0_0_0,N!M?0_0_0,N!M?0_0?NNM.0N!M.0N.0_N,M?N?M?N!0/N.M!N.M?N@0!N.M!N,M?N@0!N.M!N,M.N!M,0!ON.M!NM?N.M!0?OON.M_MMNNM@0?O,N.M,9,H9GM_MM0!O,N,MM9AAHAAHGM_M0?M,N,MMGHAAH,AHGM@0?M_9A.HHAAHM?N.0,M_M9AAHA!M,N/0,M_AHAH,A,HMMN@0,M_9H.A?M.N!0,N@MMA/HM!N?0,N@MM9AHHA,M_N,0,N/M?9HAG9M_MMN00N@M_MMNNM@0,N!M!NNM?N.M!0.N,00M!NNM?N?M.0_M!N,M?N?0_0.M?N?M?N?0_0,M.N!M?N!0_0,MMN/M?N!0_0.N@M?N?0_0@N.0M?N,0_0_0/M.NN"; Symbol 22,"2__0_0_0_0_0_00bUaa0_0_0.;,00bba.T0_0_00;.0bba,T,0_0@aa;.abUa,T.0_0?bbaa;.Tba,TTaT0b,0_0b,aaT;.a.TaTab.aa0@b.aa;.Ta,TaTabba?0@b,aaT;.aaT.bba!0_b,aa;.TaTaTa!T;,0?T.abbaT;.TTaTa.;!0?T!a,;.TaTaaT;@0,aaT_;?T,;_0.a.T@;2BA2;@ab,0,a/T?2B.A;.Tab_a@T,33B.:TTaab_b/a,T:B?3:TTa/b_baaTTaa2B.2aaT,a!b00b,UaT,aaTT;AABAhTTaaT.a,0?T.aaT,;,hhT/aaT,a0.TTa,T,aa;.T.a,T,aTT0.TTaaTTa?;.T.aabbaT.0?T,a!;?aT.aab,aT0/a!ba;.TaT.aab.0@a?bbh;.abaT.aab,0_aab,a;.TabbT.aab,0_0b.;?aabbaT.aUb0_00b,0;?aabbaT.a0_0_;,a,bb0hTT0_0_0,;Taab,0_0_0@a,b,0_0_0_00b,"; Symbol 23,"2__0_00O_ORR0_0_QO_OOQRQ0_0?O_O_O0_0,O_O_O,0_0O_O_O.0_0O_O_O!0/O_O_O_0.O_O_O_O0.O_O_O_O0.O_O_O_O0,QO_O_O_Q0,QO_O_O_O0,O_O.H,JO_O.00O_O,H!NO_OO0QO_OOH@O_OO0QO_OOH@O_OQQ0O_OOH@O_OQQ0O_OOH/JO_OOQ0O_O,H!O_O,QO_O?JNJJO_O.0QO_O_O_OOYY0QO_O_O_OQY00O_O_O_OQ0,O_O_O_O0.O_O_O_O0?O_O_O/Q0/O_O_O.Y,0_O_O_OOYY0_00O_O_Q0_0?O_O?QQ0_0_0O_OOR0_0_0.OOQO?"; Symbol 24,"2__0_0@;,0_0_0,T,;.0;?0_0_T,;_;,0_0@T;_;?T;0_0!;_;_;0_0TT;_;_;,0@TT;_;_;.0/;_;_;/T0!;_;_;!T,0.;_;_;!T?00T;_;_;_;00TT;_;.9HF;_;,00TT;_;FGH,AH8;_;T0;_;,H@;_TT0;_;;GHHAHAH,G;_T00;_;GH,AH.G;_0,;_;FH@8;_00T;_;8H?AHHG;_;0T;_;FH@F;_T0T;_;;FH,AHHF;_TT00;_;.G9GF;_;;TT00;_;_;_;T0.;_;_;_0!;_;_;@0!T;_;_;/0!T;_;_;.0_0;_;_;,0_00;_;_;,0_0?TT;_;!0_0!T,;_;;T0_0_T,;_0_0_0_0;,"; Graphics 640,480,2 Repeat CLS:ResetDraw AntiAlias Off SetThick 6 for y=0 to jscrh Step 4 SetCol 100+y0.2,112+y0.3,128+y0.5 Line 0,jscrh-y,jscrw,jscrh-y next SetCol 80,100,0 Rect 0,jscrh0.5,jscrw,jscrh SeedRnd 37171650 for m=0 to 100 y=Rnd(jscrh0.55,jscrh) x=0-((Mills()0.015)+Rnd(0,jscrw2))(y0.03) x=x mod (jscrw2):if x<0 then x=(jscrw2)+x x=x-320 SetSize Rnd(8,12),1 DrawImg x,y,0 next AntiAlias On SeedRnd 37171650 for m=0 to 100 if m==75 then AntiAlias Off y=(jscrh0.15)(m/60)+jscrh0.4 x=0-((Mills()0.015)+Rnd(0,jscrw2))(y0.03) x=x mod (jscrw2):if x<0 then x=(jscrw2)+x x=x-320 z=y0.025 SetSize z DrawImg x,y-(16z),Rand(9,16) next AntiAlias Off for m=0 to 20 y=(jscrh0.35)(m/60)+jscrh0.65 x=0-((Mills()0.015)+Rnd(0,jscrw2))(y0.03) x=x mod (jscrw2):if x<0 then x=(jscrw2)+x x=x-320 z=y0.0025 SetSize z DrawImg x,y-(16z),Rand(9,16)+8,Rand(0,7) next SetSize 3,3 s=0:if Mills() mod 722<361 then s=1 if Mills() mod 1600<800 then s=s+2 DrawImg 128,jscrh0.7,1+s s=0:if Mills() mod 682<341 then s=1 if Mills() mod 1600<800 then s=s+2 DrawImg 186,jscrh0.7-38,5+s for m=0 to 20 y=(jscrh0.35)(m/60)+jscrh0.85 x=0-((Mills()0.015)+Rnd(0,jscrw2))(y0.03) x=x mod (jscrw2):if x<0 then x=(jscrw2)+x x=x-320 z=y0.0025 SetSize z DrawImg x,y-(16z),Rand(9,16)+8,Rand(0,7) next AntiAlias On for m=0 to 3 y=(jscrh+96)+(m) x=0-((Mills()0.015)+Rnd(0,jscrw2))((y+120)0.03) x=x mod (jscrw2):if x<0 then x=(jscrw2)+x x=x-320 z=y0.025 SetSize z DrawImg x,y-(16*z),Rand(9,16) next Flip Forever --v -=-=- ''Load, Next List!''
Tue, 09 Aug 2022, 17:11
Jayenkai	// A Little Tree // by AL O'Dare // Created 2022/8/4 Symbol 0,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0@yy0_0_0_00y;;y0_0_0_y;.y0_0_0@y;.y0_0_0_y;;y0_0_0_00yy"; Graphics 1920,1080,2 MaxBranch=250 dim b(MaxBranch,10) Dim st(50,10) scry=-540 for m=0 to MaxBranch b(0,1)=-1024 next for m=0 to 50 st(m,1)=Rnd(0,jscrw) st(m,2)=Rnd(0,jscrh+128) st(m,3)=Rnd(0.4,1) next b(0,0)=1 b(0,1)=jscrw/2 b(0,2)=0 b(0,3)=3 b(0,4)=0.1 b(0,5)=0 b(0,6)=60 pause=90 Repeat r=100+(scry0.04) g=150+scry0.02 b=200+scry0.01 CLS r,g,b ResetDraw SetCol 20,180,20 Rect 0,0-scry,jscrw,jscrh SetCol 255,255,255 Text 100,100,scry ResetDraw f=0 if scry<-6000 then f=Abs(scry+6000)/10000 if f>1 then f=1 for m=0 to 50 SetAlpha st(m,3)f y=(st(m,2)-(scryst(m,3)0.5)) mod (jscrh+128) DrawImg st(m,1),y-64,0 next ResetDraw if pause>0 then pause=pause-1 if pause<1 then scry=scry-b(0,4) b(0,4)=b(0,4)+0.0025 e=b(0,3)0.05 tp=4:vel=0.025 if e>10 then e=10+e0.1;tp=4.5;vel=0.03 if e>20 then e=20+e0.05;tp=5+(e-20);vel=0.04 for m=0 to MaxBranch if b(m,0)==0 and Rnd(0,1000)<e r=Rand(0,MaxBranch):if Rnd(0,1000)<5 then r=0 if b(r,0)==1 and b(r,4)>1.25 b(m,0)=1 b(m,1)=b(r,8) b(m,2)=b(r,9) b(m,3)=0 b(m,4)=Rnd(2,tp) v=Rnd(10,45):if Rnd(0,100)<50 then v=0-v b(m,5)=Limit(v+b(r,5),-70,70) b(m,6)=Rnd(60,80) endif endif if b(m,0)==1 b(m,3)=b(m,3)+b(m,4) t=b(m,3)0.05 if t<1 then t=1 if t>16 then t=16 SetThick(t) b(m,8)=b(m,1)+Sin(b(m,5))b(m,3) b(m,9)=b(m,2)-Cos(b(m,5))b(m,3) y1=b(m,2)-scry y2=b(m,9)-scry SetCol b(m,6),b(m,6)0.7,b(m,6)0.2 Line b(m,1),y1,b(m,8),y2 if m>0 if y1>jscrh+32 and y2>jscrh+32 then b(m,0)=0 b(m,4)=b(m,4)-vel if b(m,4)<0 then b(m,4)=0 endif endif next Flip Forever --v -=-=- ''Load, Next List!''
Wed, 10 Aug 2022, 01:57
Pakz	In programmed a grass generator a while ago using a recursive method. With some tweaking it started to look like a human brain. I'm stil trying to get on with Javascript. The last couple of days I'm working on creating procedural pixel art isometric tiles. I started with the 3rd revision. They need to be as pixel perfect as possible and have any width, height and depth. The second example you made looked pretty interesting. Kind of a like a in between video of a video game(fmv)
Wed, 10 Aug 2022, 08:37
rockford	Those are some ptretty spiffy triflings there Jay. I especially liked the rainbow lines/curves one.
Sat, 13 Aug 2022, 05:02
Jayenkai	// Twirling Blocks // by Jayenkai // Created 2022/8/13 // GotoJSE.com/7swmxz9c.BAS Symbol 0,"1__1X1X1X1X1X1X1X1XX1X1X1X1X1X1X1X11X1X1X1X1X1X1X1XX1X1X1X1X1X1X1X11X1X1X1X1X1X1X1XX1X1X1X1X1X1X1X11X1X1X1X1X1X1X1XX1X1X1X1X1X1X1X11X1X1X1X1X1X1X1XX1X1X1X1X1X1X1X11X1X1X1X1X1X1X1XX1X1X1X1X1X1X1X11X1X1X1X1X1X1X1XX1X1X1X1X1X1X1X11X1X1X1X1X1X1X1XX1X1X1X1X1X1X1X1"; Graphics 512,512,2 Dim Block(2,20) for n=1 to 2 Block(n,1)=ScreenWidth()/2+Rnd(0-128,128) Block(n,2)=ScreenHeight()/2+Rnd(0-128,128) Block(n,3)=0;Block(n,13)=0 Block(n,4)=0;Block(n,14)=0 Block(n,5)=Rnd(0,360) Block(n,6)=Rnd(0.1,1):Block(n,16)=Block(n,6) Block(n,7)=Rnd(48,64) Block(n,8)=Rnd(0-0.2,0.2):Block(n,18)=Block(n,8) Block(n,10)=Rand(0,7) next Repeat CLS ResetDraw:AntiAlias False For n=1 to 2 SetSize Block(n,7):SetRot Block(n,5) DrawImg Block(n,1),Block(n,2),0,Block(n,10) Block(n,1)=Block(n,1)+Block(n,3) if Block(n,1)<-160 then Block(n,13)=Rnd(0.2,0.5) if Block(n,1)>160 then Block(n,13)=0-Rnd(0.2,0.5) Block(n,3)=SmoothTo(Block(n,3),Block(n,13),128):if Rnd(0,100)<1 then Block(n,13)=Rnd(0-0.5,0.5) Block(n,2)=Block(n,2)+Block(n,4) if Block(n,2)<-160 then Block(n,14)=Rnd(0.2,0.5) if Block(n,2)>160 then Block(n,14)=0-Rnd(0.2,0.5) Block(n,4)=SmoothTo(Block(n,4),Block(n,14),128):if Rnd(0,100)<1 then Block(n,14)=Rnd(0-0.5,0.5) Block(n,5)=(Block(n,5)+Block(n,6)) Mod 360 Block(n,6)=SmoothTo(Block(n,6),Block(n,16),128):if Rnd(0,100)<3 then Block(n,16)=Rnd(0.1,1) Block(n,7)=Block(n,7)+Block(n,8) if Block(n,7)<48 then Block(n,18)=Rnd(0,0.2) if Block(n,7)>64 then Block(n,18)=0-Rnd(0,0.2) Block(n,8)=SmoothTo(Block(n,8),Block(n,18),128):if Rnd(0,100)<1 then Block(n,18)=Rnd(0-0.2,0.2) SetBlend "Soft":SetAlpha 0.5 Next Flip Forever --v Example of using the little sprites with a ton of scaling. Switching off AntiAliasing helps keep those crisp and clean edges. -=-=- ''Load, Next List!''
Sat, 20 Aug 2022, 06:59
Jayenkai	// Swirly Brush // by Jayenkai // Created 2022/8/20 // GotoJSE.com/pDX9CKkT.BAS #CONST $Bristles=8 Dim Brush($Bristles,10) Start=1 Lift=0 Graphics 1280,720,2 Repeat if MouseDown()<1 or Start==1 Start=0 Lift=1 c=Rnd(0,360) for m=0 to $Bristles a=Rnd(0,360):d=Rnd(0,4) Brush(m,1)=Sin(a)d Brush(m,2)=-Cos(a)d Brush(m,7)=Rnd(0.6,1.0) Brush(m,8)=c+Rnd(-45,45) Brush(m,9)=Rnd(0.7,5.0) next Endif If KeyDown(32) then CLS if MouseDown()>0 For m=0 to $Bristles Brush(m,5)=MouseX()+Brush(m,1) Brush(m,6)=MouseY()+Brush(m,2) if Lift==1 then Brush(m,3)=Brush(m,5):Brush(m,4)=Brush(m,6) x=Brush(m,3):y=Brush(m,4) For g=0 to 32 Brush(m,3)=SmoothTo(Brush(m,3),Brush(m,5),Brush(m,9)320) Brush(m,4)=SmoothTo(Brush(m,4),Brush(m,6),Brush(m,9)320) InkRot(Brush(m,8),0.6,Brush(m,7));SetAlpha(0.03) if Lift==0 then Line x,y,Brush(m,3),Brush(m,4) Next Next For m=0 to $Bristles InkRot(Brush(m,8),0.2,Brush(m,7));SetAlpha(0.08) m2=(m+1) mod $Bristles Line Brush(m2,3),Brush(m2,4),Brush(m,3),Brush(m,4) next Lift=0 endif Flip Forever --v Swirly Brush!!! Mouse/Touch to draw, Spacebar to CLS -=-=- ''Load, Next List!''
Thu, 25 Aug 2022, 02:22
Jayenkai	// Passing Ships // by AL O'Dare // Created 2022/8/24 // GotoJSE.com/vpCM2LBR.BAS Symbol 0,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0.55005500550_0_0.77007700770_0_0.55005500550_0_0.77007700770_0_0.77007700770_0_0.77007700770_0_00:_:!0_0@z_z!0_0!:_:_:,0_00z_z_z,0!5_5_5_5_5_5_5_007_7_7_770,7_7_7_70?7_7_7@0!7_7_7/"; Symbol 1,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_005.0.5.0_0_007.0.7.0_0_005.0.5.0_0_007.0.7.0_0_007.0.7.0_0_007.0.7.0_0_007.0.7.0_0_007.0.7.0_0!:_:_:!0@z_z_z!0!5_5_5_5_5_5_5_007_7_7_770,7_7_7_70?7_7_7@0!7_7_7/"; Symbol 2,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0,50050,50050_0_0,70070,70070_0_0,70070,70070_0_0,70070,70070_0_0,:_::0_0_0,z_zz0_0_0:_:_:!0@z_z_z!0,5_5_5_5_5_5_5_007_7_7_770,7_7_7_70?7_7_7@0!7_7_7/"; Symbol 3,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_D10_0_0_00MD110_0_0_MMD1,0_0_0_0D0_0_0_00C!0_0_0_C."; Symbol 4,"2__0_0_0_0_0c?0_00c?0/c.d?c,0.c.d?c.00cd_d,c.d_d.ccd_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d_d?"; Graphics 1280,270,2 AntiAlias False Repeat ResetDraw SetCol 0,80,250 Rect 0,0,jscrw,jscrh Milly=Mills()0.3 ResetDraw SeedRnd 37171 SetThick 8 for l=1 to 2 For y=1 to 10 For x=0 to 8 SetSize Rnd(16,32),Rnd(1,3) SetAlpha (Rnd(0.01,0.02)(32-y))1.5 SetAlpha 1 dx=x180+Rnd(-50,50) dy=(y30)+jscrh0.5 dx=dx+(((y+10)8)+l+16)0.4)Milly0.0002) dx=(dx mod 2400)-600 dy=dy+Sin(x37+y73+l128+MillyRnd(0.01,0.03))Rnd(4,8) DrawImg dx,dy,4 Next Next next ResetDraw SetSize 4 for c=0 to 3 for s=0 to 3 y=c:x=s dx=s640+Rnd(-300,300) dy=(c50+s8)+jscrh0.45 dx=dx+(((y+6)8)+l+16)0.3)Milly0.0001) dx=(dx mod 2400)-600 dy=dy+Sin(x16+y53+l64+MillyRnd(0.01,0.03))Rnd(2,6) DrawImg dx,dy,s,Rand(0,7) next next Flip Forever --v This isn't spectacular, but it's what I used for this week's ALChoon. -=-=- ''Load, Next List!''
Wed, 31 Aug 2022, 03:50
Jayenkai	// The Wormhole // by AL O'DARE // Created 2022/8/25 // GotoJSE.com/6B9RmWjV.BAS Symbol 0,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0.;;0_0_0_0,;;"; Symbol 1,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0,33GNNUUbb0_0_0?33GNNUUbb"; Symbol 2,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0!z_z/0_0/z_z_z0_0?z_z.0,z.0_0,z_z.0!zz0_00z_z.0/zz0_0z_z.0@zz0_z_z.0@9zz0@z_z.0?9.zz0@z_z_z/0?;_;z_z@0?;4?;4;4;z_z/0?;_;,"; Symbol 3,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0,Y,0_0_0_00Y!0_0_0@Y/0_0_0/Y@0_0_0!Y_0_0_0?Y_"; Symbol 4,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_01?01,0_0_0.10_110_0_110,1!0_0_0,10,110?110_0_0.10_10_0_0010_0010_0/1001001?0?10_0?100100110.10.10_0@10010!10_0_100100101,0010,10_0?10010010,10010,10_0?100100110010110,10_0!1010,1,0010.10_0_110.110.10_0@11001?0.10_0_00101101!"; Symbol 5,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0@FF0_0_0_0F0_0_0_0_0_0_0@F0,F.0_0_0.F0.FF00FF0_0_0/F0!FF0_0_F0.F00F,00FF0_0@F0.F0FF00F00F0_0@F0.F0F0,F0_0_00F0.F0F0F00F0_0_0F0.F0F,00F0F0_0_F0,F0!F0F0_0_F0.F,0FF0F0_0_00F0_0F0_0_0,FF0/F0_0_0/F,0FF"; Symbol 6,"2__0_0_0_0_0_0_0_0_0_0_0_0_a/0_0_0!a0/aa0_0_0,a0_00aa0_0@a0_0?a0_0/a0.a.0!a0_0!a0,a,0,aa0_0_0aa0,a0/a0_0_a0,a0_a0_0/a0,aa0?a0.a0_0!a0,a0.aa0aa00a0_0?a0.a0,a0?a00a0_0.a0.a0,a0?aa0a0_0.a0.a0,aa0aa00a0a0_0.a0.a0.a,0,a00a0_0,a0?a0_a00a0_0.a0.aa0@a00a0_0.a0?aa0!a0,a0_0?a0?a/0.a0_0!a0_0!a0_0/a0_0.a0_0_a0_00aa0_0_00aa0!aa0_0_0!a!"; Symbol 7,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0o.00o.0o0_0_o_o?0o0o0_0?o!p,o_o0_0,o.popopopopo!0o0_00o,po_po?00o0_o_o!po?0_00o_o_o.0o0@o_o!po!0_0o_o/po/0@opo_o?po.0_00o_o/po!0@opo_o_o!0!o_o_po!0/opo_o_o?0@o_o@po!0@po_o_o?0o0!po_o_o?0@o_o@po.0oo0/opo_o_oo0oo0/o,po_o,po,0o00o0@o,po_oopo,0o.0@o?po@po,0oo0_0.o?p.oppo,0o0_0/o_o!0_0_0oo0o@0_0_0/o?"; Symbol 8,"26_0_00e0,e0_0_0_0.e0/d0_0!c00c0c0.e0.e0_0_0.c,dec,ecce,0@c0,ded0deed00ddedeed00c0@c00d0e0ee0d0e0d0,dede00e0/c00de00c0de0de,00d?0c0_00e,dc0,dde,d00e00e0e0@d0,e0e0.ded,eed00d0e0!c00dee00cce!d,e0e0d0c0/ed0ed0,d0d,ceed.ed00e0e0.c0,dde0.eedd0ed0e0deddc0d0.ec00ede0e0,dded0d.edee0c0?e0c0dd0e0,ececde0ded0de0d0/e0d00e00ec0cdeedd0d0de00d0/ec0eded0?dee00de0ee0d0c0?de0ed00ec00d00ce,de0ee0_0,d0,cc0,cddcc0dde,d0.e00dde0c0ed0dd0d00d,0dd0dd0,ce0!ed00e00ededede0ceedde0,e0?e0,e0?e0e0e,ce0e0.c0@cd00e0,ee0,ded0d0.ec0?e0e0e.0d00ee0e0_00e0/ce00e0ee0.deed0!c0/e0e0ce0,e0ee0ed0.e.c0@e0e0?ee00e0e0/c0_0_0?e0c0.c0_0,e0e0!c.0c?0_0_e0e0e0e0_0_0.e00e"; Symbol 9,"26_0_0@e0!e0_0_0_0e0_0_0_0_e0_0_00e0eec0_0_0.e0c0d0c0cc0cd0,d0_00e0e0,c00e00d0c0ce0_0!c0,d0,ccdc0cc00d00e0_0,e00e0cdc0cc00c0cc0_00e0?edcdcce0e0c0cc0?d0_deec,ecddcd,c00c00d0_00c0ddc0e0de0ce0edccd0e0/c0e00cd0dd0,de0,e0e0e00d0d0?e00de0ce0c0e0dcdeccecc0_0ce0,dcd0_0cdee0_00d00e0.ce00dc0c0e0,e00d0@ce0cd00c0d00d00d0cedc0d0,c0.e0ce0dcddc0d0,dcc0c0_00cde00dcdedce0dc00ede0e00e0!d0.ee0d00cc00dc0ce0,ce0_00e0,c0,ddccdd0e00e0dd0_de00cececc0deec00c0.e0_d0e0d0e,0.e0,d0c0@cd0.e,0ed0e0.c0e0d,e0e0_00ded0cdee0?cdc0_00c00cd0.dc0.c00cdd0,e0@d0,e,d00d00d0dd0d0_0!c0,d0ed0,ed0ed0,e0_0!e0d0eed0,d0_0_0!e0.e0.e0_0_0.e0ee"; Symbol 10,"26_0_0_0,e0_0_0@e0_0_0_0c0_0e0_0/c0c00dc0ed0dd00d0_0@d0e0e00cd0e0_0_0.cc00cd0cc0dd0_0@d0,c00c0,c0c0,e0_0d0,cc0?d0,c0e0c0.d0_0,c0@deec0cd0_0c0?ee00dd00cdc0d0.c00d0.d00dc0?d0c0c0c0d0c0e0_00e00e00e0e0.ee00de0d0e0@e00c,d0ed00ed0ede0ceced0c0?d0,ec0dce0.dc00e,00ce0/c0/dedc00e0cc0de00e0@e0d0c,00de00edc0,d00ec0,e0_0.edd00dec0dc00e0.c0?de0c00d00ed00ccd0d0ee0d0@ce0c00c0e0dee0d0e0e,c0c0d00d0!ecc0c0,c00e00e,c0dc0c0_edd0e0e00e00ee0ce00d0_0c0,eed0ee0d0c,0.ce0d00de0!cce0ee00ecd00e0e00dec0_0.ec,dedcced0d0d0dd0,d0_0e0e0cd0ecdde0dcd0c0d0_0.ceec0ecc00c0cc0/e0_0,c0cc0,d00ed0,e0_0!e0_e0.c0_0_e00e0!c0c0_0_0_00e0,e0_0_0_0e"; Symbol 11,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0?M0_0_0_00M,0_0_0_0MM0_0_0_00MM0_0_0_00M0_0_0_0,M0_0_0_0,M0_0_0_0,M0_0_0_00MM0_0_0_00MM0_0_0_0.M,0_0_0_0.MM0_0_0_0.M,0_0_0_0M.0_0_0_M,0_0_0_0MM0_0_0_00MM0_0_0_0M,0_0_0_0MM"; Symbol 12,"2__0_0_0_0_0_0_0_0_0,p0_0_0_0.p0_0_0_0.p0_0_0_0.p0_0_0_0,pp0_0_0,pp0/pp0_0_0.pp0!p0_0_0!p,0.pp0_0_0!p,0,pp0_0_0_p!0_0_0_pp00pp0_0_0_0?pp0_0_0_0.pp0_0_0_0.p0_0_0_0?p0_0_0_0.pp0_0_0_0.pp"; Symbol 13,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0!F0_0_0_F00FF0_0_0_F,0_0_0_00FF0_0_0_0,F0_0_0_0.F0_0_0_0.F0_0_0_0.F0_0_0_00F,0_0_0_FF00F0_0_0_0.F_0_0_0_0,F0_0_0_0.F0_0_0_0,FF0_0_0_0,F0_0_0_0,FF0_0_0_00FF0_0_0_0,F0_0_0_0,FF0_0_0_00FF0_0_0_0,F0_0_0_0,FF"; Symbol 14,"2__0_0_0_0_0_0_0_0_T0_0_0_0.T0_0_0_0?T0_0_0_0_0_0_0_0T0_0_0_0,T0_0_0_0?T0_0_0_0?T0_0_0_0.T0_0_0_0.TT0.TT0_0@T0/T0?T0_0_T0@T0?T0_0@T0!T0T0_0_0_0.TT0.T0_0@T0!T0T0_0_0_0.TT0.T0_0@T0!T0T0?TT0_0_0/T0?T0_0/T0!T00T0_0_0_00T0T0_0_0.T0_T0_0_0,T0/T0_0_0_0?T0T0_0_0_0.T0_0_0_0?T0_0_0_0,T0T0_0_0_0.T0_0_0_0.TT0_0_0_0.TT"; // 0 Start // 1 Wormhole // 2 Enter // 3 Storm // 4 Calm // 5 Storm // 6 Exit DebugMode 1 Graphics 640,480,2 Style=0 AntiAlias False Dim Star(100,4) Dim Neb(100,10) Dim Spark(100,10) for m=0 to 100 star(m,1)=Rnd(0,jscrw) Star(m,2)=Rnd(0,jscrh) Star(m,3)=Rnd(0.6,1) Neb(m,1)=Rnd(jscrw0.5,jscrw1.5+256) Neb(m,2)=Rnd(0,jscrh) Neb(m,3)=Rnd(0.2,2) Neb(m,4)=Rand(0,2) Neb(m,5)=Rnd(0,360) Neb(m,6)=Rand(8,10) Next px=-16 py=jscrh/2 pyd=py:pxd=px pxs=0 pys=0 Burst=0 spd=0 Repeat sp=0:c=1 SeedRnd 3717 If Style<2 or Style>6 sp=1 CLS Endif if sp==0 CLS 0,0,0,0.01 if Style==6 then CLS 0,0,0,0.05:px=px+2 endif if Style>1 and Style<6 and Style!=4 then spd=spd+0.3 if Style<2 or Style>5 then spd=spd-0.5 if Style==4 and spd>3 then spd=spd-0.2 if spd>12 then spd=12 if spd<0 then spd=0 if Style==1 or Style==100 if Style==1 then Burst=Burst+0.03 if Style==6 then Burst=Burst-0.03 if Burst<0 then Burst=0 if Burst>1 then Burst=1 SetAlpha 0.3 for e=0 to 100 SetSize Rnd(1,3)Burst,Rnd(1,3)Burst SetRot Rand(360)+Mills()Rnd(0.01,0.1) fd=Rnd(128)Burst fr=Mills()Rnd(0.05,0.3) DrawImg jscrw/2+Sin(fr)fd,jscrh/2-Cos(fr)fd,Rand(4,7),Rand(0,7) next endif ResetDraw if Style>1 and Style<6 AntiAlias True SetSize 4 for m=0 to 100 SetAlpha Neb(m,3)0.025 Neb(m,1)=Neb(m,1)-((spdNeb(m,3))+0.5) if Neb(m,1)<-256 and Style<6 then Neb(m,1)=jscrw+256 c=Neb(m,4) if Style==4 then c=8 DrawImg Neb(m,1),Neb(m,2),Neb(m,6),c next AntiAlias False endif ResetDraw SetSize 2 for m=0 to 100 SetAlpha Star(m,3) Star(m,1)=Star(m,1)-(spdStar(m,3)) if Star(m,1)<-32 then Star(m,1)=jscrw+32 c=1 if Style<2 or Style>5 then c=0 g=(Floor(Mills()/100) mod 40) if Style==3 or Style==5 and g==(m mod 40) then c=(g mod 4)+11 DrawImg Star(m,1),Star(m,2),c next If KeyHit() then Style=Style+1 px=px+pxs:py=py+pys if Style<2 and px<jscrw/2 then px=px+0.3 SeedRnd Mills() if Style==3 or Style==5 px=(px+Sin(Mills()Rnd(0.07,0.13))Rnd(3,6))+Rnd(0-3,3) py=(py-Cos(Mills()Rnd(0.1,0.3))Rnd(3,6))+Rnd(0-3,3) if Rnd(0,20)<1 then px=px+Rnd(0-50,50) if Rnd(0,20)<1 then py=py+Rnd(0-50,50) if px<60 then px=60 if px>jscrw-60 then px=jscrw-60 if py<100 then py=100 if py>jscrh-100 then py=jscrh-100 endif if Style==4 px=px-((px-jscrw/2)/128) py=py-((py-jscrh/2)/128) endif ResetDraw pyd=pyd-((pyd-py)/12) pxd=pxd-((pxd-px)/12) SetSize 2 SetAlpha 1 DrawImg pxd,pyd,2 SetAlpha 0.4 DrawImg pxd,pyd,3 Flip Forever --v Hit any key to open the wormhole. Again to enter the wormhole. Again to make the wormhole unstable. Again for the eye of the wormhole. Again for more unstable wormhole. And a final tap to exit the wormhole and fly off into the distance. (and again to break it and leave the shuttle stranded) Created and used for this video -=-=- ''Load, Next List!''
Wed, 31 Aug 2022, 11:44
AndyH	Warning alert, wormhole unstable. All of the drinks have been knocked off the table. This should be number 1 in the popular music charts, and if it isn't we need an inquiry. -=-=- Andy H 8-bit games at www.hewco.uk Cartoons at awful.ovine.net Ovine at ovine.net
Wed, 31 Aug 2022, 12:45
Jayenkai	Could you imagine.. .. The sheer irony of it all. Hundreds of video games, and it's a bloody bit of music that finally makes me millions. .. Wouldn't be my money, anyway, it'd be AL's, and he'd spend it all on fish. -=-=- ''Load, Next List!''
Wed, 31 Aug 2022, 14:38
AndyH	Ha, that would be typical. Nice effects/story with music and the lyrics really did make me chortle. -=-=- Andy H 8-bit games at www.hewco.uk Cartoons at awful.ovine.net Ovine at ovine.net
Sun, 04 Sep 2022, 05:57
Jayenkai	// Triangulation // by Jayenkai // Pinched from Amstrad Computer User - Issue 2 - October '84 // Created 2022/9/4 Graphics 1920,1080,1 Dim v(20) hue=0 Repeat sp=0:s=ScreenHeight()1.1 Gosub 4000 Gosub 1000 Flip Forever 1000 if s<10 then Return sp=sp+1 v(sp)=0 repeat s=s/2:Gosub 1000:s=s2 l=s:Gosub 3000 heading=heading+120 v(sp)=v(sp)+1 until v(sp)>=3 sp=sp-1 Flip Return 3000 x=x+lCos(heading) y=y-lSin(heading) hue=hue+0.1 InkRot hue,0.3,1 LineTo x,y Return 4000 heading=0 x=(ScreenWidth()0.5)-(s0.5):y=ScreenHeight()*0.98 plot x,y return --v I may or may not be spending my Sunday reading through old Amstrad Magazines... -=-=- ''Load, Next List!''
Sun, 04 Sep 2022, 06:45
rockford	I thought that looked familiar!
Wed, 21 Sep 2022, 13:29
Jayenkai	// Amanda // by Jayenkai // Created 2022/9/21 Symbol 0,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0.A,0_0_0_0A!0_0_0/A/0_0_0!A@0_0_0?A_A0_0_0,A_AA0_0_00A_A.0_0_0A_A.0_0_A_A!0_0/A_A@0_0?A_A_A0_0,A_A_A,0_0A_A_A.0_0A_A_A?0@A_A_A/0/A_A_A@0?A_A_A_0,A_A_A_A,0A_A_A_A_A_A_A_A"; Symbol 1,"1__0_0_0_0_0_0_0_0_0_0_0_0_0_0/v0_0/v0_0!v0.v/0,v,00v_0vvXvv0v_v!00v_v.0.v00v00v0_v00v00v"; Symbol 2,"1__0_0_0_0_0_0_0_0_0_0_0_0_0_0_v0_0?v0_0!v0.v/0,v,00v_0vvXvv0v_v!00v_v.0.v00v0,v0/v0.v0,v"; Symbol 3,"1__0?B0B0B0_00B?0_00Bv,B0_00vvXvv0_00v?C0_0Cv,CC0_0CCvvCC0_0CCv,C0_0Cv.C0_v@0/v0Cv.C0v0!I0v!0I0!Bv4v.4vB0!C0v4vv4v0C0!CvC!vC0!C00C00C00C"; Symbol 4,"1__0?B0B0B0_00B?0_00Bv,B0_00vvXvv0_00v?C0_0C55vCC0_0CCvvCC0_0CCv,C0_0Cv.C0_v@0/v0Cv.C0v0!I0v!0I0!Bv4v.4vB0!C0v4vv4v0C0!CvC!vC0!C00C00C00C"; Symbol 5,"2__0_0_0_0_0_0_0_0_0/v0_0D0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0?v0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_v0?D0_00v0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0,D0_0D0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0v0_0_0v0_0_0_0_0_0_0_0_0_0/D"; Symbol 6,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0.1_1_1.0_14_4_4.10/141_1_1.410!1410_0_001410!1410_0_001410!1410_0_001410!1410_0_001410!1410_0_001410!1410_0_001410!1410_0_001410!1410_0_001410!1410_0_001410!1410_0_001410!1410_0_001410!141_101_11410/14_414_4410_1_1141_10_0_001410_0_0_001410_0_0_001410_0_0_001410_0_0@1.41.0_0_0!14?10_0_0@14,10_0_0_01,"; Symbol 7,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0!M0?M0?M0_0_MOM0,MOM0,MOM0_0@MOM0,MOM0,MOM0_0@MOM0,MOM0,MOM0_0@MOM0,MOM0,MOM0_0@MOM0,MOM0,MOM0_0@MOM0,MOM0,MOM0_0_M0?M0?M0_0_0_0_0_0!M0?M0?M0_0_MOM0,MOM0,MOM0_0@MOM0,MOM0,MOM0_0_M0?M0?M"; Symbol 8,"1__0_0_0_0_0_0_0_0_0_0_0_0_0_0_v0@v0?v0@v0!v0.v/0,v,00v_0vvXvv0v_v!00v_v.0.v0!v0/v0@v"; Symbol 9,"1__0_0_0_0_0_0_0_0_0_0_0_0_0_0/v0_0.v00v0_00v0,v0.v/0,v,00v_0vvXvv0v_v!00v_v.0.v00v0_00v00v"; Symbol 10,"1__0_0_0_0_0_0_0_0_0_0_0_0_00v0_0?v0_0!v0_0?v,0,v/00vvXvv0v_0v?0v_v?0,v_v0/v00v0,v0_v0v00v"; Symbol 11,"1__0_0_0_0_0_0_0_0_0_0_0_0_v0_0/v0_v0?v0_0v0,v,0,v/00vvXvv0v_0v?0v_v?0,v_v0/v0,v0_0,v0,v"; Symbol 12,"1__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_v0,B0B0B0!v0.B?00v/00Bv,B0v_0vvXvv0v_v!00v_v.0.v0!v0/v0@v"; Symbol 13,"1__0_0_0_0_0_0_0_0_0_0_0_0_0_0!B0B0B0_00B?0_00Bv,B00v/00vvXvv0v_0v?0v_v?0,v_v0/v00v0,v0_v0v00v"; Stp=0 a=MouseHit() px=50 py=jscrh0.7+32 pface=1 panim=1 jump=0 Graphics 852,480,3 Repeat a=MouseHit() CLS:ResetDraw SeedRnd 3717 AntiAlias False if a==1 then Stp=Stp+1 if Stp==0 CLS 80,120,180 SetCol 40,120,50 Rect 0,jscrh0.6,jscrw,jscrh ResetDraw:SetSize 8 DrawImg jscrw0.5,jscrh0.4,0 SetSize 1 for x=0 to 20 s=Floor(Mills()0.01+s0.25) mod 2 g=Cos(x17+Mills()0.025) SetSize 1,1:if g<0 then SetSize 0-1,1 h=Sin(x17+Mills()0.025)Rand(160,360) DrawImg jscrwRnd(0.3,0.7)+h,jscrhRnd(0.63,0.8),s+1 next endif if Stp==1 CLS 50,30,0:ResetDraw:SetSize 4 for m=0 to 80 SetAlpha Rnd(0.2,0.7) SetSize Rnd(1,4) SetRot Rnd(360) DrawImg Rand(jscrw),Rand(jscrh),5 next SetCol 80,50,20 for x=0 to jscrw0.8 step 16 y=0:if x>jscrw0.7 then y=32 Oval x,jscrh0.7-y,32,32+y,16+y next ResetDraw:SetSize 2 s=0:if KeyDown(32) then s=1:t=240 DrawImg jscrw0.75,jscrh0.75,3+s if t>0 t=t-2 y=jscrh0.65 if t<180 then y=y+(t-180) SetAlpha t/40 SetFontSize 8 Text jscrw0.7,y,"Don't leave me like this",2 endif ResetDraw SetSize pface,1 DrawImg px,py,1+(Floor(panim) mod 2) dx=GamePad(ButtonRight)-GamePad(ButtonLeft) panim=panim+Abs(dx)0.2 if dx<0-0.2 then pface=-1 if dx>0.2 then pface=1 px=px+(dx)1.5 endif if Stp==2 CLS 80,120,180 SetCol 40,120,50 Rect 0,jscrh0.6,jscrw,jscrh ResetDraw SetSize pface,1 DrawImg px,jscrh0.63,1+(Floor(panim) mod 2) dx=GamePad(ButtonRight)-GamePad(ButtonLeft) panim=panim+Abs(dx)0.2 if dx<0-0.2 then pface=-1 if dx>0.2 then pface=1 px=px+(dx)1.5 ResetDraw:SetSize 8 DrawImg jscrw0.5,jscrh0.4,0 SetSize 1 for x=0 to 20 s=Floor(Mills()0.01+s0.25) mod 2 g=Cos(x17+Mills()0.025) SetSize 1,1:if g<0 then SetSize 0-1,1 h=Sin(x17+Mills()0.025)Rand(160,360) DrawImg jscrwRnd(0.3,0.7)+h,jscrhRnd(0.66,0.8),s+1 next endif if Stp==3 CLS px0.05,px0.1,px0.4+40 SetCol px0.02,px0.1+30,px0.03 Rect 0,jscrh0.6,jscrw,jscrh ResetDraw SetSize pface,1 DrawImg px,jscrh0.63,1+(Floor(panim) mod 2) dx=GamePad(ButtonRight)-GamePad(ButtonLeft) panim=panim+Abs(dx)0.2 if dx<0-0.2 then pface=-1 if dx>0.2 then pface=1 px=px+(dx)2.5 endif if Stp==4 d=100 CLS d0.05,d0.1,d0.4+40 SetCol d0.02,d0.1+30,d0.03 Rect 0,jscrh0.6,jscrw,jscrh f=Floor(Mills()/384) Mod 4 f2=Floor(Mills()/1536) Mod 2 ResetDraw SetSize 1,1:if f2==0 then SetSize 0-1,1 DrawImg px,jscrh0.63,8+f dx=GamePad(ButtonRight)-GamePad(ButtonLeft) panim=panim+Abs(dx)0.2 if dx<0-0.2 then pface=-1 if dx>0.2 then pface=1 px=px+(dx)2.5 for x=0 to 31 DrawImg Rand(-32,32)+13+x26,Rand(jscrh0.2,jscrh0.6)-Abs(Sin(Mills()Rnd(0.25,0.4))8),Rand(6,7),Rand(0,7) next far=64 endif if Stp==5 d=100 CLS d0.05,d0.1,d0.4+40 SetCol d0.02,d0.1+30,d0.03 Rect 0,jscrh0.6,jscrw,jscrh f=Floor(Mills()/384) Mod 4 f2=Floor(Mills()/1536) Mod 2 ResetDraw SetSize 1,1:if f2==0 then SetSize 0-1,1 DrawImg px,jscrh0.63-jump,8+f dx=GamePad(ButtonRight)-GamePad(ButtonLeft) panim=panim+Abs(dx)0.2 if dx<0-0.2 then pface=-1 if dx>0.2 then pface=1 px=px+(dx)2.5 for x=0 to 31 DrawImg Rand(-32,32)+13+x26,Rand(jscrh0.2,jscrh0.6)-Abs(Sin(Mills()Rnd(0.25,0.4))8),Rand(6,7),Rand(0,7) next far=far-1 far2=farfar if far<0 then far2=0 for x=0 to 31 dx=Rand(32,jscrw-32) if dx<jscrw0.5 then dx=dx-far2 if dx>=jscrw0.5 then dx=dx+far2 h=Sin(x17+(Mills()/96))Rand(16,36) DrawImg dx+h,Rand(jscrh0.67,jscrh0.9)-Rand(0.7,1.3)jump,8+((f+x) mod 4) next dx=jscrw0.55 if dx<jscrw0.5 then dx=dx-far2 if dx>=jscrw0.5 then dx=dx+far2 DrawImg dx,jscrh*0.63,12+((f+x) mod 2) SeedRnd if KeyDown(Asc("Z")) then jump=Rand(6,14) if jump>0 then jump=jump-1 endif Flip Forever --v Badly cobbled together generator for this week's ALChoon... Left+Right to move Amanda. MouseDown to move through the "scenes" 1. Anthill 2. Visiting the Queen Space for the Queen to say her phrase. 3. Walking away 4. Walking further 5. Neon lights? 6. Amanda's friends join. Z to hop. -=-=- ''Load, Next List!''
Thu, 24 Nov 2022, 03:39
Jayenkai	// Relaxing // by Jayenkai // Created 2022/11/23 Symbol 0,"0__0_0,;0_0_00;0_0,;"; Graphics 640,480,2 CLS 100,160,255 tick=1000 w1=Rnd(jscrw) w2=Rnd(jscrw) w3=Rnd(jscrw) Repeat tick=tick+0.1 ResetDraw SetCol 0,80,200 Rect 0,jscrh0.5,jscrw,jscrh SeedRnd 37171651 ResetDraw SetAlpha 0.1 h=jscrw0.5 for n=1 to 64 SetThick Abs(Sin(tick10.5+n13)8)+16 InkRot 0,0,Abs(Sin(tick4.5+n15)) SetAlpha(0.02) cs=Rnd(1,5) cy=(tickcs) cy=(cy mod jscrw)-h cy2=cy(cy0.05):if cy<0 then cy2=0-cy2 cy=cy+h:cy2=cy2+h Line cy,jscrh0.5,cy2,jscrh next SeedRnd 37171652 SetAlpha 0.1 for n=1 to 32 SetThick Rnd(2,8) InkRot 0,0,Rnd(0.5,1) cs=Rnd(0.1,0.5)0.05 cy=(tickcs) cy=((cycy) mod (jscrh0.6))+(jscrh0.5) Line 0,cy,jscrw,cy next ResetDraw SetCol 100,160,255 Rect 0,0,jscrw,jscrh0.5 SetCol 255,255,255,0.1 SeedRnd 37171650 for c=0 to 10 cs=Rnd(1,5) cx=((Rnd(2048)+(tickcs)) mod 2048)-512 cy=Rnd(jscrh0.1,jscrh0.4) for p=0 to 16 Light cx+Rnd(-64,64),cy+Rnd(-16,16),Rnd(48,96),0.3 next next ResetDraw SetCol 220,180,100 SetThick 17 y=jscrh0.8 v=2 w=0 SeedRnd 37171655 For x=0 to jscrw step 5 y=y+Sin(x3)Cos(x1.3)0.5 v=v+Sin(x4)Cos(x5.4)0.1 if v<1.5 then v=1.5 if v>4 then v=4 SetCol 220,180,100,Rnd(0.3,0.5) for g=0 to 5 Line x,(y-(g(v+w)*0.7)),x,jscrh next SetCol Rnd(210,230),Rnd(170,190),Rnd(90,110),1 dy=Rnd(y,jscrh) Line x,dy,x-2,dy+1 Next Flip Forever --v Chill out with some nice relaxing clouds. -=-=- ''Load, Next List!''
Thu, 23 Feb 2023, 09:02
Jayenkai	// Swirly Goo // by Jayenkai // Created 2023/2/23 // GotoJSE.com/bqGscrHH.BAS Graphics 1920,1080,2:Border 30,30,90 w2=ScreenWidth()/2:h2=ScreenHeight()/2 Repeat CLS 0,0,0,0.1:ResetDraw m=Mills()0.02 SetBlend "Light" SetThick 256 for l=0 to 72 InkRot m0.5+l2,0.9,1,l0.0002 z=Sin(l+m)90 Line w2+Sin(z0.4)w2,h2-Cos((l3)+m3.7)h2,w2-Sin(z2.5+l3)w2,h2+Cos((l7)+m3)h2 next Flip Forever --v -=-=- ''Load, Next List!''
Thu, 23 Feb 2023, 10:18
spinal	Very Nice!
Thu, 23 Feb 2023, 10:39
rockford	Love the Swirly Goo
Fri, 24 Feb 2023, 13:10
spinal	Today Jay without knowing it, you demonstrated to a customer the difference in contrast and colour range between an OLED and a regular LED screen on two laptops. Customer still didn't buy one though -=-=- Check out my excellent homepage!
Sat, 25 Feb 2023, 01:25
Jayenkai	LOL!!
Sat, 25 Feb 2023, 02:40
Pakz	I was looking at some jse code on the site yesterday where it was shown how to rotate a grid. Trying to figure out how to draw a series of lines in any angle. Drawing a line and lines besides these seem to be not doable with bresenham. Maybe I can just draw a straight (angle 0) series of lines of different colors and rotate these between start and end position. This for my drawing app where I want to be able to draw things like those mario pipes in one go. Create a editor to set the color of each line in a configurable thickness. Gotojse does seem to be perfect to explain and test quickly
Fri, 10 Mar 2023, 05:56
Jayenkai	// Scrolling Mountains // by Jayenkai // Created 2023/3/10 Graphics 1024,768,2 // Draw gradient to BG SetBuffer BG r=0;g=0;b=160 for y=0 to 1024 b=b-0.25 if y>256 then r=r+1.5 if y>400 then g=g+1 SetCol r,g,b Line 0,y,1024,y next SetBuffer FG Repeat CLS ResetDraw // Draw BG to FG SetSize 2 DrawBG ScreenWidth()/2,ScreenHeight()/2 scrx=scrx+8 ResetDraw SeedRnd 37171650 for n=0 to 10 // Add some 4 sided ovals dark=n3+120 spd=(n+5)0.03 SetCol dark,dark,dark x=(Rand(3000)+scrxspd)%3000 Oval 1600-x,ScreenHeight(),Rnd(300,500),Rnd(600,900),4 next Flip Forever --v I started off which this for this week's AGameAWeek game, but .. shrugs* I couldn't think of what to do with it! Suggestions welcome. -=-=- ''Load, Next List!''
Tue, 27 Jun 2023, 04:21
Jayenkai	// Drips // by Jayenkai // Created 2023/6/27 // GotoJSE.com/KzxLHHZh.BAS Symbol 0,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0,c,0_0_0_00c,0_0_0_00c,0_0_0_00c,0_0_0_0,c"; Graphics 1024,512,2 Dim Drip(250,10) q=0 Gosub restart SetBuffer BG CLS SetBuffer FG Repeat CLS;ResetDraw ResetDraw q=(q+1)%4 for m=0 to 100 SetBuffer BG c=0 l=0; if m%4==q then l=5 for e=0 to l Drip(m,2)=Drip(m,2)+Drip(m,3) if Drip(m,2)>=0 and Drip(m,2)<1024 then c=ReadPixel(Floor(Drip(m,1)),Floor(Drip(m,2))+4) next if Drip(m,2)>jscrh-2 then Drip(m,2)=jscrh-2;c=1 SetCol 180,220,255 SetBuffer FG if c>0 then SetBuffer BG;Drip(m,2)=Drip(m,2)-4 Oval Drip(m,1),Drip(m,2),12,12,8 if c>0 then Drip(m,2)=0;Drip(m,1)=Rand(0,jscrw) next SetBuffer FG Starfield 0,4,0,0 DrawBG 512,512 Flip Forever .restart SetBuffer BG CLS for m=0 to 100 Drip(m,1)=Rnd(0,jscrw) Drip(m,2)=Rnd(0,jscrh) Drip(m,3)=Rnd(1.3,1.9) next return --v A nice and peaceful hailstorm..!! -=-=- ''Load, Next List!''
Fri, 07 Jul 2023, 03:18
Jayenkai	// Rainbow Flare // by Jayenkai // Created 2023/7/7 pmax=100 Dim p(pmax,3) Graphics 800,600,2 pto=0 cx=jscrw/2 cy=jscrh/2 cxs=Rnd(-1,1) cys=Rnd(-1,1) repeat CLS;ResetDraw cx=cx+cxs cy=cy+cys if cx<32 or cx>jscrw-32 or Rnd(0,100)<1 then cxs=Rnd(-1,1) if cy<32 or cy>jscrw-32 or Rnd(0,100)<1 then cxs=Rnd(-1,1) if cx<16 then cxs=Rnd(0.5,1) if cy<16 then cys=Rnd(0.5,1) if cx>jscrw-16 then cxs=0-Rnd(0.5,1) if cy>jscrh-16 then cys=0-Rnd(0.5,1) SetThick 3 for m=0 to pmax p(m,1)=p(m,1)1.01 p(m,2)=p(m,2)1.01 p(m,3)=p(m,3)0.97 next for m=0 to pmax a=p(m,3) InkRot m4.5,1,1 SetAlpha a Light p(m,1)+cx,p(m,2)+cy,(1-a)*256 next if MouseX()>-1 pto=pto+1;if pto==pmax then pto=0 p(pto,1)=MouseX()-cx;p(pto,2)=MouseY()-cy p(pto,3)=1 endif Flip Forever --v Rainbow Flare -=-=- ''Load, Next List!''