Pulsar2D

For other topics related to the FreeBASIC project or its community.
jj2007
Posts: 1236
Joined: Oct 23, 2016 15:28
Location: Roma, Italia
Contact:

Pulsar2D

Postby jj2007 » Jun 21, 2019 12:01

Does anybody know how to set up the Pulsar library? The source code zip package has a FreeBasic folder, but I don't know where to put it. When I include with full path, the linker complains with "cannot find -lSDL2" etc - the usual trial and error game...
dodicat
Posts: 5938
Joined: Jan 10, 2006 20:30
Location: Scotland

Re: Pulsar2D

Postby dodicat » Jun 21, 2019 12:30

You will need to get sdl2.dll
maybe here
https://www.dll-files.com/sdl2.dll.html

Put all the .bi files and this .dll and any examples.bas files into one folder.
If you get a runner with this this then you can think about creating an import file (via dlltool.exe) libsdl2.dll.a, putting it into the freebasic lib folder.
putting the .dll into windows system32 or syswow64, and putting the .bi files into your freebasic inc folder.
I'll try this myself later on, but the most important step is to get a runner in your first folder.
srvaldez
Posts: 2109
Joined: Sep 25, 2005 21:54

Re: Pulsar2D

Postby srvaldez » Jun 21, 2019 12:59

your main OS is Windows right?
are you using the standalone FreeBasic or the mingw-tools integrated version?
either way, there are 17 dll's in the win32 bin distribution, too many dependencies for my taste.
but for a quick and dirty test, copy the *.bi files to Pulsar2D-Distribution\Examples\BASIC
copy the dll's to same directory then try one of the provided examples
for a more permanent installation, I would create any missing import-libs and place them in the FB lib folder, also, copy the *.bi files to the FB inc folder, preferably in it's own sub-folder, place all the dll's where your programs can find them.
see also http://retrogamecoding.org/board/index. ... board=15.0
dodicat
Posts: 5938
Joined: Jan 10, 2006 20:30
Location: Scotland

Re: Pulsar2D

Postby dodicat » Jun 21, 2019 13:13

I tried this.
got sdl2.dll, sdl2_image.dll, sdl2_mixer.dll.
I put these three dll's and the seven .bi files and the four .bas examples and the media folder all into one test folder.
I got the Mandelbrot.bas and the fonttest.bas and the spriteexample.bas to work.
small hiccup with the particles.bas which I am sure I can fix maybe later on.
( 32 bits dll's)
The fonts are not impressive, could do better myself I reckon.
The Mannelbrot and the sprite look OK I suppose.
I won't bother to integrate them into freebasic and windows though, but I hope you are successful.
jj2007
Posts: 1236
Joined: Oct 23, 2016 15:28
Location: Roma, Italia
Contact:

Re: Pulsar2D

Postby jj2007 » Jun 21, 2019 13:34

Thanks to everybody, will test your proposals asap.
dodicat
Posts: 5938
Joined: Jan 10, 2006 20:30
Location: Scotland

Re: Pulsar2D

Postby dodicat » Jun 21, 2019 20:23

I have made the import libs with a few instructions.
https://www.mediafire.com/file/fpnzb31z65ep3ht/pulsar.zip/file
dodicat
Posts: 5938
Joined: Jan 10, 2006 20:30
Location: Scotland

Re: Pulsar2D

Postby dodicat » Jun 21, 2019 23:05

If you get it working you can try this.
(It is an easy library to use)

Code: Select all

 
#include once "pulsar/pulsar2d.bi"

Using p2d

Type pt
    As Long x,y
End Type
#define mx mousex
#define my mousey

#define onscreen (mx>0) and (mx<xres) and (my>0) and (my<yres)
#define incircle(cx,cy,radius,x,y) (cx-x)*(cx-x) +(cy-y)*(cy-y)<= radius*radius


Function dotproduct(v1 As pt,v2 As pt) As Single 'dot product |v1| * |v2| *cos(angle between v1 and v2)
    Dim As Single d1=Sqr(v1.x*v1.x + v1.y*v1.y),d2=Sqr(v2.x*v2.x + v2.y*v2.y)
    Dim As Single v1x=v1.x/d1,v1y=v1.y/d1 'normalize
    Dim As Single v2x=v2.x/d2,v2y=v2.y/d2 'normalize
    Return (v1x*v2x+v1y*v2y) '1 * 1 *cos(angle between v1 and v2)
End Function

#macro display
'legs meet at p(2)
Dim As pt L1=(p(1).x-p(2).x,p(1).y-p(2).y)'leg 1
Dim As pt L2=(p(3).x-p(2).x,p(3).y-p(2).y)'leg 2
Dim As Single angle=Acos(dotproduct(L1,L2))*(180/pi)'angle between legs in degrees
clearwindow
Color (00,00,00,255)
drawtext ("framerate = "&fps,10,10)
key=p2d.getkey()
drawtext("dot product = "+Str(dotproduct(L1,L2)),10,40)
drawtext("Drag circles by left click on and pull",10,70)
drawtext("Angle between the lines in degrees",10,100)
For z As Long=1 To 3
    Circle (p(z).x,p(z).y,10)
Next
Line(p(2).x,p(2).y,p(1).x,p(1).y)
Line(p(2).x,p(2).y,p(3).x,p(3).y)
drawtext(Str(angle),p(2).x+20,p(2).y)
sync
#endmacro

#macro mouse(m)
Dim As Long x=mousex,y=mousey,dx,dy
While mousebutton = 1
    Display():Sleep 1,1
    If onscreen Then
        If mousex<>x Or mousey<>y  Then
            dx = mousex - x
            dy = mousey - y
            x = mousex
            y = mousey
            p(m).x=x+dx
            p(m).y=y+dy
        End If
    End If
Wend
#endmacro

Function Regulate(Byval MyFps As Long,Byref fps As Long) As Long
    Static As Double timervalue,_lastsleeptime,t3,frames
    frames+=1
    If (Timer-t3)>=1 Then t3=Timer:fps=frames:frames=0
    Var sleeptime=_lastsleeptime+((1/myfps)-Timer+timervalue)*1000
    If sleeptime<1 Then sleeptime=1
    _lastsleeptime=sleeptime
    timervalue=Timer
    Return sleeptime
End Function

Dim win As p2d.window
Dim key As Integer
Dim As Long fps
win = openwindow ("dot products",-1,-1,800,600)
setactivewindow (win)
textsize (1.5)
texttype (2)
backcolor (0,200,255,255)
Dim As Integer xres=800,yres=600
Dim As pt p(1 To 3)={(100,100),(300,200),(200,400)} 'arbitary starting points
Dim As Single pi=4*Atn(1)
Do
    display
    For n As Long=1 To 3
        If incircle(p(n).x,p(n).y,10,mousex,mousey) And mousebutton Then
            mouse(n)
        End If
    Next n
   
    Sleep regulate(60,fps)
   
Loop Until key=SDL_SCANCODE_ESCAPE
closewindow(win)
 

Return to “Community Discussion”

Who is online

Users browsing this forum: MSN [Bot] and 34 guests