<?
  // informamos ao browser que o conteúdo é uma imagem PNG
  header("Content-type: image/png");
  // criamos uma imagem com largura de 200 e altura de 150 pixels
  $imagem = imagecreate(200, 150);
  // cor de fundo será azul
  $cor_fundo = imagecolorallocate($imagem, 0, 0, 255);
  // cor do texto será branca
  $cor_texto = imagecolorallocate($imagem, 255, 255, 255);
  // escrevemos na imagem
  imagestring($imagem, 3, 10, 10,  "Arquivo de Códigos", $cor_texto);
  // mandamos para o browser
  imagepng($imagem);
  // liberamos a memória
  imagedestroy($imagem);
?>

<img src="imagem.php">

ruby -v

ruby 2.7.4p191 (2021-07-07 revision a21a3b7d23) [x64-mingw32]

# Este exemplo mostra como obter a versão do Ruby
# usando a constante RUBY_DESCRIPTION
 
# guarda a versão em uma variável
versao = RUBY_DESCRIPTION

# mostra na tela
puts "A versão do Ruby é: #{versao}"

' Esta macro AutoCAD VBA mostra como selecionar uma linha
' na área de desenho do AutoCAD e retornar suas coordenadas
' iniciais e finais
Sub CoordenadasLinha()
  ' vamos declarar um variável para receber a linha
  ' selecionada
  Dim linha As AcadLine
  ' e também a localização da linha
  Dim localizacao As Variant
  ' para guardar o ponto inicial
  Dim ponto_inicial As Variant
  ' para guardar o ponto final
  Dim ponto_final As Variant
   
  ' caso haja algum erro
  On Error Resume Next
   
  ' agora pedimos para o usuário selecionar a linha
  ThisDrawing.Utility.GetEntity linha, localizacao, _
    "Selecione uma linha"
   
  ' vamos obter o ponto inicial da linha
  ponto_inicial = linha.StartPoint
  ' vamos obter o ponto final da linha
  ponto_final = linha.EndPoint
   
  ' e mostramos as coordenadas iniciais e finais da linha
  ThisDrawing.Utility.Prompt "As coordenadas iniciais são: X = " _
    & ponto_inicial(0) & "; Y = " & ponto_inicial(1) & "; Z = " _
    & ponto_inicial(2)
  ThisDrawing.Utility.Prompt vbCrLf & "As coordenadas finais são: X = " _
    & ponto_final(0) & "; Y = " & ponto_final(1) & "; Z = " _
    & ponto_final(2)
End Sub

procedure TForm1.Button1Click(Sender: TObject);
var
  hora: TDateTime;
begin
  // vamos obter a hora atual
  hora := Time();

  // podemos também usar a função GetTime()
  //hora := GetTime();

  // vamos exibir o resultado
  ShowMessage(TimeToStr(hora));
end;