Language Comparison Code : Basic Functionality Example

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|208\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Misc Languages -> Language Comparison Code : Basic Functionality Example
Sun, 08 May 2022, 06:13
Jayenkai	Language Comparison Code : Basic Functionality Example Here's a really simple example. Text displayed in the middle of the screen, moveable with cursors/buttons/what have you. Three spinning shapes, and three spinning images. The basic gist of this thread is to try to rewrite this simple example in as many languages as is possible, so that we can use this to compare all the different languages, and how easy they are to "just do a basic thing". If you have access to any language, any system, whatever, please do join in with this thread. It doesn't matter if you can't accomplish something in the language, or if you have to rescale things to fit lower resolutions, or whatever. As long as the end result shows roughly the same vague things so that we can compare how the languages are structured, and how easy it is to use it to get the same sort of result. If we can get this going as a "thing" then I can maybe think about creating some sort of proper language database with these examples included. -=-=- GotoJSE GotoJSE.com A simple basic interpreter that runs in the browser. Runs on : Anything with a suitable browser Targets : Only those systems, and only in their browser Note : This is only ever sourcecode only, nothing will be compiled. Your sourcecode will be visible. Steps Required : Open editor, paste code, run // Basic Functionality Example // by Jayenkai // Created 2022/5/8 // Set up display Graphics 1920,1080,1 // Find middle of display cx=ScreenWidth()/2 cy=ScreenHeight()/2 // Place text there tx=cx:ty=cy // Load Image Symbol 0,"0__40!404044040,40040,404404004044040,40040,404404040!4"; Repeat CLS:ResetDraw() SetFontSize 64 // Draw Text Text tx,ty,"Hello World",1 // Control Text Position tx=tx+(GamePad(ButtonRight)-GamePad(ButtonLeft))8 ty=ty+(GamePad(ButtonDown)-GamePad(ButtonUp))8 // Basic Shapes + Trigonometry + Milliseconds ResetDraw() ang=Mills()0.1 // Red Square SetCol 255,0,0:Rect cx+Sin(ang)cy,cy-Cos(ang)cy,128,128,1 // Green Circle SetCol 0,255,0:Oval cx+Sin(ang+120)cy,cy-Cos(ang+120)cy,128,128,64 // Blue Triangle SetCol 0,0,255:Triangle cx+Sin(ang+240)cy,cy-Cos(ang+240)cy,128,128 // Draw Image ResetDraw() SetSize 4:SetRot ang4 DrawImg cx+Sin(ang+60)cy,cy-Cos(ang+60)cy,0,2 DrawImg cx+Sin(ang+180)cy,cy-Cos(ang+180)cy,0,4 DrawImg cx+Sin(ang+300)cy,cy-Cos(ang+300)cy,0,7 Flip Forever --v -=-=- ''Load, Next List!''
Sun, 08 May 2022, 14:24
Jayenkai	Blitz3D itch.io The best 3D engine for BlitzCoders Runs on : Windows Targets : Windows Steps Required : Paste code, save, add an image to the save folder, run ; Basic Functionality Example ; by Jayenkai ; Created 2022/5/8 ; Set up display Graphics 800,600,0,2 ; Find middle of display cx=GraphicsWidth()/2 cy=GraphicsHeight()/2 ; Place Text there tx=cx:ty=cy ; Load Image img=LoadImage("2313.bmp") ; Any image will do font=LoadFont("Arial",64) Repeat Cls SetFont font ; Draw Text Text tx,ty,"Hello World",1 ; Control Text Position tx=tx+(KeyDown(205)-KeyDown(203))8 ty=ty+(KeyDown(208)-KeyDown(200))8 ; Basic Shapes + Trigonometry + Milliseconds ang=MilliSecs()0.1 ; Red Square Color 255,0,0:Rect cx+Sin(ang)cy,cy-Cos(ang)cy,128,128,1 ; Green Circle Color 0,255,0:Oval cx+Sin(ang+120)cy,cy-Cos(ang+120)cy,128,128,1 ; Blue Triangle Color 0,0,255:Rect cx+Sin(ang+240)cy,cy-Cos(ang+240)cy,128,128,1 ; Draw Image Color 255,255,255 DrawImage img,cx+Sin(ang+60)cy,cy-Cos(ang+60)cy DrawImage img,cx+Sin(ang+180)cy,cy-Cos(ang+180)cy DrawImage img,cx+Sin(ang+300)cy,cy-Cos(ang+300)*cy Flip Until KeyDown(1) --v -=-=- ''Load, Next List!''
Sun, 08 May 2022, 14:41
Jayenkai	BlitzMax itch.io The best 2D engine for BlitzCoders Runs on : Windows, Linux, Mac (if you can make it work.. Getting harder with each MacOS update) Targets : Only the system it's currently running on. Steps Required : Paste code, save, add an image to the save folder, run ' Basic Functionality Example ' by Jayenkai ' Created 2022/5/8 ' Set up display Graphics 800,600,0 ' Find middle of display cx=GraphicsWidth()/2 cy=GraphicsHeight()/2 ' Place text there tx=cx;ty=cy ' Load Image AutoMidHandle 1 img=LoadImage("2313.png") font=LoadImageFont("Arial",64,SMOOTHFONT) SetImageFont font Repeat Cls SetScale 1,1 SetRotation 0 ' Draw Text DrawText "Hello World",tx-TextWidth("Hello World")/2,ty ' Control Text Position tx=tx+(KeyDown(KEY_RIGHT)-KeyDown(KEY_LEFT))8 ty=ty+(KeyDown(KEY_DOWN)-KeyDown(KEY_UP))8 ' Basic Shapes + Trigonometry + Milliseconds ang#=MilliSecs()0.1 ' Red Square SetColor 255,0,0;DrawRect cx+Sin(ang)cy,cy-Cos(ang)cy,128,128 ' Green Circle SetColor 0,255,0;DrawOval cx+Sin(ang+120)cy,cy-Cos(ang+120)cy,128,128 ' Blue Triangle SetColor 0,0,255;DrawRect cx+Sin(ang+240)cy,cy-Cos(ang+240)cy,128,128 ' Draw Image SetScale 4,4 SetRotation ang4 SetColor 255,255,0;DrawImage img,cx+Sin(ang+60)cy,cy-Cos(ang+60)cy SetColor 0,255,255;DrawImage img,cx+Sin(ang+180)cy,cy-Cos(ang+180)cy SetColor 255,0,255;DrawImage img,cx+Sin(ang+300)cy,cy-Cos(ang+300)cy Flip Until KeyDown(KEY_ESCAPE) --v -=-=- ''Load, Next List!''
Mon, 09 May 2022, 08:25
Dan	Great. If you do not have an image then replace the img=loadimage line with this: img=CreateImage(128,128) ; Any image will do SetBuffer ImageBuffer(img) For x=1 To 100 Color Rnd(200)+55,Rnd(200)+55,Rnd(200)+55 Line Rnd(128),Rnd(128),Rnd(128),Rnd(128) Next SetBuffer BackBuffer() --v for the bb3d version.
Mon, 09 May 2022, 10:29
Dan	Ok i have decided to try it in AutoIt3. If you want to test it, you have to get the include file from Here (My Ascii Game Framework) #include "GDIP_AsciiGamework_include.au3" #include <ScreenCapture.au3> ;;Startup and ending Initialize(800,600) ;Initialize GDI and Fonts GameDemoTemplate() ;Game Loop CleanUp() ;Stop Gdi and free the ressources Func GameDemoTemplate() $guiQuit = 0 ;Always reset the $guiQuit to 0 Font("ARIAL",23) $cx=800/2 $cy=600/2 $tx=$cx $ty=$cy $ang=0 $hBitmap2 = _ScreenCapture_Capture("", 0, 0, 128, 128) $hImage2 = _GDIPlus_BitmapCreateFromHBITMAP($hBitmap2) Local Const $PI = 3.141592653589793 While Delay(150,1) = 0 ; If Delay(500) = 1 Then ExitLoop 2 ;Alternative: Frame limiter - Exit the "for" and "while" loops when the close button (x) has been pressed. CLS("000000") Color ("FFFFFF") Print ("Hello World",$tx,$ty) Color ("FF0000") $ang=Mod($ang+0.5,360) _GDIPlus_GraphicsFillRect ( $a_txt_info[0], $cx+Sin($ang)$cy,$cy-Cos($ang)$cy,128,128 , $a_txt_info[1] ) COlor("00FF00") _GDIPlus_GraphicsFillEllipse($a_txt_info[0], $cx+Sin($ang+2)$cy,$cy-Cos($ang+2)$cy,128,128, $a_txt_info[1]) Color("0000FF") _GDIPlus_GraphicsFillRect ( $a_txt_info[0], $cx+Sin($ang+4)$cy,$cy-Cos($ang+4)$cy,128,128, $a_txt_info[1] ) _GDIPlus_GraphicsDrawImage($a_txt_info[0], $hImage2, $cx+Sin($ang+1)$cy,$cy-Cos($ang+1)$cy) _GDIPlus_GraphicsDrawImage($a_txt_info[0], $hImage2, $cx+Sin($ang+3)$cy,$cy-Cos($ang+3)$cy) _GDIPlus_GraphicsDrawImage($a_txt_info[0], $hImage2, $cx+Sin($ang+5)$cy,$cy-Cos($ang+5)$cy) WEnd _GDIPlus_BitmapDispose($hImage2) _WinAPI_DeleteObject($hBitmap2) EndFunc --v
Tue, 10 May 2022, 04:14
therevillsgames	Not perfect and I've tried to do 1 to 1 with JSE for Love2d/Lua: local screenWidth = 1920 local screenHeight = 1080 local cx = (screenWidth / 2) local cy = (screenHeight / 2) local tx = cx local ty = cy local font = love.graphics.newFont("arial.ttf", 128) local speed = 250 local angle = 0 local image = love.graphics.newImage('sprite.png') function love.load() local modeSettings = { minwidth = screenWidth, minheight = screenHeight, vsync = true , resizable = true, fullscreen = false} love.window.setMode(screenWidth, screenHeight, modeSettings) love.graphics.setFont(font) end function love.draw() -- draw text local text = "Hello World!" local textWidth = font:getWidth(text) local textHeight = font:getHeight() love.graphics.setColor(1, 1, 1, 1) love.graphics.print(text, tx - (textWidth / 2), ty - (textHeight / 2)) -- red square love.graphics.setColor(1, 0, 0, 1) love.graphics.rectangle("fill", cx - 64 + math.sin(angle) * cy, cy - 64 - math.cos(angle) * cy, 128, 128) -- green circle love.graphics.setColor(0, 1, 0, 1) local angleExtra = 2.0944 love.graphics.circle("fill", cx + math.sin(angle + angleExtra) * cy, cy - math.cos(angle + angleExtra) * cy, 64) -- blue triangle love.graphics.setColor(0, 0, 1, 1) angleExtra = 4.18879 local p1x = cx - 64 + math.sin(angle + angleExtra) * cy local p1y = cy - math.cos(angle + angleExtra) * cy local p2x = cx + math.sin(angle + angleExtra) * cy local p2y = cy - 96 - math.cos(angle + angleExtra) * cy local p3x = cx + 64 + math.sin(angle + angleExtra) * cy local p3y = cy - math.cos(angle + angleExtra) * cy love.graphics.polygon("fill", p1x, p1y, p2x, p2y, p3x, p3y) -- draw image angleExtra = 1.0472 love.graphics.setColor(1, 1, 0, 1) love.graphics.draw(image, cx + math.sin(angle + angleExtra) * cy, cy - math.cos(angle + angleExtra) * cy, angle * 4, 4, 4, 16, 16) angleExtra = 3.14159 love.graphics.setColor(0, .5, 1, 1) love.graphics.draw(image, cx + math.sin(angle + angleExtra) * cy, cy - math.cos(angle + angleExtra) * cy, angle * 4, 4, 4, 16, 16) angleExtra = 5.23599 love.graphics.setColor(1, 0, 0.5, 1) love.graphics.draw(image, cx + math.sin(angle + angleExtra) * cy, cy - math.cos(angle + angleExtra) * cy, angle * 4, 4, 4, 16, 16) end function love.update(dt) -- control text position if love.keyboard.isDown("up") then ty = ty - speed * dt end if love.keyboard.isDown("down") then ty = ty + speed * dt end if love.keyboard.isDown("left") then tx = tx - speed * dt end if love.keyboard.isDown("right") then tx = tx + speed * dt end angle = love.timer.getTime() end function love.keypressed(k) if k == 'escape' then love.event.quit() end end --v
Tue, 10 May 2022, 04:42
Jayenkai	Don't worry about doing it 1:1 perfectly. Just try to make it "more or less", or enough that the resulting code is readable and we can (hopefully!) use the examples to jump between the different languages. -=-=- ''Load, Next List!''
Fri, 24 Jun 2022, 21:50
jprofitt	Here is an AGK version I threw together that is pretty close to the original // Project: Basic Functionality Example (AppGameKit Studio) // AGK version by: James Profitt on 06/24/2022 // original Blitz3D version by:Jayenkai on 05/08/2022 // show all errors SetErrorMode(2) // set window properties SetWindowTitle( "Basic Functionality Example" ) SetWindowSize( 800, 600, 0 ) SetWindowAllowResize( 1 ) // allow the user to resize the window // set display properties SetVirtualResolution( 800, 600 ) // doesn't have to match the window SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders UseNewDefaultFonts( 1 ) // Find center of screen cx = GetWindowWidth() / 2 cy = GetWindowHeight() / 2 // setup text tx = cx ty = cy ts = 11 CreateText ( ts, "Hello World!" ) SetTextSize ( ts, 75 ) //create image sprites and colors img1 = CreateSprite (LoadImage("agcfile.png")) img2 = CreateSprite (LoadImage("agcfile.png")) img3 = CreateSprite (LoadImage("agcfile.png")) green = MakeColor(0,255,0) red = MakeColor(255,0,0) blue = MakeColor(0,0,255) yellow = MakeColor(255,255,0) repeat // show FPS Print(ScreenFPS()) // draw and control text SetTextPosition (ts,tx,ty) tx = tx + (GetRawKeyState' - GetRawKeyState(37)) * 8 ty = ty + (GetRawKeyState(40) - GetRawKeyState(38)) * 8 // Basic Shapes + Trigonometry + Milliseconds ang = GetMilliseconds() * 0.1 // Red square Rect xp = cx+sin(ang)cy:yp = cy-cos(ang)cy DrawBox (xp, yp, xp + 128, yp + 128, red, blue, blue, red, 1 ) // Green circle xp = cx+sin(ang+120)cy:yp = cy-cos(ang+120)cy DrawEllipse (xp,yp,64,64, green, yellow,1) // Blue square xp = cx+sin(ang+240)cy:yp = cy-cos(ang+240)cy DrawBox (xp, yp, xp + 128, yp + 128, blue, red, red, blue, 1 ) // move sprites xp = cx+sin(ang+60)cy:yp = cy-cos(ang+60)cy setSpriteX(img1,xp):SetSpriteY(img1,yp) xp = cx+sin(ang+180)cy:yp = cy-cos(ang+180)cy setSpriteX(img2,xp):SetSpriteY(img2,yp) xp = cx+sin(ang+300)cy:yp = cy-cos(ang+300)cy setSpriteX(img3,xp):SetSpriteY(img3,yp) Sync() until GetRawKeyPressed(27) // Repeat until escape key is pressed --v -=-=- ---------------------------------------- End of line... ----------------------------------------
Wed, 29 Jun 2022, 07:26
Jayenkai	Thanks \o/yeay\o/ .. I should probably get something decent going for this, huh...? -=-=- ''Load, Next List!''

Language Comparison Code : Basic Functionality Example

GotoJSE

Blitz3D

BlitzMax