Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|730\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> JSE -> JSE - Jay's Scripting Engine
Page : 1 2 3 4 Prev 5 6 Next 7 8 9 10 11 12 13 14
Tue, 18 May 2021, 04:37
Jayenkai	I think I need to add Data in, properly, first. It'll be easier to say "ReadTilemap" than have to do a giant for-loop to access everything. Right now, trying to fill a tilemap using a for-loop is slow and pitiful. If instead I could get the engine to input everything into the array/tilemap via raw javascript, rather than through the slower parser, then it'd be much better. Optimisation is the key for things like that. > Reveal 🔎 // Tilemap Test // by Jayenkai // Created 2021/5/10 SetTilemapSize(256,256) // This can go up to 256256, but filling it takes AGES!! Wraparound=1 // A Toggle! Zoom=1.0 Symbol 0,"0__04!04v!44v!44v!44v!44v!44v!404!"; Symbol 1,"0__0@4,0,404040,404040,404040,404,0,4"; Symbol 2,"0__0@4,04,04040,4040404,0404040,4,04,"; Symbol 3,"0__0@4,04,04040,4040404,04040,404,04,"; Symbol 4,"0__0@4,040404040404040404,04040,404,0,4"; Symbol 5,"0__0@4,04,0404040,40404,04040,404,04,"; Symbol 6,"0__0@4,04,0404040,40404,0404040404,04,"; Symbol 7,"0__0@4,04,04040,404040,404040,404,0,4"; Symbol 8,"0__0@4,04,04040404040404,0404040404,04,"; Symbol 9,"0__0@4,04,04040404040404,04040,404,04,"; Symbol 10,"0__0_0404,0,404040,404040,404040,404,"; Symbol 11,"0__0_040,40,40,40,40,40,40,40,40,4"; Symbol 12,"0__0_0404,0,40,40,404,0,4040?404,"; Symbol 13,"0__0_0404,0,40,40,404,0,40,40,404,"; Symbol 14,"0__0_0404040,404040,404,0,40,40,40,4"; Symbol 15,"0__0_0404,0,4040?404,0,40,40,404,"; Symbol 16,"0__0_0404,0,4040?404,0,404040,404,"; Symbol 17,"0__0_0404,0,40,40,40,40,40,40,40,4"; Symbol 18,"0__0_0404,0,404040,404,0,404040,404,"; Symbol 19,"0__0_0404,0,404040,404,0,40,40,404,"; Symbol 20,"0__0@4,04,0,4040404,0404040,40404,04,"; Symbol 21,"0__0@4,0,40,40,404,0,4040?404,0,4"; Symbol 22,"0__0@4,04,0,40,404,04,040,40,4,04,"; Symbol 23,"0__0@4,04,0,40,404,04,040?404,04,"; Symbol 24,"0__0@4,04040,4040404,04,040?404,0,4"; Symbol 25,"0__0@4,04,0,4040,4,04,040?404,04,"; Symbol 26,"0__0@4,04,0,4040,4,04,040,40404,04,"; Symbol 27,"0__0@4,04,0,40,404,0,4040?404,0,4"; Symbol 28,"0__0@4,04,0,4040404,04,040,40404,04,"; Symbol 29,"0__0@4,04,0,4040404,04,040?404,04,"; Symbol 30,"0__0@4,04,0,4040404,04040,4040404,04,"; Symbol 31,"0__0@4,0,40,40,404,0,40,40,404,0,4"; Symbol 32,"0__0@4,04,0,40,404,04,0,4040,4,04,"; Symbol 33,"0__0@4,04,0,40,404,04,0,40,404,04,"; Symbol 34,"0__0@4,04040,4040404,04,0,40,404,0,4"; Symbol 35,"0__0@4,04,0,4040,4,04,0,40,404,04,"; Symbol 36,"0__0@4,04,0,4040,4,04,0,4040404,04,"; Symbol 37,"0__0@4,04,0,40,404,0,40,40,404,0,4"; Symbol 38,"0__0@4,04,0,4040404,04,0,4040404,04,"; Symbol 39,"0__0@4,04,0,4040404,04,0,40,404,04,"; Symbol 40,"0__0@40404,0404040404,04040,404040,404,"; Symbol 41,"0__0@4040,404040,404,0,40,40,40,40,4"; Symbol 42,"0__0@40404,04040,404,04,0,4040?404,"; Symbol 43,"0__0@40404,04040,404,04,0,40,40,404,"; Symbol 44,"0__0@40404040404040404,04,0,40,40,40,4"; Symbol 45,"0__0@40404,0404040,4,04,0,40,40,404,"; Symbol 46,"0__0@40404,0404040,4,04,0,404040,404,"; Symbol 47,"0__0@40404,04040,404,0,40,40,40,40,4"; Symbol 48,"0__0@40404,0404040404,04,0,404040,404,"; Symbol 49,"0__0@40404,0404040404,04,0,40,40,404,"; Symbol 50,"0__0@4,04,040,40404,04040,4040404,04,"; Symbol 51,"0__0@4,0,4040?404,0,40,40,404,0,4"; Symbol 52,"0__0@4,04,040?404,04,0,4040,4,04,"; Symbol 53,"0__0@4,04,040?404,04,0,40,404,04,"; Symbol 54,"0__0@4,0404040,40404,04,0,40,404,0,4"; Symbol 55,"0__0@4,04,040,40,4,04,0,40,404,04,"; Symbol 56,"0__0@4,04,040,40,4,04,0,4040404,04,"; Symbol 57,"0__0@4,04,040?404,0,40,40,404,0,4"; Symbol 58,"0__0@4,04,040,40404,04,0,4040404,04,"; Symbol 59,"0__0@4,04,040,40404,04,0,40,404,04,"; Symbol 60,"0__0@4,04,040,40404,04040404040404,04,"; Symbol 61,"0__0@4,0,4040?404,0,404040,404,0,4"; Symbol 62,"0__0@4,04,040?404,04,0404040,4,04,"; Symbol 63,"0__0@4,04,040?404,04,04040,404,04,"; Symbol 64,"0__0@4,0404040,40404,04,04040,404,0,4"; Symbol 65,"0__0@4,04,040,40,4,04,04040,404,04,"; Symbol 66,"0__0@4,04,040,40,4,04,0404040404,04,"; Symbol 67,"0__0@4,04,040?404,0,404040,404,0,4"; Symbol 68,"0__0@4,04,040,40404,04,0404040404,04,"; Symbol 69,"0__0@4,04,040,40404,04,04040,404,04,"; Symbol 70,"0__0@4,04,0,404040,404040,404040,404,"; Symbol 71,"0__0@4,0,40,40,40,40,40,40,40,40,4"; Symbol 72,"0__0@4,04,0,40,40,404,0,4040?404,"; Symbol 73,"0__0@4,04,0,40,40,404,0,40,40,404,"; Symbol 74,"0__0@4,04040,404040,404,0,40,40,40,4"; Symbol 75,"0__0@4,04,0,4040?404,0,40,40,404,"; Symbol 76,"0__0@4,04,0,4040?404,0,404040,404,"; Symbol 77,"0__0@4,04,0,40,40,40,40,40,40,40,4"; Symbol 78,"0__0@4,04,0,404040,404,0,404040,404,"; Symbol 79,"0__0@4,04,0,404040,404,0,40,40,404,"; Symbol 80,"0__0@4,04,0404040404,04040404040404,04,"; Symbol 81,"0__0@4,0,404040,404,0,404040,404,0,4"; Symbol 82,"0__0@4,04,04040,404,04,0404040,4,04,"; Symbol 83,"0__0@4,04,04040,404,04,04040,404,04,"; Symbol 84,"0__0@4,04040404040404,04,04040,404,0,4"; Symbol 85,"0__0@4,04,0404040,4,04,04040,404,04,"; Symbol 86,"0__0@4,04,0404040,4,04,0404040404,04,"; Symbol 87,"0__0@4,04,04040,404,0,404040,404,0,4"; Symbol 88,"0__0@4,04,0404040404,04,0404040404,04,"; Symbol 89,"0__0@4,04,0404040404,04,04040,404,04,"; Symbol 90,"0__0@4,04,0404040404,04040,4040404,04,"; Symbol 91,"0__0@4,0,404040,404,0,40,40,404,0,4"; Symbol 92,"0__0@4,04,04040,404,04,0,4040,4,04,"; Symbol 93,"0__0@4,04,04040,404,04,0,40,404,04,"; Symbol 94,"0__0@4,04040404040404,04,0,40,404,0,4"; Symbol 95,"0__0@4,04,0404040,4,04,0,40,404,04,"; Symbol 96,"0__0@4,04,0404040,4,04,0,4040404,04,"; Symbol 97,"0__0@4,04,04040,404,0,40,40,404,0,4"; Symbol 98,"0__0@4,04,0404040404,04,0,4040404,04,"; Symbol 99,"0__0@4,04,0404040404,04,0,40,404,04,"; Graphics 512,512,2 Print "Hello World" scrx=0;scry=0 aimx=0;aimy=0 plrtx=0;plrty=0 plrox=0;plroy=0 SeedRnd 1 x=0;y=0;n=0 Repeat y=0 Repeat SetTile(x,y,jRand(1,99)) SetTileOffset(x,y,jRnd(Neg(0.1),0.1),jRnd(Neg(0.1),0.1) ) SetTileSize(x,y,1,1) if Rnd(0,10)<2 then SetTileSize(x,y,Neg(1),Neg(1)) SetTileRotate(x,y,jRnd(Neg(5),5)) SetTileColor(x,y,Rand(0,8)) if x==0 or y==0 then SetTileColor(x,y,8);SetTile(x,y,1);SetTileRotate(x,y,0);SetTileOffset(x,y,0,0); n=(n+1)%99; y=y+1 Until y>=TilemapHeight() if x mod 5==0 then cls 30,30,60;Text 100,100,"Filling Tilemap.. "+Perc(x,TilemapHeight)+"%",0;flip x=x+1 Until x>=TilemapWidth() SetTileData(10,10,"Hello") SetTileSize(10,10,2,2) Repeat CLS 30,30,80 Antialias False scrx=scrx-((scrx-aimx)/8) scry=scry-((scry-aimy)/8) dx=(plrtx+plrox)32Zoom dy=(plrty+plroy)32Zoom aimx=dx-(ScreenWidth()/2) aimy=dy-(ScreenHeight()/2) plrox=plrox+((Gamepad(ButtonRight)-Gamepad(ButtonLeft))0.25) plroy=plroy+((Gamepad(ButtonDown)-Gamepad(ButtonUp))*0.25) if plrox<0-0.5 then plrox=plrox+1:plrtx=plrtx-1 if plroy<0-0.5 then plroy=plroy+1:plrty=plrty-1 if plrox>0.5 then plrox=plrox-1:plrtx=plrtx+1 if plroy>0.5 then plroy=plroy-1:plrty=plrty+1 SetSize Zoom If Wraparound==0 then DrawTilemap(0-scrx,0-scry) If Wraparound==1 then WrapTilemap(0-scrx,0-scry) SetRot 0 DrawImg(dx-scrx,dy-scry,0); ImAt=GetTile(plrtx,plrty) Text dx-scrx,dy-scry,ImAt,1 Text dx-scrx,(dy-scry)-32,GetTileData(plrtx,plrty),1 Flip Forever --v Today I'm back to working on that project view. I'm thinking of using the icons to work instead of folders, and have some sort of filter system in place. Might work. Not sure! Will try!! -=-=- ''Load, Next List!''
Tue, 18 May 2021, 04:57
Pakz	Yeah, I understand. It is not hard for me to drop the framerate with the c language using for loops and arrays!
Tue, 18 May 2021, 05:50
Pakz	I'm going through the examples and this one has the border leaving a bit of a smush. (This does not happen with full screen browser) This is the "WrapTilemap Top Left x,y" example. Everything else I got to seems solid so far! edit: maybe a rounding problem?
Tue, 18 May 2021, 06:20
Jayenkai	Yeah, I decided to make the border a pixel out of the screen size, in the event of a mis-float making it slightly smaller and cutting off a pixel of your screen. .. might have to extend the cls out by that much, too. Will do that, later. -=-=- ''Load, Next List!''
Tue, 18 May 2021, 12:38
Dan	Hi, here is another bug report which may go unnoticed: // what the zero? // bug report // by dan // Created 2021/05/18 Print "-" Print "--" Print "---" Print "----" --v Are Mirror and Flip essential tools? I mean, you could just draw the sprite with a negative scale, for those.. Is it necessary in the editor? If so, then rotate would probably be needed, too. Ugh.. Gonna need more space in the GUI!!!! If mirroring and flipping can be done in code, then they can be left out of the editor (i guess). For more space, i have an idea: A button row, for e.g. above the palette. When a button is clicked on, the palette area is replaced with tool-buttons. When another button is clicked, the palette is active and the tools are hidden. Some of painting apps on mobiles use that approach, or they use a pop-up menue with icons.
Tue, 18 May 2021, 13:07
Jayenkai	Gah, the old "not inside quotes" thing. Bah, humbug!! You can see my inner working, there! Bloody minuses.. I've been trying to find situations where negative numbers are "most likely" being referenced, and replace the - with '0-'s. eg a = -5 But even after all my work, "print -5" still refuses to happen, because the parser thinks "print" might be a variable, and you might be asking for the value of "print with 5 subtracted" It's alarmingly difficult to get that working right. I'll keep attempting to figure it out, and hopefully not break even more! For the Symbol editor, I'm starting to think that scroll+pan+zoom isn't unreasonable. Seems like a "fixes a lot of issues at once" kind of solution. .. FFS, now I need to code scrolling and panning and zooming, too!!! -=-=- ''Load, Next List!''
Tue, 18 May 2021, 14:04
Jayenkai	Updates uploaded. Today's updates are mostly of the Project List variety. I opted against the "Let's code a whole Workbench style GUI" because I figured you'd more than likely want the latest projects at the forefront, and I couldn't fathom a nice way to do that with a pile of icons. Any suggestions are, of course, welcome. So we're back to "List" view again. I've made the little disk icon be a toggle. You can click it to change the colour between one of 6, red, orange, yellow, green, blue, purple. This is saved in your browser's save, but isn't exported, so if you import to a different browser, later, you'll end up having to set these again. Once set, you can click the 6 icons up at the top to filter the view to only show "the projects on that disk" It's not the most complicated setup, but I figured it was enough to achieve the goal. Let me know what you think. (Oh, and extra work on the Minuses!) -=-=- ''Load, Next List!''
Wed, 19 May 2021, 04:00
Dan	Yes, it makes sorting and searching for saved code easier. A permanent solution to the disk icons would be to let the user set it in the header part, something like // Green-Smilies-Demo // by Dan // Created 2021/5/15 // D1 --v But, it is fine as it is now. BTW, if the code is saved in the local storage, i wonder: is there a limit to how much code can be saved (and written) ?
Wed, 19 May 2021, 04:11
Jayenkai	Last I checked there's a 4Mb limit, though I think that might've increased.. I seem to remember 10, at some point?! I can't remember. Browser technology's always changing. Currently, all of my exported code is 47kb. So. Um.. shrugs Oh, and I fixed the saving of the disk settings, this morning. I'll be uploading that later tonight, but it basically involves an extra line of data in the export file. -=-=- ''Load, Next List!''
Wed, 19 May 2021, 07:56
Jayenkai	// Input Test // by Jayenkai // Created 2021/5/19 Graphics 512,512,1 LastKey=" "; Typed="" Repeat CLS 30,30,80,0.2 ThisKey=Inkey() if ThisKey!="" then LastKey=ThisKey:Typed=Right$(Typed+LastKey,32) if ThisKey=="" then ThisKey=" " SetFontSize 32 Text 256,200,"Current Key "+ThisKey,2 Text 256,150,"Previous Key "+LastKey,2 SetFontSize 24 Text 256,100,Typed,2 if Gamepad(ButtonUp) then Text 256,300,"Up",1 if Gamepad(ButtonDown) then Text 256,400,"Down",1 if Gamepad(ButtonLeft) then Text 128,350,"Left",1 if Gamepad(ButtonRight) then Text 256+128,350,"Right",1 if Gamepad(ButtonX) then Text 256,300,"X",1 if Gamepad(ButtonB) then Text 256,400,"B",1 if Gamepad(ButtonY) then Text 128,350,"Y",1 if Gamepad(ButtonA) then Text 256+128,350,"A",1 Flip Forever --v Hey, Dan. Hopefully I've (finally!) fixed the input so that a QWERTZ layout should still work with the Gamepad functions. Do me a favour and let me know if the lower-left (Y?) key triggers an A button response (based on it being where the Z key is on a QWERTY).. And that the actual input still knows it's a Y key! Ta for the help -=-=- ''Load, Next List!''
Wed, 19 May 2021, 08:55
Dan	Hi, i have tested my xbox controller and the keyboard. Here is the report: The buttons on the xbox controller work as intended. it is possible to have all buttons and all directions activated at the same time. On the keyboard there are few things: The key "y" , when pressed does not get reseted. The "A" stays on the screen until the z key is pressed. (pressing the a button on the xbox controller does not reset it as well). Pressing the menue key triggers "ButtonY" and it does not get reseted. Pressing the windows key triggers the "ButtonB" but the windows start-menue gets opened. The key is reseted. Pressing the left alt key triggers the "ButtonY" but the menue on the chrome browser is activated as well (the 3 vertical dots). (the game looses the focus then) Pressing the right strg/ctrl triggers "left" and "ButtonB" together, but the "left" is not reseted. Numpad 0 and Insert key trigger the "ButtonX" but they do not get reseted as well. And ^ key triggers "Right" and no reset.
Wed, 19 May 2021, 10:01
Jayenkai	A lot of those issues are browser based issues. That's why, for the most part, I prefer people to use WASD+IJKL, or Cursors+ZXCV, as opposed to hitting Shift/Ctrl/Alt/Winkey. But, at least they.. Kinda work...!?! In addition, a lot of "not resetting" is .. derp.. I only changed the code in the "keydown" function, and completely forgot about the "keyup".. Gawd, there's a lot of jumping about, here!! OK, I'll rejig a few bits and do another upload later tonight. Thanks for the help -=-=- ''Load, Next List!''
Wed, 19 May 2021, 12:21
Dan
Wed, 19 May 2021, 16:24
Jayenkai	// System Fonts Graphics 320,240,1 Repeat System=Floor(Millisecs()/1500) mod 4 SetFont System SetFontSize 14 if System==0 Border 32,32,32 CLS 0,0,0 SetCol 180,255,180 Print "This font is called" Print "'whitrabt'" Print "and is based on the font" Print "from The Matrix" endif if System==1 Border 0,0,128 CLS 0,0,128 SetCol 255,255,0 Print " Amstrad 128K Microcomputer (v3)" Print Print " "+Chr(169)+"1985 Amstrad Consumer Electronics plc" Print " and Locomotive Software Ltd." Print Print " Basic 1.1" Print Print "Ready" y=CursorY() if Mills()%600<300 then Rect 0,y,8,8 endif if System==2 CLS 80,72,178 SetCol 143,137,225 Border 143,137,225 Print " ** COMMODORE 64 BASIC V2 **" Print Print " 64K RAM SYSTEM 38911 BASIC BYTES FREE" Print Print "READY." y=CursorY() if Mills()%600<300 then Rect 0,y,8,8 endif if System==3 Border 216,216,216 CLS 216,216,216 SetCol 0,0,0 Locate 0,ScreenHeight-20 Print Chr(169)+" 1982 Sinclair Research Ltd" Locate 0,0 endif print txt="" for n=32 to 255 txt=txt+chr(n) if len(txt)>30 then print txt:txt="" next print txt Flip Forever --v JSE is here Another upload done. Should hopefully fix most of the resetting issues you were having. Now onto the next complicated issue. As you can see in the above example, things are.. ALMOST functional.. (You might need to reload a couple of times, so it gets all the font files. grrr.. caching.. grrr..) How unfortunate, then, that the available fonts don't include all of the original characters. I mean, I know "Ascii standards aren't the same as they were in the 1980's", but .. Hmmm... So, I'm left wondering what the best option, here, might be.. My head's screaming "Why don't you just make a tool that converts black and white pxiel-based bitmap fonts into high resolution, crisp, vector based fonts, after having figured out the file format for saving those very fonts!?!?!" .. And another part of my head is just plain screaming.. Hmm.. What to do.... -=-=- ''Load, Next List!''
Thu, 20 May 2021, 05:33
Dan	Loading fonts worked ok sofar. here are two screenshots, they show the differences between browsers on the same mobile phone. and chrome on android. P.s. the screenshots are not a bug report The keyboard/gamepad is better now, the keys do reset now. I have launched the pico 8, and when the game is running, the alt key is somehow redirected (used) to the game, and the browser does not react to it. I do not know how that is done but maybe you could set up, only for the alt key, the focus back to the canvas ? Something like //pseudocode if keydown("alt") ButtonY=1 SetFocus (jsecanvas) endIf --v It's just an idea.
Thu, 20 May 2021, 05:45
Jayenkai	Yeah, I could use .preventDefault() to stop it doing a lot of things, but then that would also stop it doing a lot of things!! Ctrl+V to paste, for one. I've opted not to do that! Meanwhile... In the above screenshot are 4 "characters" that I added to a font myself! \o/yeay\o/ The next step is to write a tool that takes crisp images of a complete 8-bit font, then runs through it, traces the outline of each shape and generates the correct path information, so that I can then convert all of that to a single font. In the above image, the characters for the triangle shapes are 1033, 1034, 1035 and 1036.. So.. I could quite easily (I hope!) have 1000-1255 for the Amstrad font, 2000-2255 for the C64, 3000-3255 for the Speccy and so on. The possibilities are *endless .. Until I realise how sodding big the resulting font file is getting!! -=-=- ''Load, Next List!''
Thu, 20 May 2021, 12:57
Jayenkai	Progress so far.. I've managed to get the font working in a lovely square monospaced size. The 8x8 grid can clearly be seen.. Each character (0 to 255) has been given the exact same dotted pattern around the top and left, and the result is a screen full of perfectly sized dots in a perfectly sized pattern. I'm fairly hopeful this might actually work out! Note : No, I don't know why that y's there!! -=-=- ''Load, Next List!''
Thu, 20 May 2021, 14:23
Dan	Hi, i was trying to port the BrainF* code ... Then i noticed that the dp variable is not increasing. It gets added to 2 in the if statement (you can see it in the debug log) but at the next debug line, it is back to 1. here is the code: // New Project // by <Your Name Here!> // Created 2021/5/20 p$=">.>>>>....>....." display=0 dp=1 ip=0 debugmode on e=Len(p$) .L30 If Inkey=" " Then message$="Stopped" : Goto TheEnd ip=ip+1 a$=Mid$(p$,ip,1) If a$=">" Then dp=dp+1 : debuglog ">"+dp : If dp>3 Then message$="Range error - P 1000" : Goto TheEnd If a$="<" Then dp=dp-1 : If dp<0 Then message$ = "Range error P 0" : Goto TheEnd debuglog "dp="+dp if ip<len(p$) then goto L30 .TheEnd Print "message = "+message$ --v
Thu, 20 May 2021, 14:36
Jayenkai	Things go awry if you have an If halfway through a line. For the time being, split and replace with if/endif sections. This is one of those "A bit quirky" features of the language Meanwhile... Seems good to me That's a ripped font.. Started as a .png, screen grabbed from an emulator, converted through PHP magic into a .SVG font, then an online app converts it to a .woff font. As a side-effect, I also now have a .ttf Amstrad font, too!! The next task is to get a fleet of emulators up and running, and try to screen grab pixel-accurate 32-255 character lists from some other systems. Current font file size, 10kb as a .woff2 online font, and 1Mb as a .ttf font. Although the .ttf should eventually be smaller, it currently contains 32 repetitions of the font, to simulate a giant font containing 32 different system fonts.. Once I'm done, I'll try making each font its own .ttf font, too. phew -=-=- ''Load, Next List!''
Thu, 20 May 2021, 15:09
Dan	Ok, thanks for the info. Hmm, few years ago, i have drawn some fonts. 2021/20/oldfont (.zip) There are 4 fonts available (all in one file), in the .fon format: Amiga, Cpc, Pc-Dos and C64 font.
Thu, 20 May 2021, 15:16
Jayenkai	I'll have a poke in the morning. I think I'm going to have to dig out the pc for a few of these screenshots. I tried today on the Mac, but everything ends up with Retina-Scaled crud all over it. Grrr!!! -=-=- ''Load, Next List!''
Fri, 21 May 2021, 06:24
Jayenkai	Getting there.. Mmmmmm... -=-=- ''Load, Next List!''
Fri, 21 May 2021, 07:42
Jayenkai	// System Fonts dim line(10) txt="" l=0 if System==5 then txt=" " for n=32 to 255 txt=txt+chr(n) if len(txt)>39 then line(l)=txt:l=l+1 txt="" if System==5 then txt=" " endif next line(l)=txt:l=l+1 Repeat Graphics 320,240,1 System=Floor(Millisecs()/1500) mod 7 SetFont System SetFontSize 8 if System==0 // Default Border 32,32,32 CLS 0,0,0 SetCol 180,255,180 Print "The default font is now the CPC font." Print Print "Why not suggest your favourite" Print "8x8 pixel font to replace it?" Print endif if System==1 // Amstrad Border 0,0,128 CLS 0,0,128 SetCol 255,255,0 Print " Amstrad 128K Microcomputer (v3)" Print Print " "+Chr(164)+"1985 Amstrad Consumer Electronics plc" Print " and Locomotive Software Ltd." Print Print " Basic 1.1" Print Print "Ready" y=CursorY() if Mills()%600<300 then Rect 0,y,8,8 Print Print endif if System==2 // Commodore 64 CLS 80,72,178 SetCol 143,137,225 Border 143,137,225 Print " ** COMMODORE 64 BASIC V2 *" Print Print " 64K RAM SYSTEM 38911 BASIC BYTES FREE" Print Print "READY." y=CursorY() if Mills()%600<300 then Rect 0,y,8,8 Print Print endif if System==3 // ZX Spectrum Border 216,216,216 CLS 216,216,216 SetCol 0,0,0 Locate 0,ScreenHeight-18 Print Chr(169)+" 1982 Sinclair Research Ltd" Locate 0,0 endif if System==4 // BBC Micro Border 80,0,0 CLS 0,0,0 SetCol 255,255,255 Print "BBC Computer" Print Print "Acorn DFS" Print Print "BASIC" Print if Mills()%600<300 then Print ">_" if Mills()%600>=300 then Print ">" Print endif if System==5 // Amiga - Topaz Graphics 640,480,1 SetFontSize 8 Border 0,0,0 CLS 153,153,153 SetCol 0,0,0 Rect 0,0,ScreenWidth(),14 SetCol 255,255,255 Line 0,14,ScreenWidth(),14 Locate 2,4:Print "Amiga Workbench 761800 graphics mem 0 other mem" print;print; SetCol 255,255,255 Rect 2,CursorY,418,88 SetCol 0,0,0 Rect 2+1,CursorY+1,(418)-1,(88)-1 SetCol 153,153,153 Rect 2+1,CursorY+1,(418)-2,(88)-2 SetCol 0,0,0 Rect 2+1,CursorY+1,(418)-2,(18)+2 SetCol 51,102,170 Rect 2+1,CursorY+1,(418)-2,(1*8)+1 SetCol 0,0,0 Locate 8,CursorY+2 Print "Woot" Print endif if System==6 // Amiga - AMOS "2001" CLS 180,80,0 SetColor 255,255,255 Print "Not an AmigaDOS disc (92)" Print endif for m=0 to l-1 if System<>5 then Print line(m) if System==5 then Print " "+line(m) next Flip Forever --v With apologies, you'll have to go through all your code and fix up font sizes and alignment. The new fonts are "slightly" bigger than the old default one was. -=-=- ''Load, Next List!''
Fri, 21 May 2021, 08:05
Pakz	I would expect some news site to pick this up in the future. It is getting better every day! oh, in the project screen, there are horizontal spaces in the font.
Fri, 21 May 2021, 09:04
Jayenkai	Depends on the browser.. Mostly Chrome is wonky. Safari and Firefox (even though Safari IS a chrome based browser) both aren't showing it. This has been noted, and I'm trying my best to fix it. Basically means I can't skimp out on the font methods, and need to trace letters better Also, the C64 chr list is screwy. Going to have to write a better method to extract the complete chart. -=-=- ''Load, Next List!''
Fri, 21 May 2021, 10:32
Jayenkai	Rejigged. It looks a little better on some browsers.. .. I think..? And the C64 ascii layout is a teensy bit more sensible, but .. also not exact, so be aware of that. I really no need to fix it from being "lots of squares" to being a better trace of the shape. Couldn't figure out how to cut out holes, though, that's the main issue. Grrr.. Paths and Vectors. Rawr!!! -=-=- ''Load, Next List!''
Page : 1 2 3 4 Prev 5 6 Next 7 8 9 10 11 12 13 14