Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - CloudZimmermann

Pages: [1]
1
Programs / Exploration of color palettes in screen mode 0 (text mode) of popular installers
« on: July 16, 2020, 04:30:35 pm »
I had a wonderful time exploring the world of color palettes in screen mode 0 while on my vacation. This collection of programs attempts to recreate the look of several popular installers and setup programs. They are an artistic exploration to rediscover the how and why developers created the final appearance of these programs.

Enjoy!
PS> Thank you [banned user] for sharing your art! It was inspiring and I lost part of my vacation delving into this because of you!

2
Programs / Star Parallax Screensavers (Vertical / Horizontal)
« on: May 16, 2020, 05:00:30 pm »
Programs: Star Parallax Screensavers (Vertical / Horizontal)
Created: May 16th, 2020
Creator: Cloud Zimmermann



Code: QB64: [Select]
  1. ' Program: Star Parallax Screensaver (Vertical)
  2. ' Created: May 16th, 2020
  3. ' Creator: Cloud Zimmermann
  4.  
  5. SCREEN 7, 1, 0, 1
  7.  
  8. CONST screenWidth% = 320
  9. CONST screenHeight% = 200
  10. CONST count% = 200
  11. DIM SHARED stars%(count%, 5)
  12.  
  13. FOR i% = 1 TO count% - 1
  14.     CALL resetStar(i%, 1)
  15. NEXT i%
  16.  
  18.     CLS
  19.     FOR i% = 1 TO count% - 1
  20.         IF stars%(i%, 2) > screenHeight% THEN
  21.             CALL resetStar(i%, 0)
  22.         ELSE
  23.             stars%(i%, 2) = stars%(i%, 2) + stars%(i%, 3)
  24.         END IF
  25.         PSET (stars%(i%, 1), stars%(i%, 2)), stars%(i%, 4)
  26.     NEXT i%
  27.     PCOPY 0, 1
  28.     _LIMIT 60
  30.  
  31. SUB resetStar (starSelected%, init%)
  32.     IF init% = 1 THEN
  33.         stars%(starSelected%, 2) = INT(RND * screenHeight%) + 1
  34.     ELSE
  35.         stars%(starSelected%, 2) = 1
  36.     END IF
  37.  
  38.     stars%(starSelected%, 1) = INT(RND * screenWidth%) + 1
  39.     stars%(starSelected%, 3) = INT(RND * 3) + 1
  40.  
  41.     SELECT CASE INT(RND * 3) + 1
  42.         CASE 1
  43.             stars%(starSelected%, 4) = 15
  44.         CASE 2
  45.             stars%(starSelected%, 4) = 7
  46.         CASE ELSE
  47.             stars%(starSelected%, 4) = 8
  48.     END SELECT
  49.  
  51.  

Code: QB64: [Select]
  1. ' Program: Star Parallax Screensaver (Horizontal)
  2. ' Created: May 16th, 2020
  3. ' Creator: Cloud Zimmermann
  4.  
  5. SCREEN 7, 1, 0, 1
  7.  
  8. CONST screenWidth% = 320
  9. CONST screenHeight% = 200
  10. CONST count% = 200
  11. DIM SHARED stars%(count%, 5)
  12.  
  13. FOR i% = 1 TO count% - 1
  14.     CALL resetStar(i%, 1)
  15. NEXT i%
  16.  
  18.     CLS
  19.     FOR i% = 1 TO count% - 1
  20.         IF stars%(i%, 1) > screenWidth% THEN
  21.             CALL resetStar(i%, 0)
  22.         ELSE
  23.             stars%(i%, 1) = stars%(i%, 1) + stars%(i%, 3)
  24.         END IF
  25.         PSET (stars%(i%, 1), stars%(i%, 2)), stars%(i%, 4)
  26.     NEXT i%
  27.     PCOPY 0, 1
  28.     _LIMIT 60
  30.  
  31. SUB resetStar (starSelected%, init%)
  32.     IF init% = 1 THEN
  33.         stars%(starSelected%, 1) = INT(RND * screenWidth%) + 1
  34.     ELSE
  35.         stars%(starSelected%, 1) = 1
  36.     END IF
  37.  
  38.     stars%(starSelected%, 2) = INT(RND * screenHeight%) + 1
  39.     stars%(starSelected%, 3) = INT(RND * 3) + 1
  40.  
  41.     SELECT CASE INT(RND * 3) + 1
  42.         CASE 1
  43.             stars%(starSelected%, 4) = 15
  44.         CASE 2
  45.             stars%(starSelected%, 4) = 7
  46.         CASE ELSE
  47.             stars%(starSelected%, 4) = 8
  48.     END SELECT
  49.  
  51.  

