Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Kernelpanic on October 05, 2020, 03:43:14 pm

Title: I like this fish
Post by: Kernelpanic 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.  
Title: Re: I like this fish
Post by: bplus 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

 


Title: Re: I like this fish
Post by: johnno56 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!!
Title: Re: I like this fish
Post by: SierraKen 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.
Title: Re: I like this fish
Post by: johnno56 on October 06, 2020, 07:09:46 pm
Yes. Relaxing with a knife and fork at the dinner table... Mmmm...
Title: Re: I like this fish
Post by: 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.

Pete
Title: Re: I like this fish
Post by: SpriggsySpriggs 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
Title: Re: I like this fish
Post by: bplus on October 07, 2020, 11:22:03 am
I put my fish in a tank and they asked how to shoot it.
Title: Re: I like this fish
Post by: SMcNeill on October 07, 2020, 11:28:03 am
Spellcheck put my fish in an aquamarine.
Title: Re: I like this fish
Post by: Pete 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!

Text Only | Text with Attachments