Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SquirrelMonkey on December 21, 2020, 02:34:36 pm

Title: Test card
Post by: SquirrelMonkey 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
Title: Re: Test card
Post by: bplus on December 21, 2020, 03:16:45 pm
Yeah, I haven't seen that guy since the 60's ;-))

Welcome to the forum!
Title: Re: Test card
Post by: SquirrelMonkey on December 21, 2020, 03:52:45 pm
Quote from: bplus on December 21, 2020, 03:16:45 pm
Yeah, I haven't seen that guy since the 60's ;-))

Welcome to the forum!

Thank you!
Title: Re: Test card
Post by: TempodiBasic 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!
Title: Re: Test card
Post by: Adrian on December 22, 2020, 04:43:28 am
very nice! could also add a sustained "beeeeeeeeeeeeeeep" sound to go with it!
Title: Re: Test card
Post by: SquirrelMonkey on December 22, 2020, 10:48:14 pm
Quote from: TempodiBasic 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!

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

Thanks! The music is from the Youtube Audio Library and it's free.
Title: Re: Test card
Post by: STxAxTIC 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)
Title: Re: Test card
Post by: SierraKen 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.
Text Only | Text with Attachments