Author Topic: Test card  (Read 5791 times)

0 Members and 1 Guest are viewing this topic.

Offline SquirrelMonkey

  • Newbie
  • Posts: 29
  • Youtuber and GIPHY artist
    • View Profile
    • Joluijten.com
Test card
« on: December 21, 2020, 02:34:36 pm »
I made this years ago and I posted it on an old forum. Because I couldn't find my account anymore, I assume I posted this on a different forum.

Code: QB64: [Select]
  1. _TITLE "Test card"
  2. SCREEN _NEWIMAGE(972, 768, 256)
  3. LINE (0, 0)-(1024, 768), 7, BF
  4. FOR a = 20 TO 1024 STEP 55: LINE (0, 3 + a)-(1024, 5 + a), 31, BF: NEXT a
  5. FOR a = 20 TO 1024 STEP 46: LINE (a + 4, 0)-(2 + a + 4, 768), 31, BF: NEXT a
  6. FOR a = 0 TO 353: CIRCLE (485, 383), a, 7, , , 1: NEXT a
  7. CIRCLE (485, 383), 353, 15, , , 1: PAINT (507, 383), 15
  8. FOR a = 0 TO 100 STEP 25: LINE (221 + a, 413)-(232 + a, 528), 0, BF: NEXT a
  9. FOR a = 0 TO 100 STEP 11: LINE (328 + a, 413)-(332 + a, 528), 0, BF: NEXT a
  10. FOR a = 0 TO 120 STEP 8: LINE (435 + a, 413)-(437 + a, 528), 0, BF: NEXT a
  11. FOR a = 0 TO 120 STEP 5: LINE (561 + a, 413)-(562 + a, 528), 0, BF: NEXT a
  12. FOR a = 0 TO 100 STEP 2: LINE (684 + a, 413)-(684 + a, 528), 0, BF: NEXT a
  13. LINE (162, 241)-(258, 355), 14, BF: LINE (259, 241)-(372, 355), 11, BF
  14. LINE (373, 241)-(488, 355), 10, BF: LINE (488, 241)-(602, 355), 13, BF
  15. LINE (603, 241)-(716, 355), 12, BF: LINE (717, 241)-(805, 355), 9, BF
  16. LINE (375, 70)-(600, 125), 0, BF: LINE (315, 585)-(660, 640), 0, BF
  17. LINE (145, 356)-(838, 412), 0, BF: LINE (461, 295)-(518, 470), 0, BF
  18. LINE (210, 184)-(750, 241), 29, BF
  19. FOR a = 0 TO 500 STEP 80: LINE (250 + a, 184)-(294 + a, 241), 0, BF: NEXT a
  20. LINE (199, 184)-(213, 241), 0, BF
  21. LINE (242, 127)-(315, 183), 0, BF: LINE (242, 127)-(227, 140), 0: LINE (227, 140)-(215, 155), 0
  22. LINE (215, 155)-(200, 173), 0: LINE (200, 173)-(188, 192), 0: LINE (188, 192)-(174, 215), 0
  23. LINE (174, 215)-(166, 232), 0: LINE (166, 232)-(161, 241), 0: LINE (161, 241)-(200, 241), 0
  24. LINE (198, 184)-(252, 184), 0: PAINT (240, 180), 0: LINE (660, 127)-(728, 183), 0, BF
  25. LINE (728, 127)-(744, 143), 0: LINE (744, 143)-(755, 155), 0: LINE (755, 155)-(766, 169), 0
  26. LINE (766, 169)-(776, 183), 0: LINE (728, 183)-(775, 183), 0
  27. PAINT (748, 160), 0: LINE (205, 529)-(259, 585), 0, BF
  28. LINE (170, 413)-(208, 528), 0, BF: LINE (774, 413)-(807, 528), 0, BF
  29. LINE (807, 413)-(838, 413), 0: LINE (838, 413)-(834, 441), 0
  30. LINE (834, 441)-(830, 463), 0: LINE (830, 463)-(824, 485), 0
  31. LINE (824, 485)-(819, 502), 0: LINE (819, 502)-(813, 517), 0
  32. LINE (813, 517)-(807, 528), 0: PAINT (820, 450), 0: LINE (345, 127)-(346, 184), 0, BF
  33. LINE (132, 356)-(169, 356), 0: LINE (132, 356)-(132, 400), 0: LINE (132, 400)-(134, 426), 0
  34. LINE (134, 426)-(137, 442), 0: LINE (137, 442)-(142, 468), 0: LINE (142, 468)-(153, 504), 0
  35. LINE (153, 504)-(160, 522), 0: LINE (160, 522)-(171, 546), 0: LINE (171, 546)-(183, 568), 0
  36. LINE (183, 568)-(194, 585), 0: LINE (194, 585)-(210, 585), 0: PAINT (200, 580), 0
  37. LINE (132, 384)-(845, 385), 7, B: LINE (490, 295)-(491, 470), 7, B
  38. FOR a = 0 TO 660 STEP 58: LINE (170 + a, 357)-(171 + a, 413), 7, BF: NEXT a
  39. FOR a = 0 TO 5: LINE (243 + a, 641 + a)-(726 - a, 641 + a), 14: NEXT a
  40. LINE (247, 646)-(266, 661), 14: LINE (266, 661)-(286, 675), 14: LINE (286, 675)-(305, 688), 14
  41. LINE (305, 688)-(326, 700), 14: LINE (326, 700)-(361, 714), 14: LINE (361, 714)-(399, 726), 14
  42. LINE (399, 726)-(431, 733), 14: LINE (431, 733)-(466, 736), 14: LINE (466, 736)-(522, 736), 14
  43. LINE (522, 736)-(541, 732), 14: LINE (541, 732)-(573, 726), 14: LINE (573, 726)-(609, 714), 14
  44. LINE (609, 714)-(642, 700), 14: LINE (642, 700)-(669, 684), 14: LINE (669, 684)-(693, 668), 14
  45. LINE (693, 668)-(721, 646), 14: PAINT (660, 660), 14
  46. LINE (458, 641)-(518, 736), 12, BF: LINE (260, 529)-(374, 585), 22, BF: LINE (374, 529)-(488, 585), 24, BF
  47. LINE (488, 529)-(602, 585), 26, BF: LINE (602, 529)-(716, 585), 28, BF: LINE (804, 241)-(808, 241), 9
  48. LINE (808, 241)-(811, 247), 9: LINE (811, 247)-(824, 280), 9
  49. LINE (824, 280)-(832, 315), 9: LINE (832, 315)-(836, 337), 9
  50. LINE (836, 337)-(838, 355), 9: LINE (838, 355)-(800, 355), 9
  51. PAINT (820, 330), 9: LINE (162, 241)-(148, 275), 14: LINE (148, 275)-(141, 300), 14
  52. LINE (141, 300)-(136, 328), 14: LINE (136, 328)-(132, 355), 14
  53. LINE (132, 355)-(168, 355), 14: PAINT (150, 300), 14
  54. LINE (112 + 4, 81)-(157 + 4, 187), 78, BF: LINE (69 + 4, 382)-(111 + 4, 81), 50, BF
  55. LINE (69 + 4, 382)-(111 + 4, 682), 63, BF: LINE (112 + 4, 575)-(157 + 4, 682), 42, BF
  56. LINE (805 + 4, 81)-(850 + 4, 187), 78, BF: LINE (851 + 4, 382)-(893 + 4, 81), 2, BF
  57. LINE (851 + 4, 382)-(893 + 4, 682), 79, BF: LINE (805 + 4, 575)-(850 + 4, 682), 42, BF
  58. FOR a = 25 TO 1024 STEP 92
  59.     LINE (a + 3, 0)-(44 + a, 8), 0, BF: LINE (a - 44, 0)-(44 + a - 44, 8), 15, BF
  60.     LINE (a + 3, 759)-(44 + a, 768), 0, BF: LINE (a - 44, 759)-(44 + a - 44, 768), 15, BF

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Test card
« Reply #1 on: December 21, 2020, 03:16:45 pm »
Yeah, I haven't seen that guy since the 60's ;-))

