« previous next »
Pages: [1]   Go Down

Author Topic: Merry X-mas 2019!  (Read 4125 times)

0 Members and 1 Guest are viewing this topic.

FellippeHeitor

  • Guest
Merry X-mas 2019!
« on: December 23, 2019, 09:23:50 am »
 [ You are not allowed to view this attachment ]  
Code: QB64: [Select]
  1. TYPE star
  2.     x AS SINGLE
  3.     y AS SINGLE
  4.     size AS SINGLE
  5.     life AS INTEGER
  6.     maxlife AS INTEGER
  7.     lifeStep AS _BYTE
  9.  
  10. DIM stars(1000) AS star
  11. DIM canvas AS LONG
  12.  
  13. 'RANDOMIZE TIMER
  14.  
  15. GOSUB setMsg
  16.  
  17. canvas = _NEWIMAGE(800, 600, 32)
  18.  
  19. SCREEN canvas
  20.  
  21. _TITLE "Merry X-mas 2019!"
  23.  
  24. 'sky
  25. FOR i = 0 TO 800 STEP 15
  26.     CircleFill 0, 500, i, _RGB32(0, 0, 100, 10)
  28.  
  29. 'big star glow
  30. FOR i = 200 TO 280 STEP 10
  31.     EllipseFill 600, i, map(i, 200, 280, 80, 100), 150, _RGB32(0, 0, 100, 15)
  33.  
  34. 'big star
  35. FOR i = 0 TO 720 STEP _PI(.5)
  36.     LINE (600, 200)-(600 + COS(_D2R(i)) * (RND * 60), 200 + SIN(_D2R(i)) * (RND * 60)), _RGB32(255, map(i, 0, 720, 0, 80))
  38.  
  39. 'mountain range
  41.     LINE (i, 480 + COS(_D2R(i)) * 5)-(i + _WIDTH / 3, _HEIGHT), _RGB32(0, 0, 40, map(i, -_WIDTH, _WIDTH, 0, 20))
  43.  
  44. 'snow
  45. FOR i = 0 TO _WIDTH STEP .1
  46.     LINE (i, 500 + COS(_D2R(i)) * 5)-(i + _WIDTH / 3, _HEIGHT), _RGB32(255, map(i, 0, _WIDTH, 0, 10))
  48.  
  49. 'trees
  50. FOR t = 1 TO 4 + _CEIL(RND * 10)
  51.     x = 350 + RND * 450
  52.     h1 = _HEIGHT - RND * 80
  53.     h2 = h1 - (50 + RND * 50)
  54.     m = 30
  55.     FOR i = h1 TO h2 STEP -1
  56.         FOR j = 180 TO 360
  57.             LINE (x, i)-(x + COS(_D2R(j)) * RND * map(i, h1, h2, RND * m, 1), i + SIN(_D2R(j)) * RND * map(i, h1, h2, m, 1)), _RGB32(0, RND * m, 0, RND * 100)
  58.         NEXT
  59.     NEXT
  60.  
  61.     m = m + 30
  62.     FOR i = h1 TO h2 STEP -1
  63.         FOR j = 180 TO 360 STEP 30
  64.             LINE (x, i)-(x + COS(_D2R(j)) * RND * map(i, h1, h2, RND * m, 1), i + SIN(_D2R(j)) * RND * map(i, h1, h2, m, 1)), _RGB32(0, RND * m, 0, RND * 100)
  65.         NEXT
  66.     NEXT
  68.  
  69. 'create stars
  70. FOR i = 0 TO UBOUND(stars)
  71.     stars(i).x = RND * _WIDTH
  72.     stars(i).y = RND * (_HEIGHT - 120)
  73.     stars(i).size = RND
  74.     IF stars(i).x - stars(i).size <= 0 THEN stars(i).x = stars(i).x + stars(i).size
  75.     IF stars(i).x + stars(i).size >= _WIDTH THEN stars(i).x = stars(i).x - stars(i).size
  76.     stars(i).life = RND * 30
  77.     stars(i).maxlife = 20 + RND * 180
  78.     stars(i).lifeStep = 1
  80.  
  81. bg = _COPYIMAGE(0)
  82. logo$ = "internal/source/qb64icon32.png"
  84.     qb64logo = _LOADIMAGE(logo$)
  86.  
  88.  
  89. ml = INSTR(ml + 1, msg$, CHR$(32))
  91.     CLS
  92.     _PUTIMAGE , bg
  93.     FOR i = 0 TO UBOUND(stars)
  94.         CircleFill stars(i).x, stars(i).y, stars(i).size, _RGB32(map(stars(i).life, 0, stars(i).maxlife, 0, 255), map(stars(i).life, 0, stars(i).maxlife, 0, 80))
  95.         stars(i).life = stars(i).life + stars(i).lifeStep
  96.         IF stars(i).life > stars(i).maxlife OR stars(i).life < 0 THEN
  97.             stars(i).lifeStep = stars(i).lifeStep * -1
  98.         END IF
  99.     NEXT
  100.     IF qb64logo < -1 THEN _PUTIMAGE (_WIDTH - 50, _HEIGHT - 50), qb64logo
  101.  
  102.     IF ml = 0 AND startpause = 0 THEN
  103.         IF startpause = 0 THEN startpause = TIMER
  104.         DRAW msg$
  105.     ELSEIF ml = 0 AND startpause > 0 THEN
  106.         DRAW msg$
  107.         IF TIMER - startpause > 3 THEN
  108.             startpause = 0
  109.             ml = INSTR(ml + 1, msg$, CHR$(32))
  110.         END IF
  111.     ELSE
  112.         DRAW LEFT$(msg$, ml)
  113.         ml = INSTR(ml + 1, msg$, CHR$(32))
  114.     END IF
  115.  
  116.     _DISPLAY
  117.     _LIMIT 60
  119.  
  120. oops:
  122.  
  123. setMsg:
  124. msg$ = "B C4294967295 M43,260 M43,261 M43,261 M44,261 M44,261 M46,260 M46,260 M60,249"
  125. msg$ = msg$ + "M60,249 M62,247 M62,247 M63,245 M64,242 M65,240 M65,240 M68,232 M68,232 M68,231"
  126. msg$ = msg$ + "M68,231 M69,229 M69,229 M69,231 M69,231 M69,234 M69,234 M69,236 M69,236 M71,245"
  127. msg$ = msg$ + "M71,245 M71,250 M71,250 M71,251 M71,251 M71,253 M71,254 M72,258 M72,258 M72,261"
  128. msg$ = msg$ + "M72,261 M72,264 M72,264 M74,274 M74,274 M74,275 M74,276 M75,280 M75,280 M75,282"
  129. msg$ = msg$ + "M75,283 M76,289 M76,289 M76,293 M76,293 M77,293 M77,293 M77,292 M77,292 M80,286"
  130. msg$ = msg$ + "M80,286 M82,282 M82,282 M84,277 M84,277 M86,272 M86,272 M88,265 M88,265 M90,259"
  131. msg$ = msg$ + "M90,259 M91,256 M92,251 M93,246 M93,246 M95,232 M95,232 M97,222 M97,222 M97,221"
  132. msg$ = msg$ + "M97,221 M97,220 M97,220 M97,217 M97,217 M97,216 M97,216 M98,221 M98,221 M98,224"
  133. msg$ = msg$ + "M98,228 M100,240 M100,240 M100,242 M100,242 M104,260 M104,260 M105,266 M105,266"
  134. msg$ = msg$ + "M105,269 M105,269 M107,276 M107,276 M108,274 M108,274 M110,273 M110,273 M114,267"
  135. msg$ = msg$ + " M115,265 M116,262 M116,262 M122,246 M122,246 M123,241 M123,241 M123,239 M123,"
  136. msg$ = msg$ + "239 M124,225 M124,225 M124,222 M124,222 M124,219 M124,219 M124,217 M124,217 M125"
  137. msg$ = msg$ + ",213 M125,213 M125,208 M125,208 M126,205 M126,205 M126,202 M126,202 M126,200"
  138. msg$ = msg$ + "M126,200 M127,201 M127,201 M127,204 M127,208 M127,212 M127,212 M129,227 M129,227"
  139. msg$ = msg$ + " M129,229 M129,233 M130,234 M130,234 M131,242 M131,242 M132,251 M132,251 M133,"
  140. msg$ = msg$ + "251 M133,251 M135,255 M135,255 M137,258 M137,258 M138,258 M138,258 M141,259 M141"
  141. msg$ = msg$ + ",259 M142,260 M142,260 M148,260 M148,260 M156,258 M156,258 M159,257 M159,257"
  142. msg$ = msg$ + "M161,255 M161,255 M170,247 M170,247 M171,244 M171,244 M173,240 M173,240 M173,238"
  143. msg$ = msg$ + " M173,238 M175,229 M175,229 M175,228 M175,228 M175,227 M175,227 M173,224 M173,"
  144. msg$ = msg$ + "224 M171,222 M171,222 M170,222 M170,222 M169,223 M169,223 M168,227 M168,227 M168"
  145. msg$ = msg$ + ",228 M168,228 M170,234 M170,234 M170,235 M171,238 M172,241 M172,241 M175,245"
  146. msg$ = msg$ + "M175,245 M177,248 M177,248 M178,248 M178,248 M183,249 M183,249 M189,245 M190,244"
  147. msg$ = msg$ + " M192,240 M192,240 M194,226 M194,226 M194,221 M194,221 M192,216 M192,216 M191,"
  148. msg$ = msg$ + "214 M191,214 M190,213 M190,213 M194,212 M194,212 M197,212 M197,212 M199,211 M199"
  149. msg$ = msg$ + ",211 M199,212 M199,212 M198,215 M198,215 M198,217 M198,217 M198,221 M198,221"
  150. msg$ = msg$ + "M198,222 M198,222 M198,225 M198,225 M199,228 M199,228 M199,229 M199,229 M202,234"
  151. msg$ = msg$ + " M202,234 M205,236 M205,236 M208,238 M208,238 M214,237 M214,237 M217,235 M217,"
  152. msg$ = msg$ + "235 M220,231 M220,231 M220,225 M220,225 M219,216 M219,216 M216,208 M216,208 M212"
  153. msg$ = msg$ + ",201 M212,201 M205,197 M205,197 M203,196 M203,196 M204,198 M204,198 M205,198"
  154. msg$ = msg$ + "M208,198 M215,199 M215,199 M218,199 M218,199 M222,199 M222,199 M223,203 M223,203"
  155. msg$ = msg$ + " M223,205 M223,205 M224,211 M224,211 M227,218 M227,218 M228,218 M228,218 M234,"
  156. msg$ = msg$ + "221 M235,221 M236,221 M236,221 M240,216 M240,216 M242,208 M242,205 M243,202 M243"
  157. msg$ = msg$ + ",202 M242,190 M242,190 M242,189 M242,189 M242,188 M242,188 M242,190 M242,190"
  158. msg$ = msg$ + "M243,196 M243,196 M247,212 M247,212 M250,216 M250,216 M256,211 M256,211 M262,203"
  159. msg$ = msg$ + " M262,203 M263,173 M263,173 M262,171 M262,171 M262,170 M262,170 M262,172 M262,"
  160. msg$ = msg$ + "172 M263,181 M263,181 M268,202 M268,202 M273,219 M273,219 M278,235 M278,235 M284"
  161. msg$ = msg$ + ",266 M284,266 M283,272 M283,272 M280,277 M280,277 M279,277 M279,277 M272,264"
  162. msg$ = msg$ + "M272,264 M271,257 M271,257 M271,250 M271,250 M274,240 M275,237 M287,217 M287,217"
  163. msg$ = msg$ + " M294,208 M294,208 M302,200 M302,200 M310,192 M310,192 M319,182 M321,180 M333,"
  164. msg$ = msg$ + "161 M333,161 M335,153 M335,153 M335,150 M335,150 M335,149 M335,149 M335,148 M335"
  165. msg$ = msg$ + ",148 B M151,330 M151,331 M151,331 M155,346 M155,346 M163,360 M163,360 M174,367"
  166. msg$ = msg$ + "M174,367 M199,366 M199,366 M210,362 M210,362 M213,360 M213,360 M214,358 B M175,"
  167. msg$ = msg$ + "285 M178,303 M178,303 M181,340 M181,340 M176,408 M176,408 M177,437 M177,437 M177"
  168. msg$ = msg$ + ",438 M177,438 B M211,333 M222,326 M222,326 M227,322 M227,322 M230,320 B M242,292"
  169. msg$ = msg$ + " M243,299 M243,299 M249,316 M249,316 M252,327 M252,327 M253,330 M253,330 M254,"
  170. msg$ = msg$ + "332 M254,332 M254,334 M254,334 M262,322 M263,321 M264,316 M264,316 M268,303 M268"
  171. msg$ = msg$ + ",303 M270,295 M270,295 M272,288 M273,288 M273,286 M273,286 M274,286 M274,286"
  172. msg$ = msg$ + "M275,292 M275,292 M280,308 M280,308 M284,313 M284,313 M285,313 M285,313 M289,303"
  173. msg$ = msg$ + " M289,303 M291,292 M292,289 M293,278 M293,278 M296,269 M296,269 M301,263 M301,"
  174. msg$ = msg$ + "263 M302,261 M302,261 M302,260 M302,260 M303,263 M303,263 M303,274 M303,274 M305"
  175. msg$ = msg$ + ",284 M305,284 M306,290 M306,290 M308,294 M308,294 M313,298 M313,298 M316,298"
  176. msg$ = msg$ + "M316,298 M332,289 M332,289 M337,280 M337,280 M338,280 B M362,236 M362,235 M362,"
  177. msg$ = msg$ + "235 M361,233 M361,232 M360,228 M360,228 M358,227 M358,227 M351,227 M351,227 M342"
  178. msg$ = msg$ + ",231 M342,231 M341,232 M341,232 M338,238 M338,238 M338,239 M338,239 M335,252"
  179. msg$ = msg$ + "M335,252 M336,261 M336,261 M337,265 M337,265 M338,266 M338,266 M339,268 M339,268"
  180. msg$ = msg$ + " M340,269 M340,269 M342,270 M342,270 M343,271 M343,271 M346,270 M346,270 M349,"
  181. msg$ = msg$ + "268 M349,268 M353,264 M353,264 M355,260 M355,260 M358,251 M358,251 M359,246 M359"
  182. msg$ = msg$ + ",246 M361,241 M361,241 M362,238 M362,238 M363,233 M363,233 M363,234 M363,234"
  183. msg$ = msg$ + "M361,239 M361,240 M360,244 M360,244 M362,256 M362,256 M364,258 M364,258 M367,258"
  184. msg$ = msg$ + " M367,258 M373,256 M373,256 M377,253 M377,253 M383,244 M383,244 M384,240 M384,"
  185. msg$ = msg$ + "240 M385,239 M385,239 B M380,231 M383,224 M383,224 M386,218 M386,218 M392,204"
  186. msg$ = msg$ + "M392,204 M395,192 M395,192 M396,186 M396,186 M396,185 M396,185 M396,187 M396,187"
  187. msg$ = msg$ + " M398,193 M398,193 M401,198 M401,198 M403,199 M403,199 M414,196 M414,196 M418,"
  188. msg$ = msg$ + "194 M418,194 M418,195 M418,195 M418,204 M418,204 M418,213 M418,213 M416,220 M416"
  189. msg$ = msg$ + ",220 M415,223 M414,224 M413,227 M413,227 M406,233 M406,233 M403,234 M403,234"
  190. msg$ = msg$ + "M402,234 M402,234 M401,231 M401,231 M400,229 M400,229 M400,225 M400,225 M404,216"
  191. msg$ = msg$ + " M404,216 M407,212 M407,211 M408,207 M408,207 M408,206 M408,206 B M429,100 M430,"
  192. msg$ = msg$ + "101 M430,101 M430,102 M430,102 M430,130 M430,130 M430,132 M430,132 M429,166 M429"
  193. msg$ = msg$ + ",171 M430,182 M430,182 M431,188 M431,188 M431,195 M431,195 M431,200 M431,200"
  194. msg$ = msg$ + "M431,205 M431,205 M431,206 M431,206 M433,206 B M442,219 M441,219 M441,219 M439,"
  195. msg$ = msg$ + "220 M439,220 M437,221 M437,221 M435,224 M435,224 M434,226 M434,226 M434,227 M434"
  196. msg$ = msg$ + ",227 M435,227 M435,227 M439,227 M439,227 M441,227 M441,227 M443,226 M443,226"
  197. msg$ = msg$ + "M444,225 M444,225 M445,223 M445,223 M445,222 M445,222 M444,222 M444,222 M443,222"
  198. msg$ = msg$ + " M443,222 M440,222 M440,222 M439,222 M439,222 M437,223 B M216,441 M266,394 M266,"
  199. msg$ = msg$ + "394 M359,329 M359,329 M385,320 M387,319 M388,318 M388,318 M381,327 M381,327 M303"
  200. msg$ = msg$ + ",406 M303,406 M263,459 M263,459 M261,479 M261,479 M329,430 M329,430 M394,382"
  201. msg$ = msg$ + "M394,382 M424,371 M424,371 M424,372 M424,372 M333,454 M333,454 M408,478 M408,478"
  202. msg$ = msg$ + " M416,494 M415,497 M411,527"
  204.  
  205. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  206.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  208.  
  209. SUB CircleFill (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  210.     ' CX = center x coordinate
  211.     ' CY = center y coordinate
  212.     '  R = radius
  213.     '  C = fill color
  214.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  215.     DIM X AS INTEGER, Y AS INTEGER
  216.     Radius = ABS(R)
  217.     RadiusError = -Radius
  218.     X = Radius
  219.     Y = 0
  220.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  221.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  222.     WHILE X > Y
  223.         RadiusError = RadiusError + Y * 2 + 1
  224.         IF RadiusError >= 0 THEN
  225.             IF X <> Y + 1 THEN
  226.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  227.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  228.             END IF
  229.             X = X - 1
  230.             RadiusError = RadiusError - X * 2
  231.         END IF
  232.         Y = Y + 1
  233.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  234.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  235.     WEND
  237.  
  238. SUB EllipseFill (CX AS INTEGER, CY AS INTEGER, a AS INTEGER, b AS INTEGER, C AS _UNSIGNED LONG)
  239.     ' CX = center x coordinate
  240.     ' CY = center y coordinate
  241.     '  a = semimajor axis
  242.     '  b = semiminor axis
  243.     '  C = fill color
  244.     IF a = 0 OR b = 0 THEN EXIT SUB
  245.     DIM h2 AS _INTEGER64
  246.     DIM w2 AS _INTEGER64
  247.     DIM h2w2 AS _INTEGER64
  248.     DIM x AS INTEGER
  249.     DIM y AS INTEGER
  250.     w2 = a * a
  251.     h2 = b * b
  252.     h2w2 = h2 * w2
  253.     LINE (CX - a, CY)-(CX + a, CY), C, BF
  254.     DO WHILE y < b
  255.         y = y + 1
  256.         x = SQR((h2w2 - y * y * w2) \ h2)
  257.         LINE (CX - x, CY + y)-(CX + x, CY + y), C, BF
  258.         LINE (CX - x, CY - y)-(CX + x, CY - y), C, BF
  259.     LOOP
  261.  
« Last Edit: December 23, 2019, 10:24:11 am by FellippeHeitor »
Logged

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Merry X-mas 2019!
« Reply #1 on: December 23, 2019, 10:17:01 am »
  • Best Answer
    • Hi Great Odin, I claim your intervention  to move this thread in Programs section of the  forum . Too Cool.
    Logged
    Programming isn't difficult, only it's  consuming time and coffee

    Offline bplus

    • Global Moderator
    • Forum Resident
    • Posts: 8053
    • b = b + ...
      • View Profile
    Re: Merry X-mas 2019!
    « Reply #2 on: December 23, 2019, 10:24:14 am »
  • Best Answer
    • Nice one Fellippe, Merry Christmas to All!
    Logged

    FellippeHeitor

    • Guest
    Re: Merry X-mas 2019!
    « Reply #3 on: December 23, 2019, 10:24:55 am »
  • Best Answer
    • @bplus: I was inspired by your generative landscapes of previous years.
    « Last Edit: December 23, 2019, 10:27:26 am by FellippeHeitor »
    Logged

    Offline bplus

    • Global Moderator
    • Forum Resident
    • Posts: 8053
    • b = b + ...
      • View Profile
    Re: Merry X-mas 2019!
    « Reply #4 on: December 23, 2019, 10:29:59 am »
  • Best Answer
    • Ha! yeah I read the writing on the wall :) But your trees and landscape are nice and new to me.

    Fellippe, Oh you edited, I thought you were talking of this from last year:
    Code: QB64: [Select]
    1. _TITLE "Christmas Star Tree" 'B+  2018-11-30
    2.  
    4. CONST xmax = 1280
    5. CONST ymax = 720
    6. COMMON SHARED cN, pR, pG, Plasma AS _UNSIGNED LONG
    7.  
    8. 'for Plasma writing
    9. DIM SHARED maxIndex AS INTEGER
    10. maxIndex = 3200
    11. REDIM SHARED xyDat%(maxIndex, 1)
    12. DIM SHARED cNw, pRw, pGw, pBw, indexP, DOTi
    13. loadPlasmaData
    14. resetPlasmaWrite
    15.  
    16. SCREEN _NEWIMAGE(xmax, ymax, 32)
    18.  
    19. 'begin drawing background stars&
    20. stars& = _NEWIMAGE(xmax, ymax, 32)
    21. _DEST stars&
    22. FOR i = 0 TO ymax - 80 ' sky
    23.     LINE (0, i)-(xmax, i), _RGB32(50, 0, i / ymax * 68)
    25. FOR s = 1 TO 100 ' stars
    26.     c = rand(155, 255)
    27.     COLOR _RGBA32(c, c, c, RND * 100 + 155)
    28.     fcirc RND * xmax, rand(0, 520), rand(0, 3)
    30. FOR i = ymax - 80 TO ymax 'ground
    31.     LINE (0, i)-(xmax, i), _RGB32(50, 30, 20)
    33.  
    34. ' setup for main screen
    36. midx = 400
    37. starCenterY = 30
    38. maxd = ((ymax - starCenterY) ^ 2 + (midx - xmax) ^ 2) ^ .5
    39. ofs = 0
    40. dir = 1
    41. DO WHILE _KEYDOWN(27) = 0 'main loop
    42.  
    43.     'update message
    44.     _DEST stars&
    45.     changePlasmaWrite
    46.     DOTi = DOTi + 2
    47.     IF DOTi <= indexP THEN fcirc xyDat%(DOTi, 0), xyDat%(DOTi, 1), 10
    48.  
    49.     'show update
    50.     _DEST 0
    51.     _PUTIMAGE , stars&, 0
    52.  
    53.     'main star over tree
    54.     resetPlasma
    55.     FOR a = 0 TO _PI(2) STEP _PI(1 / 36)
    56.         IF a = 0 THEN
    57.             lastx = midx + maxd * COS(a)
    58.             lasty = starCenterY + maxd * SIN(a)
    59.         ELSE
    60.             x1 = midx + maxd * COS(a)
    61.             y1 = starCenterY + maxd * SIN(a)
    62.             changePlasma
    63.             ftri midx, starCenterY, lastx, lasty, x1, y1, Plasma
    64.             lastx = x1: lasty = y1
    65.         END IF
    66.     NEXT
    67.     FOR R = 25 TO 0 STEP -1
    68.         COLOR _RGBA(255, 255, 205, (25 - R) ^ 2 / 2.5)
    69.         fcirc midx, starCenterY, R
    70.     NEXT
    71.  
    72.     'tree
    73.     stepper = stepper + dir
    74.     IF stepper > 75 THEN dir = dir * -1: stepper = 75
    75.     IF stepper < 14 THEN dir = dir * -1: stepper = 14
    76.     FOR y = 80 TO ymax - 20 STEP stepper
    77.         star midx, y, 5 + .1 * y, 15 + .5 * y, 6, ofs + _PI(y / 720)
    78.     NEXT
    79.     _DISPLAY
    80.     ofs = ofs + _PI(1 / 36)
    81.     IF ofs > _PI(2) THEN ofs = 0
    82.     _LIMIT 8
    84.  
    85. SUB changePlasma ()
    86.     cN = cN + 1
    87.     Plasma = _RGBA(200 + 56 * SIN(pR * cN), 200 + 56 * SIN(pG * cN), 128, RND * 64 + 30)
    89.  
    90. SUB resetPlasma ()
    91.     pR = RND ^ 2: pG = RND ^ 2
    93.  
    94. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
    95.     a& = _NEWIMAGE(1, 1, 32)
    96.     _DEST a&
    97.     PSET (0, 0), K
    98.     _DEST 0
    99.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
    100.     _FREEIMAGE a& '<<< this is important!
    102.  
    103. SUB fatLine (x1, y1, x2, y2)
    104.     stepx = x2 - x1: stepy = y2 - y1
    105.     length = INT((stepx ^ 2 + stepy ^ 2) ^ .5)
    106.     IF length THEN
    107.         dx = stepx / length: dy = stepy / length
    108.         FOR i = 0 TO length
    109.             CIRCLE (x1 + dx * i, y1 + dy * i), 5
    110.         NEXT
    111.     END IF
    113.  
    114. SUB star (x, y, rInner, rOuter, nPoints, angleOffset)
    115.     ' x, y are same as for circle,
    116.     ' rInner is center circle radius
    117.     ' rOuter is the outer most point of star
    118.     ' nPoints is the number of points,
    119.     ' angleOffset = angle offset in radians
    120.     ' this is to allow us to spin the star
    121.  
    122.     'modified a bit for stacking up a tree
    123.  
    124.     DIM ar(INT(nPoints) * 4 + 3) 'add two for origin
    125.     pAngle = _PI(2) / nPoints: radAngleOffset = angleOffset - _PI(1 / 2)
    126.     x1 = x + rOuter * COS(radAngleOffset)
    127.     y1 = y + .2 * rOuter * SIN(radAngleOffset)
    128.     idx = 4
    129.     FOR i = 0 TO nPoints - 1
    130.         x2 = x + rInner * COS(i * pAngle + radAngleOffset + .5 * pAngle)
    131.         y2 = y + .2 * rInner * SIN(i * pAngle + radAngleOffset + .5 * pAngle)
    132.         COLOR _RGB32(rand(0, 40), rand(40, 120), rand(0, 35))
    133.         fatLine x1, y1, x2, y2
    134.         x1 = x2
    135.         y1 = y2
    136.         x2 = x + rOuter * COS((i + 1) * pAngle + radAngleOffset)
    137.         y2 = y + .2 * rOuter * SIN((i + 1) * pAngle + radAngleOffset)
    138.         COLOR _RGB32(rand(0, 40), rand(40, 120), rand(0, 35))
    139.         fatLine x1, y1, x2, y2
    140.         x1 = x2
    141.         y1 = y2
    142.     NEXT
    144.  
    145. FUNCTION rand% (lo%, hi%)
    146.     rand% = INT(RND * (hi% - lo% + 1)) + lo%
    148.  
    149. SUB fcirc (CX AS LONG, CY AS LONG, R AS LONG)
    150.     DIM subRadius AS LONG, RadiusError AS LONG
    151.     DIM X AS LONG, Y AS LONG
    152.  
    153.     subRadius = ABS(R)
    154.     RadiusError = -subRadius
    155.     X = subRadius
    156.     Y = 0
    157.  
    158.     IF subRadius = 0 THEN PSET (CX, CY): EXIT SUB
    159.  
    160.     ' Draw the middle span here so we don't draw it twice in the main loop,
    161.     ' which would be a problem with blending turned on.
    162.     LINE (CX - X, CY)-(CX + X, CY), , BF
    163.  
    164.     WHILE X > Y
    165.         RadiusError = RadiusError + Y * 2 + 1
    166.         IF RadiusError >= 0 THEN
    167.             IF X <> Y + 1 THEN
    168.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), , BF
    169.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), , BF
    170.             END IF
    171.             X = X - 1
    172.             RadiusError = RadiusError - X * 2
    173.         END IF
    174.         Y = Y + 1
    175.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), , BF
    176.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), , BF
    177.     WEND
    179.  
    180. 'separatePlasma for writing than main star
    181. SUB changePlasmaWrite ()
    182.     cNw = cNw + .5
    183.     COLOR _RGB(127 + 127 * SIN(pRw * cNw), 127 + 127 * SIN(pGw * cNw), 127 + 127 * SIN(pBw * cNw))
    185.  
    186. SUB resetPlasmaWrite ()
    187.     pRw = RND ^ 2: pGw = RND ^ 2: pBw = RND ^ 2
    189.  
    190. SUB loadPlasmaData
    191.     indexP = 0
    192.     WHILE dx <> 9999
    193.         READ dx, dy
    194.         IF dx <> 9999 THEN xyDat%(indexP, 0) = dx: xyDat%(indexP, 1) = dy: indexP = indexP + 1
    195.     WEND
    197.  
    198. DATA 877,65,877,65,877,65,877,65,877,65,877,67,877,70,877,74,877,79,878,85
    199. DATA 878,89,878,95,879,100,881,105,881,111,881,116,882,120,882,122,883,126,883,131
    200. DATA 883,135,883,140,883,144,883,148,883,153,883,159,883,164,883,166,883,177,883,179
    201. DATA 883,183,883,188,884,191,884,194,884,197,884,201,884,203,884,205,884,207,884,208
    202. DATA 884,210,884,211,883,211,883,211,878,211,874,211,859,210,853,210,843,210,840,210
    203. DATA 828,211,824,211,817,211,806,210,799,209,797,208,795,207,795,207,795,207,795,207
    204. DATA 795,207,795,207,795,207,795,207,795,207,795,207,795,207,795,207,795,207,795,207
    205. DATA 795,207,795,207,795,207,795,207,943,154,942,154,940,156,938,159,937,162,936,164
    206. DATA 935,167,935,170,934,173,934,174,934,177,934,179,934,183,935,186,937,189,937,192
    207. DATA 938,195,939,197,939,199,940,200,940,201,941,202,941,203,942,203,943,203,943,204
    208. DATA 944,204,945,204,945,204,948,205,949,205,952,206,956,206,962,206,966,206,968,205
    209. DATA 969,205,970,203,972,201,974,200,976,199,978,198,978,197,979,196,980,194,980,192
    210. DATA 980,190,980,186,980,183,980,182,980,181,980,180,980,179,980,178,980,177,978,175
    211. DATA 977,173,975,171,974,169,971,167,970,166,968,165,968,165,968,165,968,164,968,164
    212. DATA 967,164,965,163,963,163,962,162,962,161,961,161,961,161,961,161,960,161,960,161
    213. DATA 960,161,960,161,960,161,960,161,960,161,960,161,960,161,960,161,960,161,960,161
    214. DATA 960,161,960,161,960,161,960,161,960,161,960,161,960,161,960,161,960,161,1020,159
    215. DATA 1020,159,1020,159,1020,159,1020,159,1020,159,1020,162,1020,166,1021,172,1022,173,1024,178
    216. DATA 1026,180,1027,185,1028,188,1029,190,1030,192,1031,193,1031,195,1032,196,1033,197,1034,199
    217. DATA 1034,201,1036,203,1036,204,1037,205,1037,205,1037,205,1037,205,1037,205,1037,205,1037,205
    218. DATA 1037,205,1037,205,1037,205,1037,205,1037,205,1037,205,1037,205,1037,205,1037,205,1037,205
    219. DATA 1037,205,1037,205,1037,205,1037,205,1038,205,1038,204,1039,203,1040,200,1040,198,1041,195
    220. DATA 1042,192,1043,188,1044,187,1046,181,1046,180,1047,176,1047,175,1049,171,1051,169,1051,168
    221. DATA 1052,167,1052,166,1052,165,1053,164,1053,164,1053,163,1054,162,1055,161,1055,160,1055,159
    222. DATA 1055,158,1055,157,1056,157,1056,156,1056,155,1056,154,1056,154,1057,153,1057,153,1057,153
    223. DATA 1057,153,1057,153,1057,153,1057,153,1057,153,1057,153,1057,153,1057,153,1057,153,1036,204
    224. DATA 1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204
    225. DATA 1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204
    226. DATA 1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204
    227. DATA 1036,204,1036,204,1036,204,1035,207,1035,209,1035,211,1035,214,1034,218,1034,221,1033,225
    228. DATA 1032,229,1031,234,1030,237,1029,241,1028,243,1028,245,1028,246,1027,247,1026,249,1026,250
    229. DATA 1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251
    230. DATA 1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251
    231. DATA 1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251
    232. DATA 1026,251,1026,251,1025,252,1024,254,1024,256,1024,257,1024,257,1024,257,1024,257,1024,257
    233. DATA 1024,257,1024,257,1024,257,1024,257,1024,257,1024,257,1024,257,1024,257,1024,257,1024,257
    234. DATA 1024,257,1024,257,843,318,843,318,843,318,843,318,843,318,843,318,843,318,843,318
    235. DATA 843,319,843,319,844,323,845,325,845,334,846,341,846,350,847,363,848,375,848,387
    236. DATA 849,400,850,405,850,408,851,411,851,413,851,414,851,414,851,414,851,414,851,414
    237. DATA 851,414,851,414,851,416,851,416,851,416,851,416,851,416,851,416,831,375,831,375
    238. DATA 831,375,831,375,831,375,831,375,831,375,831,375,832,375,835,375,850,375,866,375
    239. DATA 883,375,891,375,894,375,898,375,899,375,899,375,899,375,899,375,900,375,900,375
    240. DATA 900,375,900,375,900,375,900,375,900,375,900,375,900,375,900,375,931,374,931,374
    241. DATA 931,374,928,377,927,380,924,384,922,387,921,389,921,391,921,394,921,394,923,397
    242. DATA 924,398,924,399,925,400,927,402,928,404,929,405,930,406,930,407,930,407,930,407
    243. DATA 931,407,931,407,933,407,941,405,944,404,946,402,947,401,948,399,948,398,948,397
    244. DATA 948,397,949,395,949,394,949,393,949,392,949,391,949,390,949,389,949,388,949,387
    245. DATA 949,385,949,383,949,383,949,381,948,380,947,380,947,380,947,380,947,380,947,380
    246. DATA 947,380,947,380,947,380,947,380,947,380,947,380,947,380,947,380,947,380,1023,303
    247. DATA 1023,303,1023,303,1022,306,1022,309,1022,314,1022,318,1023,323,1024,332,1025,341,1026,350
    248. DATA 1026,356,1026,361,1027,369,1028,371,1028,373,1028,375,1028,377,1028,380,1028,383,1028,386
    249. DATA 1028,388,1028,391,1028,392,1028,393,1029,393,1029,393,1029,393,1029,393,1029,393,1029,393
    250. DATA 1029,393,1029,393,1029,393,1029,393,1029,393,1029,393,1029,393,1029,395,1029,397,1030,398
    251. DATA 1030,398,1030,398,1030,398,1030,398,1030,398,1030,400,1030,401,1030,403,1030,404,1030,404
    252. DATA 1030,404,1030,404,1030,404,1030,405,1030,405,1030,405,1030,405,1030,405,1030,405,1030,405
    253. DATA 997,352,997,352,997,352,997,352,997,352,997,352,997,352,997,352,997,352,998,352
    254. DATA 1003,352,1011,353,1023,353,1028,352,1030,351,1031,351,1031,351,1031,351,1031,351,1031,351
    255. DATA 1031,351,1031,351,1031,351,1031,351,1031,351,1031,351,1031,351,1032,351,1032,351,1032,351
    256. DATA 1032,351,1032,351,1032,351,1032,351,1032,351,1032,351,1032,351,1032,351,1032,351,1032,351
    257. DATA 1032,351,1032,351,1032,351,1032,351,1032,351,1032,351,1032,351,1032,351,1033,351,1035,351
    258. DATA 1036,350,1037,350,1037,350,1037,350,1038,350,1039,350,1040,350,1041,349,1042,349,1042,349
    259. DATA 1042,349,1042,349,1042,349,1042,349,1042,349,1042,349,1042,349,1042,349,1059,296,1059,296
    260. DATA 1059,296,1059,296,1059,296,1059,296,1059,298,1059,302,1059,305,1059,314,1059,321,1059,327
    261. DATA 1059,333,1059,338,1059,343,1059,347,1059,351,1060,358,1060,364,1060,371,1060,378,1060,384
    262. DATA 1061,389,1061,392,1061,396,1061,398,1062,402,1062,404,1062,404,1062,405,1062,405,1062,405
    263. DATA 1062,405,1062,405,1062,405,1062,405,1062,405,1062,405,1062,405,1062,405,1062,405,1062,405
    264. DATA 1062,405,1062,405,1062,405,1062,405,1062,399,1063,395,1063,391,1064,386,1064,383,1065,376
    265. DATA 1066,370,1067,365,1069,361,1070,358,1072,354,1073,352,1074,351,1074,350,1075,349,1076,349
    266. DATA 1077,348,1078,348,1079,348,1080,348,1081,348,1081,347,1081,347,1081,347,1081,347,1081,349
    267. DATA 1083,352,1085,356,1087,361,1089,367,1090,369,1092,376,1094,378,1094,380,1094,381,1095,384
    268. DATA 1095,386,1095,387,1095,388,1095,389,1095,389,1095,389,1095,389,1095,389,1095,389,1095,389
    269. DATA 1095,389,1095,389,1095,389,1095,389,1095,389,1095,389,1096,391,1096,392,1096,392,1096,393
    270. DATA 1097,393,1098,396,1099,397,1099,397,1099,398,1099,398,1099,398,1099,398,1099,398,1099,398
    271. DATA 1099,398,1099,398,1099,398,1099,398,1099,398,1106,366,1106,366,1106,366,1106,366,1106,366
    272. DATA 1106,366,1106,366,1106,366,1106,366,1106,366,1106,366,1106,366,1106,366,1106,366,1106,366
    273. DATA 1106,366,1110,365,1111,364,1115,364,1118,363,1123,362,1124,362,1125,362,1126,362,1129,361
    274. DATA 1133,360,1137,359,1141,357,1142,356,1142,356,1143,356,1143,354,1144,353,1145,352,1146,350
    275. DATA 1146,349,1146,348,1146,347,1146,347,1146,347,1146,347,1146,347,1146,347,1146,347,1145,346
    276. DATA 1141,345,1138,344,1137,344,1135,344,1134,344,1132,344,1129,346,1126,347,1122,348,1119,350
    277. DATA 1117,351,1117,352,1116,353,1113,357,1111,360,1110,363,1109,366,1108,368,1107,372,1106,377
    278. DATA 1106,378,1106,382,1106,384,1106,386,1106,388,1106,389,1106,390,1108,390,1108,391,1109,391
    279. DATA 1114,392,1120,393,1129,393,1139,393,1147,393,1152,392,1158,391,1163,389,1164,389,1169,386
    280. DATA 1172,385,1175,383,1176,383,1177,381,1177,381,1177,381,1177,381,1177,381,1177,381,1177,381
    281. DATA 1177,381,1177,381,1177,381,1177,381,1177,381,1177,381,1177,381,1177,381,797,495,797,495
    282. DATA 797,495,797,495,797,495,797,495,797,495,797,495,797,495,797,499,800,507,802,517
    283. DATA 804,526,811,542,816,554,820,563,822,569,825,575,826,581,827,583,828,590,829,595
    284. DATA 830,598,831,602,832,608,832,609,834,614,834,618,835,620,837,623,838,624,838,624
    285. DATA 840,624,841,619,843,613,845,607,847,601,849,595,852,585,854,580,856,575,858,570
    286. DATA 859,564,861,560,864,552,865,548,866,544,867,540,869,534,870,529,873,522,873,516
    287. DATA 876,509,877,503,878,500,879,498,879,496,879,496,879,496,879,496,879,496,879,496
    288. DATA 879,496,879,496,879,496,879,496,879,496,879,496,879,496,880,500,881,507,883,516
    289. DATA 884,527,885,538,889,550,891,557,892,562,894,568,894,569,896,575,896,576,896,580
    290. DATA 897,581,898,585,898,587,900,590,902,594,904,596,906,599,907,600,908,601,909,602
    291. DATA 911,604,911,606,912,606,912,606,912,606,913,606,913,606,913,606,913,606,913,606
    292. DATA 914,606,914,606,915,606,915,606,916,606,916,606,916,606,917,606,917,606,918,607
    293. DATA 920,609,920,610,920,610,920,610,920,610,920,610,920,610,921,610,921,610,921,609
    294. DATA 924,600,925,595,926,588,927,581,928,573,930,565,931,550,932,538,932,530,933,522
    295. DATA 934,515,936,509,936,506,936,504,936,503,937,502,937,501,937,500,937,499,937,498
    296. DATA 937,498,937,498,937,498,937,498,937,498,937,498,937,498,937,498,937,498,937,498
    297. DATA 937,498,937,498,937,498,937,498,937,498,989,563,989,563,988,562,988,562,987,562
    298. DATA 985,562,983,563,981,564,977,569,975,572,973,573,970,577,968,582,967,585,966,588
    299. DATA 966,590,966,593,966,596,966,599,967,601,968,603,969,605,971,607,972,609,974,612
    300. DATA 975,614,976,615,977,615,977,615,977,615,977,615,980,613,985,609,989,606,992,603
    301. DATA 994,600,994,599,997,596,997,594,999,591,1000,590,1001,587,1003,584,1004,582,1004,580
    302. DATA 1005,579,1005,577,1005,574,1005,573,1005,571,1005,570,1005,569,1005,568,1005,568,1005,567
    303. DATA 1005,566,1005,566,1004,566,1004,566,1004,566,1004,566,1003,563,999,561,998,560,998,560
    304. DATA 998,560,998,560,998,560,998,560,998,560,998,560,1028,562,1028,562,1028,562,1028,562
    305. DATA 1027,562,1027,563,1027,564,1026,566,1026,567,1026,571,1026,574,1028,581,1030,585,1033,590
    306. DATA 1035,594,1036,597,1037,599,1038,600,1038,600,1038,600,1038,600,1038,600,1038,600,1038,600
    307. DATA 1038,600,1038,600,1038,599,1038,599,1038,599,1038,599,1038,597,1037,591,1036,589,1035,583
    308. DATA 1035,581,1034,577,1034,575,1034,572,1034,568,1034,566,1034,564,1034,563,1034,561,1034,560
    309. DATA 1035,560,1036,559,1037,558,1037,558,1037,558,1037,558,1037,558,1038,558,1038,557,1038,557
    310. DATA 1041,557,1043,556,1044,555,1044,555,1044,555,1044,555,1044,555,1044,555,1044,555,1044,555
    311. DATA 1044,555,1044,555,1044,555,1071,499,1071,499,1071,499,1071,499,1071,499,1071,507,1071,512
    312. DATA 1071,518,1071,525,1071,532,1071,539,1072,546,1074,554,1074,561,1075,566,1077,574,1078,580
    313. DATA 1079,585,1080,588,1080,590,1081,593,1081,593,1081,594,1081,594,1081,594,1081,594,1081,594
    314. DATA 1081,596,1082,597,1082,599,1082,600,1082,601,1083,602,1083,603,1083,603,1083,603,1083,603
    315. DATA 1083,603,1083,604,1083,605,1084,605,1084,605,1084,605,1084,605,1084,605,1159,563,1159,563
    316. DATA 1158,563,1158,563,1155,561,1153,560,1148,559,1147,559,1139,559,1135,559,1132,560,1131,561
    317. DATA 1130,562,1129,565,1128,567,1127,569,1127,573,1126,576,1126,580,1126,583,1125,587,1125,591
    318. DATA 1125,595,1126,601,1128,604,1130,605,1132,607,1133,609,1136,611,1138,612,1139,612,1140,612
    319. DATA 1145,609,1151,603,1155,601,1158,598,1161,595,1164,594,1166,592,1167,589,1169,585,1171,581
    320. DATA 1172,576,1172,573,1172,570,1172,568,1172,564,1172,561,1172,558,1171,554,1170,548,1170,542
    321. DATA 1170,537,1170,531,1169,526,1169,521,1168,517,1167,509,1167,505,1167,502,1167,497,1167,493
    322. DATA 1167,491,1167,489,1167,487,1167,487,1167,487,1167,486,1167,485,1167,484,1167,482,1167,480
    323. DATA 1167,479,1167,477,1167,476,1167,475,1167,475,1167,475,1167,475,1167,475,1167,475,1167,475
    324. DATA 1167,475,1167,475,1167,475,1167,476,1167,480,1167,487,1167,492,1168,497,1169,505,1170,511
    325. DATA 1171,518,1174,524,1176,536,1177,542,1178,548,1180,553,1181,558,1182,562,1183,567,1184,572
    326. DATA 1185,577,1187,584,1188,589,1189,592,1190,595,1190,598,1191,601,1191,603,1192,604,1192,605
    327. DATA 1193,606,1193,607,1194,608,1194,609,1194,609,1195,611,1195,611,1195,612,1195,613,1196,613
    328. DATA 1196,613,1196,613,1196,613,1196,613,1196,613,1196,613,1196,613,1196,613,1196,613,1196,613
    329. DATA 1196,613,1196,613,1196,613,1196,613,1196,613,1196,613,1131,51,1131,51,1131,51,1131,51
    330. DATA 1131,51,1131,51,1131,52,1131,56,1131,61,1131,71,1131,79,1131,89,1131,97,1130,106
    331. DATA 1130,112,1130,117,1130,122,1130,122,1130,129,1130,131,1130,134,1129,136,1129,141,1128,147
    332. DATA 1127,160,1126,164,1126,174,1126,180,1126,183,1126,183,1126,183,1125,183,1125,183,1125,183
    333. DATA 1125,183,1125,183,1125,183,1125,183,1125,183,1125,183,1125,183,1125,183,1125,183,1125,183
    334. DATA 1118,232,1118,232,1118,232,1118,232,1118,232,1118,232,1118,232,1118,232,1118,232,1118,232
    335. DATA 1118,232
    336. DATA 9999,9999
    337.  
    338.  
    « Last Edit: December 23, 2019, 10:47:14 am by bplus »
    Logged

    Offline Petr

    • Forum Resident
    • Posts: 1720
    • The best code is the DNA of the hops.
      • View Profile
    Re: Merry X-mas 2019!
    « Reply #5 on: December 23, 2019, 10:34:02 am »
  • Best Answer
    • Very nice work, Fellippe! Merry Christmas!
    Logged

    Offline Qwerkey

    • Forum Resident
    • Posts: 755
      • View Profile
    Re: Merry X-mas 2019!
    « Reply #6 on: December 23, 2019, 10:44:28 am »
  • Best Answer
    • Lovely.  Let us hope that we all have a healthy New Year and subsequent.
    Logged

    Offline johnno56

    • Forum Resident
    • Posts: 1270
    • Live long and prosper.
      • View Profile
    Re: Merry X-mas 2019!
    « Reply #7 on: December 23, 2019, 03:23:24 pm »
  • Best Answer
    •   [ You are not allowed to view this attachment ]  

    Mary kiss moose. Peas on Earth.
    Logged
    Logic is the beginning of wisdom.

    Offline Pete

    • Forum Resident
    • Posts: 2361
    • Cuz I sez so, varmint!
      • View Profile
    Re: Merry X-mas 2019!
    « Reply #8 on: December 23, 2019, 04:29:27 pm »
  • Best Answer
    • Nice card johnno, but if a moose peas in the forest, should i really care? Well, I mean providing I'm not out walking in the forest, I suppose...

    My second favorite actor is Captain Kirk
    These are the things I think about at work

    Merry Christmas,

    Pete
    Logged
    Want to learn how to write code on cave walls? https://www.tapatalk.com/groups/qbasic/qbasic-f1/

    Offline AndyA

    • Newbie
    • Posts: 73
      • View Profile
    Re: Merry X-mas 2019!
    « Reply #9 on: December 23, 2019, 11:38:23 pm »
  • Best Answer
    • Very nice looking scene Fellippe!

    Merry Christmas!

    Andy
    Logged

    Offline Ashish

    • Forum Resident
    • Posts: 630
    • Never Give Up!
      • View Profile
    Re: Merry X-mas 2019!
    « Reply #10 on: December 24, 2019, 08:50:04 am »
  • Best Answer
    • Merry Christmas!
    Logged
    if (Me.success) {Me.improve()} else {Me.tryAgain()}


    My Projects - https://github.com/AshishKingdom?tab=repositories
    OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

    Offline Bert22306

    • Forum Regular
    • Posts: 206
      • View Profile
    Re: Merry X-mas 2019!
    « Reply #11 on: December 24, 2019, 04:05:51 pm »
  • Best Answer
    • Merry Christmas, to all the impressive group here. E buon anno!
    Logged
    Pages: [1]   Go Up
    « previous next »