f.bittiandClaude Opus 5
4a01a2ec88
Due programmi che condividono uModbusRTU e uGauge: - Console/PlanciaConsole: plancia nautica descritta da file XML, con modalita' plancia e modalita' configurazione. Comandi, spie, selettori, strumenti e allarmi sonori; il bus gira in un thread suo perche' la finestra non si fermi mai. - ProjectPlancia: il programma di prova piu' vecchio, usato per collaudare i canali. Le plance sono in Console/*.xml, la documentazione in Console/LEGGIMI.md. Esclusi dal versionamento i compilati (.exe, .dcu), i file dell'IDE e un audio da 17 MB. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
24 lines
673 B
PowerShell
24 lines
673 B
PowerShell
# Ruota un'immagine di 90 gradi. Serve per raddrizzare le foto dei quadri
|
|
# scattate in verticale.
|
|
#
|
|
# powershell -File ruota.ps1 -In foto.png -Out dritta.png -Verso ccw
|
|
|
|
param(
|
|
[string]$In,
|
|
[string]$Out,
|
|
[ValidateSet('cw', 'ccw')][string]$Verso = 'ccw'
|
|
)
|
|
|
|
Add-Type -AssemblyName System.Drawing
|
|
|
|
$img = [System.Drawing.Bitmap]::FromFile($In)
|
|
if ($Verso -eq 'cw') {
|
|
$img.RotateFlip([System.Drawing.RotateFlipType]::Rotate90FlipNone)
|
|
}
|
|
else {
|
|
$img.RotateFlip([System.Drawing.RotateFlipType]::Rotate270FlipNone)
|
|
}
|
|
$img.Save($Out, [System.Drawing.Imaging.ImageFormat]::Png)
|
|
Write-Output ("{0} {1}x{2}" -f $Out, $img.Width, $img.Height)
|
|
$img.Dispose()
|