Welcome to the forum!

Offline SquirrelMonkey

  • Newbie
  • Posts: 29
  • Youtuber and GIPHY artist
    • View Profile
    • Joluijten.com
Re: Test card
« Reply #2 on: December 21, 2020, 03:52:45 pm »
Yeah, I haven't seen that guy since the 60's ;-))

Welcome to the forum!

Thank you!

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Test card
« Reply #3 on: December 21, 2020, 05:12:55 pm »
Very fun!
But have you an older version for older users? (Older in this case is a Black, White, Grays palette)
Thank you to open an old box of memory that leads to my childhood!
Programming isn't difficult, only it's  consuming time and coffee

Offline Adrian

  • Newbie
  • Posts: 39
    • View Profile
Re: Test card
« Reply #4 on: December 22, 2020, 04:43:28 am »
very nice! could also add a sustained "beeeeeeeeeeeeeeep" sound to go with it!

Offline SquirrelMonkey

  • Newbie
  • Posts: 29
  • Youtuber and GIPHY artist
    • View Profile
    • Joluijten.com
Re: Test card
« Reply #5 on: December 22, 2020, 10:48:14 pm »
Very fun!
But have you an older version for older users? (Older in this case is a Black, White, Grays palette)
Thank you to open an old box of memory that leads to my childhood!

