vcenter.c

Go to the documentation of this file.

/*****************************************************************************
 * ugBASIC - an isomorphic BASIC language compiler for retrocomputers        *
 *****************************************************************************
 * Copyright 2021-2026 Marco Spedaletti (asimov@mclink.it)
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 * http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 *----------------------------------------------------------------------------
 * Concesso in licenza secondo i termini della Licenza Apache, versione 2.0
 * (la "Licenza"); è proibito usare questo file se non in conformità alla
 * Licenza. Una copia della Licenza è disponibile all'indirizzo:
 *
 * http://www.apache.org/licenses/LICENSE-2.0
 *
 * Se non richiesto dalla legislazione vigente o concordato per iscritto,
 * il software distribuito nei termini della Licenza è distribuito
 * "COSÌ COM'È", SENZA GARANZIE O CONDIZIONI DI ALCUN TIPO, esplicite o
 * implicite. Consultare la Licenza per il testo specifico che regola le
 * autorizzazioni e le limitazioni previste dalla medesima.
 ****************************************************************************/
 
/****************************************************************************
 * INCLUDE SECTION 
 ****************************************************************************/
 
#include "../../ugbc.h"
 
/****************************************************************************
 * CODE SECTION 
 ****************************************************************************/

/* <usermanual>
@keyword VCENTRE
 
@english
 
@italian
 
@syntax VCENTRE text [;]
 
@example VCENTRE "HELLO!"
@example VCENTRE "HELLO!";
 
@target all
 
@alias VCENTER
 
@verified
</usermanual> */
/* <usermanual>
@keyword VCENTER
 
@english
 
The ''VCENTER'' command aligns a text string in the center of the screen. In other 
words, it allows you to position a word or phrase so that it occupies the 
available space in a symmetrical manner, vertically. If the statement is followed 
by a semicolon, the cursor will remain on the same line. Otherwise, it will move to 
the next line.
 
This command can be used to create aesthetically pleasing section or chapter titles,
to center menu options in the center of the screen and to format data neatly 
in a report. Centered text is easier to read and makes programs look neater.
 
By using VCENTER, you can ensure that text is aligned uniformly in different 
parts of the program, and on different targets. Moreover, reduce the need 
to manually calculate character positions. 
 
@italian
 
Il comando ''VCENTER'' allinea una stringa di testo al centro dello schermo. 
In altre parole, consente di posizionare una parola o una frase in modo che 
occupi lo spazio disponibile in modo simmetrico, in verticale. Se l'istruzione 
è seguita da un punto e virgola, il cursore rimarrà sulla stessa riga. In caso 
contrario, si sposterà alla riga successiva.
 
Questo comando può essere utilizzato per creare titoli di sezioni o capitoli 
esteticamente gradevoli, per centrare le opzioni di menu al centro dello schermo 
e per formattare i dati in modo ordinato in un report. Il testo centrato è più facile
da leggere e rende i programmi più ordinati.
 
Utilizzando VCENTER, è possibile assicurarsi che il testo sia allineato in modo 
uniforme in diverse parti del programma e su diversi target. Inoltre, si riduce 
la necessità di calcolare manualmente le posizioni dei caratteri.
 
@syntax VCENTER text [;]
 
@example VCENTER "HELLO!"
@example VCENTER "HELLO!";
 
@target all
 
@alias VCENTRE
</usermanual> */
 
void vcenter( Environment * _environment, char * _string, int _newline ) {
 
    MAKE_LABEL
    
    Variable * string = variable_retrieve( _environment, _string );
    Variable * currentHeight = variable_retrieve( _environment, "CONSOLEH");
        
    Variable * height = variable_div2_const( _environment, currentHeight->name, 2, NULL );
 
    locate( _environment, NULL, height->name );
 
    text_text( _environment, string->name, 0 );
 
    if ( _newline && ( _environment->centerWithoutNewLine == 0 ) ) {
        text_newline( _environment );
    }
 
}