Recent Posts

Pages: [1] 2 3 ... 10
1
Offtopic / Re: A classic one - how does look your desktop?
« Last post by Cybermonkey on 19. September 2019, 21:21:52 »
And now my new macOS High Sierra desktop ... didn't know how easy a Hackintosh can be set up with KVM. (Since I use this old FX 8350 CPU newer than High Sierra is not possible - but my new PC will be assembled soon ...)
Added another screen showning neofetch and inxi.
2
Code and examples / Re: Archimedes spiral
« Last post by Aurel on 18. September 2019, 19:41:03 »
Maybe 1-2 years old ..i think
I never download it and try..
3
Code and examples / Re: Archimedes spiral
« Last post by B+ on 18. September 2019, 17:29:34 »
Hey Aurel! Looks like this LogicBasic is just getting started:
4
Code and examples / Re: Archimedes spiral
« Last post by Aurel on 18. September 2019, 11:43:44 »
Nice one Mark and Galileo too  :)
I just found it on LogicBasic forum..
hmm this LogicBasic seems very nice dialect...
5
Code and examples / Re: Archimedes spiral
« Last post by B+ on 17. September 2019, 18:43:05 »
I made a little modification of Archimedes Spiral:
6
Code and examples / Re: Archimedes spiral
« Last post by Galileo on 17. September 2019, 11:23:46 »
Text mode in iBASIC

Code: [Select]
1 REM iBASIC version 09/2019
5 screen window mode 45,60
7 window title "Espiral arquimediana"
10 LET A=1.5
20 LET B=0.7
30 FOR T=0 TO 7*PI STEP 0.05
40 LET R=A+B*T
45 let x = R*COS(T)+32 : let y = R*SIN(T)+22
50 locate y,x : print "*"
60 NEXT T
70 input "",a$
7
Code and examples / Re: Archimedes spiral
« Last post by Galileo on 17. September 2019, 11:20:36 »
Code: [Select]
// Ported from ZX81 Sinclair BASIC to Yabasic by Galileo, 10/2018

5 OPEN WINDOW 320, 200 : WINDOW ORIGIN "CC"
10 LET A=1.5
20 LET B=0.7
30 FOR T=0 TO 30*PI STEP 0.05
40 LET R=A+B*T
50 LINE TO R*COS(T),R*SIN(T)
60 NEXT T
8
Code and examples / Archimedes spiral
« Last post by Aurel on 17. September 2019, 09:13:39 »
in LogicBasic:

Code: [Select]
Var T Decimal, A Decimal, R Decimal, Xs Decimal, Ys Decimal
Var X0 Decimal, Y0 Decimal, X1 Decimal, Y1 Decimal

Window Res = 150, 250

T = 0.7 'starting point of spiral
A = 0.03 'increment size - spiral trail width
Xs = 125; Ys = 75
X0 = 0; Y0 = 0 'start point of line

While 1 = 1
  R = A * T
 
  X1 = R * Cos(T) * 50
  Y1 = R * Sin(T) * 50
  Straight Ys + Y0, Xs + X0, Ys + Y1, Xs + X1, Black
  X0 = X1; Y0 = Y1
  T = T + A
  Wait Events
Loop
9
Pulsar2D / Re: Is there the plan to port Pulsar2D to Haiku
« Last post by lorglas on 16. September 2019, 20:48:23 »
Hi, i want to compile pulsar2D on Haiku.

I get this error message. Has someone experience and could help

fpc pulsarlua.pas -Mdelphi
Free Pascal Compiler version 3.0.2 [2017/03/11] for i386
Copyright © 1993-2017 by Florian Klaempfl and others
Target OS: Haiku for i386
Compiling pulsarlua.pas
Compiling p2dvideo.pas
p2dvideo.pas(268,2) Error: Identifier not found “flip”
p2dvideo.pas(269,102) Error: Identifier not found “TSDL_RendererFlip”
p2dvideo.pas(269,120) Error: Identifier not found “flip”
p2dvideo.pas(272,2) Error: Identifier not found “flip”
p2dvideo.pas(273,102) Error: Identifier not found “TSDL_RendererFlip”
p2dvideo.pas(273,120) Error: Identifier not found “flip”
p2dvideo.pas(284,9) Error: Identifier not found “TSDL_RendererFlip”
p2dvideo.pas(284,26) Error: Error in type definition
p2dvideo.pas(300,102) Error: Identifier not found “TSDL_RendererFlip”
p2dvideo.pas(304,102) Error: Identifier not found “TSDL_RendererFlip”
p2dvideo.pas(1252) Fatal: There were 10 errors compiling module, stopping
Fatal: Compilation aborted
Error: /boot/home/config/non-packaged/bin/ppc386 returned an error exitcode

regards lorglas
10
Community news and announcements / Re: "New" retro computer
« Last post by Cybermonkey on 13. September 2019, 09:51:38 »
Part 2 of David Murray's Dream Computer is online:



Awesome work!
Pages: [1] 2 3 ... 10