« previous next »
Pages: [1]   Go Down

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.  
  6.  
  9. PAINT (0, 0), 9 'Bildschirmfarbe setzen
  10.  
  11. 'Umriß von Fisch und Auge, und ausfüllen
  12. CIRCLE (300, 220), 100, 1, , , .3
  13. PAINT (300, 220), 13, 1
  14.  
  15. CIRCLE (375, 212), 5, 1, , , .7
  16. PAINT (375, 212), 9, 1
  17.  
  18. CIRCLE (376, 212), 3, 1, , , .7
  19. PAINT (376, 212), 10, 1
  20.  
  21. 'Fischmaul zeichnen
  22. LINE (400, 218)-STEP(-6, 4), 0
  23. LINE (400, 219)-STEP(-6, 4), 0
  24.  
  25. 'Schwanzflosse und ausfüllen
  26. LINE (160, 240)-STEP(0, -40), 2
  27. LINE -STEP(60, 20), 2
  28. LINE -STEP(-60, 20), 2
  29. PAINT (170, 220), 14, 2
  30.  
  31. 'Kiemen zeichnen
  32. R = 30
  33. FOR X = 360 TO 370
  34.   CIRCLE (X, 220), R, 0, PI * 3 / 4, PI * 5 / 4, 1.5
  35.   X = X + 3
  36.   R = R - 10
  38.  
  39. 'Muster in Schwanzflosse
  40. FOR Y = 210 TO 230
  41.   LINE (165, Y)-(177, Y), 1
  42.   Y = Y + 4
  44. COLOR 10 'Textfarbe setzen
  45. LOCATE 24, 1
  46. PRINT "Drücken Sie eine Taste"
  48.  
  50.  
Logged
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 »
Logged

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

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...
Logged
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
Logged
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 »
Quote from: Pete 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.

Slow clap
Logged
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.
Logged

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

Logged
Want to learn how to write code on cave walls? https://www.tapatalk.com/groups/qbasic/qbasic-f1/
Pages: [1]   Go Up
« previous next »