Chat GPT fun (?)

[cundo]

I told CHAT gpt to write a code that draws a red heart, but got this, I don't know what it is hahaha

OPEN "Heart" FOR GRAPHICS AS #1
PRINT #1, "TRAPCLOSE [QUIT]"
PRINT #1, "home"
PRINT #1, "down"
PRINT #1, "size 1"
PRINT #1, "color red"

PRINT "COMIENZA DIBUJO"
FOR I = 0 TO 180 STEP 2
   X = SIN(I) * 400
   Y = COS(I) * 400 - (ABS(SIN(I)) * 200)
   PRINT #1, "set "; X + 400; ","; Y + 300
NEXT I

FOR I = 180 TO 0 STEP -2
   X = SIN(I) * 400
   Y = COS(I) * 400 - (ABS(SIN(I)) * 200)
   PRINT #1, "set "; X + 400; ","; Y + 300
NEXT I

PRINT "TERMINADO"
PRINT #1, "FLUSH"
WAIT

[QUIT]
CLOSE #1
END




[plus]

A little fix here and there:
global Xmax, Ymax
Xmax = 800
Ymax = 600

WindowWidth = Xmax + 8
WindowHeight = Ymax + 32
UpperLeftX = (DisplayWidth - Xmax) / 2  'or delete if Xmax is 1200 or above
UpperLeftY = (DisplayHeight - Ymax) / 2   'or delete if Ymax is 700 or above

open "Heart" for graphics_nsb_nf as #1  '<======================= title
'OPEN "Heart" FOR GRAPHICS AS #1
#1 "TRAPCLOSE [QUIT]"
#1 "down"
#1 "size 20"
#1 "color red"

PRINT "COMIENZA DIBUJO"
FOR I = 0 TO 180 STEP .01
   X = .5*SIN(I) * 400
   Y = .45*COS(I) * 400 - .7*(ABS(SIN(I)) * 200)
   #1 "set "; X + 400;" "; Y + 330
NEXT I

FOR I = 180 TO 0 STEP -.01
   X = .5*SIN(I) * 400
   Y = .45*COS(I) * 400 - .7*(ABS(SIN(I)) * 200)
   #1 "set "; X + 400;" "; Y + 330
NEXT I
#1 "place ";390;" ";280;";|";"b+"
PRINT "TERMINADO"
#1 "FLUSH"
WAIT

[QUIT]
CLOSE #1
END


[plus]

Oh don't need the second block, I was wondering why it took b+ so long? LOL
global Xmax, Ymax
Xmax = 800
Ymax = 600

WindowWidth = Xmax + 8
WindowHeight = Ymax + 32
UpperLeftX = (DisplayWidth - Xmax) / 2  'or delete if Xmax is 1200 or above
UpperLeftY = (DisplayHeight - Ymax) / 2   'or delete if Ymax is 700 or above

open "Heart" for graphics_nsb_nf as #1  '<======================= title
'OPEN "Heart" FOR GRAPHICS AS #1
#1 "TRAPCLOSE [QUIT]"
#1 "down"
#1 "size 20"
#1 "color red"

PRINT "COMIENZA DIBUJO"
FOR I = 0 TO 180 STEP .01
   X = .5*SIN(I) * 400
   Y = .45*COS(I) * 400 - .7*(ABS(SIN(I)) * 200)
   #1 "set "; X + 400;" "; Y + 330
NEXT I

#1 "place ";390;" ";280;";|";"b+"
PRINT "TERMINADO"
#1 "FLUSH"
WAIT

[QUIT]
CLOSE #1
END


[plus]

It's fun when you get it working.

[tsh73]

Ha!
interesting indeed
They often said ChatGPT gave out programs that looks OK...
but do not work :)

So this is little comma (,) which prevents source program from drawing ANYTHING
PRINT #1, "set "; X + 400; ","; Y + 300
should be
PRINT #1, "set "; X + 400; " "; Y + 300

Then it happened it draws for bigger screen so one needs to scale it down

Also,
FOR I = 0 TO 180 STEP 2
hints what angle is in degrees.
While SIN/COS work in radians!