3
Programs / Stars w/ Time Screensaver
« on: May 15, 2020, 03:11:36 pm »
Program: Stars w/ Time Screensaver
Creator:  Cloud Zimmermann
Date:      1/7/2020

Code: QB64: [Select]
  1. ' Program: Stars w/ Time
  2. ' Creator: Cloud Zimmermann
  3. ' Created: 1/7/2020
  4.  
  5. DECLARE SUB DrawDigit (d AS INTEGER, p AS INTEGER, x AS INTEGER, y AS INTEGER)
  6. DECLARE SUB DrawClock (clock AS ANY)
  8. SCREEN 7, 0, 0, 1
  9.  
  10. quit% = 0
  11.  
  12. TYPE StarType
  13.     x AS INTEGER
  14.     y AS INTEGER
  15.     z AS INTEGER
  16.     c AS INTEGER
  18.  
  19. TYPE ClockType
  20.     x AS INTEGER
  21.     y AS INTEGER
  22.     t AS STRING * 12
  23.     c AS INTEGER
  24.     dx AS INTEGER
  25.     dy AS INTEGER
  27.  
  28. DIM clock AS ClockType
  29. clock.x = 5
  30. clock.y = 5
  31. clock.c = 8
  32. clock.dx = 1
  33. clock.dy = 1
  34.  
  35. count% = 30
  36.  
  37. DIM Star(1 TO count%) AS StarType
  38.  
  40. FOR i% = 1 TO count%
  41.     Star(i%).x = INT(RND * 320) + 1
  42.     Star(i%).y = INT(RND * 200) + 1
  43.     Star(i%).z = INT(RND * 4) + INT(RND * 1) + 1
  44.     Star(i%).c = INT(RND * 16) + 1
  45. NEXT i%
  46.  
  47.  
  48.  
  49. WHILE quit% = 0
  50.     CLS
  51.     IF INKEY$ <> "" THEN quit% = 1
  52.  
  53.     FOR i% = 1 TO count%
  54.         Star(i%).y = Star(i%).y + Star(i%).z
  55.         PSET (Star(i%).x, Star(i%).y), Star(i%).c
  56.         IF Star(i%).y > 200 THEN Star(i%).y = Star(i%).y - 200
  57.     NEXT i%
  58.  
  59.     'LOCATE 5, 5: COLOR 3
  60.     'PRINT TIME$
  61.  
  62.     CALL DrawClock(clock)
  63.  
  64.     PCOPY 0, 1
  65.     _LIMIT 60
  66.  
  68.  
  69. SUB DrawClock (clock AS ClockType)
  70.     clock.x = clock.x + clock.dx
  71.     clock.y = clock.y + clock.dy
  72.  
  73.     tmp$ = TIME$
  74.     FOR pointer% = 1 TO LEN(tmp$)
  75.         digit% = VAL(MID$(tmp$, pointer%, 1))
  76.         CALL DrawDigit(digit%, pointer%, clock.x, clock.y)
  77.     NEXT pointer%
  78.  
  79.     'PSET (clock.x, clock.y), clock.c
  80.  
  81.     IF clock.x <= 0 OR clock.x >= 320 - 46 THEN clock.dx = -clock.dx
  82.     IF clock.y <= 0 OR clock.y >= 200 - 6 THEN clock.dy = -clock.dy
  84.  
  85. SUB DrawDigit (d AS INTEGER, p AS INTEGER, x AS INTEGER, y AS INTEGER)
  86.     tmp$ = "BC11M" + STR$(x) + "," + STR$(y) + " BM+" + STR$(5 * p) + ",0"
  87.     IF d = 1 THEN tmp$ = tmp$ + "BM+3,0D4"
  88.     IF d = 2 THEN tmp$ = tmp$ + "R3D2L3D2R3"
  89.     IF d = 3 THEN tmp$ = tmp$ + "R3D2L3R3D2L3"
  90.     IF d = 4 THEN tmp$ = tmp$ + "D2R3U2D4"
  91.     IF d = 5 THEN tmp$ = tmp$ + "BM+3,0L3D2R3D2L3"
  92.     IF d = 6 THEN tmp$ = tmp$ + "BM+3,0L3D4R3U2L3"
  93.     IF d = 7 THEN tmp$ = tmp$ + "R3D4"
  94.     IF d = 8 THEN tmp$ = tmp$ + "R3D4L3U4D2R3"
  95.     IF d = 9 THEN tmp$ = tmp$ + "R3L3D2R3U2D4"
  96.     IF d = 0 THEN tmp$ = tmp$ + "R3D4L3U4"
  97.     DRAW tmp$
  99.  

