CIRCLE statement fully implemented in preparation for Demo #5! (+screenshot)

by (no login)

 

Here's a link to a screen-shot:
http://img216.imageshack.us/img216/9403/circlescn6.png

Here's the QBASIC program QB64 used to generate it:

'"GALLEON'S NOT SELF OBSESSED!" by Galleon
'for QB64 Demo #5
SCREEN 13
x = 30 'starting x-offset
y = 100 'y-offset
s = 50 'average spacing
r = 24 'average radius
col = 32 'color
CIRCLE (x, y), r, col, 1, -.1, 1
x = x + s: col = col + 2
CIRCLE (x, y + r), r * 2, col, 0, 3.1, 2
x = x + s * .75: col = col + 2
CIRCLE (x, y), r, col, -1.5, 5, 10
x = x + s * .5: col = col + 2
CIRCLE (x, y), r, col, -1.5, 5, 10
x = x + s * .75: col = col + 2
CIRCLE (x, y), r, col, -.1, 5.5, 1
x = x + s: col = col + 2
CIRCLE (x, y), r, col, , , 1
x = x + s: col = col + 2
CIRCLE (x, y + r), r * 2, col, 0, 3.1, 2
'horizontal bubbles (1:1 perspective)
LOCATE 5, 1
PRINT "1:1 perspective:"
col = 32
x = -1
y = 50
PSET (x, y)
FOR r = 0 TO 16
CIRCLE STEP(r * 2 + 1, 0), r, col, , , 1
col = col + 1
NEXT
'horizontal bubbles (default perspective)
LOCATE 21, 1
PRINT "Default perspective:"
col = 32
x = -1
y = 150
PSET (x, y)
FOR r = 0 TO 16
CIRCLE STEP(r * 2 + 1, 0), r, col
col = col + 1
NEXT

Posted on Jan 2, 2008, 7:53 PM

Respond to this message   

Return to Index

Response TitleAuthor and Date
nice, although when you said "circle statement" i thought you meantmennonite on Jan 2
 *I feel like I've read that somewhere recently... on Jan 2
Not bad on Jan 2
 *can't use it without copyright infringement, can you? on Jan 2
  copyright isn't the issuemennonite on Jan 2
   He can't use it as-is anyways on Jan 2
    draw: gwbasic vs qbasic vs fbmennonite on Jan 3
     That's pretty weird... on Jan 3
      you should get the same size and shape each timemennonite on Jan 3
       more about using drawmennonite on Jan 3
        Couldn't you draw a simple circle using SIN and COS on Jan 3
         got a public domain routine that does it?mennonite on Jan 3
          * LOL@publicdomain on Jan 3
          Here's a complete function for you on Jan 3
  Of ALL the people to ask that question. on Jan 3
   * You should be asking "I wonder what ISN'T patented by M$?" :Prpgfan3233 on Jan 3
   * If it was up to them, it would cost a nickel to doubleclick! on Jan 3
 wouldn't reading their source code be a bad idea?mennonite on Jan 2
  It's not reverse engineering on Jan 2

 Copyright © 1999-2014 Network54. All rights reserved.   Terms of Use   Privacy Statement