If you adapt code to work in radians you'll get half of a heart
Hence two loops

But if you leave it 0..180, it will end with scattered points along the heart shape
I added pause to see the order
and color change to see several loops of small step;)

(and with small step it will just do consequitive points - but several loops around the shape!, 180/2pi, some 30 loops (long with pause/color change))

nomainwin

OPEN "Heart" FOR GRAPHICS_fs AS #1
PRINT #1, "TRAPCLOSE [QUIT]"
PRINT #1, "home"
PRINT #1, "down"
PRINT #1, "size 10"
PRINT #1, "color red"

Tpause=1' - big step
'or
'Tpause=100   '- small step

PRINT "COMIENZA DIBUJO"
pi = acs(-1)
FOR I = 0 TO 180 STEP 2/Tpause
   a=I'*pi/180
   X = 0.5*SIN(a) * 400
   Y = 0.5*COS(a) * 400 - 0.5*(ABS(SIN(a)) * 200)
   PRINT #1, "color ";rainbow$(I/180*10)
   PRINT #1, "set "; X + 400; " "; Y + 300
   'PRINT #1, "set "; X + 400; ","; Y + 300
   'print I, X, Y
   call pause 100/Tpause
NEXT I

'FOR I = 180 TO 0 STEP -2
'    X = SIN(I) * 400
'    Y = COS(I) * 400 - (ABS(SIN(I)) * 200)
'    PRINT #1, "set "; X + 400; ","; Y + 300
'NEXT I

PRINT "TERMINADO"
PRINT #1, "FLUSH"
WAIT

[QUIT]
CLOSE #1
END

sub pause mil
   t0=time$("ms")+mil
   while time$("ms")<t0
       scan
   wend
   exit sub
[QUIT]
   CLOSE #1
   END
end sub

' 0..1 into red-green-blue-red continuous colors
function rainbow$(x)
   hi = int((x*6) mod 6)+ 5*(x<0)  'fixed to 0..5
   f = (x*6) mod 1 + (x<0)         'frac, 0..1
   q = (1-f)
   select case hi
   case 0
       r = 1: g = f: b = 0
   case 1
       r = q: g = 1: b = 0
   case 2
       r = 0: g = 1: b = f
   case 3
       r = 0: g = q: b = 1
   case 4
       r = f: g = 0: b = 1
   case 5
       r = 1: g = 0: b = q
   end select
   R = int(r*255)
   G = int(g*255)
   B = int(b*255)
   rainbow$= R;" ";G;" ";B
end function


[plus]

Gotta animate it for Valentine's Day!
global Xmax, Ymax
Xmax = 800
Ymax = 600

WindowWidth = Xmax + 8
WindowHeight = Ymax + 32
UpperLeftX = (DisplayWidth - Xmax) / 2  'or delete if Xmax is 1200 or above
UpperLeftY = (DisplayHeight - Ymax) / 2   'or delete if Ymax is 700 or above

nomainwin
open "Heart" for graphics_nsb_nf as #1  '<======================= title
'OPEN "Heart" FOR GRAPHICS_fs AS #1
PRINT #1, "TRAPCLOSE [QUIT]"
PRINT #1, "home"
PRINT #1, "down"
PRINT #1, "size 10"
#1, "Fill Pink"
#1, "Backcolor Pink"
PRINT #1, "color White"

Tpause=5' - big step
'or
'Tpause=100   '- small step
#1 "place ";390;" ";280;";|";"JB"
for Tpause = 1 to 20
PRINT "COMIENZA DIBUJO"
pi = acs(-1)
FOR I = 0 TO 180 STEP 2/Tpause
   a=I'*pi/180
   X = 0.5*SIN(a) * 400
   Y = 0.5*COS(a) * 400 - 0.5*(ABS(SIN(a)) * 200)
   PRINT #1, "color ";rainbow$(I/180*10)
   PRINT #1, "set "; X + 400; " "; Y + 300
   'PRINT #1, "set "; X + 400; ","; Y + 300
   'print I, X, Y
   call pause 60