4
Programs / Solar System Screensaver
« on: May 13, 2020, 10:56:54 am »
Program: Solar System Screensaver
Creator:  Cloud Zimmermann
Date:      1/13/2018

Code: QB64: [Select]
  1. 'Program: Solar System Screensaver
  2. 'Creator:  Cloud Zimmermann
  3. 'Date:      1/13/2018
  4.  
  5. RANDOMIZE TIMER 'set the seed of the randomizer to the current number of seconds since midnight
  6. SCREEN 7, 1, 0, 1 'use screen 7 mode (320x200 @256 colors with 7 pages of memory), use color mode, set memory page as 0 for drawing, and set memory page 1 as the selected
  7.  
  8. CONST SCREEN_WIDTH = 320
  9. CONST SCREEN_HEIGHT = 200
  10.  
  11. CONST sphere_count = 4
  12. CONST star_count = 100
  13.  
  14. DIM angle AS SINGLE
  15.  
  16. ' data type for all spheres (suns, planets, gas giants, moons, satellites, ect)
  17. TYPE sphere
  18.     cordinateX AS SINGLE 'x
  19.     cordinateY AS SINGLE 'y
  20.     cordinateZ AS SINGLE 'z
  21.     radius AS INTEGER 'radius of circle
  22.     color AS INTEGER '0 to 16
  23.     rotation_offset AS SINGLE 'saved as degrees
  24.     parent AS INTEGER ' relationship
  25.     direction AS INTEGER ' clockwise or counter-clockwise
  26.     angular_velocity AS SINGLE ' allow for different rotation speeds
  28. DIM spheres(sphere_count) AS sphere
  29.  
  30. 'sample data
  31. spheres(0).radius = 5
  32. spheres(0).parent = -1
  33. spheres(0).direction = 1
  34. spheres(0).color = 11
  35. spheres(0).angular_velocity = .25
  36.  
  37. spheres(1).radius = 2
  38. spheres(1).parent = 0
  39. spheres(1).direction = 1
  40. spheres(1).color = 12
  41. spheres(1).angular_velocity = 4
  42.  
  43. spheres(2).radius = 3.3
  44. spheres(2).parent = -1
  45. spheres(2).rotation_offset = 60
  46. spheres(2).direction = 1
  47. spheres(2).color = 13
  48. spheres(2).angular_velocity = 1
  49.  
  50.  
  51. spheres(3).radius = 4
  52. spheres(3).parent = -1
  53. spheres(3).rotation_offset = 180
  54. spheres(3).direction = -1
  55. spheres(3).color = 14
  56. spheres(3).angular_velocity = 2
  57.  
  58.  
  59. spheres(4).radius = 6
  60. spheres(4).parent = -1
  61. spheres(4).rotation_offset = -300
  62. spheres(4).direction = 1
  63. spheres(4).color = 6
  64. spheres(4).angular_velocity = 1.3
  65.  
  66. TYPE star
  67.     x AS INTEGER
  68.     y AS INTEGER
  69.     c AS INTEGER
  71. DIM stars(star_count) AS star
  72.  
  73. FOR i% = 0 TO star_count
  74.     stars(i%).x = (RND * 320) + 1
  75.     stars(i%).y = (RND * 200) + 1
  76.     stars(i%).c = (RND * 1) + 7
  77. NEXT i%
  78.  
  79.  
  80. ' main loop
  82.     ' draw background
  83.     FOR i% = 0 TO star_count
  84.         PSET (stars(i%).x, stars(i%).y), stars(i%).c
  85.     NEXT i%
  86.  
  87.     COLOR 15 'set color as WHITE for text/graphics
  88.     LOCATE 3, 17 'set text cursor to x,y
  89.     PRINT TIME$ ' print the current time
  90.  
  91.     'LOCATE 5, 17
  92.     'PRINT angle
  93.  
  94.     ' draw the sun
  95.     COLOR 14
  96.     CIRCLE (SCREEN_WIDTH / 2, SCREEN_HEIGHT / 2), 10, , , , 1
  97.     PAINT STEP(0, 0), 14, 14
  98.  
  99.     ' update the global rotation angle
  100.     angle = angle + 0.01
  101.     IF angle > 360 THEN angle = 0
  102.  
  103.     FOR i% = 0 TO sphere_count
  104.  
  105.         ' does this sphere have a parent?
  106.         IF spheres(i%).parent <> -1 THEN
  107.  
  108.             ' draw path of the orbit near the parent
  109.             COLOR 2 '0 is black, 2 is green, 7 is light gray, 8 is dark gray, 15 is white
  110.             CIRCLE (spheres(spheres(i%).parent).cordinateX, spheres(spheres(i%).parent).cordinateY), 8 * spheres(i%).radius, , , , 1 ' draw circle(x,y),radius,,,,aspect ratio
  111.  
  112.             ' calculate the position of the sphere near the parent
  113.             x = (spheres(spheres(i%).parent).cordinateX) + (COS(angle * spheres(i%).angular_velocity + spheres(i%).rotation_offset) * (8 * spheres(i%).radius))
  114.             y = (spheres(spheres(i%).parent).cordinateY) + (SIN(angle * spheres(i%).angular_velocity + spheres(i%).rotation_offset) * (8 * spheres(i%).radius))
  115.             r = spheres(i%).radius
  116.  
  117.         ELSE
  118.  
  119.             ' draw path of orbit
  120.             'COLOR INT(RND * 6) + 1 ' change the color from 1 to 6 (out of 16 possible)
  121.             COLOR 2
  122.             CIRCLE (SCREEN_WIDTH / 2, SCREEN_HEIGHT / 2), SCREEN_HEIGHT / spheres(i%).radius, , , , 1 ' draw circle(x,y),radius,,,,aspect ratio
  123.  
  124.             ' calculate the position of the sphere
  125.             x = (SCREEN_WIDTH / 2) + (COS(spheres(i%).direction * angle * spheres(i%).angular_velocity + spheres(i%).rotation_offset) * (SCREEN_HEIGHT / spheres(i%).radius))
  126.             y = (SCREEN_HEIGHT / 2) + (SIN(spheres(i%).direction * angle * spheres(i%).angular_velocity + spheres(i%).rotation_offset) * (SCREEN_HEIGHT / spheres(i%).radius))
  127.             r = spheres(i%).radius
  128.         END IF
  129.  
  130.         ' save the position of the sphere (for the children)
  131.         spheres(i%).cordinateX = x
  132.         spheres(i%).cordinateY = y
  133.  
  134.         ' draw sphere
  135.         COLOR spheres(i%).color '11 '10
  136.         CIRCLE (x, y), r, , , , 1
  137.         PAINT STEP(0, 0), spheres(i%).color, spheres(i%).color
  138.  
  139.     NEXT i%
  140.  
  141.  
  142.     PCOPY 0, 1 'copy/flip the video memory page from 0 to 1 (so we can see what we have drawn without watching the drawing itself)
  143.     CLS
  144.     _LIMIT (60) 'qb64: limit to 60 loops per second
  145.  
  147.  

Pages: [1]