Liberty BASIC Community Forum
« SCREEN and CIRCLE SUB - tool »

Welcome Guest. Please Login or Register.
Sep 19th, 2017, 1:59pm


Rules|Home|Help|Search|Recent Posts|Notification


« Previous Topic | Next Topic »
Pages: 1  Notify Send Topic Print
 thread  Author  Topic: SCREEN and CIRCLE SUB - tool  (Read 375 times)
michael
Guest
xx SCREEN and CIRCLE SUB - tool
« Thread started on: Apr 18th, 2015, 6:09pm »

Code:
call screen              

     call circle 500 , 500 , 100 ," white"                 ' ***horizontal, vertical, size, "color"

    print #1, "flush"      ' ****make the graphics stick

    wait

[quit]

    close #1
    end 



Code:
'***************[ This is the subs for all the stuff we want to do  *******************************************************************
'initialize generic screen
sub screen
   nomainwin
   open "Another way of doing graphics !!" for graphics_nsb_fs as #1
   print #1, "trapclose [quit]"

    print #1, "fill black ; home ; down ; north"
end sub
' generic circle   syntax -  circle horizontal, vertical, size, color$
sub circle x, y, size, color$
   print #1," place  "; x;" ";y
   print #1," color "; color$
   print #1," circle "; size
end sub
 

' I will add more fun stuff to this later :)
« Last Edit: Apr 19th, 2015, 1:47pm by Stefan Pendl » User IP Logged

Pages: 1  Notify Send Topic Print
« Previous Topic | Next Topic »

Rules|Home|Help|Search|Recent Posts|Notification

Donate $6.99 for 50,000 Ad-Free Pageviews!

| |

This forum powered for FREE by Conforums ©
Sign up for your own Free Message Board today!
Terms of Service | Privacy Policy | Conforums Support | Parental Controls