Done! I don't know how I can stop the sound command. Looks like a bug. It doesn't even want to play a different SOUND frequency.

Code: QB64: [Select]
  1. _TITLE "Test card"
  2. SCREEN _NEWIMAGE(972, 768, 256)
  3. begin:
  4. LOCATE 18, 48: COLOR 14: PRINT "(C)olor or (M)onochrome?"
  5.     k$ = INKEY$
  6.     IF k$ = "c" OR k$ = "C" THEN Colorchoice = 1: GOTO start:
  7.     IF k$ = "m" OR k$ = "M" THEN Colorchoice = 0: GOTO start:
  8. start:
  9. FOR a = 1 TO 100
  10.     _PALETTECOLOR a, _RGB32(0, 0, 0)
  11. LINE (0, 0)-(1024, 768), 7, BF
  12. FOR a = 20 TO 1024 STEP 55: LINE (0, 3 + a)-(1024, 5 + a), 31, BF: NEXT a
  13. FOR a = 20 TO 1024 STEP 46: LINE (a + 4, 0)-(2 + a + 4, 768), 31, BF: NEXT a
  14. FOR a = 0 TO 353: CIRCLE (485, 383), a, 7, , , 1: NEXT a
  15. CIRCLE (485, 383), 353, 15, , , 1: PAINT (507, 383), 15
  16. FOR a = 0 TO 100 STEP 25: LINE (221 + a, 413)-(232 + a, 528), 0, BF: NEXT a
  17. FOR a = 0 TO 100 STEP 11: LINE (328 + a, 413)-(332 + a, 528), 0, BF: NEXT a
  18. FOR a = 0 TO 120 STEP 8: LINE (435 + a, 413)-(437 + a, 528), 0, BF: NEXT a
  19. FOR a = 0 TO 120 STEP 5: LINE (561 + a, 413)-(562 + a, 528), 0, BF: NEXT a
  20. FOR a = 0 TO 100 STEP 2: LINE (684 + a, 413)-(684 + a, 528), 0, BF: NEXT a
  21. LINE (162, 241)-(258, 355), 14, BF: LINE (259, 241)-(372, 355), 11, BF
  22. LINE (373, 241)-(488, 355), 10, BF: LINE (488, 241)-(602, 355), 13, BF
  23. LINE (603, 241)-(716, 355), 12, BF: LINE (717, 241)-(805, 355), 9, BF
  24. LINE (375, 70)-(600, 125), 0, BF: LINE (315, 585)-(660, 640), 0, BF
  25. LINE (145, 356)-(838, 412), 0, BF: LINE (461, 295)-(518, 470), 0, BF
  26. LINE (210, 184)-(750, 241), 29, BF
  27. FOR a = 0 TO 500 STEP 80: LINE (250 + a, 184)-(294 + a, 241), 0, BF: NEXT a
  28. LINE (199, 184)-(213, 241), 0, BF
  29. LINE (242, 127)-(315, 183), 0, BF: LINE (242, 127)-(227, 140), 0: LINE (227, 140)-(215, 155), 0
  30. LINE (215, 155)-(200, 173), 0: LINE (200, 173)-(188, 192), 0: LINE (188, 192)-(174, 215), 0
  31. LINE (174, 215)-(166, 232), 0: LINE (166, 232)-(161, 241), 0: LINE (161, 241)-(200, 241), 0
  32. LINE (198, 184)-(252, 184), 0: PAINT (240, 180), 0: LINE (660, 127)-(728, 183), 0, BF
  33. LINE (728, 127)-(744, 143), 0: LINE (744, 143)-(755, 155), 0: LINE (755, 155)-(766, 169), 0
  34. LINE (766, 169)-(776, 183), 0: LINE (728, 183)-(775, 183), 0
  35. PAINT (748, 160), 0: LINE (205, 529)-(259, 585), 0, BF
  36. LINE (170, 413)-(208, 528), 0, BF: LINE (774, 413)-(807, 528), 0, BF
  37. LINE (807, 413)-(838, 413), 0: LINE (838, 413)-(834, 441), 0
  38. LINE (834, 441)-(830, 463), 0: LINE (830, 463)-(824, 485), 0
  39. LINE (824, 485)-(819, 502), 0: LINE (819, 502)-(813, 517), 0
  40. LINE (813, 517)-(807, 528), 0: PAINT (820, 450), 0: LINE (345, 127)-(346, 184), 0, BF
  41. LINE (132, 356)-(169, 356), 0: LINE (132, 356)-(132, 400), 0: LINE (132, 400)-(134, 426), 0
  42. LINE (134, 426)-(137, 442), 0: LINE (137, 442)-(142, 468), 0: LINE (142, 468)-(153, 504), 0
  43. LINE (153, 504)-(160, 522), 0: LINE (160, 522)-(171, 546), 0: LINE (171, 546)-(183, 568), 0
  44. LINE (183, 568)-(194, 585), 0: LINE (194, 585)-(210, 585), 0: PAINT (200, 580), 0
  45. LINE (132, 384)-(845, 385), 7, B: LINE (490, 295)-(491, 470), 7, B
  46. FOR a = 0 TO 660 STEP 58: LINE (170 + a, 357)-(171 + a, 413), 7, BF: NEXT a
  47. FOR a = 0 TO 5: LINE (243 + a, 641 + a)-(726 - a, 641 + a), 14: NEXT a
  48. LINE (247, 646)-(266, 661), 14: LINE (266, 661)-(286, 675), 14: LINE (286, 675)-(305, 688), 14
  49. LINE (305, 688)-(326, 700), 14: LINE (326, 700)-(361, 714), 14: LINE (361, 714)-(399, 726), 14
  50. LINE (399, 726)-(431, 733), 14: LINE (431, 733)-(466, 736), 14: LINE (466, 736)-(522, 736), 14
  51. LINE (522, 736)-(541, 732), 14: LINE (541, 732)-(573, 726), 14: LINE (573, 726)-(609, 714), 14
  52. LINE (609, 714)-(642, 700), 14: LINE (642, 700)-(669, 684), 14: LINE (669, 684)-(693, 668), 14
  53. LINE (693, 668)-(721, 646), 14: PAINT (660, 660), 14
  54. LINE (458, 641)-(518, 736), 12, BF: LINE (260, 529)-(374, 585), 22, BF: LINE (374, 529)-(488, 585), 24, BF
  55. LINE (488, 529)-(602, 585), 26, BF: LINE (602, 529)-(716, 585), 28, BF: LINE (804, 241)-(808, 241), 9
  56. LINE (808, 241)-(811, 247), 9: LINE (811, 247)-(824, 280), 9
  57. LINE (824, 280)-(832, 315), 9: LINE (832, 315)-(836, 337), 9
  58. LINE (836, 337)-(838, 355), 9: LINE (838, 355)-(800, 355), 9
  59. PAINT (820, 330), 9: LINE (162, 241)-(148, 275), 14: LINE (148, 275)-(141, 300), 14
  60. LINE (141, 300)-(136, 328), 14: LINE (136, 328)-(132, 355), 14
  61. LINE (132, 355)-(168, 355), 14: PAINT (150, 300), 14
  62. LINE (112 + 4, 81)-(157 + 4, 187), 78, BF: LINE (69 + 4, 382)-(111 + 4, 81), 50, BF
  63. LINE (69 + 4, 382)-(111 + 4, 682), 63, BF: LINE (112 + 4, 575)-(157 + 4, 682), 42, BF
  64. LINE (805 + 4, 81)-(850 + 4, 187), 78, BF: LINE (851 + 4, 382)-(893 + 4, 81), 2, BF
  65. LINE (851 + 4, 382)-(893 + 4, 682), 79, BF: LINE (805 + 4, 575)-(850 + 4, 682), 42, BF
  66. FOR a = 25 TO 1024 STEP 92
  67.     LINE (a + 3, 0)-(44 + a, 8), 0, BF: LINE (a - 44, 0)-(44 + a - 44, 8), 15, BF
  68.     LINE (a + 3, 759)-(44 + a, 768), 0, BF: LINE (a - 44, 759)-(44 + a - 44, 768), 15, BF
  69. FOR e = 0 TO 769 STEP 2
  70.     LINE (0, e)-(972, e), 0
  71.  
  72. IF Colorchoice = 0 THEN FOR v = 1 TO 100: _PALETTECOLOR v, _RGB32(v * 14, v * 14, v * 14): NEXT v
  73. IF Colorchoice = 1 THEN PALETTE
  74.  
  75.     SOUND 400, .3
  76.     k2$ = INKEY$
  77.     IF k2$ <> "" THEN GOTO begin:

