Author Topic: I like this fish  (Read 4265 times)

0 Members and 1 Guest are viewing this topic.

Offline Kernelpanic

  • Newbie
  • Posts: 94
    • View Profile
I like this fish
« on: October 05, 2020, 03:43:14 pm »
Converted in VBox under WinXP. My first little graphic at 1996:

Code: QB64: [Select]
  1. 'Beispiel zu "Paint". Zeichnet einen Fisch, Basic-Befv. N.219, 30.7.1996
  2.  
  3. CONST PI = 3.1415926536#
  4.  
  5.  
  6. PAINT (0, 0), 9 'Bildschirmfarbe setzen
  7.  
  8. 'Umriß von Fisch und Auge, und ausfüllen
  9. CIRCLE (300, 220), 100, 1, , , .3
  10. PAINT (300, 220), 13, 1
  11.  
  12. CIRCLE (375, 212), 5, 1, , , .7
  13. PAINT (375, 212), 9, 1
  14.  
  15. CIRCLE (376, 212), 3, 1, , , .7
  16. PAINT (376, 212), 10, 1
  17.  
  18. 'Fischmaul zeichnen
  19. LINE (400, 218)-STEP(-6, 4), 0
  20. LINE (400, 219)-STEP(-6, 4), 0
  21.  
  22. 'Schwanzflosse und ausfüllen
  23. LINE (160, 240)-STEP(0, -40), 2
  24. LINE -STEP(60, 20), 2
  25. LINE -STEP(-60, 20), 2
  26. PAINT (170, 220), 14, 2
  27.  
  28. 'Kiemen zeichnen
  29. R = 30
  30. FOR X = 360 TO 370
  31.   CIRCLE (X, 220), R, 0, PI * 3 / 4, PI * 5 / 4, 1.5
  32.   X = X + 3
  33.   R = R - 10
  34.  
  35. 'Muster in Schwanzflosse
  36. FOR Y = 210 TO 230
  37.   LINE (165, Y)-(177, Y), 1
  38.   Y = Y + 4
  39. COLOR 10 'Textfarbe setzen
  40. LOCATE 24, 1
  41. PRINT "Drücken Sie eine Taste"
  42.  
  43.  
Mark Twain
"Als wir das Ziel endgültig aus den Augen verloren hatten, verdoppelten wir unsere Anstrengungen."
„Having lost sight of our goals, we redoubled our efforts.“

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: I like this fish
« Reply #1 on: October 05, 2020, 05:01:34 pm »
:) Lets go fishing, check out Underwater Meditation zip
https://www.qb64.org/forum/index.php?topic=1536.msg107521#msg107521

 
Like fish.PNG


« Last Edit: October 05, 2020, 05:06:46 pm by bplus »

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: I like this fish
« Reply #2 on: October 05, 2020, 06:39:54 pm »
Kernelpanic,

I like fish also... But usually grilled with lemon juice... Yum... Cool fish!

Bplus,

Ah, the memories... I'm looking for my lemon juicer!!
Logic is the beginning of wisdom.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: I like this fish
« Reply #3 on: October 06, 2020, 03:10:12 pm »
That's a neat looking fish KernalPanic.

B+, every so often I still watch your fish on my screen. It's good for relaxation.

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: I like this fish
« Reply #4 on: October 06, 2020, 07:09:46 pm »
Yes. Relaxing with a knife and fork at the dinner table... Mmmm...
Logic is the beginning of wisdom.

Offline Pete

  • Forum Resident
  • Posts: 2361
  • Cuz I sez so, varmint!
    • View Profile
Re: I like this fish
« Reply #5 on: October 07, 2020, 01:09:16 am »
I wrote a tropical fish program, back in the 90's, but without the aquarium. It was a tankless job.

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

Offline SpriggsySpriggs

  • Forum Resident
  • Posts: 1145
  • Larger than life
    • View Profile
    • GitHub
Re: I like this fish
« Reply #6 on: October 07, 2020, 02:10:09 am »
I wrote a tropical fish program, back in the 90's, but without the aquarium. It was a tankless job.

Slow clap
Shuwatch!

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: I like this fish
« Reply #7 on: October 07, 2020, 11:22:03 am »
I put my fish in a tank and they asked how to shoot it.

Offline SMcNeill

  • QB64 Developer
  • Forum Resident
  • Posts: 3972
    • View Profile
    • Steve’s QB64 Archive Forum
Re: I like this fish
« Reply #8 on: October 07, 2020, 11:28:03 am »
Spellcheck put my fish in an aquamarine.
https://github.com/SteveMcNeill/Steve64 — A github collection of all things Steve!

Offline Pete

  • Forum Resident
  • Posts: 2361
  • Cuz I sez so, varmint!
    • View Profile
Re: I like this fish
« Reply #9 on: October 08, 2020, 06:38:23 am »
I went fishing for compliments once, but all I got was a boot! Oh well... When it comes to being serious, this group is in serious trouble.

Pete

- Your o-fish-al SCREEN ZERO HERO!

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