Claude AI - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|659\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> AI Threads
Fri, 21 Jun 2024, 07:47
Jayenkai	Claude AI v3.5 of Claude is now available at Claude.ai Prompt : (with CommandList_long.txt attached) Can you write a beautiful analogue clock in JSE, with a lovely plasma-style background effect. Claude's first response. // Beautiful Analogue Clock with Plasma Background // Set up the Screen Graphics 800,600 // Constants PosX = ScreenWidth() / 2 PosY = ScreenHeight() / 2 Radius = 200 // Plasma variables Dim plasma(80, 60) t = 0 Repeat // Main loop CLS 0,0,0 // Clear the screen to black // Generate plasma effect For x = 0 To 79 For y = 0 To 59 v = Sin(x * 10 + t) + Sin(y * 10 + t) + Sin((x + y) * 10 + t) + Sin(Sqr((x * x + y * y) * 10) - t) plasma(x, y) = (v + 4) / 8 Next Next t = t + 0.1 // Draw plasma background For x = 0 To 79 For y = 0 To 59 SetHue plasma(x, y) * 360, 0.8, 0.5 Rect x * 10, y * 10, 10, 10, 0 Next Next // Draw clock face SetColor 255, 255, 255 SetAlpha 0.5 Oval PosX, PosY, Radius * 2, Radius * 2, 60 SetAlpha 1 // Draw hour markers For i = 1 To 12 angle = i * 30 - 90 x = PosX + Cos(angle) * (Radius - 20) y = PosY + Sin(angle) * (Radius - 20) SetThick 4 SetColor 255, 255, 255 Line PosX + Cos(angle) * (Radius - 40), PosY + Sin(angle) * (Radius - 40), x, y Next // Get current time hours = TimeHours() mins = TimeMinutes() secs = TimeSeconds() // Draw hour hand angle = (hours % 12 + mins / 60) * 30 - 90 SetColor 255, 200, 200 SetThick 8 Line PosX, PosY, PosX + Cos(angle) * (Radius * 0.5), PosY + Sin(angle) * (Radius * 0.5) // Draw minute hand angle = mins * 6 - 90 SetColor 200, 255, 200 SetThick 4 Line PosX, PosY, PosX + Cos(angle) * (Radius * 0.7), PosY + Sin(angle) * (Radius * 0.7) // Draw second hand angle = secs * 6 - 90 SetColor 200, 200, 255 SetThick 2 Line PosX, PosY, PosX + Cos(angle) * (Radius * 0.9), PosY + Sin(angle) * (Radius * 0.9) // Draw center circle SetColor 255, 255, 255 Oval PosX, PosY, 20, 20, 20 // Display digital time SetColor 255, 255, 255 SetFontSize 32 Text PosX, PosY + Radius + 50, TimeString(), 1 Flip // Display the drawn content and wait for VBL Forever // Main loop --v -=-=- ''Load, Next List!''