Offline SquirrelMonkey

  • Newbie
  • Posts: 29
  • Youtuber and GIPHY artist
    • View Profile
    • Joluijten.com
Re: Test card
« Reply #6 on: December 22, 2020, 10:48:42 pm »
very nice! could also add a sustained "beeeeeeeeeeeeeeep" sound to go with it!

Done!

Code: QB64: [Select]
  1. _TITLE "Test card"
  2. SCREEN _NEWIMAGE(972, 768, 256)
  3. begin:
  4. LOCATE 18, 48: COLOR 14: PRINT "(C)olor or (M)onochrome?"
  5.     k$ = INKEY$
  6.     IF k$ = "c" OR k$ = "C" THEN Colorchoice = 1: GOTO start:
  7.     IF k$ = "m" OR k$ = "M" THEN Colorchoice = 0: GOTO start:
  8. start:
  9. FOR a = 1 TO 100
  10.     _PALETTECOLOR a, _RGB32(0, 0, 0)
  11. LINE (0, 0)-(1024, 768), 7, BF
  12. FOR a = 20 TO 1024 STEP 55: LINE (0, 3 + a)-(1024, 5 + a), 31, BF: NEXT a
  13. FOR a = 20 TO 1024 STEP 46: LINE (a + 4, 0)-(2 + a + 4, 768), 31, BF: NEXT a
  14. FOR a = 0 TO 353: CIRCLE (485, 383), a, 7, , , 1: NEXT a
  15. CIRCLE (485, 383), 353, 15, , , 1: PAINT (507, 383), 15
  16. FOR a = 0 TO 100 STEP 25: LINE (221 + a, 413)-(232 + a, 528), 0, BF: NEXT a
  17. FOR a = 0 TO 100 STEP 11: LINE (328 + a, 413)-(332 + a, 528), 0, BF: NEXT a
  18. FOR a = 0 TO 120 STEP 8: LINE (435 + a, 413)-(437 + a, 528), 0, BF: NEXT a
  19. FOR a = 0 TO 120 STEP 5: LINE (561 + a, 413)-(562 + a, 528), 0, BF: NEXT a
  20. FOR a = 0 TO 100 STEP 2: LINE (684 + a, 413)-(684 + a, 528), 0, BF: NEXT a
  21. LINE (162, 241)-(258, 355), 14, BF: LINE (259, 241)-(372, 355), 11, BF
  22. LINE (373, 241)-(488, 355), 10, BF: LINE (488, 241)-(602, 355), 13, BF
  23. LINE (603, 241)-(716, 355), 12, BF: LINE (717, 241)-(805, 355), 9, BF
  24. LINE (375, 70)-(600, 125), 0, BF: LINE (315, 585)-(660, 640), 0, BF
  25. LINE (145, 356)-(838, 412), 0, BF: LINE (461, 295)-(518, 470), 0, BF
  26. LINE (210, 184)-(750, 241), 29, BF
  27. FOR a = 0 TO 500 STEP 80: LINE (250 + a, 184)-(294 + a, 241), 0, BF: NEXT a
  28. LINE (199, 184)-(213, 241), 0, BF
  29. LINE (242, 127)-(315, 183), 0, BF: LINE (242, 127)-(227, 140), 0: LINE (227, 140)-(215, 155), 0
  30. LINE (215, 155)-(200, 173), 0: LINE (200, 173)-(188, 192), 0: LINE (188, 192)-(174, 215), 0
  31. LINE (174, 215)-(166, 232), 0: LINE (166, 232)-(161, 241), 0: LINE (161, 241)-(200, 241), 0
  32. LINE (198, 184)-(252, 184), 0: PAINT (240, 180), 0: LINE (660, 127)-(728, 183), 0, BF
  33. LINE (728, 127)-(744, 143), 0: LINE (744, 143)-(755, 155), 0: LINE (755, 155)-(766, 169), 0
  34. LINE (766, 169)-(776, 183), 0: LINE (728, 183)-(775, 183), 0
  35. PAINT (748, 160), 0: LINE (205, 529)-(259, 585), 0, BF
  36. LINE (170, 413)-(208, 528), 0, BF: LINE (774, 413)-(807, 528), 0, BF
  37. LINE (807, 413)-(838, 413), 0: LINE (838, 413)-(834, 441), 0
  38. LINE (834, 441)-(830, 463), 0: LINE (830, 463)-(824, 485), 0
  39. LINE (824, 485)-(819, 502), 0: LINE (819, 502)-(813, 517), 0
  40. LINE (813, 517)-(807, 528), 0: PAINT (820, 450), 0: LINE (345, 127)-(346, 184), 0, BF
  41. LINE (132, 356)-(169, 356), 0: LINE (132, 356)-(132, 400), 0: LINE (132, 400)-(134, 426), 0
  42. LINE (134, 426)-(137, 442), 0: LINE (137, 442)-(142, 468), 0: LINE (142, 468)-(153, 504), 0
  43. LINE (153, 504)-(160, 522), 0: LINE (160, 522)-(171, 546), 0: LINE (171, 546)-(183, 568), 0
  44. LINE (183, 568)-(194, 585), 0: LINE (194, 585)-(210, 585), 0: PAINT (200, 580), 0
  45. LINE (132, 384)-(845, 385), 7, B: LINE (490, 295)-(491, 470), 7, B
  46. FOR a = 0 TO 660 STEP 58: LINE (170 + a, 357)-(171 + a, 413), 7, BF: NEXT a
  47. FOR a = 0 TO 5: LINE (243 + a, 641 + a)-(726 - a, 641 + a), 14: NEXT a
  48. LINE (247, 646)-(266, 661), 14: LINE (266, 661)-(286, 675), 14: LINE (286, 675)-(305, 688), 14
  49. LINE (305, 688)-(326, 700), 14: LINE (326, 700)-(361, 714), 14: LINE (361, 714)-(399, 726), 14
  50. LINE (399, 726)-(431, 733), 14: LINE (431, 733)-(466, 736), 14: LINE (466, 736)-(522, 736), 14
  51. LINE (522, 736)-(541, 732), 14: LINE (541, 732)-(573, 726), 14: LINE (573, 726)-(609, 714), 14
  52. LINE (609, 714)-(642, 700), 14: LINE (642, 700)-(669, 684), 14: LINE (669, 684)-(693, 668), 14
  53. LINE (693, 668)-(721, 646), 14: PAINT (660, 660), 14
  54. LINE (458, 641)-(518, 736), 12, BF: LINE (260, 529)-(374, 585), 22, BF: LINE (374, 529)-(488, 585), 24, BF
  55. LINE (488, 529)-(602, 585), 26, BF: LINE (602, 529)-(716, 585), 28, BF: LINE (804, 241)-(808, 241), 9
  56. LINE (808, 241)-(811, 247), 9: LINE (811, 247)-(824, 280), 9
  57. LINE (824, 280)-(832, 315), 9: LINE (832, 315)-(836, 337), 9
  58. LINE (836, 337)-(838, 355), 9: LINE (838, 355)-(800, 355), 9
  59. PAINT (820, 330), 9: LINE (162, 241)-(148, 275), 14: LINE (148, 275)-(141, 300), 14
  60. LINE (141, 300)-(136, 328), 14: LINE (136, 328)-(132, 355), 14
  61. LINE (132, 355)-(168, 355), 14: PAINT (150, 300), 14
  62. LINE (112 + 4, 81)-(157 + 4, 187), 78, BF: LINE (69 + 4, 382)-(111 + 4, 81), 50, BF
  63. LINE (69 + 4, 382)-(111 + 4, 682), 63, BF: LINE (112 + 4, 575)-(157 + 4, 682), 42, BF
  64. LINE (805 + 4, 81)-(850 + 4, 187), 78, BF: LINE (851 + 4, 382)-(893 + 4, 81), 2, BF
  65. LINE (851 + 4, 382)-(893 + 4, 682), 79, BF: LINE (805 + 4, 575)-(850 + 4, 682), 42, BF
  66. FOR a = 25 TO 1024 STEP 92
  67.     LINE (a + 3, 0)-(44 + a, 8), 0, BF: LINE (a - 44, 0)-(44 + a - 44, 8), 15, BF
  68.     LINE (a + 3, 759)-(44 + a, 768), 0, BF: LINE (a - 44, 759)-(44 + a - 44, 768), 15, BF
  69. FOR e = 0 TO 769 STEP 2
  70.     LINE (0, e)-(972, e), 0
  71.  
  72. IF Colorchoice = 0 THEN FOR v = 1 TO 100: _PALETTECOLOR v, _RGB32(v * 14, v * 14, v * 14): NEXT v
  73. IF Colorchoice = 1 THEN PALETTE
  74.  
  75.     SOUND 400, .3
  76.     k2$ = INKEY$
  77.     IF k2$ <> "" THEN GOTO begin:

