PureBasic 4.30 final released!
Superb Job with PB 4.30 .. Fred, Freak and the rest of the team (including all the beta testers who have participated)..
Thank you, and have a happy Merry Christmas and a happy new years...
And one more thing ... please do try to take it easy over the holidays, you all really do deserve it!
Regards,
Thunder93
Thank you, and have a happy Merry Christmas and a happy new years...
And one more thing ... please do try to take it easy over the holidays, you all really do deserve it!
Regards,
Thunder93
Want to thank you too. PureBasic it constantly growing. I just demonstrated it on JHCon in Czech Republic last weekend (It is a 8 Bit party, but we also work on PC's and Macs too), and I believe, there will be more purchases soon.
My PC
Ryzen 9 5950, 64 GB RAM, nVidia RTX A4000, Win 10
Ryzen 7 1700, 32 GB RAM, nVidia RTX A2000, Win 10
Ryzen 9 5950, 64 GB RAM, nVidia RTX A4000, Win 10
Ryzen 7 1700, 32 GB RAM, nVidia RTX A2000, Win 10
I'm with you aaron, this is a major update that makes native programming possible on the Mac. It even prints!
This (update) was what I wanted from Santa!Now we just need to get Purebasic listed onto a few of the Mac websites for software and I'm betting that we'll see a nice influx of people into the community. Woo woo!
MacBook Pro-M1 (2021), Sequoia 15.4, PB 6.20
- Psychophanta
- Always Here
- Posts: 5153
- Joined: Wed Jun 11, 2003 9:33 pm
- Location: Anare
- Contact:
Code: Select all
ExamineDesktops()
z=DesktopHeight(0)/4
CreateImage(1,z,z)
StartDrawing(ImageOutput(1))
Box(0,0,ImageWidth(1),ImageHeight(1),16777215)
Circle(ImageWidth(1)/2,ImageHeight(1)/2,ImageHeight(1)/2,RGB(255,255,0))
Ellipse(ImageWidth(1)/2,ImageWidth(1)*0.5,ImageWidth(1)*0.4,ImageWidth(1)*0.40,0)
Ellipse(ImageWidth(1)/2,ImageWidth(1)*0.3,ImageWidth(1)*0.4,ImageWidth(1)*0.30,65535)
Ellipse(ImageWidth(1)*0.3,ImageHeight(1)/4+20,ImageWidth(1)*0.10,ImageWidth(1)*0.15,0)
Ellipse(ImageWidth(1)*0.3,ImageHeight(1)/4+30,ImageWidth(1)*0.10,ImageWidth(1)*0.12,65535)
Ellipse(ImageWidth(1)*0.7,ImageHeight(1)/4+20,ImageWidth(1)*0.10,ImageWidth(1)*0.15,0)
Ellipse(ImageWidth(1)*0.7,ImageHeight(1)/4+30,ImageWidth(1)*0.10,ImageWidth(1)*0.12,65535)
StopDrawing()
OpenWindow(0,0,0,ImageWidth(1),ImageHeight(1),"",2148007937)
ImageGadget(0,0,0,0,0,ImageID(1))
SetWindowColor(0,16777215):SetWindowLong_(WindowID(0),-20,524288)
SetLayeredWindowAttributes_(WindowID(0),16777215,0,1)
WX = WindowX(0) : WY = WindowY(0): StickyWindow(0,1)
Repeat
EventID = WaitWindowEvent(50)
Angle.f + 0.01: SX.f = Cos(Angle) * 200: SY.f = Abs(Sin(Angle) * 80 )
ResizeWindow(0,WX + SX,WY + SY,-65535,-65535)
Until EventID = 16
Last edited by bobobo on Fri Dec 19, 2008 9:39 am, edited 2 times in total.
사십 둘 .