5748347 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n 3dbxtop2.bas
   1: DECLARE SUB DDDTop (c!, sz!, ht!, wd!, lv!)
   2: SCREEN 12
   3: CLS
   4: c = 15: sz = 94: ht = INT(sz / 2): wd = 400
   5: n = 1.3
   6: FOR lv = 1 TO sz
   7: DDDTop c, sz, ht, wd, lv
   8: LINE ((320 - (wd / n)) + (lv * 2), 240 - ht + lv)-((320 - (wd / n)) + (lv * 2), 240 + lv - mm)
   9: LINE ((320 + (wd / n)) - (lv * 2), 240 - ht + lv)-((320 + (wd / n)) - (lv * 2), 240 + lv - mm)
  10: 
  11: LINE ((320 - (wd / n)), (240 - ht) + sz + lv)-((320 + (wd / n)), (240 - ht) + sz + lv), c
  12: LINE ((320 - (wd / n)), (240 - ht) + sz)-((320 - (wd / n)) + INT(lv / 4), (240 - ht) + sz + lv), c
  13: LINE ((320 + (wd / n)), (240 - ht) + sz)-((320 + (wd / n)) - INT(lv / 4), (240 - ht) + sz + lv), c
  14: mm = INT(lv - sz / 2) + 1
  15: FOR q = 1 TO 250: NEXT q
  16: 
  17: 'Clear the top and two sides
  18: LINE ((320 - (wd / n)) + (lv * 2), 240 - ht + lv)-((320 + (wd / n)) - (lv * 2), 240 - ht + lv), 0
  19: LINE ((320 - (wd / n)) + (lv * 2), 240 - ht + lv)-((320 - (wd / n)), (240 - ht) + sz), 0
  20: LINE ((320 + (wd / n)) - (lv * 2), 240 - ht + lv)-((320 + (wd / n)), (240 - ht) + sz), 0
  21: 
  22: LINE ((320 - (wd / n)) + (lv * 2), 240 - ht + lv)-((320 - (wd / n)) + (lv * 2), 240 + lv - mm), 0
  23: LINE ((320 + (wd / n)) - (lv * 2), 240 - ht + lv)-((320 + (wd / n)) - (lv * 2), 240 + lv - mm), 0
  24: 
  25: LINE ((320 - (wd / n)), (240 - ht) + sz + lv)-((320 + (wd / n)), (240 - ht) + sz + lv), 0
  26: LINE ((320 - (wd / n)), (240 - ht) + sz)-((320 - (wd / n)) + INT(lv / 4), (240 - ht) + sz + lv), 0
  27: LINE ((320 + (wd / n)), (240 - ht) + sz)-((320 + (wd / n)) - INT(lv / 4), (240 - ht) + sz + lv), 0
  28: 
  29: 
  30: 
  31: NEXT lv
  32: 
  33: 'Put The bottom back
  34: LINE ((320 - (wd / n)), (240 - ht) + sz)-((320 + (wd / n)), (240 - ht) + sz), c
  35: 
  36: LINE ((320 - (wd / n)), (240 - ht) + sz + lv)-((320 + (wd / n)), (240 - ht) + sz + lv), c
  37: LINE ((320 - (wd / n)), (240 - ht) + sz)-((320 - (wd / n)) + INT(lv / 4), (240 - ht) + sz + lv), c
  38: LINE ((320 + (wd / n)), (240 - ht) + sz)-((320 + (wd / n)) - INT(lv / 4), (240 - ht) + sz + lv), c
  39: 
  40: SUB DDDTop (c, sz, ht, wd, lv)
  41: n = 1.3
  42: IF ht = 0 THEN ht = (sz / 2)
  43: LINE ((320 + (wd / n)) - (lv * 2), 240 - ht + lv)-((320 + (wd / n)), (240 - ht) + sz), c                'Right Side
  44: LINE ((320 - (wd / n)) + (lv * 2), 240 - ht + lv)-((320 - (wd / n)), (240 - ht) + sz), c                'Left Side
  45: LINE ((320 - (wd / n)) + (lv * 2), 240 - ht + lv)-((320 + (wd / n)) - (lv * 2), 240 - ht + lv), c       'Top
  46: LINE ((320 - (wd / n)), (240 - ht) + sz)-((320 + (wd / n)), (240 - ht) + sz), c                         'Bottom
  47: END SUB
  48:
5748348 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$
Click here to go back to the directory listing.
Click here to download this file.
last modified: 2000-05-09 20:58:58