Offline SquirrelMonkey

  • Newbie
  • Posts: 29
  • Youtuber and GIPHY artist
    • View Profile
    • Joluijten.com
Re: Test card
« Reply #7 on: December 22, 2020, 11:01:32 pm »
Code: QB64: [Select]
  1. _TITLE "Test card"
  2. SCREEN _NEWIMAGE(972, 768, 256)
  3. begin:
  4. LOCATE 18, 48: COLOR 14: PRINT "(C)olor or (M)onochrome?"
  5.     k$ = INKEY$
  6.     IF k$ = "c" OR k$ = "C" THEN Colorchoice = 1: GOTO start:
  7.     IF k$ = "m" OR k$ = "M" THEN Colorchoice = 0: GOTO start:
  8. start:
  9. FOR a = 1 TO 100
  10.     _PALETTECOLOR a, _RGB32(0, 0, 0)
  11. LINE (0, 0)-(1024, 768), 7, BF
  12. FOR a = 20 TO 1024 STEP 55: LINE (0, 3 + a)-(1024, 5 + a), 31, BF: NEXT a
  13. FOR a = 20 TO 1024 STEP 46: LINE (a + 4, 0)-(2 + a + 4, 768), 31, BF: NEXT a
  14. FOR a = 0 TO 353: CIRCLE (485, 383), a, 7, , , 1: NEXT a
  15. CIRCLE (485, 383), 353, 15, , , 1: PAINT (507, 383), 15
  16. FOR a = 0 TO 100 STEP 25: LINE (221 + a, 413)-(232 + a, 528), 0, BF: NEXT a
  17. FOR a = 0 TO 100 STEP 11: LINE (328 + a, 413)-(332 + a, 528), 0, BF: NEXT a
  18. FOR a = 0 TO 120 STEP 8: LINE (435 + a, 413)-(437 + a, 528), 0, BF: NEXT a
  19. FOR a = 0 TO 120 STEP 5: LINE (561 + a, 413)-(562 + a, 528), 0, BF: NEXT a
  20. FOR a = 0 TO 100 STEP 2: LINE (684 + a, 413)-(684 + a, 528), 0, BF: NEXT a
  21. LINE (162, 241)-(258, 355), 14, BF: LINE (259, 241)-(372, 355), 11, BF
  22. LINE (373, 241)-(488, 355), 10, BF: LINE (488, 241)-(602, 355), 13, BF
  23. LINE (603, 241)-(716, 355), 12, BF: LINE (717, 241)-(805, 355), 9, BF
  24. LINE (375, 70)-(600, 125), 0, BF: LINE (315, 585)-(660, 640), 0, BF
  25. LINE (145, 356)-(838, 412), 0, BF: LINE (461, 295)-(518, 470), 0, BF
  26. LINE (210, 184)-(750, 241), 29, BF
  27. FOR a = 0 TO 500 STEP 80: LINE (250 + a, 184)-(294 + a, 241), 0, BF: NEXT a
  28. LINE (199, 184)-(213, 241), 0, BF
  29. LINE (242, 127)-(315, 183), 0, BF: LINE (242, 127)-(227, 140), 0: LINE (227, 140)-(215, 155), 0
  30. LINE (215, 155)-(200, 173), 0: LINE (200, 173)-(188, 192), 0: LINE (188, 192)-(174, 215), 0
  31. LINE (174, 215)-(166, 232), 0: LINE (166, 232)-(161, 241), 0: LINE (161, 241)-(200, 241), 0
  32. LINE (198, 184)-(252, 184), 0: PAINT (240, 180), 0: LINE (660, 127)-(728, 183), 0, BF
  33. LINE (728, 127)-(744, 143), 0: LINE (744, 143)-(755, 155), 0: LINE (755, 155)-(766, 169), 0
  34. LINE (766, 169)-(776, 183), 0: LINE (728, 183)-(775, 183), 0
  35. PAINT (748, 160), 0: LINE (205, 529)-(259, 585), 0, BF
  36. LINE (170, 413)-(208, 528), 0, BF: LINE (774, 413)-(807, 528), 0, BF
  37. LINE (807, 413)-(838, 413), 0: LINE (838, 413)-(834, 441), 0
  38. LINE (834, 441)-(830, 463), 0: LINE (830, 463)-(824, 485), 0
  39. LINE (824, 485)-(819, 502), 0: LINE (819, 502)-(813, 517), 0
  40. LINE (813, 517)-(807, 528), 0: PAINT (820, 450), 0: LINE (345, 127)-(346, 184), 0, BF
  41. LINE (132, 356)-(169, 356), 0: LINE (132, 356)-(132, 400), 0: LINE (132, 400)-(134, 426), 0
  42. LINE (134, 426)-(137, 442), 0: LINE (137, 442)-(142, 468), 0: LINE (142, 468)-(153, 504), 0
  43. LINE (153, 504)-(160, 522), 0: LINE (160, 522)-(171, 546), 0: LINE (171, 546)-(183, 568), 0
  44. LINE (183, 568)-(194, 585), 0: LINE (194, 585)-(210, 585), 0: PAINT (200, 580), 0
  45. LINE (132, 384)-(845, 385), 7, B: LINE (490, 295)-(491, 470), 7, B
  46. FOR a = 0 TO 660 STEP 58: LINE (170 + a, 357)-(171 + a, 413), 7, BF: NEXT a
  47. FOR a = 0 TO 5: LINE (243 + a, 641 + a)-(726 - a, 641 + a), 14: NEXT a
  48. LINE (247, 646)-(266, 661), 14: LINE (266, 661)-(286, 675), 14: LINE (286, 675)-(305, 688), 14
  49. LINE (305, 688)-(326, 700), 14: LINE (326, 700)-(361, 714), 14: LINE (361, 714)-(399, 726), 14
  50. LINE (399, 726)-(431, 733), 14: LINE (431, 733)-(466, 736), 14: LINE (466, 736)-(522, 736), 14
  51. LINE (522, 736)-(541, 732), 14: LINE (541, 732)-(573, 726), 14: LINE (573, 726)-(609, 714), 14
  52. LINE (609, 714)-(642, 700), 14: LINE (642, 700)-(669, 684), 14: LINE (669, 684)-(693, 668), 14
  53. LINE (693, 668)-(721, 646), 14: PAINT (660, 660), 14
  54. LINE (458, 641)-(518, 736), 12, BF: LINE (260, 529)-(374, 585), 22, BF: LINE (374, 529)-(488, 585), 24, BF
  55. LINE (488, 529)-(602, 585), 26, BF: LINE (602, 529)-(716, 585), 28, BF: LINE (804, 241)-(808, 241), 9
  56. LINE (808, 241)-(811, 247), 9: LINE (811, 247)-(824, 280), 9
  57. LINE (824, 280)-(832, 315), 9: LINE (832, 315)-(836, 337), 9
  58. LINE (836, 337)-(838, 355), 9: LINE (838, 355)-(800, 355), 9
  59. PAINT (820, 330), 9: LINE (162, 241)-(148, 275), 14: LINE (148, 275)-(141, 300), 14
  60. LINE (141, 300)-(136, 328), 14: LINE (136, 328)-(132, 355), 14
  61. LINE (132, 355)-(168, 355), 14: PAINT (150, 300), 14
  62. LINE (112 + 4, 81)-(157 + 4, 187), 78, BF: LINE (69 + 4, 382)-(111 + 4, 81), 50, BF
  63. LINE (69 + 4, 382)-(111 + 4, 682), 63, BF: LINE (112 + 4, 575)-(157 + 4, 682), 42, BF
  64. LINE (805 + 4, 81)-(850 + 4, 187), 78, BF: LINE (851 + 4, 382)-(893 + 4, 81), 2, BF
  65. LINE (851 + 4, 382)-(893 + 4, 682), 79, BF: LINE (805 + 4, 575)-(850 + 4, 682), 42, BF
  66. FOR a = 25 TO 1024 STEP 92
  67.     LINE (a + 3, 0)-(44 + a, 8), 0, BF: LINE (a - 44, 0)-(44 + a - 44, 8), 15, BF
  68.     LINE (a + 3, 759)-(44 + a, 768), 0, BF: LINE (a - 44, 759)-(44 + a - 44, 768), 15, BF
  69. FOR e = 0 TO 769 STEP 2
  70.     LINE (0, e)-(972, e), 0
  71.  
  72. IF Colorchoice = 0 THEN FOR v = 1 TO 100: _PALETTECOLOR v, _RGB32(v * 14, v * 14, v * 14): NEXT v
  73. IF Colorchoice = 1 THEN PALETTE
  74.  
  75. h& = _SNDOPEN("bckmus.mp3")
  76.     k2$ = INKEY$
  77.     IF k2$ <> "" THEN _SNDPAUSE h&: GOTO begin:
