« previous next »
Pages: [1]   Go Down

Author Topic: Test card  (Read 6019 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
Logged

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!
Logged

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 »
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!
Logged

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!
Logged
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!
Logged

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 »
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:
Logged

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 »
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:
Logged

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:
  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:
* bckmus.mp3 (Filesize: 8.34 MB, Downloads: 244)
* testbld4.bas (Filesize: 4.94 KB, Downloads: 233)
Logged

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!
Logged
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 »
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.
Logged

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)
Logged
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.
Logged
Pages: [1]   Go Up
« previous next »