LB Booster
General >> Showcase >> Super Shapes Exploration Kit http://lbb.conforums.com/index.cgi?board=showcase&action=display&num=1490309618 Super Shapes Exploration Kit
Post by AndyA on Mar 23rd, 2017, 10:53pm
Hi all
This is my first post on this board. Hope you can find this to be useful.
This is an app that can be used to make buttons, and a whole lot of other things. It doesn't create buttons but the artwork that can be made into a button.
Looks impressive, but I don't have a program to unpack 7z files on this (Windows 10) PC - a Store app 'Unpacker' runs but it says the archive has an error.
Now Zip files are supported natively in Windows I can't really see the attraction of using an alternative packer, even if it does save a little more space.
Richard.
Re: Super Shapes Exploration Kit
Post by joker on Mar 24th, 2017, 10:09am
Welcome to the forum, AndyA!
I just normally don't download files hosted somewhere unknown to me. I'll never see the work you did to create these graphics.
Please, use the much more common ZIP compression.
Re: Super Shapes Exploration Kit
Post by Rod on Mar 25th, 2017, 11:05am
This is a link to a normal .zip version of the file.
Andy is a long time contributor to out BASIC communities. Not sure why .7zip is so problematic Win10 does not like the format and it means downloading an app, the first I tried didn't work and I don't really want my pc full of apps. .zip is but a right click away, sendto, compressed zip folder. Easy in Win10.
Re: Super Shapes Exploration Kit
Post by Richard Russell on Mar 26th, 2017, 4:25pm
There seems to be a problem with the program in that there's no trapclose command anywhere! If you click on the Close button it appears to close (in that the window disappears) but in fact it's still running.
For LBB users there's a worthwhile speed-up that can be achieved. Make the following changes to the ssr subroutine:
Change this Code:
If phi = 0 Then
#h$ "Set ";nx;" ";ny
Else
#h$ "Goto ";nx;" ";ny
End If
to this Code:
If phi = 0 Then
g$ = g$ + "Set ";nx;" ";ny;";"
Else
g$ = g$ + "Goto ";nx;" ";ny;";"
End If
and add this between the Next and the End Sub:
Code:
#h$ g$
This builds the plot commands in a temporary string and sends them 'all in one go' which is faster in LBB. The modification doesn't affect compatibility with LB4.