NEXT I
next
'FOR I = 180 TO 0 STEP -2
'    X = SIN(I) * 400
'    Y = COS(I) * 400 - (ABS(SIN(I)) * 200)
'    PRINT #1, "set "; X + 400; ","; Y + 300
'NEXT I

PRINT "TERMINADO"
PRINT #1, "FLUSH"
WAIT

[QUIT]
CLOSE #1
END

sub pause mil
   t0=time$("ms")+mil
   while time$("ms")<t0
       scan
   wend
   exit sub
[QUIT]
   CLOSE #1
   END
end sub

' 0..1 into red-green-blue-red continuous colors
function rainbow$(x)
   hi = int((x*6) mod 6)+ 5*(x<0)  'fixed to 0..5
   f = (x*6) mod 1 + (x<0)         'frac, 0..1
   q = (1-f)
   select case hi
   case 0
       r = 1: g = f: b = 0
   case 1
       r = q: g = 1: b = 0
   case 2
       r = 0: g = 1: b = f
   case 3
       r = 0: g = q: b = 1
   case 4
       r = f: g = 0: b = 1
   case 5
       r = 1: g = 0: b = q
   end select
   R = int(r*255)
   G = int(g*255)
   B = int(b*255)
   rainbow$= R;" ";G;" ";B
end function



Hope not too adolescent or girly to still have heart throbs and get mushy

[cundo]

Beautiful ! Now we are having fun. The valentine's day was just a coincidence

[plus]

Just posted another mod update at Friends of Basic


global Xmax, Ymax
Xmax = 800
Ymax = 600

WindowWidth = Xmax + 8
WindowHeight = Ymax + 32
UpperLeftX = (DisplayWidth - Xmax) / 2  'or delete if Xmax is 1200 or above
UpperLeftY = (DisplayHeight - Ymax) / 2   'or delete if Ymax is 700 or above

nomainwin
open "Heart" for graphics_nsb_nf as #1  '<======================= title
#1, "Font Arial 64"
PRINT #1, "TRAPCLOSE [QUIT]"
PRINT #1, "home"
PRINT #1, "down"
PRINT #1, "size 40"
#1, "Fill Pink"
#1, "Backcolor Pink"
PRINT #1, "color White"
#1 "place ";350;" ";280;";|";"JB"
for Tpause = 1 to 20
   FOR I = 0 TO 180 STEP .1
       X = 0.5*SIN(I) * 400
       Y = 0.5*COS(I) * 400 - 0.5*(ABS(SIN(I)) * 200)
       PRINT #1, "color ";rainbow$(I/180*10)
       PRINT #1, "set "; X + 400; " "; Y + 300
       call pause 20
   NEXT I
next
PRINT #1, "FLUSH"
WAIT

[QUIT]
CLOSE #1
END

sub pause mil
   t0=time$("ms")+mil
   while time$("ms")<t0
       scan
   wend
   exit sub
[QUIT]
   CLOSE #1
   END
end sub

' 0..1 into red-green-blue-red continuous colors
function rainbow$(x)
   hi = int((x*6) mod 6)+ 5*(x<0)  'fixed to 0..5
   f = (x*6) mod 1 + (x<0)         'frac, 0..1
   q = (1-f)
   select case hi
   case 0
       r = 1: g = f: b = 0
   case 1
       r = q: g = 1: b = 0
   case 2
       r = 0: g = 1: b = f
   case 3
       r = 0: g = q: b = 1
   case 4
       r = f: g = 0: b = 1
   case 5
       r = 1: g = 0: b = q
   end select
   R = int(r*255)
   G = int(g*255)
   B = int(b*255)
   rainbow$= R;" ";G;" ";B
end function




I think I removed most of excess variables and comments not in use?

[tsh73]

Today I was shown result of asking chatGPT "draw me a house in a Python".
It produced page-long python program using Turtle module
It even had comments like "door" "window" etc
It compiled without error (so it was sintaxically correct)
But all it produced was number of garbled lines, no slightest similarity to a house.

Nice phrase on one forum:
"I do not afraid of first computer which 'll pass Turing test.
But I am afraid first one who decide to conceal it".

[cundo]

It is somewhat scary haha.

[marshawn]

beautiful mods, B+, it's throbbing alright