* bckmus.mp3 (Filesize: 8.34 MB, Downloads: 236)
* testbld4.bas (Filesize: 4.94 KB, Downloads: 224)

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Test card
« Reply #8 on: December 24, 2020, 08:06:57 pm »
verry cool!
Also the music!
Programming isn't difficult, only it's  consuming time and coffee

Offline SquirrelMonkey

  • Newbie
  • Posts: 29
  • Youtuber and GIPHY artist
    • View Profile
    • Joluijten.com
Re: Test card
« Reply #9 on: December 24, 2020, 11:57:32 pm »
verry cool!
Also the music!

Thanks! The music is from the Youtube Audio Library and it's free.

Offline STxAxTIC

  • Library Staff
  • Forum Resident
  • Posts: 1091
  • he lives
    • View Profile
Re: Test card
« Reply #10 on: December 24, 2020, 11:59:40 pm »
By the way @SquirrelMonkey - just looking at your channel... BIG kudos for keeping things real with Weird Paul. One of the most genuine and clean-natured people on the Internet, ever.

(Christmas day in 20 seconds... 11:59pm)
You're not done when it works, you're done when it's right.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Test card
« Reply #11 on: December 28, 2020, 04:14:03 pm »
Very cool test card! There were many different ones back in the day, like the Native American one, and later in the 80's it was just the color bars.